diff options
Diffstat (limited to 'systems/amiga/tpp/TPP410N/Install_D')
-rw-r--r-- | systems/amiga/tpp/TPP410N/Install_D | 354 |
1 files changed, 354 insertions, 0 deletions
diff --git a/systems/amiga/tpp/TPP410N/Install_D b/systems/amiga/tpp/TPP410N/Install_D new file mode 100644 index 0000000000..f13a9d4c12 --- /dev/null +++ b/systems/amiga/tpp/TPP410N/Install_D @@ -0,0 +1,354 @@ +; $VER: Installation TPP V4.10 (17.01.93) + +.BRA { +.KET } + +; Vorgabewurzelverzeichnis + +Set Vorgabe "work:tpp" + +; Ein paar interne Flags +Set ARexxIstInstalliert Ja +Set PaxTeXIstInstalliert Ja +Set MakeIndexIstInstalliert Ja +Set Update Nein +Set LHAbin "c/LHA -q -m -a x" +Set LangArc TPPDeutsch.lha +Set GlobArc TPPGlobal.lha + +Lab Anfang + +; In welchem Verzeichnis soll `TeXt Plus Professional' landen? + +Echo "TeXt Plus Professional V4.10*n" + +Echo "Falls dies ein Update von 4.00 auf 4.10 ist," +Echo "werden die *.Config und *.parse Dateien nicht" +Echo "überschrieben.*n" + +Echo "Bitte wählen Sie das Verzeichnis aus, in das" +Echo "TeXt Plus Professional installiert werden soll." +Echo "Schublade (<Return> = $Vorgabe) ? " NoLine + +; Vorherigen Wert löschen + +UnSet Schublade + +; Zielschublade einlesen + +Set >NIL: Schublade ? + +; Falls nur <Return> gedrückt wurde, wird der Vorgabewert verwendet + +If "$Schublade" EQ "*$Schublade" + Set Schublade $Vorgabe +EndIf + +; Den ursprünglichen Pfad bitte merken + +Set Startpfad $Schublade + +; Jetzt wird nachgeprüft, ob wir es mit einem Pfad inklusive eines +; Schubladennamens, oder mit einem Wurzelverzeichnis zu tun haben. + +FailAt 21 + +Assign >NIL: ${Schublade} Exists + +If FAIL + FailAt 10 + + ; Existiert die Schublade bereits? + + If NOT EXISTS $Schublade + FailAt 21 + + ; Versuchen wir, die Schublade anzulegen. + + MakeDir "$Schublade" + + ; Das war nichts ... + + If FAIL + Echo "*NDie Schublade $Schublade konnte nicht angelegt werden!" + + FailAt 10 + + ; Nochmal das ganze, bitte. + + Skip Back Anfang + EndIf + Else + ; ein Update + Set Update Ja + EndIf + + ; Wir hängen dem Schubladennamen noch einen Schrägstrich an. + + Set Temp "$Schublade/" + + Set Schublade $Temp + + UnSet Temp +Else + ; ein Update + Set Update Ja +EndIf + +; Zuerst werden die deutschen Programme installiert + +; Das Hauptprogramm wird entpackt. + +$LHAbin $LangArc bin/TeXtPlusProfessional(.info|%) "${Schublade}" + +; Die Dokumentation wird entpackt. + +$LHAbin $LangArc doc/#? "${Schublade}" + +Set DocVorgabe "S:" + +Lab DocAnfang + +; In welchem Verzeichnis soll `TPP.guide' landen? + +Echo "*NBitte wählen Sie das Verzeichnis aus, in das" +Echo "die HyperText-Dokumentation installiert werden soll." +Echo "Schublade (<Return> = $DocVorgabe) ? " NoLine + +; Vorherigen Wert löschen + +UnSet DocSchublade + +; Zielschublade einlesen + +Set >NIL: DocSchublade ? + +; Falls nur <Return> gedrückt wurde, wird der Vorgabewert verwendet + +If "$DocSchublade" EQ "*$DocSchublade" + Set DocSchublade $DocVorgabe +EndIf + +; Jetzt wird nachgeprüft, ob wir es mit einem Pfad inklusive eines +; Schubladennamens, oder mit einem Wurzelverzeichnis zu tun haben. + +FailAt 21 + +Assign >NIL: ${DocSchublade} Exists + +If FAIL + FailAt 10 + + ; Existiert die Schublade bereits? + + If NOT EXISTS $DocSchublade + FailAt 21 + + ; Versuchen wir, die Schublade anzulegen. + + MakeDir "$DocSchublade" + + ; Das war nichts ... + + If FAIL + Echo "*NDie Schublade $DocSchublade konnte nicht angelegt werden!" + + FailAt 10 + + ; Nochmal das ganze, bitte. + + Skip Back DocAnfang + EndIf + EndIf +EndIf + +; Die HyperText-Dokumentation wird kopiert +Copy ${Schublade}doc/TPP.guide(.info|%) $DocSchublade Clone Quiet +; und gelöscht +Delete >NIL: ${Schublade}doc/TPP.guide(.info|%) + +; Der Handler wird entpackt +$LHAbin $LangArc l/TeXtPlus-Handler L: + +; Die Configurationsdateien werden installiert +; Alte Configrationsdateien werden gerettet +If $Update EQ Ja + If Exists ${Schublade}config + Rename >NIL: ${Schublade}config ${Schublade}config.old + Endif +Endif + +; Installieren +$LHAbin $LangArc config/#? ${Schublade} + +; ------------------------------------------------------------ + +; Installation der globalen Dateien + +; Parsedateien installieren +; Alte Parsedateien retten +If $Update EQ Ja + If Exists ${Schublade}parse + Rename >NIL: ${Schublade}parse ${Schublade}parse.old + Endif +Endif + +; alles entpacken +$LHAbin $GlobArc #? ${Schublade} + +; Das LiesMich-File wird kopiert +Copy LiesMich(.info|%) ${Schublade}doc Quiet Clone + +; Das History-File wird kopiert +Copy History(.info|%) ${Schublade}doc Quiet Clone + +; Die powerpacker.library (35.344) und die +; reqtools.library (38.961) von Nico François +; werden kopiert + +FailAt 21 + +; Wenn eine neuere Version bereits installiert ist, wird die +; reqtools.library nicht überschrieben + +Version >NIL: reqtools.library 38 961 +If Warn + Copy ${Schublade}libs/reqtools.library libs: Quiet Clone +endif + +; Wenn eine neuere version bereits installiert ist, wird die +; powerpacker.library nicht überschrieben + +Version >NIL: powerpacker.library 35 344 +If Warn + Copy ${Schublade}libs/powerpacker.library libs: Quiet Clone +endif + +; und aufräumen +Delete >NIL: ${Schublade}libs All + +; Hat unser User eine REXX:-Schublade? + +If NOT EXISTS REXX: + + ; unser User ist leider eine Pappnase + + Echo "*NEs existiert kein REXX:-Verzeichnis!" + Echo "Die ARexx-Makros von TPP werden nicht installiert." + Echo "Um die Makros dennoch zu installieren, müssen Sie" + Echo "dieses Script zum zweiten Mal aufrufen, und zwar" + Echo "NACHDEM Sie ARexx installiert haben!" + Echo "Ohne ARexx ist ein sinnvolles Arbeiten mit TPP nicht" + Echo "möglich!" + + Set ARexxIstInstalliert Nein + +EndIf + +; Pappnasen brauchen keine Makros + +If NOT $ARexxIstInstalliert EQ Nein + + ; Die ARexx-Makros werden kopiert + Copy ${Schublade}rexx/tpl rexx:tpl All Quiet Clone + Copy ${Schublade}rexx/#?.tpl rexx: All Quiet Clone + Copy ${Schublade}rexx/#?.sd rexx: All Quiet Clone + + ; und aufräumen + Delete >NIL: ${Schublade}rexx All + +EndIf + + +; Ist PaxTeX installiert? + +IF NOT EXISTS TeX:macros + + ; Die Pappnase hat wieder zugeschlagen ... + + Echo "*NEs existiert kein Verzeichnis 'TeX:macros'!" + Echo "Die TeX-Makros von TPP werden nicht installiert." + Echo "Um die Makros dennoch zu installieren, müssen Sie" + Echo "dieses Script zum zweiten Mal aufrufen, und zwar" + Echo "NACHDEM Sie PasTeX installiert haben!" + Echo "Ohne die TeX-Makros können keine Dokumente kompiliert" + Echo "oder ausgedruckt werden!" + + Set PasTeXIstInstalliert Nein + +EndIf + +; Ohne TeX haben wir leider verloren + +If NOT $PasTeXIstInstalliert EQ Nein + + ; Die TeX-Makros werden kopiert + Copy ${Schublade}tex/macros TeX:macros All Quiet Clone + + ; und aufraümen + Delete >NIL: ${Schublade}tex/macros All + +EndIf + +; Kann MakeIndex installiert werden? + +IF NOT EXISTS TeX:bin + + ; Die Pappnase sollte besser Gameboy spielen gehen. + + Echo "*NEs existiert kein Verzeichnis 'TeX:bin'!" + Echo "MakeIndex wird nicht installiert." + Echo "Um MakeIndex dennoch zu installieren, müssen Sie" + Echo "dieses Script zum zweiten Mal aufrufen, und zwar" + Echo "NACHDEM Sie PasTeX installiert haben!" + Echo "Ohne MakeIndex kann kein Index erstellt" + Echo "werden!" + + Set MakeIndexIstInstalliert Nein + +EndIf + +; Schon wieder verloren? + +If NOT $MakeIndexIstInstalliert EQ Nein + + ; MakeIndex wird kopiert + Copy ${Schublade}tex/bin/MakeIndex TeX:bin Quiet Clone + + ; und aufraümen + Delete >NIL: ${Schublade}tex/bin All + +EndIf + +; Schluß + +Echo "*NDie Installation von TeXt Plus Professional ist" +Echo "abgeschlossen. Sie müssen nur noch folgende Zeile" +Echo "in Ihre S:Startup-Sequence oder S:User-Startup" +Echo "einfügen:" + +Echo "*NAssign TPP: $Startpfad" + +; zum Schluß nerven wir noch ein bißchen +IF $ARexxIstInstalliert EQ Nein + +Echo "*NVergessen Sie nicht, die ARexx-Makros zu installieren!" + +EndIf + +IF $PasTeXIstInstalliert EQ Nein + +Echo "*NVergessen Sie nicht, die PasTeX-Makros zu installieren!" + +EndIf + +IF $MakeIndexIstInstalliert EQ Nein + +Echo "*NVergessen Sie nicht, MakeIndex zu installieren!" + +EndIf + +; Wir führen das benötigte Assign schon mal aus +Assign >NIL: TPP: "$Startpfad" + +Echo "*NViel Spaß mit TeXt Plus Professional!" |