home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1996 July / AMIGA_1996_7.BIN / patches / pagestream / 3.0h2update / install-pagestream3.0h2 < prev    next >
Text File  |  1995-10-20  |  10KB  |  252 lines
  1. ;PAGESTREAM 3.0h2 ONLINE UPDATE PATCH INSTALLATION SCRIPT
  2. ;COPYRIGHT ©1995 SOFT-LOGIK PUBLISHING CORPORATION
  3.  
  4. ;QUIT PROGRAMS
  5. (message "\n\nIf PageStream3, BME2 or PageLiner are running now, quit them before continuing.")
  6. (run "avail flush" (safe))
  7.  
  8. ;USE ASSIGNS TO AVOID THE STUPID INSTALLER'S CRASH BUG
  9. (run "CD PageStream3:" (safe))
  10. (run "CD SoftLogik:" (safe))
  11. (run "assign fonts: softlogik:fonts add" (safe))
  12.  
  13. ;TEST TO SEE IF THEY HAVE PGS3H22.LHA
  14. (if (<> (exists "PGSpatch.LHA") 1)
  15.     (abort "You did not download the PGS3H22D.LHA archive. Download it and decompress it to the same directory as you decompressed this archive before continuing.")
  16. )
  17.  
  18. ;GET DESTINATION
  19. (set PGSdest (getassign "PageStream3" "a"))
  20. (set SLdest (getassign "SoftLogik" "a"))
  21. (if (OR (= PGSdest "") (= SLdest ""))
  22.     (abort "PageStream3: and/or SoftLogik: are not assigned. You must properly install PageStream3 before applying this update patch.")
  23. )
  24. (set @default-dest PGSdest)
  25.  
  26. ;MAKE REQUIRED DIRECTORIES IF THEY DON'T EXIST
  27. (if (<> (exists "PageStream3:PageStream3") 1)
  28.     (abort "PageStream3 is not in the PageStream3: directory. You must properly install PageStream3 before applying this update patch.")
  29. )
  30. (if (<> (exists "SoftLogik:Engines") 2) (makedir "SoftLogik:Engines" (infos)))
  31. (if (<> (exists "SoftLogik:Libs") 2) (makedir "SoftLogik:Libs" (infos)))
  32. (if (<> (exists "SoftLogik:Printers") 2) (makedir "SoftLogik:Printers" (infos)))
  33. (if (<> (exists "SoftLogik:Filters") 2) (makedir "SoftLogik:Filters" (infos)))
  34. (if (<> (exists "SoftLogik:Effects") 2) (makedir "SoftLogik:Effects" (infos)))
  35. (if (<> (exists "PageStream3:Help") 2) (makedir "PageStream3:Help" (infos)))
  36. (if (<> (exists "PageStream3:Macros") 2) (makedir "PageStream3:Macros" (infos)))
  37. (if (<> (exists "PageStream3:Macros/TextClips") 2) (makedir "PageStream3:Macros/TextClips" (infos)))
  38. (if (<> (exists "PageStream3:Documents") 2) (makedir "PageStream3:Documents" (infos)))
  39.  
  40. ;COPY THE LHEX PROGRAM TO RAM:
  41. (copyfiles (source "PageStream3Disk1:lhex") (dest "ram:") (nogauge))
  42.  
  43. ;SEE WHAT THE USER WANTS TO INSTALL
  44. (set ALLflag 0)
  45. (set SMAflag 1)
  46.  
  47. (message ("\n\nThis patch will update your German PageStream3.0h hard drive installation to version 3.0h2.\n\nYour original PageStream3 disks will not be modified by this update.\n\nYou MUST have 3.0h installed to use this patch."))
  48. (set install_mode
  49.     (askchoice
  50.         (prompt
  51.             "\nSelect an installation option.\n\nChoose `ALL' if you have a full PageStream3 installation. Choose `ONLY' if you have a custom or minimum PageStream3 installation.\n")
  52.         (choices "Install ALL improved files" "Update ONLY the currently installed files")
  53.         (default 0)
  54.         (help
  55.             "\n\nThe ONLY option will check to see if a file exists before copying the new one to your hard drive. Thus, if you deleted the HP.printer driver because you didn't need it, the new one will not be installed.")
  56.     )
  57. )
  58.  
  59.  
  60. ;UPDATE LIBS
  61. (working "Installing Updated Libraries...")
  62. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Libs x Libs.lha")
  63. (delete "Libs.LHA" (safe))
  64.  
  65. ;UPDATE PRINTER DRIVERS
  66. (working "Installing Updated Printer Drivers...")
  67. (if (OR (= install_mode ALLflag) (exists "SoftLogik:Printers/PostScript.printer"))
  68.     (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers x PrinterPS.LHA")
  69. )
  70. (delete "PrinterPS.LHA" (safe))
  71.  
  72. (if (OR (= install_mode ALLflag) (exists "SoftLogik:Printers/HP.printer"))
  73.     (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers x PrinterHP.LHA")
  74. )
  75. (delete "PrinterHP.LHA" (safe))
  76.  
  77. (if (OR (= install_mode ALLflag) (exists "SoftLogik:Printers/Epson.printer"))
  78.     (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers x PrinterEP.LHA")
  79. )
  80. (delete "PrinterEP.LHA" (safe))
  81.  
  82. (if (OR (= install_mode ALLflag) (exists "SoftLogik:Printers/IFFILBM.printer"))
  83.     (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers x PrinterIF.LHA")
  84. )
  85. (delete "PrinterIF.LHA" (safe))
  86.  
  87. (if (OR (= install_mode ALLflag) (exists "SoftLogik:Printers/Preference.printer"))
  88.     (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers x PrinterPR.LHA")
  89. )
  90. (delete "PrinterPR.LHA" (safe))
  91.  
  92. (if (OR (= install_mode ALLflag) (exists "SoftLogik:Printers/Fargo.printer"))
  93.     (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers x PrinterFA.LHA")
  94. )
  95. (delete "PrinterFA.LHA" (safe))
  96.  
  97. ;UPDATE ENGINES
  98. (working "Installing Updated Engines...")
  99. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Engines x Engines.lha")
  100. (delete "Engines.LHA" (safe))
  101.  
  102. ;UPDATE FILTERS
  103. (working "Installing Updated Filters...")
  104. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x Filters.lha")
  105. (delete "Filters.LHA" (safe))
  106.  
  107. (if (OR (= install_mode ALLflag) (exists "SoftLogik:Filters/Wordworth.tfilter"))
  108.     (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x FilterWW.lha")
  109. )
  110. (delete "FilterWW.LHA" (safe))
  111.  
  112. (if (OR (= install_mode ALLflag) (exists "SoftLogik:Filters/ArtExpression.gfilter"))
  113.     (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x FilterAE.lha")
  114. )
  115. (delete "FilterAE.LHA" (safe))
  116.  
  117. (if (OR (= install_mode ALLflag) (exists "SoftLogik:Filters/ProPage.dfilter"))
  118.     (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x FilterPP.lha")
  119. )
  120. (delete "FilterPP.LHA" (safe))
  121.  
  122. (if (OR (= install_mode ALLflag) (exists "SoftLogik:Filters/PCX.gfilter"))
  123.     (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x FilterPC.lha")
  124. )
  125. (delete "FilterPC.LHA" (safe))
  126.  
  127. (if (OR (= install_mode ALLflag) (exists "SoftLogik:Filters/TIFF.gfilter"))
  128.     (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x FilterTI.lha")
  129. )
  130. (delete "FilterTI.LHA" (safe))
  131.  
  132. ;UPDATE MACROS
  133. (if (exists "PageStream3:Macros/PageStream3.macros.bak")
  134.     (delete "PageStream3:Macros/PageStream3.macros.bak")
  135. )
  136. (if (exists "PageStream3:Macros/PageStream3.macros")
  137.     (rename "PageStream3:Macros/PageStream3.macros" "PageStream3:Macros/PageStream3.macros.bak")
  138. )
  139. (working "Installing Updated Macros...")
  140. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Macros x Macros.lha")
  141. (delete "Macros.LHA" (safe))
  142. (if (exists "PageStream3:Macros/PageStream3.macros.bak")
  143.     (message "\nYour PageStream3.macros file has been renamed to PageStream3.macros.bak and you now have the English macro files. If you have added your own macros to PageStream3, you will need to append them to the new macros file.\n\nRefer to page 339 for more information.")
  144. )
  145.  
  146.  
  147. ;UPDATE PAGELINER2
  148. (if (exists "PageStream3:PageLiner")
  149.     (
  150.         (working "Patching PageLiner to 2.0f...")
  151.         (run "ram:lhex >NIL: <NIL: -qfw=ram: x PLpatch.LHA")
  152.         (run "spatch >NIL: <NIL: -oPageStream3:PageLiner2.0f -pram:PageLiner.pch PageStream3:PageLiner")
  153.         (if (exists "PageStream3:PageLiner2.0f")
  154.             (
  155.                 (delete "PageStream3:PageLiner")
  156.                 (rename "PageStream3:PageLiner2.0f" "PageStream3:PageLiner")
  157.             )
  158.             (message "\nThe patch to PageLiner was not successful. Refer to the Read.1st! file for further instructions.")
  159.         )
  160.         (delete "ram:PageLiner.pch" (safe))
  161.     )
  162. )
  163. (delete "PLpatch.LHA" (safe))
  164.  
  165. ;UPDATE BME2
  166. (if (exists "PageStream3:BME")
  167.     (
  168.         (working "Patching BME to 2.0d...")
  169.         (run "ram:lhex >NIL: <NIL: -qfw=ram: x BMEpatch.LHA")
  170.         (run "spatch >NIL: <NIL: -oPageStream3:BME2.0d -pram:BME.pch PageStream3:BME")
  171.         (if (exists "PageStream3:BME2.0d")
  172.             (
  173.                 (delete "PageStream3:BME")
  174.                 (rename "PageStream3:BME2.0d" "PageStream3:BME")
  175.             )
  176.             (message "\nThe patch to BME was not successful. Refer to the Read.1st! file for further instructions.")
  177.         )
  178.         (delete "ram:BME.pch" (safe))
  179.     )
  180. )
  181. (delete "BMEpatch.LHA" (safe))
  182.  
  183. ;UPDATE PAGESTREAM3
  184. (working "Patching PageStream to 3.0h2...\n\nThis will take from one to five minutes.")
  185. (run "ram:lhex >NIL: <NIL: -qfw=ram: x PGSpatch.LHA")
  186. (delete "PGSpatch.LHA" (safe))
  187. (run "spatch >NIL: <NIL: -oPageStream3:PageStream3.0h2 -pram:PageStream.pch PageStream3:PageStream3")
  188. (if (exists "PageStream3:PageStream3.0h2")
  189.         (
  190.                 (delete "PageStream3:PageStream3")
  191.                 (rename "PageStream3:PageStream3.0h2" "PageStream3:PageStream3")
  192.         )
  193.         (abort "The patch to PageStream3 was not successful. Refer to the Read.1st! file for instructions.")
  194. )
  195. (delete "ram:PageStream.pch" (safe))
  196.  
  197. ;PATCH EXTRAS TO LATEST VERSION IF APPLICABLE
  198.  
  199. (run "ram:lhex >NIL: <NIL: -qfw=ram: x XTpatch.LHA")
  200. (set TTsize (getsize "SoftLogik:Engines/TTF.font"))
  201. (set WWsize (getsize "SoftLogik:Filters/Wordworth.dfilter"))
  202. (if (= TTsize 36704)
  203.     (
  204.         (working "Updating TrueType font engine to the latest version...")
  205.         (run "ram:spatch -oram:TTF.font -pram:TTF.pch SoftLogik:Engines/TTF.font")
  206.         (set TTsize (getsize "ram:TTF.font"))
  207.         (if (= TTsize 37176)
  208.             (copyfiles (source "ram:TTF.font") (dest "SoftLogik:Engines"))
  209.             (message "Could not update TrueType font engine.\n\nEmail technical support at tech@slpc.com for installation assistance.")
  210.         )
  211.     )
  212. )
  213. (if (= WWsize 33256)
  214.     (
  215.         (working "Updating Wordworth Document Filter to the latest version...")
  216.         (run "ram:spatch -oram:Wordworth.dfilter -pram:Wordworth.pch SoftLogik:Filters/Wordworth.dfilter")
  217.         (set WWsize (getsize "ram:Wordworth.dfilter"))
  218.         (if (= WWsize 34760)
  219.             (copyfiles (source "ram:Wordworth.dfilter") (dest "SoftLogik:Filters"))
  220.             (message "Could not update Wordworth document filter.\n\nContact Soft-Logik for installation assistance.")
  221.         )
  222.     )
  223. )
  224. (delete "XTpatch.LHA" (safe))
  225. (delete "ram:TTF.pch" (safe))
  226. (delete "ram:TTF.font" (safe))
  227. (delete "ram:Wordworth.pch" (safe))
  228. (delete "ram:Wordworth.dfilter" (safe))
  229.  
  230. ;INSTALL SAMPLE TEXTFX DOC
  231. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Documents x TextFXdoc.LHA")
  232. (delete "TextFXdoc.LHA" (safe))
  233.  
  234. ;DISPLAY README (Try 3 different ways!)
  235. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x Read.LHA")
  236. (delete "Read.LHA" (safe))
  237. (IF (> (run "Sys:Utilities/MultiView PageStream3:ReadMe.Now") 0)
  238.         (IF (> (run "Sys:Utilities/AmigaGuide PageStream3:ReadMe.Now") 0)
  239.                 (run "More PageStream3:ReadMe.Now")
  240.         )
  241. )
  242.  
  243. ;REMOVE THE LHEX PROGRAM
  244. (delete "ram:lhex" (safe))
  245. (delete "spatch" (safe))
  246. (delete "Install-PageStream3.0h2.info" (safe))
  247.  
  248. (message "NEW!\n\nThe new TextFX extension for PageStream3 allows you to warp text in shapes and bend it on curves! Now available separately for $50. ($40 for owners of Art Expression.)\n\nCall 1-800-829-8608 (314-256-9595) to order!")
  249.  
  250. ;FINALLY DONE
  251. (exit "PageStream 3.0h2 installed!")
  252.