(procedure check-amiwin-version
 (set amiwin-version (getversion (tackon @default-dest "bin/AmiWin")))
 (if (not(= amiwin-version 131083))
  (abort "You do not have AmiWin 2.11d installed.\n");
 )
 (set amiwin-version (getversion (tackon @default-dest "xsd/aga-1.xsd")))
 (if (not(= amiwin-version 131072))
  (abort "Your aga-1.xsd driver does not have the correct version\n");
 )
 (set amiwin-version (getversion (tackon @default-dest "xsd/aga-8.xsd")))
 (if (not(= amiwin-version 131083))
  (abort "Your aga-8.xsd driver does not have the correct version\n");
 )
)

(procedure select-destination-directory
 (set @default-dest
  (askdir
   (prompt "Select the directory where you have "
    "installed AmiWin 2.11demo. The default is "
    "probably correct.")
   (help "Please specify the directory where you have "
    "installed AmiWin 2.11demo. The default is "
    "the X11: directory, i.e. the likely place of "
    "your AmiWin installation.")
   (default "X11:")
  )
 )
)  

;;;; Start

(set app-name "AmiWin 2.14demo")

(complete 0)

(set source-dir (if (= 1 (exists @icon)) (pathonly (expandpath @icon))
 (expandpath @icon))
)

(select-destination-directory)

(check-amiwin-version)



(complete 5)

(copyfiles
 (source (tackon source-dir "x11/xsd/aga-1.pch"))
 (dest "T:")
)

(copyfiles
 (source (tackon @default-dest "xsd/aga-1.xsd"))
 (dest "T:")
 (newname "aga-1.old")
)

(working)
(run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:aga-1.xsd -pT:aga-1.pch T:aga-1.old"))

(copyfiles
 (source "T:aga-1.xsd")
 (dest (tackon @default-dest "xsd"))
)

(delete "T:aga-1.xsd")
(delete "T:aga-1.old")
(delete "T:aga-1.pch")



(complete 11)

(copyfiles
 (source (tackon source-dir "x11/xsd/aga-8.pch"))
 (dest "T:")
)

(copyfiles
 (source (tackon @default-dest "xsd/aga-8.xsd"))
 (dest "T:")
 (newname "aga-8.old")
)

(working)
(run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:aga-8.xsd -pT:aga-8.pch T:aga-8.old"))

(copyfiles
 (source "T:aga-8.xsd")
 (dest (tackon @default-dest "xsd"))
)

(delete "T:aga-8.xsd")
(delete "T:aga-8.old")
(delete "T:aga-8.pch")



(complete 16)

(copyfiles
 (source (tackon source-dir "x11/xsd/rtg-1.pch"))
 (dest "T:")
)

(copyfiles
 (source (tackon @default-dest "xsd/rtg-1.xsd"))
 (dest "T:")
 (newname "rtg-1.old")
)

(working)
(run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:rtg-1.xsd -pT:rtg-1.pch T:rtg-1.old"))

(copyfiles
 (source "T:rtg-1.xsd")
 (dest (tackon @default-dest "xsd"))
)

(delete "T:rtg-1.xsd")
(delete "T:rtg-1.old")
(delete "T:rtg-1.pch")



(complete 22)

(copyfiles
 (source (tackon source-dir "x11/libs/xlib.pch"))
 (dest "T:")
)

(copyfiles
 (source (tackon @default-dest "libs/xlib.library"))
 (dest "T:")
 (newname "xlib.old")
)

(working)
(run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xlib.library -pT:xlib.pch T:xlib.old"))

(copyfiles
 (source "T:xlib.library")
 (dest (tackon @default-dest "libs"))
)

(delete "T:xlib.library")
(delete "T:xlib.old")
(delete "T:xlib.pch")



(complete 27)

(copyfiles
 (source (tackon source-dir "x11/libs/xt.pch"))
 (dest "T:")
)

(copyfiles
 (source (tackon @default-dest "libs/xt.library"))
 (dest "T:")
 (newname "xt.old")
)

(working)
(run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xt.library -pT:xt.pch T:xt.old"))

(copyfiles
 (source "T:xt.library")
 (dest (tackon @default-dest "libs"))
)

(delete "T:xt.library")
(delete "T:xt.old")
(delete "T:xt.pch")



(complete 33)

(copyfiles
 (source (tackon source-dir "x11/libs/xmu2.pch"))
 (dest "T:")
)

(copyfiles
 (source (tackon @default-dest "libs/xmu2.library"))
 (dest "T:")
 (newname "xmu2.old")
)

(working)
(run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xmu2.library -pT:xmu2.pch T:xmu2.old"))

(copyfiles
 (source "T:xmu2.library")
 (dest (tackon @default-dest "libs"))
)

(delete "T:xmu2.library")
(delete "T:xmu2.old")
(delete "T:xmu2.pch")



(complete 38)

(copyfiles
 (source (tackon source-dir "x11/libs/xfont.pch"))
 (dest "T:")
)

(copyfiles
 (source (tackon @default-dest "libs/xfont.library"))
 (dest "T:")
 (newname "xfont.old")
)

(working)
(run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xfont.library -pT:xfont.pch T:xfont.old"))

(copyfiles
 (source "T:xfont.library")
 (dest (tackon @default-dest "libs"))
)

(delete "T:xfont.library")
(delete "T:xfont.old")
(delete "T:xfont.pch")



(complete 44)

(copyfiles
 (source (tackon source-dir "x11/bin/AmiWin.pch"))
 (dest "T:")
)

(copyfiles
 (source (tackon @default-dest "bin/AmiWin"))
 (dest "T:")
 (newname "AmiWin.old")
)

(working)
(run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:AmiWin -pT:AmiWin.pch T:AmiWin.old"))

(copyfiles
 (source "T:AmiWin")
 (dest (tackon @default-dest "bin"))
)

(delete "T:AmiWin")
(delete "T:AmiWin.old")
(delete "T:AmiWin.pch")



(complete 49)

(copyfiles
 (source (tackon source-dir "x11/bin/twm.pch"))
 (dest "T:")
)

(copyfiles
 (source (tackon @default-dest "bin/twm"))
 (dest "T:")
 (newname "twm.old")
)

(working)
(run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:twm -pT:twm.pch T:twm.old"))

(copyfiles
 (source "T:twm")
 (dest (tackon @default-dest "bin"))
)

(delete "T:twm")
(delete "T:twm.old")
(delete "T:twm.pch")



(complete 55)

(copyfiles
 (source (tackon source-dir "x11/bin/xset.pch"))
 (dest "T:")
)

(copyfiles
 (source (tackon @default-dest "bin/xset"))
 (dest "T:")
 (newname "xset.old")
)

(working)
(run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xset -pT:xset.pch T:xset.old"))

(copyfiles
 (source "T:xset")
 (dest (tackon @default-dest "bin"))
)

(delete "T:xset")
(delete "T:xset.old")
(delete "T:xset.pch")



(complete 60)

(copyfiles
 (source (tackon source-dir "x11/bin/xsetroot.pch"))
 (dest "T:")
)

(copyfiles
 (source (tackon @default-dest "bin/xsetroot"))
 (dest "T:")
 (newname "xsetroot.old")
)

(working)
(run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xsetroot -pT:xsetroot.pch T:xsetroot.old"))

(copyfiles
 (source "T:xsetroot")
 (dest (tackon @default-dest "bin"))
)

(delete "T:xsetroot")
(delete "T:xsetroot.old")
(delete "T:xsetroot.pch")



(complete 66)

(copyfiles
 (source (tackon source-dir "x11/bin/xdpyinfo.pch"))
 (dest "T:")
)

(copyfiles
 (source (tackon @default-dest "bin/xdpyinfo"))
 (dest "T:")
 (newname "xdpyinfo.old")
)

(working)
(run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xdpyinfo -pT:xdpyinfo.pch T:xdpyinfo.old"))

(copyfiles
 (source "T:xdpyinfo")
 (dest (tackon @default-dest "bin"))
)

(delete "T:xdpyinfo")
(delete "T:xdpyinfo.old")
(delete "T:xdpyinfo.pch")



(complete 71)

(copyfiles
 (source (tackon source-dir "x11/bin/xhost.pch"))
 (dest "T:")
)

(copyfiles
 (source (tackon @default-dest "bin/xhost"))
 (dest "T:")
 (newname "xhost.old")
)

(working)
(run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xhost -pT:xhost.pch T:xhost.old"))

(copyfiles
 (source "T:xhost")
 (dest (tackon @default-dest "bin"))
)

(delete "T:xhost")
(delete "T:xhost.old")
(delete "T:xhost.pch")



(complete 77)

(copyfiles
 (source (tackon source-dir "x11/bin/xkill.pch"))
 (dest "T:")
)

(copyfiles
 (source (tackon @default-dest "bin/xkill"))
 (dest "T:")
 (newname "xkill.old")
)

(working)
(run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xkill -pT:xkill.pch T:xkill.old"))

(copyfiles
 (source "T:xkill")
 (dest (tackon @default-dest "bin"))
)

(delete "T:xkill")
(delete "T:xkill.old")
(delete "T:xkill.pch")



(complete 82)

(copyfiles
 (source (tackon source-dir "x11/bin/xwininfo.pch"))
 (dest "T:")
)

(copyfiles
 (source (tackon @default-dest "bin/xwininfo"))
 (dest "T:")
 (newname "xwininfo.old")
)

(working)
(run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xwininfo -pT:xwininfo.pch T:xwininfo.old"))

(copyfiles
 (source "T:xwininfo")
 (dest (tackon @default-dest "bin"))
)

(delete "T:xwininfo")
(delete "T:xwininfo.old")
(delete "T:xwininfo.pch")



(complete 88)

(copyfiles
 (source (tackon source-dir "x11/bin/xlsclients.pch"))
 (dest "T:")
)

(copyfiles
 (source (tackon @default-dest "bin/xlsclients"))
 (dest "T:")
 (newname "xlsclients.old")
)

(working)
(run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xlsclients -pT:xlsclients.pch T:xlsclients.old"))

(copyfiles
 (source "T:xlsclients")
 (dest (tackon @default-dest "bin"))
)

(delete "T:xlsclients")
(delete "T:xlsclients.old")
(delete "T:xlsclients.pch")



(complete 94)

(copyfiles
 (source (tackon source-dir "AmiWin_guide.pch"))
 (dest "T:")
)

(copyfiles
 (source (tackon @default-dest "help/AmiWin.guide"))
 (dest "T:")
 (newname "AmiWin_guide.old")
)

(working)
(run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:AmiWin.guide -pT:AmiWin_guide.pch T:AmiWin_guide.old"))

(copyfiles
 (source "T:AmiWin.guide")
 (dest (tackon @default-dest "help"))
)

(delete "T:AmiWin.guide")
(delete "T:AmiWin_guide.old")
(delete "T:AmiWin_guide.pch")

(complete 100)

(exit "Installation of the update from AmiWin 2.11demo to "
 "AmiWin 2.14demo is finished.")