Amiga ISO Collection/AmigaUtilCD2.iso/Workbench/dosdrivers/CrossMAC103.lha/Patcher

Text File | 1995-02-10 | 8.2 KB | 300 lines

;Script to apply patches
;$VER: Patcher 5.07 (27.12.94)
;Copyright © 1992-1994 CONSULTRON.  All rights reserved
; Use of this script in commercial products is expressly forbidden without
; written permission.
;
; The program spatch is provided by SAS Institute.  They retain all copyrights
; to that program.  It is available for commercial distribution only to those
; users who have purchased their SAS C Compiler and are registered with them.

;***************************************************************************

;Copy a new file to the product disk
;Input: newfile (path and name of new file)

(procedure copynew
    (    (if (not PatchOnly)
            (    (if (getsize ("%ld/%s" wversion newfile) )
                    (    (if (not DeleteOnly)
                            (    (copyfiles
                                    (source ("%ld/%s" wversion newfile) )
                                    (dest (pathonly ("%s%s" prod newfile) ) )
                                )
                            )
                        )
                    )
                    (    (delete ("%s%s" prod newfile) ) )
                )
;                (if    (> wversion currentver )
;                    (set currentver wversion)
;                )
            )
        )
    )
)

;***************************************************************************

;Perform an spatch
;Input: file (path and file to patch)

(procedure patch
    (    (if (and (not DeleteOnly) (not CopyOnly) )
            (    (set patchfile ("%ld/%s" wversion file) )
                (set prodfile ("%s%s" prod file) )
                (set prodfile (substr prodfile 0 (- (strlen prodfile) 1 ) ) )
                (set tempdir "ram:")
                (set temp ("%s%s" tempdir (fileonly prodfile)))
                (if    (= 0 (run ("%s -o%s -p%s %s" spatch temp patchfile prodfile) ))
;                    (if    (> wversion currentver )
;                        (set currentver wversion)
;                    )
                )
                ;Replace original file with temp file
                (if (> (getsize temp) 10 )
                    (    ;Clone protection bits
                        (protect temp (protect patchfile) )
                        (copyfiles
                            (source temp)
                            (dest (pathonly prodfile) )
                            (newname (fileonly prodfile) )
                        )
                    )
                )
                ;Delete temporary file
                (delete temp)
            )
        )
    )
)


;Apply the spatch stuff
;Set DeleteOnly for delete phase

;**************************************************************************
(procedure DoPatch
    (    (while (exists ("%ld" wversion) (noreq) )
            (    (foreach ("%ld" wversion) "#?"
                    (    ;(debug @each-name)
                        (if (< @each-type 0)    ;check for file
                            (    (if (= "@" (substr @each-name (- (strlen @each-name) 1 )))
                                    (    ;Apply patches with spatch
                                        (set file @each-name)
                                        (patch)
                                    )
                                    (    ;Copy the file directly
                                        (set newfile @each-name)
                                        (copynew)
                                    )
                                )
                            )
                            (    ;@each-name is a directory
                                (set dir @each-name)
                                (foreach ("%ld/%s" wversion dir) "#?"
                                    (    (if (< @each-type 0)    ;check for file
                                            (    (if (= "@" (substr @each-name (- (strlen @each-name) 1 )))
                                                    (    ;Apply patches with spatch
                                                        (set file (tackon dir @each-name))
                                                        (patch)
                                                    )
                                                    (    ;Copy the file directly
                                                        (set newfile (tackon dir @each-name))
                                                        (copynew)
                                                    )
                                                )
                                            )
                                            (    ;@each-name is a directory
                                                (set dir2 (tackon dir @each-name))
                                                (foreach ("%ld/%s" wversion dir2) "#?"
                                                    (    (if (< @each-type 0)    ;check for file
                                                            (    (if (= "@" (substr @each-name (- (strlen @each-name) 1)))
                                                                    (    ;Apply patches with spatch
                                                                        (set file (tackon dir2 @each-name))
                                                                        (patch)
                                                                    )
                                                                    (    ;Copy the file directly
                                                                        (set newfile (tackon dir2 @each-name))
                                                                        (copynew)
                                                                    )
                                                                )
                                                            )
                                                        )
                                                    )
                                                )
                                            )
                                        )
                                    )
                                )
                            )
                        )
                    )
                )

                (set wversion (+ wversion 1) )
            )
        )
    )
)


;***************************************************************************
;Preserve CIN
(procedure preserveCIN
; Save the CIN to a CIN file on the disk
    (run ("serfile %s >%s" (tackon prod "READ.ME") (tackon prod "CIN")))
; set the CIN temporarily to XXXX-YYYY
    (run ("serfile %s CIN: %s" (tackon prod "READ.ME") "XXXX-YYYY"))
    (set CINsaved 1)
)

;***************************************************************************
;Restore Old State
(procedure restoreCIN
;restore CrossMAC: assignment
    (if    (= newassign 1)
        (    (makeassign "CrossMAC" "CCrossMAC:")
            (makeassign "CCrossMAC")
        )
    )
; reset the CIN back to the customer's CIN
    (if (= CINsaved 1)
        (run ("serfile %s CIN: `type %s`" (tackon prod "READ.ME") (tackon prod "CIN")))
    )
)

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

;This can be replaced by checks for "copy of CrossMAC" etc.
(set prod "CrossMAC:")


;Starting version number
(set startversion (getversion (tackon prod "Read.ME")))
(set ver (/ startversion 65536))
(set startversion ("%ld" (+ (* 100 ver) (- startversion (* ver 65536)))) )

;(exit (quiet))

(set @abort-button "Abort Update")
(onerror (restoreCIN) )

;Check if the CrossMAC: being referenced is the assignment or the disk
(askdisk
    (prompt ("Please insert %s in any drive" prod))
    (help "To update, you must use a copy of the latest release of "
            "the CrossMAC product disk you have.  "
            "In addition, the volume MUST BE named `CrossMAC'.  "
            "If the disk you have is labeled `Copy_of_CrossMAC', "
            "relabel it using the Workbench menu selection `Icons/Rename...'.")
    (dest "CrossMAC")
)

(if (<> "CrossMAC:" (expandpath prod))
    (    (makeassign "CCrossMAC" prod)    ;temp reassign CrossMAC: assignment
        (set newassign 1)
        (makeassign "CrossMAC")        ;clear the CrossMAC: assignment
    )
)

;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)
    )
)

; Test to see if the first patch directory exists.  If not, it may be that the
; archive was not unarc'd with full path names preserved.
(if (not (= 2 (exists  startversion  (noreq) ) ) )
    (    (message "Could not find directory '" startversion "'.  Make sure you unarc "
            "the archive with the option to preserve directories.\n"
            "[Example: LHA x -x <archivename>]\n"
            "OR\n"
            "This archive of patch files does not update the release "
            "you currently have."
        )
        (exit (quiet))
    )
)

(set currentver startversion)

; Put diag/spatch into ram:.  Since this program is to be used quite frequently
(set spatch "ram:SPatch")
(set spatchsrc (tackon prod "diag/SPatch"))
(if (exists "SPatch" (noreq) )    ; a new SPatch exists in the current directory. Use it instead
    (    (delete (tackon prod "diag/lpatch"))    ;delete the old lpatch
        (copyfiles (source "SPatch") (dest (pathonly spatchsrc)))
    )
)

(copyfiles
    (source "CrossMAC:diag/SPatch")
    (dest (pathonly spatch) )
)

(preserveCIN)

(set wversion "S")

;Delete phase
(set wversion (+ 1 startversion))
(set DeleteOnly 1)
(set PatchOnly 0)
(set CopyOnly 0)
(DoPatch)

;Patch phase
(set wversion (+ 1 startversion))
(set DeleteOnly 0)
(set PatchOnly 1)
(set CopyOnly 0)
(DoPatch)

;Copy phase
(set wversion (+ 1 startversion))
(set DeleteOnly 0)
(set PatchOnly 0)
(set CopyOnly 1)
(DoPatch)

(set wversion (+ -1 wversion))

(set currentver (getversion (tackon prod "Read.ME")))
(set ver (/ currentver 65536))
(set currentver ("%ld" (+ (* 100 ver) (- currentver (* ver 65536)))) )

(set wversion ("%ld" wversion))
(message startversion " " currentver " " wversion)

(if    (= startversion wversion)
    (    (message ("Your CrossMAC disk is already at release %s.%s" (substr wversion 0 1) (substr wversion 1)))
    )
    (if    (> startversion wversion)
        (    (message ("Your CrossMAC disk is already updated past the releases in this archive"))
        )
        (if    (< currentver wversion)
            (    (message ("Your CrossMAC disk COULD NOT be updated to release %s.%s\n" (substr wversion 0 1) (substr wversion 1))
                        ("It appears to be at release %s.%s\n" (substr currentver 0 1) (substr currentver 1))
                        "Make sure you patch a GOOD copy of the CrossMAC product disk ONLY!"
                )
            )
            (if    (= currentver wversion)
                (    (message ("Your CrossMAC disk has been updated to release %s.%s" (substr currentver 0 1) (substr currentver 1))
                    )
                )
            )
        )
    )
)

(restoreCIN)

(exit (quiet))