;       $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 whlen Sie das Verzeichnis  aus, in das"
Echo "TeXt Plus Professional installiert werden soll."
Echo "Schublade (<Return> = $Vorgabe) ? " NoLine

; Vorherigen Wert lschen

UnSet Schublade

; Zielschublade einlesen

Set >NIL: Schublade ?

; Falls nur <Return> gedrckt wurde, wird der Vorgabewert verwendet

If "$Schublade" EQ "*$Schublade"
        Set Schublade $Vorgabe
EndIf

; Den ursprnglichen Pfad bitte merken

Set Startpfad $Schublade

; Jetzt wird nachgeprft, 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 hngen dem Schubladennamen noch einen Schrgstrich 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 whlen Sie das Verzeichnis  aus, in das"
Echo "die HyperText-Dokumentation installiert werden soll."
Echo "Schublade (<Return> = $DocVorgabe) ? " NoLine

; Vorherigen Wert lschen

UnSet DocSchublade

; Zielschublade einlesen

Set >NIL: DocSchublade ?

; Falls nur <Return> gedrckt wurde, wird der Vorgabewert verwendet

If "$DocSchublade" EQ "*$DocSchublade"
        Set DocSchublade $DocVorgabe
EndIf

; Jetzt wird nachgeprft, 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 gelscht
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 Franois
; 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 aufrumen
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, mssen 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 "mglich!"

    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 aufrumen
    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, mssen Sie"
    Echo "dieses Script zum zweiten Mal aufrufen, und zwar"
    Echo "NACHDEM Sie PasTeX installiert haben!"
    Echo "Ohne die TeX-Makros knnen 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 auframen
    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, mssen 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 auframen
    Delete >NIL: ${Schublade}tex/bin All

EndIf

; Schlu

Echo "*NDie Installation von TeXt Plus Professional ist"
Echo "abgeschlossen. Sie mssen nur noch folgende Zeile"
Echo "in Ihre S:Startup-Sequence oder S:User-Startup"
Echo "einfgen:"

Echo "*NAssign TPP: $Startpfad"

; zum Schlu nerven wir noch ein bichen
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 fhren das bentigte Assign schon mal aus
Assign >NIL: TPP: "$Startpfad"

Echo "*NViel Spa mit TeXt Plus Professional!"
