home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Amos / AmosProPatch.LHA / AmosProMultiEnv / Install_AMOSMultiEnv < prev    next >
Encoding:
Text File  |  1992-02-26  |  4.8 KB  |  204 lines
  1. (transcript "Installing AMOS Loader...")
  2.  
  3. (message "AMOSPro Multi-Envoironment Loader System V1.1\n\nBy Paul Hickman (ph@doc.ic.ac.uk)\n\n\nThis script will patch AMOSPro V1.12, and install the loader programs on your AMOSPro disk/directory\n\nReqtools library is required, and this will be copied to LIBS: if the version supplied here is newer than your current version")
  4. (welcome)
  5.  
  6.  
  7.  
  8. ;get the users AMOSPro directory.
  9.  
  10. (set #AMOSPro
  11.     (askdir
  12.     (prompt "Please select your AMOSPro_System: disk/directory.") 
  13.     (help @ask-dirhelp)
  14.     (default "AMOSPro_System:")
  15.     (newpath)
  16.     )
  17. )
  18.  
  19. (set @default-dest #AMOSPro)
  20. (complete 5)
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28. ; Now detect if the AMOSPro directory is infact the root directory of
  29. ; volume AMOSPro_System.
  30.  
  31. (set AMOSdisk (= (getassign (getdevice #AMOSPro) "d") "AMOSPro_System:"))
  32.  
  33.  
  34.  
  35.  
  36.  
  37. ;Now copy reqtools library to LIBS: if necessary
  38.  
  39. (copylib
  40.     (help @copylib-help)
  41.     (prompt "Installing ReqTools.Library...")
  42.     (source "Reqtools.library")
  43.     (dest "libs:")
  44.     (confirm)
  45.     (noposition)
  46. )
  47.  
  48. (complete 15)
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56. ;Now check that there is a valid patchable copy of AMOS V1.12 in the AMOS
  57. ;directory.
  58.  
  59.  
  60. (set #AMOS112 (tackon #AMOSPro "AMOSPro"))
  61. (If (= (exists #AMOS112) 0)
  62.    (abort "The file AMOSPro appears to be missing from the AMOS directory you selected!\n\nPlease try again with the correct directory.")
  63. )
  64.  
  65.  
  66. (If (<> (getsize #AMOS112) 115972)
  67.     (abort (cat "The length of the file AMOSPro V1.12 should be 115972 bytes, but your copy is " (getlength #AMOS112) " bytes long.\n\n Please replace it with an original uncrunched copy of AMOSPro 1.12."))
  68. )
  69.  
  70.  
  71. (complete 20)
  72.  
  73. ;Now patch it. An already patched copy can safely be re-patched.
  74.  
  75. (working "Patching File AMOSPro")
  76. (run (cat "PatchAMOSPro " (tackon #AMOSPro "AMOSPro")))
  77.  
  78.  
  79. (complete 30)
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87. ;Now copy the program files accross
  88.  
  89. (copyfiles
  90.     (help @copyfiles-help)
  91.     (prompt "Installing AMOS Loader")
  92.     (source "GetAMOSProEnv")
  93.     (noposition)
  94.     (dest #AMOSPro)
  95. )
  96.  
  97. (complete 40)
  98.  
  99. (copyfiles
  100.     (help @copyfiles-help)
  101.     (prompt "Installing New AMOSPro Icon")
  102.     (source "AmosIcon")
  103.     (newname "Amos.info")
  104.     (noposition)
  105.     (dest #AMOSPro)
  106. )
  107.  
  108. (complete 50)
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116. ; Now create the config's directory & copy the default config
  117.  
  118. (makedir (tackon #AMOSPro "APSystem/Interpreter_Configs"))
  119.  
  120. (copyfiles
  121.     (prompt "Copying Default Configuration")
  122.     (help    @copyfiles-help)
  123.     (source "s:AMOSPro_Interpreter_Config")
  124.     (dest    (tackon #AMOSPro "APSystem/Interpreter_Configs"))
  125.     (newname "Default.Config")
  126. )
  127.  
  128.  
  129. (complete 60)
  130.  
  131.  
  132.  
  133.  
  134.  
  135. ;Now get the users extra commands for the script file.
  136.  
  137. (set #extracommands "")
  138. (set #command "5")
  139.  
  140. (until (= #command "")
  141.  
  142.     (set #command
  143.         (askstring
  144.             (prompt "A Script file is created by this installer to load AMOSPro. If you would like to insert extra commands into this script just before AMOSPro is run, type each one into the string gadget below, and press proceed.\n\nPress proceed with the string gadget empty when finished.")
  145.             (help (cat "Type each command into the string gadget, "
  146.                    "and then press proceed.\n\nWhen you have "
  147.                    "finished, press proceed with the string gadget empty.\n\n"
  148.                    "The commands you enter will be executed just before "
  149.                    "AMOSPro is run, and only if AMOSPro is going to be "
  150.                    "executed - If you press Cancel in the file requester,"
  151.                    "or an error occurs, your commands will NOT be run.\n\n"
  152.                    "The most likely commands you will want to insert here "
  153.                    "are to setup assigns to the directories where you keep "
  154.                    "your AMOSPro programs."))
  155.             (default "")
  156.         )
  157.     )
  158.  
  159.     (set #extracommands
  160.         (cat #extracommands "    " #command "\n")
  161.     )
  162. )
  163.  
  164. (complete 60)
  165.  
  166.  
  167.  
  168.  
  169.  
  170.  
  171. ; Next, create the script
  172.  
  173. (textfile
  174.     (prompt "Creating AMOSPro Loader Script")
  175.     (help "No Help Available")
  176.     (dest (tackon #AMOSPro "Amos"))
  177.     (append ".key prog\n.bra {\n.ket }\n")
  178.     (append "; $VER: AmosPro Loader 1.1 (18.5.94)\n;\n; By Paul Hickman (ph@doc.ic.ac.uk)\n\n\n")
  179.     (append "FailAt 11\n")
  180.     (if (= AMOSdisk 0)
  181.         (append (cat (cat "assign AMOSPro_System: \"" (expandpath #AMOSPro)) "\"\n"))
  182.     )
  183.     (append "GetAMOSProEnv AMOSPro_System:APSystem/Interpreter_Configs\n")
  184.     (append "IF NOT WARN\n    CD AMOSPro_System:\n\n")
  185.     (append #extracommands)
  186.     (append "    AMOSPro_System:AMOSPro {prog}\n    C:Delete T:AMOSPro_Interpreter_Config\nENDIF\n")
  187. )
  188.  
  189. (complete 80)
  190.  
  191.  
  192.  
  193.  
  194.  
  195. ; Finally, if on a floppy disk, user may wish startup sequence modified
  196.  
  197.  
  198. (if (= AMOSdisk 1)
  199.     (message "I notice you are installing this to a floppy disk.\n\nTo use the AMOS Envoironment selector, you must double click on the AMOSPro loader icon.\n\n\nYou should make sure that your startup-sequence loads workbench, not AMOSPro directly.")
  200. )
  201.  
  202. (complete 100)
  203. (exit "\nTo load AMOS, double click on the \"Amos\" icon, instead of the old \"AMOSPro\" icon.\n\n\n\n© Paul Hickman - May 1994")
  204.