summaryrefslogtreecommitdiff
path: root/systems/amiga/tpp/TPP410N/Install_D
diff options
context:
space:
mode:
Diffstat (limited to 'systems/amiga/tpp/TPP410N/Install_D')
-rw-r--r--systems/amiga/tpp/TPP410N/Install_D354
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!"