home *** CD-ROM | disk | FTP | other *** search
/ Merciful 3 / Merciful_Release_3.bin / software / m / maclitev1.0.dms / maclitev1.0.adf / InstallerScript < prev    next >
Text File  |  1996-06-24  |  12KB  |  470 lines
  1. ;**************************************************
  2. ;
  3. ;$VER: MAC Lite Emulation Installer v1.0 (24 Jun 1996)
  4. ;
  5. ; Title:
  6. ;    EMPLANT's MAC Lite Emulation Software Installer
  7. ; 
  8. ; Description:
  9. ;    The Commodore Installer Script for EMPLANT's
  10. ;    MAC emulation module software.
  11. ;
  12. ; Installer script by Jim Drew
  13. ;
  14. ;**************************************************
  15.  
  16. (set true 1)
  17. (set false 0)
  18. (set quote "\"")
  19. (set nothing "")
  20. (set WB2 (< 2293760 (getversion "exec.library" (resident)))) ; true if under 2.0
  21.  
  22. (set mode 0)                ;default to 32 bit mode
  23.  
  24. (set EMPLANT_dir (getassign "EMPLANT"))
  25. (set c_dir (getassign "C"))
  26. (set libs_dir (getassign "LIBS"))
  27. (set fonts_dir (getassign "FONTS"))
  28. (set devs_dir (getassign "DEVS"))
  29. (set s_dir (getassign "S"))
  30.  
  31. (set Src_c "MacII:MAC_EMU/c/")
  32. (set Src_devs "MacII:MAC_EMU/devs/")
  33. (set Src_fonts "MacII:MAC_EMU/fonts/")
  34. (set Src_libs "MacII:MAC_EMU/libs/")
  35. (set Src_docs "MacII:MAC_EMU/Documentation/")
  36. (set Src_ExtIO "MacII:MAC_EMU/Ext_IO/")
  37. (set Src_ROMS "MacII:MAC_EMU/ROM_Images/")
  38. (set Src_Video "MacII:MAC_EMU/Video_Drivers/")
  39. (set Src_main "MacII:MAC_EMU/")
  40.  
  41. (if  (<> EMPLANT_dir nothing)
  42.      (if  (askbool
  43.                (prompt "\n\n\nSome version of the MAC emulation software "
  44.                "already exists in your drawer named: \n\n"
  45.                quote EMPLANT_dir quote
  46.                "\n\nDo you want the update installed over it?")
  47.                (help
  48.                "\n\n\nThe installer has determined that you already have a "
  49.                "some version of the MAC emulation software installed "
  50.                "on your system.  If this is wrong or you want the update "
  51.                "installed elsewhere, select 'NO', otherwise select 'YES'."
  52.                )
  53.                (default 1)
  54.           )
  55.                (set is_update true) 
  56.  
  57. ;else ask where to put software
  58.  
  59.                (
  60.                (set is_update false)
  61.                (set EMPLANT_dir
  62.                (askdir
  63.                     (prompt "Where would you like the updated software "
  64.                     "installed?\n"
  65.                     "'EMPLANT' will be automatically appended.")
  66.                     (help @askdir-help)
  67.                     (default @default-dest)
  68.                )
  69.                )
  70.  
  71.                (set EMPLANT_dir
  72.                (tackon EMPLANT_dir "EMPLANT")
  73.                )
  74.  
  75.                (makedir EMPLANT_dir
  76.                (infos)
  77.                )
  78.           )
  79.      )
  80. )
  81.  
  82. ; EMPLANT: was not previously assigned, so ask where to make it
  83. (if  (= EMPLANT_dir nothing)
  84.           (
  85.           (set EMPLANT_dir
  86.                (askdir
  87.                     (prompt "Where would you like the software installed? "
  88.                     "'EMPLANT' will be automatically appended.")
  89.                     (help @askdir-help)
  90.                     (default @default-dest)
  91.                )
  92.           )
  93.  
  94.           (set EMPLANT_dir
  95.           (tackon EMPLANT_dir "EMPLANT")
  96.           )
  97.  
  98.           (makedir EMPLANT_dir
  99.           (infos)
  100.           )
  101.      )
  102. )
  103.  
  104.           (set EMU_Dir
  105.           (tackon EMPLANT_dir "MACLite")
  106.           )
  107.  
  108.           (makedir EMU_dir
  109.           (infos)
  110.           )
  111.  
  112. (set @default-dest EMU_dir)
  113.  
  114. (complete 5)
  115.  
  116. ; ask user to locate SYS:C directory
  117.  
  118. (set c_dir
  119.      (askdir
  120.           (prompt "Please locate your C: directory.")
  121.           (help @askdir-help)
  122.           (default c_dir)
  123.      )
  124. )
  125.    
  126. (working omp "...Please Wait...")
  127.  
  128. (copyfiles
  129.      (prompt "Select file(s) to be copied into your C: directory:")
  130.      (help "\n\n\n\n\nThis will copy RsrvCold to your C: "
  131.      "directory.\n\n\n\n\n\n\n\n"
  132.      @copyfiles-help)
  133.      (source Src_c)
  134.      (dest c_dir)
  135.      (pattern "#?")
  136.      (confirm)
  137. )
  138.  
  139. (complete 10)
  140.  
  141. ; ask user to locate LIBS: directory
  142.  
  143. (set libs_dir
  144.      (askdir
  145.           (prompt "Please locate your LIBS: directory.")
  146.           (help @askdir-help)
  147.           (default libs_dir)
  148.           (newpath)
  149.      )
  150. )
  151.  
  152. (working omp "...Please Wait...")
  153.  
  154. (copyfiles
  155.      (prompt "Select file(s) to be copied into your LIBS: directory:")
  156.      (help "\n\n\n\n\nThis will copy the JAM library into your "
  157.      "system's LIBS: directory.\n\n\n\n\n\n\n"
  158.      @copylib-help)
  159.      (source Src_libs)
  160.      (dest libs_dir)
  161.      (pattern "(#?.library#?)")
  162.      (confirm)
  163. )
  164.  
  165. (complete 20)
  166.  
  167. ; ask user to locate DEVS: directory
  168.  
  169. (set devs_dir
  170.      (askdir
  171.           (prompt "Please locate your DEVS: directory")
  172.           (help @askdir-help)
  173.           (default devs_dir)
  174.      )
  175. )
  176.  
  177. (working omp "...Please Wait...")  
  178.  
  179. (copyfiles
  180.      (prompt "Select file(s) to be copied into your DEVS: directory:")
  181.      (help "\n\n\n\n\nThis will copy the device drivers for the use "
  182.      "with EMPLANT's various I/O ports.\n\n\n\n\n\n\n"
  183.      @copyfiles-help)
  184.      (source Src_devs)
  185.      (dest DEVS_dir)
  186.      (pattern "#?")
  187.      (confirm)
  188. )
  189.  
  190. (complete 30)
  191.  
  192. ; ask user to locate FONTS: directory
  193.  
  194. (set Fonts_dir
  195.      (askdir
  196.           (prompt "Please locate your FONTS: directory")
  197.           (help @askdir-help)
  198.           (default fonts_dir)
  199.           (newpath)
  200.      )
  201. )
  202.  
  203. (working omp "...Please Wait...")
  204.  
  205. (copyfiles
  206.      (prompt "Select file(s) to be copied into your FONTS: directory:")
  207.      (help "\n\n\n\n\nThis will copy over any fonts needed for the "
  208.      "emulation.\n\n\n\n\n\n\n"
  209.      @copyfiles-help)
  210.      (source Src_fonts)
  211.      (dest fonts_dir)
  212.      (pattern "(SCAIV#?)")
  213.      (fonts)
  214.      (confirm)
  215. )
  216.  
  217. (complete 40)
  218.  
  219. (working omp "...Please Wait...")
  220.  
  221. ; Copy utilities
  222.    
  223. (set EMPLANT_dir
  224.      (copyfiles
  225.           (prompt "Select files to be copied to the EMPLANT: directory:")
  226.           (help "\n\n\n\n\nThis will copy all of the utilities for the "
  227.           "EMPLANT hardware and the MAC emulation.\n\n\n\n\n\n\n"
  228.           @copyfiles-help)
  229.           (source Src_main)
  230.           (dest EMPLANT_dir)
  231.           (pattern "(HardFile#?|ROMINFO#?|MAC_HDSetup#?)")
  232.           (confirm)
  233.      )
  234. )
  235.  
  236. (complete 50)
  237.  
  238. ; Copy over the MAC EMULATION programs
  239.  
  240. (working omp "...Please Wait...")
  241.    
  242. (set EMU_dir
  243.      (copyfiles
  244.           (prompt "Select files to be copied to the EMPLANT:MAC/ directory:")
  245.           (help "\n\n\n\n\n\nThis will copy the MAC emulation's main "
  246.           "programs.\n\n\n\n\n\n\n"
  247.           @copyfiles-help)
  248.           (source Src_main)
  249.           (dest EMU_dir)
  250.           (pattern "(MACLite#?|Lite.dat)")
  251.           (confirm)
  252.      )
  253. )
  254.  
  255. ;copy AppIcon
  256.  
  257. (copyfiles
  258.      (source Src_Main)
  259.      (dest EMU_dir)
  260.      (pattern "(EMP_AppIcon.info)")
  261. )
  262.  
  263. (complete 55)
  264.  
  265. ;create Video_Drivers directory
  266.    
  267. (set VideoDrvr_dir
  268. (cat EMU_dir)
  269. )
  270. (set VideoDrvr_dir
  271. (tackon VideoDrvr_dir "Video_Drivers")
  272. )
  273.  
  274. (makedir VideoDrvr_dir
  275. (infos)
  276. )
  277.  
  278. (working omp "...Please Wait...")
  279.  
  280. (copyfiles
  281.      (prompt "Select file(s) to be copied into your Video_Drivers directory:")
  282.      (help "\n\n\n\n\nThis will copy the video drivers to the proper "
  283.      "directory.  ALL MAC video drivers must reside in your "
  284.      "'\EMPLANT:MAC/Video_Drivers\' directory.\n\n\n\n\n\n"
  285.      @copyfiles-help)
  286.      (source Src_video)
  287.      (dest VideoDrvr_dir)
  288.      (pattern "(#?)")
  289.      (confirm)
  290. )
  291.  
  292. (complete 60)
  293.  
  294. ;create ExtIO directory
  295.  
  296. (set ExtIODrvr_dir
  297. (cat EMU_dir)
  298. )
  299. (set ExtIODrvr_dir
  300. (tackon ExtIODrvr_dir "Ext_IO")
  301. )
  302.  
  303. (makedir ExtIODrvr_dir
  304. (infos)
  305. )
  306.  
  307. (working omp "...Please Wait...")
  308.  
  309. (copyfiles
  310. (prompt "Select file(s) to be copied into your Ext_IO directory:")
  311.      (help "\n\n\n\n\nThis will copy the external I/O drivers to the proper "
  312.      "directory.  ALL MAC external I/O drivers must reside in your "
  313.      "'\EMPLANT:MAC/Ext_IO\' directory.\n\n\n\n\n\n"
  314.      @copyfiles-help)
  315.      (source Src_ExtIO)
  316.      (dest ExtIODrvr_dir)
  317.      (pattern "(#?)")
  318.      (confirm)
  319. )
  320.  
  321. (complete 70)
  322.  
  323. ;create Documentation directory
  324.  
  325. (set Docs_dir
  326. (cat EMU_dir)
  327. )
  328. (set Docs_dir
  329. (tackon Docs_dir "Documentation")
  330. )
  331.  
  332. (makedir Docs_dir
  333. (infos)
  334. )
  335.  
  336. (working omp "...Please Wait...")
  337.  
  338. (copyfiles
  339.      (prompt "Select file(s) to be copied Documentation directory:")
  340.      (help "\n\n\n\nThis will copy various documentation and "
  341.      "IFF pictures to your documentation directory.  ALL MAC emulation "
  342.      "documentation should reside in your "
  343.      "'\EMPLANT:MAC/Documenation\' directory.\n\n\n\n\n\n"
  344.      @copyfiles-help)
  345.      (source Src_docs)
  346.      (dest Docs_dir)
  347.      (pattern "#?")
  348.      (confirm)
  349. )
  350.  
  351. (complete 75)
  352.  
  353. ;create ROM_Images directory
  354.  
  355. (set ROM_dir
  356. (cat EMU_dir)
  357. )
  358. (set ROM_dir
  359. (tackon ROM_dir "ROM_Images")
  360. )
  361.  
  362. (makedir ROM_dir
  363. (infos)
  364. )
  365.  
  366. (working omp "...Please Wait...")
  367.  
  368. (copyfiles
  369.      (prompt "Select ROM Image(s) and Related Files:")
  370.      (help "\n\n\n\n\nThis will copy your ROM image(s) from your "
  371.      "original installation (if applicable).  ALL ROM image files "
  372.      "must be in your '\EMPLANT:MAC/ROM_Images\' directory.\n\n\n\n\n\n"
  373.      @copyfiles-help)
  374.      (source Src_ROMS)
  375.      (dest ROM_dir)
  376.      (pattern "#?")
  377.      (confirm)
  378. )
  379.  
  380. (complete 80)
  381.  
  382.  
  383. ; add custom EMPLANT setup caller to Startup-Sequence if 'AssignEMPLANT'
  384. ; does not exist yet
  385.  
  386. (if  (not (exists "s:AssignEMPLANT"))
  387.      (if  (askbool
  388.                (prompt "\nIn order for MAC emulation to work correctly, "
  389.                "the FIRST line in your STARTUP-SEQUENCE must be\n\n"
  390.                "'execute >NIL: s:SetupEMPLANT'\n\n"
  391.                "and the LAST line of your USER-STARTUP must be:\n\n"
  392.                "'execute >NIL: s:AssignEMPLANT'\n\n"
  393.                "These lines can be automatically added by this installer "
  394.                "script.  Do you wish to proceed?\n\n")
  395.                (help @askbool-help)
  396.                )
  397.  
  398.                (
  399.                     (if (= @pretend 0)
  400.                     (
  401.                         (
  402.                         (if  (not  (exists "s:user-startup"))
  403.                              (textfile
  404.                              (dest "s:user-startup")
  405.                              (append ";user-startup \n\n")
  406.                          )
  407.                     )
  408.                     (textfile
  409.                     (dest "ram:startup-sequence")
  410.                     (append ";BEGIN EMPLANT \n")
  411.                     (append "assign t: ram: \n")
  412.                     (append "execute >NIL: s:SetupEMPLANT \n")
  413.                     (append ";END EMPLANT \n")
  414.                     (include "s:startup-sequence")
  415.                     )
  416.                     (rename "s:startup-sequence" "s:startup-sequence.old")
  417.                     (copyfiles
  418.                     (help @copyfiles-help)
  419.                     (source "ram:startup-sequence")
  420.                     (dest "s:")
  421.                     )
  422.                     (delete "ram:startup-sequence")
  423.  
  424.                     (textfile
  425.                     (dest "ram:user-startup")
  426.                     (include "s:user-startup")
  427.                     (append ";BEGIN EMPLANT \n")
  428.                     (append "execute >NIL: s:AssignEMPLANT \n")
  429.                     (append ";END EMPLANT \n")
  430.                     )
  431.                     (rename "s:user-startup" "s:user-startup.old")
  432.                     (copyfiles
  433.                     (help @copyfiles-help)
  434.                     (source "ram:user-startup")
  435.                     (dest "s:")
  436.                     )
  437.                     (delete "ram:user-startup")
  438.                )
  439.           )
  440.           )
  441.      )
  442.      )
  443. )
  444.  
  445. ;create mini-script files
  446.       
  447. (delete "s:SetupEMPLANT")
  448. (textfile
  449. (dest "s:SetupEMPLANT")
  450. (append "RsrvCold >NIL: \n")
  451. )
  452. (delete "s:AssignEMPLANT")
  453. (textfile
  454. (dest "s:AssignEMPLANT")
  455. (append "Assign EMPLANT: " EMPLANT_dir "\n")
  456. )
  457.  
  458.  
  459. (complete 100)
  460.  
  461. (message "\n\n\n\n"
  462. "A T T E N T I O N ! ! !\n\n"
  463. "You must turn off the power to your Amiga before attempting "
  464. "to run the emulation.  Simply rebooting will NOT work, you "
  465. "MUST physically turn off of the Amiga with its power switch. "
  466. "No exceptions."
  467. )          
  468.  
  469. (exit)
  470.