(complete 0)

(set default_lang 4)
(set #introduction
(cat "\n\nInstallation of Euterpe.\n"
))

(set #bravi
(cat "Installation is not possible."
))

(set #quel-disque
(cat "Where do you want to install Euterpe\n(A directory will be created) ?"
))

(set #quel-disque-aide
(cat "Select the drawer or volume where the installation should be made."
))
(set #oui-prompt
(cat "Installation of OBJECT USER INTERFACE catalog files."
))
(set #oui-prompt
(cat "Installation of AsyncIO.library."
))

(set #startup-prompt
(cat "Adding Assign Euterpe: in user-startup."
))

(if (= @language "français")
(
(set default_lang 16)
(set #introduction
(cat "\n\nInstallation d'Euterpe.\n"
))

(set #bravi
(cat "L'installation a échoué."
))

(set #quel-disque
(cat "Où voulez-vous installer Euterpe\n(Un répertoire sera créé) ?"
))

(set #quel-disque-aide
(cat "Sélectionnez le disque ou répertoire où l'installation doit être effectuée."
))

(set #oui-prompt
(cat "Installation des catalogues pour l'interface OUI."
))

(set #asyncio-prompt
(cat "Installation de l'AsyncIO.library."
))

(set #startup-prompt
(cat "Ajout de l'assignation Euterpe: dans le fichier user-startup."
))



))

;---------------------------------------------------------------------
(set installLoc (pathonly (pathonly @icon))
     installEuterpe (tackon installLoc "Euterpe")
     installCats (tackon installEuterpe "Catalogs")
     installFonts (tackon installLoc "Fonts")
     installLibs (tackon installLoc "Libs/AsyncIO.library")
     installOuiCat (tackon (tackon (tackon installLoc "OUI_Catalogs") @language) "oui.catalog")
     targetOuiCat (tackon "LOCALE:Catalogs" @language)
     targetFonts "FONTS:"
     targetLibs "LIBS:AsyncIO.library"
)

(delopts "oknodelete" "force" "askuser")
(user 2)
(message #introduction)
(user 0)
(welcome)
(set old_level @user-level)
    (user 2)
    (set target (tackon (askdir (prompt #quel-disque)
                        (help #quel-disque-aide)
                        (default "SYS:")
                        (disk)
                ) "Euterpe")
    )
    (makedir target
             (infos))

    (user old_level)
(set @default-dest target)
(complete 10)

(set targetCats (tackon target "Catalogs"))

(copyfiles (source installEuterpe)
           (dest target)
           (all)
)
(complete 70)
(copyfiles (source installFonts)
           (dest targetFonts)
           (all)
)
(complete 75)
(copylib (prompt #asyncio-prompt)
         (source installLibs)
         (dest targetLibs)
         (confirm)
         (help @copylib-help)
)
(copylib (prompt #oui-prompt)
         (source installOuiCat)
         (dest targetOuiCat)
         (confirm)
         (optional nofail askuser)
         (help @copylib-help)
)

(startup "Euterpe" (prompt #startup-prompt)
         (help @startup-help)
         (command (cat "Assign Euterpe: " target))
)
(complete 100)