home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / EDG-MF1.DMS / in.adf / Install_MacroForm < prev    next >
Encoding:
Text File  |  1995-07-12  |  6.3 KB  |  280 lines
  1. ; This is the MacroForm Installer
  2.  
  3. (Transcript "MacroForm Install")
  4.  
  5. ;***********************************************
  6. ;Initialize global variables
  7. ;***********************************************
  8.  
  9. (set Disk1 "Disk1:")
  10. (set Disk2 "Disk2")
  11. (set Disk3 "Disk3")
  12.  
  13. (set MacMem 850000)
  14. (set TutMem 1400000)
  15.  
  16. (set CDir "Sys:C")
  17. (set SDir "Sys:S")
  18. (set LDir "Sys:LIBS")
  19.  
  20. ;***********************************************
  21. ;Get MacroForm installation directory
  22. ;***********************************************
  23.  
  24. (if (exists "Work:Toaster" (noreq))
  25.     (set @default-dest "Work:Toaster")
  26.     ((set MacInstall
  27.         (askdir
  28.             (prompt "Where is your Toaster or NewTek directory?")
  29.             (help "MacroForm MUST be installed in the top level of your Toaster or NewTek directory.")
  30.             (default @default-dest)
  31.         )
  32.      )
  33.      (set @default-dest MacInstall)
  34.     )
  35. )
  36.  
  37. (set MacDir (tackon @default-dest "MacroForm"))
  38.  
  39. ;***********************************************
  40. ;Check available disk space
  41. ;***********************************************
  42.  
  43. (if (< (getdiskspace @default-dest) MacMem)
  44.         (exit (("There isn't enough storage space on %s " @default-dest)
  45.                 "to perform this installation!")
  46.         )
  47. )
  48.  
  49. ;***********************************************
  50. ;Prompt user for modules to install
  51. ;***********************************************
  52.  
  53. (set ModNames
  54.     (askoptions
  55.         (prompt "Deselect the modules that you don't want to install.")
  56.         (help @askoptions-help)
  57.         (choices "MacroForm" "Tutorials")
  58. ;        (default 2)
  59.     )
  60. )
  61.  
  62. ;***********************************************
  63. ;Check available disk space against selections
  64. ;***********************************************
  65.  
  66. (set avspace 0)
  67. (set FulMem 0)
  68. (if (in ModNames 0)
  69.     (+ FulMem MacMem)
  70. )
  71. (if (in ModNames 1)
  72.     (+ FulMem TutMem)
  73. )
  74.  
  75. (if (< (getdiskspace @default-dest) FulMem)
  76.         (exit "There isn't enough storage space on %s/n" @default-dest
  77.                 "To perform this installation!/n"
  78.         )
  79. )
  80.  
  81. ;***********************************************
  82. ;Find Modeler Macro drawer
  83. ;***********************************************
  84.  
  85. (if (exists (tackon @default-dest "Arexx_Examples/lwm"))
  86.     (set LWMDir (tackon @default-dest "Arexx_Examples/lwm"))
  87.     (if (exists (tackon @default-dest "Arexx/Modeler"))
  88.         (set LWMDir (tackon @default-dest "Arexx/Modeler"))
  89.         (set LWMDir
  90.             (askdir
  91.                 (prompt "Where are your Modeler macros located?")
  92.                 (help "MacroForm needs to know where to install the programs.")
  93.                 (default @default-dest)
  94.             )
  95.         )
  96.     )
  97. )
  98.  
  99.  
  100. ;***********************************************
  101. ;Copy MacroForm
  102. ;***********************************************
  103.  
  104. (if (in ModNames 0)
  105.     (
  106.         ;COPY MACROFORM FILES
  107.         (copyfiles
  108.             (prompt "Copy MacroForm Files...")
  109.             (help @copyfiles-help)
  110.             (source (tackon Disk1 "MacroForm"))
  111.             (dest MacDir)
  112.             (all)
  113.             (confirm)
  114.         )
  115.  
  116.         ;COPY LWM FILES
  117.         (copyfiles
  118.             (prompt "Copy RailToolz and the Productivity Set...")
  119.             (help @copyfiles-help)
  120.             (source (tackon Disk1 "lwm"))
  121.             (dest LWMDir)
  122.             (all)
  123.             (confirm)
  124.         )
  125.  
  126.         ;COPY C FILES
  127.         (copyfiles
  128.             (prompt "Copy MacroForm Support Files to C:...")
  129.             (help @copyfiles-help)
  130.             (source (tackon Disk1 "C"))
  131.             (dest CDir)
  132.             (all)
  133.             (confirm)
  134.         )
  135.  
  136.         ;COPY S FILES
  137.         (copyfiles
  138.             (prompt "Copy MacroForm Support Files to S:...")
  139.             (help @copyfiles-help)
  140.             (source (tackon Disk1 "S"))
  141.             (dest SDir)
  142.             (all)
  143.             (confirm)
  144.         )
  145.  
  146.         ;EDIT USER STARTUP
  147.         (run "rx DF0:CheckRP"
  148.             (prompt "Edit user-startup...")
  149.             (help "MacroForm MUST edit the user-startup file in order to work.  For more information, read the ReadMe file on this disk.")
  150.             (confirm)
  151.         )
  152.  
  153.         ;Remove RPStart from WBStartup
  154.         (if (exists ("SYS:WBStartup/RPStart") (noreq))
  155.             ((delete "SYS:WBStartup/RPStart")
  156.               (delete "SYS:WBStartup/RPStart.info")
  157.             )
  158.         )
  159.  
  160.         ;Shut down RexxMast and RPControl, then restart them
  161.         (if (exists ("c:rxc") (noreq))
  162.             (run "c:rxc"))
  163.         (if (exists ("SYS:rexxc/rxc") (noreq))
  164.             (run "c:rxc")
  165.         )
  166.         (run "c:RPStart")
  167.  
  168.         ;GET MOD-CONFIG FILE
  169.         (if (exists (tackon @default-dest "3D/Mod-config"))
  170.             (set ModFile (tackon @default-dest "3D/Mod-config"))
  171.  
  172.             (if (exists (tackon @default-dest "Programs/Mod-config"))
  173.                 (set ModFile (tackon @default-dest "Programs/Mod-config"))
  174.                 (set ModFile
  175.                     (askfile
  176.                         (prompt "Where is your Mod-Config file?")
  177.                         (help "MacroForm needs to alter your Mod-Config file.")
  178.                         (default @default-dest)
  179.                     )
  180.                 )
  181.             )
  182.         )
  183.  
  184.         ;ASSIGN KEYMASTER
  185.         (run ("rx DF0:KeyChange %s %s" ModFile LWMdir)
  186.             (prompt "Assigning KeyMaster to F-Key 1...")
  187.             (help "As a convenience, the installer will assign KeyMaster to F-Key 1 in Modeler.  This will allow you to access the full MacroForm environment with just a few mouse clicks.")
  188.             (confirm)
  189.         )
  190.  
  191.         ;COPY LIBS FILES
  192.         (askdisk
  193.             (prompt "Please insert Disk2 into your floppy drive...")
  194.             (help @askdisk-help)
  195.             (dest Disk2)
  196.         )
  197.  
  198.         (copyfiles
  199.             (prompt "Copy MacroForm Support Files to LIBS:...")
  200.             (help @copyfiles-help)
  201.             (source "Disk2:LIBS")
  202.             (dest LDir)
  203.             (all)
  204.             (confirm)
  205.         )
  206.     )
  207. )
  208.  
  209. ;***********************************************
  210. ;Copy Tutorials
  211. ;***********************************************
  212.  
  213. (if (in ModNames 1)
  214.     (
  215.         (askdisk
  216.             (prompt "Please insert Disk2 into your floppy drive...")
  217.             (help @askdisk-help)
  218.             (dest Disk2)
  219.         )
  220.  
  221.         (copyfiles
  222.             (prompt "Copy Scenes...")
  223.             (help @copyfiles-help)
  224.             (source "Disk2:scenes")
  225.             (dest (tackon MacDir "scenes"))
  226.             (all)
  227.             (confirm)
  228.         )
  229.  
  230.         (copyfiles
  231.             (prompt "Copy Turorial Macro...")
  232.             (help @copyfiles-help)
  233.             (source "Disk2:lwm")
  234.             (dest LWMdir)
  235.             (all)
  236.             (confirm)
  237.         )
  238.  
  239.         (copyfiles
  240.             (prompt "Copy Tutorials...")
  241.             (help @copyfiles-help)
  242.             (source "Disk2:tutorials")
  243.             (dest (tackon MacDir "tutorials"))
  244.             (all)
  245.             (confirm)
  246.         )
  247.  
  248.         (askdisk
  249.             (prompt "Please insert Disk3 into your floppy drive...")
  250.             (help @askdisk-help)
  251.             (dest Disk3)
  252.         )
  253.  
  254.         (copyfiles
  255.             (prompt "Copy Tutorials...")
  256.             (help @copyfiles-help)
  257.             (source "Disk3:tutorials")
  258.             (dest (tackon MacDir "tutorials"))
  259.             (all)
  260.             (confirm)
  261.         )
  262.     )
  263. )
  264.  
  265. ;EDIT USER STARTUP
  266. (if (exists "sys:utilities/multiview")
  267. (if (askbool
  268.         (prompt "Do you want to read the ReadMe file now?")
  269.         (help "The ReadMe file contains important information for using MacroForm.")
  270.         (default 1)
  271.     )
  272.     (run "multiview DF0:ReadMe")
  273. )
  274. )
  275.  
  276. (if (in ModNames 0)
  277.     (Message "You MUST reboot your system to start using MacroForm!                                                    Don't forget to send in your registration card... Enjoy MacroForm!")
  278. )
  279.  
  280.