home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma73.lha / MAShare73 / Xtruder / Install < prev    next >
Encoding:
Text File  |  1996-10-26  |  5.4 KB  |  274 lines
  1. ; *******************************************************************
  2. ;
  3. ; $VER: Install_Xtruder 3.2 (25.10.96)
  4. ; 
  5. ; Install script for Xtruder copyright © 1995-1996 Martin Wulffeld
  6. ;
  7. ; *******************************************************************
  8.  
  9. (set old_level @user-level)
  10. (set @default-dest "")
  11.  
  12. (set default_lang 2)
  13.  
  14. (set #bad-kick
  15. (cat "You must at least have Kickstart 2.04 to install Xtruder!"
  16. ))
  17.  
  18. (set #copying-bootblock        "\nCopying Bootblock.library 3.1 to LIBS:...")
  19. (set #copying-bootblockbb    "\nCopying Bootblock.brainfile to L:...")
  20. (set #copying-fileid        "\nCopying FileID.library 7.10 to LIBS:...")
  21. (set #copying-filevirus        "\nCopying filevirus.library 2.9 to LIBS:...")
  22. (set #copying-reqtools        "\nCopying reqtools.library 38.1413 to LIBS:...")
  23. (set #copying-unpack        "\nCopying unpack.library 42.71 to LIBS:...")
  24. (set #copying-xfdlib        "\nCopying xfdmaster.library 37.5 to LIBS:...")
  25. (set #copying-xtruderlib    "\nCopying xtruder.library 37.2 to LIBS:...")
  26. (set #copying-xtruderexe    "\nCopying Xtruder executable...")
  27. (set #copying-documentation    "\nCopying Xtruder documentation...")
  28. (set #copying-regfiles        "\nCopying registration files...")
  29. (set #copying-catalogs        "\nCopying catalogs...")
  30. (set #copying-rexxscripts    "\nCopying rexx scripts...")
  31. (set #creating-xfd            "\nCreating directory\n\nLIBS:xfd\n\nfor external decrunchers...")
  32. (set #copying-xfdfiles        "\nCopying external decrunchers\nfor xfdmaster.library...")
  33. (set #select-dest            "Please select the path where you want to install Xtruder. A drawer named Xtruder will be created there.")
  34. (set #select-destguide        "Please select the alternative path where you want to install the Xtruder documentation. It has already been installed along with the main program.")
  35. (set #select-destrexx        "Please select the path where you want to install the Rexx scripts. A drawer named Xtruder will be created there.")
  36. (set #select-language       "Which languages should be installed?")
  37.  
  38. ;=============================================================================
  39. ; Make sure we are running under a 2.04 ROM
  40.  
  41. (if (< (/ (getversion) 65536) 37)
  42. (
  43.     (abort #bad-kick)
  44. ))
  45.  
  46. ;=============================================================================
  47.  
  48. ;*** Required libraries
  49.  
  50. (copylib
  51.     (prompt #copying-bootblock)
  52.     (help @copylib-help)
  53.     (source "Libs/Bootblock.library")
  54.     (dest "LIBS:")
  55.     (confirm)
  56. )
  57.  
  58. (copylib
  59.     (prompt #copying-bootblockbb)
  60.     (help @copylib-help)
  61.     (source "L/Bootblock.brainfile")
  62.     (dest "L:")
  63.     (confirm)
  64. )
  65.  
  66. (copylib
  67.     (prompt #copying-fileid)
  68.     (help @copylib-help)
  69.     (source "Libs/FileID.library")
  70.     (dest "LIBS:")
  71.     (confirm)
  72. )
  73.  
  74. (copylib
  75.     (prompt #copying-filevirus)
  76.     (help @copylib-help)
  77.     (source "Libs/filevirus.library")
  78.     (dest "LIBS:")
  79.     (confirm)
  80. )
  81.  
  82. (copylib
  83.     (prompt #copying-reqtools)
  84.     (help @copylib-help)
  85.     (source "Libs/reqtools.library")
  86.     (dest "LIBS:")
  87.     (confirm)
  88. )
  89.  
  90. (copylib
  91.     (prompt #copying-unpack)
  92.     (help @copylib-help)
  93.     (source "Libs/unpack.library")
  94.     (dest "LIBS:")
  95.     (confirm)
  96. )
  97.  
  98. (copylib
  99.     (prompt #copying-xfdlib)
  100.     (help @copylib-help)
  101.     (source "Libs/xfdmaster.library")
  102.     (dest "LIBS:")
  103.     (confirm)
  104. )
  105.  
  106. (copylib
  107.     (prompt #copying-xtruderlib)
  108.     (help @copylib-help)
  109.     (source "Libs/xtruder.library")
  110.     (dest "LIBS:")
  111.     (confirm)
  112. )
  113.  
  114. (set xfdokay
  115.     (makedir "LIBS:xfd"
  116.         (prompt #creating-xfd)
  117.         (help @makedir-help)
  118.         (confirm)
  119.     )
  120. )
  121.  
  122. (if xfdokay
  123.     (copyfiles
  124.         (prompt #copying-xfdfiles)
  125.         (help @copyfiles-help)
  126.         (source "Libs/xfd")
  127.         (pattern "#?")
  128.         (dest "LIBS:xfd/")
  129.         (confirm)
  130.     )
  131. )
  132.  
  133. ;*** Xtruder executable
  134.  
  135. (set programdir
  136.     (tackon
  137.         (askdir
  138.             (prompt #select-dest)
  139.             (help @askdir-help)
  140.             (default "SYS:")
  141.             (newpath)
  142.         )
  143.         "Xtruder"
  144.     )
  145. )
  146.  
  147. (set @default-dest programdir)
  148.  
  149. (copyfiles
  150.     (prompt #copying-xtruderexe)
  151.     (source "Xtruder")
  152.     (dest programdir)
  153.     (infos)
  154. )
  155.  
  156. ;*** Copy Catalogs to Xtruder dir for backup
  157.  
  158. (copyfiles
  159.     (prompt #copying-catalogs)
  160.     (source "")
  161.     (dest programdir)
  162.     (pattern "Catalogs#?")
  163. )
  164.  
  165. ;*** Copy registration files
  166.  
  167. (copyfiles
  168.     (prompt #copying-regfiles)
  169.     (source "")
  170.     (dest programdir)
  171.     (pattern "Registration#?")
  172. )
  173.  
  174. ;*** Documentation files
  175.  
  176. ; Backup
  177.  
  178. (copyfiles
  179.     (prompt #copying-documentation)
  180.     (source "")
  181.     (dest programdir)
  182.     (pattern "Documentation#?")
  183. )
  184.  
  185. ; Ask if documentation should be installed elsewhere
  186.  
  187. (set tempdocdir
  188.     (tackon
  189.         programdir
  190.         "Documentation"
  191.     )
  192. )
  193.  
  194. (set docdir
  195.     (askdir
  196.         (prompt #select-destguide)
  197.         (help @askdir-help)
  198.         (default tempdocdir)
  199.         (newpath)
  200.     )
  201. )
  202.  
  203. (copyfiles
  204.     (prompt #copying-documentation)
  205.     (source "Documentation/Xtruder.guide")
  206.     (dest docdir)
  207.     (infos)
  208. )
  209.  
  210. ;*** Rexx scripts
  211.  
  212. (set rexxdir
  213.     (tackon
  214.         (askdir
  215.             (prompt #select-destrexx)
  216.             (help @askdir-help)
  217.             (default "REXX:")
  218.             (newpath)
  219.         )
  220.         "Xtruder"
  221.     )
  222. )
  223.  
  224. (copyfiles
  225.     (prompt #copying-rexxscripts)
  226.     (source "Rexx")
  227.     (pattern "#?")
  228.     (dest rexxdir)
  229. )
  230.  
  231. ;*** Install catalog
  232.  
  233. (if (exists "SYS:Locale")
  234. (
  235.     (if (exists "LOCALE:")
  236.     (
  237.         (set lang (askoptions (prompt #select-language)
  238.                                 (help #which-language-help)
  239.                                 (choices
  240.                                     "Dansk"
  241.                                     "Svenska"
  242.                                     "English")
  243.                                 (default default_lang)
  244.                     )
  245.         )
  246.         
  247.         (set n 0)
  248.         (while
  249.             (set language (select n
  250.                                 "dansk"
  251.                                 "svenska"
  252.                                 "")
  253.             )
  254.         (
  255.             (if (IN lang n)
  256.             (
  257.                 (if (< n 3)
  258.                 (
  259.                     (makedir (cat "LOCALE:Catalogs/" language))
  260.                     
  261.                     (copyfiles (source (cat "Catalogs/" language))
  262.                         (dest (cat "LOCALE:Catalogs/" language))
  263.                         (all)
  264.                     )
  265.                 ))
  266.             ))
  267.             (set n (+ n 1))
  268.         ))
  269.     ))
  270. ))
  271.  
  272. (exit "Please reboot or flush your memory. Some older versions of the installed files might be present in memory."
  273. )
  274.