Aminet 10/aminetcdnumber101996.iso/Aminet/misc/edu/Verbes.lha/Install_Verbes

Text File | 1995-11-17 | 5KB | 264 lines

; Installer script for Ensemble Verbes (unregistered)
; $VER: Install_Verbes 1.7 (14.11.95)
; Changes from V1.6
;    Installs new catalog file
; Changes from V1.5
;    Removed some commented debugging code
;    Installs new catalog files
; Changes from V1.4
;    Installs catalog files
; Changes from V1.3
;    Separated shareware install script from registered one
;        (mostly removed code to install AmigaGuide and
;        amigaguide.library)
; Changes from V1.2
;    Installs separate .guide files for V37, V39+
; Changes from V1.1
;    Removed "force user level" code--now uses MINUSER tooltype
;    Started on installation of separate .guide files for V37, V39+
; Changes from V1.0
;    Fixed explicit reference to "Programs:"

;=============================================================================
; procedure to copy the language drivers and catalogs (from V39 Install)

(procedure DOLOCALE
(
    (set n 0)
    (while
        (set language
            (select n ;"dansk"
                  ;"deutsch"
                  "english"
                  "español"
                  "français"
                  "italiano"
                  ;"nederlands"
                  "norsk"
                  ;"português"
                  ;"svenska"
                  ""
            )
        )
        (
            (set catpath
                (tackon "Catalogs" language)
            )
            (if (in lang n)
                (
                    (if (<> 0 n) ; skip "english"
                        (
                            (makedir
                                (tackon newdest "Catalogs")
                                (safe)
                            )
                            (makedir
                                (tackon newdest catpath)
                                (safe)
                            )
                            (if (= 2 n) ; handle 2 cases for français
                                (
                                    (set langopt
                                        (askbool
                                            (prompt "Choose the desired version of the français catalog file")
                                            (choices "French with English" "French only")
                                            (help "You may choose either:\n"
                                                  "  French with English menus and error messages, or\n"
                                                  "  Entirely French"
                                            )
                                        )
                                    )
                                    (if (= 1 langopt) ; French with English
                                        (set srcpath
                                            (tackon "Catalogs" "français2")
                                        )
                                    )
                                )
                            )
                            (copyfiles
                                (source
                                    (tackon @execute-dir catpath)
                                )
                                (dest
                                    (tackon newdest catpath)
                                )
                                (all)
                            )
                        )
                    )
                )
            )
            (set n (+ n 1))
        )
    )
))

; Find OS version number
(set osver
    (/
        (getversion "exec.library"
            (resident)
        )
        65536
    )
)

; Is user running 3.0 or above?
(set ks3
    (> osver 38)
)

; Is user running 2.0 or above?  If not, Verbes won't work, so abort.
(if
    (< osver 37)
    (
        (message "Ensemble Verbes requires Release 2 or higher.  "
                 "Exiting..."
        )
        (transcript "Error: Ensemble Verbes requires Release 2 or higher.")
        (exit
            (quiet)
        )
    )
    (if ks3
        (message "Installing for Release 3 and above")
        (message "Installing for Release 2.x")
    )
)

; Is Verbes there?  If not, user is not running from the Verbes dir,
; so abort.
(if
    (not
        (exists
            (tackon @execute-dir "Verbes")
        )
    )
    (
        (message "Please run the installation program from the "
                 "Ensemble Verbes directory.  Exiting..."
        )
        (transcript "Error: Installer must be run from the directory "
                    "containing the Ensemble Verbes installation script.")
        (exit
            (quiet)
        )
    )
)

(set vernum
    (getversion "Verbes")
)
(set thisver
    (/ vernum 65536)
)
(set thisrev
    (- vernum
        (* thisver 65536)
    )
)

(set newdest
    (askdir
        (prompt "Choose a location for \"Ensemble Verbes\"")
        (help @askdir-help)
        (default @default-dest)
        (newpath)
    )
)

(set @default-dest newdest)

(set vernum
    (getversion
        (tackon newdest "Verbes")
    )
)
(set ver
    (/ vernum 65536)
)
(set rev
    (- vernum
        (* ver 65536)
    )
)

(if
    (or
        (> thisver ver)
        (and
            (= thisver ver)
            (> thisrev rev)
        )
    )
    (
        (if
            (> thisver 0)
            (
                (transcript "Replacing \"Ensemble Verbes\" V" ver "." rev " with V" thisver "." thisrev)
            )
        )
        (copyfiles
            (prompt
                (cat "About to install \"Ensemble Verbes\" V" thisver "." thisrev " in " newdest)
            )
            (help @copyfiles-help)
            (source
                (tackon @execute-dir "Verbes")
            )
            (dest newdest)
            (infos)
        )
        (tooltype
            (dest
                (tackon newdest "Verbes")
            )
            (noposition)
        )
        (set lang
            (askoptions
                (prompt "Which languages should be installed?")
                (help "Language help")
                (choices "English" "Español" "Français" "Italiano" "Norsk")
                (default 31)
            )
        )
        (DOLOCALE)
        (copyfiles
            (prompt
                (cat "About to install \"Verbes.guide\" in " newdest)
            )
            (help @copyfiles-help)
            (source
                (tackon @execute-dir "Verbes.guide")
            )
            (dest newdest)
            (newname "Verbes.guide")
            (infos)
        )

        ; Set Verbes.guide.info's default tool to "AmigaGuide" for <3.0 systems;
        ; "MultiView" for >=3.0
        (if ks3
            (
                (tooltype
                    (dest
                        (tackon newdest "Verbes.guide")
                    )
                    (noposition)
                    (setdefaulttool "MultiView")
                )
            )
            (
                (tooltype
                    (dest
                        (tackon newdest "Verbes.guide")
                    )
                    (noposition)
                    (setdefaulttool "AmigaGuide")
                )
            )
        )
    )
)