; TSO II installation file
; version 1.0
; by Twins
; 1/6/95
;

(if (= @language "deutsch")
  (
    (set langbit 1)     ; used below when selecting language to install
    (set txt_NoVersion (cat
      "TSO II luft nicht mit der Version %ld von AmigaDOS! "
      "Whlen Sie \"Fortfahren\", um TSO II dennoch zu installieren, "
      "oder \"Abbruch\", um die Installation zu beenden.")
    )
    (set txt_NoVersionHelp (cat
      "Wenn Sie beabsichtigen, in krzerer Zeit auf eine neuere Version "
      "des AmigaDOS umzusteigen, kann es sinnvoll sein, TSO II dennoch "
      "zu installieren, auch wenn man ihn bis dahin nicht benutzen kann. "
      "Sollten Sie nicht daran denken wenigstens auf Version 2.04 des "
      "AmigaDOS umzusteigen, brechen Sie die Installation hier ab "
      "und verzichten Sie auf die Benutzung von TSO II ganz.")
    )
    (set txt_AbortMsg
      "Die Installation wurde abgebrochen, ohne etwas zu installieren."
    )
    (set txt_Install
      "Fortfahren"
    )
    (set txt_Cancel
      "Abbruch"
    )
    (set txt_DrawerPrompt (cat
      "Wohin sollen die TSO II Dateien kopiert werden? (Ein Verzeichnis "
      "mit dem Namen TSO wird dort erstellt!)")
    )
    (set txt_SelectLangs
      "Whlen Sie die Sprachen, die installiert werden sollen."
    )
    (set txt_SelectLangsHelp (cat
      "Ab der Version 2.1 des AmigaDOS werden unterschiedliche "
      "Sprachen vom System untersttzt. Die Texte werden dann "
      "in der gewnschten Sprache ausgegeben.\n"
      "Whlen Sie bitte die Sprachen aus, von denen Sie der "
      "Meinung sind, sie jetzt oder in Zukunft zu benutzen. "
      "Natrlich knnen Sie auch mehr oder andere Sprachen "
      "spter noch installieren. In zuknftigen Versionen "
      "werden noch weitere Sprachen folgen.")
    )
    (set txt_LocaleDir (cat
      "Wollen Sie die Sprachanpassungsdateien in das LOCALE:Catalogs/-"
      "oder in das PROGDIR:Catalogs/-Verzeichnis kopieren?")
    )
    (set txt_LocaleDirHelp (cat
      "Der Installer mu wissen, wohin Sie die Sprachanpassungsdateien "
      "kopiert haben wollen. Das System sucht diese Dateien sowohl im "
      "LOCALE:Catalogs/-Verzeichnis als auch im PROGDIR:Catalogs/-"
      "Verzeichnis. Dies bedeutet, da in dem Verzeichnis, in dem sich "
      "die ausfhrbare Datei befindet nach einem Verzeichnis Catalogs "
      "gesucht wird.")
    )
  )
)
(if (= @language "english")
  (
    (set langbit 0)     ; used below when selecting language to install
    (set txt_NoVersion (cat
      "TSO II can't run under version %ld of AmigaDOS! "
      "Select \"Install\" if you still want to install TSO II "
      "or press \"Cancel\" to "
      "stop the installation process.")
    )
    (set txt_NoVersionHelp (cat
      "If you intend to run a newer version of AmigaDOS within a limited "
      "period, it might make sense to install TSO II even if it can't "
      "be used until that upgrade. If you are not considering upgrading "
      "to at least version 2.04, then you should cancel the installation "
      "right now and forget about using TSO II!")
    )
    (set txt_AbortMsg
      "Nothing was installed!"
    )
    (set txt_Install
      "Install"
    )
    (set txt_Cancel
      "Cancel"
    )
    (set txt_DrawerPrompt (cat
      "In which drawer do you want your TSO II files to be installed? (A "
      "directory will be made by the installer.)")
    )
    (set txt_SelectLangs
      "Select the languages that you want installed!"
    )
    (set txt_SelectLangsHelp (cat
      "From AmigaDOS version 2.1, there is locale support "
      "for software to keep databases for different "
      "languages to support output in your native language.\n"
      "Select the languages that you think you will use, now or "
      "in the future. You can of course install more/different "
      "catalogs at a later time. More catalogs are likely to "
      "appear in future releases and revisions!")
    )
    (set txt_LocaleDir (cat
      "Would you like to put the catalogs in the LOCALE:catalogs/ "
      "or in the PROGDIR:catalogs/ drawer/partition?")
    )
    (set txt_LocaleDirHelp (cat
      "The installer has to know where you want the catalogs installed. "
      "The system will look for them in Locale:Catalogs/ and in "
      "PROGDIR:Catalogs/")
    )
  )
)

;*****************************************************************************
;
; END OF LANGUAGE DEFINES, START OF *REAL* INSTALLATION
;
;*****************************************************************************

; Prompt users running anything lower than V37 whether installing TSO II
; since it won't run on such machines!

(set amigaversion (/ (getversion) 65536))

(if (< amigaversion 37)
   (if (not (askbool
               (prompt (txt_NoVersion amigaversion))
               (choices txt_Install txt_Cancel)
               (help txt_NoVersionHelp)
            )
       )
       (abort txt_AbortMsg)
   )
)

(complete 10)

(set tsodest
   (askdir
      (prompt txt_DrawerPrompt)
      (help @askdir-help)
      (default @default-dest)
   )
)
(
  (makedir (tackon tsodest "TSO"))
  (set tsodest (tackon tsodest "TSO"))
)

(complete 20)

; Get locale information
(set catalog (askoptions
               (prompt txt_SelectLangs)
               (choices "Deutsch")
               (help txt_SelectLangsHelp)
               (default langbit)
             )
)

(complete 30)

(
   (delete "LOCALE:catalogs/deutsch/TSO.catalog" )
   (delete (tackon tsodest "catalogs/deutsch/TSO.catalog") )
)

(if catalog
   (
      (if (> 2 @user-level)
         (
            (set localedir "LOCALE:")
         )
         (set localedir
            (askbool
               (prompt txt_LocaleDir)
               (choices "LOCALE:" "PROGDIR:")
               (default 1)
               (help txt_LocaleDirHelp)
            )
         )
      )
      (if localedir
         (
            (if (not (exists "locale:" (noreq)))
               (
                (makedir "sys:Locale")
                (makeassign  "locale" "sys:locale")
               )
            )
       
            (if (not (exists "Locale:Catalogs"))
               (makedir "Locale:Catalogs")
            )
            (set catalogdest "Locale:Catalogs/")
         )
         (
            (set catalogdest (tackon tsodest "Catalogs"))
            (makedir catalogdest)
         )
      )
      (if (IN catalog 0)
         (
            (makedir (tackon catalogdest "Deutsch"))
            (copyfiles
               (source "Catalogs/Deutsch")
               (dest (tackon catalogdest "Deutsch"))
               (infos)
               (all)
            )
         )
      )
   )
)

(complete 40)


; Start copying files to destination!
(set @default-dest tsodest)

(complete 50)

(copyfiles
   (source "")
   (dest tsodest)
   (infos)
   (pattern "docs#?" )
)

(complete 70)

(copyfiles
   (source "")
   (dest tsodest)
   (infos)
   (pattern "infos#?" )
)

(complete 80)

(copyfiles
   (source "")
   (dest tsodest)
   (infos)
   (pattern "TIMER#?" )
)

(complete 90)

(copyfiles
   (help @copyfiles-help)
   (source "")
   (dest tsodest)
   (infos)
   (pattern "TSO#?" )
)

(complete 100)

