home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / disk / misc / azap / installazap < prev    next >
Text File  |  1995-02-27  |  3KB  |  106 lines
  1. ;---------------------------------------------------------------
  2. ;
  3. ; Installer script for AZap
  4. ; $VER: 36.0 (24.04.94)
  5. ; Written by Denis GOUNELLE
  6. ;
  7. ;---------------------------------------------------------------
  8. ;
  9. (complete 0)
  10. (set ProgVer  "2.20")
  11. (set ProgName "AZap")
  12. (set KickVer  (/ (getversion) 65536))
  13. (set SCFlag   (if (AND (> KickVer 35) (exists "S:.SoftConfig")) 1 0))
  14. ;
  15. (set InstallOpt
  16.     (askoptions (prompt "Which part of the program whould you like to install ?")
  17.             (help @askoptions-help)
  18.             (choices "Program" "Locales" "ReqTools.library")
  19.     )
  20. )
  21. ;
  22. ;--------------------- Install the program --------------------
  23. ;
  24. (complete 25)
  25. (if (BITAND InstallOpt 1)
  26.     ((set ProgDir (askdir
  27.         (prompt "Select the directory where to install AZap")
  28.         (help "The program will be copied in this directory. You may want to install AZap in a directory which is in your default path.")
  29.         (default "SYS:Utilities/")
  30.         )
  31.      )
  32.      (copyfiles (prompt "Installing program")
  33.         (help @copyfiles-help)
  34.         (source ProgName)
  35.         (newname "AZap")
  36.         (dest ProgDir)
  37.         (infos)
  38.      )
  39.      (if SCFlag
  40.         ((run (cat "SoftConfig ADD AZap " (tackon ProgDir "AZap") " FILE " ProgVer))
  41.          (run (cat "SoftConfig ADD AZap.config S:AZap.config FILE " ProgVer))
  42.          (run "SoftConfig ATTACH AZap AZap.config")
  43.         )
  44.     ))
  45. )
  46. ;
  47. ;--------------------- Install the locale --------------------
  48. ;
  49. (complete 50)
  50. (if (BITAND InstallOpt 2)
  51.     ((set Langage (askchoice (prompt "Which locale do you want to install ?")
  52.                 (help @askchoice-help)
  53.                 (choices "deutsch" "español" "français" "nederlands" "norsk" "svenska" "none")))
  54.      (if (= Langage 0) (set LocaleName "deutsch"))
  55.      (if (= Langage 1) (set LocaleName "español"))
  56.      (if (= Langage 2) (set LocaleName "français"))
  57.      (if (= Langage 3) (set LocaleName "nederlands"))
  58.      (if (= Langage 4) (set LocaleName "norsk"))
  59.      (if (= Langage 5) (set LocaleName "svenska"))
  60.      (if (NOT (= Langage 6))
  61.         ((set LocaleSrc (tackon "catalogs" LocaleName))
  62.          (set LocaleDst (tackon "LOCALE:" LocaleSrc))
  63.          (set LocaleName "AZap.catalog")
  64.          (if (NOT (exists LocaleDst)) (makedir LocaleDst (prompt "Creating locale directory") (help @makedir-help)))
  65.          (copyfiles (prompt "Installing locale")
  66.             (help @copyfiles-help)
  67.             (source (tackon LocaleSrc LocaleName))
  68.             (dest LocaleDst)
  69.          )
  70.          (if SCFlag
  71.             ((run (cat "SoftConfig ADD " LocaleName " " (tackon LocaleDst LocaleName) " FILE " ProgVer))
  72.              (run (cat "SoftConfig ATTACH AZap " LocaleName))
  73.             )
  74.         ))
  75.     ))
  76. )
  77. ;
  78. ;--------------------- Install ReqTools.library --------------------
  79. ;
  80. (complete 75)
  81. (if (BITAND InstallOpt 8)
  82.     ((if (> KickVer 35) (set LibExt "20") (set LibExt "13"))
  83.      (copylib (prompt "Installing reqtools.library")
  84.         (help @copylib-help)
  85.         (source (cat "/libs/reqtools.library" LibExt))
  86.         (dest "LIBS:")
  87.         (newname "reqtools.library")
  88.         (confirm)
  89.     ))
  90. )
  91. ;
  92. (if (exists "LIBS:reqtools.library")
  93.     ((set RTVer  (getversion "LIBS:reqtools.library"))
  94.      (set RTNVer (/ RTVer 65536))
  95.      (set RTSVer ("%ld.%ld" RTNVer (- RTVer (* RTNVer 65536))))
  96.      (if SCFlag
  97.         ((run (cat "SoftConfig ADD reqtools.library LIBS:reqtools.library FILE " RTSVer))
  98.          (run "SoftConfig ATTACH AZap reqtools.library")
  99.         )
  100.     ))
  101. )
  102. ;
  103. (complete 100)
  104. (set @default-dest ProgDir)
  105.  
  106.