;****************************************************************************** ; ExeDT - Installscript ; Written by Swen K. Stullich/UFT 14.06.96, based of binary.dt and DTpref ; install-scripts ; Localized by JosÚ Roberto Gonzßlez Rocha 04.06.96 ;****************************************************************************** ; Initialize a few things (set #datatype "exe.datatype") (set #datatype-desc "EXE") (set language (getenv "language")) ; ;****************************************************************************** ;****************************************************************************** ; Locale Section ;****************************************************************************** ; ; To translate this script just uncomment the code on your language section, ; add the string and uncomment the parenthesis of your language at the end ; of the locale section. ; If your language isnt listed below just copy an empty section just before ; the english section, change the language name with yours, add the strings ; and add a close parenthesis at the end of the locale section. ; ;****************************************************************************** ; Default language (english) strings ; ;****************************************************************************** (set #wellcome (cat @app-name "-Installer")) (set #about (cat "Welcome to the " @app-name "-Install-Script\n\n" @app-name " is ®1994-96\nSwen K. Stullich\nUnited Forces Tools")) (set #install "Install") (set #installing "Installing ") (set #copying "Copying ") (set #copydescr "Copying the Descriptors") (set #copydocs "Copying AmigaGuide file") (set #remove "Remove") (set #removing "Removing ") (set #removeok (cat "The \"" @app-name "\" components that you specified have been successfully removed")) (set #getdtdir "Where do the Datatypes belong") (set #whichlang "Which languages should be installed?") (set default_lang 1) ; ;****************************************************************************** ; German strings ; Translated by Swen K. Stullich ;****************************************************************************** (if (= language "deutsch") ( (set #wellcome (cat @app-name "-Installer ")) (set #about (cat "Wilkommen zu dem " @app-name "-Install-Script\n\n" @app-name " ist ®1994-96\nSwen K. Stullich\nUnited Forces Tools")) (set #install "Installieren") (set #installing "Installiere ") (set #copying "Kopiere ") (set #copydescr "Kopiere den Descriptor") (set #copydocs "Kopiere die AmigaGuide-Dateien") (set #remove "Entfernen") (set #removing "Entferne ") (set #removeok (cat "Die \"" @app-name "\" Komponenten, die Du angegeben hast, wurden erfolgreich entfernt")) (set #getdtdir "Wo befinden sich die Datatypes") (set #whichlang "Welche Sprachen sollen installiert werden?") (set default_lang 2) ) ) ; ;****************************************************************************** ; Spanish strings ; Translated by JosÚ Roberto Gonzßlez Rocha ;****************************************************************************** (if (= language "espa±ol") ( (set #wellcome (cat "Instalador de" @app-name )) (set #about (cat "Bienvenido al proceso de instalación de " @app-name "\n\n" @app-name " es ©1994-96\nSwen K. Stullich\nUnited Forces Tools\n\n\ntraducido al castellano por José Roberto González Rocha ")) (set #install "Instalar") (set #installing "Instalando ") (set #copying "Copiando ") (set #copydescr "Copiando los Descriptores") (set #copydocs "Copiando fichero AmigaGuide") (set #remove "Desinstalar") (set #removing "Desinstalando ") (set #removeok (cat "Los componentes de \"" @app-name "\" que ha especificado han sido desinstalados satisfactoriamente")) (set #getdtdir "¿Dónde se encuentran los Datatypes?") (set #whichlang "¿Qué lenguajes desea instalar?") (set default_lang 4) ) ) ; ;****************************************************************************** ; Translated by ; Jerome Chesnot ;****************************************************************************** (if (= language "français") ( (set #wellcome (cat @app-name "-Installer")) (set #about (cat "Bienvenu dans le script d'installation d'" @app-name "\n\n" @app-name " par *1994-96\nSwen K. Stullich\nUnited Forces Tools\n\n\nTraduction française par Jérôme Chesnot")) (set #install "Installer") (set #installing "Installation de ") (set #copying "Copie de ") (set #copydescr "Copie des Descriptifs") (set #copydocs "Copie de la documentation AmigaGuide") (set #remove "Désinstaller") (set #removing "Désinstallation de ") (set #removeok (cat "Les composants \"" @app-name "\" que vous avez spécifiés ont été désinstallés avec succès")) (set #getdtdir "Où se situent les Datatypes ?") (set #whichlang "Quels langages doivent-être installés ?") (set default_lang 8) ) ) ; ;****************************************************************************** ; Translated by Manuel Lemos ;****************************************************************************** (if (= language "português") ( (set #wellcome (cat @app-name "- Ferramenta de instalação")) (set #about (cat @app-name "Procedimento de instalação\n\n" @app-name " is *1994-96\nSwen K. Stullich\nUnited Forces Tools\n\nTraduzido por Manuel Lemos ")) (set #install "Instalar") (set #installing "A instalar ") (set #copying "A copiar ") (set #copydescr "A copiar os descritores") (set #copydocs "A copiar o ficheiro de ajuda (AmigaGuide)") (set #remove "Apagar") (set #removing "A apagar ") (set #removeok (cat "Os componentes de \"" @app-name "\" que especificou foram definitivamente apagados.")) (set #getdtdir "Aonde é que se encontram os \"Datatypes\" no disco?") (set #whichlang "Que idiomas pretende que sejam instalados?") (set default_lang 16) ) ) ; ;****************************************************************************** ; Translated by ;****************************************************************************** ;(if (= language "norsk") ; ( ; ) ; ;****************************************************************************** ; Translated by ;****************************************************************************** ;(if (= language "suomi") ; ( ; ) ; ;****************************************************************************** ; Translated by ;****************************************************************************** ;(if (= language "svenska") ; ( ; ;) ;****************************************************************************** ; Translated by ;****************************************************************************** ;(if (= language "Ýslenska") ; ( ; ) ; ;****************************************************************************** ; Translated by ;****************************************************************************** ;(if (= language "greek") ; ( ; ) ; ; ; End of Locale Section ;****************************************************************************** ; ;****************************************************************************** ;****************************************************************************** ; Welcome (welcome #wellcome) (message #about) ;****************************************************************************** ; Ask for what we are doing (install - remove) (set mode (askchoice (prompt @app-name) (help @askchoice-help) (choices #install #remove) ) ) (if mode (set pmode #remove) (set pmode #install) ) ;****************************************************************************** ; get datatypes dir (set datatypesdir (askdir (prompt #getdtdir) (help @askdir-help) (default "SYS:Classes/Datatypes") ) ) ; now do install or remove (if mode ; *** We should remove the old one *** ( ; Show what we are doing (working #removing @app-name) ; Remove the non-standard pieces (delete (tackon datatypesdir #datatype)) (delete (cat "devs:datatypes/" #datatype-desc) (infos)) ; Don't want to use the confusing "Installation Complete" message ; when what we really did was remove things... (message #removeok) (exit (quiet)) ) ; Install ( (working #installing @app-name) (set #dtname (tackon "classes/datatypes" #datatype)) ; Install the classes (copylib (prompt (cat #copying @app-name)) (help @copylib-help) (source (tackon "classes/datatypes" #datatype)) (dest datatypesdir) (confirm) ) ; Install the descriptors (copyfiles (prompt #copydescr) (help @copyfiles-help) (source "devs/datatypes") (dest "DEVS:DataTypes") (pattern "#?") (infos) (confirm) ) ; Install the catalogs (set lang (askoptions (prompt #whichlang) (help @askoptions-help) (choices "English" "Deutsch" "Français") ; "Español" "Português" "Nederlands" "Italiano" "Polski" "Svenska" "Norsk") (default default_lang) ) ) (set n 0) (while (set language (select n "english" "deutsch" "français" "")) ; "español" "português" "nederlands" "italiano" "polski" "svenska" "norsk" "")) ( (if (IN lang n) ( (if (<> 0 n) ( (makedir (cat "LOCALE:Catalogs/" language)) (copyfiles (source (cat "Catalogs/" language)) (dest (cat "LOCALE:Catalogs/" language)) (pattern "#?.catalog") ) ) ) ) ) ) (set n (+ n 1)) ) ; install AmigaGuide file (copyfiles (prompt #copydocs) (help @copyfiles-help) (source "Docs") (dest "Help:") (pattern "#?") (confirm) ) ; Tell the system about the new descriptors (run "C:AddDataTypes Refresh") ) ) (set @default-dest datatypesdir) (if (> (exists ("c:multiview")) 0) (set #mpath "c:") ) (if (> (exists ("sys:Utilities/multiview")) 0) (set #mpath "sys:Utilities") ) (run (cat "run " #mpath "/multiview Release.txt") )