; $VER: MMKeyboard.install 1.60 (05.03.2001) ; Install script for MMKeyboard (Workbench 2.0 or higher) ; (COMPLETE 0) ;(USER 2) (SET #ApplicationName "MMKeyboard") (SET #ApplicationDir (EXPANDPATH "sys:tools")) (SET #ApplicationDir1 (EXPANDPATH "sys:utilities")) (SET #ApplicationDir2 "work:tools") (SET #ApplicationDir3 "tools:") (SET #ApplicationDir4 "work:utilities") (SET #ArchiveDir "/") (SET #Language -1) (SET #Documents -1) (SET #ApplicationKeyfile (CAT #ApplicationName ".key")) (SET #WBStartUp (EXPANDPATH "sys:WBStartup")) ;============================================================================= ; English strings (SET default_lang 1) (SET #bad-kick "You must have at least Workbench 2.0+") (SET #bad-installer (CAT "You have an old version of the program 'Installer' " "on your Amiga!\n\nThe installation procedure needs at least Installer 42.9.\n\n" "Please check your configuration!\n" )) (SET #App-InstallMsg (CAT "\n\n%s Installation Script.\n\n" "This script installs %s on your Amiga.\n\n" "Read the guide file for more information\n" " on the distribution of %s.\n\n" "%s © 1995-2001 Guido Mersmann\n" "All rights reserved." )) (SET #App-MainMode "Please choose mode:") (SET #App-Where (CAT "Where would you like to install %s ?\n" "(A drawer will be created)" )) (SET #App-Update (CAT "\n\nA %s drawer does already exist in the selected " " directory.\n\n By selecting \"Proceed\", you" " indicate that you want to update the %s" " installation with the most recent version.\n\n" "Several %s specific files will be overwritten!" )) (SET #App-Main "Which %s version should be installed ?") (SET #App-Main-help (CAT "The OS2.0+ version should only be used on Systems with OS2." " The OS2.1+ and the OS3.0+ version need less Memory. Locale is required!" " Special OS3.0+ functions are used to save more memory." )) (SET #App-Language "Which languages should be installed ?") (SET #App-Language-help (CAT "\nThe Amiga can be operated in many different" " languages." "To reduce the amount of space consumed by the" " language files, you can select to have only the" " files of specific languages copied.\n\n" "Simply check the boxes of the languages you wish" " to have available on your system.\n\n" @askoptions-help )) (SET #App-Help "Which Amiga-guide files should be installed ?") (SET #App-Exit "\n\n%s installed !!\n\n%s can be found in your \"%s\" drawer (or partiton).") ;--------- DEINSTALLATION STRINGS (SET #App-DeInstallWhere "Where is the location of %s ?\n") (SET #App-Install "Install") (SET #App-DeInstall "Deinstall") (SET #bad-DeInstall "There is no %s installation at the specified position!") (SET #StartupRemove-prompt "\nRemove %s lines within your user-startup?") (SET #Deinstall-Done "\n%s is now deinstalled.") ;============================================================================= ; German strings (IF (= @language "deutsch") ( (SET default_lang 2) (SET #bad-kick "Sie benötigen Workbench 2.0 oder größer") (SET #bad-installer (CAT "Achtung! Es ist eine alte Version des Programmes 'Installer' " "auf Ihrem Amiga!\n\nDie Installation benötigt mindestens Installer 42.9.\n\n" "Bitte überprüfen Sie Ihre Konfiguration!\n" )) (SET #App-InstallMsg (CAT "\n%s Installationsskript.\n\n" "Dieses Skript installiert oder deinstalliert\n" "%s auf Ihrem Amiga.\n\n" "Lesen Sie die Anleitungsdatei für weitere Informationen" " über den Vertrieb von %s.\n\n" "%s © 1999-2001 Guido Mersmann\n" "Alle Rechte reserviert." )) (SET #App-MainMode "Wählen Sie den gewünschten Vorgang:") (SET #App-Where (CAT "Wo möchten Sie %s installieren ?\n" "(Ein Verzeichnis wird angelegt)" )) (SET #App-Update (CAT "\nEin %s-Verzeichnis existiert im ausgewählen" " Verzeichnis.\n\n Wenn Sie fortfahren," " bestätigen Sie, daß Sie die alte %s-Installation" " mit der neuesten Version überschreiben wollen.\n\n" "Verschiedene %s-Dateien (z.B überflüssige Dateien) werden falls nötig überschrieben!" )) (SET #App-Main "Welche Version von %s möchten Sie installieren?") (SET #App-Main-help (CAT "Die OS2.0+ Version läuft unter allen Systemen ab OS2.0." " Die OS2.1+ Version hat den Nutzen, daß sie weniger Resourcen" " benutzt, wenn sich %s im Hintergrund befindet. Dazu MUß" " die Locale.library eingebunden sein. Für die OS3.0+ gilt das Selbe" " wie für die OS2.1 Verison. Es werden OS3.0+ Routinen benutzt, die" " weiteren Speicher sparen." )) (SET #App-Language "Welche Sprachen sollen installiert werden ?") (SET #App-Language-help (CAT "\nDer Amiga kann in vielen verschiedenen Sprachen" " arbeiten. Um Plattenkapazität zu sparen können Sie" " nur die Sprachen anwählen, die sie benötigen" " Haken Sie also einfach die Sprachen ab, die Sie" " Ihrem System zugänglich machen wollen." @askoptions-help )) (SET #App-Help "Welche Anleitungs- und Informationsdateien wollen Sie installieren ?") (SET #App-Exit "\n\n%s installiert!!\n\nSie finden %s im Verzeichnis \"%s\"") ;------- DEINSTALL STRINGS (SET #App-DeinstallWhere "Wo liegt %s auf Ihrer Platte ?\n") (SET #App-Install "%s Installieren") (SET #App-DeInstall "%s Deinstallieren") (SET #bad-DeInstall "Es gibt keine %s Installation an der angegeben Position") (SET #StartupRemove-prompt "\n\nDie zu %s gehörenden Einträge in der User-startup werden gelöscht!"))) (SET #Deinstall-Done "\n%s ist jetzt deinstalliert!") ;============================================================================= ; français strings (IF (= @language "français") ( (SET default_lang 4) (SET #bad-kick "Vous devez avoir le Workbench 2.0 au moins") (SET #bad-installer (CAT "Vous avez une ancienne version du programme 'Installer' " "sur votre Amiga!\n\nLa procédure d'installation a besoin d'Installer 42.9 ou supérieur.\n\n" "Veuillez vérifier votre configuration!\n" )) (SET #App-InstallMsg (CAT "\n\nScript d'installation pour %s.\n\n" "Ce script installe %s sur votre Amiga.\n\n" "Lisez le guide pour de plus amples informations\n" " sur cette distribution de %s.\n\n" "%s © 1995-2000 Guido Mersmann\n" "Tous droits réservés." )) (SET #App-MainMode "Veuillez choisir le mode:") (SET #App-Where (CAT "Où voulez-vous installer %s ?\n" "(Un tiroir sera crée)" )) (SET #App-Update (CAT "\n\nUn tiroir %s existe déja dans le répertoire " " sélectionné.\n\n En sélectionnant \"Continuer\", vous" " indiquez que vous voulez mettre à jour l'installation" " de %s par la version la plus récente.\n\n" "Plusieurs fichiers spécifiques à %s vont être mis à jour!" )) (SET #App-Main "Quelle version de %s doit être installée ?") (SET #App-Main-help (CAT "La version OS2.0+ ne devrait être utilisée que sur un système tournant sous AmigaOS 2." " Les versions OS2.1+ et OS3.0+ utilisent moins de mémoire. Le système de localisation est nécéssaire!" " Des fonction spéciales de l'OS3.0+ sont utilisées pour gagner plus de mémoire." )) (SET #App-Language "Quelles langues doivent être installées ?") (SET #App-Language-help (CAT "\nL'Amiga peut être utilisé dans beaucoup de langues" " différentes." "Pour réduire la place utilisée par les fichiers de" " localisation, vous pouvez choisir de n'avoir" " que certaines langues spécifiques installées.\n\n" "Sélectionnez simplement les cases à cocher correspondant aux" " langues que vous voulez sur votre système.\n\n" @askoptions-help )) (SET #App-Help "Quels fichiers d'aide doivent être installés ?") (SET #App-Exit "\n\n%s est installé !!\n\n%s se trouve dans le tiroir (ou la partition) \"%s\".") ;--------- DEINSTALLATION STRINGS (SET #App-DeInstallWhere "Où est situé %s ?\n") (SET #App-Install "Installer") (SET #App-DeInstall "Désinstaller") (SET #bad-DeInstall "Il n'y a aucune installation de %s à l'emplacement spécifié!") (SET #StartupRemove-prompt "\nSuppression des lignes relatives à %s dans votre user-startup?") (SET #Deinstall-Done "\n%s est maintenant désinstallé.") ;--------- )) ;============================================================================= ; Español strings (IF (= @language "español") ( (SET default_lang 8) (SET #bad-kick "Necesitas al menos Workbench 2.0+") (SET #bad-installer (CAT "Tienes una versión antigua del 'Installer' " "en tu Amiga!\n\nEl proceso de instalación requiere al menos el Installer 42.9.\n\n" "Revisa tu configuración!\n" )) (SET #App-InstallMsg (CAT "\n\nGuión de instalación de %s .\n\n" "Este script instala %s en tu Amiga.\n\n" "Lee el amigaguide para más información\n" " sobre la distribución de %s.\n\n" "%s © 1995-2001 Guido Mersmann\n" "Todos los derechos reservados." )) (SET #App-MainMode "Elige uno de los modos:") (SET #App-Where (CAT "¿ Dónde quieres instalar %s ?\n" "(Un cajón será creado)" )) (SET #App-Update (CAT "\n\nYa existe un cajón %s en ese" " directorio.\n\n Si seleccionas \"Seguir\"," " actualizarás la instalación %s" " con la versión más reciente.\n\n" "!Algunos ficheros específicos de %s serán sobreescritos¡" )) (SET #App-Main "¿ Qué versión de %s quieres instalar ?") (SET #App-Main-help (CAT "La versión OS2.0+ sólo debería funcionar bajo sistemas con OS2." " Las versiones OS2.1+ y OS3.0+ requieren menos Memoria. Necesitas Locale!" " Algunas funciones del OS3.0+ reducen el consumo de memoria." )) (SET #App-Language "¿ Qué lenguajes quieres instalar ?") (SET #App-Language-help (CAT "\nRl Amiga puede trabajar en numerosos lenguajes" " diferentes." "Parar reducir la cantidad de espacio necesaria para los" " ficheros de lenguaje, puedes copiar sólo" " los lenguajes específicos.\n\n" "Marca las cajas de los lenguajes que quieras" " tener disponibles en tu sistema.\n\n" @askoptions-help )) (SET #App-Help "¿Qué Amiga-guides queres instalar ?") (SET #App-Exit "\n\n%s instalado !!\n\n%s está en el cajón \"%s\" (o partición).") ;--------- DEINSTALLATION STRINGS (SET #App-DeInstallWhere "¿ En qué directorio está %s ?\n") (SET #App-Install "Instalar") (SET #App-DeInstall "Desinstalar") (SET #bad-DeInstall "No hay instalación de %s en el lugar indicado") (SET #StartupRemove-prompt "\n¿ Elimino las líneas %s de tu fichero user-startup ?") (SET #Deinstall-Done "\n%s ha sido desinstalado.") ;--------- )) ;============================================================================= ; Português strings (IF (= @language "português") ( (SET default_lang 16) (SET #bad-kick "Você necessita pelo menos do Workbench 2.0+") (SET #bad-installer (CAT "Você tem uma versão antiga do 'Installer' " "no seu Amiga!\n\nO processo de instalação requer no minimo o Installer 42.9.\n\n" "Por favor verifique a sua configuração!\n" )) (SET #App-InstallMsg (CAT "\n\nScript de instalação %s .\n\n" "Este script instala %s no seu Amiga.\n\n" "Leia o documento amigaguide para mais informações\n" " acerca da distribução de %s.\n\n" "%s © 1995-2001 Guido Mersmann\n" "Todos os direitos reservados." )) (SET #App-MainMode "Por favor escolha um dos modos:") (SET #App-Where (CAT "Onde deseja instalar %s ?\n" "(Será criado uma gaveta)" )) (SET #App-Update (CAT "\n\njá existe uma gaveta %s nesse" " directório.\n\n Se seleccionar \"Proceguir\", você" " indicará que deseja actualizar a instalação %s" " para a versão mais recente.\n\n" "Alguns ficheiros específicos em %s seram sobstituidos!" )) (SET #App-Main "Que versão de %s deseja instalar ?") (SET #App-Main-help (CAT "A versão OS2.0+ só deve ser usada em Sistemas com o OS2." " As versões OS2.1+ e OS3.0+ requerem menos Memória. Necessita do Locale!" " Algumas funções do OS3.0+ reduzem o consumo de memória." )) (SET #App-Language "Que idioma deseja instalar ?") (SET #App-Language-help (CAT "\nO Amiga pode funcionar com vários idiomas" " diferentes." "Para reduzir a quantidade de espaço necessário para os" " ficheiros de idiomas, você pode copiar só" " os idiomas que quiser.\n\n" "Simplesmente veja as gavetas dos idiomas que quer" " ter disponíveis no seu Sistema.\n\n" @askoptions-help )) (SET #App-Help "Que documentos Amiga-guides deseja instalar ?") (SET #App-Exit "\n\n%s instalado !!\n\n%s pode ser encontrado na gaveta \"%s\" (ou partição).") ;--------- DEINSTALLATION STRINGS (SET #App-DeInstallWhere "Em que directório está %s ?\n") (SET #App-Install "Instalar") (SET #App-DeInstall "Desinstalar") (SET #bad-DeInstall "Não existe nenhuma instalação de %s no lugar indicado") (SET #StartupRemove-prompt "\nRemovo as linhas %s no seu ficheiro user-startup ?") (SET #Deinstall-Done "\n%s foi agora desinstalado.") ;--------- )) ;============================================================================= ; Polish strings (IF (= @language "polski") ( (SET default_lang 32) (SET #bad-kick "Ten program wymaga co najmniej systemu Workbench 2.0+") (SET #bad-installer (CAT "Na swojej Amidze masz starâ wersjë 'Installera' !" "\nTen skrypt wymaga Installera w wersji 42.0.\n\n" "Proszë sprawdú swojâ konfiguracjë!\n" )) (SET #App-InstallMsg (CAT "\n\nSkrypt instalujâcy %s.\n\n" "Ten skrypt zainstaluje %s na Twojej Amidze.\n\n" "Wiëcej informacji o dystrybucji %s\n" " znajdziesz w dokumentacji.\n\n" "%s © 1995-2001 Guido Mersmann\n" "Wszelkie prawa zatrzeûone." )) (SET #App-MainMode "Wybierz tryb:") (SET #App-Where (CAT "Gdzie chcesz zainstalowaê %s ?\n" "(Katalog zostanie utworzony)" )) (SET #App-Update (CAT "\n\nKatalog %s istnieje juû w wybranym miejscu" "\n\n Wybierz \"Proceed\", " " jeûeli chcesz dokonaê aktualizacji %s" " z najnowszâ dostëpnâ wersjâ.\n\n" "Kilka plików %s zostanie zapisanych na nowo!" )) (SET #App-Main "Która wersja %s powinna zostaê zainstalowana?") (SET #App-Main-help (CAT "Wersja OS2.0+ powinna byê uûywana na systemach OS2." " Wersje OS2.1+ i OS3.0+ potrzebujâ mniej pamiëci. Wymagajâ jednak lokalizacji!" " Specjane funkcje OS3.0+ uûywane sâ aby zmniejszyê zuûycie pamiëci." )) (SET #App-Language "Które jëzyki powinny zostaê zainstalowane?") (SET #App-Language-help (CAT "\nAmiga moûe dziaîaê w wielu róûnych" " jëzykach." "Aby zmniejszyê iloôê uûywanego przez pliki" " z tîumaczeniami, powinieneô wybraê tylko interesujâce" " Cië pliki.\n\n" "Po prostu zaznacz odpowiednie jëzyki, które chcesz" " mieê zainstalowane na swoim dysku.\n\n" @askoptions-help )) (SET #App-Help "Które pliki Amiga-guide powinny zostaê zainstalowane?") (SET #App-Exit "\n\n%s zostaî zaistalowany!!\n\n%s znajdziesz w katalogu \"%s\".") ;--------- DEINSTALLATION STRINGS (SET #App-DeInstallWhere "Gdzie znajduje sië %s ?\n") (SET #App-Install "Instaluj") (SET #App-DeInstall "Odinstaluj") (SET #bad-DeInstall "W wybranym miejscu nie ma %s !") (SET #StartupRemove-prompt "\nUsunâê linie %s ze swojego pliku user-startup?") (SET #Deinstall-Done "\n%s zostaî odinstalowany.") ;--------- )) ;============================================================================= ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- ; P_Requirements ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- (PROCEDURE P_Requirements ; Workbench 37 or better required (IF (< (/ (getversion) 65536) 37) ( (abort #bad-kick) ) ) ; Installer 42.9 or better required (if (< @installer-version 2752521) ( (abort #bad-installer) ) ) ;if ) ;PROCDURE ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- ; P_DeInstall ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- (PROCEDURE P_DeInstall #InstallerMode (SET #Dummy (ASKCHOICE (PROMPT #App-MainMode) (HELP @askchoice-help) (CHOICES (#App-Install #ApplicationName) (#App-Deinstall #ApplicationName) ) ;(DEFAULT #Documents) ) ) ) ;PROCDURE ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- ; GetApplicationDir ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- (PROCEDURE P_GetApplicationDir (SET #Dummy #ApplicationDir) (if (= (exists (TACKON #ApplicationDir1 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir1)) (if (= (exists (TACKON #ApplicationDir2 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir2)) (if (= (exists (TACKON #ApplicationDir3 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir3)) (if (= (exists (TACKON #ApplicationDir4 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir4)) (SET #ApplicationDir (TACKON (ASKDIR (PROMPT (#App-Where #ApplicationName)) (HELP @askdir-help) (default #Dummy) ) #ApplicationName ) ) (SET @default-dest #ApplicationDir) ) ;PROCEDURE ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- ; GetDeinstallDir ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- (PROCEDURE P_GetDeInstallDir (SET #Dummy #ApplicationDir) (if (= (exists (TACKON #ApplicationDir1 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir1)) (if (= (exists (TACKON #ApplicationDir2 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir2)) (if (= (exists (TACKON #ApplicationDir3 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir3)) (if (= (exists (TACKON #ApplicationDir4 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir4)) (SET #ApplicationDir (ASKDIR (PROMPT (#App-DeInstallWhere #ApplicationName)) (HELP @askdir-help) (default #Dummy) ) ) (SET #Dummy (EXISTS (TACKON #Applicationdir #ApplicationName))) (Select #Dummy (abort (#bad-DeInstall #ApplicationName)) (SET #Applicationdir #Applicationdir) (SET #Applicationdir (TACKON #Applicationdir #ApplicationName)) ) ;Select (SET @default-dest #ApplicationDir) ) ;PROCEDURE ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- ; Ask for Catalogs ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- (PROCEDURE P_AskCatalogs #Language (SET #Dummy (ASKOPTIONS (PROMPT #App-Language) (HELP #App-Language-help) (CHOICES "English" "Deutsch" ) (DEFAULT default_lang) ) ) (IF (AND (> #Binary 0) (= #Dummy 0)) (SET #Dummy 1) ) (IF (= #Binary 0) (SET #Dummy (BITAND #Dummy (BITNOT 1))) ) (SET #Dummy #Dummy) ;Return #Dummy ) ;PROCEDURE ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- ; Copy Selected Catalogs ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- (PROCEDURE P_CopyCatalogs #Language (SET n 0) (SET #DestinationRoot (TACKON #ApplicationDir "Catalogs")) (SET #SourceRoot (TACKON #ArchiveDir "Catalogs")) (MAKEDIR #DestinationRoot) (while (< n 2) (SET #Dummy (SELECT n "english" "deutsch")) ( (IF (IN #Language n) ( (MAKEDIR (TACKON #DestinationRoot #Dummy)) (COPYFILES (SOURCE (TACKON #SourceRoot #Dummy)) (DEST (TACKON #DestinationRoot #Dummy)) (HELP @copyfiles-help) (ALL) ) ) ) ) (SET n (+ n 1)) ) ) ;PROCEDURE ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- ; Ask for Help ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- (PROCEDURE P_AskHelp #Documents (SET #Dummy (ASKOPTIONS (PROMPT #App-Help) (HELP @askoptions-help) (CHOICES "english" "deutsch" ) (DEFAULT default_lang) ) ) ) ;PROCEDURE ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- ; Copy Help ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- (PROCEDURE P_CopyHelp #Documents (SET n 0) (SET #DestinationRoot (TACKON #ApplicationDir "Help")) (SET #SourceRoot (TACKON #ArchiveDir "Help")) (MAKEDIR #DestinationRoot) (while (< n 2) (SET #Dummy (SELECT n "english" "deutsch" ) ) ( (IF (IN #Documents n) ( (MAKEDIR (TACKON #DestinationRoot #Dummy)) (COPYFILES (SOURCE (TACKON #SourceRoot #Dummy)) (DEST (TACKON #DestinationRoot #Dummy)) (HELP @copyfiles-help) (INFOS) (ALL) ) ) ) ) (SET n (+ n 1)) ) ) ;PROCEDURE ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- ; Copy_Dir (Dir) ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- (PROCEDURE P_CopyDir #Dummy (SET #DestinationRoot (TACKON #ApplicationDir #Dummy)) (SET #SourceRoot (TACKON #ArchiveDir #Dummy)) (MAKEDIR #DestinationRoot) (COPYFILES (SOURCE #SourceRoot) (DEST #DestinationRoot) (HELP @copyfiles-help) (OPTIONAL ) (ALL) (INFOS) ) ) ;PROCEDURE ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- ; Copy_File (Name) ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- (PROCEDURE P_CopyFile #Dummy (if (<> (exists (TACKON #ArchiveDir #Dummy) (noreq)) 0) ( (COPYFILES (SOURCE (TACKON #ArchiveDir #Dummy)) (DEST #ApplicationDir) (HELP @copyfiles-help) (OPTIONAL ) (ALL) (INFOS) ) ) ) ;If ) ;PROCEDURE ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- ; P_Update ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- (PROCEDURE P_Update (if (= (exists #ApplicationDir) 2) (message (#App-Update #ApplicationName #ApplicationName #ApplicationName)) ) ) ;PROCEDURE ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- ; P_AskBinary ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- (PROCEDURE P_AskBinary (set #Dummy (/ (getversion) 65536)) (if (= #Dummy 37) (set #Binary 0)) (if (= #Dummy 38) (set #Binary 1)) (if (>= #Dummy 39) (set #Binary 2)) (set #Dummy (/ (getversion "icon.library" (Resident)) 65536)) (if (>= #Dummy 44) (set #Binary 2)) (set #Binary (askchoice (prompt (#App-Main #ApplicationName)) (help (#App-Main-help #ApplicationName)) (choices "OS2.0+" "OS2.1+" "OS3.0+" ) (default #Binary) ) ) ) ;PROCEDURE ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- ; P_CopyBinary ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- (PROCEDURE P_CopyBinary #Dummy (set #BinaryName (SELECT #Binary #Dummy (CAT "Bin/" #Dummy "_OS21") (CAT "Bin/" #Dummy "_OS30") (CAT "Bin/" #Dummy "_OS35") )) (copyfiles (source (tackon #ArchiveDir #BinaryName) (infos)) (dest #ApplicationDir) (newname #Dummy) (help @copyfiles-help) (optional ) ) ) ;PROCEDURE ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- ; P_MoveWBStartUp ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- (PROCEDURE P_MoveWBStartUp #Dummy (COPYFILES (SOURCE (TACKON #ApplicationDir (CAT #Dummy ".info"))) (DEST #WBStartUp) (HELP @copyfiles-help) (OPTIONAL ) (ALL) ) (TOOLTYPE (DEST (TACKON #WBStartUp #Dummy)) (SETDEFAULTTOOL (TACKON #ApplicationDir #Dummy)) (NOPOSITION) (SAFE) ) ) ;PROCEDURE ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- ; P_KeyFile ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- (PROCEDURE P_KeyFile (SET #Dummy (tackon (tackon #ArchiveDir "Keyfile") #ApplicationKeyfile)) (if (<> (exists #Dummy (noreq)) 0) ((P_CopyDir "KeyFile")) ) ) ;PROCEDURE ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- ; P_CopyArchiveIcon ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- (PROCEDURE P_CopyArchiveIcon (COPYFILES (SOURCE (CAT (CAT (TACKON #ArchiveDir "/") #ApplicationName) ".info")) (DEST (TACKON #ApplicationDir "/")) (HELP @copyfiles-help) ) ) ;PROCEDURE ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- ; P_AskBool ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- (PROCEDURE P_AskBool #dummy (SET #dummy (ASKBOOL (prompt #dummy) (help @askbool-help) (default 1) ) ) ) ;PROCEDURE ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- ; MAIN ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- (P_Requirements) (message (#App-installmsg #ApplicationName #ApplicationName #ApplicationName #ApplicationName)) (SET #InstallerMode (P_DeInstall)) (welcome) ;----------------------------------------------- (IF (= #InstallerMode "0") ( ;----------------------------------------------- (SET #ApplicationDir (P_GetApplicationDir)) (COMPLETE 1) (P_Update) (SET #Binary (P_AskBinary)) (COMPLETE 2) (SET #Language (P_AskCatalogs #Language)) (COMPLETE 3) (SET #Documents (P_AskHelp #Documents)) (COMPLETE 4) ;***** Delete old Data and Prefs ***** (DELETE (TACKON #WBStartUp #ApplicationName) (optional FORCE)) ;***** Create empty Drawers ***** (MAKEDIR #ApplicationDir) (MAKEDIR (TACKON #ApplicationDir "Prefs")) (COMPLETE 10) (DELETE (TACKON #ApplicationDir "bin") (optional FORCE) (ALL)) (P_CopyBinary "MMKeyboard") (P_CopyFile "MMKeyboard.info") (P_CopyBinary "MMKeyboardPrefs") (P_CopyFile "MMKeyboardPrefs.info") (COMPLETE 20) (DELETE (TACKON #ApplicationDir "catalogs") (optional FORCE) (ALL)) (P_CopyCatalogs #Language) (COMPLETE 30) (DELETE (TACKON #ApplicationDir "Help") (optional FORCE) (ALL)) (P_CopyHelp #Documents) (COMPLETE 40) (P_CopyDir "BinPIC") (COMPLETE 50) (P_CopyDir "Presets") (COMPLETE 60) (P_MoveWBStartUp "MMKeyboard") (COMPLETE 70) (P_CopyDir "Help/Pictures") (P_Keyfile) (COMPLETE 80) (P_CopyArchiveIcon) (P_CopyFile "Help.info") (P_CopyFile "Presets.info") (P_CopyFile "Warning") (COMPLETE 90) ;----- (DELETE (TACKON #ApplicationDir "Prefs.info")) (DELETE (TACKON #ApplicationDir "BinPIC.info")) (run "c:avail Flush") (COMPLETE 100) (message (#App-exit #ApplicationName #ApplicationName #ApplicationDir)) (exit (QUIET)) ;----------------------------------------------- )) ;IF #InstallerMode = 0 ;----------- Deinstallation ------------------- (IF (= #InstallerMode "1") ( (COMPLETE 10) (SET #ApplicationDir (P_GetDeInstallDir)) (COMPLETE 20) (DELETE #ApplicationDir (ALL) (optional FORCE)) (COMPLETE 60) (DELETE (CAT #ApplicationDir ".info") (optional FORCE)) (COMPLETE 70) (DELETE (CAT (TACKON "ENV:" #ApplicationName) ".prefs")(optional FORCE)) (COMPLETE 80) (DELETE (CAT (TACKON "ENVARC:" #ApplicationName) ".prefs")(optional FORCE)) (COMPLETE 90) (DELETE (CAT (TACKON "ENV:" #ApplicationName) "Prefs.prefs")(optional FORCE)) (COMPLETE 93) (DELETE (CAT (TACKON "ENVARC:" #ApplicationName) "Prefs.prefs")(optional FORCE)) (COMPLETE 99) (DELETE (CAT (TACKON #WBStartUp #ApplicationName) ".info")(optional FORCE)) (COMPLETE 100) (Message (#Deinstall-Done #ApplicationName)) (exit (QUIET)) ;----------------------------------------------- )) ;IF #InstallerMode = 1 ;-----------------------------------------------