; $VER: ApplyPatch 4.9 (17.5.97)

(complete 0)

(message (cat "Make sure you are using the most recent\n"
              "version 43.3 of Installer!")
)

(message (cat "Make a backup of your old GIF.svobject\n"
              "before applying this patch !"
         )
)

(set original "LIBS:svobjects/GIF.svobject")

(if (<> (exists original (noreq)) 1)
(
    (abort (cat "Could not locate file " original))
))

(set size (getsize original))
(set vers (getversion original))
(set version (/ vers 65536))
(set revision (- vers (* version 65536)))
(set spaceleft (getdiskspace original))

(if (= 0 version)
(
    (abort (cat ("You already have the newest version !" original)))
))

(if (and (<> size 11412) (<> size 11776))
(
    (abort "Not version 4.7 of GIF.svobject !")
))

(set @default-dest (pathonly original))

(rename original (tackon @default-dest "GIF.svobject.old"))

(if (= size 11412)
    (set patchfile "GIF_000.pch")
    (set patchfile "GIF_030.pch")
)

(working "Updating...")

(run ("spatch -o%s -p%s %s" (tackon @default-dest "term") patchfile (tackon @default-dest "GIF.svobject")))

(complete 100)

(message "Keep the old file! New updates may base on it, too !")

(exit ("The old %s version has been renamed to %s." original (tackon @default-dest "GIF.svobject.old")))