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