home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / WordProcessors / PGS3I.LZX / 3.0iUpdate / Install-PageStream3.0i < prev    next >
Encoding:
Text File  |  1996-03-09  |  9.7 KB  |  257 lines
  1. ;PAGESTREAM 3.0i ONLINE UPDATE PATCH INSTALLATION SCRIPT
  2. ;COPYRIGHT ©1996 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 PGS32I.LHA
  14. (if (<> (exists "PGSpatch.LHA") 1)
  15.     (abort "You did not download the PGS32I.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.0h2 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.0h2 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 "SoftLogik:Fonts") 2) (makedir "SoftLogik:Fonts" (infos)))
  36. (if (<> (exists "PageStream3:Help") 2) (makedir "PageStream3:Help" (infos)))
  37. (if (<> (exists "PageStream3:Macros") 2) (makedir "PageStream3:Macros" (infos)))
  38. (if (<> (exists "PageStream3:Macros/TextClips") 2) (makedir "PageStream3:Macros/TextClips" (infos)))
  39. (if (<> (exists "PageStream3:Documents") 2) (makedir "PageStream3:Documents" (infos)))
  40.  
  41. ;COPY THE LHEX PROGRAM TO RAM:
  42. (copyfiles (source "PageStream3Disk1:lhex") (dest "ram:") (nogauge))
  43.  
  44. ;CONFIRM 3.0h2 IS INSTALLED
  45. (message ("\n\nThis patch will update your PageStream3.0h2 hard drive installation to version 3.0i.\n\nYour original PageStream3 disks will not be modified by this update.\n\nYou MUST have 3.0h2 installed to use this patch."))
  46.  
  47. ;UPDATE LIBS
  48. (working "Installing Updated Libraries...")
  49. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Libs x Libs.lha")
  50. (delete "Libs.LHA" (safe))
  51.  
  52. ;UPDATE HELP
  53. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Help x Tips.LHA")
  54. (delete "Tips.LHA" (safe))
  55. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Help x Help.LHA")
  56. (delete "Help.LHA" (safe))
  57.  
  58. ;UPDATE PRINTER DRIVERS
  59. (working "Installing Updated Printer Drivers...")
  60. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers x Printers.LHA")
  61. (delete "Printers.LHA" (safe))
  62.  
  63. ;UPDATE ENGINES
  64. (working "Installing Updated Engines...")
  65. (delete "SoftLogik:Engines/Français.language" (safe))
  66. (rename "SoftLogik:Engines/English.dictionary" "SoftLogik:Engines/American.dictionary" (safe))
  67. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Engines x Engines.lha")
  68. (delete "Engines.LHA" (safe))
  69. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Special x Special.lha")
  70. (delete "Special.LHA" (safe))
  71.  
  72.  
  73. ;UPDATE FILTERS
  74. (working "Installing Updated Filters...")
  75. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x Filters.lha")
  76. (delete "Filters.LHA" (safe))
  77. ;UPDATE EFFECTS
  78. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Effects x Effects.lha")
  79. (delete "Effects.LHA" (safe))
  80.  
  81. ;UPDATE MACROS
  82. (working "Installing Updated Macros...")
  83. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Macros x Macros.lha")
  84. (delete "Macros.LHA" (safe))
  85.  
  86. ;UPDATE SYSFONTS
  87. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Fonts x SysFonts.LHA")
  88. (delete "SysFonts.LHA" (safe))
  89.  
  90. ;UPDATE PAGELINER2
  91. (if (exists "PageStream3:PageLiner")
  92.     (
  93.         (working "Patching PageLiner to 2.0g...")
  94.         (run "ram:lhex >NIL: <NIL: -qfw=ram: x PLpatch.LHA")
  95.         (run "spatch >NIL: <NIL: -oPageStream3:PageLiner2.0g -pram:PageLiner.pch PageStream3:PageLiner")
  96.         (if (exists "PageStream3:PageLiner2.0g")
  97.             (
  98.                 (delete "PageStream3:PageLiner")
  99.                 (rename "PageStream3:PageLiner2.0g" "PageStream3:PageLiner")
  100.             )
  101.             (message "\nThe patch to PageLiner was not successful. Refer to the Read.1st! file for further instructions.")
  102.         )
  103.         (delete "ram:PageLiner.pch" (safe))
  104.     )
  105. )
  106. (delete "PLpatch.LHA" (safe))
  107.  
  108. ;UPDATE BME2
  109. (if (exists "PageStream3:BME")
  110.     (
  111.         (working "Patching BME to 2.0e...")
  112.         (run "ram:lhex >NIL: <NIL: -qfw=ram: x BMEpatch.LHA")
  113.         (run "spatch >NIL: <NIL: -oPageStream3:BME2.0e -pram:BME.pch PageStream3:BME")
  114.         (if (exists "PageStream3:BME2.0e")
  115.             (
  116.                 (delete "PageStream3:BME")
  117.                 (rename "PageStream3:BME2.0e" "PageStream3:BME")
  118.             )
  119.             (message "\nThe patch to BME was not successful. Refer to the Read.1st! file for further instructions.")
  120.         )
  121.         (delete "ram:BME.pch" (safe))
  122.     )
  123. )
  124. (delete "BMEpatch.LHA" (safe))
  125.  
  126. ;UPDATE PAGESTREAM3
  127. (working "Patching PageStream to 3.0i...\n\nThis will take a while...")
  128. (run "ram:lhex >NIL: <NIL: -qfw=ram: x PGSpatch.LHA")
  129. (delete "PGSpatch.LHA" (safe))
  130. (run "spatch >NIL: <NIL: -oPageStream3:PageStream3.0i -pram:PageStream.pch PageStream3:PageStream3")
  131. (if (exists "PageStream3:PageStream3.0i")
  132.         (
  133.                 (delete "PageStream3:PageStream3")
  134.                 (rename "PageStream3:PageStream3.0i" "PageStream3:PageStream3")
  135.         )
  136.         (abort "The patch to PageStream3 was not successful. Refer to the Read.1st! file for instructions.")
  137. )
  138. (delete "ram:PageStream.pch" (safe))
  139.  
  140. ;PATCH EXTRAS TO LATEST VERSION IF APPLICABLE
  141.  
  142. (run "ram:lhex >NIL: <NIL: -qfw=ram: x Extras.LHA")
  143. (delete "Extras.LHA" (safe))
  144. (set FXsize (getsize "SoftLogik:Engines/TextFX.extension"))
  145. (set JPsize (getsize "SoftLogik:Filters/JPEG.gfilter"))
  146. (set WWsize (getsize "SoftLogik:Filters/Wordworth.dfilter"))
  147. (set CVsize (getsize "SoftLogik:Effects/Convolve.effect"))
  148. (set HSsize (getsize "SoftLogik:Effects/Histogram.effect"))
  149.  
  150. (if (= FXsize 27368)
  151.     (
  152.         (working "Updating TextFX extension to the latest version...")
  153.         (run "ram:spatch -oram:TextFX.extension -pram:TextFX.pch SoftLogik:Engines/TextFX.extension")
  154.         (set FXsize (getsize "ram:TextFX.extension"))
  155.         (if (= FXsize 32456)
  156.             (copyfiles (source "ram:TextFX.extension") (dest "SoftLogik:Engines"))
  157.             (message "Could not update TextFX.extension.\n\nContact Soft-Logik for installation assistance.")
  158.         )
  159.     )
  160. )
  161. (if (= TTsize 36704)
  162.     (
  163.         (working "Updating TrueType font engine to the latest version...")
  164.         (run "ram:spatch -oram:TTF.font -pram:TTF.pch SoftLogik:Engines/TTF.font")
  165.         (set TTsize (getsize "ram:TTF.font"))
  166.         (if (= TTsize 37176)
  167.             (copyfiles (source "ram:TTF.font") (dest "SoftLogik:Engines"))
  168.             (message "Could not update TrueType font engine.\n\nContact Soft-Logik for installation assistance.")
  169.         )
  170.     )
  171. )
  172. (if (= WWsize 33256)
  173.     (
  174.         (working "Updating Wordworth Document Filter to the latest version...")
  175.         (run "ram:spatch -oram:Wordworth.dfilter -pram:WW10.pch SoftLogik:Filters/Wordworth.dfilter")
  176.         (set WWsize (getsize "ram:Wordworth.dfilter"))
  177.         (if (= WWsize 34732)
  178.             (copyfiles (source "ram:Wordworth.dfilter") (dest "SoftLogik:Filters"))
  179.             (message "Could not update Wordworth document filter.\n\nContact Soft-Logik for installation assistance.")
  180.         )
  181.     )
  182. )
  183. (if (= WWsize 34760)
  184.     (
  185.         (working "Updating Wordworth Document Filter to the latest version...")
  186.         (run "ram:spatch -oram:Wordworth.dfilter -pram:WW10a.pch SoftLogik:Filters/Wordworth.dfilter")
  187.         (set WWsize (getsize "ram:Wordworth.dfilter"))
  188.         (if (= WWsize 34732)
  189.             (copyfiles (source "ram:Wordworth.dfilter") (dest "SoftLogik:Filters"))
  190.             (message "Could not update Wordworth document filter.\n\nContact Soft-Logik for installation assistance.")
  191.         )
  192.     )
  193. )
  194. (if (= JPsize 81768)
  195.     (
  196.         (working "Updating JPEG Filter to the latest version...")
  197.         (run "ram:spatch -oram:JPEG.gfilter -pram:JPEG.pch SoftLogik:Filters/JPEG.gfilter")
  198.         (set JPsize (getsize "ram:JPEG.gfilter"))
  199.         (if (= JPsize 81916)
  200.             (copyfiles (source "ram:JPEG.gfilter") (dest "SoftLogik:Filters"))
  201.             (message "Could not update JPEG filter.\n\nContact Soft-Logik for installation assistance.")
  202.         )
  203.     )
  204. )
  205. (if (= CVsize 10804)
  206.     (
  207.         (working "Updating Convolve effect to the latest version...")
  208.         (run "ram:spatch -oram:Convolve.effect -pram:Convolve.pch SoftLogik:Effects/Convolve.effect")
  209.         (set CVsize (getsize "ram:Convolve.effect"))
  210.         (if (= CVsize 11108)
  211.             (copyfiles (source "ram:Convolve.effect") (dest "SoftLogik:Effects"))
  212.             (message "Could not update Convolve effect.\n\nContact Soft-Logik for installation assistance.")
  213.         )
  214.     )
  215. )
  216. (if (= HSsize 5152)
  217.     (
  218.         (working "Updating Histogram effect to the latest version...")
  219.         (run "ram:spatch -oram:Histogram.effect -pram:Histogram.pch SoftLogik:Effects/Histogram.effect")
  220.         (set CVsize (getsize "ram:Histogram.effect"))
  221.         (if (= CVsize 5444)
  222.             (copyfiles (source "ram:Histogram.effect") (dest "SoftLogik:Effects"))
  223.             (message "Could not update Histogram effect.\n\nContact Soft-Logik for installation assistance.")
  224.         )
  225.     )
  226. )
  227. (delete "ram:TTF.pch" (safe))
  228. (delete "ram:TTF.font" (safe))
  229. (delete "ram:WW10.pch" (safe))
  230. (delete "ram:WW10a.pch" (safe))
  231. (delete "ram:Wordworth.dfilter" (safe))
  232. (delete "ram:JPEG.pch" (safe))
  233. (delete "ram:JPEG.dfilter" (safe))
  234. (delete "ram:TextFX.pch" (safe))
  235. (delete "ram:TextFX.extension" (safe))
  236. (delete "ram:Convolve.pch" (safe))
  237. (delete "ram:Convolve.effect" (safe))
  238. (delete "ram:Histogram.pch" (safe))
  239. (delete "ram:Histogram.effect" (safe))
  240.  
  241. ;DISPLAY README (Try 3 different ways!)
  242. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x Read.LHA")
  243. (delete "Read.LHA" (safe))
  244. (IF (> (run "Sys:Utilities/MultiView PageStream3:ReadMe.Now") 0)
  245.         (IF (> (run "Sys:Utilities/AmigaGuide PageStream3:ReadMe.Now") 0)
  246.                 (run "More PageStream3:ReadMe.Now")
  247.         )
  248. )
  249.  
  250. ;REMOVE THE LHEX PROGRAM
  251. (delete "ram:lhex" (safe))
  252. (delete "spatch" (safe))
  253. (delete "Install-PageStream3.0i.info" (safe))
  254.  
  255. ;DONE
  256. (exit "PageStream 3.0i installed!")
  257.