Gold Fish 3/goldfish_volume_3.bin/files/biz/dbase/intuidex/install_intuidex

Text File | 1995-07-20 | 7.2 KB | 169 lines

; THIS IS THE INTUIDEX 2.0 INSTALLER SCRIPT.
; INTUIDEX IS COPYRIGHT 1995, JEFFERY C. MAY
;
; THIS VERSION CREATED: JAN 31, 1995
;
; ALTHOUGH THE COMMODORE INSTALLER USES SCRIPTS THAT VERY MUCH RESEMBLE
; LISP, I HAVE ENDEVORED TO MAKE THEM LOOK AS MUCH LIKE C AS POSSIBLE.
; MAYBE THAT WAY I'LL REMEMBER HOW IT WORKS...


; SETUP SOME ERROR AND OTHER MESSAGES SO THAT THE CODE WILL BE A LITTLE
; EASIER TO READ...
(
    (set target-dir             "DH1:")
    (set multiview              "sys:utilities/multiview")
    (set amigaguide             "sys:utilities/amgiaguide")

    (set OtherAnnounce   (cat   "You are about to be asked to provide a "
                                "path to where you want IntuiDex to be "
                                "installed to.  If you wish to create a "
                                "drawer to put IntuiDex in, you must create "
                                "it with the \"Make New Drawer\" gadget.  "
                                "All neccessary subdirectories that are "
                                "needed will be created automatically."))

    (set AnnounceHelp    (cat   "   I need to know where you want IntuiDex "
                                "to be installed to.  The next window will "
                                "have in it a file requester in which you "
                                "can specify the location that you want "
                                "IntuiDex.\n"
                                "   I recommend that you put IntuiDex into the "
                                "same area of your hard disk that you put "
                                "your other applications, and NOT in the "
                                "system area. Grouping software like "
                                "this will make it easier to find it "
                                "later."))

    (set intuitionNeeded (cat   "IntuiDex requires at least version 37 of "
                                "the Intuition Library.  If your system does "
                                "not have at least release 2.04 of the Amiga "
                                "operating system, IntuiDex will not operate."))

    (set gadtoolsNeeded (cat "  IntuiDex requires at least version 37 of "
                                "the GadTools Library.  If your system does "
                                "not have at least release 2.04 of the Amiga "
                                "operating system, IntuiDex will not operate."))

    (set aslNeeded       (cat   "IntuiDex requires at least version 37 of "
                                "the ASL Library.  If your system does "
                                "not have at least release 2.04 of the Amiga "
                                "operating system, IntuiDex will not operate."))

    (set graphicsNeeded (cat    "IntuiDex requires at least version 37 of "
                                "the Graphics Library.  If your system does "
                                "not have at least release 2.04 of the Amiga "
                                "operating system, IntuiDex will not operate."))

    (set utilityNeeded   (cat   "IntuiDex requires at least version 37 of "
                                "the Utility Library.  If your system does "
                                "not have at least release 2.04 of the Amiga "
                                "operating system, IntuiDex will not operate."))

    (set iconNeeded      (cat   "IntuiDex requires at least version 37 of "
                                "the Icon Library.  If your system does "
                                "not have at least release 2.04 of the Amiga "
                                "operating system, IntuiDex will not operate."))

    (set amigaguideNeeded (cat  "IntuiDex requires at least version 34 of "
                                "the AmigaGuide Library.  Your system does "
                                "not have the AmigaGuide Library, which was "
                                "included with release 3.0 and above of the Amiga "
                                "operating system.  "
                                "Note that the AmigaGuide system can be obtained "
                                "from Aminet, or any other source of PD and shareware "
                                "software."))
)


; MAKE SURE THAT THEY'RE USING THE PROPER OPERATING SYSTEM...
; INTUIDEX ONLY WORKS WITH SYSTEMS THAT HAVE AT LEAST RELEASE 2.04
; (VERSION 37) OF THE AMIGA OS.
(
    (
        (set IXEmulVer
            (/ (getversion "libs:ixemul.library") 65536))

        (set intuitionVer
            (/ (getversion "intuition.library" (resident)) 65536))

        (set gadtoolsVer
            (/ (getversion "gadtools.library" (resident)) 65536))

        (set aslVer
            (/ (getversion "asl.library" (resident)) 65536))

        (set graphicsVer
            (/ (getversion "graphics.library" (resident)) 65536))

        (set utilityVer
            (/ (getversion "libs:utility.library" (resident)) 65536))

        (set iconVer
            (/ (getversion "icon.library" (resident)) 65536))

        (set amigaguideVer
            (/ (getversion "libs:amigaguide.library") 65536))
    )
)


; NOW WE HAVE THE VERSION NUMBERS FOR ALL THE REQUIRED LIBRARIES.
; MAKE SURE THAT THEY'RE NEW ENOUGH TO WORK.
(
    (if (< intuitionVer 37)     ((message    intutionNeeded) (exit (quiet))))
    (if (< gadtoolsVer 37)      ((message    gadtoolsNeeded) (exit (quiet))))
    (if (< aslVer 37)           ((message    aslNeeded) (exit (quiet))))
    (if (< graphicsVer 37)      ((message    graphicsNeeded) (exit (quiet))))
    (if (< utilityVer 3)7       ((message    utilityNeeded) (exit (quiet))))
    (if (< iconVer 37)          ((message    iconNeeded) (exit (quiet))))
    (if (< amigaguideVer 34)    ((message    amigaguideNeeded) (exit (quiet))))
)



; GET THE LOCATION FROM THE USER WHERE TO PUT INTUIDEX
; NOTE THAT IF THE USER SELECTED "NOVICE" AS HIS USER LEVEL, THEN WE NEED
; TO SKIP THIS, AND JUST INSTALL INTUIDEX TO THE DH1: (WORK) PARTITION
(
    (if (> @user-level 0)
        (
            (message OtherAnnounce (help AnnounceHelp))
            (set @default-dest  target-dir)
            (set target-dir
            (askdir     (prompt     "Where should I put IntuiDex?")
                        (help       @askdir-help)
                        (default    @default-dest)
                        (newpath)
                        (disk))
            )
        )
    )
)


; NOW WE'LL COPY THE FILES...
; THE VARIABLE @default-dest NOW HOLDS THE DIRECTORY WHERE WE'RE GOING
; TO BE PLACING ALL THE FILES.  NOW WE CAN COPY STUFF...
(set  src (pathonly @icon))
(copyfiles  (source src)
            (dest   target-dir)
            (all)
)



; NOW, SET THE @default-dest VARIABLE TO POINT TO WHERE WE PUT THE STUFF
; SO THAT THE COMPLETION MESSAGE WILL BE RIGHT.
(if (> @user-level 0) (set    @default-dest   target-dir))


; AT THE END NOW- LET'S BE NICE AND AUTOMATICALLY START THE ON-LINE HELP
; AMIGAGUIDE FILE IF WE CAN.  WE NEED TO CHECK AND SEE IF MULTIVIEW IS
; PRESENT IN THE SYS:UTILITIES DRAWER FIRST.
(if (= (exists multiview (noreq)) 1)
    (
        (set AGCommand (cat multiview " \"" (tackon target-dir "help/IntuiDex.guide") "\""))
        (run AGCommand)
    )
)