; LaTeX-Hilfe Installer script von Werner Liebscher, ©1994
; Für 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 für die Hilfe wählen")
          (choices "MagicWB-Piktogramm" "WB-4-Farb-Piktogramm" "Kein Piktogramm")
          (help "Sie sollten \"MagicWB-Piktogramm\" auswählen, wenn Sie MagicWB benutzen. Anderenfalls sollten Sie 'WB-4-Farb-Piktogramm' auswählen. Falls Sie überhaupt keine Icons mögen, sollten Sie  'Kein Piktogramm' wählen.\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 wählen sie die ARexx-Skritpe")
          (choices "TextPlusProfessional-Skripte" "GoldED-Skripte" "CygnusED-Skripte" "Keine Skripte")
          (help "Sie sollten die Skripte auswählen, die für Ihren Editor passen. Momentan werden TextPlusProfessional, GoldED und CygnusED unterstützt. Wenn sie keinen dieser Editoren besitzen, können sie \"Keine Skripte\" wählen.")
   )
)
(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 für viele Befehle, Symbole und Konstrukte in den Text eingefügt werden\n  Dazu muß in den Toolmanager-Prefs das TeX-Prefs-File nachgeladen werden. Die Ladezeit verlängert 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:\" eingefügt werden.")
        (help "No help for this function")
        (command "assign texhelp: "destdir "\n")
)


(complete 100)