; LaTeX-Hilfe Installer script von Werner Liebscher, 1994
; Fr CED modifiziert von Sven Fischer, Okt. 1994

(transcript "Installiere LaTeX-Hilfe...")

(set @app-name "LaTeX-Hilfe")

(complete 0)


; Test, ob TeX installiert
(if (= (exists "TEX:" (noreq)) 0)
   (message     "TeX ist nicht installiert! Soll die Installation der LaTeX-Hilfe fortgesetzt werden?")
)


(set destdir
   (askdir
      (prompt "In welchem Verzeichnis soll die LaTeX-Hilfe installiert werden?")
          (help   "Vorgabe ist TeX:doc/LaTeX/ \n"
                  "Es wird dort ein Verzeichnis \"Hilfe\" erstellt werden\n"
                  "Auf dieses Verzeichnis mu dann ein assign texhelp: verweisen" )
          (default "TEX:doc/LaTeX/ ")
   )
)

(set destdir (tackon destdir "Hilfe"))

(set @default-dest destdir)



(if (= (exists destdir) 2)
   (message
        "Ein Verzeichnis \"Hilfe\" existiert bereits im angegebenen Pfad. Soll die Installation fortgesetzt werden?"
   )
)



(makedir destdir
   (help @makedir-help)
   (infos)
)

(complete 20)



(set icontype
   (askchoice
          (prompt "Bitte den Piktogramm-Typ fr die Hilfe whlen")
          (choices "MagicWB-Piktogramm" "WB-4-Farb-Piktogramm" "Kein Piktogramm")
          (help "Sie sollten \"MagicWB-Piktogramm\" auswhlen, wenn Sie MagicWB benutzen. Anderenfalls sollten Sie 'WB-4-Farb-Piktogramm' auswhlen. Falls Sie berhaupt keine Icons mgen, sollten Sie  'Kein Piktogramm' whlen.\n")
   )
)
(complete 60)


; Magic-WB-Style icon
(if (= icontype 0)
   (copyfiles
      (source "")
      (choices "LaTeX-Hilfe.guide.info")
      (dest destdir)
   )
)


; Normal icon
(if (= icontype 1)
   (copyfiles
      (source "LaTeX-Hilfe_4.guide.info")
      (newname "LaTeX-Hilfe.guide.info")
      (dest destdir)
   )
)
(complete 80)



(copyfiles
          (prompt "Installiere LaTeX-Hilfe nach " destdir)
          (help @copyfiles-help)
          (source "")
          (pattern "#?.guide")
          (dest destdir)
          (files)
)


;---------------------------------------------------------------------
(set arexxtype
   (askchoice
          (prompt "Bitte whlen sie die ARexx-Skritpe")
          (choices "TextPlusProfessional-Skripte" "GoldED-Skripte" "CygnusED-Skripte" "Keine Skripte")
          (help "Sie sollten die Skripte auswhlen, die fr Ihren Editor passen. Momentan werden TextPlusProfessional, GoldED und CygnusED untersttzt. Wenn sie keinen dieser Editoren besitzen, knnen sie \"Keine Skripte\" whlen.")
   )
)
(complete 90)


; TextPlus-Makros
(if (= arexxtype 0)
    (copyfiles
          (prompt "Installiere TextPlus-ARexx-Makros nach " destdir)
          (help @copyfiles-help)
          (source "syn_ref.tpl")
          (newname "syn_ref.hlp")
          (dest "rexx:")
    )
)
(if (= arexxtype 0)
    (copyfiles
          (prompt "Installiere TextPlus-ARexx-Makros nach " destdir)
          (help @copyfiles-help)
          (source "syntax_find.tpl")
          (newname "syntax_find.hlp")
          (dest "rexx:")
    )
)

; GoldED-Makros
(if (= arexxtype 1)
    (copyfiles
          (prompt "Installiere GoldED-ARexx-Makros nach " destdir)
          (help @copyfiles-help)
          (source "syn_ref.ged")
          (newname "syn_ref.hlp")
          (dest "rexx:")
    )
)
(if (= arexxtype 1)
    (copyfiles
          (prompt "Installiere GoldED-ARexx-Makros nach " destdir)
          (help @copyfiles-help)
          (source "syntax_find.ged")
          (newname "syntax_find.hlp")
          (dest "rexx:")
    )
)

; CygnusED-Makros
(if (= arexxtype 2)
    (copyfiles
          (prompt "Installiere CygnusED-ARexx-Makros nach " destdir)
          (help @copyfiles-help)
          (source "syn_ref.ced")
          (newname "syn_ref.hlp")
          (dest "rexx:")
    )
)
(if (= arexxtype 2)
    (copyfiles
          (prompt "Installiere CygnusED-ARexx-Makros nach " destdir)
          (help @copyfiles-help)
          (source "syntax_find.ced")
          (newname "syntax_find.hlp")
          (dest "rexx:")
    )
)

(if (<> arexxtype 3)
    (copyfiles
          (prompt "Installiere Makrolisten nach " destdir)
          (help @copyfiles-help)
          (source "")
          (pattern "#?.liste")
          (dest destdir)
          (files)
    )
)

;---------------------------------------------------------------------
(complete 95)


(copyfiles
          (prompt "Installiere Grafikdemos nach " destdir)
          (help @copyfiles-help)
          (source "")
          (pattern "demo#?")
          (dest destdir)
          (files)
)

(copyfiles
          (prompt "Kopiere Liesmich nach " destdir)
          (help @copyfiles-help)
          (source "Liesmich")
          (dest destdir)
          (files)
)

(copyfiles
          (prompt "Kopiere Liesmich nach " destdir)
          (help @copyfiles-help)
          (source "Liesmich.info")
          (dest destdir)
          (files)
)


(set toolmanager
   (askchoice
          (prompt "Sollen die Toolmanagerdocks installiert werden?")
          (help "Mit den Toolmanagerdocks kann die Syntax fr viele Befehle, Symbole und Konstrukte in den Text eingefgt werden\n  Dazu mu in den Toolmanager-Prefs das TeX-Prefs-File nachgeladen werden. Die Ladezeit verlngert sich dann zwar \"etwas\" - aber es lohnt sich.")
          (choices " Ja " " Nein ")
   )
)


(complete 60)


(if (= toolmanager 0)
    (set dockdir (tackon destdir "dockicons"))
)

(if (= toolmanager 0)
    (copyfiles
          (prompt "Installiere Dockicons nach " destdir)
          (help @copyfiles-help)
          (source "dockicons")
          (all)
          (dest dockdir)
    )
)


    ; TeXtPlus-Toolmanager-Prefs
    (if (= arexxtype 0)
          (copyfiles
             (prompt "Installiere TeXtPlus-Toolmanager-Prefs nach " destdir)
             (help @copyfiles-help)
             (source "TM_TeX_TPP.prefs")
             (newname "TM_TeX.prefs")
             (dest destdir)
          )
    )
    ; GoldED-Toolmanager-Prefs
    (if (= arexxtype 1)
          (copyfiles
             (prompt "Installiere GoldED-Toolmanager-Prefs nach " destdir)
             (help @copyfiles-help)
             (source "TM_TeX_GED.prefs")
             (newname "TM_TeX.prefs")
             (dest destdir)
          )
    )
    ; CygnusED-Toolmanager-Prefs
    (if (= arexxtype 2)
          (copyfiles
             (prompt "Installiere CygnusED-Toolmanager-Prefs nach " destdir)
             (help @copyfiles-help)
             (source "TM_TeX_CED.prefs")
             (newname "TM_TeX.prefs")
             (dest destdir)
          )
    )


(startup "LaTeX-Hilfe"
        (prompt  "In die \"S:user-startup\" mu ein \"assign  texhelp:\" eingefgt werden.")
        (help "No help for this function")
        (command "assign texhelp: "destdir "\n")
)


(complete 100)
