Amiga ISO Collection/AmigaUtilCD2.iso/Misc/PROCONTROL1'0.DMS/in.adf/Install-ProCONTROL

Text File | 1993-04-10 | 11.6 KB | 482 lines

; ************************************************
; *
; * $VER: Install-ProCONTROL v1.0.0 (02.04.93)
; *
; * This is the installation script for Doug Crane's ProCONTROL,
; * a Batch Processing Front-End for ASDG's Art Department Professional and MorphPlus.
; *
; * Software is Copyright © 1992-1993 Doug Crane  All Rights Reserved
; * Manual is Copyright © 1993 Doug Crane and ASDG, Incorporated  All Rights Reserved
; * Published by ASDG, Incorporated
; *
; ************************************************


; ****************************
; * Set up some global variables.
; ****************************
;
(set ProductName        "ProCONTROL")        ; product name
(set ProductBaseName        "ProCONTROL")        ; product base name
(set VersionNum            "1.0")            ; product version number

(set OSVersion            (/ (getversion) 65536))
(set TotalFiles            0)
(set AccumFiles            0)
(set PctDone            0)
(set DisplayReadMe        0)

(set Disk1Name            "ProCONTROL")        ; actual name of disk 1

(set DiskInstall        Disk1Name)        ; installation (main) disk


(procedure setDirPath
;
; ****************************
; * Ask the user for a directory name.
; ****************************
;
; these variables must be defined before calling this procedure:
;    setDirPathWhy
;    setDirPathHelp
;    DirPath
;
; this procedure returns the selected directory in DirPath
;
    (
    (set moveon    FALSE)
    (while (NOT moveon)
        (
        (set DirPath
            (askdir
                (prompt    ("Please select the directory %s" setDirPathWhy)
                )
                (help    setDirPathHelp
                    "\n"
                    @askdir-help
                )
                (default DirPath)
            )
        )

        (if (= (exists DirPath) 0)
            (makedir DirPath)
            (set moveon    TRUE)
        )
        )
    )
    )
)


(procedure copyLibFile
;
; ****************************
; * Copy the specific library file to the LIBS: directory.
; ****************************
;
; these variables must be defined before calling this procedure:
;
;    copyLibFileName
;    copyLibFileHelp
;    DirPath
;
    (
    (if (= (exists (tackon DirPath copyLibFileName)) 1)
        (
        (protect (tackon DirPath copyLibFileName) "+rwed")
        )
    )
    (copylib
        (prompt    ("Copying %s to %s" copyLibFileName copyLibFileSize DirPath))
        (help    copyLibFileHelp
            "\n"
            "If you already have a copy of this library in the selected destination directory, the library "
            "included on the distribution disk will be compared to the one you "
            "already have.  If your current library is an old version, the newer "
            "version will be installed.\n"
            "\n"
            @copylib-help
        )
        (source copyLibFileName)
        (dest DirPath)
        (confirm)
    )
    )
)


(procedure deleteIfExists
;
; ****************************
; * Delete the given file, if it exists.
; ****************************
;
; these variables must be defined before calling this procedure:
;
;    deleteFileName
;
    (
    (if (= (exists deleteFileName) 1)
        (
        (protect deleteFileName "+rwed")
        (delete deleteFileName)
        )
    )
    )
)


(procedure dumpLZFile2Dir
;
; ****************************
; * Extract (dump) all files from an LZ-extractable archive file.
; ****************************
;
;    workingMsg
;    arcFileName
;    destDirName
;
    (
    (working workingMsg)
    (set lzrc    (run ("RAM:lz -N -wRAM: x %s \"%s\"" arcFileName destDirName)))
    (if (<> lzrc 0)
        (message
            ("Error decompressing %s's files into the %s directory." arcFileName destDirName)
            "\n"
            "Be sure that the directory you have specified as the "
            "destination exists and has enough free space in it "
            "to accept new files.  Also be sure that if the file "
            "to be copied already exists, that the existing file "
            "isn't protected from being overwritten or deleted.")
    )
    )
)


(procedure incrementMeter
;
; ****************************
; * Increment the progress meter indicator.
; ****************************
;
;    addToMeter
;
    (
    (set PctDone    (/ (* AccumFiles 100) TotalFiles))
    (set AccumFiles    (+ AccumFiles addToMeter))
    (complete PctDone)
    )
)


(procedure addToUserStartup
;
; ****************************
; * Assigns a name to a particular directory.  Optionally adds it to the
; * S:user-startup file, if requested.
; ****************************
;
;    userStartupAppName
;    userStartupAssignName
;    userStartupAssignToName
;    userStartupHelp
;
    (
    (startup
        (userStartupAppName)
        (prompt ("Add %s: assignment to \"S:user-startup\"?" userStartupAssignName))
        (help    userStartupHelp
            "\n"
            ("Select the Proceed button to add an %s: assignment to the S:user-startup file.\n" userStartupAssignName)
            "\n"
            @startup-help)
        (command ("assign %s: \"%s\"" userStartupAssignName userStartupAssignToName))
    )
    (makeassign userStartupAssignName userStartupAssignToName)
    )
)


; ****************************
; * ProCONTROL Installation routine
; ****************************
;
(procedure ProCONTROLInstall
    (
    ; ****************************
    ; * Install the Program
    ; ****************************
    ;
    (makeassign "PROCONTROLINSTALL" ProCONTROLDir)

    (set addToMeter    2)
    (incrementMeter)

    (copyfiles
        (prompt    ("Installing %s..." ProductName))
        (help    "")
        (source    ("%s:%s/%s" DiskInstall ProductBaseName ProductBaseName))
        (dest    "PROCONTROLINSTALL:")
        (infos)
    )
    )
)


; ****************************
; * CONTROLfiles Installation routine
; ****************************
;
(procedure CONTROLfilesInstall
    (
    ; ****************************
    ; * Install the CONTROL files
    ; ****************************
    ;
    (set CONTROLfilesDir    (tackon ADProDir "CONTROLfiles"))

    (onerror
        (abort    ("The directory %s could not be created. " CONTROLfilesDir)
            "This might be because your destination disk or drawer "
            "has no room or is write protected. This installation "
            "cannot continue."
        )
    )
    (if (= (exists CONTROLfilesDir) 0)
        (makedir CONTROLfilesDir)
    )
    (makeassign "PROCONTROLINSTALL" CONTROLfilesDir)
    (onerror
        (cleanUp)
    )

    (set addToMeter    1)                    ; CONTROLfiles files
    (incrementMeter)

    (set workingMsg        ("Unarchiving %s support files..." ProductName))
    (set arcFileName    ("%s:CONTROLfiles.lha" DiskInstall))
    (set destDirName    "PROCONTROLINSTALL:")
    (dumpLZFile2Dir)
    )
)


; ****************************
; * Tutorials Installation routine
; ****************************
;
(procedure TutorialsInstall
    (
    ; ****************************
    ; * Install the tutorial files
    ; ****************************
    ;
    (makeassign "PROCONTROLINSTALL" ProCONTROLDir)

    (set addToMeter    1)                    ; tutorial files
    (incrementMeter)

    (set workingMsg        "Unarchiving tutorial files...")
    (set arcFileName    ("%s:Tutorials.lha" DiskInstall))
    (set destDirName    "PROCONTROLINSTALL:")
    (dumpLZFile2Dir)
    )
)


; ****************************
; * Sentry Support Installation routine
; ****************************
;
(procedure SentrySupportInstall
    (
    ; ****************************
    ; * Install the Sentry support files
    ; ****************************
    ;
    (makeassign "PROCONTROLINSTALL" ProCONTROLDir)

    (set addToMeter    1)                    ; Sentry files
    (incrementMeter)

    (set workingMsg        "Unarchiving Sentry support files...")
    (set arcFileName    ("%s:SentrySupport.lha" DiskInstall))
    (set destDirName    "PROCONTROLINSTALL:")
    (dumpLZFile2Dir)
    )
)


; ****************************
; * General CleanUp routine
; ****************************
;
(procedure cleanUp
    (
    ; ****************************
    ; * remove temporary assignment
    ; ****************************
    ;
    (makeassign "PROCONTROLINSTALL")


    ; ****************************
    ; * delete temporary files.
    ; ****************************
    ;
    (set deleteFileName    "RAM:lz")
    (deleteIfExists)


    ; ****************************
    ; * exit the program.
    ; ****************************
    ;
    (complete 100)

    (if (= DisplayReadMe 1)
        (
        (if (< OSVersion 37)
            (run ("c:run %s:C/More %s:ReadMe" DiskInstall DiskInstall))
            (run ("run %s:C/More %s:ReadMe" DiskInstall DiskInstall))
        )
        )
    )

    (exit)
    )
)


; *************************************************************************
; *                         ACTUAL START OF SCRIPT
; *
; * Ask all questions for the user now, do all of the work later.
; *************************************************************************
;
(onerror
    (cleanUp)
)

; ****************************
; * set the default destination to ADPRO: (this needs to be available).
; ****************************
;
(set @default-dest    "SYS:ADPro")

(set continueOn 0)
(while (<> continueOn 1)
    (
    (if (= (getassign "ADPRO" "a") "")
        (
        (set setDirPathWhy    "where the ADPro or MorphPlus program is located.")
        (set setDirPathHelp     ("You must specify the location of the ADPro or MorphPlus program so that %s can find the modules necessary for operation.\n" ProductName))
        (set DirPath        @default-dest)
        (setDirPath)

        (set ADProDir        DirPath)
        (set @default-dest    ADProDir)

        (set userStartupAppName        "ADPro/MorphPlus")
        (set userStartupAssignName    "ADPRO")
        (set userStartupAssignToName    ADProDir)
        (set userStartupHelp        "When the Installer program asks if you want to place this assignment into your S:user-startup file, you should select the Proceed button; otherwise, the next time you boot up your machine, the program won't be able to find the necessary files it needs to run.\n")
        (addToUserStartup)
        )
        (
        (set ADProDir        (getassign "ADPRO" "a"))
        (set @default-dest    ADProDir)
        (set continueOn 1)
        )
    )
    )
)

(set TotalFiles        (+ TotalFiles 1))            ; CONTROLfiles files

(set continueOn 0)
(while (<> continueOn 1)
    (
    (set setDirPathWhy    ("where you want to install the %s program, tutorial files, and Sentry support files." ProductName))
    (set setDirPathHelp     ("The %s program, tutorial files, and Sentry support files can be installed anywhere, as long as they're in the same directory.  If you are unsure where to place it, simply press the Proceed button to accept the default directory of %s.\n" ProductName @default-dest))
    (set DirPath        @default-dest)
    (setDirPath)

    (set ProCONTROLDir    DirPath)
    (set @default-dest    ProCONTROLDir)

    (if (= 1 (askbool
        (prompt    ("\nThe %s program, tutorial files, and Sentry support files will be installed in the following directory:\n\n%s\n\n\nIs this correct?" ProductBaseName DirPath))
        (help    ("This panel displays what you have told the Installer is the directory where %s, the tutorial files, and the Sentry files will be installed. " ProductBaseName)
            "It is so that you know exactly where the program will be placed.\n"
            "\n"
            "To select a different directory, press the No button.  Otherwise, press the "
            "Yes button to proceed with the installation process.\n")))
        (set continueOn        1)
    )
    )
)

(set TotalFiles        (+ TotalFiles 2))            ; ProCONTROL + icon
(set TotalFiles        (+ TotalFiles 1))            ; Tutorial files
(set TotalFiles        (+ TotalFiles 1))            ; Sentry files

(set TotalFiles        (+ TotalFiles 1))            ; lz

(if (= (exists "LIBS:arp.library") 0)                ; arp.library
    (set TotalFiles    (+ TotalFiles 1))
)


(complete 0)

(message "\nShall I proceed with the installation?"
    (help    "Once you press the Proceed button, the selected items will be installed.  This is your last chance "
        "to abort this procedure without partially installing the selected files.\n"
        "\n"
        "After you press Proceed, you can use the Esc key to abort the installation procedure.\n")
)


; ****************************
; * copy arp.library to the LIBS: directory so that the lz unarchiver
; * can do its thing.
; ****************************
;
(set addToMeter    1)
(incrementMeter)

(set copyLibFileName    ("%s:Libs/arp.library" DiskInstall))
(set copyLibFileHelp    ("This library is required to install %s, but not to run it.\n" ProductName))
(set DirPath        "LIBS:")
(copyLibFile)


; ****************************
; * copy lz to the RAM: directory.
; ****************************
;
(set addToMeter    1)
(incrementMeter)

(copyfiles
    (prompt "")
    (help "")
    (source ("%s:C/lz" DiskInstall))
    (dest "RAM:")
)
(onerror
    (cleanUp)
)


(ProCONTROLInstall)
(CONTROLfilesInstall)
(TutorialsInstall)
(SentrySupportInstall)

(set DisplayReadMe    1)
(cleanUp)