home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / disk / misc / mfs / mfs-install < prev    next >
Encoding:
Text File  |  1995-02-27  |  3.2 KB  |  160 lines
  1. (set @default-dest "SYS:")
  2.  
  3. (if (< (getversion "LIBS:version.library") (* 38 65536))
  4.     (abort "MultiFileSystem requires Workbench 2.1 or higher")
  5. )
  6.  
  7. (copylib
  8.     (prompt "Copying mfs-handler")
  9.     (help @copylib-help)
  10.     (source "l/mfs-handler")
  11.     (dest "L:")
  12.     (confirm)
  13. )
  14.  
  15. (copylib
  16.     (prompt "Copying MFSMount")
  17.     (help @copylib-help)
  18.     (source "c/MFSMount")
  19.     (dest "C:")
  20.     (confirm)
  21. )
  22.  
  23. (copylib
  24.     (prompt "Copying MFS commodity")
  25.     (help @copylib-help)
  26.     (source "Tools/Commodities/MFS")
  27.     (dest "SYS:Tools/Commodities")
  28.     (infos)
  29.     (confirm)
  30. )
  31.  
  32. (makedir "DEVS:DOSDrivers/DF0"
  33.     (prompt "Creating drawer \"DEVS:DOSDrivers/DF0\"")
  34.     (help @makedir-help)
  35.     (infos)
  36.     (confirm)
  37. )
  38.  
  39. (if (= (exists "DEVS:DOSDrivers/DF0") 2)
  40.     (
  41.         (rename "DEVS:DOSDrivers/PC0" "DEVS:DOSDrivers/DF0/PC0"
  42.             (prompt "Moving PC0 to drawer \"DEVS:DOSDrivers/DF0\"")
  43.             (help @rename-help)
  44.             (confirm)
  45.         )
  46.  
  47.         (if (= (exists "DEVS:DOSDrivers/DF0/PC0") 1)
  48.             (rename "DEVS:DOSDrivers/PC0.info" "DEVS:DOSDrivers/DF0/PC0.info")
  49.         )
  50.     )
  51. )
  52.  
  53. (if (getassign "DF1" "d")
  54.     (
  55.         (makedir "DEVS:DOSDrivers/DF1"
  56.             (prompt "Creating drawer \"DEVS:DOSDrivers/DF1\"")
  57.             (help @makedir-help)
  58.             (infos)
  59.             (confirm)
  60.         )
  61.  
  62.         (if (= (exists "DEVS:DOSDrivers/DF1") 2)
  63.             (
  64.                 (rename "DEVS:DOSDrivers/PC1" "DEVS:DOSDrivers/DF1/PC1"
  65.                     (prompt "Moving PC1 to drawer \"DEVS:DOSDrivers/DF1\"")
  66.                     (help @rename-help)
  67.                     (confirm)
  68.                 )
  69.  
  70.                 (if (= (exists "DEVS:DOSDrivers/DF1/PC1") 1)
  71.                     (rename "DEVS:DOSDrivers/PC1.info" "DEVS:DOSDrivers/DF1/PC1.info")
  72.                 )
  73.             )
  74.         )
  75.     )
  76. )
  77.  
  78. (if (getassign "DF2" "d")
  79.     (
  80.         (makedir "DEVS:DOSDrivers/DF2"
  81.             (prompt "Creating drawer \"DEVS:DOSDrivers/DF2\"")
  82.             (help @makedir-help)
  83.             (infos)
  84.             (confirm)
  85.         )
  86.  
  87.         (if (= (exists "DEVS:DOSDrivers/DF2") 2)
  88.             (
  89.                 (rename "DEVS:DOSDrivers/PC2" "DEVS:DOSDrivers/DF2/PC2"
  90.                     (prompt "Moving PC2 to drawer \"DEVS:DOSDrivers/DF2\"")
  91.                     (help @rename-help)
  92.                     (confirm)
  93.                 )
  94.  
  95.                 (if (= (exists "DEVS:DOSDrivers/DF2/PC2") 1)
  96.                     (rename "DEVS:DOSDrivers/PC2.info" "DEVS:DOSDrivers/DF2/PC2.info")
  97.                 )
  98.             )
  99.         )
  100.     )
  101. )
  102.  
  103. (if (getassign "DF3" "d")
  104.     (
  105.         (makedir "DEVS:DOSDrivers/DF3"
  106.             (prompt "Creating drawer \"DEVS:DOSDrivers/DF3\"")
  107.             (help @makedir-help)
  108.             (infos)
  109.             (confirm)
  110.         )
  111.  
  112.         (if (= (exists "DEVS:DOSDrivers/DF3") 2)
  113.             (
  114.                 (rename "DEVS:DOSDrivers/PC3" "DEVS:DOSDrivers/DF3/PC3"
  115.                     (prompt "Moving PC3 to drawer \"DEVS:DOSDrivers/DF3\"")
  116.                     (help @rename-help)
  117.                     (confirm)
  118.                 )
  119.  
  120.                 (if (= (exists "DEVS:DOSDrivers/DF3/PC3") 1)
  121.                     (rename "DEVS:DOSDrivers/PC3.info" "DEVS:DOSDrivers/DF3/PC3.info")
  122.                 )
  123.             )
  124.         )
  125.     )
  126. )
  127.  
  128. (startup "MultiFileSystem"
  129.     (prompt "Adding a line to S:user-startup")
  130.     (help @startup-help)
  131.     (command "C:MFSMount DEVS:DOSDrivers/~(#?.info)")
  132. )
  133.  
  134. (set doit
  135.     (askchoice
  136.         (prompt "Do you want to install the Format and DiskCopy replacements?")
  137.         (help @askchoice-help)
  138.         (choices "Yes" "No")
  139.         (default 0)
  140.     )
  141. )
  142.  
  143. (if (= doit 0)
  144.     (
  145.         (message "\n\nPlease insert the \"Amiga Workbench\" disk in DF0:")
  146.  
  147.         (run "c/mergex system/format.mergex DF0:System/Format SYS:System/Format"
  148.             (prompt "Patching Format")
  149.             (help @run-help)
  150.             (confirm)
  151.         )
  152.  
  153.         (run "c/mergex system/diskcopy.mergex DF0:System/DiskCopy SYS:System/DiskCopy"
  154.             (prompt "Patching DiskCopy")
  155.             (help @run-help)
  156.             (confirm)
  157.         )
  158.     )
  159. )
  160.