.KEY ordner
.BRA {
.KET }
.DEF ordner DH0:TeX   ;Benutzer der Workbench koennen hier den Ordner
                      ;angeben, in den PasTeX installiert wird

FAILAT 21

;
;  Install-Prozedur fuer PasTeX 1.3
;
;       Georg Hemann   25-Aug-91
;
;  modifiziert fuer Workbench (default directory)
;
;       Sven Gohlke     7-Jul-92
;

ECHO "*N                *e[32mPasTeX 1.3 Installation*e[31m*N*N"
ECHO "Soll auf Disketten oder auf Festplatte installiert werden?"
ASK "*e[7mInstallation auf Diskette (y/n)?*e[0m "
IF WARN
  EXECUTE PasTeX1.3_1:InstallFloppy
  QUIT 0
ENDIF


;
;  Aufruf ueberpruefen
;

ECHO "Soll PasTeX nach '{ordner}' installiert werden?"
ASK "*e[7mInstallation nach '{ordner}'?*e[0m "
IF NOT WARN
  ECHO "Sie mssen ein Direktory angeben, in das PasTeX installiert werden soll."
  ECHO "Aufruf: InstallPasTeX *e[32mdirectory*e[31m"
  ECHO "  *e[32mdirectory*e[31m ist das Directory, in dem TeX installiert werden soll."
  QUIT 5
ENDIF


ECHO "*NPasTeX1.3 wird nach '{ordner}' installiert."
ECHO "Es werden dort maximal 10000 Blocks bentigt. (Je nach Ihren Antworten)"
ASK "*e[7mIst genug Platz vorhanden (y/n)?*e[0m "
IF NOT WARN
  ECHO "Installation abgebrochen!"
  QUIT 5
ENDIF



IF NOT EXISTS {ordner}
  ;
  ;  TeX-Verzeichnis anlegen
  ;
  ECHO "*NLege das Verzeichnis {ordner} an ... " NOLINE
  MAKEDIR >NIL: {ordner}
  IF WARN
     ECHO "nicht gelungen. Verzeichnis existiert schon?"
     ASK "*e[7mTrotzdem weitermachen (y/n)?*e[0m "
     IF NOT WARN
        QUIT 20
     ENDIF
  ELSE
     ECHO "O.K."
  ENDIF
  COPY >NIL: PasTeX1.3_1:TeX.info.Dir {ordner}.info CLONE
ENDIF
;
;  Verzeichnisse in TeX: anlegen
;
ECHO "Weise TeX: das Directory '{ordner}' zu."
ASSIGN TeX: {ordner}
IF WARN
  ECHO "Assign hat nicht funktioniert!! Breche die Script ab!"
  QUIT 20
ENDIF

ECHO "Lege weitere Verzeichnisse an:"
;
;  macros
;
ECHO "   TeX:macros             (fr die Makropakete) ... " NOLINE
IF EXISTS TeX:macros
  ECHO "existiert bereits"
ELSE
  MAKEDIR >NIL: tex:macros
  IF WARN
     ECHO "nicht gelungen!"
     ASK "*e[7mTrotzdem weitermachen (y/n)?*e[0m "
     IF NOT WARN
        QUIT 20
     ENDIF
  ELSE
    ECHO "OK."
  ENDIF
ENDIF

;
;  fonts
;
ECHO "   TeX:fonts              (fr die '.tfm' Files) ... " NOLINE
IF EXISTS TeX:fonts
  ECHO "existiert bereits"
ELSE
  MAKEDIR >NIL: tex:fonts
  IF WARN
     ECHO "nicht gelungen!"
     ASK "*e[7mTrotzdem weitermachen (y/n)?*e[0m "
     IF NOT WARN
        QUIT 20
     ENDIF
  ELSE
    ECHO "OK."
  ENDIF
ENDIF

;
;  formats
;
ECHO "   TeX:formats            (fr die '.fmt' Files) ... " NOLINE
IF EXISTS TeX:formats
  ECHO "existiert bereits"
ELSE
  MAKEDIR >NIL: tex:formats
  IF WARN
     ECHO "nicht gelungen!"
     ASK "*e[7mTrotzdem weitermachen (y/n)?*e[0m "
     IF NOT WARN
        QUIT 20
     ENDIF
  ELSE
    COPY PasTeX1.3_1:formats.info.Dir TeX:formats.info
    ECHO "OK."
  ENDIF
ENDIF

;
;  bigformats
;
ECHO "   TeX:bigformats (fr die '.fmt' Files von BigTeX)... " NOLINE
IF EXISTS TeX:bigformats
  ECHO "existiert bereits"
ELSE
  MAKEDIR >NIL: tex:bigformats
  IF WARN
     ECHO "nicht gelungen!"
     ASK "*e[7mTrotzdem weitermachen (y/n)?*e[0m "
     IF NOT WARN
        QUIT 20
     ENDIF
  ELSE
    COPY PasTeX1.3_1:bigformats.info.Dir TeX:bigformats.info
    ECHO "OK."
  ENDIF
ENDIF

;
;  config
;
ECHO "   TeX:config             (fr die Konfigurationsfiles)... " NOLINE
IF EXISTS TeX:config
  ECHO "existiert bereits"
ELSE
  MAKEDIR >NIL: tex:config
  IF WARN
     ECHO "nicht gelungen!"
     ASK "*e[7mTrotzdem weitermachen (y/n)?*e[0m "
     IF NOT WARN
        QUIT 20
     ENDIF
  ELSE
    ECHO "OK."
  ENDIF
ENDIF

;
;  rexx
;
ECHO "   TeX:rexx               (fr die ARexx Scripten) ... " NOLINE
IF EXISTS TeX:rexx
  ECHO "existiert bereits"
ELSE
  MAKEDIR >NIL: tex:rexx
  IF WARN
     ECHO "nicht gelungen!"
     ASK "*e[7mTrotzdem weitermachen (y/n)?*e[0m "
     IF NOT WARN
        QUIT 20
     ENDIF
  ELSE
    ECHO "OK."
  ENDIF
ENDIF

;
;  bin
;
ECHO "   TeX:bin                (fr die Programme) ... " NOLINE
IF EXISTS TeX:bin
  ECHO "existiert bereits"
ELSE
  MAKEDIR >NIL: tex:bin
  IF WARN
     ECHO "nicht gelungen!"
     ASK "*e[7mTrotzdem weitermachen (y/n)?*e[0m "
     IF NOT WARN
        QUIT 20
     ENDIF
  ELSE
    ECHO "OK."
  ENDIF
ENDIF

;
;  bigbin
;
ECHO "   TeX:bigbin             (fr die BigTeX-Programme) ... " NOLINE
IF EXISTS TeX:bigbin
  ECHO "existiert bereits"
ELSE
  MAKEDIR >NIL: tex:bigbin
  IF WARN
     ECHO "nicht gelungen!"
     ASK "*e[7mTrotzdem weitermachen (y/n)?*e[0m "
     IF NOT WARN
        QUIT 20
     ENDIF
  ELSE
    ECHO "OK."
  ENDIF
ENDIF

;
;  doc
;
ECHO "   TeX:doc                (fr die Anleitungen) ... " NOLINE
IF EXISTS TeX:doc
  ECHO "existiert bereits"
ELSE
  MAKEDIR >NIL: tex:doc
  IF WARN
     ECHO "nicht gelungen!"
     ASK "*e[7mTrotzdem weitermachen (y/n)?*e[0m "
     IF NOT WARN
        QUIT 20
     ENDIF
  ELSE
    ECHO "OK."
  ENDIF
ENDIF

;
;  ps
;
ECHO "   TeX:ps         (fr PostScript-Hilfs-Files) ... " NOLINE
IF EXISTS TeX:ps
  ECHO "existiert bereits"
ELSE
  MAKEDIR >NIL: tex:ps
  IF WARN
     ECHO "nicht gelungen!"
     ASK "*e[7mTrotzdem weitermachen (y/n)?*e[0m "
     IF NOT WARN
        QUIT 20
     ENDIF
  ELSE
    ECHO "OK."
  ENDIF
ENDIF


;
;  Jetzt alles wichtige kopieren
;
ECHO "Kopiere das README File nach TeX: ... " NOLINE
COPY >NIL: PasTeX1.3_1:README tex:README CLONE
COPY >NIL: PasTeX1.3_1:README.info tex:README.info CLONE
ECHO "OK."
ECHO "Kopiere das CHANGES File nach TeX: ... " NOLINE
COPY >NIL: PasTeX1.3_1:CHANGES tex:CHANGES CLONE
COPY >NIL: PasTeX1.3_1:CHANGES.info tex:CHANGES.info CLONE
ECHO "OK."
ECHO "Kopiere das Registration File nach TeX: ... " NOLINE
COPY >NIL: PasTeX1.3_1:Registration tex:Registration CLONE
COPY >NIL: PasTeX1.3_1:Registration.info tex:Registration.info CLONE
ECHO "OK."
ECHO "Kopiere die ausfhrbaren Programme nach TeX:bin ... " NOLINE
COPY >NIL: PasTeX1.3_1:bin tex:bin CLONE
COPY >NIL: PasTeX1.3_1:bin.info tex:bin.info CLONE
ECHO "OK."

;
;  Diskettenwechsel... PasTeX1.3_2
;
ECHO "*N*e[32mLegen Sie nun Diskette *"PasTeX1.3_2*" ein.*e[31m"
ASSIGN >NIL: TST.{$$}: PasTeX1.3_2:
IF FAIL
  ECHO "Haben Sie die Diskette nicht?"
  ECHO "Installation abgebrochen!"
  QUIT 5
ELSE
  ASSIGN TST.{$$}: REMOVE
ENDIF

ECHO "Kopiere die Konfigurationsfile nach TeX:config ... " NOLINE
COPY >NIL: PasTeX1.3_2:config tex:config CLONE
COPY >NIL: PasTeX1.3_2:config.info tex:config.info CLONE
ECHO "OK."

ECHO "Kopiere die Anleitungen nach TeX:doc ... " NOLINE
COPY >NIL: PasTeX1.3_2:doc tex:doc CLONE
COPY >NIL: PasTeX1.3_2:doc.info tex:doc.info CLONE
ECHO "OK."

ECHO "Kopiere das File 'tex.pool' nach TeX: ... " NOLINE
COPY >NIL: PasTeX1.3_2:tex.pool tex:tex.pool CLONE
COPY >NIL: PasTeX1.3_2:tex.pool.info tex:tex.pool.info CLONE
ECHO "OK."

;
;  Diskettenwechsel... PasTeX1.3_3
;
ECHO "*N*e[32mLegen Sie nun Diskette *"PasTeX1.3_3*" ein.*e[31m"
ASSIGN >NIL: TST.{$$}: PasTeX1.3_3:
IF FAIL
  ECHO "Haben Sie die Diskette nicht?"
  ECHO "Installation abgebrochen!"
  QUIT 5
ELSE
  ASSIGN TST.{$$}: REMOVE
ENDIF

ECHO "Kopiere die ARexx Scripten nach TeX:rexx ..." NOLINE
COPY >NIL: PasTeX1.3_3:rexx tex:rexx CLONE ALL
COPY >NIL: PasTeX1.3_3:rexx.info tex:rexx.info CLONE
ECHO "OK."

ECHO "Kopiere die Makropakete nach TeX:macros ... " NOLINE
COPY >NIL: PasTeX1.3_3:macros/(#?.(tex|sty|doc|initex|info)|nice20.zoo|hyphen.one|hyphen.two) tex:macros CLONE
COPY >NIL: PasTeX1.3_3:macros.info tex:macros.info CLONE
ECHO "OK."

ECHO "Packe das Makro-Archive nach TeX:macros/latex aus ... " NOLINE
ASSIGN TT.{$$}: ""
CD TeX:macros
TeX:bin/lharc >NIL: -a -m -n x PasTeX1.3_3:macros/latex.lzh
ECHO "OK."
ECHO "Packe das Archive 'hyphanation.lzh' nach TeX:macros/hyphanation aus ... " NOLINE
TeX:bin/lharc >NIL: -a -m -n x PasTeX1.3_3:macros/hyphenation.lzh
ECHO "OK."
ECHO "Packe das Archive 'epic.lzh' nach TeX:macros/epic aus ... " NOLINE
TeX:bin/lharc >NIL: -a -m -n x PasTeX1.3_3:macros/epic.lzh
ECHO "OK."
ECHO "Packe das Archive 'eepic.lzh' nach TeX:macros/eepic aus ... " NOLINE
TeX:bin/lharc >NIL: -a -m -n x PasTeX1.3_3:macros/eepic.lzh
CD TT.{$$}:
ASSIGN TT.{$$}: REMOVE
ECHO "OK."

;
;  Diskettenwechsel... PasTeX1.3_4
;
ECHO "*N*e[32mLegen Sie nun Diskette *"PasTeX1.3_4*" ein.*e[31m"
ASSIGN >NIL: TST.{$$}: PasTeX1.3_4:
IF FAIL
  ECHO "Haben Sie die Diskette nicht?"
  ECHO "Installation abgebrochen!"
  QUIT 5
ELSE
  ASSIGN TST.{$$}: REMOVE
ENDIF


ECHO "Kopiere die Fontbeschreibungen (tfm-Files) nach TeX:fonts ... " NOLINE
ASSIGN TT.{$$}: ""
CD TeX:fonts
TeX:bin/lharc >NIL: -a -m x PasTeX1.3_4:fonts.lzh
CD TT.{$$}:
ASSIGN TT.{$$}: REMOVE
COPY >NIL: PasTeX1.3_4:fonts.info.Dir tex:fonts.info CLONE
ECHO "OK."

ECHO "Kopiere die PostScript Files nach TeX:ps ..." NOLINE
COPY >NIL: PasTeX1.3_4:ps tex:ps CLONE ALL
ECHO "OK."

ECHO "Mchten Sie auch mit BigTeX arbeiten? (Bentigt sehr viel Speicher)"
ASK "*e[7mSoll BigTeX nach TeX:bigbin kopiert werden (y/n): *e[0m"
IF WARN
  ECHO "Kopiere BigTeX Binaries nach TeX:bigbin ... " NOLINE
  COPY >NIL: PasTeX1.3_4:bigbin TeX:bigbin CLONE
  COPY >NIL: PasTeX1.3_4:bigbin.info TeX:bigbin.info CLONE
  ECHO "OK."
ENDIF

ASK "*e[7mSoll die englische Anleitung kopiert werden (y/n): *e[0m"
IF WARN
  ECHO "Kopiere die Anleitungen nach TeX:doc.englisch ... " NOLINE
  MAKEDIR TeX:doc.englisch
  COPY PasTeX1.3_4:doc.englisch.info.Dir TeX:doc.englisch.info CLONE
  ASSIGN TT.{$$}: ""
  CD TeX:doc.englisch
  TeX:bin/lharc >NIL: -a -m -n x PasTeX1.3_4:doc.englisch.lzh
  CD TT.{$$}:
  ASSIGN TT.{$$}: REMOVE
  ECHO "OK."
ENDIF

ECHO "PasTeX bentigt zwei spezielle Libraries."
ASK "*e[7mSoll die 'iff.library' (18.5) nach LIBS:kopiert werden (y/n): *e[0m"
IF WARN
  COPY >NIL: PasTeX1.3_4:libs/iff.library libs: CLONE
ENDIF
ASK "*e[7mSoll die 'req.library' (2.5) nach LIBS:kopiert werden (y/n): *e[0m"
IF WARN
  COPY >NIL: PasTeX1.3_4:libs/req.library libs: CLONE
ENDIF

ECHO "Bei PasTeX ist auch der Source zu drei kleineren Utilities dabei."
ASK "*e[7mSoll dieser Source kopiert werden (y/n): *e[0m"
IF WARN
  ECHO "Kopiere den Source zu SpecialHost, Flib und PToFront ... " NOLINE
  ASSIGN TT.{$$}: ""
  CD TeX:
  TeX:bin/lharc >NIL: -a -m -n x PasTeX1.3_4:Source.lzh
  CD TT.{$$}:
  ASSIGN TT.{$$}: REMOVE
  COPY >NIL: PasTeX1.3_4:Source.info.Dir TeX:Source.info CLONE
  ECHO "OK."
ENDIF



ECHO "*N*NNun ist alles kopiert. Jetzt mssen noch die Formatfiles erzeugt werden."



;
;  Speicherabfrage
;

ECHO "*NWieviel Speicher darf TeX brauchen. Es stehen vorbereitete Konfigurationsfiles"
ECHO "zur Verfgung. Beim greren sind schon mehr als 1.5MB sinnvoll."
ASK "*N*e[7mSoll das groe Konfig-File verwendet werden (y/n)? *e[0m"
IF WARN
  COPY >NIL: TeX:config/TeX.cnf.gross TeX:config/TeX.cnf
ELSE
  COPY >NIL: TeX:config/TeX.cnf.klein TeX:config/TeX.cnf
ENDIF


;
;  Und die Format-Files erzeugen
;

ECHO "*NMchten Sie mit LaTeX und/oder TeX arbeiten? Ich werde sie"
ECHO "im folgenden fragen, ob ich LaTeX- und TeX-Format-Files"
ECHO "(deutsche und englische Versionen) generieren soll. Wenn Sie"
ECHO "nicht wissen, was Sie brauchen (als Neuling verstndlich)"
ECHO "lassen Sie mich *"glplain.fmt*" und *"gplain.fmt*" erzeugen*n"

DELETE >NIL: ENV:TEXCONFIG

ASK "*e[7mglplain.fmt (LaTeX deutsch) in TeX:formats anlegen (y/n): *e[0m"
IF WARN
  ECHO "Es wird nun eine Fehlermeldung auftreten, bei der Sie nach einem File"
  ECHO "gefragt werden. Geben Sie dort 'ghyphen.max' ein."
  ASSIGN TT.{$$}: ""
  CD TeX:formats
  TeX:bin/initex glplain.initex
  cd TT.{$$}:
  ASSIGN TT.{$$}: remove
ENDIF

ASK "*e[7mlplain.fmt (LaTeX englisch) in TeX:formats anlegen (y/n): *e[0m"
IF WARN
  ECHO "Es wird nun eine Fehlermeldung auftreten, bei der Sie nach einem File"
  ECHO "gefragt werden. Geben Sie dort 'ushyph1.tex' ein."
  ASSIGN TT.{$$}: ""
  CD TeX:formats
  TeX:bin/initex lplain.initex
  cd TT.{$$}:
  ASSIGN TT.{$$}: remove
ENDIF

ASK "*e[7mgplain.fmt (plain-TeX deutsch) in TeX:formats anlegen (y/n): *e[0m"
IF WARN
  ECHO "Es wird nun eine Fehlermeldung auftreten, bei der Sie nach einem File"
  ECHO "gefragt werden. Geben Sie dort 'ghyphen.max' ein."
  ASSIGN TT.{$$}: ""
  CD TeX:formats
  TeX:bin/initex gplain.initex
  cd TT.{$$}:
  ASSIGN TT.{$$}: remove
ENDIF

ASK "*e[7mplain.fmt (plain-TeX englisch) in TeX:texformats anlegen (y/n): *e[0m"
IF WARN
  ECHO "Es wird nun eine Fehlermeldung auftreten, bei der Sie nach einem File"
  ECHO "gefragt werden. Geben Sie dort 'ushyph1.tex' ein."
  ASSIGN TT.{$$}: ""
  CD TeX:formats
  TeX:bin/initex plain.initex
  cd TT.{$$}:
  ASSIGN TT.{$$}: remove
ENDIF


ECHO "Falls Sie noch 200kB mehr auf der Festplatte frei haben und Sie die PasTeX"
ECHO "Anleitungen neu bersetzen mchten, kann es auch von Nutzen sein, ein weiteres"
ECHO "Formatfile zu erzeugen, mit dem sich die Anleitungen etwas schneller bersetzen"
ECHO "lassen."

ASK "*e[7mgnplain.fmt (Nice-TeX deutsch) in TeX:formats anlegen (y/n): *e[0m"
IF WARN
  ECHO "Es wird nun eine Fehlermeldung auftreten, bei der Sie nach einem File"
  ECHO "gefragt werden. Geben Sie dort 'ghyphen.max' ein."
  ASSIGN TT.{$$}: ""
  CD TeX:formats
  TeX:bin/initex gnplain.initex
  CD TT.{$$}:
  ASSIGN TT.{$$}: remove
ENDIF


ECHO "Falls Sie auch die Diskette `PasTeX1.3_FIG' haben, knnen Sie nun auch"
ECHO "noch das `FIG' Programm installieren lassen."
ASK "*e[7mSoll `FIG' installiert werden (y/n): *e[0m"
IF WARN
  ECHO "*N*e[32mLegen Sie nun Diskette *"PasTeX1.3_FIG*" ein.*e[31m"
  ASSIGN >NIL: TST.{$$}: PasTeX1.3_FIG:
  IF FAIL
    ECHO "Haben Sie die Diskette doch nicht?"
    ECHO "Installation von *"FIG*" abgebrochen!"
  ELSE
    ECHO "Kopiere die Programme *"Fig*" *"Fig2Dev*" und *"TransFig*" nach TeX:bin"
    COPY >NIL: PasTeX1.3_FIG:bin/#? TeX:bin CLONE
    ECHO "Kopiere die Anleitungen nach TeX:doc/fig"
    COPY >NIL: PasTeX1.3_FIG:doc TeX:doc/fig ALL CLONE
    ASSIGN TST.{$$}: REMOVE
  ENDIF
ENDIF


ECHO "*N*NDas war schon alles. Nun mssen Sie nur noch ein zwei Zeilen in Ihre"
ECHO "Startup-Sequence einfgen."
ECHO "*N    assign TeX: {ordner}"
ECHO "    path TeX:bin add"



;
;  Anfragen, ob auch die Fonts installiert werden sollen
;

ASK "*N*e[7mSollen nun die Previewer-Fonts installiert werden (y/n)?*e[0m "
IF WARN
   ECHO "*N*e[32mLegen Sie nun Diskette *"PreviewFonts.1*" ein.*e[31m"
   execute PreviewFonts.1:InstallFonts
ELSE
   ECHO "*NDie Installation von TeX ist nun fertig."
   ECHO "*N                *e[32mHappy TeX'ing, Georg Hemann.*e[31m*N"
ENDIF
;
;  Das wars.
;
