Geek Gadgets 2/Geek_Gadgets_2_2352.bin/p.os/install

Text File | 1997-05-06 | 39KB | 1,262 lines

; Installer program for pOS.
; Written by Fred Fish, Cronus
; This script is public domain.     Use it for any purpose you wish.
;
; English version by Fred Fish
; German (Deutsch) translation by Jörg Höhle.
; French (Français) translation by Laurent Péron and Philippe Brand.
; Danish (Dansk) translation by Rask Ingemann Lambertsen
; Dutch (Nederlands) translation by Alain Penders.
; Spanish translation by José Roberto González Rocha
; Polish (Polski) translation by Robert 'reptile' Wal
; Italian (Italiano) translation by Roberto Borri

; Select the user's desired language to use during installation.
; To install support for a new language, just add the appropriate
; language selection and install the strings for that language
; in the places where langval is used to select between languages.

(procedure SelectLanguage

    (if (= 1 debugflag) (debug "Entering SelectLanguage"))
    (if (patmatch "English" @language) (set lang 0))
    (if (patmatch "Deutsch" @language) (set lang 1))
    (if (patmatch "Français" @language) (set lang 2))
    (if (patmatch "Dansk" @language) (set lang 3))
    (if (patmatch "Nederlands" @language) (set lang 4))
    (if (patmatch "Spanish" @language) (set lang 5))
    (if (patmatch "Polski" @language) (set lang 6))
    (if (patmatch "Italiano" @language) (set lang 7))
    ; Additional language selection translations here

    (set olduser @user-level)
    (user 2)
    (set langval
        (askchoice
            (prompt    (cat    "Select your native language.\n"
                    "Bitte wählen Sie Ihre Sprache aus.\n"
                    "Veuillez sélectionner votre langue. \n"
                    "Vælg dit foretrukne sprog.\n"
                    "Kies uw taal.\n"
                    "Seleccione su lengua nativa.\n"
                    "Wybierz jëzyk ojczysty.\n"
                    "Scegli la tua lingua.\n"
                    ; Additional langval prompt translations here
                )
            )
            (help    (cat    "You can choose a language for prompts and help."
                    "\n\n"
                    "Sie können eine Sprache für die Anweisungen und "
                    "die Hilfe auswählen."
                    "\n\n"
                    "Votre choix conditionnera la langue d'affichage des "
                    "différents messages"
                    "\n\n"
                    "Du kan vælge hvilket sprog der skal bruges til "
                    "instruktioner og hjælp under installationen."
                    "\n\n"
                    "U kunt een taal voor de aanwijzingen en help teksten "
                    "kiezen."
                    "\n\n"
                    "Vd. puede elegir el lenguaje usado en las peticiones y "
                    "las ayudas."
                    "\n\n"
                    "Moûesz tu wybraê jëzyk komunikatów i "
                    "podpowiedzi"
                    "\n\n"
                    "Scegli la lingua da usare per i messaggi di "
                    "richiesta e d'aiuto"
                    "\n\n"
                    ; Additional langval help translations here
                )
            )
            (choices
                "English"
                "Deutsch"
                "Français"
                "Dansk"
                "Nederlands"
                "Español"
                "Polski"
                "Italiano"
                ; Additional language string translations here
            )
            (default lang)
        )

    )
    (user olduser)
    (if (= 1 debugflag) (debug "Language choice: " langval))

    (set @language
        (select langval
            ("English")
            ("Deutsch")
            ("Français")
            ("Dansk")
            ("Nederlands")
            ("Español")
            ("Polski")
            ("Italiano")
            ; Additional @language translations here
        )
    )

    (set yes
        (select langval
            ("Yes")
            ("Ja")
            ("Oui")
            ("Ja")
            ("Ja")
            ("Sí")
            ("Tak")
            ("Sì")
            ; Additional yes translations here
        )
    )

    (set no
        (select langval
            ("No")
            ("Nein")
            ("Non")
            ("Nej")
            ("Nee")
            ("No")
            ("Nie")
            ("No")
            ; Additional no translations here
        )
    )
    (set msg_run_command
        (select langval
            ("The following command will be run:")
            ("Folgender Befehl wird ausgeführt:")
            ("La commande suivante sera exécutée :")
            ("Følgende kommando vil blive afviklet:")
            ("Het volgende commando wordt uitgevoerd:")
            ("El siguiente comando será ejecutado:")
            ("Zostanie wykonany nastëpujâcy rozkaz:")
            ("Il seguente comando sarà eseguito:")
            ; Additional run command translations here
        )
    )
    (set msg_help_run_command
        (select langval
            (cat    "The installation program will run the specified command "
                "if you approve of it.  If you do not, then just click "
                "the 'Skip This Step' button."
            )
            (cat    "Das Installationsprogramm wird die angegebenen Befehle nur "
                "ausführen falls Sie dies wünschen.  Ansonsten klicken "
                "Sie 'Überspringen'.")
            (cat    "Le programme d'installation va exécuter la commande "
                "spécifiée si vous l'approuvez. Sinon, cliquez sur le bouton "
                "'sauter cette partie'.")
            (cat    "Installationsprogrammet vil afvikle den angivne kommando "
                "hvis du tillader det. Hvis du ikke vil afvikle kommandoen "
                "så tryk på knappen hvor der står 'Hoppe over denne del'."
            )
            (cat    "Het installatie programma voert het commando uit als "
                "je het goedkeurd.  Zo niet, klik op 'Sla dit deel over'. "
            )
            (cat    "El programa de instalación ejecutará el comando "
                "especificado si vd. lo aprueba. Si no lo hace, siplemente pulse "
                "el botón 'Saltar Este Paso'."
            )
            (cat    "Jeôli zgadzasz sië, skrypt instalacyjny wykona "
                "podany rozkaz. Jeôli nie, wskaû przycisk "
                "'Pomiï të czëôê'"
            )
            (cat    "Il programma di installazione eseguirà il comando "
                "specificato se lo approvate. Se no, cliccate semplicemente "
                "il bottone 'Salta questa sezione'."
            )
            ; Additional msg_help_run_command translations here
        )
    )
    (if (= 1 debugflag) (debug "Leaving SelectLanguage"))
)

; Give the user an informational message and call attention to the
; help gadgets and/or Help key.

(procedure WelcomeMessage

    (if (= 1 debugflag) (debug "Entering WelcomeMessage"))
    (set msg_hello
        (select langval
            (cat    "Welcome to the p.OS installation program. "
                "You will be prompted via requesters for information "
                "about what packages you wish to install and where to "
                "install them."
                "\n\n"
                "Most requesters have help available via the Help button "
                "or Help key. "
                "If you are unsure about what a particular selection will "
                "do, please read the associated help information."
            )
            (cat    "Willkommen im p.OS Installationsprogramm. "
                "Sie werden per Requester gefragt werden, welche "
                "Programmpakete Sie zu installieren wünschen und "
                "wo diese Programme ggfs. installiert werden sollen."
                "\n\n"
                "Die meisten Requester bieten (über den 'Hilfe' Button "
                "oder die Taste 'Help') Hilfe an. "
                "Falls Sie nicht sicher sind, welche Auswirkungen eine "
                "bestimmte Auswahl hat, lesen Sie bitte den Hilfetext."
            )
            (cat    "Bienvenue dans le programme d'installation de p.OS. "
                "Vous aurez, pour chaque produit, le choix de l'installer ou "
                "non, et vous pourrez indiquer le répertoire où installer "
                "tous ces produits. "
                "Ceci se fera à l'aide de requêtes de l'interface graphique."
                "\n\n"
                "La plupart des requêtes affichées disposent d'un bouton Aide "
                "qui vous permet d'obtenir l'aide en ligne. La touche Help a "
                "le même effet. "
                "Si vous doutez de l'effet d'une action, n'hésitez pas à "
                "utiliser l'aide en ligne. "
            )
            (cat    "Velkommen til p.OS installationsprogrammet. "
                "Dialogbokse vil undervejs spørge dig hvilke programpakker "
                "du ønsker at installere og hvor du ønsker dem installeret."
                "\n\n"
                "I de fleste dialogbokse er det muligt at hente hjælp ved at "
                "trykke på knappen 'Hjælp' eller bruge tasten 'Help'. "
                "Hvis du bliver i tvivl om hvad de forskellige valgmuligheder "
                "betyder, så bør du læse den tilhørende hjælpetekst."
            )
            (cat    "Welkom in het p.OS installatie programma. "
                "Via vragen zult U kunnen selecteren welke pakketten "
                "U wilt installeren en waar ze geinstalleerd zullen "
                "worden."
                "\n\n"
                "Voor de meeste selecties is hulp beschikbaar via de Help "
                "knop of de Help toets. "
                "Als je onzeker bent van wat een bepaalde selectie doet, "
                "lees dan de help tekst die er bij hoort."
            )
            (cat    "Bienvenido al programa de instalación de p.OS. "
                "Le será requerida información via peticiones acerca de "
                "qué paquetes desea instalar y donde los instalará."
                "\n\n"
                "La mayoría de las peticiones tendrán ayuda disponible "
                "pulsando la tecla 'Help'. "
                "Si no está seguro de que hará una seleccion en particular "
                "lea la información de la ayuda, por favor."
            )
            (cat    "Witaj w programie instalacyjnym p.OS. "
                "Bëdziesz pytany poprzez requestery o informacje "
                "jakie pakiety zamierzasz zainstalowaê i gdzie je "
                "zainstalowaê."
                "\n\n"
                "Wiëkszoôê requesterów zawiera podpowiedú, którâ "
                "moûesz uzyskaê "
                "wskazujâc przycisk 'Pomóû...', lub wciskajâc klawisz 'Help' "
                "Jeôli nie jesteô pewien, co stanie sië po dokonaniu "
                "przez ciebie wyboru, przeczytaj podpowiedú."
            )
            (cat    "\n\n"
                "Benvenuto al programma di installazione del p.OS. "
                "\n\n\n"
                "Ti saranno richieste informazioni via requester su "
                "quali pacchetti desideri installare e dove installarli."
                "\n\n"
                "La maggior parte dei requester forniscono un aiuto "
                "tramite il bottone 'Aiuto' o il tasto 'Help'. "
                "Se non sei sicuro delle selezioni da fare, "
                "leggi per favore le informazioni di aiuto associate."
            )
            ; Additional msg_hello translations here
        )
    )
    (message msg_hello)
    (if (= 1 debugflag) (debug "Leaving WelcomeMessage"))
)

(procedure UnpackArchive

    (if (= 1 debugflag) (debug "Entering UnpackArchive"))
    (if (= 1 debugflag) (debug "Unpack archive:" archive))
    (if (= 1 debugflag) (debug "Unpack description" description))

    (set commandline "URK")
    (if (patmatch "#?.lha" archive)
        (set commandline ("%s:c/lha -mraxeq x %s" volname archive))
    )
    (if (patmatch "#?.tgz" archive)
        (set commandline ("%s:c/tar -xz -f %s" volname archive))
    )
    (if (= 1 debugflag) (debug "want to run " commandline))

    (set usermsg
        (cat    description
            "\n\n"
            msg_run_command
            "\n\n"
            commandline
        )
    )

    (set ConfirmExtracts 0)
    (if (= 1 ConfirmExtracts)
        (
            (set result
                (run commandline
                    (help msg_help_run_command)
                    (prompt usermsg)
                    (confirm)
                )
            )
        )
        (
            (set working_msg
                (cat    description
                    "\n\n"
                    ("From %s" archive)
                    "\n\n"
                    ("To %s" @execute-dir)
                )
            )
            (working working_msg)
            (set result (run commandline))
        )
    )

    ; This is so we get some minimum time to view the
    ; command just run.
    (run "wait 3" (safe))

    ; Check to see if the command returned a nonzero status, indicating
    ; a problem.  If so, warn the user.
    (if (= 1 debugflag) (debug "command returned result:" result))
    (if (AND (> result 0) (= 0 @pretend))
        (
            (set msg_result
                (cat    commandline
                    "\n\n"
                    "Command failed, status result is "
                    result
                    "."
                )
            )
            (set olduser @user-level)
            (user 2)
            (message msg_result)
            (user olduser)
        )
    )
    (if (= 1 debugflag) (debug "Leaving UnpackArchive"))
)

(procedure pOS_Runtime

    (if (= 1 debugflag) (debug "Entering pOS_Runtime"))
    (set msg_packages
        (select langval
            (cat    "These are the base p.OS packages from proDAD. "
            )
            (cat    "Dies sind die Basisprogrammpakete von proDADs p.OS."
            )
            (cat    "Voici les produits de base p.OS de proDAD. "
            )
            (cat    "Dette er de grundlæggende p.OS pakker fra proDAD. "
            )
            (cat    "Dit zijn de bases p.OS pakketten van proDAD."
            )
            (cat    "Estos son los paquetes base de p.OS de ProDAD. "
            )
            (cat    "Oto podstawowe pakiety p.OS z proDAD-u. "
            )
            (cat    "Questi sono i pacchetti base del p.OS dalla proDAD. "
            )
            ; Additional msg_packages translations here
        )
    )

    (set msg_help_packages
        (select langval
            (cat    "These are the base p.OS packages from proDAD, "
                "not including any packages needed to develop "
                "p.OS programs."
            )
            (cat    "Dies sind die Basisprogrammpakete von proDADs p.OS; "
                "Software zum Entwickeln von p.OS-Programmen ist "
                "nicht enthalten."
            )
            (cat    "Voici les produits de base p.OS de proDAD, "
                "qui n'incluent aucun des produits nécessaires "
                "au développement de programmes p.OS."
            )
            (cat    "Dette er de grundlæggende p.OS pakker fra proDAD, "
                    "der ikke inkluderer de nødvendige pakker til "
                    "udvikling af p.OS programmer."
            )
            (cat    "Dit zijn de basis p.OS pakketten van proDAD,"
                "hier zijn geen ontwikkelings pakketten voor p.OS "
                "bij."
            )
            (cat    "Estos son los paquetes base para p.OS de ProDAD, "
                "no incluye ningún paquete necesario para desarrollar"
                "programas para p.OS."
            )
            (cat    "To sâ podstawowe pakiety p.OS z proDAD-u, z "
                                "wyjâtkiem "
                                "pakietów do tworzenia oprogramowania pod p.OS "
            )
            (cat    "Questi sono i pacchetti base del p.OS dalla proDAD, "
                "che non includono alcun pacchetto necessario per "
                "sviluppare programmi p.OS. "
            )
            ; Additional msg_help_packages translations here
        )
    )

    (set default_mask 3)
    (set packages
        (askoptions
            (prompt msg_packages)
            (help msg_help_packages)
            (choices
                "pOS-Base - base p.OS operating system (3.5 Mb)"
                "pOS-Extras - games and other misc (1.2 Mb)"
            )
            (default default_mask)
        )
    )
    (if (= 1 debugflag) (debug "Packages bitmask: " packages))

    (set i 0)
    (while
        (set archive
            (select i
                ("%s:p.OS/proDAD/pOS-Base.lha" volname)
                ("%s:p.OS/proDAD/pOS-Extras.lha" volname)
                ""
            )
        )
        (
            (set description
                (select i
                    "Base p.OS operating system (3.5 Mb)"
                    "Games and other misc (1.2 Mb)"
                )
            )
            (if (IN packages i)
                (
                    (UnpackArchive)
                )
            )
            (set i (+ i 1))
        )
    )
    (protect ("%s:pOS/s/pdt_SDev" @default-dest) "+s")
    (if (= 1 debugflag) (debug "Leaving pOS_Runtime"))
)

(procedure pOS_Developer

    (if (= 1 debugflag) (debug "Entering pOS_Developer"))
    (set msg_packages
        (select langval
            (cat    "These are the p.OS developer packages from proDAD. "
            )
            (cat    "Dies sind die p.OS-Programmierer-Tools von proDAD. "
            )
            (cat    "Voici les produits proDAD pour développeurs. "
            )
            (cat    "Dette er p.OS udviklerpakkerne fra proDAD. "
            )
            (cat    "Dit zijn de p.OS ontwikkelings pakketten van proDAD."
            )
            (cat    "Estos son los paquetes para desarroladores para p.OS "
                "de ProDAD. "
            )
            (cat    "Oto pakiety programisty p.OS z proDAD-u."
            )
            (cat    "Questi sono i pacchetti per gli sviluppatori p.OS dalla proDAD. "
            )
            ; Additional msg_packages translations here
        )
    )

    (set msg_help_packages
        (select langval
            (cat    "These are the p.OS developer packages from proDAD. "
                "If you are doing p.OS development work it is suggested "
                "that you simply install all of them unless you know for "
                "sure that you won't be needing a particular package."
            )
            (cat    "Dies sind die p.OS-Programmierer-Tools von proDAD. "
                "Wenn Sie Software für p.OS zu entwickeln beabsichtigen, "
                "empfehlen wir Ihnen, alle Bestandteile zu installieren, "
                "um sicherzustellen, daß Ihre Entwicklerumgebung vollständig ist."
            )
            (cat    "Voici les produits proDAD pour le développeur p.OS. "
                "Si vous faites du développement p.OS, il vous est "
                "conseillé de simplement les installer tous, à moins "
                "que vous soyez sûr que ceux non installés ne vous "
                "feront pas défaut. "
            )
            (cat    "Dette er p.OS udviklerpakkerne fra proDAD. "
                    "Hvis du udvikler til p.OS anbefales det at du "
                    "installerer dem alle medmindre du ved at der er "
                    "bestemte pakker du ikke får brug for."
            )
            (cat    "Dit zijn de p.OS ontwikkelings pakketten van proDAD. "
                "Als U aan p.OS development doet raden we U aan alle "
                "pakketten te installeren, tenzij U zeker weet dat U een "
                "bepaald pakket niet nodig heeft."
            )
            (cat    "Estos son los paquetes para desarroladores para p.OS "
                "de ProDAD. Si está haciendo algún trabajo de desarrollo "
                "se le sugiere que simplemente los instale todos a menos "
                "que esté seguro de que no va a necesitar algún paquete "
                "en particular mas tarde."
            )
            (cat    "Oto pakiety developerskie p.OS z proDAD-u. "
                                "Jeôli zamierzasz pisaê oprogramowanie pod "
                                "p.OS, wskazane jest, abyô zainstalowaî "
                                "wszystkie, chyba ûe jesteô pewny, ûe nie "
                                "bëdziesz jakiegoô potrzebowaî."
            )
            (cat    "Questi sono i pacchetti per gli sviluppatori p.OS dalla proDAD. "
                "Se stai sviluppando in ambiente p.OS è consigliabile "
                "installarli tutti a meno che tu non sia certo di non "
                "aver bisogno di un particolare pacchetto."
            )
            ; Additional msg_help_packages translations here
        )
    )

    (set default_mask 255)
    (set packages
        (askoptions
            (prompt msg_packages)
            (help msg_help_packages)
            (choices
                "pOS-FD - pOS FD files (52 Kb)"
                "pOS-Guide - Hypertext files for autodocs (3.5 Mb)"
                "pOS-Inc - Include files (858 Kb)"
                "pOS-Lib - Linker libraries (282 Kb)"
                "pOS-Src - Source for stubs (220 Kb)"
                "pOS-xA - pOS <==> Amiga includes (588 Kb)"
                "pOS-xA-RKRM - pOS <==> Amiga docs (338 Kb)"
                "pOS-RKRM - pOS docs (2 Mb)"
            )
            (default default_mask)
        )
    )
    (if (= 1 debugflag) (debug "Packages bitmask: " packages))

    (set i 0)
    (while
        (set archive
            (select i
                ("%s:p.OS/proDAD/pOS-FD.lha" volname)
                ("%s:p.OS/proDAD/pOS-Guide.lha" volname)
                ("%s:p.OS/proDAD/pOS-Inc.lha" volname)
                ("%s:p.OS/proDAD/pOS-Lib.lha" volname)
                ("%s:p.OS/proDAD/pOS-Src.lha" volname)
                ("%s:p.OS/proDAD/pOS-xA.lha" volname)
                ("%s:p.OS/proDAD/pOS-xA-RKRM.lha" volname)
                ("%s:p.OS/proDAD/pOS-RKRM.lha" volname)
                ""
            )
        )
        (
            (set description
                (select i
                    "pOS FD files (52 Kb)"
                    "Hypertext files for autodocs (3.5 Mb)"
                    "Include files (858 Kb)"
                    "Linker libraries (282 Kb)"
                    "Source for stubs (220 Kb)"
                    "pOS <==> Amiga includes (588 Kb)"
                    "pOS <==> Amiga docs (338 Kb)"
                    "pOS docs (2 Mb)"
                )
            )
            (if (IN packages i)
                (
                    (UnpackArchive)
                )
            )
            (set i (+ i 1))
        )
    )
    (if (= 1 debugflag) (debug "Leaving pOS_Developer"))
)

(procedure GG_Developer

    (if (= 1 debugflag) (debug "Entering GG_Developer"))
    (set msg_packages
        (select langval
            (cat    "These are Geek Gadgets developer packages from Cronus. "
            )
            (cat    "Dies sind die Entwickler-Tools von Cronus. "
            )
            (cat    "Voici les produits Cronus pour le développeur Geek Gadgets. "
            )
            (cat    "Dette er Geek Gadgets udviklerpakker fra Cronus. "
            )
            (cat    "Dit zijn de Geek Gadgets developer pakketten van Cronus. "
            )
            (cat    "Estos son los paquetes para desarroladores de Geek Gadget "
                "de Cronus."
            )
            (cat    "Oto pakiety pakiety programisty Geek Gadgets "
                                "z Cronus."
            )
            (cat    "Questi sono pacchetti di sviluppo Geek Gadgets dalla Cronus. "
            )
            ; Additional msg_packages translations here
        )
    )

    (set msg_help_packages
        (select langval
            (cat    "These packages from Cronus are needed to use the "
                "Geek Gadgets tools to develop AmigaOS/p.OS "
                "programs under p.OS."
            )
            (cat    "Dies sind die Entwickler-Tools von Cronus, die Sie "
                "benötigen, um Software für AmigaOS/p.OS unter p.OS "
                "zu entwickeln."
            )
            (cat    "Ces produits Cronus sont nécessaires à l'utilisation "
                "des outils Geek Gadgets en vue du développement de "
                "logiciels AmigaOS / p.OS sous système p.OS. "
            )
            (cat    "Disse pakker fra Cronus er nødvendige for at bruge "
                    "Geek Gadgets værktøjerne til at udvikle AmigaOS/p.OS "
                    "programmer under p.OS."
            )
            (cat    "Deze pakketten van Cronus zijn nodig om de Geek "
                "Gadgets tools te kunnen gebruiken om onder p.OS "
                "programma's te maken voor AmigaOS/p.OS."
            )
            (cat    "Estos paquetes de Cronus son necesarios para usar "
                "las herramientas para desarrolar programas AmigaOS/p.OS "
                "bajo p.OS."
            )
            (cat    "Te pakiety z Cronus potrzebne sâ, ûeby uûywaê "
                                "narzëdzi z Geek Gadgets do opracowywania "
                                "programów pod AmigaOS/p.OS na maszynach "
                                "wyposaûonych w p.OS."
            )
            (cat    "Questi pacchetti della Cronus sono necessari per "
                "usare i tool Geek Gadgets sviluppando programmi "
                "AmigaOS/p.OS sotto p.OS."
            )
            ; Additional msg_help_packages translations here
        )
    )

    (set default_mask 255)
    (set packages
        (askoptions
            (prompt msg_packages)
            (help msg_help_packages)
            (choices
                "pInline - pOS inline files (227 Kb)"
                "gdb - GNU debugger for p.OS (855 Kb)"
            )
            (default default_mask)
        )
    )
    (if (= 1 debugflag) (debug "Packages bitmask: " packages))

    (set i 0)
    (while
        (set archive
            (select i
                ("%s:p.OS/Cronus/pOS-pInline.lha" volname)
                ("%s:p.OS/Cronus/gdb-pos.lha" volname)
                ""
            )
        )
        (
            (set description
                (select i
                    "pInline - pOS inline files (227 Kb)"
                    "gdb - GNU debugger for p.OS (855 Kb)"
                )
            )
            (if (IN packages i)
                (
                    (UnpackArchive)
                )
            )
            (set i (+ i 1))
        )
    )
    (if (= 1 debugflag) (debug "Leaving GG_Developer"))
)

(procedure GG_ixemul

    (if (= 1 debugflag) (debug "Entering GG_ixemul"))
    (set msg_packages
        (select langval
            (cat    "These are various ixemul flavors. "
            )
            (cat    "Dies sind die verschiedenen ixemul-Varianten. "
            )
            (cat    "Voici les différentes variantes de ixemul. "
            )
            (cat    "Dette er forskellige ixemul varianter. "
            )
            (cat    "Dit zijn verschillende ixemul versies. "
            )
            (cat    "Estas son varios tipos de ixemul."
            )
            (cat    "Oto róûne wersje biblioteki ixemul."
            )
            (cat    "Questi sono software ixemul di contorno. "
            )
            ; Additional msg_packages translations here
        )
    )

    (set msg_help_packages
        (select langval
            (cat    "In order to run any of the Geek Gadgets programs "
                "under p.OS, you must have a special library called "
                "ixemul.library installed in the p.OS libs directory. "
                "Please select a version of the library that is appropriate "
                "for your CPU and FPU combination."
            )
            (cat    "Damit Sie die auf dieser CD enthaltenen Geek Gadgets "
                "Programme unter p.OS starten können, benötigen Sie eine "
                "spezielle Bibliothek, die ixemul.library, die im libs- "
                "Verzeichnis von p.OS vorhanden sein muß. Bitte wählen "
                "Sie die für Ihre Systemkonfiguration geeignete Version "
                "der ixemul.library aus."
            )
            (cat    "Afin de faire fonctionner les logiciels Geek Gadgets "
                "sous p.OS, il vous faut une bibliothèque spéciale "
                "nommée ixemul.library. Elle doit être installée dans "
                "le répertoire libs de p.OS. "
                "Veuillez sélectionner la version appropriée à votre "
                "configuration CPU et FPU. "
            )
            (cat    "For at kunne køre Geek Gadgets programmerne "
                    "under p.OS skal du have et specielt bibliotek kaldet "
                    "ixemul.library installeret i p.OS skuffen libs. "
                    "Vælg en version der passer til din CPU og FPU."
            )
            (cat    "Om de Geek Gadgets programmas onder p.OS te kunnen "
                "gebruiken moet U een speciale bibliotheek genaamd "
                "ixemul.library geinstalleerd hebben in de p.OS libs "
                "directory. "
                "Selecteer een versie van de bibliotheek die toepasselijk "
                "is voor uw CPU en FPU combinatie."
            )
            (cat    "Para poder correr cualquiera de los programas de "
                "Geek Gadgets bajo p.OS, debe tener una librería "
                "especial llamada ixemul.library en el directorio "
                "libs de p.OS. "
                "Por favor, seleccione la versión de la librería que "
                "sea apropiada a su combinación de CPU y FTP."
            )
            (cat    "Ûeby uruchomiê którykolwiek z programów z "
                "Geek Gadgets pod p.OS musisz mieê "
                "specjalnâ bibliotekë ixemul.library "
                "zainstalowanâ w katalogu libs systemu p.OS. "
                "Wybierz proszë wersjë biblioteki, stosownie "
                "do posiadanego CPU i FPU. "
            )
            (cat    "Per far girare un qualsiasi programma Geek Gadgets "
                "sotto p.OS, devi avere una speciale libreria chiamata "
                "ixemul.library installata nella directory libs del p.OS. "
                "Per favore, scegli una versione della libreria che sia "
                "appropriata alla tua combinazione CPU e FPU."
            )
            ; Additional msg_help_packages translations here
        )
    )

    (set default_choice 0)
    (set package
        (askchoice
            (prompt msg_packages)
            (help msg_help_packages)
            (choices
                "68000 using software floating point (190 Kb)"
                "68020+ using software floating point (190 Kb)"
                "68020+ using 68881/68882 FPU (190 Kb)"
                "68040+ using software floating point (190 Kb)"
                "68040+ using 68881/68882 FPU (190 Kb)"
            )
            (default default_choice)
        )
    )
    (if (= 1 debugflag) (debug "Package: " package))

    (set archive
        (select package
            ("%s:p.OS/Cronus/ixemul-000s-pos.lha" volname)
            ("%s:p.OS/Cronus/ixemul-020s-pos.lha" volname)
            ("%s:p.OS/Cronus/ixemul-020f-pos.lha" volname)
            ("%s:p.OS/Cronus/ixemul-040s-pos.lha" volname)
            ("%s:p.OS/Cronus/ixemul-040f-pos.lha" volname)
            ""
        )
    )
    (set description
        (select package
            "ixemul for 68000 using software floating point (190 Kb)"
            "ixemul for 68020+ using software floating point (190 Kb)"
            "ixemul for 68020+ using 68881/68882 FPU (190 Kb)"
            "ixemul for 68040+ using software floating point (190 Kb)"
            "ixemul for 68040+ using 68881/68882 FPU (190 Kb)"
        )
    )
    (UnpackArchive)
    (if (= 1 debugflag) (debug "Leaving GG_ixemul"))
)

(procedure ChooseRootDirectory

    (if (= 1 debugflag) (debug "Entering ChooseRootDirectory"))
    (set ask_select_rootdir
        (select langval
            (cat    "Select the partition in which to install p.OS. "
                "Note that you must install it in the root of a "
                "partition, such as Work:, and not in a subdirectory."
            )
            (cat    "In welchem Verzeichnis soll p.OS installiert werden?"
                "Bitte bechten Sie, daß es sich dabei um das Haupt-"
                "verzeichnis einer Partition, z.B. Work:, handeln muß."
            )
            (cat    "Veuillez sélectionner le répertoire d'installation de p.OS."
                "Vous devez l'installer à la racine d'une partition, "
                "comme Work:, mais pas dans un sous-répertoire. "
            )
            (cat    "Vælg hvor p.OS skal installeres. "
                    "Vær opmærksom på at den skal installeres i roden af en "
                    "partition, fx Work:, og ikke i en skuffe. "
            )
            (cat    "Selecteer de directory waarin p.OS geinstalleerd moet worden."
                "Merk op dat U het in de root van een partitie moet "
                "installeren (zoals Work:), en niet in een subdirectory!"
            )
            (cat    "Seleccione el directorio donde desea instalar p.OS. "
                "Advierta que debe intentarlo en el directorio raiz de una "
                "partición, como por ejemplo Work:, y no en un subdirectorio."
            )
            (cat    "Wybierz katalog w którym zainstalowaê p.OS."
                "Zauwaû, ûe musi to byê katalog gîówny "
                "partycji np. Work:, nie moûe to byê "
                "podkatalog."
            )
            (cat    "Seleziona la directory in cui desideri installare p.OS. "
                "Nota che devi installarlo nella radice di una "
                "partizione, ad esempio Work:, e non in una subdirectory."
            )
            ; additional ask_select_rootdir translations here.
        )
    )

    (set help_select_rootdir
        (select langval
            (cat    "Please select the directory under which to install all "
                "of the p.OS files."
                "\n\n"
                "Currently this MUST be a partition name and NOT a directory "
                "in a partition."
            )
            (cat    "Bitte geben Sie die Partition an, unter der alle Dateien "
                "von p.OS installiert werden sollen."
                "\n\n"
                "Bitte stellen Sie sicher, daß es sich um eine Partition und"
                "nicht um ein Verzeichnis handelt."
            )
            (cat    "Veuillez sélectionner le répertoire dans lequel les "
                "fichiers de p.OS seront installés."
                "\n\n"
                "Actuellement, ceci DOIT être un nom de partition et NON "
                "un répertoire dans une partition du disque."
            )
            (cat    "Vælg hvor alle p.OS filerne skal installeres."
                "\n\n"
                "Det SKAL p.t. være en partition og IKKE en skuffe "
                "i en partition."
            )
            (cat    "Selecteer de directory waarin de p.OS bestanden "
                "geinstalleerd moeten worden."
                "\n\n"
                "Momenteel MOET dit een partitie naam zijn en GEEN "
                "directory op een partitie."
            )
            (cat    "Por favor, seleccione el directorio donde desea instalar "
                "todos los ficheros de p.OS."
                "\n\n"
                "Actualmente este DEBE ser una partición y NO un directorio "
                ·dentro de una partición.·
            )
            (cat    "Wybierz proszë katalog, w którym zainstalowaê pliki "
                "p.OS."
                "\n\n"
                "Na razie to MUSI byê nazwa partycji, a nie "
                "katalogu na partycji."
            )
            (cat    "Per favore, seleziona la directory in cui installare "
                "tutti i file di p.OS."
                "\n\n"
                "Questa DEVE essere il nome di una partizione e NON "
                "di una directory in una partizione."
            )
            ; additional help_select_rootdir translations here.
        )
    )

    (set olduser @user-level)
    (user 2)
    (if (= 1 debugflag) (debug "Default destination currently:" @default-dest))
    ; Note that we set the result of askdir into the temporary variable
    ; rootdir before copying it to @default-dest.  Otherwise we get an odd
    ; error message if we abort the install inside the askdir, something about
    ; not changing the type of an '@' variable.
    (set rootdir
        (askdir
            (prompt ask_select_rootdir)
            (default "Work:")
            (newpath)
            (help help_select_rootdir)
        )
    )
    (set @default-dest rootdir)
    (if (= 1 debugflag) (debug "Default destination now:" @default-dest))
    (user olduser)
    (set @execute-dir @default-dest)
    (if (= 1 debugflag) (debug "p.OS root directory: " @default-dest))

    ; This is a hack that works around an apparent bug in the CBM 3.1
    ; CD-ROM driver, where the first attempt to run lha to unpack
    ; an archive from the CD fails because it can't read the archive.
    ; So copy a couple archives off the CD just to wake up the stupid
    ; CBM driver.
    (run ("copy %s:p.OS/proDAD/pOS-Base.lha ram:" volname))
    (run "delete ram:p.OS-Base.lha")
    (if (= 1 debugflag) (debug "Leaving ChooseRootDirectory"))
)

(procedure MakeAssigns

    ; This may seem like extra work, but it actually avoids having
    ; to know whether @default-dest ends in ':' or not, and do the
    ; right thing.

    (if (= 1 debugflag) (debug "Assign p to:" @default-dest))
    (if (= 0 @pretend) (makeassign "p" @default-dest))

    (if (= 1 debugflag) (debug "Reassign p to p:pOS_Dev/inc"))
    (if (= 0 @pretend) (makeassign "p" "p:pOS_Dev/inc"))

    (if (= 1 debugflag) (debug "Assign pos to:" @default-dest))
    (if (= 0 @pretend) (makeassign "pos" @default-dest))
)

(procedure EditStartup

    (set startup_commands
        (cat    ("assign pos: %s\n" @default-dest)
            "assign p: pos:pOS_Dev/inc\n"
        )
    )
    (if (= 1 debugflag) (debug "Add to User-Startup:" startup_commands))

    (set msg_ask_edit_startup
        (select langval
            (cat    "The following commands need to be added to your "
                "S:User-Startup file:"
                "\n\n"
                startup_commands
                "\n\n"
                "Shall the installer edit your User-Startup file now?"
            )
            (cat    "Folgende Befehle müssen zu Ihrer S:User-Startup Datei "
                "hinzugefügt werden:"
                "\n\n"
                startup_commands
                "\n\n"
                "Soll dieses Installationsprogramm Ihre "
                "User-Startup Datei nun anpassen?"
            )
            (cat    "Les commandes suivantes doivent etre rajoutées à votre "
                "fichier S:User-Startup :"
                "\n\n"
                "Est-ce que le programme d'installation peut modifier "
                "votre fichier S:User-Startup maintenant?"
            )
            (cat    "De følgende kommandoer skal tilføjes til din "
                "S:User-Startup fil:"
                "\n\n"
                startup_commands
                "\n\n"
                "Skal installationsprogrammet ændre din User-Startup fil nu?"
            )
            (cat    "Het volgende commando moet toegevoegd worden aan je "
                "S:User-Startup bestand:"
                "\n\n"
                startup_commands
                "\n\n"
                "Mag het installatie programma je User-Startup bestand nu "
                "wijzigen ?"
            )
            (cat    "Los siguientes comandos necesitan ser añadidos a su "
                "fichero S:User-Startup:"
                "\n\n"
                startup_commands
                "\n\n"
                "¿Debería el instalador editar su fichero User-Startup "
                "ahora?"
            )
            (cat    "Nastëpujâce polecenia muszâ byê dodane do pliku "
                "S:User-StartUp:"
                "\n\n"
                startup_commands
                "\n\n"
                "Czy Installer ma teraz sam poprawiê skrypt startowy?"
            )
            (cat    "I seguenti comandi devono essere aggiunti al "
                "file S:User-Startup:"
                "\n\n"
                startup_commands
                "\n\n"
                "Desideri che l'installer editi la tua User-Startup ora?"
            )
            ; Additional msg_ask_edit_startup translations here.
        )
    )

    (set msg_help_edit_startup
        (select langval
            (cat    "In order to start p.OS, you need to have appropriate "
                "assignments for p: and pos: to places in "
                @default-dest
                ", where you installed the selected packages.  By placing "
                "these assignments in your User-Startup file, you do not "
                "have to make them manually after each reboot."
                "\n\n"
                "If you want, the installer can edit your User-Startup "
                "script for you, and add the necessary commands.  If you "
                "choose not to do this now, you will need to make the "
                "necessary modifications by hand."
            )
            (cat    "Damit Sie p.OS starten können, müssen entsprechende Assigns "
                "auf p: und pos: eingefügt werden. Die Assign-Befehle müssen auf "
                @default-dest
                " zeigen, wo die entsprechenden Programmpakete installiert wurden. Durch"
                "das Einfügen dieser Assign-Befehle in Ihre User-Startup-Datei,"
                "ersparen Sie sich das manuelle Ausführen dieser Befehle nach"
                "jedem Reboot."
                "\n\n"
                "Falls Sie es wünschen, kann dieses Installationsprogramm Ihre "
                "User-Startup Datei anpassen und die Befehle selbst hinzufügen."
                "Ansonsten müssen Sie dies später von Hand tun."
            )
            (cat    "De sorte à pouvoir lancer p.OS, il vous faut les "
                "assignements p: et pos: assignés dans "
                @default-dest
                ", là ou vous avez installé les produits sélectionnés. "
                "En plaçant ces assignements dans votre fichier User-Startup,"
                "vous n'aurez pas à les réentrer manuellement après "
                "chaque réinitialisation du système."
                "\n\n"
                "Si vous le désirez, le script d'installation peut "
                "éditer le script User-Startup pour vous, et y ajouter "
                "les commandes nécessaires. Si vous ne voulez pas de "
                "modification automatique, il vous faudra la réaliser "
                "vous même par la suite."
            )
            (cat    "For at starte p.OS skal der oprettes to \"assigns\" "
                "(logiske diskdrev) p: og pos:, der peger på passende steder i "
                @default-dest
                ", hvor du installerede de valgte pakker. Dette kan "
                "ske i din User-Startup fil, hvorved du ikke behøver at "
                "gøre det manuelt efter hver opstart/genstart."
                "\n\n"
                "Du kan lade installationsprogrammet redigere din User-Startup "
                " og tilføje de nødvendige kommandoer for dig. Hvis du vælger "
                "ikke at gøre dette, må du selv tilføje dem senere."
            )
            (cat    "Om p.OS te kunnen starten moet U juiste assigns voor "
                "p: en pos: hebben naar directories in "
                @default-dest
                "waar U de geselecteerde pakketten geinstalleerd hebt. "
                "Door deze assigns in uw User-Startup te plaatsen moet "
                "U ze niet telkens manueel maken na een reboot."
                "\n\n"
                "Als U wil kan het installatie programma uw User-Startup "
                "zelf editeren, en de nodige commando's toevoegen. "
                "Als U dit niet wenst zal U de noodzakelijke "
                "veranderingen zelf moeten maken."
            )
            (cat    "Para poder arrancar p.OS necesita tener las asignaciones "
                "apropiadas de p: y pos: a los directorios en "
                @default-dest
                ", donde ha instalado los paquetes seleccionados. Haciendo "
                "esas assignaciones en su fichero User-Startup no tendrá "
                "que hacerlo a mano cada vez que arranque."
                "\n\n"
                "Si lo desea, el instalador puede editar su script "
                "User-Startup por vd. y añadir los comandos necesarios. Si vd. "
                "elige no hacer esto ahora, necesitará hacer las "
                "modificaciones a mano."
            )
            (cat    "Ûeby uruchomiê p.OS, musisz mieê poprawne "
                "przypisania p: i POS:, wskazujâce na "
                @default-dest
                ", gdzie zainstalowaîeô wybrane pakiety. "
                "Dziëki umieszczeniu tych przypisaï w pliku "
                "User-StartUp unikasz koniecznoôci rëcznego "
                "wpisywania ich po kaûdym starcie systemu."
                "\n\n"
                "Jeôli chcesz, Installer moûe poprawiê twój plik "
                "S:User-StartUp i dodaê niezbëdne polecenia. Jeôli "
                "zdecydujesz teraz, ûeby tego nie robiê, bëdziesz "
                "musiaî rëcznie wykonywaê te czynnoôci."
            )
            (cat    "Per lanciare il p.OS, devi avere degli assegnamenti "
                "appropriati per p: e pos: a posizioni all'interno di "
                @default-dest
                ", dove hai installato i pacchetti selezionati. Mettendo "
                "questi assegnamenti nel tuo file di User-Startup, non "
                "dovrai farli manualmente dopo ogni reboot."
                "\n\n"
                "Se lo desideri, l'installer può aggiungere alla tua "
                "User-Startup i comandi necessari. Se decidi di non farlo ora, "
                "dovrai fare le modifiche necessarie a mano."
            )
            ; Additional msg_help_edit_startup translations here.
        )
    )

    (set olduser @user-level)
    (user 2)
    (startup "p.OS"
        (help msg_help_edit_startup)
        (prompt msg_ask_edit_startup)
        (command startup_commands)
    )
    (user olduser)
)

(procedure HD_Install

    (if (= 1 debugflag) (debug "Install packages to the hard drive"))

    (ChooseRootDirectory)
    (complete 20)

    (pOS_Runtime)
    (complete 30)

    (pOS_Developer)
    (complete 40)

    (GG_Developer)
    (complete 50)

    (GG_ixemul)
    (complete 60)

    (EditStartup)
    (complete 70)

    (MakeAssigns)
    (complete 80)

    (set msg_exit
        (select langval
            (cat    "You can now start p.OS with a command of the form:"
                "\n\n"
                "pOS:pOS/pOS 640 512 depth 4"
            )
            (cat    "Nun können Sie p.OS starten. Verwenden Sie dazu "
                "den folgenden Befehl:"
                "\n\n"
                "pOS:pOS/pOS 640 512 depth 4"
            )
            (cat    "Vous pouvez maintenant démarrer p.OS avec une "
                "commande de la forme :"
                "\n\n"
                "pOS:pOS/pOS 640 512 depth 4"
            )
            (cat    "Du kan nu starte p.OS med en kommando på formen:"
                "\n\n"
                "pOS:pOS/pOS 640 512 depth 4"
            )
            (cat    "U kan nu p.OS starten met een commando in de vorm:"
                "\n\n"
                "pOS:pOS/pOS 640 512 depth 4"
            )
            (cat    "Ahora puede arrancar p.OS con un comando con la forma:"
                "\n\n"
                "pOS:pOS/pOS 640 512 depth 4"
            )
            (cat    "Teraz moûesz juû wystartowaê p.OS uûywajâc "
                "komendy:"
                "\n\n"
                "pOS:pOS/pOS 640 512 depth 4"
            )
            (cat    "Puoi lanciare ora p.OS con un comando del tipo:"
                "\n\n"
                "pOS:pOS/pOS 640 512 depth 4"
            )
            ; Additional msg_exit translations here.
        )
    )
    (complete 90)
)

(procedure Main

    ; Set debugflag to 0 for no debugging or 1 to enable debug messages.
    ; Thus you can enable debugging with a single change to this file.

    (set debugflag 0)

    ; Set some defaults for various things.

    ; If we are using the default app name string, change it.

    (if (= 1 debugflag) (debug "App name is:" @app-name))
    (if (= @app-name "Test App") (set @app-name "p.OS"))
    (if (= 1 debugflag) (debug "App name is now:" @app-name))

    ; Put up the welcome message

    (welcome "Welcome to the p.OS Installation utility.\n")

    ; Use an explicit volname which allows this installer script to reside anywhere.

    (set volname "ADE-2")

    ; Set @default-dest as the location for the log file.

    (set @default-dest "ram:")

    ; The real work starts here.

    (SelectLanguage)
    (complete 5)

    (WelcomeMessage)
    (complete 10)

    (HD_Install)

    (complete 100)
    (exit msg_exit)
)


(Main)