; XpkMaster distribution Installer script.
; © Dirk Stöcker <stoecker@rcs.urz.tu-dresden.de>
; $VER: XpkMasterInstall 1.8 (09.05.97)

; Translations, which equal english texts are not needed, as not used texts
; get english defaults!

(set #catalog 0)

(set #i 0)
(while (set #thisfile (select #i "deutsch" "français" "italiano" "norsk"
"polski" "srpski" "svenska" "ÃeÓtina" ""))
  (
    (set #i (+ #i 1))
    (if (= @language #thisfile) (set #catalog #i))
  )
)

; ************************** English texts ******************************

(set #GOINGIN
  (cat "\n\nWelcome to XpkMaster distribution installation system.\n\n"
       "All sub archives you want to install have to be unpacked to "
       "one directory. This directory is the parent of the one, you "
       "have started the script of!\n\nMake clear you did this!"
  )
)
(set #INSTALLERVERSION "You need at least version 42.9 of Installer.")
(set #XPKMASTER_LIB  "Update xpkmaster.library when needed.")
(set #INSTALL_LIB    "Update sub library %s.")
(set #WHAT_STUFF     "What programs do you like to install ?")
(set #WHAT_LANGUAGE  "What language files do you like to install?")
(set #WHAT_PROMPT    "What parts of the distribution do you like to install?")
(set #WHAT_LIBS      "What sub libraries do you like to install?")
(set #WHAT_DOCS      "\n\n\n\n\nInstall documentation?")
(set #WHAT_PREFS     "\n\n\n\n\nInstall Preferences program?")
(set #WHAT_PROCESSOR "\n\n\n\n\nInstall MC68020 versions of some libraries?")
(set #WHAT_DEVELOP   "What parts of developer dir do you need?")
(set #WHAT_C	     "Choose the parts you need for your C compiler.")
(set #CRYPT_SOURCE   "\n\n\n\n\nInstall cryption lib sources?")
(set #STARTUP	     "\n\n\n\n\nAdd XpkMasterPrefs call to startup file.")
(set #PREFSFILE	     "\n\n\n\n\nInstall preferences file?")
(set #ASK_PATH
  (cat "Select the path where %s should be installed. A drawer "
       "»%s« will be created automatically, when not existing."
  )
)
(set #ASK_PATH2     "Select the path where %s should be installed.")
(set #WHAT_USER     "User part")
(set #WHAT_DEVELOP  "Developer part")
(set #WHAT_CRYPT    "cryption libraries")
(set #WHAT_SOURCE   "sources and examples")
(set #DEV_AUTODOCS  "Autodocs")
(set #DEV_HOTHELP   "HotHelp files")
(set #DEV_FD	    "FD files")
(set #DEV_ASM	    "ASM includes")
(set #DEV_C	    "C/C++ includes")
(set #DEVT_AUTODOCS "the autodocs")
(set #DEVT_FD_FILES "the FD files")
(set #DEVT_ASM      "the ASM includes")
(set #DEVT_C	    "the C/C++ includes")
(set #DEVT_HOTHELP  "the HotHelp files")
(set #CRP_SOURCES   "the sources")
(set #SRC_SRC_A_EXA "the sources and examples")
(set #DEVC_PRAGMA   "pragma files")
(set #DEVC_GCC      "GCC inline files")
(set #DEVC_REDIRECT "redirect files for older code")
(set #DEVC_SAS      "SAS pragmas redirect (not needed)")
(set #DEVC_PROTO    "proto files")

; ************************** German texts *******************************

(if (= #catalog 1) (
(set #GOINGIN
  (cat "\n\nWillkommen zum XpkMaster Installationssystem.\n\n"
       "Alle Teilarchive, die Sie installieren wollen, müssen in ein "
       "Verzeichnis entpackt werden. Dieses ist das vorhergehende "
       "Verzeichnis zu dem, aus dem Sie dieses Script gestartet haben.\n\n"
       "Stellen Sie sicher, das richtig getan zu haben!"
  )
)
(set #INSTALLERVERSION "Sie benötigen mindestens Version 42.9 des Installer Programmes.")
(set #XPKMASTER_LIB  "Erneuere xpkmaster.library wenn nötig.")
(set #INSTALL_LIB    "Erneuere Sublibrary %s.")
(set #WHAT_STUFF     "Welche Programme wollen Sie installieren?")
(set #WHAT_LANGUAGE  "Welche Sprachkataloge wollen Sie installieren?")
(set #WHAT_PROMPT    "Welche Teile von XPK wollen Sie installieren?")
(set #WHAT_LIBS      "Welche Sublibraries wollen Sie installieren?")
(set #WHAT_DOCS      "\n\n\n\n\nDokumentation installieren?")
(set #WHAT_PREFS     "\n\n\n\n\nVoreinsteller (Preferences) Programm installieren?")
(set #WHAT_PROCESSOR "\n\n\n\n\nMC68020 Versionen einiger Libraries installieren?")
(set #WHAT_DEVELOP   "Welche Teile des Entwickler Pakets benötigen Sie?")
(set #WHAT_C	     "Wählen Sie die Teile, die Sie für Ihren C Compiler benötigen.")
(set #CRYPT_SOURCE   "\n\n\n\n\nQuellkode der Verschlüsselungslibraries installieren?")
(set #STARTUP	     "\n\n\n\n\nErgänze XpkMasterPrefs Programmaufruf zur Startupdatei.")
(set #PREFSFILE	     "\n\n\n\n\nInstalliere Voreinsteller (Preferences) Datei?")
(set #ASK_PATH
  (cat "Wählen Sie den Pfad, wo %s installiert werden soll. Ein Verzeichnis "
       "»%s« wird automatisch erstellt, falls es noch nicht existiert."
  )
)
(set #ASK_PATH2     "Wählen Sie den Pfad, wo %s installiert werden soll.")
(set #WHAT_USER     "Anwender Archiv")
(set #WHAT_DEVELOP  "Entwickler Archiv")
(set #WHAT_CRYPT    "Verschlüsselungslibraries")
(set #WHAT_SOURCE   "Quellkodes und Beispiele")
(set #DEV_HOTHELP   "HotHelp-Dateien")
(set #DEV_FD	    "FD-Dateien")
(set #DEV_ASM	    "ASM Includes")
(set #DEV_C	    "C/C++ Includes")
(set #DEVT_AUTODOCS "die Autodocs")
(set #DEVT_FD_FILES "die FD-Dateien")
(set #DEVT_ASM      "die ASM Includes")
(set #DEVT_C	    "die C/C++ Includes")
(set #DEVT_HOTHELP  "die HotHelp-Dateien")
(set #CRP_SOURCES   "die Quellkodes")
(set #SRC_SRC_A_EXA "die Quellkodes und Beispiele")
(set #DEVC_PRAGMA   "pragma Dateien")
(set #DEVC_GCC      "GCC inline Dateien")
(set #DEVC_REDIRECT "Umleitungsdateien für älteren Kode")
(set #DEVC_SAS      "SAS pragmas Umleitungsdateien (nicht benötigt)")
(set #DEVC_PROTO    "proto Dateien")
))

; ************************** French texts *******************************

(if (= #catalog 2) (
(set #GOINGIN
  (cat "\n\nBienvenue dans le système d'installation de xpkMaster.\n\n"
       "Toutes les sous archives que vous voulez installer doivent être "
       "décompressées dans un répertoire. Ce répertoire est le parent de "
       "celui duquel vous avez lancé ce script !\n\n"
       "Assurez vous que vous ayez fait cela !"
  )
)
(set #INSTALLERVERSION "Vous avez besoin de Installer version 42.9 au minimum.")
(set #XPKMASTER_LIB  "Mise à jour de xpkmaster.library lorsque c'est nécessaire.")
(set #INSTALL_LIB    "Mise à jour de la sous bibliothèque %s.")
(set #WHAT_STUFF     "Quels programmes voulez vous installer ?")
(set #WHAT_LANGUAGE  "Quelles fichiers de langue voulez vous installer ?")
(set #WHAT_PROMPT    "Quelles parties de la distribution voulez vous installer ?")
(set #WHAT_LIBS      "Quelles sous bibliothèques voulez vous installer ?")
(set #WHAT_DOCS      "\n\n\n\n\nInstaller la documentation ?")
(set #WHAT_PREFS     "\n\n\n\n\nInstaller le programme de préférences ?")
(set #WHAT_PROCESSOR "\n\n\n\n\nInstaller la version MC68020 de quelques bibliothèques ?")
(set #WHAT_DEVELOP   "Quelles parties du répertoire développeur voulez vous ?")
(set #WHAT_C	     "Choisissez les parties nécessaires pour votre compilateur C.")
(set #CRYPT_SOURCE   "\n\n\n\n\nInstaller les sources des bibliothèques de cryptage ?")
(set #STARTUP	     "\n\n\n\n\nAjouter l'appel XpkMasterPrefs au fichier de démarrage.")
(set #ASK_PATH
  (cat "Sélectionnez le chemin où %s devrait être installé. Un répertoire "
       "« %s » sera créé automatiquement, s'il n'existe pas."
  )
)
(set #ASK_PATH2     "Sélectionner le chemin où %s devrai(en)t être installé.")
(set #WHAT_USER     "Partie utilisateur")
(set #WHAT_DEVELOP  "Partie développeur")
(set #WHAT_CRYPT    "Bibliothèques de cryptage")
(set #WHAT_SOURCE   "Sources et exemples")
(set #DEV_HOTHELP   "Fichiers HotHelp")
(set #DEV_FD	    "Fichiers FD")
(set #DEV_ASM	    "Includes ASM")
(set #DEV_C	    "Includes C/C++")
(set #DEVT_AUTODOCS "les autodocs")
(set #DEVT_FD_FILES "les fichiers fd")
(set #DEVT_ASM      "les includes ASM")
(set #DEVT_C	    "les includes C/C++")
(set #DEVT_HOTHELP  "les fichiers HotHelp")
(set #CRP_SOURCES   "les sources")
(set #SRC_SRC_A_EXA "les sources et exemples")
(set #DEVC_PRAGMA   "les fichiers pragma")
(set #DEVC_GCC      "les fichiers inline GCC")
(set #DEVC_REDIRECT "les fichiers de redirection pour le code plus ancien")
(set #DEVC_SAS      "les pragmas de redirection SAS (pas nécessaire)")
(set #DEVC_PROTO    "fichiers proto")
))

; ************************** Italiano texts *****************************

(if (= #catalog 3) (
(set #GOINGIN
  (cat "\n\nBenvenuto nel sistema di installazione della distribuzione XpkMaster.\n\n"
       "Tutti i sotto archivi che desideri installare devono essere decompressi in"
       "una cartella. Questa cartella è la precedente a quella da cui tu hai fatto"
       "partire questo script!\n\nAssicurati di averlo fatto!"
  )
)
(#INSTALLERVERSION "Necessiti come minimo della versione 42.9 dell' Installer.")
(#XPKMASTER_LIB  "Aggiorna l' xpkmaster.library quando necessario.")
(#INSTALL_LIB    "Aggiorna la sotto libreria %s.")
(#WHAT_STUFF     "Che programmi desideri installare ?")
(#WHAT_LANGUAGE  "Che file di linguaggio desideri installare?")
(#WHAT_PROMPT    "Che parti della distribuzione desideri installare?")
(#WHAT_LIBS      "Che sotto-librerie desideri installare?")
(#WHAT_DOCS      "\n\n\n\n\nInstallo la documentazione?")
(#WHAT_PREFS     "\n\n\n\n\nInstallo il programma di Preferenze ?")
(#WHAT_PROCESSOR "\n\n\n\n\nInstallo le versioni MC68020 di alcune librerie?")
(#WHAT_DEVELOP   "Di che parti della cartella per sviluppatore hai bisogno?")
(#WHAT_C	 "Scegli le parti che ti servono per il tuo compilatore C.")
(#CRYPT_SOURCE   "\n\n\n\n\nInstallo i sorgenti della libreria di crittografia?")
(#STARTUP	     "\n\n\n\n\nAggiungo la chiamata a XpkMasterPrefs nel file di startup.")
(set #ASK_PATH
  (cat "Seleziona il percorso in cui %s dovra' essere installato. Un cassetto "
       "»%s« verra' creato automaticamente, se non esiste gia'."
  )
)
(#ASK_PATH2     "Seleziona il percorso in cui %s dovra' essere installato.")
(#WHAT_USER     "Parte Utente")
(#WHAT_DEVELOP  "Parte Sviluppatore")
(#WHAT_CRYPT    "Librerie di crittografia")
(#WHAT_SOURCE   "sorgenti ed esempi")
(#DEV_HOTHELP   "File di Aiuto in linea")
(#DEVT_AUTODOCS "gli autodocs")
(#DEVT_FD_FILES "i file fd")
(#DEVT_ASM      "gli includes ASM")
(#DEVT_C	"gli includes C/C++")
(#DEVT_HOTHELP  "I file di Aiuto in linea")
(#CRP_SOURCES   "I sorgenti")
(#SRC_SRC_A_EXA "i sorgenti e gli esempi")
(#DEVC_PRAGMA   "I file pragma")
(#DEVC_REDIRECT "redirigo i file per il vecchio codice")
(#DEVC_SAS      "redirigo i SAS pragmas (non necessario)")
))

; ************************** Serbian texts ******************************

(if (= #catalog 6) (
(set #GOINGIN
  (cat "\n\nDobro doçli u instalacioni sistem XpkMaster paketa.\n\n"
       "Sve dodatne arhive treba da se raspakuju u jedan direktorijum. "
       "To je direkorijum prethodan onome iz koga se starovali "
       "instalaciju!\n\n"
       "Budite sigurni da ste to uradili!"
  )
)
(set #INSTALLERVERSION "Treba vam najmanje verzija 42.9 Instalera.")
(set #XPKMASTER_LIB  "Osve§i xpkmaster.library kada je porebno.")
(set #INSTALL_LIB    "Osve§i pod biblioteke %s.")
(set #WHAT_STUFF     "Koje programe §elite da instalirate?")
(set #WHAT_LANGUAGE  "Koje jeziŸke fajlove §elite da instalirate?")
(set #WHAT_PROMPT    "Koje delove paketa §elite da instalirate?")
(set #WHAT_LIBS      "Koje pod biblioteke §elite da instalirate?")
(set #WHAT_DOCS      "\n\n\n\n\nDa instaliram dokumentaciju?")
(set #WHAT_PREFS     "\n\n\n\n\nDa instaliram program za podeçavanja?")
(set #WHAT_PROCESSOR "\n\n\n\n\nDa instaliram MC68020 verzije nekih biblioteka?")
(set #WHAT_DEVELOP   "Koji delovi programerskog direktorijuma vam trebaju?")
(set #WHAT_C	     "Odaberite delove koji vam trebaju za C kompajler.")
(set #CRYPT_SOURCE   "\n\n\n\n\nDa instaliram izvorni kod biblioteka za kriptovanje?")
(set #STARTUP	     "\n\n\n\n\nDa dodam poziv XpkMasterPrefs-u u startap.")
(set #ASK_PATH
  (cat "Odaberite path gde %s treba da se instalira. Direkorijum "
       "»%s« †e automatski biti napravljen, ako ne postoji."
  )
)
(set #ASK_PATH2     "Odaberite path gde %s treba da se instalira.")
(set #WHAT_USER     "KorisniŸki deo")
(set #WHAT_DEVELOP  "Programerski deo")
(set #WHAT_CRYPT    "biblioteke za çifrovanje")
(set #WHAT_SOURCE   "izvorni kod i primeri")
(set #DEV_AUTODOCS  "Autodokovi")
(set #DEV_HOTHELP   "HotHelp fajlovi")
(set #DEV_FD	    "FD fajlovi")
(set #DEV_ASM	    "ASM inkludovi")
(set #DEV_C	    "C/C++ inkludovi")
(set #DEVT_AUTODOCS "autodokove")
(set #DEVT_FD_FILES "fd fajlove")
(set #DEVT_ASM      "ASM inkludove")
(set #DEVT_C	    "C/C++ inkludove")
(set #DEVT_HOTHELP  "HotHelp faljove")
(set #CRP_SOURCES   "izvorni kod")
(set #SRC_SRC_A_EXA "izvorni kod i primere")
(set #DEVC_PRAGMA   "pragma fajlove")
(set #DEVC_GCC      "GCC inlajn fajlove")
(set #DEVC_REDIRECT "redirekt fajlove za stariji kod")
(set #DEVC_SAS      "SAS pragma redirekt (nije potrebno)")
(set #DEVC_PROTO    "proto fajlove")
))

; ***************************** Czech texts *****************************

(if (= #catalog 8) (
(set #GOINGIN
  (cat "\n\nVÉtejte pÒi instalaci syst×mu XpkMaster.\n\n"
       "VÓechny podpÊrn× archÉvy, kter× chcete nainstalovat musÉ bÙt "
       "rozbaleny do jednoho adresÁÒe. Tento adresÁÒ je o jeden vÙÓe "
       "neÚ ten, ze kter×ho jste spustili instalaÃnÉ skript!\n\n"
       "UjistÅte se, Úe jste tak uÃinili!"
  )
)
(set #INSTALLERVERSION "Je vyÚadovÁn Installer alespoÎ ve verzi 42.9.")
(set #XPKMASTER_LIB    "NovÁ verze knihovny xpkmaster.library.")
(set #INSTALL_LIB      "NovÁ verze podpÊrn× knihovny %s.")
(set #WHAT_STUFF       "Kter× programy si pÒejete nainstalovat?")
(set #WHAT_LANGUAGE    "Kter× lokalizaÃnÉ katalogy si pÒejete nainstalovat?")
(set #WHAT_PROMPT      "Kter× ÃÁsti syst×mu Xpk si pÒejete nainstalovat?")
(set #WHAT_LIBS        "Kter× podpÊrn× knihovny si pÒejete nainstalovat?")
(set #WHAT_DOCS        "\n\n\n\n\nInstalovat dokumentaci?")
(set #WHAT_PREFS       "\n\n\n\n\nInstalovat NastavenÉ pro Xpk?")
(set #WHAT_PROCESSOR   "\n\n\n\n\nInstalovat verze knihoven pro MC68020?")
(set #WHAT_DEVELOP     "Kter× ÃÁsti adresÁÒe pro vÙvojÁÒe si pÒejete nainstalovat?")
(set #WHAT_C	        "Volba souborÊ pro VÁÓ kompilÁtor C.")
(set #CRYPT_SOURCE     "\n\n\n\n\nInstalovat zdrojov× texty ÓifrovacÉch knihoven?")
(set #STARTUP	        "\n\n\n\n\nSpouÓtÅt XpkMasterPrefs automaticky pÒi startu.")
(set #ASK_PATH
  (cat "Volba cesty, kde by mÅl bÙt %s nainstalovÁn. AdresÁÒ "
       "»%s« bude automaticky vytvoÒen, pokud neexistuje."
  )
)
(set #ASK_PATH2     "Volba cesty kde by mÅl bÙt %s nainstalovÁn.")
(set #WHAT_USER     "ãÁst pro uÚivatele")
(set #WHAT_DEVELOP  "ãÁst pro vÙvojÁÒe")
(set #WHAT_CRYPT    "ÓifrovacÉ knihovny")
(set #WHAT_SOURCE   "zdrojov× texty a pÒÉklady")
))

; ************************* global procedures ***************************

(procedure P_copylib lib pathadd path
  (
    (set #libr (cat "xpk" lib ".library"))
    (copylib (prompt (#INSTALL_LIB libr))
      (help @copylib-help)
      (source (cat path "Libs" pathadd "/compressors/" libr))
      (dest "LIBS:compressors/")
      (confirm)
    )
  )
)
  
; ********************* xpk_User archive install *************************

(procedure P_install_user
  (
    (copylib (prompt #XPKMASTER_LIB)
      (help @copylib-help)
      (source (cat (if (< #OS_version 37) "Libs_1.3/" "Libs/") "xpkmaster.library"))
      (dest "LIBS:")
      (confirm)
    )

    (set #p
      (askoptions
        (prompt #WHAT_LIBS)
        (help @askoptions-help)
        (choices "CBR0" "DLTA" "DUKE" "FAST" "FRLE" "HUFF" "IMPL" "NONE"
          "NUKE" "RLEN" "SHRI" "SMPL" "HFMN" "MASH" "RAKE" "SQSH")
        (default 4294967295)
      )
    )

    (set #q (if (IN #p 12 13 14 15)
      (askbool
        (prompt #WHAT_PROCESSOR)
        (help @askbool-help)
        (default 0)
      ))
    )

    (set #n 0)
    (while (set #thisfile (select #n "CBR0" "DLTA" "DUKE" "FAST" "FRLE"
      "HUFF" "IMPL" "NONE" "NUKE" "RLEN" "SHRI" "SMPL" ""))
      (
        (if (IN #p #n) (P_copylib #thisfile "" ""))
        (set #n (+ #n 1))
      )
    )

    (set #i 0)
    (while (set #thisfile (select #i "HFMN" "MASH" "RAKE" "SQSH" ""))
      (
        (if (IN #p (+ #n #i))
          (P_copylib #thisfile (if #q "_68020+" "") ""))
        (set #i (+ #i 1))
      )
    )

    (copyfiles
      (source "C/")
      (dest "C:")
      (prompt #WHAT_STUFF)
      (help @askoptions-help)
      (choices "xDir" "xQuery" "xType" (if (>= #OS_version 37) "xPack" "xPK")
      (if (>= #OS_version 37) "xBench") "xLoadSeg" "xScan" "xUP")
      (confirm)
    )

    (set #n (if (>= #OS_version 37)
      (askbool
        (prompt #WHAT_PREFS)
        (help @askbool-help)
        (default 0)
      )
    ))

    (if #n (
      (copyfiles
        (source "Prefs/")
        (dest "SYS:Prefs/")
        (choices "XpkMaster")
        (infos)
      )
      (copyfiles (source "C/") (dest "C:") (choices "XpkMasterPrefs"))
      (startup "XpkMasterPrefs" (prompt #STARTUP) (help @startup-help)
        (command "Run >NIL: XpkMasterPrefs"))
      (copyfiles (source "EnvArc/") (dest "ENVARC:") (prompt #PREFSFILE)
      (help @copylib-help) (choices "xpkmaster.prefs") (confirm))
    ))

    (if (>= #OS_version 37)(
      (set #p
        (askoptions
          (prompt #WHAT_LANGUAGE)
          (help @askoptions-help)
          (choices "deutsch" "français" "italiano" "norsk" "polski"
            "srpski" "svenska" "ãeÓtina")
          (default #catalog)
        )
      )

      (set #i 0)
      (while (set #thisfile (select #i "deutsch" "français" "italiano"
        "norsk" "polski" "srpski" "svenska" "ãeÓtina" ""))
      (
        (set #thisfile (tackon "catalogs/" #thisfile))
        (if (IN #p #i)(
          (copyfiles (source #thisfile)
            (dest (tackon "LOCALE:" #thisfile))
            (pattern "xpkmaster.catalog")
	  )
          (if #n (copyfiles (source #thisfile)
            (dest (tackon "LOCALE:" #thisfile))
            (pattern "xpkmasterprefs.catalog")
	  ))
        ))
        (set #i (+ #i 1))
      ))
    ))

    (copyfiles
      (source "")
      (dest @default-dest)
      (prompt #WHAT_STUFF)
      (help @askoptions-help)
      (choices "XpkMaster.guide")
      (infos)
      (noposition)
      (confirm)
    )
  )
)

; ********************* xpk_Develop archive install **********************

(procedure P_install_develop
  (
    (set #p
      (askoptions
        (prompt #WHAT_DEVOP)
        (help @askoptions-help)
        (choices #DEV_AUTODOCS #DEV_HOTHELP #DEV_FD #DEV_ASM #DEV_C)
        (default 4294967295)
      )
    )

    (set #dir (if(exists "INCLUDE:" (NOREQ)) "INCLUDE:" @default-dest))

    (if (IN #p 0)
      (
        (set #dir (askdir (prompt (#ASK_PATH2 #DEVT_AUTODOCS)) (help @askdir-help) (default #dir)))
        (copyfiles (source (tackon #xpk_Develop "AutoDocs/")) (dest #dir) (all))
      )
    )
    (if (IN #p 2)
      (
        (set #dir (askdir (prompt (#ASK_PATH2 #DEVT_FD_FILES)) (help @askdir-help) (default #dir)))
        (copyfiles (source (tackon #xpk_Develop "Include/FD/")) (dest #dir) (all))
      )
    )
    (if (IN #p 3)
      (
        (set #dir (askdir (prompt (#ASK_PATH2 #DEVT_ASM)) (help @askdir-help) (default #dir)))
        (copyfiles (source (tackon #xpk_Develop "Include/ASM/")) (dest #dir) (all))
      )
    )
    (if (IN #p 4)
      (
        (set #q
          (askoptions
            (prompt #WHAT_DEVOP)
            (help @askoptions-help)
            (choices #DEVC_PRAGMA #DEVC_GCC #DEVC_REDIRECT #DEVC_SAS
              #DEVC_PROTO)
            (default 1)
          )
        )
        (set #dir (askdir (prompt (#ASK_PATH2 #DEVT_C)) (help @askdir-help) (default #dir)))
        (copyfiles (source (tackon #xpk_Develop "Include/C/clib/")) (dest (tackon #dir "clib")) (all))
        (copyfiles (source (tackon #xpk_Develop "Include/C/xpk/")) (dest (tackon #dir "xpk")) (all))
	(if (IN #q 0)
	  (copyfiles (source (tackon #xpk_Develop "Include/C/pragma/")) (dest (tackon #dir "pragma")) (all))
	)
	(if (IN #q 1)
	  (copyfiles (source (tackon #xpk_Develop "Include/C/inline/")) (dest (tackon #dir "inline")) (all))
	)
	(if (IN #q 2)
	  (copyfiles (source (tackon #xpk_Develop "Include/Old-C/libraries/")) (dest (tackon #dir "libraries")) (all))
	)
	(if (IN #q 3)
	  (copyfiles (source (tackon #xpk_Develop "Include/OLD-C/pragmas/")) (dest (tackon #dir "pragmas")) (all))
	)
	(if (IN #q 4)
	  (copyfiles (source (tackon #xpk_Develop "Include/OLD-C/proto/")) (dest (tackon #dir "proto")) (all))
	)
      )
    )
    (if (IN #p 1)
      (
        (set #dir (askdir (prompt (#ASK_PATH2 #DEVT_HOTHELP)) (help @askdir-help) (default (if(exists "HOTHELP:" (NOREQ)) "HOTHELP:Projekte" @default-dest))))
        (copyfiles (source (tackon #xpk_Develop "HotHelp/")) (dest #dir) (pattern "XPK#?"))
      )
    )
  )
)

; ********************* xpk_Crypt archive install ************************

(procedure P_install_crypt
  (
    (set #i
      (askoptions
        (prompt #WHAT_LIBS)
        (help @askoptions-help)
        (choices "ENCO" "FEAL" "IDEA")
        (default 4294967295)
      )
    )

    (set #n 0)
    (while (set #thisfile (select #n "ENCO" "FEAL" "IDEA" ""))
      (
        (if (IN #i #n) (P_copylib #thisfile "" #xpk_Crypt))
        (set #n (+ #n 1))
      )
    )

    (if (askbool (prompt #CRYPT_SOURCE) (help @askbool-help) (default 0))
      (
        (set #dir
          (tackon
            (askdir (prompt (#ASK_PATH #CRP_SOURCES "XpkSources/Crypt")) (help @askdir-help) (default @default-dest))
            "XpkSources/Crypt"))
        (if (NOT (exists #dir)) (makedir #dir (infos)))
        (copyfiles (source (tackon #xpk_Crypt "source/")) (dest #dir) (all))
      )
    )
  )
)

; ********************* xpk_Source archive install ***********************

(procedure P_install_source
  (
    (set #dir
      (tackon
        (askdir (prompt (#ASK_PATH #SRC_SRC_A_EXA "XpkSources")) (help @askdir-help) (default @default-dest))
           "XpkSources"))
        (if (NOT (exists #dir)) (makedir #dir (infos)))
        (copyfiles (source #xpk_Source) (dest #dir) (all))
  )
)

; ******************** here the stuff really starts **********************


(set #xpk_Source  "/xpk_Source/")
(set #xpk_Develop "/xpk_Develop/")
(set #xpk_Crypt   "/xpk_Crypt/")
(set #OS_version  (/ (getversion) 65536))

(message #GOINGIN)
; may be here comes an selection, where the decrunched archives are

(if (< @installer-version (+ (* 65536 42) 9))
  ((message #INSTALLERVERSION (ALL)) (exit (QUIET)))
)

(set #o
  (askoptions
    (prompt #WHAT_PROMPT)
    (help @askoptions-help)
    (choices #WHAT_USER
      (if (exists #xpk_Develop) #WHAT_DEVELOP "")
      (if (exists #xpk_Crypt)   #WHAT_CRYPT   "")
      (if (exists #xpk_Source)  #WHAT_SOURCE  "")
      (default 1)
    )
  )
)

(if (IN #o 0) (P_install_user))
(if (IN #o 1) (P_install_develop))
(if (IN #o 2) (P_install_crypt))
(if (IN #o 3) (P_install_source))

(exit (QUIET))