home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Printer / STUAPPD4.LHA / Studio_PGS_ImageFX / Install-StudioUpdate < prev    next >
Encoding:
Text File  |  1997-04-23  |  13.9 KB  |  564 lines
  1. ; $VER: StudioUpdate 2.13 - 07.10.96
  2. ; Copyright (C)1996 Wolf Faust
  3.  
  4. (complete 0)
  5. (delopts "oknodelete" "force" "askuser")
  6.  
  7. (set #waitmsg
  8. (cat "\n\n\n\nWorking. Please wait..."
  9. ))
  10. (set #bad-kick
  11. (cat    "\nYour system software is very old. "
  12.     "You must use at least Kickstart 2.04 for all Studio programs. "
  13. ))
  14. (set #wichproggy
  15. (cat "\n\nPlease select the printing program you own"
  16. ))
  17. (set #proggyhelp
  18. (cat "This disk comes with new and additional software for either "
  19.     "CanonStudio (registered) or Studio users.\n"
  20.     "Please select the program you own now.\n\n"
  21. ))
  22. (set #proggystudio
  23. (cat "Studio"
  24. ))
  25. (set #proggycanon
  26. (cat "CanonStudio"
  27. ))
  28.  
  29. (set #abortunpack
  30. (cat "\nError occured while running the installation decompression program. "
  31.     "The error occured during decompressing of the file:\n\n\"%s\"\n\n"
  32. ))
  33. (set #foundstudio
  34. (cat "\nI found your Studio/CanonStudio printing program. Shall\nI use the printing program found in the drawer:\n\n%s\n\n"
  35. ))
  36. (set #foundstudiohelp
  37. (cat "When selecting yes, the Studio/CanonStudio program will be updated in the location found if necessary.\n\n"
  38.     "When selecting no, you will be asked for a Studio/CanonStudio filename you want to use\n\n"
  39. ))
  40. (set #yesuse
  41. (cat "Yes, use it"
  42. ))
  43. (set #nodrawer
  44. (cat "No, select new drawer"
  45. ))
  46. (set #bad-version2
  47. (cat    "This install program will only work with Studio V2.11 and newer. "
  48.     "Your Studio program is version %ld.%ld. Please get an update. "
  49. ))
  50. (set #nopgs
  51. (cat    "Sorry, I can't locate the \"Pagestream3:SoftLogik/Printers\" drawer containing the PageStream "
  52.     "printer drivers. So I can't install the PageStream driver. Please check your "
  53.     "PageStream installation and try again"
  54. ))
  55. (set #nofx
  56. (cat    "Sorry, I can't locate the \"ImageFX2:modules/printer\" drawer containing the ImageFX "
  57.     "printer modules. Please check your ImageFX installation and try again"
  58. ))
  59. (set #madupdate
  60. (cat    "Your Studio/CanonStudio printing program was updated to version 2.14.\n\n"
  61.     "Studio owners should still use the additional V2.14 update disk "
  62.     "for getting a complete V2.14 update. "
  63. ))
  64. (set #madpgsupdate
  65. (cat    "A PageStream 3.0i Studio driver was installed."
  66. ))
  67. (set #madpgsupdate2
  68. (cat    "A PageStream 3.1 beta 1,2,3,4,5 Studio driver was installed."
  69. ))
  70. (set #madpgsupdate3
  71. (cat    "A PageStream 3.1, 3.2 (or newer) Studio driver was installed."
  72. ))
  73. (set #madfxupdate
  74. (cat    "An ImageFX Studio printer module was installed."
  75. ))
  76. (set #ask-studiomod
  77. (cat "\nSelect the disk or drawer the Studio or CanonStudio application program is placed in. "
  78. ))
  79. (set #ask-studiomod-help
  80. (cat "You should now select the drawer the 'Studio' or 'CanonStudio' application program is placed in. "
  81.     "Usually the program is placed in the Studio/CanonStudio drawer and thus the Studio/CanonStudio drawer "
  82.     "should be selected.\n\n"
  83.     @askdir-help
  84. ))
  85. ;--------------
  86. (set #w-appdriv
  87. (cat "Do you want to install a Studio driver for:"
  88. ))
  89. (set #w-appdriv-help
  90. (cat "\nSome Amiga applications do allow the use of custom printer drivers."
  91.     "These drivers usualy don't use the systems printer device for printing."
  92.     "You can now install such non-system drivers for these applications. "
  93.     "The drivers allow direct printing using the Studio printing program.\n\n"
  94.     @askoptions-help
  95. ))
  96. (set #w-appdriv-choices0
  97. (cat "ImageFX 2.x"
  98. ))
  99. (set #w-appdriv-choices1
  100. (cat "PageStream 3.0i"
  101. ))
  102. (set #w-appdriv-choices2
  103. (cat "PageStream 3.1 beta 1,2,3,4,5"
  104. ))
  105. (set #w-appdriv-choices3
  106. (cat "PageStream 3.1/3.2 (final,beta 6,7,8,9) or newer"
  107. ))
  108. ;--------------
  109. ;*** German
  110. (if (= @language "deutsch")
  111. (
  112.     (set #waitmsg
  113.     (cat "\n\n\n\nIch arbeite! Bitte warten..."
  114.     ))
  115.     (set #bad-kick
  116.     (cat    "\nIhre System-Software ist sehr alt. "
  117.         "Sie brauchen mindestens Kickstart 2.04 für alle Studio-Programme."
  118.     ))
  119.     (set #wichproggy
  120.     (cat "\n\nBitte wählen Sie das Programm, das Sie besitzen.\n"
  121.     ))
  122.     (set #proggyhelp
  123.     (cat "Dieses Installationsprogramm kann sowohl für CanonStudio als auch Studio\n"
  124.         "einen PageStream Treiber installieren. Bitte wählen Sie, welches Programm "
  125.         "Sie besitzen.\n\n"
  126.     ))
  127.     (set #proggystudio
  128.     (cat "Studio"
  129.     ))
  130.     (set #proggycanon
  131.     (cat "CanonStudio"
  132.     ))
  133.     (set #abortunpack
  134.     (cat "\nEin Fehler trat beim Entpacken/Schreiben einer Datei auf!\n"
  135.         "Das zu entpackende Archiv lautete:\n\n\"%s\"\n\n"
  136.     ))
  137.     (set #foundstudio
  138.     (cat "\nIch habe Ihr installiertes Studio bzw. CanonStudio Druckprogramm gefunden. Kann ich das Programm in der folgenden Schublade updaten:\n\n%s\n\n"
  139.     ))
  140.     (set #foundstudiohelp
  141.     (cat "Wählen Sie ja, dann wird das Programm in der angegebenen Schublade erneuert falls nötig.\n\n"
  142.         "Wählen Sie Nein, erscheint ein Dateiauswahlfenster und Sie können eine "
  143.         "andere Schublade mit dem Druckprogramm angeben.\n\n"
  144.     ))
  145.     (set #yesuse
  146.     (cat "Ja, updaten"
  147.     ))
  148.     (set #nodrawer
  149.     (cat "Nein, andere Schublade"
  150.     ))
  151.     (set #bad-version2
  152.     (cat    "Dieses Installationsprogramm benötigt Studio Version 2.11 oder neuer. "
  153.         "Ihre Studio Programm ist Version %ld.%ld."
  154.     ))
  155.     (set #nopgs
  156.     (cat    "Leider kann ich Ihre \"Pagestream3:SoftLogik/Printers\" Schublade mit den PageStream "
  157.         "Druckertreibern nicht finden. Ich kann daher auch keinen neuen Treiber installieren. "
  158.         "Bitte prüfen Sie Ihre PageStream Installation."
  159.     ))
  160.     (set #nofx
  161.     (cat    "Leider kann ich Ihre \"ImageFX2:modules/printer\" Schublade mit den ImageFX "
  162.             "Druckertreibern nicht finden. Ich kann daher auch keinen neuen Treiber installieren. "
  163.             "Bitte prüfen Sie Ihre ImageFX Installation."
  164.     ))
  165.     (set #madupdate
  166.     (cat    "Ihr Druckprogramm wurde auf Version 2.14 upgedated.\n"
  167.         "Studio Benutzer: Ihre anderen Studio Programme sind noch V2.13. "
  168.         "Bitte benutzen Sie auch die V2.14 Update Diskette für weitere Verbesserungen. "
  169.     ))
  170.     (set #madpgsupdate
  171.     (cat    "Ein PageStream 3.0i Studio Treiber wurde installiert."
  172.     ))
  173.     (set #madpgsupdate2
  174.     (cat    "Ein PageStream 3.1 beta 1,2,3,4,5 Studio Treiber wurde installiert."
  175.     ))
  176.     (set #madpgsupdate3
  177.     (cat    "Ein PageStream 3.1/3.2 (und neuer) Studio Treiber wurde installiert."
  178.     ))
  179.     (set #madfxupdate
  180.     (cat    "Ein ImageFX Studio Druckermodul wurde installiert."
  181.     ))
  182.     (set #ask-studiomod
  183.     (cat "\nBitte wählen Sie die Schublade, in dem sich das 'Studio'- bzw. 'CanonStudio'-Programm befindet."
  184.     ))
  185.     (set #ask-studiomod-help
  186.     (cat @askdir-help
  187.     ))
  188.     ;--------------
  189.     (set #w-appdriv
  190.     (cat "Wollen Sie Treiber für folgende Programme:"
  191.     ))
  192.     (set #w-appdriv-help
  193.     (cat "\nEinige Amiga Anwendungsprogramme bieten eigene Druckertreiber. "
  194.         "Sie können jetzt für einige Programme spezielle Treiber für "
  195.         "diese Programme installieren.\n\n"
  196.         @askoptions-help
  197.     ))
  198.     (set #w-appdriv-choices0
  199.     (cat "ImageFX 2.x"
  200.     ))
  201.     (set #w-appdriv-choices1
  202.     (cat "PageStream 3.0i"
  203.     ))
  204.     (set #w-appdriv-choices2
  205.     (cat "PageStream 3.1 beta 1, 2, 3"
  206.     ))
  207.     (set #w-appdriv-choices3
  208.     (cat "PageStream 3.1/3.2 (inkl. beta 6,7,8,9) und neuer"
  209.     ))
  210. ))
  211.  
  212.  
  213. (procedure Meter
  214. (
  215.     (set accum    (+ accum addm))
  216.     (complete (/ (* accum 100) total))
  217. ))
  218.  
  219. (complete 0)
  220. ;(message #welcome-pirate)
  221.  
  222. (set @default-dest "")
  223. (set total    0)
  224. (set accum    0)
  225. (set addm    0)
  226. (set firstdisk "")
  227. (if (< (/ (getversion) 65536) 37)
  228.     (abort #bad-kick)
  229. )
  230. (set total 120)
  231. (complete 1)
  232. (set proggy "CanonStudio")
  233. (if (askbool (prompt (#wichproggy))
  234.     (choices #proggystudio #proggycanon)
  235.     (help (#proggyhelp))
  236.     (default 1))
  237. (
  238.     (set proggy "Studio")
  239. ))
  240. (set addm 5)
  241. (Meter)
  242. (working #waitmsg)
  243. (if (= "Studio" proggy)
  244. (
  245.     (copyfiles (source "lx")
  246.         (dest "t:")
  247.         (nogauge)
  248.     )
  249. )
  250. (
  251.     (copyfiles (source "lxc")
  252.         (dest "t:")
  253.         (newname "lx")
  254.         (nogauge)
  255.     )
  256. ))
  257. (set addm 5)
  258. (Meter)
  259. (set exerr (run "t:lx n"))
  260. (if (> exerr 0)
  261. (
  262.     (abort (#abortunpack "-none-"))
  263. ))
  264.  
  265. (set addm 5)
  266. (Meter)
  267. (set studiopath "");
  268. (if (= (exists "ENV:STUDIOPATH") 1)
  269. (
  270.     (set studiopath (getenv "StudioPath"))
  271. ))
  272. (set addm 5)
  273. (Meter)
  274. (set found 1)
  275. (if (> (strlen studiopath) 1)
  276. (
  277.     (if (= (substr studiopath 0 1)  "\"")
  278.     (
  279.         (set studiopath (substr studiopath 1 (- (strlen studiopath) 2)))
  280.     ))
  281.     (if (= (exists studiopath) 1)
  282.     (
  283.         (if (= (fileonly studiopath) proggy)
  284.         (
  285.             (set found 2)
  286.             (if (askbool (prompt (#foundstudio (pathonly studiopath)))
  287.                 (choices #yesuse #nodrawer)
  288.                 (help (#foundstudiohelp))
  289.                 (default 1))
  290.             (
  291.                 (set found 0)
  292.             ))
  293.         ))
  294.     ))
  295. ))
  296. (set addm 5)
  297. (Meter)
  298. (if (> found 0)
  299. (
  300.     (if (= found 1)
  301.     (
  302.         (set studiopath (getassign "WORK" "d"))
  303.         (if (= studiopath "")
  304.         (
  305.             (set studiopath (getassign "DH0" "d"))
  306.             (if (= studiopath "")
  307.             (
  308.                 (set studiopath (getassign "DH1" "d"))
  309.                 (if (= studiopath "")
  310.                 (
  311.                     (set studiopath "SYS:")
  312.                 ))
  313.             ))
  314.         ))
  315.         (set studiopath (tackon studiopath proggy)) 
  316.     ))
  317.     (set studiopath  (askdir (prompt (#ask-studiomod proggy))
  318.         (help #ask-studiomod-help)
  319.         (default (pathonly (studiopath)))
  320.     ))
  321.     (set studiopath (tackon studiopath proggy))
  322.     (if (<> (exists studiopath) 1)
  323.     (
  324.         (abort (#nostudiopro proggy studiopath))
  325.     ))
  326.     (textfile   (dest "Env:StudioPath")
  327.         (append (cat "\"" studiopath "\"")) )
  328.     (textfile   (dest "Envarc:StudioPath")
  329.         (append (cat "\"" studiopath "\"")) )
  330. ))
  331. (set addm 5)
  332. (Meter)
  333. (working #waitmsg)
  334. (makeassign "STUDIOPARENT" (pathonly (studiopath)))
  335. (set ver 0)
  336. (set rev 0)
  337. (if (= (exists (cat "STUDIOPARENT:" proggy)) 1)
  338. (
  339.     (set vernum (getversion (cat "STUDIOPARENT:" proggy)))
  340.     (set ver (/ vernum 65536))
  341.     (set rev (- vernum (* ver 65536) ) )
  342. ))
  343. (set addm 5)
  344. (Meter)
  345. (if (OR (< ver 2) (< rev 11))
  346. (
  347.     (if (= "Studio" proggy)
  348.     (
  349.         (abort (#bad-version2 ver rev))
  350.     ))
  351. ))
  352. (set addm 5)
  353. (Meter)
  354. (if (NOT (OR (> ver 2) (> rev 14)))
  355. (
  356.     (set exerr (run (cat "t:lx x \""proggy "/" proggy".pkd\" \"STUDIOPARENT:\"")))
  357.     (if (> exerr 0)
  358.     (
  359.         (abort (#abortunpack (cat proggy "/" proggy ".pkd")))
  360.     ))
  361.     (makeassign "STUDIOPARENT" (tackon (pathonly (studiopath)) (cat proggy "_Output")))
  362.     (if (= (exists "STUDIOPARENT:CanonBJC800.output") 1)
  363.     (
  364.         (set exerr (run (cat "T:lx x " proggy "/CanonBJC800.pkd \"STUDIOPARENT:\"")))
  365.         (if (> exerr 0)
  366.         (
  367.             (abort (#abortunpack (cat proggy "/CanonBJC800.pkd")))
  368.         ))
  369.     ))
  370.     (if (= (exists "STUDIOPARENT:IFF_ILBM.output") 1)
  371.     (
  372.         (set exerr (run (cat "T:lx x " proggy "/iff.pkd \"STUDIOPARENT:\"")))
  373.         (if (> exerr 0)
  374.         (
  375.             (abort (#abortunpack (cat proggy "/iff.pkd")))
  376.         ))
  377.     ))
  378.     (message #madupdate)
  379. ))
  380. (set addm 20)
  381. (Meter)
  382. (working #waitmsg)
  383.  
  384. (set appdef 0)
  385. (set fxassign "")
  386. (set guessdrawer (getassign "ImageFX" "a"))
  387. (if (<> guessdrawer "")
  388. (
  389.     (set fxassign "ImageFX:Modules/Printer")
  390. ))
  391. (set guessdrawer (getassign "ImageFX2" "a"))
  392. (if (<> guessdrawer "")
  393. (
  394.     (set fxassign "ImageFX2:Modules/Printer")
  395. ))
  396. (if (<> fxassign "")
  397. (
  398.     (set appdef (BITOR appdef (shiftleft 1 0)))
  399. ))
  400. (set guessdrawer (getassign "PageStream3" "a"))
  401. (if (<> guessdrawer "")
  402. (
  403.     (set ver 0)
  404.     (set rev 0)
  405.     (if (= (exists (cat "PageStream3:PageStream3")) 1)
  406.     (
  407.         (set vernum (getversion (cat "PageStream3:PageStream3")))
  408.         (set ver (/ vernum 65536))
  409.         (set rev (- vernum (* ver 65536) ) )
  410.     ))
  411.     (if (AND (= ver 3) (= rev 0))  ; PGS 3.0i?
  412.     (
  413.         (set appdef (BITOR appdef (shiftleft 1 1)))
  414.     )
  415.     (
  416.         (set appdef (BITOR appdef (shiftleft 1 3)))
  417.     ))
  418. ))
  419.  
  420. (set appdriv (askoptions (prompt #w-appdriv)
  421.     (help #w-appdriv-help)
  422.     (choices #w-appdriv-choices0 #w-appdriv-choices1 #w-appdriv-choices2 #w-appdriv-choices3)
  423.     (default appdef)
  424. ))
  425. (working #waitmsg)
  426.  
  427. (if (IN appdriv 0) ; ImageFX2 Driver
  428. (
  429.     (if (<> fxassign "")
  430.     (
  431.         (if (= (exists fxassign) 2)
  432.         (
  433.             (set ver 0)
  434.             (set rev 0)
  435.             (if (= (exists (cat fxassign "/Studio")) 1)
  436.             (
  437.                 (set vernum (getversion (cat fxassign "/Studio")))
  438.                 (set ver (/ vernum 65536))
  439.                 (set rev (- vernum (* ver 65536) ) )
  440.             ))
  441.             (if (AND (< ver 2) (< rev 1))
  442.             (
  443.                 (set exerr (run (cat "t:lx x \""proggy "/FX.pkd\" " fxassign)))
  444.                 (if (> exerr 0)
  445.                 (
  446.                     (abort (#abortunpack (cat proggy "/FX.pkd")))
  447.                 ))
  448.                 (message #madfxupdate)
  449.             ))
  450.         )
  451.         (
  452.             (abort (#nofx))
  453.         ))
  454.     ))
  455.     
  456. ))
  457. (set addm 10)
  458. (Meter)
  459. (if (IN appdriv 1) ; PageStream 3.0i Driver
  460. (
  461.     (set guessdrawer (getassign "PageStream3" "a"))
  462.     (if (<> guessdrawer "")
  463.     (
  464.         (if (= (exists "Pagestream3:SoftLogik/Printers") 2)
  465.         (
  466.             (set ver 0)
  467.             (set rev 0)
  468.             (if (= (exists (cat "Pagestream3:SoftLogik/Printers/Studio.printer")) 1)
  469.             (
  470.                 (set vernum (getversion (cat "Pagestream3:SoftLogik/Printers/Studio.printer")))
  471.                 (set ver (/ vernum 65536))
  472.                 (set rev (- vernum (* ver 65536) ) )
  473.             ))
  474.             (if (AND (< ver 2) (< rev 2))
  475.             (
  476.                 (set exerr (run (cat "t:lx x \""proggy "/PGS30i.pkd\" \"Pagestream3:SoftLogik/Printers\"")))
  477.                 (if (> exerr 0)
  478.                 (
  479.                     (abort (#abortunpack (cat proggy "/PGS30i.pkd")))
  480.                 ))
  481.                 (message #madpgsupdate)
  482.             ))
  483.         )
  484.         (
  485.             (abort (#nopgs))
  486.         ))
  487.     ))
  488. ))
  489. (set addm 10)
  490. (Meter)
  491. (if (IN appdriv 2) ; PageStream 3.1 beta 1,2,3 Driver
  492. (
  493.     (set guessdrawer (getassign "PageStream3" "a"))
  494.     (if (<> guessdrawer "")
  495.     (
  496.         (if (= (exists "Pagestream3:SoftLogik/Printers") 2)
  497.         (
  498.             (set ver 0)
  499.             (set rev 0)
  500.             (if (= (exists (cat "Pagestream3:SoftLogik/Printers/Studio.printer")) 1)
  501.             (
  502.                 (set vernum (getversion (cat "Pagestream3:SoftLogik/Printers/Studio.printer")))
  503.                 (set ver (/ vernum 65536))
  504.                 (set rev (- vernum (* ver 65536) ) )
  505.             ))
  506.             (if (< ver 3)
  507.             (
  508.                 (if (NOT (AND (= ver 2) (> rev 0) ))
  509.                 (
  510.                     (set exerr (run (cat "t:lx x \""proggy "/PGS31b2.pkd\" \"Pagestream3:SoftLogik/Printers\"")))
  511.                     (if (> exerr 0)
  512.                     (
  513.                         (abort (#abortunpack (cat proggy "/PGS31b2.pkd")))
  514.                     ))
  515.                 ))
  516.                 (message #madpgsupdate2)
  517.             ))
  518.         )
  519.         (
  520.             (abort (#nopgs))
  521.         ))
  522.     ))
  523. ))
  524. (if (IN appdriv 3) ; PageStream 3.2 beta 6,7,8,9 Driver
  525. (
  526.     (set guessdrawer (getassign "PageStream3" "a"))
  527.     (if (<> guessdrawer "")
  528.     (
  529.         (if (= (exists "Pagestream3:SoftLogik/Printers") 2)
  530.         (
  531.             (set ver 0)
  532.             (set rev 0)
  533.             (if (= (exists (cat "Pagestream3:SoftLogik/Printers/Studio.printer")) 1)
  534.             (
  535.                 (set vernum (getversion (cat "Pagestream3:SoftLogik/Printers/Studio.printer")))
  536.                 (set ver (/ vernum 65536))
  537.                 (set rev (- vernum (* ver 65536) ) )
  538.             ))
  539.             (if (< ver 4)
  540.             (
  541.                 (if (NOT (AND (= ver 3) (> rev 1) ))
  542.                 (
  543.                     (set exerr (run (cat "t:lx x \""proggy "/PGS32b6.pkd\" \"Pagestream3:SoftLogik/Printers\"")))
  544.                     (if (> exerr 0)
  545.                     (
  546.                         (abort (#abortunpack (cat proggy "/PGS32b6.pkd")))
  547.                     ))
  548.                 ))
  549.                 (message #madpgsupdate3)
  550.             ))
  551.         )
  552.         (
  553.             (abort (#nopgs))
  554.         ))
  555.     ))
  556. ))
  557. (set addm 5)
  558. (Meter)
  559. (run "t:lx n")
  560. (delete "t:lx")
  561. (makeassign "STUDIOPARENT")
  562. (complete 100)
  563. ; (exit #exitmsg)
  564.