The Best of Mecomp Multimedia 2/MECOMP-CD-II.iso/amiga/datatypes/iffdt402/install

Text File | 1997-02-16 | 11.0 KB | 341 lines

;******************************************************************************
; 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 <[e-mail]> 04.06.96
;******************************************************************************

; Initialize a few things
(set #datatype      "iff.datatype")
(set #datatype-desc "IFF")
(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 ®1996-97\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 #copyiff "Copying the iff-moduls")
  (set #getiffdir "Where should I install the iff-moduls?\nA new directory will be installed")
  (set #setprefs "Do you want to see full iff-chunk information?")
  (set default_lang 1)
;
;******************************************************************************
; German strings
; Translated by Swen K. Stullich <[e-mail]>
;******************************************************************************
(if (= language "deutsch")
 (
  (set #wellcome (cat @app-name "-Installer "))
  (set #about (cat "Wilkommen zu dem " @app-name "-Install-Script\n\n" @app-name " ist ®1996-97\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 #copyiff "Kopiere die IFF-Module")
  (set #getiffdir "Wohin sollen die IFF-Module installiert werden?\nEin neues Verzeichnis (iff.module/) wird erzeugt")
  (set #setprefs "Möchtest Du die ganzen IFF-Chunk Informationen sehen?")
  (set default_lang 2)
 )
)
;
;******************************************************************************
; Spanish strings
; Translated by JosÚ Roberto Gonzßlez Rocha <[e-mail]>
;******************************************************************************
(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 ©1996-97\nSwen K. Stullich\nUnited Forces Tools\n\n\ntraducido al castellano por José Roberto González Rocha <[e-mail]>"))
  (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 <[e-mail]>
;******************************************************************************
(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 *1996-97\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 <[e-mail]>
;******************************************************************************
(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 *1996-97\nSwen K. Stullich\nUnited Forces Tools\n\nTraduzido por Manuel Lemos <[e-mail]>"))
  (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")
    )
)

(set iffmoduledir
    (askdir
        (prompt #getiffdir)
            (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 the IFF-moduls
        (makedir (tackon iffmoduledir "iff.module"))
        (copyfiles
            (prompt #copyiff)
            (help @copyfiles-help)
            (source "iff.module")
            (dest (tackon iffmoduledir "iff.module"))
            (pattern "~(#?.info)")
            (confirm)
        )

        ; Set the preferences
        (textfile
            (dest "ENV:Datatypes/iff.prefs")
            (append (cat (cat "MODULE=\"" (tackon iffmoduledir "iff.module")) "\"\n"))
            (append "SHOWINFO\n")
        )
        (textfile
            (dest "ENVARC:Datatypes/iff.prefs")
            (append (cat (cat "MODULE=\"" (tackon iffmoduledir "iff.module")) "\"\n"))
            (append "SHOWINFO\n")
        )

        ; 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") )