; $VER: Edt Install Version 1.0 (17.2.94)
; Programm zum Installieren von Edt

; Deutsche Strings

(SET introduction
  (CAT "\nEdt Installation\n"
       "\nDieses Programm installiert den Editor Edt und alle von ihm benötigten "
       "Dateien auf einer Festplatte. Installation fortsetzen?\n"
  )
)

(SET installation-error
  (CAT "\nEs ist nicht genügend Platz auf dem Speichermedium vorhanden, um die "
       "Installation fortzusetzen. Die Installation wird abgebrochen!\n"
  )
)

(SET copyEdt-help
  (CAT "\nAn dieser Stelle der Installation können Sie wählen, in welcher Schublade "
       "das Programm installiert werden soll.\n\n"
       @askdir-help
  )
)

(SET copyStartup-help
  (CAT "\nAn dieser Stelle der Installation können Sie wählen, in welcher Schublade "
       "die Startup-Datei \"Edt-Startup.edt\" installiert werden soll. Die "
       "Startup-Datei wird für die Arbeit mit dem Editor unbedingt benötigt. Ist sie "
       "nicht vorhanden greift der Editor auf eine auf das allernötigste beschränkte "
       "Not-Konfiguration zurück. Der Editor sucht diese Startup-Datei zuerst in "
       "seiner eigenen Schublade, dann im logischen Verzeichnis \"S:\".\n\n"
       @askdir-help
  )
)
(SET copyScripts-help
  (CAT "\nHier können Sie wählen, im welcher Schublade die im Lieferumfang "
       "befindlichen ARexx-Scripts installiert werden sollen. Diese Programme "
       "erweitern den Funktionsumfang des Editors um einige nützliche Funktionen, "
       "z.B. um Textfenster so auf dem Bildschirm anzuordnen, daß sie sich nicht "
       "überlappen. Für die Funktionsfähigkeit der Software sind diese Dateien "
       "nicht von Bedeutung.\n\n"
       @askdir-help
  )
)

(SET changeTT0
  (CAT "\nBitte fügen Sie dem Piktogramm folgendes Merkmal hinzu:"
       "\n\nWITH="
  )
)

(SET changeTT1 "\n\nUnd ersetzen Sie in der o.g. Startup-Datei die Zeichenkette \"S:Edt\" durch ")

(SET @abort-button "Abbrechen")
(SET @error-msg "Fehler bei der Installation.")
(SET @special-msg "Fataler Fehler: Installation wird abgebrochen.")

(PROCEDURE InstallScripts
  (SET scripts-dir (TACKON conf-dir "Edt"))
  (SET msg (CAT "\nInstalliere ARexx-Scripts im Verzeichnis " scripts-dir "\n"))
  (COPYFILES (PROMPT msg) (SOURCE "S/Edt") (DEST scripts-dir)
             (CHOICES "VSplitWin.edt" "HSplitWin.edt" "LayoutWindows.edt")
             (FILES) (CONFIRM 2)
             (HELP @copyfiles-help)
  )
)

(MESSAGE introduction)
(WELCOME)
(COMPLETE 0)
; Verzeichnis auswählen

(SET @default-dest
  (ASKDIR
    (PROMPT "\nIn welcher Schublade soll der Texteditor Edt installiert werden?\n")
    (DEFAULT "SYS:Utilities")
    (HELP copyEdt-help)
  )
)

; Verzeichnis ggf. erzeugen
(IF (= (exists @default-dest) 0)
  (makedir @default-dest)
)

(SET msg (CAT "\nInstalliere Edt im Verzeichnis \"" @default-dest "\"\n"))
(COPYFILES (PROMPT msg) (SOURCE "") (CHOICES "Edt" "Edt.info") (DEST @default-dest) (FILES) (CONFIRM 2) (HELP @copyfiles-help))

(COMPLETE 30)

(SET msg "\nStandart-Konfiguration installieren?\n")
(IF (= (ASKBOOL (PROMPT msg) (DEFAULT 1) (HELP @askbool-help)) 1)
  (
    (SET conf-dir
      (ASKDIR
        (PROMPT copyStartup-msg)
        (DEFAULT "S:")
        (HELP copyStartup-help)
      )
    )
    (SET startup-file (TACKON conf-dir "Edt-Startup.edt"))
    (IF (= (EXISTS startup-file) 1)
      (
        (SET msg (CAT "\nAlte Startup-Datei löschen oder in \"" startup-file ".old\" umbenennen?\n"))
        (IF (= (ASKCHOICE (PROMPT msg) (CHOICES "Löschen" "Umbenennen") (DEFAULT 1) (HELP @askchoice-help)) 1)
          (RENAME startup-file (CAT startup-file ".old"))
          ; else
          (DELETE startup-file)
        )
      )
    )
    (SET msg (CAT "\nInstalliere \"Edt-Startup.edt\" im Verzeichnis \"" conf-dir "\"\n"))
    (COPYFILES (PROMPT msg) (SOURCE "S/Edt-Startup.edt") (DEST conf-dir) (FILES) (CONFIRM 2) (HELP @copyfiles-help))
    (COMPLETE 50)
    (InstallScripts)
  )
  ; else
  (
    (COMPLETE 50)
    (SET msg "\nARexx-Scripts installieren?\n")
    (IF (= (ASKBOOL (PROMPT msg) (HELP @askbool-help) (DEFAULT 1)) 1)
      (
        (SET argDest
          (ASKDIR
            (PROMPT copyScripts-msg)
            (HELP copyScripts-help)
            (DEFAULT "S:Edt")
          )
        )
        (InstallScripts)
      )
    )
  )
)

(COMPLETE 80)

(IF (= (EXISTS "LIBS:amigaguide.library") 1)
  (
    (SET msg "\nOnLine-Dokumentation installieren?\n")
    (IF (= (ASKBOOL (PROMPT msg) (HELP @askbool-help) (DEFAULT 1)) 1)
      (
        (SET msg (CAT "\nInstalliere \"Edt.guide\" im Verzeichnis \"HELP:deutsch\" \n"))
        (COPYFILES (PROMPT msg) (SOURCE "") (CHOICES "Edt.guide" "Edt.guide.info") (DEST "HELP:deutsch") (FILES) (CONFIRM 2) (HELP @copyfiles-help))
      )
    )
  )
)

(COMPLETE 100)

(IF (<> conf-dir "S:")
  (MESSAGE
    (CAT changeTT0 (TACKON conf-dir "Edt-Startup.edt")
         changeTT1 "\"" (TACKON conf-dir "Edt") "\".")
  )
)