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