home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #6
/
amigamamagazinepolishissue1998.iso
/
packery
/
xpk_user
/
xpk_user.lha
/
xpk_User
/
Install
next >
Wrap
Text File
|
1997-07-18
|
26KB
|
682 lines
; XpkMaster distribution Installer script.
; © Dirk Stöcker <stoecker@rcs.urz.tu-dresden.de>
; $VER: XpkMasterInstall 1.13 (18.07.97)
; History:
; 1.10 changed WHAT_C
; 1.11 added russian language and install check for nederlands
; 1.12 added install check for español
; 1.13 finally fixed Installer version error report
; 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"
"srpski" "ÃeÓtina" "russian" ""))
(
(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
(cat "Choose the parts you need for your C compiler. The files are "
"automatically copied into correct sub directories."
)
)
(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 #WHAT_C
(cat "Wählen Sie die Teile, die Sie für Ihren C Compiler benötigen. Die"
"Dateien werden automatisch in die nötigen Unterverzeichnisse verteilt."
)
)
(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 4) (
(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 jezike 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 "Korisniki 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 5) (
(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")
))
; **************************** Russian texts ****************************
(if (= #catalog 6) (
(set #GOINGIN
(cat "\n\nÃíàïí îíåaêíáañû á çìðñaêêþñíï ãçðñïçàòñçáìíâí îaéäña XpkMaster.\n\n"
"Áðä ðòà-aïôçáú, ìäíàôíãçëúä Áaë ãêþ çìðñaêêþõçç, ìa ìaöaêí çìðñaêêþõçç "
"òåä ãíêåìú àúñû ïaðîaéíáaìú á íãçì éañaêíâ. Üñíñ éañaêíâ þáêþäñðþ îïäãúãòùçë "
"éañaêíâíë íñ ñíâí, çæ éíñíïíâú Áú æaîòðñçêç çìðñaêêþñíï.\n\nÒàäãçñäðû á üñíë!"
)
)
(set #INSTALLERVERSION "Ìäíàôíãçë Çìðñaêêþñíï éaé ëçìçëòë áäïðçç 42.9.")
(set #XPKMASTER_LIB "Íàìíáêäìçä xpkmaster.library îïç ìäíàôíãçëíðñç.")
(set #INSTALL_LIB "Íàìíáêäìçä àçàêçíñäéç îíããäïåéç %s.")
(set #WHAT_STUFF "Éaéçä îïíâïaëëú Áú ôíñçñä îïíçìðñaêêçïíáañû?")
(set #WHAT_LANGUAGE "Éaéçä þæúéíáúä óaèêú Áú ôíñçñä îïíçìðñaêêçïíáañû?")
(set #WHAT_PROMPT "Éaéçä öaðñç îaéäña Áú ôíñçñä îïíçìðñaêêçïíáañû?")
(set #WHAT_LIBS "Éaéçä àçàêçíñäéç îíããäïåéç Áú ôíñçñä îïíçìðñaêêçïíáañû?")
(set #WHAT_DOCS "\n\n\n\n\nÇìðñaêêçïíáañû ãíéòëäìñaõçý?")
(set #WHAT_PREFS "\n\n\n\n\nÇìðñaêêçïíáañû îïíâïaëëò Îïäãòðñaìíáíé?")
(set #WHAT_PROCESSOR "\n\n\n\n\nÇìðñaêêçïíáañû ìäéíñíïúä àçàêçíñäéç îíã MC68020?")
(set #WHAT_DEVELOP "Éaéçä öaðñç ãíéòëäìñaõçç ãêþ îïíâïaëëçðña Áaë ìòåìú?")
(set #WHAT_C
(cat "Òéaåçñä öaðñç, ìäíàôíãçëúä Áaøäëò éíëîçêþñíïò Ðç. Óaèêú aáñíëañçöäðéç "
"àòãòñ ïaæëäùäìú á ìòåìúô éañaêíâaô."
)
)
(set #CRYPT_SOURCE "\n\n\n\n\nÇìðñaêêçïíáañû çðôíãìçéç øçóïòýùäè àçàêçíñäéç?")
(set #STARTUP "\n\n\n\n\nÃíàaáêþý áúæíá XpkMasterPrefs á startup-óaèêä.")
(set #PREFSFILE "\n\n\n\n\nÇìðñaêêçïíáañû óaèê îïäãòðñaìíáíé?")
(set #ASK_PATH
(cat "Òéaåçñä ëaïøïòñ ãêþ çìðñaêêþõçç %s. Îïç íñðòñðñáçç "
"éañaêíâa »%s«, íì àòãäñ ðíæãaì aáñíëañçöäðéç."
)
)
(set #ASK_PATH2 "Òéaåçñä ëaïøïòñ ãêþ çìðñaêêþõçç %s.")
(set #WHAT_USER "Ëaïøïòñ îíêûæíáañäêþ")
(set #WHAT_DEVELOP "Ëaïøïòñ îïíâïaëëçðña")
(set #WHAT_CRYPT "àçàêçíñäéç øçóïíáéç")
(set #WHAT_SOURCE "çðôíãìçéç ç îïçëäïú")
(set #DEV_AUTODOCS "Óaèêú Autodocs")
(set #DEV_HOTHELP "Óaèêú HotHelp")
(set #DEV_FD "Óaèêú FD")
(set #DEV_ASM "ASM includes")
(set #DEV_C "C/C++ includes")
(set #DEVT_AUTODOCS "óaèêú autodocs")
(set #DEVT_FD_FILES "óaèêú FD")
(set #DEVT_ASM "óaèêú ASM includes")
(set #DEVT_C "óaèêú C/C++ includes")
(set #DEVT_HOTHELP "óaèêú HotHelp")
(set #CRP_SOURCES "çðôíãìçéç")
(set #SRC_SRC_A_EXA "çðôíãìçéç ç îïçëäïú")
(set #DEVC_PRAGMA "óaèêú pragma")
(set #DEVC_GCC "óaèêú GCC inline")
(set #DEVC_REDIRECT "îäïäìaîïaáêþýùçä óaèêú ãêþ ðñaïúô éíãíá")
(set #DEVC_SAS "Îïaâëú îäïäìaîïaáêäìçþ SAS (áíæëíåìí ìä ìòåìú)")
(set #DEVC_PROTO "Óaèêú proto")
))
; ************************* 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" "español" "français" "italiano" "nederlands"
"norsk" "polski" "russian" "srpski" "svenska" "ãeÓtina")
(default #catalog)
)
)
(set #i 0)
(while (set #thisfile (select #i "deutsch" "español" "français"
"italiano" "nederlands" "norsk" "polski" "russian" "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/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 **********************
(if (< @installer-version (+ (* 65536 42) 9))
(abort #INSTALLERVERSION)
)
; we need at least version 42.9 of Installer, as some of it's functionality
; is used in the script
(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
(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))