; ************************************************
; *
; * EuraConfig - HD Update Script
; *
; * $VER: Update-EuraConfig 2.00
; *
; * Script written by Richard Krber
; *
; ************************************************

;------- Prompts ---------------------------------
;
(set DestDirPrompt
  (cat  "Wohin wurde EuraConfig installiert?\n"
        "(Bitte mit Unterverzeichnis angeben!)"
  )
)

(set Ask020Prompt
  (cat  "Wurde die fr den 68020 und hher\n"
        "optimierte Version installiert?"
  )
)

(set CopyDocPrompt
  (     "Kopiere die Anleitung.")
)

(set PatchPrompt
  (     "Generiere das Update.")
)

;------- Help ------------------------------------
;
(set DestDirHelp
  (cat  "Whlen Sie das Zielverzeichnis aus, z. B.\n"
        "'Work:EuraConfig'."
  )
)

(set CopyDocHelp
  (cat  "Welche Teile der Anleitung sollen\n"
        "aktualisiert werden?"
  )
)

(set Ask020Help
  (cat  "WICHTIG: Geben Sie hier unbedingt an,\n"
        "welche Version Sie installiert haben.\n\n"
        "Wenn Ihre Angabe nicht stimmt, kann das\n"
        "Update nicht durchgefhrt werden!"
  )
)

;------- Messages --------------------------------
;
(set StartupMsg
  (cat  "\nWillkommen zum\n\n"
        "EuraConfig Update\n\n\n"
        "von Version 2.1 auf Version 2.2"
  )
)

(set AllrightMsg
  (cat  "\nEuraConfig ist jetzt aktualisiert.\n\n"
        "Bitte besorgen Sie sich bei nchster\n"
        "Gelegenheit das vollstndige Archiv,\n"
        "um auch eine aktuelle Version der\n"
        "Anleitung zu erhalten."
  )
)

(set CPU000 "68000, 68010")
(set CPU020 "68020, 68030, 68040, 68060")

;------- Files -----------------------------------
;
(set Patch          "spatch")
(set EuraCfg000     "EuraConfig.pch")
(set EuraCfg020     "EuraConfig_020.pch")
(set EuraCfg        "EuraConfig")
(set EuraHistory    "History.txt")

;------- Installation ----------------------------
;
(message StartupMsg)            ;-------- Welcome the user

(set DestDir                    ;-------- Ask dir to create drawer into
  (askdir
    (prompt  DestDirPrompt)
    (help    DestDirHelp)
    (default "Work:EuraConfig")
  )
)
(set @default-dest (DestDir))

(set usedcpu (+ (database "cpu")))      ; Is a 68020+ available?
(if (< usedcpu 68020)
  (set usedcpu 0)
  (set usedcpu 1)
)
(if (= @user-level 2)
  (set CPUVer
    (askchoice
      (prompt Ask020Prompt)
      (help   Ask020Help)
      (choices CPU000 CPU020)
      (default usedcpu)
    )
  )
  (set CPUVer usedcpu)
)

(set Targetfile (tackon DestDir EuraCfg))

(if (= CPUVer 0)
  (set Cmd (cat Patch " -o" Targetfile " -p" EuraCfg000 " " Targetfile))
  (set Cmd (cat Patch " -o" Targetfile " -p" EuraCfg020 " " Targetfile))
)
(run Cmd (prompt PatchPrompt))

(copyfiles                              ; Copy the documentation
  (prompt  CopyDocPrompt)
  (help    CopyDocHelp)
  (source  "")
  (choices EuraHistory)
  (dest    DestDir)
  (confirm)
)

(message AllrightMsg)

;------- Done ------------------------------------

