Amiga ISO Collection/AmigaMiscModsCD3.iso/_PROGRAMME/PLAYER/MULTIFORMAT/Aplayer.lha/APlayer/HDInstall

Text File | 1994-07-27 | 24.8 KB | 783 lines

;**************************************************************************
;*                                                                        *
;*                 Installer Script For Accessible Player                 *
;*                                                                        *
;*                            Update 29/08-1994                           *
;*                                                                        *
;**************************************************************************

;--------------------------------------------------------------------------
; ** Install Library Procedure

(procedure InstallLib
    (working ("Testing %s" libname))
    (copylib
        (prompt ("Do you want to install the \"%s\"?" libname))
        (help @copylib-help)
        (source (tackon libdir libname))
        (dest (tackon "LIBS:" (pathonly libname)))
        (confirm)
    )
)

;--------------------------------------------------------------------------
; ** Install Procedure

(procedure Install
    (set fileflag
        (askoptions
            (prompt "Which files do you want to install in the "
                    "\"APlayer\" drawer?")
            (help @askoptions-help)
            (choices
                "APlayer"
                "Installer Script"
                "APlayer.guide"
                "Bonus.doc"
                "MissingModules.txt"
                "SMPL.doc"
                "SQSH.doc"
                "Developers Kit"
            )
        )
    )

    (if fileflag
        (
            (set default-dest
                (askdir
                    (prompt "Where do you want to make the APlayer drawer?")
                    (help @askdir-help)
                    (default @default-dest)
                )
            )
            (set @default-dest default-dest)
        )
    )

    (set bonus
        (askbool
            (prompt "Do you want to install some bonus programs?")
            (help @askbool-help)
        )
    )

    (set bonusflag 0)
    (if bonus
        (
            (set bonusflag
                (askoptions
                    (prompt "Which bonus programs do you want to install?")
                    (help @askoptions-help)
                    (choices
                        "FSS2APML - Converts from FSS to APML file"
                        "FSSOptimizer - Optimize your FSS file"
                    )
                )
            )
        )
    )

    (if bonusflag
        (
            (set bonus-dest
                (askdir
                    (prompt "Where do you want to install the bonus "
                            "programs?")
                    (help @askdir-help)
                    (default "C:")
                )
            )
        )
    )

    (set play
        (askbool
            (prompt "Do you want to install external players?")
            (help "If you select yes, you can select between all the "
                  "external players this version support. All the players "
                  "will be stored in your \"LIBS:APlayer\" drawer.")
        )
    )

    (set playflag 0)
    (set playflag1 0)
    (if play
        (
            (set playflag
                (askoptions
                    (prompt "Which extern players do you want to install in "
                            "your \"LIBS:APlayer\" drawer?")
                    (help @askoptions-help)
                    (choices
                        "Digital Mugician"
                        "DSS"
                        "Fred"
                        "Future Composer 1.0-1.3"
                        "Future Composer 1.4"
                        "Holy Noise"
                        "IFF-8SVX"
                        "JamCracker"
                        "MED"
                        "Maniacs of Noise"
                        "Music Assembler"
                        "Noise Packer 2.0"
                        "Noise Packer 3.0"
                        "OctaMed"
                        "Oktalyzer"
                        "Quadra Composer"
                    )
                )
            )

            (set playflag1
                (askoptions
                    (prompt "Which extern players do you want to install in "
                            "your \"LIBS:APlayer\" drawer?")
                    (help @askoptions-help)
                    (choices
                        "RIFF-WAVE"
                        "Ron Klaren"
                        "SID"
                        "Sound Monitor 2.0"
                        "StarTrekker 4"
                        "StarTrekker 4AM"
                        "Synthesis"
                        "TFMX 7-Voices"
                        "TFMX Professional"
                    )
                )
            )
        )
    )

;    (set arexx
;        (askbool
;            (prompt "Do you want to install ARexx?")
;            (help "If you choose yes, you will be asked where you want to "
;                  "install the ARexx scripts. Then you can select which "
;                  "scripts you want to install. The installer will also "
;                  "install a special library in your LIBS: drawer.")
;        )
;    )

    (set arexxflag 0)
;    (if arexx
;        (
;            (set arexxdir
;                (askdir
;                    (prompt "Where do you want to install the ARexx "
;                            "scripts?")
;                    (help @askdir-help)
;                    (default "REXX:")
;                )
;            )

;            (set arexxflag
;                (askoptions
;                    (prompt "Which ARexx scripts do you want to install in "
;                            ("your \"%s\" disk or drawer?" arexxdir))
;                    (help @askoptions-help)
;                    (choices "ingen endnu")
;                )
;            )
;        )
;    )

    (set libs
        (askoptions
            (prompt "Which other libraries do you want to install in your "
                    "\"LIBS:\" drawer?")
            (help @askoptions-help)
            (choices
                "Reqtools.library"
                "Powerpacker.library"
                "Xpkmaster.library"
                "Unpack.library"
            )
        )
    )

    (set xpk
        (askoptions
            (prompt "Which xpk libraries do you want to install in your "
                    "\"LIBS:compressors\" drawer?")
            (help @askoptions-help)
            (choices
                "xpkSMPL.library"
                "xpkSQSH.library (68000)"
                "XpkSQSH.library (68020)"
            )
        )
    )

; ** Begin to copy the files

    (set @default-dest (tackon @default-dest "APlayer"))
    (set libdir (tackon sdir "Libs"))

    (if fileflag
        (
            (makedir @default-dest)
            (makedir (tackon @default-dest "Docs"))

            (copyfiles                             ;Copy Icon To APlayer Directory
                (source (tackon sdir "/APlayer.info"))
                (dest (tackon @default-dest "/"))
            )

            (copyfiles
                (source (tackon sdir "Docs.info")) ;Copy Icon To Docs Directory
                (dest @default-dest)
            )

            (if (in fileflag 0)                    ;APlayer File
                (
                    (copyfiles
                        (source (tackon sdir "APlayer"))
                        (dest @default-dest)
                        (infos)
                    )
                )
            )

            (if (in fileflag 1)                    ;Installer Script
                (
                    (copyfiles
                        (source (tackon sdir "HDInstall"))
                        (dest @default-dest)
                        (infos)
                    )
                )
            )

            (if (in fileflag 2)                    ;APlayer.guide
                (
                    (copyfiles
                        (source (tackon sdir "Docs/APlayer.guide"))
                        (dest (tackon @default-dest "Docs"))
                        (infos)
                    )
                )
            )

            (if (in fileflag 3)                    ;Bonus.doc
                (
                    (copyfiles
                        (source (tackon sdir "Docs/Bonus.doc"))
                        (dest (tackon @default-dest "Docs"))
                        (infos)
                    )
                )
            )

            (if (in fileflag 4)                    ;MissingModules.txt
                (
                    (copyfiles
                        (source (tackon sdir "Docs/MissingModules.txt"))
                        (dest (tackon @default-dest "Docs"))
                        (infos)
                    )
                )
            )

            (if (in fileflag 5)                    ;SMPL Docs
                (
                    (copyfiles
                        (source (tackon sdir "Docs/SMPL.doc"))
                        (dest (tackon @default-dest "Docs"))
                        (infos)
                    )
                )
            )

            (if (in fileflag 6)                    ;SQSH Docs
                (
                    (copyfiles
                        (source (tackon sdir "Docs/SQSH.doc"))
                        (dest (tackon @default-dest "Docs"))
                        (infos)
                    )
                )
            )
        )
    )
    (complete 10)

    (if (in fileflag 6)                             ;Developers Kit
        (
            (set devdir (tackon @default-dest "Developers"))
            (makedir devdir)
            (makedir (tackon devdir "Examples"))
            (makedir (tackon devdir "Include3.0"))
            (makedir (tackon devdir "Include3.0/Own"))

            (copyfiles
                (source (tackon sdir "Developers/Player.doc"))
                (dest devdir)
            )

            (copyfiles
                (source (tackon sdir "Developers/Examples/apFredLibrary.S"))
                (dest (tackon devdir "Examples"))
            )

            (copyfiles
                (source (tackon sdir "Developers/Examples/apFuture13Library.S"))
                (dest (tackon devdir "Examples"))
            )

            (copyfiles
                (source (tackon sdir "Developers/Examples/apSoundMon20Library.S"))
                (dest (tackon devdir "Examples"))
            )

            (copyfiles
                (source (tackon sdir "Developers/Include3.0/Own/AccessiblePlayer.i"))
                (dest (tackon devdir "Include3.0/Own"))
            )

            (copyfiles
                (source (tackon sdir "Developers/Include3.0/Own/SystemBases.i"))
                (dest (tackon devdir "Include3.0/Own"))
            )

            (copyfiles
                (source (tackon sdir "Developers/Include3.0/Own/SystemOffsets.i"))
                (dest (tackon devdir "Include3.0/Own"))
            )

            (copyfiles
                (source (tackon sdir "Developers/Include3.0/Own/SystemStructures.i"))
                (dest (tackon devdir "Include3.0/Own"))
            )
        )
    )
    (complete 20)

    (if bonusflag
        (
            (if (in bonusflag 0)                    ;FSS2APML
                (
                    (copyfiles
                        (source (tackon sdir "Bonus/FSS2APML"))
                        (dest bonus-dest)
                    )
                )
            )

            (if (in bonusflag 1)                    ;FSSOptimizer
                (
                    (copyfiles
                        (source (tackon sdir "Bonus/FSSOptimizer"))
                        (dest bonus-dest)
                    )
                )
            )
        )
    )
    (complete 40)

    (if playflag
        (
            (makedir "LIBS:APlayer")

            (if (in playflag 0)                     ;Digital Mugician
                (
                    (set libname "APlayer/apDigitalMugician.library")
                    (InstallLib)
                )
            )

            (if (in playflag 1)                     ;DSS
                (
                    (set libname "APlayer/apDSS.library")
                    (InstallLib)
                )
            )

            (if (in playflag 2)                     ;Fred
                (
                    (set libname "APlayer/apFred.library")
                    (InstallLib)
                )
            )

            (if (in playflag 3)                     ;Future Composer 1.0-1.3
                (
                    (set libname "APlayer/apFuture13.library")
                    (InstallLib)
                )
            )

            (if (in playflag 4)                     ;Future Composer 1.4
                (
                    (set libname "APlayer/apFuture14.library")
                    (InstallLib)
                )
            )

            (if (in playflag 5)                     ;Holy Noise
                (
                    (set libname "APlayer/apHolyNoise.library")
                    (InstallLib)
                )
            )

            (if (in playflag 6)                     ;IFF-8SVX
                (
                    (set libname "APlayer/apIFF-8SVX.library")
                    (InstallLib)
                )
            )

            (if (in playflag 7)                     ;JamCracker
                (
                    (set libname "APlayer/apJamCracker.library")
                    (InstallLib)
                )
            )

            (if (in playflag 8)                     ;MED
                (
                    (set libname "APlayer/apMED.library")
                    (InstallLib)
                )
            )

            (if (in playflag 9)                     ;Maniacs Of Noise
                (
                    (set libname "APlayer/apMON.library")
                    (InstallLib)
                )
            )

            (if (in playflag 10)                    ;Music Assembler
                (
                    (set libname "APlayer/apMusicAss.library")
                    (InstallLib)
                )
            )

            (if (in playflag 11)                    ;Noise Packer 2.0
                (
                    (set libname "APlayer/apNoisePacker20.library")
                    (InstallLib)
                )
            )

            (if (in playflag 12)                    ;Noise Packer 3.0
                (
                    (set libname "APlayer/apNoisePacker30.library")
                    (InstallLib)
                )
            )

            (if (in playflag 13)                    ;OctaMed
                (
                    (set libname "APlayer/apOctaMed.library")
                    (InstallLib)
                )
            )

            (if (in playflag 14)                    ;Oktalyzer
                (
                    (set libname "APlayer/apOktalyzer.library")
                    (InstallLib)
                )
            )

            (if (in playflag 15)                    ;Quadra Composer
                (
                    (set libname "APlayer/apQuadraComposer.library")
                    (InstallLib)
                )
            )
        )
    )
    (complete 50)

    (if playflag1
        (
            (if (in playflag1 0)                    ;RIFF-WAVE
                (
                    (set libname "APlayer/apRIFF-WAVE.library")
                    (InstallLib)
                )
            )

            (if (in playflag1 1)                    ;Ron Klaren
                (
                    (set libname "APlayer/apRonKlaren.library")
                    (InstallLib)
                )
            )

            (if (in playflag1 2)                    ;SID
                (
                    (set libname "APlayer/apSID.library")
                    (InstallLib)
                )
            )

            (if (in playflag1 3)                    ;Sound Monitor 2.0
                (
                    (set libname "APlayer/apSoundMon20.library")
                    (InstallLib)
                )
            )

            (if (in playflag1 4)                    ;StarTrekker 4
                (
                    (set libname "APlayer/apStarTrekker4.library")
                    (InstallLib)
                )
            )

            (if (in playflag1 5)                    ;StarTrekker 4AM
                (
                    (set libname "APlayer/apStarTrekker4AM.library")
                    (InstallLib)
                )
            )

            (if (in playflag1 6)                    ;Synthesis
                (
                    (set libname "APlayer/apSynthesis.library")
                    (InstallLib)
                )
            )

            (if (in playflag1 7)                    ;TFMX 7-Voices
                (
                    (set libname "APlayer/apTFMX_7V.library")
                    (InstallLib)
                )
            )

            (if (in playflag1 8)                    ;TFMX Professional
                (
                    (set libname "APlayer/apTFMX_Pro.library")
                    (InstallLib)
                )
            )
        )
    )
    (complete 60)

    (if arexx
        (if arexxflag
            (message "Du kan ikke installere ARexx endnu!!!")
        )
    )
    (complete 80)

    (if libs
        (
            (if (in libs 0)                         ;Reqtools
                (
                    (set libname "reqtools.library")
                    (InstallLib)
                )
            )

            (if (in libs 1)                         ;Powerpacker
                (
                    (set libname "powerpacker.library")
                    (InstallLib)
                )
            )

            (if (in libs 2)                         ;Xpkmaster
                (
                    (set libname "xpkmaster.library")
                    (InstallLib)
                )
            )

            (if (in libs 3)                         ;Unpack
                (
                    (set libname "unpack.library")
                    (InstallLib)
                )
            )
        )
    )
    (complete 90)

    (if xpk
        (
        (makedir "LIBS:compressors")

            (if (in xpk 0)                         ;xpkSMPL
                (
                    (set libname "compressors/xpkSMPL.library")
                    (InstallLib)
                )
            )

            (if (in xpk 1)                         ;xpkSQSH (68000)
                (
                    (working ("Testing compressors/xpkSQSH.library"))
                    (copylib
                        (prompt ("Do you want to install the compressors/xpkSQSH.library?"))
                        (help @copylib-help)
                        (source (tackon libdir
                                 "compressors/xpkSQSH000.library"))
                        (dest "LIBS:compressors")
                        (newname "xpkSQSH.library")
                        (confirm)
                    )
                )
            )

            (if (in xpk 2)                         ;xpkSQSH (68020)
                (
                    (working ("Testing compressors/xpkSQSH.library"))
                    (copylib
                        (prompt ("Do you want to install the compressors/xpkSQSH.library?"))
                        (help @copylib-help)
                        (source (tackon libdir
                                 "compressors/xpkSQSH020.library"))
                        (dest "LIBS:compressors")
                        (newname "xpkSQSH.library")
                        (confirm)
                    )
                )
            )
        )
    )
    (complete 100)
)

;--------------------------------------------------------------------------
; ** Remove Procedure

(procedure Remove
    (if (askbool
            (prompt "This procedure will remove all files associated to "
                    "the APlayer program. This means the program, docs, "
                    "preference files and all extern players.\n\n"
                    "Are you sure you want to continue?")
            (help "")
        )
        (
            (set @default-dest
                (askdir
                    (prompt "Select where the \"APlayer\" drawer are "
                            "stored.")
                    (help @askdir-help)
                    (default @default-dest)
                )
            )

            (working "Deleting the \"APlayer\" drawer...")
            (set ddir (tackon @default-dest "APlayer"))
            (delete (tackon ddir "APlayer"))
            (delete (tackon ddir "APlayer.info"))
            (delete (tackon ddir "HDInstall"))
            (delete (tackon ddir "HDInstall.info"))
            (delete (tackon ddir "Docs/APlayer.guide"))
            (delete (tackon ddir "Docs/APlayer.guide.info"))
            (delete (tackon ddir "Docs/Bonus.doc"))
            (delete (tackon ddir "Docs/Bonus.doc.info"))
            (delete (tackon ddir "Docs/MissingModules.txt"))
            (delete (tackon ddir "Docs/MissingModules.txt.info"))
            (delete (tackon ddir "Docs/SMPL.doc"))
            (delete (tackon ddir "Docs/SMPL.doc.info"))
            (delete (tackon ddir "Docs/SQSH.doc"))
            (delete (tackon ddir "Docs/SQSH.doc.info"))
            (delete (tackon ddir "Docs"))
            (delete (tackon ddir "Developers/Player.doc"))
            (delete (tackon ddir "Developers/Examples/apFredLibrary.S"))
            (delete (tackon ddir "Developers/Examples/apFuture13Library.S"))
            (delete (tackon ddir "Developers/Examples/apSoundMon20Library.S"))
            (delete (tackon ddir "Developers/Include3.0/Own/AccessiblePlayer.i"))
            (delete (tackon ddir "Developers/Include3.0/Own/SystemBases.i"))
            (delete (tackon ddir "Developers/Include3.0/Own/SystemOffsets.i"))
            (delete (tackon ddir "Developers/Include3.0/Own/SystemStructures.i"))
            (delete (tackon ddir "Developers/Examples"))
            (delete (tackon ddir "Developers/Include3.0/Own"))
            (delete (tackon ddir "Developers/Include3.0"))
            (delete (tackon ddir "Developers"))
            (delete ddir)
            (delete (tackon @default-dest "APlayer.info"))
            (delete "S:APlayer.FSS")
            (complete 33)

            (working "Deleting preference files...")
            (set ddir "ENVARC:APlayer")
            (delete (tackon ddir "APlayer.libs"))
            (delete (tackon ddir "APlayer.prefs"))
            (delete (tackon ddir "Protracker.cfg"))
            (delete (tackon ddir "IFF-8SVX.cfg"))
            (delete (tackon ddir "RIFF-WAVE.cfg"))
            (delete ddir)
            (complete 67)

            (working "Deleting extern players...")
            (set ddir "LIBS:APlayer")
            (delete (tackon ddir "apDigitalMugician.library"))
            (delete (tackon ddir "apDSS.library"))
            (delete (tackon ddir "apFred.library"))
            (delete (tackon ddir "apFuture13.library"))
            (delete (tackon ddir "apFuture14.library"))
            (delete (tackon ddir "apHolyNoise.library"))
            (delete (tackon ddir "apIFF-8SVX.library"))
            (delete (tackon ddir "apJamCracker.library"))
            (delete (tackon ddir "apMED.library"))
            (delete (tackon ddir "apMON.library"))
            (delete (tackon ddir "apMusicAss.library"))
            (delete (tackon ddir "apNoisePacker20.library"))
            (delete (tackon ddir "apNoisePacker30.library"))
            (delete (tackon ddir "apOctaMed.library"))
            (delete (tackon ddir "apOktalyzer.library"))
            (delete (tackon ddir "apQuadraComposer.library"))
            (delete (tackon ddir "apRIFF-WAVE.library"))
            (delete (tackon ddir "apRonKlaren.library"))
            (delete (tackon ddir "apSID.library"))
            (delete (tackon ddir "apSoundMon20.library"))
            (delete (tackon ddir "apStarTrekker4.library"))
            (delete (tackon ddir "apStarTrekker4AM.library"))
            (delete (tackon ddir "apSynthesis.library"))
            (delete (tackon ddir "apTFMX_7V.library"))
            (delete (tackon ddir "apTFMX_Pro.library"))
            (delete ddir)
            (complete 100)
        )
    )
)

;--------------------------------------------------------------------------
; ** Main Stript

(complete 0)
(set sdir (pathonly @icon))

(if (< (/ (getversion) 65536) 37)
    (abort "You must have Kickstart 2.0 or greater to use this installation"
           " utility and to run \"Accessible Player\".")
)

(message "This installer script will help you to install/remove "
         "\"Accessible Player\" to/from your hard disk.\n"
         "If you don't own one, abort immediately.")

(welcome)


; ** Ask to Install Or Remove

(set askflag (askbool
                (prompt "Do you want to install or remove "
                        "\"Accessible Player\"?")
                (help "")
                (choices "Install" "Remove")
             )
)

(if askflag
    (Install)                       ;Start Install Procedure
    (Remove)                        ;Start Remove Procedure
)