home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Archiver / ARCHNDL1.LHA / ARCHandler / Install < prev    next >
Encoding:
Text File  |  1994-07-06  |  6.8 KB  |  310 lines
  1. ; Installer installation script for the arc-handler
  2. ;$VER:Install 37.5 (27.6.94)
  3.  
  4. (set @default-dest "")
  5.  
  6. (set handler "L/arc-handler")
  7. (set flusharc "C/FlushARC")
  8. (set default-archivename "Archives")
  9. (set default-tempdir "T:")
  10. (set mountlist-header "S/MountList-header")
  11. (set temp-dosdriver "T:ARC")
  12. (set dosdriver-icon "ARC.info")
  13.  
  14. ;================================================================================
  15. ; English strings
  16.  
  17. (set #bad-kick
  18.   (cat "You must have Kickstart 2.04 or higher installed to use the ARCHandler!")
  19. )
  20.  
  21. (set #welcome
  22.   (cat "\nARCHandler installation\n\n\n"
  23.              "This script installs ARCHandler 1.0\n"
  24.              "on your Amiga.\n\n\n\n"
  25.              "ARCHandler © 1994 Rafael D'Halleweyn\n"
  26.              "All rights reserved")
  27. )
  28.  
  29. (set #copying-handler "Copying the arc-handler to your L: drawer.")
  30.  
  31. (set #copying-handler-help
  32.   (cat "For the ARCHandler to work the arc-handler has to be copied "
  33.        "to the L: directory. All FileSystems and handlers reside in "
  34.        "this directory.\n\n")
  35. )
  36.  
  37. (set #flusharc-dest "Where do you want to install the FlushARC command?")
  38.  
  39. (set #flusharc-dest-help
  40.   (cat "The FlushARC command allows you to manually flush the buffers "
  41.        "of the arc-handler.\n\n")
  42. )
  43.  
  44. (set #ask-archivename "Enter the name for the ARC volume:")
  45.  
  46. (set #ask-archivename-help
  47.   (cat "The ARC volume name is the name that will appear under the icon "
  48.        "in the Workbench window.\n\n")
  49. )
  50.  
  51. (set #ask-lhacommand "Please select the path to the LhA command:")
  52.  
  53. (set #ask-lhacommand-help
  54.   (cat "For the ARCHandler to work correctly it has to known where "
  55.        "it can find the LhA command. If you want to use a resident "
  56.        "LhA (=faster ARCHandler) use an empty 'Current Drawer' field "
  57.        "and make sure LhA is resident.\n\n")
  58. )
  59.  
  60. (set #ask-tempdir "Please select a drawer to store temporary files:")
  61.  
  62. (set #ask-tempdir-help
  63.   (cat "For the ARCHandler to work correctly it has to have a place to store "
  64.        "its temporary files. All the files that are extracted from the "
  65.        "archives are placed in this drawer. If you have lots of RAM you "
  66.        "should use a drawer on the Ram Disk, otherwise use a drawer on "
  67.        "disk.\n\n")
  68. )
  69.  
  70. (set #make-mountlist "Adding ARC to DEVS:MountList.")
  71.  
  72. (set #make-mountlist-help
  73.   (cat "For the (Workbench 2.04) Mount command to be able to mount "
  74.        "FileSystems and Handlers, it has to know certain things about "
  75.        "these handlers. These things are described in DEVS:MountList.\n\n")
  76. )
  77.  
  78. (set #make-dosdriver-help
  79.   (cat "For the (Workbench 2.1 and up) Mount command to be able to mount "
  80.        "File Systems and Handlers, it has to know certain things about "
  81.        "these handlers. These things are described by files in the "
  82.        "SYS:Storage/DOSDrivers/ and DEVS:DOSDrivers/ drawers.\n\n")
  83. )
  84.  
  85. (set #startup
  86.   (cat "Always mount ARC: on start-up?")
  87. )
  88.  
  89. (set #startup-help
  90.   (cat "This will add the line 'Mount ARC:' to your S:User-Startup, so "
  91.        "that ARC: is always mounted.")
  92. )
  93.  
  94. (set #dosdriver-dest
  95.   (cat "Always mount ARC: on start-up?")
  96. )
  97.  
  98. (set #dosdriver-dest-help
  99.   (cat "This will place the DOSDriver in the DEVS:DOSDrivers/ drawer, "
  100.        "otherwise it's placed in the SYS:Storage/DOSDrivers/ drawer.")
  101. )
  102.  
  103. ;================================================================================
  104. ; make sure we are running under a 2.04 ROM
  105.  
  106. (if (< (/ (getversion) 65536) 37)
  107.   (
  108.     (abort #bad-kick)
  109.   )
  110. )
  111.  
  112. ;================================================================================
  113. ;
  114.  
  115. (complete 0)
  116. (protect "S/WhichLhA" 64)
  117.  
  118. (message #welcome)
  119.  
  120. (welcome)
  121.  
  122. (copylib
  123.   (prompt "\n" #copying-handler)
  124.   (help #copying-handler-help @copylib-help)
  125.   (source handler)
  126.   (dest "L:")
  127.   (confirm)
  128. )
  129.  
  130. (complete 25)
  131.  
  132. (set flusharc-dest
  133.   (askdir
  134.     (prompt #flusharc-dest)
  135.     (help #flusharc-dest-help @askdir-help)
  136.     (default "C:")
  137.   )
  138. )
  139.  
  140. (copylib
  141.   (prompt "\nCopying the FlushARC command to your " flusharc-dest " drawer.")
  142.   (help @copylib-help)
  143.   (source flusharc)
  144.   (dest flusharc-dest)
  145.   (confirm)
  146. )
  147.  
  148. (complete 50)
  149.  
  150. ; now comes the tricky bit, we're going to make the MountList (2.04)
  151. ; or the DOSDriver Mount script (2.1 and higher).
  152.  
  153. (set old_level @user-level)
  154. (user 2)
  155.  
  156. (set archivename
  157.   (askstring
  158.     (prompt "\n" #ask-archivename)
  159.     (help #ask-archivename-help @askstring-help)
  160.     (default default-archivename)
  161.   )
  162. )
  163.  
  164. (complete 60)
  165.  
  166. (user 0)
  167. (execute "S/WhichLhA"
  168.   (safe)
  169. )
  170. (user 2)
  171. (set default-lhacommand (getenv "lhapath"))
  172.  
  173. (set lhacommand
  174.   (askfile
  175.     (prompt #ask-lhacommand)
  176.     (help #ask-lhacommand-help @askfile-help)
  177.     (default default-lhacommand)
  178.   )
  179. )
  180.  
  181. (complete 70)
  182.  
  183. (set tempdir
  184.   (askdir
  185.     (prompt #ask-tempdir)
  186.     (help #ask-tempdir-help @askdir-help)
  187.     (default default-tempdir)
  188.     (disk)
  189.   )
  190. )
  191.  
  192. (complete 80)
  193.  
  194. (set startup-msg
  195.   (cat
  196.     "\"NAME='"
  197.     archivename
  198.     "' LHA='"
  199.     lhacommand
  200.     "' TEMPDIR='"
  201.     tempdir
  202.     "' BUFFERS=2\""
  203.   )
  204. )
  205.  
  206. ; Make DOSDriver
  207. (textfile
  208.   (dest temp-dosdriver)
  209.   (include mountlist-header)
  210.   (append
  211.     (cat
  212.       "Handler        = L:arc-handler\n"
  213.       "Startup        = "
  214.         startup-msg
  215.         "\n"
  216.       "Mount        = 1\n"
  217.       "StackSize    = 4096\n"
  218.       "GlobVec        = -1\n")
  219.     (safe)
  220.   )
  221. )
  222.  
  223. (complete 90)
  224.  
  225. (if (< (/ (getversion "LIBS:version.library") 65536) 38)
  226.   (
  227.  
  228. ; Workbench 2.04: transform DOSDriver to MountList entry.
  229.  
  230.     (if (< old_level 2)
  231.       (user 0)
  232.       (user 2)
  233.     )
  234.  
  235.     (run "C/MountListEntry ARC: " temp-dosdriver
  236.       (prompt "\n" #make-mountlist)
  237.       (help #make-mountlist-help)
  238.       (confirm)
  239.     )
  240.  
  241.     (complete 95)
  242.     (user 2)
  243.  
  244.     (startup
  245.       "ARCHandler"
  246.       (prompt #startup)
  247.       (help #startup-help @startup-help)
  248.       (command "Mount >NIL: ARC:")
  249.     )
  250.  
  251.   )
  252.   (
  253.  
  254. ; Workbench 2.1 or higher: move DOSDriver to SYS:Storage/DOSDriver and add
  255. ; an icon with the right tooltypes.
  256.  
  257.     (set dosdriver-dest
  258.       (if (askbool
  259.             (prompt "\n" #dosdriver-dest)
  260.             (help #dosdriver-dest-help)
  261.             (default 0)
  262.             (choices "Yes" "No")
  263.           )
  264.         "DEVS:DOSDrivers/"
  265.         "SYS:Storage/DOSDrivers/"
  266.       ))
  267.  
  268.     (if (< old_level 2)
  269.       (user 0)
  270.       (user 2)
  271.     )
  272.  
  273.     (if (askbool
  274.           (prompt "\n" "Adding ARC to the " dosdriver-dest " drawer")
  275.           (help #make-dosdriver-help)
  276.           (default 1)
  277.           (choices "Proceed" "Skip This Part")
  278.         )
  279.       (
  280.  
  281.         (copyfiles
  282.           (source temp-dosdriver)
  283.           (dest dosdriver-dest))
  284.         (complete 94)
  285.         (copyfiles
  286.           (source dosdriver-icon)
  287.           (dest dosdriver-dest))
  288.         (complete 98)
  289.         (tooltype
  290.           (dest (cat dosdriver-dest "ARC"))
  291.           (setdefaulttool "C:Mount")
  292.           (noposition)
  293.           (setstack 4096)
  294.           (settooltype "Startup" startup-msg)
  295.           (settooltype "Mount" "1")
  296.           (settooltype "Window"))
  297.         (protect (cat dosdriver-dest "ARC") 2)
  298.       )
  299.     )
  300.  
  301.   )
  302. )
  303.  
  304. (delete temp-dosdriver
  305.   (safe)
  306. )
  307.  
  308. (complete 100)
  309. (exit)
  310.