home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Printer / studi214.lha / Studio_Update_V2.14 / Install-StudioUpdate < prev    next >
Encoding:
Text File  |  1997-01-07  |  21.5 KB  |  823 lines
  1. ; $VER: StudioUpdate 2.13 (07.10.96)
  2. ; Copyright (C)1992-96 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 #bad-version
  15. (cat    "This update will only update Studio V2.13 and older. "
  16.     "Your Studio disks are version %ld.%ld. Running this update doesn't make sense. "
  17. ))
  18. (set #bad-version2
  19. (cat    "This update requires Studio V2.11 and newer. "
  20.     "Your installed Studio program has version %ld.%ld. "
  21. ))
  22. (set #w-studio
  23. (cat "Select the action(s) to perform."
  24. ))
  25. (set #w-studio-help
  26. (cat "This disk comes with new and additional software for some printers.\n"
  27.     "You can update your current used software.\n"
  28.     "Or you can update the software and add the additional printer software.\n\n"
  29.     @askchoice-help
  30. ))
  31. (set #w-studio-choices1
  32. (cat "Update Studio software"
  33. ))
  34. (set #w-studio-choices2
  35. (cat "And add Canon BJC 150, 210 software"
  36. ))
  37. (set #w-studio-choices3
  38. (cat "And add Canon BJC 240 software"
  39. ))
  40. (set #w-studio-choices4
  41. (cat "And add Canon BJC 4200 software"
  42. ))
  43. (set #w-studio-choices5
  44. (cat "And add Canon BJC 4550 software"
  45. ))
  46. (set #w-studio-choices6
  47. (cat "And add Deskjet 500C (and compatible) module"
  48. ))
  49. (set #w-studio-choices7
  50. (cat "And add Deskjet 550C (and compatible) module"
  51. ))
  52. (set #w-studio-choices8
  53. (cat "And add PageStream 3.1/3.2(final) driver."
  54. ))
  55. (set #abortunpack
  56. (cat "\nError occured while running the installation decompression program. "
  57.     "The error occured during decompressing of the file:\n\n\"%s\"\n\n"
  58. ))
  59. (set #foundstudio
  60. (cat "\nI found your Studio printing program. Can I update the program in the drawer:\n\n%s\n\n"
  61. ))
  62. (set #foundstudiohelp
  63. (cat "When selecting yes, the Studio program will be updated in the location found.\n\n"
  64.     "When selecting no, you will be asked for a Studio filename you want to update\n\n"
  65. ))
  66. (set #ask-studiomod
  67. (cat "\nSelect the disk or drawer the 'Studio' application program is placed in. "
  68. ))
  69. (set #ask-studiomod-help
  70. (cat "You should now select the drawer the 'Studio' application program is placed in. "
  71.     "Usually the program is placed in the Studio drawer and thus the Studio drawer "
  72.     "should be selected.\n\n"
  73.     @askdir-help
  74. ))
  75. (set #nostudiopro
  76. (cat "\nSorry, I can't find the \"Studio\" program. I tried to access %s. "
  77.     "Please check the drawer and program name try installing again. "
  78. ))
  79. (set #ask-prefs
  80. (cat "\nIn which disk or drawer are the Studio printer preferences program(s) installed?"
  81. ))
  82. (set #ask-prefs-help
  83. (cat "\nThis section lets you choose in which drawer or on which disk the "
  84.     "Studio printer driver preferences programs (CanonBJECPref, ...) are installed. "
  85.     "These are normally placed in the \"sys:prefs\" directory of your system "
  86.     "disk.\n\n"
  87.     @askdir-help
  88. ))
  89. (set #delenv
  90. (cat "Can I overwrite your old driver settings? I want to overwrite your settings in "
  91.     "order to setup the driver for your printer.\n\n"
  92.     "Note: you can keep your old driver settings if you like. Use the Preset "
  93.     "menu of the preferences program to change the settings to the default "
  94.     "settings anytime later."
  95. ))
  96. (set #delenvhelp
  97. (cat "The installation program wants to setup the default settings for your printer. "
  98.     "In order to do so, your old settings have to be deleted. You can skip overwriting the driver "
  99.     "settings and setup the driver later for your printer using the Preset menu "
  100.     "of the drivers prefences program."
  101. ))
  102. (set #sdelenv
  103. (cat "Can I delete the old settings of your Studio printing program? I want to overwrite your settings in "
  104.     "order to setup Studio for your printer.\n\n"
  105.     "Note: you can keep your old Studio printing program settings if you like. Use the \"Reset To Default\" "
  106.     "menu item of the printing program to change the settings anytime later if required. "
  107. ))
  108. (set #sdelenvhelp
  109. (cat "The installation program wants to setup the default settings for your printer. "
  110.     "In order to do so, your old settings have to be deleted. You can skip overwriting the Studio "
  111.     "settings and setup the printing program later for your printer using the \"Reset To Default\" menu item "
  112.     "of the Studio printing program."
  113. ))
  114. (set #setupmsg
  115. (cat "\nA new Setup-BJL program was installed for you in:\n\n%s\n "
  116. ))
  117. (set #mydisk
  118. (cat "Please insert the disk named\n\n\"StudioDisk_%ld\"\n\nin any drive."
  119. ))
  120. (set #installed
  121. (cat "\n\nA new driver named \"%s\" has been installed for your printer. "
  122.     "The driver is controlled by the installed \"%s\" preferences "
  123.     "program.\n\n"
  124. ))
  125. (set #yesupdate
  126. (cat "Yes, update"
  127. ))
  128. (set #nodrawer
  129. (cat "No, select new drawer"
  130. ))
  131. (set #nochange
  132. (cat "No, don't change"
  133. ))
  134. (set #madpgsupdate3
  135. (cat    "A PageStream 3.1/3.2 (or newer) Studio driver was installed."
  136. ))
  137. (set #madcanonupdate
  138. (cat    "Your installed Canon BJC Software was updated."
  139. ))
  140. (set #madstudioupdate
  141. (cat    "Your Studio printing program was updated."
  142. ))
  143. ;--------------
  144. ;*** German
  145. (if (= @language "deutsch")
  146. (
  147.     (set #waitmsg
  148.     (cat "\n\n\n\nIch arbeite! Bitte warten..."
  149.     ))
  150.     (set #bad-kick
  151.     (cat    "\nIhre System-Software ist sehr alt. "
  152.         "Sie brauchen mindestens Kickstart 2.04 für alle Studio-Programme."
  153.     ))
  154.     (set #bad-version
  155.     (cat    "Dieses Update benötigt Studio Version 2.13 oder älter. "
  156.         "Ihre Studio Originaldisketten haben Version %ld.%ld. Es hat daher "
  157.         "keinen Sinn, ein Update durchzuführen. "
  158.     ))
  159.     (set #bad-version2
  160.     (cat    "Dieses Update funktioniert nur mit Studio V2.11 und neuer. "
  161.         "Ihr installiertes Programm hat bereits Version %ld.%ld. "
  162.     ))
  163.     (set #w-studio
  164.     (cat "Welche Studio-Software wollen Sie installieren?"
  165.     ))
  166.     (set #w-studio-help
  167.     (cat "\nDieses Studio Update enthält neben einem generellen Update der vorhandenen "
  168.         "Software auch zusätzliche neue Treiber Software. Bitte wählen Sie, ob "
  169.         "Sie einfach nur vorhandenes Updaten wollen, oder ob Sie zusätzlich noch "
  170.         "weitere Software installieren wollen.\n\n"
  171.         @askoptions-help
  172.     ))
  173.     (set #w-studio-choices1
  174.     (cat "Installierte Studio Software erneuern"
  175.     ))
  176.     (set #w-studio-choices2
  177.     (cat "und Canon BJC 150, 210 Software installieren"
  178.     ))
  179.     (set #w-studio-choices3
  180.     (cat "und Canon BJC 240 Software installieren"
  181.     ))
  182.     (set #w-studio-choices4
  183.     (cat "und Canon BJC 4200 Software installieren"
  184.     ))
  185.     (set #w-studio-choices5
  186.     (cat "und Canon BJC 4550 Software installieren"
  187.     ))
  188.     (set #w-studio-choices6
  189.     (cat "und Deskjet 500C (u. kompatibel) Software inst."
  190.     ))
  191.     (set #w-studio-choices7
  192.     (cat "und Deskjet 550C (u. kompatibel) Software inst."
  193.     ))
  194.     (set #w-studio-choices8
  195.     (cat "und PageStream 3.1/3.2 (final) Treiber inst."
  196.     ))
  197.  
  198.     (set #abortunpack
  199.     (cat "\nEin Fehler trat beim Entpacken/Schreiben einer Datei auf!\n"
  200.         "Das zu entpackende Archiv lautete:\n\n\"%s\"\n\n"
  201.     ))
  202.     (set #foundstudio
  203.     (cat "\nIch habe Ihr installiertes Studio Druckprogramm gefunden. Kann ich das Studio Programm in der folgenden Schublade updaten:\n\n%s\n\n"
  204.     ))
  205.     (set #foundstudiohelp
  206.     (cat "Wählen Sie ja, dann wird das Studio Programm in der angegebenen Schublade erneuert.\n\n"
  207.         "Wählen Sie Nein, erscheint ein Dateiauswahlfenster und Sie können eine "
  208.         "andere Schublade mit dem Studio Programm angeben.\n\n"
  209.     ))
  210.     (set #ask-studiomod
  211.     (cat "\nBitte wählen Sie die Schublade, in dem sich das 'Studio'-Programm befindet."
  212.     ))
  213.     (set #ask-studiomod-help
  214.     (cat @askdir-help
  215.     ))
  216.     (set #nostudiopro
  217.     (cat "Ich kann das \"Studio\" Programm nicht unter\n\n'%s'\n\nfinden. "
  218.         "Bitte prüfen Sie die angegebenen Dateinamen und versuchen Sie die Installation erneut."
  219.     ))
  220.     (set #ask-prefs
  221.     (cat "\nIn welcher Schublade wurden die Studio Treiber-Voreinsteller installiert?"
  222.     ))
  223.     (set #ask-prefs-help
  224.     (cat "\nNormal installiert Studio die Voreinsteller DeskPref, LaserPref, PinPref, CanonBJECPref usw. "
  225.         "in die SYS:Prefs Schublade. Sollten Sie diese Programme woanders installiert haben, "
  226.         "geben Sie bitte die entsprechende Schublade an, damit die Programme upgedated werden können.\n\n"
  227.         @askdir-help
  228.     ))
  229.     (set #delenv
  230.     (cat "Kann ich Ihre alten Treibereinstellungen löschen, damit ich den Treiber "
  231.         "für Ihren Drucker neu konfigurieren kann?\n\n"
  232.         "Sie können Ihre Einstellungen mit 'Nein' aber auch behalten und jederzeit "
  233.         "später mit dem Preset Menü von CanonBJECPref den Treiber neu einstellen."
  234.     ))
  235.     (set #delenvhelp
  236.     (cat "Das Installationsprogramm muß Ihre alten Treibereinstellungen löschen, "
  237.         "um die neuen Standardeinstellungen für Ihren Drucker zu aktivieren. "
  238.         "Sie können darauf aber auch verzichten, und später das Preset-Menü "
  239.         "von CanonBJECPref zum Einstellen benutzen."
  240.     ))
  241.     (set #sdelenv
  242.     (cat "Kann ich Ihre Einstellungen des Studio Druckprogramms löschen, damit ich das Programm "
  243.         "für Ihren Drucker neu konfigurieren kann?\n\n"
  244.         "Sie können Ihre Einstellungen mit 'Nein' aber auch behalten und jederzeit "
  245.         "später mit dem 'Reset To Default' Menüpunkt die Einstellungen vornehmen."
  246.     ))
  247.     (set #sdelenvhelp
  248.     (cat "Das Installationsprogramm muß Ihre alten Studio Einstellungen löschen, "
  249.         "um die neuen Standardeinstellungen für Ihren Drucker zu aktivieren. "
  250.         "Sie können darauf aber auch verzichten, und später das Menü "
  251.         "von Studio zum Einstellen benutzen."
  252.     ))
  253.     (set #setupmsg
  254.     (cat "\nEin neues Setup-BJL Programm wurde für Sie installiert in der Schublade:\n\n%s\n "
  255.     ))
  256.     (set #mydisk
  257.     (cat "Bitte legen Sie die Diskette\n\n\"StudioDisk_%ld\"\n\nin ein beliebiges Laufwerk."
  258.     ))
  259.     (set #installed
  260.     (cat "\n\nEin neuer Treiber namens \"%s\" wurde für den Canon BJC Drucker installiert. "
  261.         "Zusätzlich wurde das Voreinsteller-Programm \"%s\"  installiert.\n\n"
  262.     ))
  263.     (set #yesupdate
  264.     (cat "Ja, updaten"
  265.     ))
  266.     (set #nodrawer
  267.     (cat "Nein, andere Schublade"
  268.     ))
  269.     (set #nochange
  270.     (cat "Nein, nicht ändern"
  271.     ))
  272.     (set #insdriv
  273.     (cat "Der CanonBJ-EC Workbench Druckertreiber wurde für Ihren Canon Drucker mit dem CanonBJECPref-Programm "
  274.         "installiert."
  275.     ))
  276.     (set #madpgsupdate3
  277.     (cat    "Ein PageStream 3.1/3.2 (und neuer) Studio Treiber wurde installiert."
  278.     ))
  279.     (set #madcanonupdate
  280.     (cat    "Ihre installierte Canon Software wurde upgedated."
  281.     ))
  282.     (set #madstudioupdate
  283.     (cat    "Das Studio Druckprogramm wurde upgedated."
  284.     ))
  285. ))
  286.  
  287.  
  288. (procedure Meter
  289. (
  290.     (set accum    (+ accum addm))
  291.     (complete (/ (* accum 100) total))
  292. ))
  293.  
  294. (complete 0)
  295. ;(message #welcome-pirate)
  296.  
  297. (set total    0)
  298. (set accum    0)
  299. (set addm    0)
  300. (set firstdisk "")
  301. (if (< (/ (getversion) 65536) 37)
  302.     (abort #bad-kick)
  303. )
  304. (complete 1)
  305. (set studio (askchoice (prompt #w-studio)
  306.     (help #w-studio-help)
  307.     (choices #w-studio-choices1 #w-studio-choices2 #w-studio-choices3 #w-studio-choices4 #w-studio-choices5 #w-studio-choices6 #w-studio-choices7 #w-studio-choices8)
  308.     (default 0)
  309. ))
  310. (working #waitmsg)
  311. (set total 60)
  312. (if (> studio 0)
  313. (
  314.     (set total 120)
  315. ))
  316. (set @default-dest "")
  317. (set verorg 2)
  318. (set revorg 0)
  319. (if (= (exists "StudioDisk_1:VER") 1)
  320. (
  321.     (set vernum (getversion "StudioDisk_1:VER"))
  322.     (set verorg (/ vernum 65536))
  323.     (set revorg (- vernum (* verorg 65536) ) )
  324.     (if (OR (> verorg 2) (> revorg 13))
  325.     (
  326.         (abort (#bad-version verorg revorg))
  327.     ))
  328. ))
  329. (set addm 3)
  330. (Meter)
  331. (copyfiles (source "StudioDisk_1:lx")
  332.     (dest "RAM:")
  333.     (nogauge)
  334. )
  335. (set addm 3)
  336. (Meter)
  337. (set exerr (run "RAM:lx n"))
  338. (if (> exerr 0)
  339. (
  340.     (abort (#abortunpack "-none-"))
  341. ))
  342.  
  343.  
  344.  
  345. (set addm 4)
  346. (Meter)
  347. (set studiopath "");
  348. (if (= (exists "ENV:STUDIOPATH") 1)
  349. (
  350.     (set studiopath (getenv "StudioPath"))
  351. ))
  352. (set addm 5)
  353. (Meter)
  354. (set found 1)
  355. (if (> (strlen studiopath) 1)
  356. (
  357.     (if (= (substr studiopath 0 1)  "\"")
  358.     (
  359.         (set studiopath (substr studiopath 1 (- (strlen studiopath) 2)))
  360.     ))
  361.     (if (= (exists studiopath) 1)
  362.     (
  363.         (if (= (fileonly studiopath) "Studio")
  364.         (
  365.             (set found 2)
  366.             (if (askbool (prompt (#foundstudio (pathonly studiopath)))
  367.                 (choices #yesupdate #nodrawer)
  368.                 (help (#foundstudiohelp ))
  369.                 (default 1))
  370.             (
  371.                 (set found 0)
  372.             ))
  373.         ))
  374.     ))
  375. ))
  376. (set addm 5)
  377. (Meter)
  378. (if (> found 0)
  379. (
  380.     (if (= found 1)
  381.     (
  382.         (set studiopath (getassign "WORK" "d"))
  383.         (if (= studiopath "")
  384.         (
  385.             (set studiopath (getassign "DH0" "d"))
  386.             (if (= studiopath "")
  387.             (
  388.                 (set studiopath (getassign "DH2" "d"))
  389.                 (if (= studiopath "")
  390.                 (
  391.                     (set studiopath "SYS:")
  392.                 ))
  393.             ))
  394.         ))
  395.         (set studiopath (tackon studiopath "Studio")) 
  396.     ))
  397.     (set studiopath  (askdir (prompt #ask-studiomod)
  398.         (help #ask-studiomod-help)
  399.         (default (pathonly (studiopath)))
  400.     ))
  401.     (set studiopath (tackon studiopath "Studio"))
  402.     (if (<> (exists studiopath) 1)
  403.     (
  404.         (abort (#nostudiopro studiopath))
  405.     ))
  406.     (textfile   (dest "Env:StudioPath")
  407.         (append (cat "\"" studiopath "\"")) )
  408.     (textfile   (dest "Envarc:StudioPath")
  409.         (append (cat "\"" studiopath "\"")) )
  410. ))
  411. (set addm 5)
  412. (Meter)
  413. (working #waitmsg)
  414. (makeassign "STUDIOPARENT" (pathonly (studiopath)))
  415. (set ver 0)
  416. (set rev 0)
  417. (if (= (exists "STUDIOPARENT:Studio") 1)
  418. (
  419.     (set vernum (getversion "STUDIOPARENT:Studio"))
  420.     (set ver (/ vernum 65536))
  421.     (set rev (- vernum (* ver 65536) ) )
  422. ))
  423.  
  424. (set addm 5)
  425. (Meter)
  426. (if (OR (< ver 2) (< rev 11))
  427. (
  428.     (abort (#bad-version2 ver rev))
  429. ))
  430. (set addm 5)
  431. (Meter)
  432. (if (NOT (OR (> ver 2) (> rev 14)))
  433. (
  434.     (set exerr (run (cat "ram:lx x Studio/Studio.pkd \"STUDIOPARENT:\"")))
  435.     (if (> exerr 0)
  436.     (
  437.         (abort (#abortunpack "Studio/Studio.pkd"))
  438.     ))
  439.     (message #madstudioupdate)
  440.     (working #waitmsg)
  441. ))
  442. (set addm 5)
  443. (Meter)
  444. (set guessdrawer (getassign "PageStream3" "a"))
  445. (if (<> guessdrawer "")
  446. (
  447.     (set ver 0)
  448.     (set rev 0)
  449.     (if (= (exists (cat "Pagestream3:SoftLogik/Printers/Studio.printer")) 1)
  450.     (
  451.         (set vernum (getversion (cat "Pagestream3:SoftLogik/Printers/Studio.printer")))
  452.         (set ver (/ vernum 65536))
  453.         (set rev (- vernum (* ver 65536) ) )
  454.     ))
  455.     (if (= (exists (cat "Pagestream3:SoftLogik/Printers")) 2)
  456.     (
  457.         (if (OR  (AND (= ver 3) (< rev 2)) (= studio 7))
  458.         (
  459.             (set exerr (run (cat "ram:lx x PageStream/PGS32b6.pkd \"Pagestream3:SoftLogik/Printers\"")))
  460.             (if (> exerr 0)
  461.             (
  462.                 (abort (#abortunpack ("PageStream/PGS32b6.pkd")))
  463.             ))
  464.             (message #madpgsupdate3)
  465.             (working #waitmsg)
  466.         ))
  467.     ))
  468. ))
  469.  
  470. (working #waitmsg)
  471. (set addm 10)
  472. (Meter)
  473. (set prefdisk ("SYS:Prefs"))
  474. (if (exists "sys:preferences")
  475. (
  476.     (set prefdisk ("SYS:Preferences"))
  477. ))
  478. (if (exists "SYS:Prefs")
  479. (
  480.     (set prefdisk ("SYS:Prefs"))
  481. ))
  482. (set prefdisk (askdir (prompt #ask-prefs)
  483.     (help #ask-prefs-help)
  484.     (default prefdisk))
  485. )
  486. (set addm 5)
  487. (Meter)
  488. (working #waitmsg)
  489. (if (= (exists prefdisk) 2)
  490. (
  491.     (makeassign "STUDIOPARENT" prefdisk)
  492.     (if (= (exists "STUDIOPARENT:CanonBJECPref") 1)
  493.     (
  494.         (makeassign "STUDIODRIV" "Devs:printers")
  495.         (if (= (exists "STUDIODRIV:CanonBJ-EC") 1)
  496.         (
  497.             (set exerr (run (cat "RAM:lx x \"Drivers/CanonBJEC.pkd\" \"STUDIODRIV:\"")))
  498.             (if (> exerr 0)
  499.             (
  500.                 (abort (#abortunpack "Drivers/CanonBJEC.pkd"))
  501.             ))
  502.             (set exerr (run (cat "RAM:lx x \"Prefs/CanonBJECPref.pkd\" \"STUDIOPARENT:\"")))
  503.             (if (> exerr 0)
  504.             (
  505.                 (abort (#abortunpack "Prefs/CanonBJECPref.pkd"))
  506.             ))
  507.             (if (exists "STUDIOPARENT:SetupBJL-BJC210")
  508.             (
  509.                 (if (exists "STUDIOPARENT:SetupBJL-BJC210.prefs")
  510.                 (
  511.                     (copyfiles (source "STUDIOPARENT:SetupBJL-BJC210.prefs")
  512.                         (dest "STUDIOPARENT:")
  513.                         (newname "SetupBJL-BJC2xx.prefs")
  514.                         (nogauge)
  515.                     )
  516.                 ))
  517.                 (set n 0)
  518.                 (while (set thisfile (select n  "SetupBJL-BJC210.prefs"
  519.                     "SetupBJL-BJC210"
  520.                     "SetupBJL-BJC210.info"
  521.                     "" ))
  522.                 (
  523.                     (set n (+ n 1))
  524.                     (if (exists (cat "STUDIOPARENT:" thisfile))
  525.                     (
  526.                         (delete (cat "STUDIOPARENT:" thisfile))
  527.                     ))
  528.                 ))
  529.                 (set exerr (run (cat "RAM:lx x prefs/SetupBJL-BJC2xx.pkd \"STUDIOPARENT:\"")))
  530.                 (if (> exerr 0)
  531.                 (
  532.                     (abort (#abortunpack prefname))
  533.                 ))
  534.             ))
  535.             (if (exists "STUDIOPARENT:SetupBJL-BJC4100")
  536.             (
  537.                 (if (exists "STUDIOPARENT:SetupBJL-BJC4100.prefs")
  538.                 (
  539.                     (copyfiles (source "STUDIOPARENT:SetupBJL-BJC4100.prefs")
  540.                         (dest "STUDIOPARENT:")
  541.                         (newname "SetupBJL-BJC4xxx.prefs")
  542.                         (nogauge)
  543.                     )
  544.                 ))
  545.                 (set n 0)
  546.                 (while (set thisfile (select n  "SetupBJL-BJC4100.prefs"
  547.                     "SetupBJL-BJC4100"
  548.                     "SetupBJL-BJC4100.info"
  549.                     "" ))
  550.                 (
  551.                     (set n (+ n 1))
  552.                     (if (exists (cat "STUDIOPARENT:" thisfile))
  553.                     (
  554.                         (delete (cat "STUDIOPARENT:" thisfile))
  555.                     ))
  556.                 ))
  557.                 (set exerr (run (cat "RAM:lx x prefs/SetupBJL-BJC4xxx.pkd \"STUDIOPARENT:\"")))
  558.                 (if (> exerr 0)
  559.                 (
  560.                     (abort (#abortunpack prefname))
  561.                 ))
  562.             ))
  563.             (message #madcanonupdate)
  564.             (working #waitmsg)
  565.         ))
  566.         (makeassign "STUDIODRIV")
  567.     ))
  568. ))
  569. (set drivername "")
  570. (set prefname "")
  571. (set setupname "")
  572. (set envname "")
  573. (set presetname "")
  574. (set studiodefault "")
  575. (set soutput "")
  576. (set sprofile "")
  577. (set setuptool "")
  578. ; BJC210
  579. (if (= studio 1)
  580. (
  581.     (set drivername "CanonBJEC")
  582.     (set prefname "prefs/CanonBJECPref")
  583.     (set setupname "prefs/SetupBJL-BJC2xx")
  584.     (set envname "CanonBJECPref")
  585.     (set presetname "DriverPresets/CanonBJC210")
  586.     (set studiodefault "CanonBJC210")
  587.     (set soutput "Output/CanonBJC150_210")
  588.     (set sprofile "Profiles/CanonBJC210")
  589.     (set setuptool "")
  590. ))
  591. ; BJC240
  592. (if (= studio 2)
  593. (
  594.     (set drivername "CanonBJEC")
  595.     (set prefname "prefs/CanonBJECPref")
  596.     (set setupname "prefs/SetupBJL-BJC2xx")
  597.     (set envname "CanonBJECPref")
  598.     (set presetname "DriverPresets/CanonBJC240")
  599.     (set studiodefault "CanonBJC240")
  600.     (set soutput "Output/CanonBJC240")
  601.     (set sprofile "Profiles/CanonBJC210")
  602.     (set setuptool "USEPOWERON")
  603. ))
  604. ; BJC4200
  605. (if (= studio 3)
  606. (
  607.     (set drivername "CanonBJEC")
  608.     (set prefname "prefs/CanonBJECPref")
  609.     (set setupname "prefs/SetupBJL-BJC4xxx")
  610.     (set envname "CanonBJECPref")
  611.     (set presetname "DriverPresets/CanonBJC4000")
  612.     (set studiodefault "CanonBJC4200")
  613.     (set soutput "Output/CanonBJC4200")
  614.     (set sprofile "Profiles/CanonBJC4100")
  615.     (set setuptool "USEPOWERON")
  616. ))
  617. ; BJC4550
  618. (if (= studio 4)
  619. (
  620.     (set drivername "CanonBJEC")
  621.     (set prefname "prefs/CanonBJECPref")
  622.     (set setupname "prefs/SetupBJL-BJC4xxx")
  623.     (set envname "CanonBJECPref")
  624.     (set presetname "DriverPresets/CanonBJC4000")
  625.     (set studiodefault "CanonBJC4550")
  626.     (set soutput "Output/CanonBJC4550")
  627.     (set sprofile "Profiles/CanonBJC4100")
  628.     (set setuptool "USEPOWERON")
  629. ))
  630. ; Dj500C
  631. (if (= studio 5)
  632. (
  633.     (set drivername "")
  634.     (set prefname "")
  635.     (set setupname "")
  636.     (set envname "")
  637.     (set presetname "")
  638.     (set studiodefault "")
  639.     (set soutput "Output/Deskjet500C")
  640.     (set sprofile "Profiles/Deskjet500C")
  641.     (set setuptool "")
  642. ))
  643. ; Dj550C
  644. (if (= studio 6)
  645. (
  646.     (set drivername "")
  647.     (set prefname "")
  648.     (set setupname "")
  649.     (set envname "")
  650.     (set presetname "")
  651.     (set studiodefault "")
  652.     (set soutput "Output/Deskjet550C")
  653.     (set sprofile "")
  654.     (set setuptool "")
  655. ))
  656. (set addm 5)
  657. (Meter)
  658. (if (> studio 0)
  659. (
  660.     (makeassign "STUDIOPARENT" "Devs:Printers")
  661.     (if (<> drivername "")
  662.     (
  663.         (set exerr (run (cat "RAM:lx x drivers/" drivername ".pkd \"STUDIOPARENT:\"")))
  664.         (if (> exerr 0)
  665.         (
  666.             (abort (#abortunpack (tackon "Drivers" drivername)))
  667.         ))
  668.     ))
  669.     (set addm 10)
  670.     (Meter)
  671.     (makeassign "STUDIOPARENT" prefdisk)
  672.     (if (<> prefname "")
  673.     (
  674.         (set exerr (run (cat "RAM:lx x " prefname ".pkd \"STUDIOPARENT:\"")))
  675.         (if (> exerr 0)
  676.         (
  677.             (abort (#abortunpack prefname))
  678.         ))
  679.     ))
  680.     (set addm 10)
  681.     (Meter)
  682.     (if (<> setupname "")
  683.     (
  684.         (set exerr (run (cat "RAM:lx x " setupname ".pkd \"STUDIOPARENT:\"")))
  685.         (if (> exerr 0)
  686.         (
  687.             (abort (#abortunpack prefname))
  688.         ))
  689.         (if (<> setuptool "")
  690.         (
  691.             (tooltype (prompt "")
  692.                 (help "")
  693.                 (dest (cat "STUDIOPARENT:" (fileonly setupname)))
  694.                 (settooltype (setuptool) "ON")
  695.                 (noposition))
  696.         ))
  697.         (message (#setupmsg prefdisk))
  698.         (working #waitmsg)
  699.     ))
  700.     (set addm 10)
  701.     (Meter)
  702.     (if (<> drivername "")
  703.     (
  704.         (set delenv 1)
  705.         (if (= (exists (cat "ENV:" envname)) 1)
  706.         (
  707.                 (if (NOT (askbool (prompt (#delenv))
  708.                     (choices #yesupdate #nochange)
  709.                     (help (#delenvhelp))
  710.                     (default 1)))
  711.                 (
  712.                     (set delenv 0)
  713.                 ))
  714.         ))
  715.         (if (> delenv 0)
  716.         (
  717.             (if (exists "ENV:")
  718.             (
  719.                 (delete (cat "ENV:" envname))
  720.             ))
  721.             (if (exists "ENVARC:")
  722.             (
  723.                 (delete (cat "ENVARC:" envname))
  724.             ))
  725.             (if (<> presetname "")
  726.             (
  727.                 (if (= (exists presetname) 1)
  728.                 (
  729.                     (copyfiles (source presetname)
  730.                         (dest "ENV:")
  731.                         (newname envname)
  732.                         (nogauge)
  733.                     )
  734.                 )
  735.                 (
  736.                     (if (= (exists (cat presetname ".pkd")) 1)
  737.                     (
  738.                         (set exerr (run (cat "RAM:lx x " presetname ".pkd ENV:")))
  739.                         (if (> exerr 0)
  740.                         (
  741.                             (abort (#abortunpack (cat presetname ".pkd")))
  742.                         ))
  743.                         (if (exists (cat "ENV:" envname))
  744.                         (
  745.                             (delete (cat "ENV:" envname))
  746.                         ))
  747.                         (rename (cat "ENV:" (fileonly presetname)) (cat "ENV:" envname))
  748.                     ))
  749.                 ))
  750.                 (if (= (exists (cat "ENV:" envname)) 1)
  751.                 (
  752.                     (if (exists "ENVARC:")
  753.                     (
  754.                         (copyfiles (source (cat "ENV:" envname))
  755.                             (dest "ENVARC:")
  756.                             (newname envname)
  757.                             (nogauge)
  758.                         )
  759.                     ))
  760.                 ))
  761.             ))
  762.         ))
  763.     ))
  764.     (set addm 10)
  765.     (Meter)
  766.     (working #waitmsg)
  767.     (if (<> studiodefault "")
  768.     (
  769.         (makeassign "STUDIOPARENT" (tackon (pathonly (studiopath)) "Studio_Prefs"))
  770.         (set exerr (run (cat "RAM:lx x \"" (tackon "StudioPresets" (cat studiodefault ".pkd\"")) "\"T:\"")))
  771.         (if (> exerr 0)
  772.         (
  773.             (abort (#abortunpack (tackon "StudioPresets" (cat studiodefault ".pkd"))))
  774.         ))
  775.         (copyfiles (source (cat "T:" studiodefault ".prefs"))
  776.             (dest "STUDIOPARENT:")
  777.             (newname "DefaultSettings")
  778.             (nogauge)
  779.         )
  780.         (if (exists "STUDIOPARENT:Studio.prefs")
  781.         (
  782.             (if (askbool (prompt (#sdelenv))
  783.                 (choices "Yes, delete" "No, don't delete")
  784.                 (help (#sdelenvhelp))
  785.                 (default 1))
  786.             (
  787.                 (delete "STUDIOPARENT:Studio.prefs")
  788.             ))
  789.         ))
  790.     ))
  791.     (set addm 10)
  792.     (Meter)
  793.     (working #waitmsg)
  794.     (if (<> soutput "")
  795.     (
  796.         (makeassign "STUDIOPARENT" (tackon (pathonly (studiopath)) "Studio_Output"))
  797.         (set exerr (run (cat "RAM:lx x \"" soutput ".pkd\" \"STUDIOPARENT:\"")))
  798.         (if (> exerr 0)
  799.         (
  800.             (abort (#abortunpack (cat soutput ".pkd")))
  801.         ))
  802.     ))
  803.     (set addm 10)
  804.     (Meter)
  805.     (if (<> sprofile "")
  806.     (
  807.         (makeassign "STUDIOPARENT" (tackon (pathonly (studiopath)) "Studio_Profiles"))
  808.         (set exerr (run (cat "RAM:lx x \"" sprofile ".pkd\" \"STUDIOPARENT:\"")))
  809.         (if (> exerr 0)
  810.         (
  811.             (abort (#abortunpack (cat sprofile ".pkd")))
  812.         ))
  813.     ))
  814.     (if (<> drivername "")
  815.     (
  816.         (message (#installed drivername (fileonly prefname)))
  817.     ))
  818. ))
  819. (run "RAM:lx n")
  820. (delete "RAM:lx")
  821. (makeassign "STUDIOPARENT")
  822. (complete 100)
  823.