home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Printer / ENPRINT.DMS / in.adf / Install < prev    next >
Encoding:
Text File  |  1995-10-03  |  11.9 KB  |  469 lines
  1. ;;
  2. ;;      $Source: Devel:epsonsc/inst/RCS/InstallScript,v $
  3. ;;      $Author: tsarna $
  4. ;;    $Revision: 37.16 $
  5. ;;        $Date: 1995/10/03 11:41:49 $
  6. ;;
  7. ;;        EnPrint Installation Script
  8. ;;
  9. ;;    (C) Copyright 1994,1995 Endicor Technologies, Inc.
  10. ;;        All Rights Reserved.
  11. ;;
  12.  
  13. ;$VER: Install 37.16
  14.  
  15. (complete 0)
  16.  
  17. ; prefs only if running 2.04 or better
  18. (if (< (/ (getversion) 65536) 37)
  19.    (abort "You must have Workbench 2.04 or later to use " 
  20.           "This version of the EnPrint software."
  21.    )
  22. )
  23.  
  24. (welcome "Welcome to the EnPrint installation utility\n"
  25. )
  26.  
  27. (set olddir (getassign "StylusColor"))
  28. (if
  29.    (or 
  30.       (or
  31.          (strlen olddir)
  32.          (exists "SYS:Prefs/StylusColor")
  33.       )
  34.       (or
  35.          (exists "ENVARC:StylusColor")
  36.          (exists "ENV:StylusColor")
  37.       )
  38.    )
  39.    (if
  40.       (askbool
  41.          (prompt
  42.             "\nYou have an old version of the Endicor Epson Stylus "
  43.             "Color driver installed. We strongly recommend "
  44.             "deleting this old version.\n\n "
  45.             "Would you like to do that now?"
  46.          )
  47.          (help
  48.             "Select \"Yes\" to delete the old V1.x"
  49.             "driver files or \"No\" to leave them."
  50.          )
  51.       )
  52.       (
  53.          (if (strlen olddir)
  54.             (makeassign "StylusColor")
  55.             (run (cat "Delete \"" olddir "(|.info)\" ALL FORCE QUIET"))
  56.          )
  57.          (run "Delete ENVARC:StylusColor ALL FORCE QUIET")
  58.          (run "Delete ENV:StylusColor ALL FORCE QUIET")
  59.          (run "Delete SYS:Prefs/StylusColor(|.info) ALL FORCE QUIET")
  60.          (run "Delete DEVS:printers/EpsonStylusColo(r|r020|r030|r040)(|.info) ALL FORCE QUIET")
  61.          (run "Delete DEVS:printers/EpsonStylusColor(|.info) ALL FORCE QUIET")
  62.          (run "Avail >NIL: FLUSH ALL FORCE QUIET")
  63.          (startup "EpsonStylusColor"
  64.             (prompt "Select \"Proceed\" to have the StylusColor: "
  65.                     "assign removed from your user-startup file "
  66.             )
  67.             (help "You should select \"Proceed\" to remove the "
  68.                   "Assignment of StylusColor: that no longer "
  69.                   "applies"
  70.             )
  71.             (command "; *** YOU CAN DELETE THESE THREE LINES NOW ***")
  72.          )
  73.       )
  74.    )
  75. )
  76.  
  77. (complete 10)
  78.  
  79. (set ddestdir
  80.    (tackon
  81.       (askdir
  82.          (prompt
  83.             "\nIn which disk (or drawer) should the EnPrint drawer "
  84.             "be created or updated? This drawer will hold the "
  85.             "documentation and other driver-related files. (the "
  86.             "driver itself will be installed in the standard location)"
  87.          )
  88.          (help @askdir-help)
  89.          (default "SYS:")
  90.       )
  91.       "EnPrint"
  92.    )
  93. )
  94. (if (NOT (exists ddestdir))
  95.    (makedir ddestdir
  96.       (infos)
  97.    )
  98. )
  99. (makeassign "EnPrint" ddestdir)
  100.  
  101. (complete 15)
  102.  
  103. (set btdef (getassign "BIG_T"))
  104. (if (NOT (strlen btdef))
  105.    (
  106.       (if (NOT (exists "EnPrint:BIG_T"))
  107.          (makedir "EnPrint:BIG_T")
  108.       )
  109.       (set btdef "EnPrint:BIG_T")
  110.    )  
  111. )
  112.  
  113. (set btdestdir
  114.    (askdir
  115.       (prompt
  116.          "A directory named BIG_T: is needed to store data when using spooling "
  117.          "and for the EnPrint printing program. This directory must "
  118.          "have space for ~20M when using spooling, and ~3M otherwise. "
  119.          "If your T: directory is on RAM: and has enough space you "
  120.      "may use it. Otherwise, create a directory somewhere else."
  121.       )
  122.       (help @askdir-help)
  123.       (default btdef)
  124.    )
  125. )
  126. (if (NOT (exists btdestdir))
  127.    (makedir btdestdir
  128.       (infos)
  129.    )
  130. )
  131. (makeassign "BIG_T" btdestdir)
  132.  
  133. (complete 20)
  134.  
  135. (if (exists "ENV:ESCP2OutSpecial")
  136.    (set ovar (getenv "ESCP2OutSpecial"))
  137.    ;else
  138.    (set ovar "{creq}")
  139. )
  140. (set odef 0)
  141. (if (patmatch "#?buffer#?" ovar)
  142.    (set odef (BITOR odef 1))
  143. )
  144. (if (patmatch "#?creq#?" ovar)
  145.    (set odef (BITOR odef 2))
  146. )
  147.  
  148. (set opts (askoptions
  149.    (prompt
  150.       "Two special options for EnPrint can be set by an environment "
  151.       "variable. The two options are graphics spooling, and an extra "
  152.       "cancel requester. Select Help below for more information.\n\n"
  153.       "Which options would you like set\nin your user-startup file?"
  154.    )
  155.    (help
  156.       "Graphics spooling:\n\n"
  157.       "This option causes graphics output to be buffered to disk "
  158.       "one page at a time during processing, then printed. This option "
  159.       "requires enough free space in the directory BIG_T: is assigned "
  160.       "to for storage of one complete page of graphics output. This "
  161.       "can be up to 20 megabytes of space for a full page 720dpi color "
  162.       "print, but usually compression will reduct this to 12-18 "
  163.       "megabytes. This option is useful if banding is experienced on "
  164.       "output due to the ink drying unevenly during processing delays. "
  165.       "This option avoids this problem.\n\n"
  166.       "Cancel requester:\n\n"
  167.       "This option causes an \"Abort Printing?\" requester to be "
  168.       "displayed on Workbench. This is useful when printing with "
  169.       "programs (like GraphicDump) that don't provide a cancel "
  170.       "requester of their own.\n\n"
  171.       "After installation, read EnPrint.guide for even more "
  172.       "information on these and other options availible. See "
  173.       "The section entitled \"Special Output Hooks\"."
  174.    )
  175.    (choices "Graphics Spooling (takes 20M)" "EnPrint Cancel Requester")
  176.    (default odef)
  177. ))
  178.  
  179. (if (and (in opts 0) (in opts 1))
  180.    (set hook "{creq}{buffer}{creq}")
  181.    (if (in opts 0)
  182.       (set hook "{buffer}")
  183.       (if (in opts 1)
  184.          (set hook "{creq}")
  185.          (set hook "")
  186.       )
  187.    )
  188. )
  189.  
  190. (set us (cat
  191.    "Assign EnPrint: " ddestdir "\nAssign BIG_T: " btdestdir "\n"
  192. ))
  193. (set stus (cat
  194.    "SetEnv ESCP2OutSpecial \"" hook "\"\n"
  195. ))
  196.  
  197. (startup "EnPrint"
  198.    (prompt
  199.       "\nSome instructions need to be added to the system startup file(s):\n\n"
  200.       ";BEGIN EnPrint\n" us ";END EnPrint\n"
  201.    )
  202.    (help "This will add some lines to user-startup script to assign "
  203.     "EnPrint: to the directory you specified before."
  204.    )
  205.    (command us)
  206. )
  207. (complete 25)
  208. (run stus)
  209. (startup "EnPrint_Stylus"
  210.    (prompt
  211.       "\nSome more instructions need to be added to the system startup file(s):\n\n"
  212.       ";BEGIN EnPrint_Stylus\n" stus ";END EnPrint_Stylus\n"
  213.    )
  214.    (help "This will add some lines to user-startup script to enable "
  215.     "the special output option(s) you have selected."
  216.    )
  217.    (command stus)
  218. )
  219.  
  220. (complete 30)
  221.  
  222. (working
  223.    "\n\nDecompressing files from floppy for installation."
  224.    "\n\nThis can take a while -- please be patient."
  225. )
  226. (if (run "LHEX -qfw=BIG_T: x EnPrint.LHA")
  227.    (abort "\nError dearchiving driver\nfiles -- floppy corrupt?!!!")
  228. )
  229.  
  230. (complete 40)
  231.  
  232. (copylib (source "BIG_T:arc/Drivers/EpsonStylusCOLOR")
  233.    (dest "DEVS:printers")
  234.    (optional "force" "askuser")
  235.    (infos)
  236. )
  237. (complete 42)
  238. (copylib (source "BIG_T:arc/Drivers/EpsonStylusCOLOR_II")
  239.    (dest "DEVS:printers")
  240.    (optional "force" "askuser")
  241.    (infos)
  242. )
  243. (complete 44)
  244. (copylib (source "BIG_T:arc/Drivers/EpsonStylusIIsBlack")
  245.    (dest "DEVS:printers")
  246.    (optional "force" "askuser")
  247.    (infos)
  248. )
  249. (complete 46)
  250. (copylib (source "BIG_T:arc/Drivers/EpsonStylusIIsColor")
  251.    (dest "DEVS:printers")
  252.    (optional "force" "askuser")
  253.    (infos)
  254. )
  255. (complete 48)
  256. (copylib (source "BIG_T:arc/Drivers/EpsonStylusPro")
  257.    (dest "DEVS:printers")
  258.    (optional "force" "askuser")
  259.    (infos)
  260. )
  261. (complete 50)
  262. (copylib (source "BIG_T:arc/Progs/EnPrintPrefs")
  263.    (dest "Sys:Prefs")
  264.    (optional "force" "askuser")
  265.    (infos)
  266. )
  267. (complete 52)
  268. (copylib (source "BIG_T:arc/Progs/ConfEd")
  269.    (dest ddestdir)
  270.    (optional "force" "askuser")
  271.    (infos)
  272. )
  273. (complete 54)
  274. (copylib (source "BIG_T:arc/Progs/StylusCalib")
  275.    (dest ddestdir)
  276.    (optional "force" "askuser")
  277.    (infos)
  278. )
  279. (complete 56)
  280. (copylib (source "BIG_T:arc/Progs/ESCP2Out")
  281.    (dest ddestdir)
  282.    (optional "force" "askuser")
  283.    (infos)
  284. )
  285. (complete 58)
  286. (copylib (source "BIG_T:arc/Progs/MakePic")
  287.    (dest ddestdir)
  288.    (optional "force" "askuser")
  289.    (infos)
  290. )
  291. (complete 60)
  292. (copylib (source "BIG_T:arc/Progs/IFFLoad")
  293.    (dest ddestdir)
  294.    (optional "force" "askuser")
  295.    (infos)
  296. )
  297. (complete 62)
  298. (copylib (source "BIG_T:arc/Progs/Manip")
  299.    (dest ddestdir)
  300.    (optional "force" "askuser")
  301.    (infos)
  302. )
  303. (complete 64)
  304. (copylib (source "BIG_T:arc/Progs/EnPrint")
  305.    (dest ddestdir)
  306.    (optional "force" "askuser")
  307.    (infos)
  308. )
  309. (complete 66)
  310. (copylib (source "BIG_T:arc/Progs/AspectWhiz")
  311.    (dest ddestdir)
  312.    (optional "force" "askuser")
  313.    (infos)
  314. )
  315. (complete 68)
  316. (copyfiles (source "BIG_T:arc/TimberWolf.IFF")
  317.    (dest ddestdir)
  318.    (optional "force" "askuser")
  319.    (infos)
  320. )
  321. (complete 70)
  322. (copylib (source "BIG_T:arc/EnPrint.guide")
  323.    (dest ddestdir)
  324.    (optional "force" "askuser")
  325.    (infos)
  326. )
  327. (complete 72)
  328. (copyfiles (source "BIG_T:arc/EnPrintStylus.FW")
  329.    (dest ddestdir)
  330.    (optional "force" "askuser")
  331.    (infos)
  332. )
  333. (complete 74)
  334. (copylib (source "BIG_T:arc/Epson.guide")
  335.    (dest ddestdir)
  336.    (optional "force" "askuser")
  337.    (infos)
  338. )
  339. (complete 76)
  340. (copylib (source "README.FIRST")
  341.    (dest ddestdir)
  342.    (optional "force" "askuser")
  343.    (infos)
  344. )
  345. (complete 78)
  346. (copylib (source "BIG_T:arc/Progs/EpsonSpecial")
  347.    (dest ddestdir)
  348.    (optional "force" "askuser")
  349.    (infos)
  350. )
  351.  
  352. (if (NOT (exists "EnPrint:Config"))
  353.    (makedir "EnPrint:Config")
  354. )
  355. (if (NOT (exists "EnPrint:Config/Defaults"))
  356.    (makedir "EnPrint:Config/Defaults")
  357. )
  358. (if (NOT (exists "EnPrint:Printers"))
  359.    (makedir "EnPrint:Printers")
  360. )
  361. (if (NOT (exists "EnPrint:Dithers"))
  362.    (makedir "EnPrint:Dithers")
  363. )
  364.  
  365. (complete 80)
  366.  
  367. (message 
  368.       "\nNext you will be asked which configuration files to install. "
  369.       "\n\nIf have already installed an older version of EnPrint "
  370.       "you probably have customized your configurations "
  371.       "and sould deselect the ones which you don't want overwritten. "
  372.       "If you are installing EnPrint for the first time you "
  373.       "should select all files so that the default configurations "
  374.       "will be installed."
  375. )
  376.  
  377. (copyfiles (source "BIG_T:arc/Config")
  378.    (prompt "Which configurations should be installed?")
  379.    (help
  380.       "Check a file if you want the install program to install it, "
  381.       "Potentially overwriting an already installed version in the "
  382.       "process. Make a file unchecked if you do not wish it to be "
  383.       "installed."
  384.    )
  385.    (dest "EnPrint:Config")
  386.    (optional "force" "askuser")
  387.    (confirm average)
  388.    (all)
  389. )
  390. (if (run "Copy BIG_T:arc/Config/#?.#? EnPrint:Config/Defaults")
  391.    (abort "Unable to install default configurations!")
  392. )
  393. (complete 82)
  394. (copyfiles (source "BIG_T:arc/Printers")
  395.    (dest "EnPrint:Printers")
  396.    (optional "force" "askuser")
  397.    (all)
  398. )
  399. (complete 84)
  400. (copyfiles (source "BIG_T:arc/Dithers")
  401.    (dest "EnPrint:Dithers")
  402.    (optional "force" "askuser")
  403.    (all)
  404. )
  405.  
  406. (complete 88)
  407. (copylib (source "Installer")
  408.    (dest "C:")
  409.    (optional "force" "askuser")
  410.    (infos)
  411. )
  412. (complete 90)
  413. (copylib (source "BIG_T:arc/ag/AmigaGuide")
  414.    (dest "Sys:Utilities")
  415.    (optional "force" "askuser")
  416.    (infos)
  417. )
  418. (complete 92)
  419. (copylib (source "BIG_T:arc/ag/WDisplay")
  420.    (dest "Sys:Utilities")
  421.    (optional "force" "askuser")
  422.    (infos)
  423. )
  424. (complete 94)
  425. (copylib (source "BIG_T:arc/ag/amigaguide.library")
  426.    (dest "libs:")
  427.    (optional "force" "askuser")
  428.    (infos)
  429. )
  430. (complete 96)
  431. (copylib (source "BIG_T:arc/ag/help.guide")
  432.    (dest "s:")
  433.    (optional "force" "askuser")
  434.    (infos)
  435. )
  436.  
  437. (complete 98)
  438.  
  439. (working "\nDeleteing temporary files.")
  440. (run "Delete BIG_T:arc ALL FORCE QUIET")
  441.  
  442. (complete 99)
  443.  
  444. (message
  445.    "\nNOTE: Several people have reported strange problems with printing "
  446.    "after installation which went away after powering the system down. "
  447.    "We believe we have traced this to an error in the Installer program "
  448.    "by Commodore. We recommend that you proceed to exit this program "
  449.    "and then reboot before continuing. We are looking for a better "
  450.    "workaround."
  451. )
  452.  
  453. (complete 100)
  454.  
  455. (run "Run <nil: >nil: Sys:Utilities/More EnPrint:README.FIRST")
  456.  
  457. (message
  458.    "\nInstallation Complete!\n\n"
  459.    "Please read the README.FIRST file now!\n\n"
  460.    "DON'T FORGET to send in your registration card for full "
  461.    "upgrade and techincal support!"
  462. )
  463.  
  464. ;(message
  465. ;   "\nBETA NOTE:\n\nPlease read the file README.BETA on the disk!"
  466. ;)
  467.    
  468. (exit (quiet))
  469.