; 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
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
; 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"
