home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / CD32 / CD32EMULATORV2.3.DMS / in.adf / Install-CDFS < prev    next >
Encoding:
Text File  |  1994-12-02  |  25.0 KB  |  936 lines
  1. ;$VER: CacheCDFS Install 42.1 (03.12.94)
  2. ;Copyright ©1993/1994 Elaborate Bytes, Oliver Kastl
  3.  
  4. ( set #ControlDefault 1 )
  5.  
  6. (onerror
  7.     (makeassign "CacheCDFSInst" (safe))
  8.     (makeassign "CacheCDFS" (safe))
  9. )
  10.  
  11. (set #autoMount 1)
  12. (set #CDDevice_NC "CD0" )
  13. (set #instEjectCD 1)
  14. (set #ReplaceOld 1 )
  15. (set #DeleteOld 1 )
  16.  
  17. (set #wbversion (getversion "libs:version.library"))
  18. (set #wbversion (/ #wbversion 65536) )
  19.  
  20. (complete 0)
  21.  
  22. (if (< #wbversion 37)
  23.     (abort "\n\nAmigaDOS 2.04 or higher is required for CacheCDFS! "
  24.              "\n\nAn upgrade will be needed for your Amiga." )
  25. )
  26.  
  27.  
  28. (if (< (getdiskspace "SYS:") 61440)
  29.     (abort "\n\nApproximately 60K of disk space is needed on your SYS: volume."
  30.              "\n\nYou only have " (/ (getdiskspace "SYS:") 1024)    "K free.\n\n"
  31.              "Delete or transfer some files from the SYS: volume and try again." )
  32. )
  33.  
  34. (askdisk
  35.     (prompt "\n\nPlease insert the disk labeled \"InstallCDFS\".")
  36.     (help    "\n\nThe CacheCDFS FileSystem and other utilities will be copied "
  37.             "from this disk into your system.")
  38.     (dest  "InstallCDFS")
  39.     (newname "CacheCDFSInst")
  40. )
  41.  
  42. (working "\n\nLaunching the FindCD program to find "
  43.          "the Device and Unit of your CD-Rom..."
  44.          "\n\nYou may let the program scan for CD-Roms by clicking \"SCAN\"."
  45.          "\n\nChoose the device and unit and click \"USE\"!")
  46.  
  47. (set #Product ( run "CacheCDFSInst:FindCD" ( safe ) ) )
  48.  
  49. (if ( NOT (= #Product 0) )
  50.     (
  51.     (abort "\nCould not find your CDROM hardware!"
  52.              "\n\nYou must select device and unit within the FindCD program "
  53.              "and click the \"USE\" gadget!" 
  54.           "\n\nYou may let the program scan for CD-Roms by clicking \"SCAN\"."
  55.              "\n\nPlease check your hardware installation and try again! " )
  56.     )
  57. )
  58.  
  59.  
  60. ( set #CDROM_Device (getenv "CDROM_Device" ))
  61. ( set #CDROM_Unit (+ (getenv "CDROM_Unit" )))
  62.  
  63.  
  64. (if (= #CDROM_Device "tandemcd.device")
  65.     (
  66.     (if (exists "CacheCDFSInst:devs/tandemcd.device")
  67.         (
  68.         (copylib
  69.             (source "CacheCDFSInst:devs/tandemcd.device")
  70.             (dest "DEVS:")
  71.         ))
  72.     )
  73.     (set #ControlDefault 2)
  74.     )
  75. )
  76.  
  77. (if (= #CDROM_Device "tandemcd_pcmcia.device")
  78.     (
  79.     (if (exists "CacheCDFSInst:devs/tandemcd_pcmcia.device")
  80.         (
  81.         (copylib
  82.             (source "CacheCDFSInst:devs/tandemcd_pcmcia.device")
  83.             (dest "DEVS:")
  84.         ))
  85.     )
  86.     (set #ControlDefault 2)
  87.     )
  88. )
  89.  
  90.  
  91. (if (= #CDROM_Device "tandemat.device")
  92.     (
  93.     (if (exists "CacheCDFSInst:devs/tandemat.device")
  94.         (
  95.         (copylib
  96.             (source "CacheCDFSInst:devs/tandemat.device")
  97.             (dest "DEVS:")
  98.         ))
  99.     )
  100.     (set #ControlDefault 2)
  101.     )
  102. )
  103.  
  104. (if (= #CDROM_Device "tandemat_pcmcia.device")
  105.     (
  106.     (if (exists "CacheCDFSInst:devs/tandemat_pcmcia.device")
  107.         (
  108.         (copylib
  109.             (source "CacheCDFSInst:devs/tandemat_pcmcia.device")
  110.             (dest "DEVS:")
  111.         ))
  112.     )
  113.     (set #ControlDefault 2)
  114.     )
  115. )
  116.  
  117. (if (= #CDROM_Device "tandemcd_come.device")
  118.     (
  119.     (if (exists "CacheCDFSInst:devs/tandemcd_come.device")
  120.         (
  121.         (copylib
  122.             (source "CacheCDFSInst:devs/tandemcd_come.device")
  123.             (dest "DEVS:")
  124.         ))
  125.     )
  126.     (set #ControlDefault 2)
  127.     )
  128. )
  129.  
  130. (if (= #CDROM_Device "oktagon.device")
  131.     ((set #ControlDefault 2))
  132. )
  133.  
  134. (if (= #CDROM_Device "scsi.device")
  135.     ((set #ControlDefault 5))
  136. )
  137.  
  138. (if (= #CDROM_Device "gvpscsi.device")
  139.     ((set #ControlDefault 8))
  140. )
  141.  
  142.  
  143. (set #theirlevel @user-level )
  144. (user 2)
  145.  
  146.  
  147. (set #ControlMask 
  148.     (askoptions
  149.         (prompt "FileSystem -> Controller Configuration")
  150.         (choices "Use SCSI Direct" 
  151.                     "Use Diskchange Interrupt"
  152.                     "Use 24 Bit-DMA"
  153.                     "Use Motor off" )
  154.         (help    "Here You may define the behaviour of the CacheCDFS accessing the " 
  155.               #CDROM_Device ". If you are "
  156.                 "not sure what option is correct, leave the default settings as they "
  157.                 "are. They should work in most cases.\n"
  158.                 "These options may later be altered using the CDFSprefs program. "
  159.                 "However, wrong settings may lead to crashes if you mount the "
  160.                 "FileSystem!\n"
  161.                 "IF YOU HAVE A TANDEMCD / CD1200: YOU MUST DISABLE \"USE SCSI DIRECT\"!\n\n"
  162.  
  163.                 "\"Use SCSI Direct\"\n"
  164.                 "Choose this option if the SCSI controller using "
  165.                 #CDROM_Device " cannot handle DoIO reads with 2048 bytes sectorsize "
  166.                 "correctly (e.g. ALFII, controllers from Progressive Peripherals, Emplant).\n"
  167.                 "Do NOT choose this option if your controller is a modern, well designed "
  168.                 "SCSI controller (ALFIII, Oktagon, A2091, A3000, A4091) or if it is "
  169.                 "NO SCSI controller at all (TandemCD)!\n\n"
  170.  
  171.                 "\"Use Diskchange Interrupt\"\n"
  172.                 "Choose this option if the controller using "
  173.                 #CDROM_Device " does properly handle TD_ADDCHANGEINT and TD_REMCHANGEINT. "
  174.                 "All modern controllers should do this (ALFIII, Oktagon, TandemCD, "
  175.                 "GVP Series-II)\n"
  176.                 "Do NOT choose this option if your controller has problems with diskchange "
  177.                 "Interrupts (old ROM versions of A2091, A3000, A4091, controllers from "
  178.                 "Progressive Peripherals, Emplant)\n\n"
  179.  
  180.                 "\"Use 24 Bit-DMA\"\n"
  181.                 "Choose this option if the SCSI or CD controller using "
  182.                 #CDROM_Device " is a 24-Bit (Zorro II) DMA device "
  183.                 "(e.g. A2091 from Commodore).\n"
  184.                 "Do NOT choose this option if your controller is a 32-Bit "
  185.                 "(Zorro III) device (e.g. FastLane, A3000, A4091), or a non-DMA controller "
  186.                 "like the majority of controllers (e.g. ALFII/III, Oktagon, "
  187.                 "TandemCD, Golem, IVS TrumpCard, Supra) as it will lead to "
  188.                 "decreased performance!\n\n"
  189.  
  190.                 "\"Use Motor off\"\n"
  191.                 "Choose this option if the SCSI controller using "
  192.                 #CDROM_Device " is a GVP controller with \"Faaast\" roms.\n"
  193.                 "Do NOT choose this option if your controller is anything else."
  194.             )
  195.         (default #ControlDefault)
  196.     )
  197. )
  198.  
  199. (set #BufMemType  "1 /* MEMF_PUBLIC */\n" )
  200. (set #BufMemInt  1 )
  201.  
  202. (if (IN #ControlMask 2)
  203.     (
  204.     (set #BufMemType  "513 /* MEMF_PUBLIC|MEMF_24BITDMA */\n")
  205.     (set #BufMemInt  513 )
  206.     )
  207. )
  208.  
  209. (set #Control "\"MD=0 LC=1 DC=8 L LV AL LFC=1")
  210.  
  211.  
  212. (if (IN #ControlMask 0)
  213.     (
  214.     (set #Control (cat #Control " S"))
  215.     )
  216. )
  217.  
  218. (if (NOT (IN #ControlMask 1))
  219.     (
  220.     (set #Control (cat #Control " NC"))
  221.     )
  222. )
  223.  
  224. (if (IN #ControlMask 3)
  225.     (
  226.     (set #Control (cat #Control " M"))
  227.     )
  228. )
  229.  
  230.  
  231. (set #Control (cat #Control "\"\n"))
  232.  
  233.  
  234. (set #autoMount
  235.     (askbool
  236.         (prompt "\n\nWould you like the CD-Rom drive automatically mounted upon bootup?\n\n"
  237.                 "NOTE: If you are unsure if your controller will work correctly with "
  238.                 "the controller settings, you should select \"NO\"!" )
  239.         (help "\n\nIf you would like, the appropriate commands will be added to your user-startup file to automatically mount CacheCDFS.")
  240.         (default 1)
  241.     )
  242. )
  243.  
  244.  
  245. (if #autoMount
  246.     (set #mountDirectory "DEVS:DOSDrivers")
  247. )
  248.  
  249. (if (not #autoMount)
  250.     (set #mountDirectory "SYS:Storage/DOSDrivers")
  251. )
  252.  
  253. (set #CDDevice_NC
  254.     (askstring
  255.         (prompt "\n\nWhat is the name for the AmigaDOS device?\n\n"
  256.         "(The trailing colon MUST NOT be present)" 
  257.         )
  258.         (default #CDDevice_NC )
  259.         (help "\n\nThis is the name under which AmigaDOS will reference the "
  260.                 "CD-Rom as.  While usually "
  261.                 #CDDevice_NC
  262.                 ", it can be any name you choose. "
  263.                 "\n\nThe trailing : (colon) MUST NOT be present." )
  264.     )
  265. )
  266.  
  267.  
  268. (set #CDDevice (cat #CDDevice_NC ":") )
  269.  
  270.  
  271.  
  272. (set #CDFSDir
  273.     (askdir
  274.         (prompt "\n\nSpecify the directory in which the CacheCDFS support programs will be placed:" )
  275.         (help "\n\nCacheCDFS contains a number of support programs.  This directory will specifiy where the programs will be placed.  If you need, create a separate directory for the files.")
  276.         (default @default-dest)
  277.         (newpath)
  278.     )
  279. )
  280.  
  281. (set @default-dest #CDFSDir)
  282.  
  283. (makeassign "CacheCDFS" #CDFSDir (safe))
  284.  
  285. (user #theirlevel)
  286.  
  287. (protect "l:CacheCDFS" "rwed" )
  288. (copylib
  289.     (prompt "\n\nCopying CDROM FileSystem to the l: directory.\n" )
  290.     (source "CacheCDFSInst:l/CacheCDFS")
  291.     (dest "l:")
  292.     (confirm)
  293.     (help "\n\nThis will copy over the CDROM FileSystem program to your "
  294.         "l: directory\n\nThis is an essential step in the installation "
  295.         "process." )
  296. )
  297.  
  298.  
  299. (if (exists "L:TandemCacheCDFS" )
  300.     (
  301.     ((set #DeleteOld
  302.         (askbool
  303.         (prompt "\n\n\"L:TandemCacheCDFS\" is present from an earlier installation."
  304.                 "\n\nDelete \"L:TandemCacheCDFS\" ?" )
  305.         (help "\n\nClick \"YES\" if \"L:TandemCacheCDFS\" should be "
  306.               "deleted and \"NO\" if not!")
  307.         (default 1)
  308.         )
  309.     ))
  310.  
  311.     (if #DeleteOld
  312.     ((protect "L:TandemCacheCDFS" "rwed" )
  313.     (delete "L:TandemCacheCDFS" )
  314.     ))
  315. ))
  316.  
  317. (if (exists "L:DemoCacheCDFS" )
  318.     (
  319.     ((set #DeleteOld
  320.         (askbool
  321.         (prompt "\n\n\"L:DemoCacheCDFS\" is present from an earlier installation."
  322.                 "\n\nDelete \"L:DemoCacheCDFS\" ?" )
  323.         (help "\n\nClick \"YES\" if \"L:DemoCacheCDFS\" should be "
  324.               "deleted and \"NO\" if not!")
  325.         (default 1)
  326.         )
  327.     ))
  328.  
  329.     (if #DeleteOld
  330.     ((protect "L:DemoCacheCDFS" "rwed" )
  331.     (delete "L:DemoCacheCDFS" )
  332.     ))
  333. ))
  334.  
  335. (complete 10 )
  336.  
  337.     (copylib
  338.             (source "CacheCDFSInst:C/Mount")
  339.             (dest "C:")
  340.     )
  341.  
  342.  
  343. (if (< #wbversion 38)
  344.     ((set #startupCommand (cat "mount " #CDDevice " from devs:MountList." #CDDevice_NC "\n") )
  345.     (if #autoMount
  346.         ((protect "S:User-Sequence" "srwed" )
  347.  
  348.         (startup "CacheCDFS"
  349.             (command #startupCommand )
  350.             (prompt "\n\nInserting MOUNT command into the startup-sequence")
  351.             (help "\n\nThe command \"MOUNT " #CDDevice " FROM DEVS:MOUNTLIST." #CDDevice_NC "\" is being inserted into your "
  352.                     "\"S:Startup-Sequence\" or \"S:User-Startup\" file to "
  353.                     "automatically start CacheCDFS upon bootup." )
  354.         ))
  355.     )
  356.     (if (not #autoMount)
  357.         ((protect "S:User-Sequence" "srwed" )
  358.  
  359.         (startup "CacheCDFS"
  360.             (prompt "\n\nRemoving MOUNT command from the startup-sequence")
  361.             (help "\n\nThe command \"MOUNT " #CDDevice " FROM DEVS:MOUNTLIST." #CDDevice_NC "\" will be removed from your "
  362.                     "\"S:Startup-Sequence\" or \"S:User-Startup\" file because you didn't "
  363.                     "want to automatically start CacheCDFS upon bootup." )
  364.         ))
  365.     )
  366.  
  367.     (if (exists (cat "devs:MountList." #CDDevice_NC ) )
  368.         ((set #ReplaceOld
  369.             (askbool
  370.             (prompt "\n\nDEVS:MountList." #CDDevice_NC" already exists!\n\n"
  371.                     "Do you want to replace it?" )
  372.             (help "\n\nClick \"YES\" if DEVS:MountList."#CDDevice_NC" should be "
  373.                   "replaced and \"NO\" if not!")
  374.             (default 1)
  375.             )
  376.         ))
  377.     )
  378.  
  379.     (if #ReplaceOld
  380.  
  381.     ((protect (cat "devs:MountList." #CDDevice_NC) "rwed" )
  382.  
  383.     (textfile
  384.         (dest (cat "devs:MountList." #CDDevice_NC) )
  385.         (append "/***************************************************************/\n"
  386.                   "/*  CacheCDFS mountlist entry © 1993 Elaborate Bytes, O. Kastl */\n"
  387.                   "/***************************************************************/\n")
  388.         (append #CDDevice "\n")
  389.         (append "    FileSystem     = L:CacheCDFS /* The name of the game */\n" )
  390.         (append "    Device         = \""#CDROM_Device"\" /* Name of exec device driver */\n" )
  391.         (append "    Unit           = "#CDROM_Unit" /* exec device unit */\n" )
  392.         (append "    Flags          = 0 /* OpenDevice flags */\n")
  393.         (append "    BlocksPerTrack = 351000 /* Unused */\n")
  394.         (append "    BlockSize      = 2048 /* True, but unused */\n")
  395.         (append "    Mask           = 0x7ffffffe /* Memory mask for direct read */\n")
  396.         (append "    MaxTransfer    = 0x100000 /* Maximum amount of bytes for direct read */\n")
  397.         (append "    Reserved       = 0 /* Unused */\n")
  398.         (append "    Interleave     = 0 /* Unused */\n")
  399.         (append "    LowCyl         = 0 /* Unused */\n")
  400.         (append "    HighCyl        = 0 /* Unused */\n")
  401.         (append "    Surfaces       = 1 /* Unused */\n")
  402.         (append "    Buffers        = 50 /* Number of cache lines */\n")
  403.         (append "    BufMemType     = " #BufMemType )
  404.         (append "    GlobVec        = -1 /* Do not change! */\n")
  405.         (append "    Mount          = 1 /* Mount it immediately */\n")
  406.         (append "    Priority       = 10 /* Priority of FileSystem task */\n")
  407.         (append "    DosType        = 0x43443031 /* Currently unused */\n")
  408.         (append "    StackSize      = 3000 /* Minimum stack required is 3000! */\n")
  409.         (append "    Control        = "#Control)
  410.         (append "   /* The Control field is for special adjustments */\n")
  411.         (append "   /* L/S convert all file names to lowercase */\n")
  412.         (append "   /* LV/S convert volume names to lowercase */\n")
  413.         (append "   /* AL/S Auto-Lower converts only non-Amiga CDs */\n")
  414.         (append "   /* LFC/N start converting at this character */\n")
  415.         (append "   /* LC/N/A number of blocks per cache line */\n")
  416.         (append "   /* DC/N/A number of cache lines for the data cache */\n")
  417.         (append "   /* MD/N/A number of blocks, when starting direct read, not using */\n")
  418.         (append "   /* the cache. 0 will be a reasonable default (LC*DC+1) */\n")
  419.         (append "   /* S/S Do SCSI direct commands, no Trackdisk like commands! */\n")
  420.         (append "   /* NC/S Do NOT use TD_ADDCHANGEINT, poll for DiskChange! */\n")
  421.         (append "   /* M/S Issue a TD_MOTOR (OFF) command after read */\n")
  422.         (append "#\n")
  423.     )
  424.     (protect (cat "devs:MountList." #CDDevice_NC) "-e" )
  425.     )
  426.     )
  427. ))
  428.  
  429.  
  430.  
  431. (if (> #wbversion 37)
  432.     
  433.     ((copylib
  434.             (source "CacheCDFSInst:C/SetPatch")
  435.             (dest "C:")
  436.     )
  437.  
  438.     (if (exists (tackon #mountDirectory #CDDevice_NC ) )
  439.         ((set #ReplaceOld
  440.             (askbool
  441.             (prompt "\n\n" (tackon #mountDirectory #CDDevice_NC) " already exists!\n\n"
  442.                     "Do you want to replace it?" )
  443.             (help "\n\nClick \"YES\" if " (tackon #mountDirectory #CDDevice_NC) " should be "
  444.                   "replaced and \"NO\" if not!")
  445.             (default 1)
  446.             )
  447.         ))
  448.     )
  449.  
  450.     (if #ReplaceOld
  451.  
  452.     ((protect (tackon #mountDirectory #CDDevice_NC) "rwed" )
  453.  
  454.     (textfile
  455.         (dest (tackon #mountDirectory #CDDevice_NC) )
  456.         (append "/***************************************************************/\n"
  457.                   "/*  CacheCDFS mountlist entry © 1993 Elaborate Bytes, O. Kastl */\n"
  458.                   "/***************************************************************/\n")
  459.         (append "    FileSystem     = L:CacheCDFS /* The name of the game */\n" )
  460.         (append "    Device         = \""#CDROM_Device"\" /* Name of exec device driver */\n" )
  461.         (append "    Unit           = "#CDROM_Unit" /* exec device unit */\n" )
  462.         (append "    Flags          = 0 /* OpenDevice flags */\n")
  463.         (append "    BlocksPerTrack = 351000 /* Unused */\n")
  464.         (append "    BlockSize      = 2048 /* True, but unused */\n")
  465.         (append "    Mask           = 0x7ffffffe /* Memory mask for direct read */\n")
  466.         (append "    MaxTransfer    = 0x100000 /* Maximum amount of bytes for direct read */\n")
  467.         (append "    Reserved       = 0 /* Unused */\n")
  468.         (append "    Interleave     = 0 /* Unused */\n")
  469.         (append "    LowCyl         = 0 /* Unused */\n")
  470.         (append "    HighCyl        = 0 /* Unused */\n")
  471.         (append "    Surfaces       = 1 /* Unused */\n")
  472.         (append "    Buffers        = 50 /* Number of cache lines */\n")
  473.         (append "    BufMemType     = " #BufMemType )
  474.         (append "    GlobVec        = -1 /* Do not change! */\n")
  475.         (append "    Mount          = 1 /* Mount it immediately */\n")
  476.         (append "    Priority       = 10 /* Priority of FileSystem task */\n")
  477.         (append "    DosType        = 0x43443031 /* Currently unused */\n")
  478.         (append "    StackSize      = 3000 /* Minimum stack required is 3000! */\n")
  479.         (append "    Control        = "#Control)
  480.         (append "   /* The Control field is for special adjustments */\n")
  481.         (append "   /* L/S convert all file/volume names to lowercase */\n")
  482.         (append "   /* LV/S convert volume names to lowercase */\n")
  483.         (append "   /* AL/S Auto-Lower converts only non-Amiga CDs */\n")
  484.         (append "   /* LFC/N start converting at this character */\n")
  485.         (append "   /* LC/N/A number of blocks per cache line */\n")
  486.         (append "   /* DC/N/A number of cache lines for the data cache */\n")
  487.         (append "   /* MD/N/A number of blocks, when starting direct read, not using */\n")
  488.         (append "   /* the cache. 0 will be a reasonable default (LC*DC+1) */\n")
  489.         (append "   /* S/S Do SCSI direct commands, no Trackdisk like commands! */\n")
  490.         (append "   /* NC/S Do NOT use TD_ADDCHANGEINT, poll for DiskChange! */\n")
  491.         (append "   /* M/S Issue a TD_MOTOR (OFF) command after read */\n")
  492.     )
  493.  
  494.     (protect (tackon #mountDirectory #CDDevice_NC) "-e" )
  495.  
  496.     (copyfiles
  497.             (prompt "\n\nCopying Mountlist icon")
  498.             (source "CacheCDFSInst:Devs/DOSDrivers/CD0.info")
  499.             (dest #mountDirectory)
  500.             (newname (cat #CDDevice_NC ".info"))
  501.             (help "\n\nThis will copy over an icon for the mountlist file.")
  502.             (confirm)
  503.  
  504.     ))
  505.     )
  506.  
  507.     (protect "S:User-Sequence" "srwed" )
  508.     (startup "CacheCDFS"
  509.         (prompt "\n\nRemoving MOUNT command from the startup-sequence")
  510.         (help "\n\nThe command \"MOUNT " #CDDevice " FROM DEVS:MOUNTLIST." #CDDevice_NC "\" will be removed from your "
  511.                 "\"S:Startup-Sequence\" or \"S:User-Startup\" file if it is present from "
  512.                 "an earlier installation." )
  513.         )
  514.  
  515.     (if ( exists ( cat "devs:MountList." #CDDevice_NC ) )
  516.  
  517.         ((protect (cat "devs:MountList." #CDDevice_NC) "rwed " )
  518.         (delete (cat "devs:MountList." #CDDevice_NC)
  519.             (prompt "\n\nDeleting file \"DEVS:MOUNTLIST." #CDDevice_NC "\"" )
  520.             (help "\n\nThe file \"DEVS:MOUNTLIST." #CDDevice_NC "\" will be deleted "
  521.                     "if it is present from an earlier installation." )
  522.             (confirm)
  523.             )
  524.         ))
  525.     )
  526. )
  527.  
  528.  
  529. (complete 40 )
  530.  
  531. (set #instCDFSprefs
  532.     (askbool
  533.         (prompt "\n\nShould the CDFSprefs utility be installed?")
  534.         (help "\n\nThis will copy over the CDFSprefs utility "
  535.                 "to your SYS:Prefs directory\n\nIf you do not "
  536.                 "wish the CDFSprefs program to be transferred to your system, "
  537.                 "skip this step.\n" )
  538.         (default 1)
  539.     )
  540. )
  541.  
  542. (if #instCDFSprefs
  543.     ((protect "CacheCDFS:CDFSprefs" "rwed" )
  544.     (protect "CacheCDFS:CDFSprefs.info" "rwed" )
  545.     (copylib
  546.         (prompt "\n\nCopying the CDFSprefs program to the "
  547.                   "SYS:Prefs directory." )
  548.         (source "CacheCDFSInst:CDFSprefs")
  549.         (dest "SYS:Prefs")
  550.         (infos)
  551.         (help "\n\nThis will copy over the CDFSprefs "
  552.                 "program to your SYS:Prefs directory\n\nIf you do not "
  553.                 "wish the CDFSprefs program to be transferred to your system, "
  554.                 "skip this step." )
  555.         (confirm)
  556.     )
  557.  
  558.     (tooltype
  559.         (dest "SYS:Prefs/CDFSprefs" )
  560.         (noposition)
  561.     )
  562. ))
  563.  
  564. (complete 60 )
  565.  
  566. (set #instKillDev
  567.     (askbool
  568.         (prompt "\n\nShould the KillDev utility be installed?")
  569.         (help "\n\nThis will copy over the KillDev utility "
  570.                 "to your CacheCDFS directory\n\nIf you do not "
  571.                 "wish the KillDev program to be transferred to your system, "
  572.                 "skip this step." )
  573.         (default 1)
  574.     )
  575. )
  576.  
  577. (if #instKillDev
  578.     ((protect "CacheCDFS:KillDev" "rwed" )
  579.     (protect "CacheCDFS:KillDev.info" "rwed" )
  580.     (copylib
  581.         (prompt "\n\nCopying the KillDev program to the "
  582.                   "CacheCDFS: directory.\n" )
  583.         (source "CacheCDFSInst:KillDev")
  584.         (dest "CacheCDFS:")
  585.         (infos)
  586.         (help "\n\nThis will copy over the KillDev "
  587.                 "program to your CacheCDFS: directory\n\nIf you do not "
  588.                 "wish the KillDev program to be transferred to your system, "
  589.                 "skip this step." )
  590.         (confirm)
  591.     )
  592.  
  593.     (tooltype
  594.         (dest "CacheCDFS:KillDev" )
  595.         (settooltype "DOSDEV" #CDDevice )
  596.         (noposition)
  597.     )
  598. ))
  599.  
  600. (set #instFindCD
  601.     (askbool
  602.         (prompt "\n\nShould the FindCD utility be installed?")
  603.         (help "\n\nThis will copy over the FindCD utility "
  604.                 "to your CacheCDFS directory\n\nIf you do not "
  605.                 "wish the FindCD program to be transferred to your system, "
  606.                 "skip this step." )
  607.         (default 1)
  608.     )
  609. )
  610.  
  611. (if #instFindCD
  612.     ((protect "CacheCDFS:FindCD" "rwed" )
  613.     (protect "CacheCDFS:FindCD.info" "rwed" )
  614.     (copylib
  615.         (prompt "\n\nCopying the FindCD program to the "
  616.                   "CacheCDFS: directory.\n" )
  617.         (source "CacheCDFSInst:FindCD")
  618.         (dest "CacheCDFS:")
  619.         (infos)
  620.         (help "\n\nThis will copy over the FindCD "
  621.                 "program to your CacheCDFS: directory\n\nIf you do not "
  622.                 "wish the FindCD program to be transferred to your system, "
  623.                 "skip this step." )
  624.         (confirm)
  625.     )
  626.  
  627.     (tooltype
  628.         (dest "CacheCDFS:FindCD" )
  629.         (noposition)
  630.     )
  631.  
  632. ))
  633.  
  634. (complete 70 )
  635.  
  636.  
  637. (if #instEjectCD
  638.     (
  639.     (set #instEjectCD
  640.     (askbool
  641.         (prompt "\n\nShould the EjectCD utility be installed?")
  642.         (help "\n\nThis will copy over the EjectCD utility "
  643.                 "to your CDFS directory\n\nIf you do not "
  644.                 "wish the EjectCD program to be transferred to your system, "
  645.                 "skip this step.\n" )
  646.         (default 1)
  647.     )
  648.     ))
  649. )
  650.  
  651. (if #instEjectCD
  652.     ((protect "CacheCDFS:EjectCD" "rwed" )
  653.     (protect "CacheCDFS:EjectCD.info" "rwed" )
  654.     (copylib
  655.         (prompt "\n\nCopying EjectCD program to the "
  656.                   "CacheCDFS: directory.\n" )
  657.         (source "CacheCDFSInst:EjectCD")
  658.         (dest "CacheCDFS:")
  659.         (help "\n\nThis will copy over the EjectCD utility "
  660.                 "to your CacheCDFS directory\n\nIf you do not "
  661.                 "wish the EjectCD program to be transferred to your system, "
  662.                 "skip this step.\n" )
  663.         (infos)
  664.         (confirm)
  665.     )
  666.  
  667.     (tooltype
  668.         (dest "CacheCDFS:EjectCD" )
  669.         (settooltype "DEVICE" #CDROM_Device )
  670.         (settooltype "UNIT" ("%ld" #CDROM_Unit ))
  671.         (noposition)
  672.     )
  673. ))
  674.  
  675. (set #instPlayCD 0)
  676.  
  677. (if (exists "CacheCDFSInst:PlayCD.lha")
  678.  
  679. ((set #instPlayCD
  680.     (askbool
  681.         (prompt "\n\nShould the PlayCD Audio Player be installed?")
  682.         (help "\n\nThis will copy over the PlayCD drawer "
  683.                 "to your CacheCDFS directory\n\nIf you do not "
  684.                 "wish the PlayCD drawer to be transferred to your system, "
  685.                 "skip this step." )
  686.         (default 1)
  687.     )
  688. )))
  689.  
  690. (if #instPlayCD
  691.     (
  692.  
  693.     (working "\n\nDecrunching PlayCD...."
  694.              "\n\nPlease Wait!")
  695.  
  696.     ( if (NOT @pretend )
  697.     (( if ( run "CacheCDFSInst:c/lhex -afFqw=CacheCDFS: e CacheCDFSInst:PlayCD.lha" )
  698.         (
  699.         (abort "\n\nUnable to decrunch PlayCD!")
  700.         )
  701.     )))
  702.  
  703.  
  704.     (tooltype
  705.         (dest "CacheCDFS:PlayCD/PlayCD" )
  706.         (settooltype "DEVICE" #CDROM_Device )
  707.         (settooltype "UNIT" ("%ld" #CDROM_Unit ))
  708.         (settooltype "BUFMEMTYPE" ("%ld" #BufMemInt ))
  709.     )
  710.     )
  711. )
  712.  
  713. (complete 80 )
  714.  
  715. (set #instJukebox 0)
  716.  
  717. (if (exists "CacheCDFSInst:JukeBox.lha")
  718. ((set #instJukebox
  719.     (askbool
  720.         (prompt "\n\nShould the JukeBox Audio Player be installed?")
  721.         (help "\n\nThis will copy over the JukeBox drawer "
  722.                 "to your CacheCDFS directory\n\nIf you do not "
  723.                 "wish the JukeBox drawer to be transferred to your system, "
  724.                 "skip this step." )
  725.         (default 1)
  726.     )
  727. )))
  728.  
  729. (if #instJukebox
  730.     (
  731.     (protect "CacheCDFS:JukeBox" "rwed" )
  732.     (protect "CacheCDFS:JukeBox.info" "rwed" )
  733.     (makedir "CacheCDFS:JukeBox" 
  734.         (infos)
  735.         (prompt "\n\nCreating drawer for JukeBox\n")
  736.         (help "\n\nThis will create a drawer for the JukeBox "
  737.                 "Audio Player." )
  738.     )
  739.  
  740.  
  741. (working "\n\nDecrunching Jukebox...."
  742.          "\n\nPlease Wait!")
  743.  
  744.     ( if (NOT @pretend )
  745.     (( if ( run "CacheCDFSInst:c/lhex -qafFw=CacheCDFS:Jukebox e CacheCDFSInst:JukeBox.lha" )
  746.         (
  747.         (makeassign "JukeBox")
  748.         (abort "\n\nUnable to decrunch JukeBox!")
  749.         )
  750.     )))
  751.  
  752.  
  753.     (tooltype
  754.         (dest "CacheCDFS:Jukebox/JukeBox" )
  755.         (settooltype "DEVICE" #CDROM_Device )
  756.         (settooltype "UNIT" ("%ld" #CDROM_Unit ))
  757.     )
  758.  
  759. ))
  760.  
  761. (set #instYACDP 0)
  762.  
  763. (if (AND (exists "CacheCDFSInst:YACDP.lha") (exists "CacheCDFSInst:LIBS/reqtools.library"))
  764. ((set #instYACDP
  765.     (askbool
  766.         (prompt "\n\nShould the YACDP Audio Player be installed?")
  767.         (help "\n\nThis will copy over the YACDP drawer "
  768.                 "to your CacheCDFS directory\n\nIf you do not "
  769.                 "wish the YACDP drawer to be transferred to your system, "
  770.                 "skip this step." )
  771.         (default 1)
  772.     )
  773. )))
  774.  
  775. (if #instYACDP
  776.     (
  777.  
  778.     (protect "LIBS:reqtools.library" "rwed" )
  779.  
  780.     (copylib
  781.     (source "CacheCDFSInst:LIBS/reqtools.library")
  782.     (dest "LIBS:"))
  783.  
  784.     (working "\n\nDecrunching YACDP...."
  785.              "\n\nPlease Wait!")
  786.  
  787.     ( if (NOT @pretend )
  788.     (( if ( run "CacheCDFSInst:c/lhex -afFqw=CacheCDFS: e CacheCDFSInst:YACDP.lha" )
  789.         (
  790.         (abort "\n\nUnable to decrunch YACDP!")
  791.         )
  792.     )))
  793.  
  794.  
  795.     (tooltype
  796.         (dest "CacheCDFS:YACDP/YACDP" )
  797.         (settooltype "DEVICE" #CDROM_Device )
  798.         (settooltype "UNIT" ("%ld" #CDROM_Unit ))
  799.     )
  800.     )
  801. )
  802.  
  803.  
  804. (if (AND (> #wbversion 38) (exists "CacheCDFSInst:CD32.lha"))
  805.  
  806.     ((complete 90 )
  807.  
  808.     (set #instCD32
  809.         (askbool
  810.             (prompt "\n\nShould the CD32-Emulator be installed?"
  811.                     "\n\nNote that the CD32-Emulator is completely useless "
  812.                     "if you don't have an Amiga with AA/AGA chipset and "
  813.                     "at least Kickstart version 3.0!")
  814.             (help "\n\nThis will copy over the CD32 drawer "
  815.                     "to your CacheCDFS directory\n\nIf you do not "
  816.                     "wish the CD32 drawer to be transferred to your system, "
  817.                     "skip this step.")
  818.             (default 1)
  819.         )
  820.     )
  821.  
  822.     (if #instCD32
  823.         (
  824.         (working "\n\nDecrunching CD32...."
  825.                  "\n\nPlease Wait!")
  826.  
  827.         ( if (NOT @pretend )
  828.         (( if ( run "CacheCDFSInst:c/lhex -afFqw=CacheCDFS: e CacheCDFSInst:CD32.lha" )
  829.             (
  830.             (abort "\n\nUnable to decrunch CD32!")
  831.             )
  832.         )))
  833.  
  834.  
  835.         ( set #CDROM_Blocks 2 )
  836.  
  837.         (if (= #CDROM_Device "tandemcd.device")
  838.             (
  839.             ( set #CDROM_Blocks 4 )
  840.             )
  841.         )
  842.  
  843.         (if (= #CDROM_Device "tandemat.device")
  844.             (
  845.             ( set #CDROM_Blocks 4 )
  846.             )
  847.         )
  848.  
  849.         (if (= #CDROM_Device "tandemcd_pcmcia.device")
  850.             (
  851.             ( set #CDROM_Blocks 4 )
  852.             )
  853.         )
  854.  
  855.         (if (= #CDROM_Device "tandemcd_come.device")
  856.             (
  857.             ( set #CDROM_Blocks 4 )
  858.             )
  859.         )
  860.  
  861.         (tooltype
  862.             (dest "CacheCDFS:CD32/CD32" )
  863.             (settooltype "BLOCKS" ("%ld" #CDROM_Blocks ) )
  864.             (settooltype "DOSDEV" #CDDevice_NC)
  865.             )
  866.  
  867.         (set #instInst
  868.             (askbool
  869.             (prompt "\n\nShould the Installer utility be installed?"
  870.                     "\n\nNote that you only need to install the Installer "
  871.                     "utility if you don't have it already installed on "
  872.                     "your harddisk in your actual path!")
  873.             (help "\n\nThis will copy over the Installer utility "
  874.                     "to your CD32 directory\n\nIf you do not "
  875.                     "wish the Installer utility to be transferred to your system, "
  876.                     "skip this step." )
  877.             (default 1)
  878.             )
  879.         )
  880.  
  881.         (if #instInst
  882.             (
  883.             (copyfiles
  884.             (source "CacheCDFSInst:Installer")
  885.             (dest "CacheCDFS:CD32")
  886.             )
  887.         )
  888.         )
  889.     ))
  890. ))
  891.  
  892. (complete 100 )
  893.  
  894. (set #doMount
  895.     (askbool
  896.     (prompt "\n\nMount " #CDDevice " now ?")
  897.     (help "Select, if " #CDDevice " should be mounted now, or not.")
  898.     (default 1)
  899.     )
  900. )
  901.  
  902. (set #MountError 0)
  903.  
  904. ( if @pretend ((set #doMount 0))) 
  905.  
  906. (if #doMount
  907.     (
  908.     (run (cat "CacheCDFSInst:KillDev " #CDDevice " Quiet"))
  909.     (if (< #wbversion 38)
  910.         (
  911.         (set #MountError
  912.             (run (cat "C:Mount " #CDDevice " from devs:MountList." #CDDevice_NC ))
  913.         )
  914.         )
  915.     )
  916.  
  917.     (if (> #wbversion 37)
  918.         (
  919.         (set #MountError
  920.             (run (cat "C:Mount " #CDDevice  ))
  921.         )
  922.         )
  923.     )
  924.     )
  925. )
  926.  
  927. (if #MountError
  928.     (
  929.     (message "\n\nMounting " #CDDevice " failed!")
  930.     )
  931. )
  932.  
  933. (makeassign "CacheCDFSInst" (safe))
  934. (makeassign "CacheCDFS" (safe))
  935.  
  936.