home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / printer / v42printer / v42printerinstall < prev   
Encoding:
Text File  |  1995-02-27  |  5.9 KB  |  228 lines
  1. ; $VER: V42PrinterInstall 42.1 (30.1.94)
  2. ; Script to install V42 printer.device
  3.  
  4. (complete 0)
  5.  
  6. (set #introduction
  7. (cat "\n\nThis program lets you install V42 of the printer.device "
  8.      "onto a hard drive.\nV42 of the printer.device provides "
  9.      "multi-threaded multi-printer support, printer management, "
  10.      "and printing to files."
  11. ))
  12.  
  13. (set #important
  14. (cat "\n***************************************************** "
  15.      "* IMPORTANT IMPORTANT IMPORTANT IMPORTANT IMPORTANT * "
  16.      "***************************************************** "
  17.      "*               THIS IS BETA MATERIAL               * "
  18.      "*      DO NOT DISCLOSE, DISCUSS, OR DISTRIBUTE      * "
  19.      "*                   THIS SOFTWARE                   * "
  20.      "*         REPORT ALL BUGS TO BRIAN GONTOWSKI        * "
  21.      "***************************************************** "
  22.      "\nPlease abort this install and delete these files if "
  23.      "you can't understand or comply with these instructions\n\n"
  24. ))
  25.  
  26. (set #ask-old
  27. (cat "Do you wish to save the V3x printer files?"
  28. ))
  29.  
  30. (set #ask-old-help
  31. (cat "\nAnswering YES will make the install save the old printer "
  32.      "related files to a specified directory.  Otherwise, the files "
  33.      "will be deleted.\n\n"
  34. ))
  35.  
  36. (set #which-old
  37. (cat "In which directory should the OLD printer files be placed?"
  38. ))
  39.  
  40. (set #which-old-help
  41. (cat "\nThis section lets you choose on which hard drive directory the "
  42.      "old printer.device related files should go.\n\n"
  43.      @askdir-help
  44. ))
  45.  
  46. (set #which-pd
  47. (cat "In which directory should the V42 printer.device be installed?"
  48. ))
  49.  
  50. (set #which-pd-help
  51. (cat "\nThis section lets you choose on which hard drive directory the "
  52.      "V42 printer.device will be installed. This should normally go "
  53.      "to the same directory as the V3x printer.device.\n\n"
  54.      @askdir-help
  55. ))
  56.  
  57. (set #which-prefs
  58. (cat "In which directory should the V42 Printer prefs be installed?"
  59. ))
  60.  
  61. (set #which-prefs-help
  62. (cat "\nThis section lets you choose on which hard drive directory the "
  63.      "V42 Printer prefs will be installed. This should normally go "
  64.      "to the same directory as the V3x preferences programs.\n\n"
  65.      @askdir-help
  66. ))
  67.  
  68. (set #which-prtmgr
  69. (cat "In which directory should the V42 Printer prefs be installed?"
  70. ))
  71.  
  72. (set #which-prtmgr-help
  73. (cat "\nThis section lets you choose on which hard drive directory the "
  74.      "V42 Printer Manager will be installed.\n\n"
  75.      @askdir-help
  76. ))
  77.  
  78. (set #opt-ports
  79. (cat "Which printer ports do you wish to have installed?"
  80. ))
  81.  
  82. (message #introduction)
  83.  
  84. (message #important)
  85.  
  86. (set saveold (askbool (prompt #ask-old)
  87.                     (help #ask-old-help)))
  88.  
  89. (if (= saveold 1)
  90. (
  91.    (set targetold (askdir (prompt #which-old)
  92.                     (help @askdir-help)
  93.                     (default "SYS:OLD")
  94.                     (disk)))
  95. ))
  96.  
  97. (set targetpd (askdir (prompt #which-pd)
  98.                     (help #which-pd-help)
  99.                     (default "DEVS:")
  100.                     (disk)))
  101.  
  102. (set targetprefs (askdir (prompt #which-prefs)
  103.                     (help #which-prefs-help)
  104.                     (default "SYS:Prefs")
  105.                     (disk)))
  106.  
  107. (set targetprtmgr (askdir (prompt #which-prtmgr)
  108.                     (help #which-prtmgr-help)
  109.                     (default "SYS:System")
  110.                     (disk)))
  111.  
  112. (set whichports (askoptions (prompt #opt-ports)
  113.                     (choices "Amiga Internal Parallel"
  114.                              "Amiga Internal Serial"
  115.                              "Print to File"
  116.                              "Envoy")
  117.                     (help)))
  118.  
  119. (set @default-dest targetpd)
  120.  
  121. (if (= saveold 1)
  122. (
  123.    (if (exists (tackon targetpd "printer.device"))
  124.    (
  125.       (copyfiles (source (tackon targetpd "printer.device")) (dest targetold))
  126.    ))
  127.    (complete 5)
  128.  
  129.    (if (exists (tackon targetprefs "Printer"))
  130.    (
  131.       (copyfiles (source (tackon targetprefs "Printer")) (dest targetold))
  132.    ))
  133.    (complete 10)
  134.  
  135.    (if (exists (tackon targetprefs "Printer.info"))
  136.    (
  137.       (copyfiles (source (tackon targetprefs "Printer.info")) (dest targetold))
  138.    ))
  139.    (complete 15)
  140.  
  141.    (if (exists (tackon targetprefs "PrinterGfx"))
  142.    (
  143.       (copyfiles (source (tackon targetprefs "PrinterGfx")) (dest targetold))
  144.    ))
  145.    (complete 20)
  146.  
  147.    (if (exists (tackon targetprefs "PrinterGfx.info"))
  148.    (
  149.       (copyfiles (source (tackon targetprefs "PrinterGfx.info")) (dest targetold))
  150.    ))
  151.    (complete 25)
  152. ))
  153.  
  154.    (if (exists (tackon targetpd "printer.device"))
  155.    (
  156.       (delete (tackon targetpd "printer.device"))
  157.    ))
  158. (complete 30)
  159.  
  160.    (if (exists (tackon targetprefs "Printer"))
  161.    (
  162.       (delete (tackon targetprefs "Printer"))
  163.    ))
  164. (complete 35)
  165.  
  166.    (if (exists (tackon targetprefs "Printer.info"))
  167.    (
  168.       (delete (tackon targetprefs "Printer.info"))
  169.    ))
  170. (complete 40)
  171.  
  172.    (if (exists (tackon targetprefs "PrinterGfx"))
  173.    (
  174.       (delete (tackon targetprefs "PrinterGfx"))
  175.    ))
  176. (complete 45)
  177.  
  178.    (if (exists (tackon targetprefs "PrinterGfx.info"))
  179.    (
  180.       (delete (tackon targetprefs "PrinterGfx.info"))
  181.    ))
  182. (complete 50)
  183.  
  184. (copyfiles (source "printer.device") (dest targetpd))
  185. (complete 55)
  186.  
  187. (copyfiles (source "Printer") (dest targetprefs))
  188. (complete 60)
  189.  
  190. (copyfiles (source "Printer.info") (dest targetprefs))
  191. (complete 65)
  192.  
  193. (copyfiles (source "PrtMgr") (dest targetprtmgr))
  194. (complete 70)
  195.  
  196. (copyfiles (source "PrtMgr.info") (dest targetprtmgr))
  197. (complete 75)
  198.  
  199. (if (not (exists (tackon targetpd "printerports")))
  200. (
  201.    (makedir (tackon targetpd "printerports") (infos))
  202. ))
  203. (complete 80)
  204.  
  205. (if (in whichports 0)
  206. (
  207.    (copyfiles (source "printerports/Parallel 0.info") (dest (tackon targetpd "printerports")))
  208. ))
  209. (complete 85)
  210.  
  211. (if (in whichports 1)
  212. (
  213.    (copyfiles (source "printerports/Serial 0.info") (dest (tackon targetpd "printerports")))
  214. ))
  215. (complete 90)
  216.  
  217. (if (in whichports 2)
  218. (
  219.    (copyfiles (source "printerports/File.info") (dest (tackon targetpd "printerports")))
  220. ))
  221. (complete 95)
  222.  
  223. (if (in whichports 3)
  224. (
  225.    (copyfiles (source "printerports/Envoy.info") (dest (tackon targetpd "printerports")))
  226. ))
  227. (complete 100)
  228.