Frozen Fish 1: Amiga/FrozenFish-Apr94.iso/bbs/mar94/misc/edu/verbes.lha/Verbes/Install_Verbes

Text File | 1994-01-01 | 4KB | 242 lines

; Installer script for Ensemble Verbes (unregistered)
; $VER: Install_Verbes 1.5 (09.10.93)
; 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)
                            )
                            (copyfiles
                                (source
                                    (tackon @execute-dir catpath)
                                )
                                (dest
                                    (tackon newdest catpath)
                                )
                                (all)
                            )
                        )
                    )
                )
            )
            (set n (+ n 1))
        )
    )
))

;; Force user level to at least 1, so that she/he can select destination
;; directory
;(if
;    (= @user-level 0)
;    (
;        (user 1)
;        (set @user-level 0)
;    )
;)

; 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)
        )
; This is where catalogs should be installed
        (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")
                )
            )
        )
    )
)