home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Printer / TP402CRK.LHA / Install < prev    next >
Encoding:
Text File  |  1995-11-06  |  15.5 KB  |  588 lines
  1. ; Installation script for TurboPrint Professional 4.0
  2. ; (C) 1995 IrseeSoft
  3. ;
  4. ;
  5. ; $VER: TurboPrint Professional 4.00 (22.05.95)
  6. ;
  7. ;
  8. ;   "Install TurboPrint"         operationMode = 0
  9. ;   "Update TurboPrint"          operationMode = 1
  10. ;   "Remove TurboPrint"          operationMode = 2
  11. ;   "Query TurboPrint Version"   operationMode = 3
  12. ;
  13. ; TODO
  14. ;
  15. ; String constants section. All messages and strings appear in this section
  16. ; for easier translation into foreign languages.
  17.  
  18. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  19. ;
  20. ; LANGUAGE SECTION
  21. ;
  22. ; to support more than only one language, there is a special section for
  23. ; each supported language.
  24. ;
  25.  
  26. (if (<> @language "english")
  27. ((if (<> @language "deutsch")
  28.  ( set @language "english")
  29.  )
  30. ))
  31.    (set #tp-version "TurboPrint Professional 4.00 (22.05.95)" )
  32.  
  33.    (set #introduction
  34.       (cat "\nInstallation von TurboPrint Professional 4.0\n"
  35.              "    Copyright © 1988-1995 IrseeSoft SPCS\n\n"
  36.            "Bitte wählen Sie:\n\n"
  37.       )
  38.    )
  39.  
  40.    (set #introduction-help
  41.       (cat "Neu installieren von TurboPrint:\n"
  42.            "Die TurboPrint Software wird auf Ihre Festplatte kopiert. "
  43.            "Wählen Sie diese Option, falls noch keine ältere Version "
  44.            "von TurboPrint auf Ihrer Festplatte installiert war.\n\n"
  45.        "Update installieren:\n"
  46.            "Eine bereits auf der Platte befindliche alte Version von "
  47.            "TurboPrint wird durch TurboPrint Professional 4.0 ersetzt. "
  48.            "Dazu werden nicht mehr benötigte Dateien der alten Version "
  49.            "gelöscht.\n\n"
  50.            "Entfernen von der Platte:\n"
  51.            "Das TurboPrint Verzeichnis wird von der Platte gelöscht, "
  52.            "Einträge in der user-startup und im WBStartup-Verzeichnis "
  53.            "werden entfernt.\n\n"
  54.            "Version:\n"
  55.            "Die Versionsnummern von Kickstart, Workbench und TurboPrint "
  56.        "werden angezeigt.\n\n"
  57.       )
  58.    )
  59.  
  60.    (set #need-os2
  61.       (cat "\nTurboPrint Professional 4.0 benötigt Kickstart 2.04 oder höher\n"
  62.            "Um TurboPrint Professional 4.0 zu verwenden, müssen Sie Ihren "
  63.            "Amiga auf Betriebssystem 2.04 (oder 3.1) umrüsten.\n"
  64.            "Umrüstkits (Kickstart-ROM + Workbench-Disketten) "
  65.        "sind im Fachhandel oder Versandhandel erhältlich.\n"
  66.        "Als Übergangslösung empfehlen wir die Verwendung von "
  67.            "TurboPrint 3.0.\n"
  68.       )
  69.    )
  70.  
  71.    (set #install "Neu installieren von TurboPrint")
  72.    (set #update  "Update installieren")
  73.    (set #remove  "Entfernen von der Platte")
  74.    (set #version "Versionsnummer anzeigen")
  75.  
  76. ; additional help to the built-in one
  77.    (set #generic-help
  78.       (cat "Bitte lesen Sie auch die ReadMe-Datei auf dieser Diskette!\n"
  79.       )
  80.    )
  81.  
  82.    (set #which-printer
  83.       (cat "Bitte wählen Sie Ihren Drucker aus\n(oder wählen Sie"
  84.            "'Hilfe', falls Ihr Drucker nicht aufgelistet ist)\n")
  85.    )
  86.    (set #help-printer
  87.       (cat "Falls Ihr Drucker nicht namentlich aufgelistet ist, "
  88.            "sehen Sie bitte in Ihrem Drucker-Handbuch nach, welche "
  89.            "Emulationen Ihr Drucker unterstützt und wählen den "
  90.        "entsprechenden TurboPrint-Treiber "
  91.        "(z.B. Epson LQ2550 -> Epson_LQ,SQxx50 in TurboPrint) "
  92.        "oder wählen Sie einen der folgenden Einträge: \n"
  93.        "'.24-Nadel', '.9-Nadel', '.Laser', "
  94.        "'.Tinte-HP-kompatibel', '.Tinte-Epson-kompatibel'\n\n"
  95.        "Sie können auch nach der Installation jederzeit weitere "
  96.            "Treiber auswählen.\n\n" )
  97.    )
  98.  
  99.    (set #another-printer
  100.       (cat "Wollen Sie einen weiteren Drucker installieren?\n"
  101.            "Bisher installierte Drucker:\n\n" )
  102.    )
  103.  
  104.    (set #ask-priyes "Ja")
  105.    (set #ask-prino "Nein")
  106.  
  107.    (set #remove-drivers
  108.       (cat "\nSie haben 'TurboPrint von der Platte entfernen' gewählt.\n"
  109.            "Dabei wird die TurboPrint-Schublade komplett von der Festplatte "
  110.            "gelöscht. Bitte vergewissern Sie sich, ob sich darin noch "
  111.            "von Ihnen benötigte Programme oder Dateien befinden!\n"
  112.       )
  113.    )
  114.  
  115.    (set #update-drivers
  116.       (cat "\nBeim Update werden alle Dateien gelöscht, die "
  117.            "sich momentan in den Verzeichnissen "
  118.            "'Printers', 'Configs' und 'Turbo' innerhalb der TurboPrint "
  119.            "Schublade befinden.\n"
  120.            "z.B. auch alte Druckertreiber und Konfigurationsdateien.\n" 
  121.            "Falls Sie das nicht wollen, wählen Sie bitte "
  122.            "'Installation abbrechen'."
  123.       )
  124.    )
  125.  
  126.    (set #removing-drivers
  127.       (cat "\nTurboPrint wird von Ihrer Festplatte entfernt..."
  128.       )
  129.    )
  130.    (set #removing-TurboPrefs
  131.       (cat "Falls die startup-sequence/user-startup durch das TurboPrint "
  132.            "Installationsprogramm geändert wurde, wird dies nun "
  133.            "automatisch rückgängig gemacht."
  134.       )
  135.    )
  136.    (set #adding-TurboPrefs
  137.       (cat "Die user-startup Datei wird um den Befehl \n"
  138.            "'Assign TurboPrint: <pfad>:TurboPrint' \n"
  139.            "erweitert."
  140.       )
  141.    )
  142.  
  143.    (set #ask-wbstart20
  144.     (cat "Sie können TurboPrint beim Rechnerstart automatisch installieren "
  145.          "lassen. Dazu wird ein Startprogramm in die WBStartup-Schublade "
  146.          "kopiert.\n"
  147.      "Sie können den Autostart jederzeit wieder entfernen, indem Sie "
  148.          "das Icon 'TurboStart' aus der WBStartup-Schublade herausnehmen.\n"
  149.     )
  150.    )
  151.    (set #wbstart-help
  152.     (cat "Autostart installieren:\n"
  153.          "Beim Einschalten des Rechners oder nach einem Reset wird "
  154.          "TurboPrint automatisch geladen. Dies ist sinnvoll, wenn "
  155.          "Sie meistens TurboPrint-Treiber anstelle der Workbench-Druckertreiber "
  156.          "verwenden wollen. Um wieder auf die Workbench-Treiber "
  157.          "zurückzuschalten, verwenden Sie das Programm 'NoTurbo'.\n\n"
  158.          "Kein Autostart:\n"
  159.          "TurboPrint muß nach dem Einschalten mit Hilfe von TurboPrefs "
  160.          "geladen werden. Diese Option ist sinnvoll, wenn Sie "
  161.          "in der Regel mit den Workbench-Treibern arbeiten und nur "
  162.          "bei Bedarf auf die TurboPrint-Treiber umschalten wollen.\n\n"
  163.     )
  164.    )
  165.  
  166.    (set #ask-wbyes "Autostart installieren" )
  167.  
  168.    (set #ask-wbno "Kein Autostart" )
  169.  
  170.    (set #ask-printmanager 
  171.     (cat "Wollen Sie das Grafik Anzeige- und Druckprogramm "
  172.          "DruckManager installieren?" 
  173.     )
  174.    )
  175.  
  176.    (set #ask-pmyes "DruckManager installieren" )
  177.  
  178.    (set #ask-pmno "Nicht installieren" )
  179.  
  180.    (set #ask-pictures 
  181.     (cat "Wollen Sie die Demo-Bilder auf die Festplatte kopieren?" )
  182.    )
  183.  
  184.    (set #ask-piyes "Bilder kopieren" )
  185.  
  186.    (set #ask-pino "Nicht kopieren" )
  187.  
  188.    (set #version-info "\nInformation über Ihr System:\n")
  189.    (set #system-version-info "Kickstart %ld.%ld, Workbench %ld.%ld\n")
  190.  
  191.  
  192.    (set #installation-done
  193.       (cat "Die Installation von TurboPrint ist abgeschlossen.\n"
  194.     "Entfernen Sie nun bitte Ihre TurboPrint-Diskette und Starten "
  195.     "Sie Ihren Amiga neu."
  196.     )
  197.    )
  198.  
  199. ; General initialisation of internal states, options and pre-defined
  200. ; variables go here.
  201.  
  202. (delopts askuser)
  203.  
  204. ; Check whether this system is operating with at least Workbench 2.04 (V37).
  205. ; This is needed for the WBStartup feature and the Printmanager
  206.  
  207. (set kickVersion (shiftright (getversion) 16))
  208.  
  209. (set wbVersion (shiftright (getversion "LIBS:version.library") 16))
  210.  
  211. ; set source directory
  212.  
  213. (set sourcedir (pathonly @icon))
  214.  
  215. ;
  216. (if (< wbVersion 37)
  217.   (
  218.    (message #need-os2)
  219.    (exit (quiet))
  220.   )
  221. )
  222. ;
  223. (welcome)
  224.  
  225. ; remember current user level
  226.  
  227. (set old-level @user-level)
  228.  
  229. ; Introduce ourself to the user. Query whether the software shall be
  230. ; installed/updated or removed altogether.
  231.  
  232. (set operationMode
  233.    (askchoice
  234.       (prompt #introduction)
  235.       (choices #install #update #remove #version)
  236.       (help #generic-help #introduction-help @askchoice-help)
  237.    )
  238. )
  239.  
  240. ; Show version number
  241.  
  242. (if (= operationMode 3)
  243.    (
  244.    ; Find out the version of the Kickstart and Workbench and append it to the
  245.    ; version information string.
  246.  
  247.    (run (cat (tackon sourcedir "c/Version") " >ENV:VERINFO"))
  248.    (set #version-info (cat #version-info (getenv "VERINFO")))
  249.    (delete "ENV:VERINFO")
  250.  
  251.    ; Get the version string from this installer script itself!
  252.  
  253.    (set #version-info (cat #version-info #tp-version))
  254.    (delete "ENV:TPINFO")
  255.  
  256.  
  257.    (message #version-info)
  258.    (exit (quiet))
  259.    )
  260. )
  261.  
  262. ; Get path of TurboPrint
  263. ; Set the prompt depending on operationMode
  264.  
  265. (if (= operationMode 0)
  266.  
  267.    (set #path-prompt (cat "In welchem Verzeichnis soll das TurboPrint-Verzeichnis "
  268.               "erstellt werden?")
  269.    )
  270. )
  271.  
  272. (if (= operationMode 1)
  273.  
  274.    (set #path-prompt (cat "Wo befindet sich das TurboPrint-Verzeichnis, "
  275.               "in welches das Update installiert werden soll?")
  276.    )
  277. )
  278.  
  279. (if (= operationMode 2)
  280.  
  281.    (set #path-prompt (cat "Wo befindet sich das TurboPrint-Verzeichnis, "
  282.               "das entfernt werden soll?")
  283.    )
  284. )
  285.  
  286.  
  287. ; ask for the destination directory
  288.  
  289. (if (not (exists "Work:"))
  290.    (user 1)
  291. )
  292.  
  293. (set target
  294.    (askdir (prompt #path-prompt)
  295.    (help #generic-help @askdir-help)
  296.    (default "Work:") )
  297. )
  298.  
  299. (user old-level)
  300.  
  301. ; do some cleanup if there was an old version of tp installed
  302. ; - no questions aked -
  303. ; try to remove TurboPrint
  304.  
  305. (run (cat (tackon sourcedir "NoTurbo") " -q"))
  306.  
  307. ; Update TurboPrint => remove contents of Printers, Configs and Turbo drawers
  308.  
  309. (if (= operationMode 1)
  310.  (
  311.    (message #update-drivers)
  312.    
  313.       (delete (tackon target "TurboPrint/TurboPrefs"))
  314.       (delete (tackon target "TurboPrint/TurboPrefs.info"))
  315.       (delete (tackon target "TurboPrint/NoTurbo"))
  316.       (delete (tackon target "TurboPrint/NoTurbo.info"))
  317.  
  318.       (run (cat (tackon sourcedir "c/Delete") " >nil: \"" (tackon target "TurboPrint/Printers/#?") "\" all"))
  319.       (run (cat (tackon sourcedir "c/Delete") " >nil: \"" (tackon target "TurboPrint/Configs/#?") "\""))
  320.       (run (cat (tackon sourcedir "c/Delete") " >nil: \"" (tackon target "TurboPrint/Turbo/#?") "\""))
  321.       (run (cat (tackon sourcedir "c/Delete") " >nil: \"" (tackon target "TurboPrint/Colors/#?") "\""))
  322.       (run (cat (tackon sourcedir "c/Delete") " >nil: \"" (tackon target "TurboPrint/Drivers/#?") "\""))
  323.  )
  324. )
  325.  
  326. ; Remove TurboPrint => remove TurboPrint drawer completely
  327.  
  328. (if (= operationMode 2)
  329.  (
  330.    (message #remove-drivers)
  331.    (working #removing-drivers)
  332.  
  333.    (run (cat (tackon sourcedir "c/Delete") " >nil: \"" (tackon target "TurboPrint") "\" all"))
  334.  
  335.    ;Remove TurboStart in WBStartup
  336.  
  337.    (delete "sys:WBStartup/TurboStart.info")
  338.  
  339.    ;Remove TurboPrefs in Prefs
  340.  
  341.    (delete "sys:Prefs/TurboPrefs.info")
  342.  
  343.    ;Inform user
  344.  
  345.    (startup "TurboPrint"
  346.          (prompt #removing-TurboPrefs)
  347.          (help #generic-help @startup-help)
  348.    )
  349.  )
  350. )
  351.  
  352. ;if install or update
  353.  
  354. (if (or (= operationMode 0) (= operationMode 1) )
  355.   (
  356.  
  357. ;Personalisierung
  358.  
  359.    (run (cat (tackon sourcedir "Extra/Personalisierung") " -q"))
  360.     
  361.  
  362. ;Make TurboPrint drawer
  363.    (makedir   (tackon target "TurboPrint") (infos))
  364.  
  365. ;Copy printer stuff
  366.    (copyfiles
  367.           (help   #generic-help @copyfiles-help)
  368.           (source (tackon sourcedir "Printers"))
  369.              (dest   (tackon target "TurboPrint/Printers"))
  370.               (all)
  371.    )
  372.  
  373. ;Choose default printer(s)
  374.  
  375. (set printer-copy 1)
  376.  
  377. (user 1)
  378.  
  379. (while (= 1 printer-copy)
  380.  (
  381.  
  382.   (set printer-name
  383.    (askfile (prompt #which-printer)
  384.    (help #help-printer @askfile-help)
  385.    (default (tackon target "TurboPrint/Printers"))
  386.    )
  387.   )
  388.  
  389.   (if ( = (tackon target "TurboPrint/Printers") (pathonly printer-name) )
  390. (
  391.   (set printer-name (fileonly printer-name))
  392.  
  393.   (set printer-name (substr printer-name 0 ( - (strlen printer-name) 4) ))
  394.  
  395.   (copyfiles
  396.    (help   #generic-help @copyfiles-help)
  397.    (source (tackon sourcedir "Configs/_Dummy_"))
  398.    (dest   (tackon target "TurboPrint/Configs" ))
  399.    (newname (cat printer-name ".tpc") )
  400.   )
  401.  
  402.   (set printer-list (cat printer-list printer-name "\n"))
  403.  
  404.   (set printer-copy (askbool (prompt (cat #another-printer printer-list) )
  405.          (help @askchoice-help)
  406. ))
  407.    )
  408.   )
  409.  
  410.  )
  411. )
  412.  
  413. (user old-level)
  414.  
  415.  
  416.  
  417. ;user-startup
  418. ;the installer creates a user-startup if it doesn't already exist
  419. ;dont ask user
  420.  
  421.  ;Add assign to user-startup
  422.  
  423.       (startup "TurboPrint"
  424.          (command (cat "Assign TurboPrint: " (tackon target "TurboPrint") )
  425.          )
  426.          (prompt #adding-TurboPrefs)
  427.          (help #generic-help @startup-help)
  428.       )
  429.  
  430. ;Execute assign NOW
  431.  
  432. (run (cat (tackon sourcedir "c/Assign") " TurboPrint: \"" (tackon target "TurboPrint") "\""))
  433.  
  434.  
  435. ;install one of the two autostart options
  436.  
  437.    ;OS 2.x/3.0 => wbstartup drawer
  438.    ;ask user if he/she wants to have the autostart option installed
  439.  
  440.    (if (= 0 (askchoice (prompt #ask-wbstart20)
  441.          (help #wbstart-help @askchoice-help)
  442.          (choices #ask-wbyes #ask-wbno)
  443.          (default 0)
  444.        )    )
  445.  (
  446.  ;Copy TurboStart icon to WBStartup-drawer
  447.  
  448.    (copyfiles
  449.           (help   #generic-help @copyfiles-help)
  450.           (source (tackon sourcedir "extra/TurboStart.info"))
  451.              (dest   "sys:WBStartup" )
  452.    )
  453.  
  454.    ;Put correct paths into TurboStart icon
  455.  
  456.    (tooltype
  457.       (dest "sys:WBStartup/TurboStart")
  458.           (setdefaulttool "TurboPrint:TurboPrefs" )
  459.           (settooltype "QUICK" "")
  460.           (settooltype "DONOTWAIT" "")
  461.       (noposition)
  462.    )
  463.  
  464.  )
  465. )
  466.  
  467. ;install the print manager?
  468.  
  469. (if (>= wbVersion 37)
  470.  (if (= 0 (askchoice (prompt #ask-printmanager)
  471.          (help @askchoice-help)
  472.          (choices #ask-pmyes #ask-pmno)
  473.          (default 0)
  474.          )
  475.     )
  476.   (
  477.    (copyfiles
  478.           (help   #generic-help @copyfiles-help)
  479.           (source (tackon sourcedir "DruckManager"))
  480.              (dest   (tackon target "TurboPrint") )
  481.           (infos)
  482.    )
  483.    (copylib
  484.          (source (tackon sourcedir "libs/multipic.library"))
  485.          (dest   "LIBS:")
  486.    )
  487.   )
  488.  )
  489. )
  490.  
  491. ;install the pictures?
  492.  
  493. (if (= 0 (askchoice (prompt #ask-pictures)
  494.          (help @askchoice-help)
  495.          (choices #ask-piyes #ask-pino)
  496.          (default 0)
  497.          )
  498.     )
  499.  (
  500.    (copyfiles
  501.           (help   #generic-help @copyfiles-help)
  502.           (source (tackon sourcedir "Pictures"))
  503.              (dest   (tackon target "TurboPrint/Pictures"))
  504.               (all)
  505.           (infos)
  506.    )
  507.  )
  508. )
  509.  
  510.  
  511. ;Copy other stuff
  512.    (copyfiles
  513.           (help   #generic-help @copyfiles-help)
  514.           (source (tackon sourcedir "TurboPrefs"))
  515.              (dest   (tackon target "TurboPrint") )
  516.           (infos)
  517.    )
  518.  
  519.  ;Copy TurboPrefs icon to sys:prefs
  520.  
  521.    (copyfiles
  522.           (help   #generic-help @copyfiles-help)
  523.           (source (tackon sourcedir "extra/TurboStart.info"))
  524.              (dest   "sys:Prefs" )
  525.           (newname "TurboPrefs.info" )
  526.    )
  527.  
  528.    ;Put correct paths into TurboStart icon
  529.  
  530.    (tooltype
  531.       (dest "sys:Prefs/TurboPrefs")
  532.           (setdefaulttool "TurboPrint:TurboPrefs" )
  533.           (settooltype "(QUICK)" "" )
  534.       (noposition)
  535.    )
  536.  
  537.    (copyfiles
  538.           (help   #generic-help @copyfiles-help)
  539.           (source (tackon sourcedir "NoTurbo"))
  540.              (dest   (tackon target "TurboPrint") )
  541.           (infos)
  542.    )
  543.  
  544.    (copyfiles
  545.           (help   #generic-help @copyfiles-help)
  546.           (source (tackon sourcedir "LiesMich"))
  547.              (dest   (tackon target "TurboPrint") )
  548.           (infos)
  549.    )
  550.  
  551.    (copyfiles
  552.           (help   #generic-help @copyfiles-help)
  553.           (source (tackon sourcedir "Turbo"))
  554.              (dest   (tackon target "TurboPrint/Turbo"))
  555.               (all)
  556.    )
  557.    (copyfiles
  558.           (help   #generic-help @copyfiles-help)
  559.           (source (tackon sourcedir "Extra"))
  560.              (dest   (tackon target "TurboPrint/Extra"))
  561.           (infos)
  562.               (all)
  563.    )
  564.    (copyfiles
  565.           (help   #generic-help @copyfiles-help)
  566.           (source (tackon sourcedir "Configs/_Default_"))
  567.              (dest   (tackon target "TurboPrint/Configs"))
  568.    )
  569.    (copyfiles
  570.           (help   #generic-help @copyfiles-help)
  571.           (source (tackon sourcedir "Colors"))
  572.              (dest   (tackon target "TurboPrint/Colors"))
  573.               (all)
  574.    )
  575.    (copyfiles
  576.           (help   #generic-help @copyfiles-help)
  577.           (source (tackon sourcedir "Drivers"))
  578.              (dest   (tackon target "TurboPrint/Drivers"))
  579.               (all)
  580.    )
  581.  
  582.  
  583. ))
  584. (user 1)
  585. (message #installation-done)
  586. (exit (quiet))
  587.  
  588.