home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Printer / PET-TUPRINT5.4.DMS / in.adf / Install < prev    next >
Encoding:
Text File  |  1978-01-03  |  16.4 KB  |  630 lines
  1. ; Installation script for TurboPrint Professional 5.04 
  2. ; (C) 1996 IrseeSoft
  3. ;
  4. ;
  5. ; $VER: TurboPrint Professional 5.04 (26.11.96) 
  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.  
  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 5.04 (26.11.96) " )
  32.  
  33.    (set #introduction
  34.       (cat "\nInstallation von TurboPrint Professional 5.04 \n"
  35.              "    Copyright © 1996 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 5 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 5 benötigt Kickstart 2.04 oder höher\n"
  62.            "Um TurboPrint Professional 5 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.          "Grafik-Publisher installieren?" 
  173.     )
  174.    )
  175.  
  176.    (set #ask-pmyes "Grafik-Publisher 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 (< kickVersion 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.    (set #version-info 
  248.      (cat #version-info 
  249.       (#system-version-info 
  250.  
  251.     (shiftright (getversion) 16)
  252.     (bitand (getversion) 65535)
  253.     (shiftright (getversion "LIBS:version.library") 16)
  254.     (bitand (getversion "LIBS:version.library") 65535)
  255.       )
  256.      )
  257.    )
  258.      
  259.  
  260.    ; Get the version string from this installer script itself!
  261.  
  262.    (set #version-info (cat #version-info #tp-version))
  263.  
  264.    (message #version-info)
  265.    (exit (quiet))
  266.    )
  267. )
  268.  
  269. ; Get path of TurboPrint
  270. ; Set the prompt depending on operationMode
  271.  
  272. (if (= operationMode 0)
  273.  
  274.    (set #path-prompt (cat "In welchem Verzeichnis soll das TurboPrint-Verzeichnis "
  275.               "erstellt werden?")
  276.    )
  277. )
  278.  
  279. (if (= operationMode 1)
  280.  
  281.    (set #path-prompt (cat "Wo befindet sich das TurboPrint-Verzeichnis, "
  282.               "in welches das Update installiert werden soll?")
  283.    )
  284. )
  285.  
  286. (if (= operationMode 2)
  287.  
  288.    (set #path-prompt (cat "Wo befindet sich das TurboPrint-Verzeichnis, "
  289.               "das entfernt werden soll?")
  290.    )
  291. )
  292.  
  293.  
  294. ; ask for the destination directory
  295.  
  296. (if (not (exists "Work:"))
  297.    (user 1)
  298. )
  299.  
  300. (set target
  301.    (askdir (prompt #path-prompt)
  302.    (help #generic-help @askdir-help)
  303.    (default "Work:") )
  304. )
  305.  
  306. (user old-level)
  307.  
  308. ; do some cleanup if there was an old version of tp installed
  309. ; - no questions aked -
  310. ; try to remove TurboPrint
  311.  
  312. (run (cat (tackon sourcedir "NoTurbo") " -q"))
  313.  
  314. ; Update TurboPrint => remove contents of Printers, Configs and Turbo drawers
  315.  
  316. (if (= operationMode 1)
  317.  (
  318.    (message #update-drivers)
  319.    
  320.       (delete (tackon target "TurboPrint/Druckmanager"))
  321.       (delete (tackon target "TurboPrint/Druckmanager.info"))
  322.       (delete (tackon target "TurboPrint/TurboPrefs"))
  323.       (delete (tackon target "TurboPrint/TurboPrefs.info"))
  324.       (delete (tackon target "TurboPrint/NoTurbo"))
  325.       (delete (tackon target "TurboPrint/NoTurbo.info"))
  326.  
  327.       (delete (tackon target "TurboPrint/Printers") (all))
  328.       (delete (tackon target "TurboPrint/Configs") (all))
  329.       (delete (tackon target "TurboPrint/Turbo") (all))
  330.       (delete (tackon target "TurboPrint/Colors") (all))
  331.       (delete (tackon target "TurboPrint/Drivers") (all))
  332.  )
  333. )
  334.  
  335. ; Remove TurboPrint => remove TurboPrint drawer completely
  336.  
  337. (if (= operationMode 2)
  338.  (
  339.    (message #remove-drivers)
  340.    (working #removing-drivers)
  341.  
  342.    (delete (tackon target "TurboPrint") (all) )
  343.  
  344.    ;Remove TurboStart in WBStartup
  345.  
  346.    (delete "sys:WBStartup/TurboStart.info")
  347.  
  348.    ;Remove TurboPrefs in Prefs
  349.  
  350.    (delete "sys:Prefs/TurboPrefs.info")
  351.  
  352.    ;Inform user
  353.  
  354.    (startup "TurboPrint"
  355.          (prompt #removing-TurboPrefs)
  356.          (help #generic-help @startup-help)
  357.    )
  358.  )
  359. )
  360.  
  361. ;if install or update
  362.  
  363. (if (or (= operationMode 0) (= operationMode 1) )
  364.   (
  365.  
  366. ;Personalisierung
  367.  
  368.    (run (cat (tackon sourcedir "Extra/Personalisierung") " -q"))
  369.     
  370.  
  371. ;Make TurboPrint drawer
  372.    (makedir   (tackon target "TurboPrint") (infos))
  373.  
  374. ;Copy printer stuff
  375.    (copyfiles
  376.           (help   #generic-help @copyfiles-help)
  377.           (source (tackon sourcedir "Printers"))
  378.              (dest   (tackon target "TurboPrint/Printers"))
  379.               (all)
  380.    )
  381.  
  382. ;Choose default printer(s)
  383.  
  384. (set printer-copy 1)
  385.  
  386. (user 1)
  387.  
  388. (while (= 1 printer-copy)
  389.  (
  390.  
  391.   (set printer-name
  392.    (askfile (prompt #which-printer)
  393.    (help #help-printer @askfile-help)
  394.    (default (tackon target "TurboPrint/Printers"))
  395.    )
  396.   )
  397.  
  398.   (if ( = (tackon target "TurboPrint/Printers") (pathonly printer-name) )
  399. (
  400.   (set printer-name (fileonly printer-name))
  401.  
  402.   (set printer-name (substr printer-name 0 ( - (strlen printer-name) 4) ))
  403.  
  404.   (copyfiles
  405.    (help   #generic-help @copyfiles-help)
  406.    (source (tackon sourcedir "Configs/_Dummy_"))
  407.    (dest   (tackon target "TurboPrint/Configs" ))
  408.    (newname (cat printer-name ".tpc") )
  409.   )
  410.  
  411.   (set printer-list (cat printer-list printer-name "\n"))
  412.  
  413.   (set printer-copy (askbool (prompt (cat #another-printer printer-list) )
  414.          (help @askchoice-help)
  415. ))
  416.    )
  417.   )
  418.  
  419.  )
  420. )
  421.  
  422. (user old-level)
  423.  
  424.  
  425.  
  426. ;user-startup
  427. ;the installer creates a user-startup if it doesn't already exist
  428. ;dont ask user
  429.  
  430.  ;Add assign to user-startup
  431.  
  432.       (startup "TurboPrint"
  433.          (command (cat "Assign TurboPrint: " (tackon target "TurboPrint") )
  434.          )
  435.          (prompt #adding-TurboPrefs)
  436.          (help #generic-help @startup-help)
  437.       )
  438.  
  439. ;Execute assign NOW
  440.  
  441. (makeassign ("TurboPrint") (tackon target "TurboPrint") )
  442.  
  443.  
  444. ;install one of the two autostart options
  445.  
  446.    ;OS 2.x/3.0 => wbstartup drawer
  447.    ;ask user if he/she wants to have the autostart option installed
  448.  
  449.    (if (= 0 (askchoice (prompt #ask-wbstart20)
  450.          (help #wbstart-help @askchoice-help)
  451.          (choices #ask-wbyes #ask-wbno)
  452.          (default 0)
  453.        )    )
  454.  (
  455.  ;Copy TurboStart icon to WBStartup-drawer
  456.  
  457.    (copyfiles
  458.           (help   #generic-help @copyfiles-help)
  459.           (source (tackon sourcedir "extra/TurboStart.info"))
  460.              (dest   "sys:WBStartup" )
  461.    )
  462.  
  463.    ;Put correct paths into TurboStart icon
  464.  
  465.    (tooltype
  466.       (dest "sys:WBStartup/TurboStart")
  467.           (setdefaulttool "TurboPrint:TurboPrefs" )
  468.           (settooltype "QUICK" "")
  469.           (settooltype "DONOTWAIT" "")
  470.       (noposition)
  471.    )
  472.  
  473.  )
  474. )
  475.  
  476. ;install the print manager?
  477.  
  478. (if (>= kickVersion 37)
  479.  (if (= 0 (askchoice (prompt #ask-printmanager)
  480.          (help @askchoice-help)
  481.          (choices #ask-pmyes #ask-pmno)
  482.          (default 0)
  483.          )
  484.     )
  485.   (
  486.    (copyfiles
  487.           (help   #generic-help @copyfiles-help)
  488.           (source (tackon sourcedir "GrafikPublisher"))
  489.              (dest   (tackon target "TurboPrint") )
  490.           (newname "Druckmanager")
  491.    )
  492.    (copyfiles
  493.           (help   #generic-help @copyfiles-help)
  494.           (source (tackon sourcedir "GrafikPublisher"))
  495.              (dest   (tackon target "TurboPrint") )
  496.               (infos)
  497.    )
  498.    (copylib
  499.          (source (tackon sourcedir "libs/multipic.library"))
  500.          (dest   "LIBS:")
  501.    )
  502.   )
  503.  )
  504. )
  505.  
  506. ;install the pictures?
  507.  
  508. (if (= 0 (askchoice (prompt #ask-pictures)
  509.          (help @askchoice-help)
  510.          (choices #ask-piyes #ask-pino)
  511.          (default 0)
  512.          )
  513.     )
  514.  (
  515.    (copyfiles
  516.           (help   #generic-help @copyfiles-help)
  517.           (source (tackon sourcedir "Pictures"))
  518.              (dest   (tackon target "TurboPrint/Pictures"))
  519.               (all)
  520.           (infos)
  521.    )
  522.  )
  523. )
  524.  
  525.  
  526. ;Do the other stuff
  527.  
  528.    (copyfiles
  529.           (help   #generic-help @copyfiles-help)
  530.           (source (tackon sourcedir "TurboPrefs"))
  531.              (dest   (tackon target "TurboPrint") )
  532.           (infos)
  533.    )
  534.  
  535.  ;Copy TurboPrefs icon to sys:prefs
  536.  
  537.    (copyfiles
  538.           (help   #generic-help @copyfiles-help)
  539.           (source (tackon sourcedir "extra/TurboStart.info"))
  540.              (dest   "sys:Prefs" )
  541.           (newname "TurboPrefs.info" )
  542.    )
  543.  
  544.    ;Put correct paths into TurboStart icon
  545.  
  546.    (tooltype
  547.       (dest "sys:Prefs/TurboPrefs")
  548.           (setdefaulttool "TurboPrint:TurboPrefs" )
  549.           (settooltype "(QUICK)" "" )
  550.       (noposition)
  551.    )
  552.  
  553.    (copyfiles
  554.           (help   #generic-help @copyfiles-help)
  555.           (source (tackon sourcedir "NoTurbo"))
  556.              (dest   (tackon target "TurboPrint") )
  557.           (infos)
  558.    )
  559.  
  560.    (copyfiles
  561.           (help   #generic-help @copyfiles-help)
  562.           (source (tackon sourcedir "Turbo"))
  563.              (dest   (tackon target "TurboPrint/Turbo"))
  564.               (all)
  565.    )
  566.    (copyfiles
  567.           (help   #generic-help @copyfiles-help)
  568.           (source (tackon sourcedir "Extra"))
  569.              (dest   (tackon target "TurboPrint/Extra"))
  570.           (infos)
  571.               (all)
  572.    )
  573.    (copyfiles
  574.           (help   #generic-help @copyfiles-help)
  575.           (source (tackon sourcedir "Docs"))
  576.              (dest   (tackon target "TurboPrint/Docs"))
  577.           (infos)
  578.               (all)
  579.    )
  580.    (copyfiles
  581.           (help   #generic-help @copyfiles-help)
  582.           (source (tackon sourcedir "Temp"))
  583.              (dest   (tackon target "TurboPrint/Temp"))
  584.               (all)
  585.    )
  586.    (copyfiles
  587.           (help   #generic-help @copyfiles-help)
  588.           (source (tackon sourcedir "Libs"))
  589.              (dest   (tackon target "TurboPrint/Libs"))
  590.               (all)
  591.    )
  592.    (copyfiles
  593.           (help   #generic-help @copyfiles-help)
  594.           (source (tackon sourcedir "Configs/_Default_"))
  595.              (dest   (tackon target "TurboPrint/Configs"))
  596.    )
  597.    (copyfiles
  598.           (help   #generic-help @copyfiles-help)
  599.           (source (tackon sourcedir "Colors"))
  600.              (dest   (tackon target "TurboPrint/Colors"))
  601.               (all)
  602.    )
  603.    (copyfiles
  604.           (help   #generic-help @copyfiles-help)
  605.           (source (tackon sourcedir "Drivers"))
  606.              (dest   (tackon target "TurboPrint/Drivers"))
  607.               (pattern "~(#?.fzp)")
  608.    )
  609.    (copyfiles
  610.           (help   #generic-help @copyfiles-help)
  611.           (source (tackon sourcedir "Drivers"))
  612.              (dest   (tackon target "TurboPrint/Drivers"))
  613.               (compression)
  614.               (pattern "#?.fzp")
  615.    )
  616.  
  617.    (copyfiles
  618.           (help   #generic-help @copyfiles-help)
  619.           (source (tackon sourcedir "LiesMich"))
  620.              (dest   (tackon target "TurboPrint") )
  621.           (infos)
  622.    )
  623.  
  624.  
  625. ))
  626. (user 1)
  627. (message #installation-done)
  628. (exit (quiet))
  629.  
  630.