;       $VER: Installation TPP V4.00 (11.06.92)

.BRA {
.KET }

; Vorgabewurzelverzeichnis

Set Vorgabe "work:tpp"

; Ein paar interne Flags
Set ARexxIstInstalliert Ja
Set PaxTeXIstInstalliert Ja

Lab Anfang

; In welchem Verzeichnis soll `TeXt Plus Professional' landen?

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
    EndIf

    ; Der Schublade wird noch ein Icon verpat.

    Copy tpp.info "$Schublade.info"

    ; Wir hngen dem Schubladennamen noch einen Schrgstrich an.

    Set Temp "$Schublade/"

    Set Schublade $Temp

    UnSet Temp
EndIf

; Das Hauptprogramm wird entpackt.

:c/Lha -q x tpp/bin/TPPbin.lha "${Schublade}"

; Die Dokumentation wird entpackt.

:c/Lha -q x tpp/doc/TPPdoc.lha "${Schublade}"
Copy tpp/doc.info "${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 Quiet
; und gelscht
Delete >NIL: ${Schublade}doc/TPP.guide(.info|%)

; Das LiesMich-File wird kopiert
Copy LiesMich(.info|%) ${Schublade}doc Quiet

; Die Configurationsdateien werden kopiert

Copy tpp/config "${Schublade}config" All Quiet

; Die Parse-Dateien werden kopiert

Copy tpp/parse "${Schublade}parse" All Quiet

; Die Beispiele werden kopiert

Copy tpp/example "${Schublade}example" All Quiet

; Die Beispielgrafik wird kopiert

Copy tpp/iff "${Schublade}iff" All Quiet

; Die Beispiel-Serienbrief-Datei wird kopiert

Copy tpp/mailmerge "${Schublade}mailmerge" All Quiet

; Kopiere die pd-Dreingaben MSClock23 und Find20

Copy tpp/pd "${Schublade}pd" All Quiet

; Die text-Schublade wird angelegt

MakeDir "${Schublade}text"

; Der Handler wird kopiert.

Copy l/TextPlus-Handler L: Quiet

; Kopiere ein paar Icons (nur rexx.info nicht)

Copy tpp/[a-qs-z]#?.info "${Schublade}" Quiet

; Die powerpacker.library und die reqtools.library von Nico Franois werden kopiert

Echo "*NSollen die powerpacker.library 1.5 (35.344) und die"
Echo "reqtools.library 1.0e (37.726) installiert werden?"
Echo "Nur wenn Sie bereits neuere Versionen als obige"
Echo "installiert haben, sollten sie jetzt 'n' tippen."

Ask "y = JA, n = NEIN ?"

IF WARN
    Copy libs/(powerpacker|reqtools).library LIBS: Quiet
EndIF

; 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 tpp/rexx/tpl rexx:tpl All Quiet
    Copy tpp/rexx/#?.tpl rexx: All Quiet
    Copy tpp/rexx/#?.sd rexx: All Quiet

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 tpp/tex/macros TeX:macros All Quiet

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

; Wir fhren das bentigte Assign schon mal aus
Assign >NIL: TPP: "$Startpfad"

Echo "*NViel Spa mit TeXt Plus Professional!"
