Amiga ISO Collection/AmigaUtilCD1.iso/Disk&HD/EDG-CM14.DMS/in.adf/install

Text File | 1995-10-24 | 21.7 KB | 925 lines

;*******************************************************************
;Installation script for CrossMAC
;********************************************************************

;$VER: Install 0.4 (28/9/95)


;Bugs in Installer V1.22:

;1. The "run" command does not accept a relative path.
;2. The tooltype delete feature is case-sensitive.

;mycopylib is used because of installer limitations. It uses the following global
;strings as input:
;mysource - source
;mydest - destination
;mynewname - new name

(procedure mycopylib
    (
        (set errorflag 0)
        ;form destination file
        (set destfile
            (tackon mydest mynewname)
        )
        (if
            (= 0
                (exists destfile)
            )
            (
                (copyfiles
                    (source mysource)
                    (dest mydest)
                    (newname mynewname)
                )
                (set errorflag 1)
            )
            (
                ;the destfile exists, so we must check the versions
                (if
                    (exists mysource)
                    (
                        (set sourcevernum (getversion mysource))
                        (set sourcever (/ sourcevernum 65536))
                        (set sourcerev (- sourcevernum (* sourcever 65536)))
                        (set destvernum (getversion destfile))
                        (set destver (/ destvernum 65536))
                        (set destrev (- destvernum (* destver 65536)))
                        (if
                            (or
                                (or
                                    (not ks20)
                                    (> sourcever destver)
                                )

                                (
                                    (and
                                        (= sourcever destver)
                                        (>= sourcerev destrev)
                                    )
                                )
                            )
                            (
                                (if
                                    (= @user-level 2)
                                    (
                                    (set errorflag 1)
                                    (if
                                        (askbool
                                            (prompt (cat "The version of \"" mynewname)
                                                 "\" currently on your system appears to be "
                                                 "older than the CrossMAC version. Select \"Skip\" to "
                                                 "preserve the version currently on your system, "
                                                 "or \"Overwrite\" to install the CrossMAC version "
                                                 "regardless."
                                            )
                                            (choices "Overwrite"
                                                    "Skip"
                                            )
                                            (help "Some features of CrossMAC require the version included "
                                                    "on the disk, even though the version may be lower, it "
                                                    "may be required to copy the lower version. "
                                                    "This message should only appear if you are "
                                                    "running Workbench 2.1 or later. If you are not, "
                                                    "select Overwrite to copy the CrossMAC file anyway."
                                            )
                                        )
                                        (
                                            (copyfiles
                                                (source mysource)
                                                (dest mydest)
                                                (newname mynewname)
                                            )
                                            (set errorflag 1)
                                        )
                                    )
                                    )
                                    (
                                            (copyfiles
                                                (source mysource)
                                                (dest mydest)
                                                (newname mynewname)
                                            )
                                            (set errorflag 1)
                                    )
                                )

                            )
                        )
                    )
                )
            )
        )
        (if
            (= errorflag 0)
            (
                ;Handle a version conflict
                (if
                    (= @user-level 2)
                    (
                        (if
                            (askbool
                                (prompt (cat "The version of \"" mynewname)
                                         "\" currently on your system appears to be "
                                         "newer than the CrossMAC version. Select \"Skip\" to "
                                         "preserve the version currently on your system, "
                                         "or \"Overwrite\" to install the CrossMAC version "
                                         "regardless."
                                )
                                (choices "Overwrite"
                                         "Skip"
                                )
                                (help "This message should only appear if you are "
                                      "running Workbench 2.1 or later. If you are not, "
                                      "select Overwrite to copy the CrossMAC file anyway."
                                )
                            )
                            (
                                (copyfiles
                                    (source mysource)
                                    (dest mydest)
                                    (newname mynewname)
                                )
                                (set errorflag 1)
                            )
                        )
                    )
                )
            )
        )
    )
)

;********************** CrossMAC UNinstallation **************************

;Enter with "deletedirstr" set to the name of the directory to terminate
;and deletepat with the amigados wildcards.
(procedure deletedir
    (    (if (= 2 (exists deletedirstr) )
            (    (foreach deletedirstr deletepat
                    (delete (tackon deletedirstr @each-name) )
                )
                (delete (tackon deletedirstr ".info") )
                (delete deletedirstr)
                (delete ( "%s.info" deletedirstr) )
            )
        )
    )
)


(procedure UnInstallCrossMAC
    (
        (if
            (askbool
                (prompt "About to UNinstall CrossMAC: This function will try to "
                        "remove CrossMAC and all the CrossMAC utilities completely from your system. "
                        "Are you sure you want to uninstall CrossMAC?"
                )
                (help "This function will try to remove CrossMAC from your system "
                      "to the extent that it is possible to do so safely. Some parts "
                      "of CrossMAC \(such as replacement Mount, Format, and Diskcopy "
                      "commands\) will not be removed, because doing so might "
                      "disrupt the normal functioning of the system. Only in very "
                      "extreme cases should you find it neccessary to revert to the "
                      "to the original \(Commodore-supplied\) commands."
                )
            )
            (
                (delete "l:CrossMACFileSystem")
                ; mfm.device may be used by CrossDOS
                (delete "devs:dosdrivers/mac0")
                (delete "devs:dosdrivers/mac1")
                (delete "devs:dosdrivers/mac2")
                (delete "devs:dosdrivers/mac3")
                (delete "devs:dosdrivers/mac0.info")
                (delete "devs:dosdrivers/mac1.info")
                (delete "devs:dosdrivers/mac2.info")
                (delete "devs:dosdrivers/mac3.info")
                (delete "env:sys/crossmac_def_disk.info")
                (delete "envarc:sys/crossmac_def_disk.info")


                ; Now the CrossMAC utilities, make sure it is not the disk (boy would I feel dumb)
                (set dpath (getassign "CrossMAC"))
                (if (NOT (= dpath ""))
                    (  ; Okay to Delete
                        (delete (tackon dpath "File_Type_Manager"))
                        (delete (tackon dpath "File_Type_Manager.info"))
                        (delete (tackon dpath "FTypCrtr_db"))
                        (delete (tackon dpath "Mac_File_Salv"))
                        (delete (tackon dpath "Mac_File_Salv.info"))
                        (delete (tackon dpath "Res_Extractor"))
                        (delete (tackon dpath "Res_Extractor.info"))
                        (delete (tackon dpath "VHex"))
                        (delete (tackon dpath "VHex.info"))
                        (delete (tackon dpath "CrossMAC"))
                        (delete (tackon dpath "CrossMAC.info"))
                    )
                )


                ;Comment-out the main mount command from the user-startup

                (if
                    (exists "s:user-startup")
                    (
                        (startup "CrossMAC -- Assign"
                            (prompt "This step will disable the CrossMAC assign in the user-startup"
                            )
                            (help   "This step will disable the CrossMAC assign in the user-startup. "
                                "The assignment of CrossMAC must be removed before the CrossMAC drawer can be removed."
                            )
                            (command ";Assign CrossMac: \"" (getassign "CrossMac") "\" ")
                        )

                        (if (NOT (= (getassign "CrossMAC") ""))  ; Only bother if there is an assignment of CrossMAC
                            (
                                (set drawername (getassign "CrossMAC"))
                                (run "assign CrossMac: remove")
                                (delete drawername)
                            )
                        )
                    )
                )
                (message "Finished UnInstalling CrossMAC. If you have manually moved "
                         "parts of CrossMAC from their normal location, those files "
                         "are still on your disk."
                )
            )
        )
    )
)

;********************** CrossMAC installation **************************

(procedure ModifyStartup
    (
        (startup "CrossMAC -- Assign"
            (prompt "About to install a command in s:user-startup to assign "
                    "CrossMAC to the CrossMAC utilities drawer..."
            )
            (help "Without this assign the CrossMAC icons will not be able to "
                    "locate the utilities.  This assignment will not be made until "
                    "the next time you reboot.  Until that time access to any utilities "
                    "will be made from the CrossMAC floppy. "
            )
            (command "failat 21\n"
                "Assign CrossMAC: \"" utildir "\" \n"
            )
        )
    )
)

(procedure ModifyStartupMount
    (
        (startup "CrossMAC - automatically mount all devices"
            (prompt "About to install a command in s:user-startup to automatically "
                    "start CrossMAC when you boot your system..."
            )
            (help "Normally you want CrossMAC to be automatically invoked every "
                  "time you start your system."
            )
            (command "Mount >nil: devs:DOSDrivers/~(#?.info)")
        )
    )
)

(procedure InstallCrossMAC
    (
        (message "About to install CrossMAC...")


        ;Create certain directories if they don't exist
        (makedir "l:FileSystem_Trans"
            (infos)
        )
        (makedir "sys:system"
            (infos)
        )

        ;The purpose of this is to create an icon for the devs: directory
        ;if needed.
        (makedir
            (getassign "devs")
            (infos)
        )
        (makedir "devs:DOSDrivers"
            (infos)
        )


        ;Install mfm.device

        ; test for gary bug

        (if  (run ":diag/garytest")
            (
                (message "Installing the modified mfm.device based on the results from the Gary Test."
                        "The screen may blink while using the FileSystem and this mfm.device.")
                (copyfiles
                    (source ":devs/mfm.device.gary")
                    (dest "devs:")
                    (newname "mfm.device")
                )
            )
            (
                (set mysource "devs/mfm.device" )
                (set mydest "devs:")
                (set mynewname "mfm.device")
                (mycopylib)
            )
        )

        ;Install CrossMACFileSystem

        (set mysource "l/CrossMACFileSystem" )
        (set mydest "l:")
        (set mynewname "CrossMACFileSystem")
        (mycopylib)


        ;Install Mount command

        (set mysource "c/Mount" )
        (set mydest "c:")
        (set mynewname "Mount")
        (mycopylib)


        ;Copy Floppy Mountfiles to devs:dosdrivers
        (foreach ":" "MAC?"
            (
                (copyfiles
                    (source
                        (":%s" @each-name)
                    )
                    (dest "devs:DOSDrivers")
                )
                (copyfiles
                    (source (":%s.info" @each-name) )
                    (dest "devs:DOSDrivers")
                )
                (tooltype
                    (dest ("devs:DOSDrivers/%s" @each-name) )
                    (noposition)
                    (setdefaulttool "c:Mount")
                    ;Delete the "filesystem=" entry
                    ;Case-sensitive!!! (yet another installer bug)
                    (settooltype "FILESYSTEM")
                )
            )
        )

        ;Install Format
        (set mysource ":system/Format" )
        (set mydest "sys:system")
        (set mynewname "Format")
        (mycopylib)


    ;Install alternate format icons
    (if (= 0
            (exists "envarc:sys/crossmac_def_disk.info") )
        (
            (copyfiles (source ":c/crossmac_def_disk.info")
                       (dest   "envarc:sys")
                       (optional "nofail")
            )
        )
    )

    (if (= 0
        (exists "env:sys/crossmac_def_disk.info") )
        (
            (copyfiles (source ":c/crossmac_def_disk.info")
                       (dest   "env:sys")
                       (optional "nofail")
            )
        )
    )

    (if 0
        (
        (set deletedirstr "sys:system/alt_formats")
        (set deletepat "#?")
        (deletedir)

            (
                (makedir "sys:system/Alt_Formats"
                    (infos)
                )

                (foreach ":system/Alt_Formats" "#?.Format.info"
                    (
                        (copyfiles
                            (source (":system/Alt_Formats/%s" @each-name) )
                            (dest "sys:system/Alt_Formats")
                            (optional "nofail")
                        )

                        ;Create a version of @each-name without the .info
                        (set infoname
                            (substr @each-name 0
                                (-
                                    (strlen @each-name)
                                    5
                                )
                            )
                        )

                        (tooltype
                            (dest ("sys:system/Alt_Formats/%s" infoname) )
                            (noposition)
                            (setdefaulttool "sys:system/Format")
                        )
                    )
                )
            )
        )
    )

        ;Install DiskCopy

        (set mysource ":system/DiskCopy")
        (set mydest "sys:system")
        (set mynewname "DiskCopy")
        (mycopylib)


        ;FType.Mac I'm doing some checking so I don't write over their customized ftype

        (if (NOT (exists "l:FileSystem_Trans/FTypeDB.mac" (noreq)))
            (copyfiles
                (source ":l/FileSystem_Trans")
                (dest "l:FileSystem_Trans")
                (all)
            )
        )

        ;Enter mount command in s:user-startup. Previously we did this whenever
        ;installing on a new CD user's system. Now we don't care whether he has
        ;an old CD, but we do avoid inserting it into the u-s if the user is
        ;running Workbench 2.1 or higher, unless we are in expert mode and
        ;the user overrides our wisdom.

        (if
            (and
                (= @user-level 2)
                wb21
            )
            (
                (if
                    (askbool
                        (prompt "If you select \"Install\", a command will be "
                                "inserted into your s:user-startup file to mount "
                                "all devices in the DOSDrivers drawer. Since you are "
                                "running Workbench 2.1 or above, however, this command should "
                                "already be there, unless you have extensively customized your "
                                "system. Select \"Skip\" to avoid adding a "
                                "redundant command \(which won't hurt, but will slow down "
                                "booting\)."
                        )
                        (choices "Install" "Skip")
                        (help "In most cases you should select \"Skip\".")
                    )
                    (
                        (user 0)
                        (ModifyStartupMount)
                        (user 2)
                    )
                )
            )
            (
                (if (NOT nomount)
                    (ModifyStartupMount)
                )
            )
        )

        ;Mount the stuff now so the user can use it immediately

        ;This 'run' is safe because c: is an explicit path
        (run "c:Mount >nil: devs:DOSDrivers/~(#?.info)")

        (message "CrossMAC is now installed.")
    )
)

;********************** CrossMAC Utilities installation **************************

(procedure InstallCrossMACUtils
    (

        (message "About to install CrossMAC Utilities...")

        (set utildir (pathonly (getassign "CrossMAC")))

        (if (= utildir "")
            (set utildir "Sys:")
        )

        (set utildir
            (askdir
                (prompt "Please select a disk where we will create the CrossMAC drawer and "
                        "copy the CrossMAC Utilities to. "
                )
                (help "The CrossMAC has a few utilities which increase the functionality of "
                        "accessing Mac disks and files. An assign will be made to use some of "
                        "these utilities with the CrossMACFileSystem.  Choose "
                        "any drive/drawer. Use the \"Make New Drawer\" option "
                        "to create a new drawer, if desired, but remember we do create "
                        "a new drawer called CrossMAC."
                )
                (default utildir)
                (disk)
            )
        )

        (set utildir (tackon utildir "CrossMAC"))

        (makedir utildir
                 (infos))

        (set def_utils  %00111111)
        (set utils
            (askoptions
                (prompt "Please select utilities to install.")
                (choices ("CrossMAC commodity %ldK" (/ (+ (getsize ":system/CrossMAC") 500) 1000))
                         ("VHex               %ldK" (/ (+ (getsize ":VHex") 500) 1000))
                         ("Resource Extractor %ldK" (/ (+ (getsize ":Res_Extractor") 500) 1000))
                         ("Mac File Salv      %ldK" (/ (+ (getsize ":Utils/Mac_File_Salv") 500) 1000))
                         ("File_Type_Manager  %ldK" (/ (+ (getsize ":Utils/File_Type_Manager") 500) 1000))
                         ("DiskChg            %ldK" (/ (+ (getsize ":system/DiskChg") 500) 1000))
                )
                (default def_utils)
                (help " CrossMAC commodity allows global text translation and the ability to eject "
                      "AMax cartridge disks.\n\n"
                      " View Hex views files or memory and displays the information in a "
                      "hexadecimal format.  View Hex is the default viewer for Mac data fork files. "
                      "\n\n The Resource Extractor extracts Mac resources from a resource "
                      "fork file into individual files.  Resource Extractor is the default viewer for "
                      "Mac resource fork files. "
                      "\n\n Mac File Salv recovers files from a damaged CrossMAC disk."
                      "\n\n The File_Type_Manager allows the user to update the filetype database used "
                      "by the FileSystem.  This allows the user to set the FileType and Creator "
                      "information for files.\n\n"
                      " DiskChg allows the user to force a diskchange for those drives which do not "
                      "support automatic disk changes."
                      "\n\n More information may be found in the CrossMAC manual."

                )
            )
        )


        (if (in utils 0)
            (
                (set mysource ":system/CrossMAC" )
                (set mydest utildir)
                (set mynewname "CrossMAC")
                (mycopylib)

                (copyfiles
                    (source ":system/CrossMAC.info")
                    (dest utildir)
                )
                (tooltype
                    (dest (tackon utildir "CrossMAC"))
                    (noposition)
                )
            )
        )

        (if (in utils 1)
            (copyfiles
                (source ":VHex")
                (dest utildir)
                (infos)
            )
        )

        (if (in utils 2)
            (copyfiles
                (source ":Res_Extractor")
                (dest utildir)
                (infos)
            )
        )

            (if (in utils 3)
            (copyfiles
                (source ":Utils/Mac_File_Salv")
                (dest utildir)
                (infos)
            )
        )

        (if (in utils 4)
            (
                (copyfiles
                    (source ":Utils/File_Type_Manager")
                    (dest utildir)
                    (infos)
                )
                (copyfiles
                    (source ":Utils/FTypCrtr_db")
                    (dest utildir)
                )
            )
        )

        (if (in utils 5)
            (

                (copyfiles
                    (source ":system/DiskChg")
                    (dest "sys:system")
                    (infos)    ;required!!!
                )
                (tooltype
                    (dest "sys:system/DiskChg")
                    (noposition)
                )
            )
        )

        ; Add the CrossMAC assign to the drawer
        (ModifyStartup)

        (message "CrossMac Utilities are now installed.")
    )
)

;********************** Configure Hard Disk **************************

(procedure ConfigureHardDisk
    (    (if
            (= 0
                (exists "l:CrossMACFileSystem")
            )
            (
                (message "CrossMAC is not currently installed. It must "
                         "be installed before you can configure a hard drive. "
                         "Switching to CrossMAC installation..."
                )
                (InstallCrossMAC)
            )
        )

        (set opt
            (askchoice
                (choices "Configure on an Amiga Partition"
                         "Configure a 100% Mac Hard Disk"
                         "Configure a Disk File"
                         "Configure a Mac CD-ROM Disk"
                )
                (prompt "Please select an option. * Hit HELP for details!!! *")
                (help "   \"Configure on an Amiga Partition\"\n"
                      "if you want to configure one of your Amiga partitions "
                      "for use as a Mac hard drive image.\n"
                      "   \"Configure a 100% Mac Hard Disk\"\n"
                      "if you want to configure an entire PHYSICAL hard drive "
                      "(such as a SyQuest or Bernoulli etc).\n"
                      "   \"Configure a Disk File\"\n"
                      "if you want to use a file as an Mac disk image (such "
                      "as ShapeShifter, or EMPLANT disk files).\n"
                      "   \"Configure a Mac CD-ROM Disk.\"\n"
                      "if you want to configure a CD-ROM drive to read Mac "
                      "HFS CD-ROMs."
                )
            )
        )

        (set driveprefix "MHD")

        ;Create a temporary directory

        (makedir "ram:CrossMACTemp")

        (set MountListDir "ram:CrossMACTemp")
        (makedir MountListDir)

        ;Run the ConfigDev program
        (if (= opt 0) (set drivetype "PARTITION") )
        (if (= opt 1) (set drivetype "DISK") )
        (if (= opt 2)
            (    (set drivetype "FILE")
                    ;Install filedisk.device
                (set mysource "devs/filedisk.device")
                (set mydest "devs:")
                (set mynewname "filedisk.device")
                (mycopylib)
            )
        )
        ; CD-ROM Drive
        (if (= opt 3)
            (    (set driveprefix "MCD")
                (set drivetype "DISK")
                (set addopts "SCSI_DIRECT ANYBLOCKSIZE BLOCKSIZE=2048 BUFFERS=60")
            )
        )

        (run ("%sc/ConfigDisk MAC %s PREFIX=%s %s" @execute-dir drivetype driveprefix addopts))
    )
)


;********************** Product Registration **************************

(procedure Register
    (    (run ("%sc/Registration %sRegistrationInfo" @execute-dir @execute-dir)))
)

;***************************************************************************
;***************************** MAIN ****************************************
;***************************************************************************


;Force user level to 1 or 2. This is unfortuntely required because otherwise
;we can't present a menu of choices to the user.
(if
    (= @user-level 0)
    (
        (user 1)
        (set @user-level 0)
    )
)


; We can install anywhere as long as it looks like the original CrossMAC disk

(if
    (not
        (exists "l/CrossMACFileSystem")
    )
    (
        (message "Unable to locate CrossMACFileSystem. "
                 "Exiting..."
        )
        (exit
            (quiet)
        )
    )
)

;Initialize certain variables
(set pcdir "")
(set harddisk "")

;(set disklabel
;    (expandpath ":")
;)
;(set @execute-dir disklabel)

;get Kickstart version number
(set ksver
    (/
        (getversion "exec.library"
            (resident)
        )
        65536
    )
)

;set ks20 variable to 1 if running Kickstart 2.04 or above
(set ks20
    (> ksver 36)
)

;get Workbench version number
(set wbver
    (/
        (getversion "version.library"
            (resident)
        )
        65536
    )
)

;set wb21 variable to 1 if running Workbench 2.1 or above
(set wb21
    (> wbver 37)
)

; if mount command IS GREATER than 37 than has CrossDos or WB2.1 or Greater
(set nomount
 (> (/  (getversion "c:mount") 65536) 37)
 )

; Check whether 2.04 or above if not quit
(if (NOT ks20 )
    (    (message "CrossMAC only works on machines with Kickstarts above 2.04. "
                "Exiting.."
        )

        (exit (quiet) )
    )
)


(while 1
    (

        ;Attempt to determine what the default menu options should be
        (set defmenu 0)
        (if
            (not
                (exists "l:CrossMACFileSystem")
            )
            (set defmenu
                (bitor defmenu %00000011)  ; Set Install and Fill out  --> right to left
            )
        )

        (if
            (not
                (exists "s:Registration.data")
            )
            (set defmenu
                (bitor defmenu %00001000)  ; Set Install and Fill out  --> right to left
            )
        )


        ;Ask the user what he wants to install or do.

        (set mainopt
            (askoptions
                (prompt "Please select all functions that you wish to perform")
                (choices "Install CrossMAC FileSystem"
                         "Install CrossMAC Utilities"
                         "Configure Hard Disk or CD-ROM"
                         "Fill out Product Registration"
                         "Uninstall CrossMAC"
                )
                (default defmenu)
                (help " The \"Install CrossMAC FileSystem\" option installs the "
                        "filesystem. \n\nThe \"Install CrossMAC Utilities\" installs utilities "
                        "that accompany the CrossMAC FileSystem.\n\n The \"Configure Hard Disk or CD-ROM\" "
                        "option will run ConfigDisk, which allows you to set up a drive, "
                        "partition or CD-ROM for CrossMAC. \n\n The \"Fill out Product Registration\" option will "
                        "prompt you for your name and address, and print it to PRT: (the "
                        "default printer). Using the registration software eliminates "
                        "the difficulties we sometimes have reading hand-written registration cards. "
                        " \n\n Use the \"Uninstall CrossMAC\" option to remove CrossMAC."
                )
            )
        )

        (if
            (= mainopt 0)
            (
                (message "You didn\'t select anything. Exiting...")
                (exit
                    (quiet)
                )
            )
        )

        (if
            (NOT (and
                    (in mainopt 4)
                    (BITAND mainopt %00001111)
                )
            )
            (
                (if
                    (in mainopt 0)
                    (
                        (InstallCrossMAC)
                    )
                )

                (if
                    (in mainopt 1)
                    (InstallCrossMACUtils)
                )

                (if
                    (in mainopt 2)
                    (ConfigureHardDisk)
                )
                (if
                    (in mainopt 3)
                    (Register)
                )
                (if
                    (in mainopt 4)
                    (UninstallCrossMAC)
                )
                (exit
                    (quiet)
                )
            )
            (
                (message "The uninstall option cannot be selected in conjunction "
                         "with any other options. Perhaps you accidentally "
                         "selected it."
                )
            )
        )
    )
)