;;;
;;; $VER: Install-Release-2-patch 37.1 (2.1.94)
;;;
;;; Install script to change rush release 1 disk into a release 2 disk.
;;;
;;; Written by Douglas Keller
;;;

(set os (/ (getversion) 65536))
(if (< os 37)
	(abort "Rush requires AmigaDOS 2.0 or later to run.")
)

(complete 0)

(message	(cat	"This script will update your Rush_release_1: disk "
					"to a Rush_release_2: disk.  Since it modifies the "
					"disk, a copy of your release 1 disk should be used."
				)
	)

(set @default-dest "Rush_release_2:")

;;;
;;; Patch rush.library
;;;
(working "Patching \"Rush_release_1:libs/rush.library\" and \"Rush_release_1:Rush\"")

(run ("patch/bpatch"
		)
	)

(complete 20)

;;;
;;; Patch rush.guide
;;;
(working "Patching \"Rush_release_1:help/rush.guide\"")

(run ("patch/spatch -o%s -ppatch/rush_guide.patch %s"
		"Rush_release_1:help/rush.guide"
		"Rush_release_1:help/rush.guide"
		)
	)

(complete 40)

;;;
;;; Patch Catalogs
;;;
(working "Patching \"Rush_release_1:catalogs/dansk.ct\"")
(run ("patch/spatch -o%s -ppatch/catalogs/dansk.ct.patch %s"
		"Rush_release_1:catalogs/dansk.ct"
		"Rush_release_1:catalogs/dansk.ct"
		)
	)
(working "Patching \"Rush_release_1:catalogs/deutsch.ct\"")
(run ("patch/spatch -o%s -ppatch/catalogs/deutsch.ct.patch %s"
		"Rush_release_1:catalogs/deutsch.ct"
		"Rush_release_1:catalogs/deutsch.ct"
		)
	)
(working "Patching \"Rush_release_1:catalogs/français.ct\"")
(run ("patch/spatch -o%s -ppatch/catalogs/français.ct.patch %s"
		"Rush_release_1:catalogs/français.ct"
		"Rush_release_1:catalogs/français.ct"
		)
	)
(working "Patching \"Rush_release_1:catalogs/norsk.ct\"")
(run ("patch/spatch -o%s -ppatch/catalogs/norsk.ct.patch %s"
		"Rush_release_1:catalogs/norsk.ct"
		"Rush_release_1:catalogs/norsk.ct"
		)
	)
(working "Patching \"Rush_release_1:catalogs/rush_locale.ct\"")
(run ("patch/spatch -o%s -ppatch/catalogs/rush_locale.ct.patch %s"
		"Rush_release_1:catalogs/rush_locale.ct"
		"Rush_release_1:catalogs/rush_locale.ct"
		)
	)
(working "Patching \"Rush_release_1:catalogs/rush_locale.cd\"")
(run ("patch/spatch -o%s -ppatch/catalogs/rush_locale.cd.patch %s"
		"Rush_release_1:catalogs/rush_locale.cd"
		"Rush_release_1:catalogs/rush_locale.cd"
		)
	)
(working "Patching \"Rush_release_1:catalogs/dansk/rush.catlog\"")
(run ("patch/spatch -o%s -ppatch/catalogs/dansk/rush.catalog.patch %s"
		"Rush_release_1:catalogs/dansk/rush.catalog"
		"Rush_release_1:catalogs/dansk/rush.catalog"
		)
	)
(working "Patching \"Rush_release_1:catalogs/deutsch/rush.catalog\"")
(run ("patch/spatch -o%s -ppatch/catalogs/deutsch/rush.catalog.patch %s"
		"Rush_release_1:catalogs/deutsch/rush.catalog"
		"Rush_release_1:catalogs/deutsch/rush.catalog"
		)
	)
(working "Patching \"Rush_release_1:catalogs/français/rush.catalog\"")
(run ("patch/spatch -o%s -ppatch/catalogs/français/rush.catalog.patch %s"
		"Rush_release_1:catalogs/français/rush.catalog"
		"Rush_release_1:catalogs/français/rush.catalog"
		)
	)
(working "Patching \"Rush_release_1:catalogs/norsk/rush.catalog\"")
(run ("patch/spatch -o%s -ppatch/catalogs/norsk/rush.catalog.patch %s"
		"Rush_release_1:catalogs/norsk/rush.catalog"
		"Rush_release_1:catalogs/norsk/rush.catalog"
		)
	)
(copyfiles
	(source "patch/catalogs/Changes.doc")
	(dest "Rush_release_1:catalogs")
	(infos)
	)

(run ("rush_release_1:c/iconpos rush_release_1:catalogs/README.info XPOS 15") )
(run ("rush_release_1:c/iconpos rush_release_1:catalogs DWIDTH 180") )

(complete 50)

;;;
;;; Patch prefs files
;;;
(working "Patching \"Rush_release_1:prefs/rush.prefs\"")
(run ("patch/spatch -o%s -ppatch/prefs/rush.prefs.patch %s"
		"Rush_release_1:prefs/rush.prefs"
		"Rush_release_1:prefs/rush.prefs"
		)
	)
(working "Patching \"Rush_release_1:prefs/rush_gadgets.prefs\"")
(run ("patch/spatch -o%s -ppatch/prefs/rush_gadgets.prefs.patch %s"
		"Rush_release_1:prefs/rush_gadgets.prefs"
		"Rush_release_1:prefs/rush_gadgets.prefs"
		)
	)
(working "Patching \"Rush_release_1:prefs/rush_gadgets.2.0.prefs\"")
(run ("patch/spatch -o%s -ppatch/prefs/rush_gadgets.prefs.2.0.patch %s"
		"Rush_release_1:prefs/rush_gadgets.prefs.2.0"
		"Rush_release_1:prefs/rush_gadgets.prefs.2.0"
		)
	)

(complete 60)

;;;
;;; Copy Rexx
;;;
(copyfiles (source "patch/rexx") (dest "Rush_release_1:Rexx")
	(all)
	)

(copyfiles (source "patch/contrib") (dest "Rush_release_1:Contrib")
	(all)
	)

(complete 70)

;;;
;;; Cleanup old files
;;;
(working "Deleting obsolete files...")

(delete "Rush_release_1:scripts/find_rush")
(delete "Rush_release_1:scripts/tolower.rexx")
(delete "Rush_release_1:scripts/TerminusUpload.rexx")

(complete 80)

;;;
;;; Patch Install script, README, and Rush.info
;;;
(working "Patching \"Rush_release_1:Rush.info\"")
(run ("patch/spatch -o%s -ppatch/Rush.info.patch %s"
		"Rush_release_1:Rush.info"
		"Rush_release_1:Rush.info"
		)
	)
(working "Patching \"Rush_release_1:README\"")
(run ("patch/spatch -o%s -ppatch/README.patch %s"
		"Rush_release_1:README"
		"Rush_release_1:README"
		)
	)
(working "Patching \"Rush_release_1:Install-Rush\"")
(run ("patch/spatch -o%s -ppatch/Install-Rush.patch %s"
		"Rush_release_1:Install-Rush"
		"Rush_release_1:Install-Rush"
		)
	)

(copyfiles (source "patch/Rush_Arexx_Demo.info") (dest "Rush_release_1:")
	)


(complete 90)

(rename "Rush_release_1:Install-Rush" "Rush_release_1:Install-Rush-Release2")
(rename "Rush_release_1:Install-Rush.info" "Rush_release_1:Install-Rush-Release2.info")

(run ("rush_release_1:c/iconpos rush_release_1:Install-Rush-Release2 YPOS=13") )

(run ("relabel Rush_release_1: Rush_release_2"))

(run ("Rush_release_2:c/flush rush.library"))

(complete 100)

(message	(cat	"Your Rush_release_1: disk has been updated to a Rush_release_2: "
					"disk.  To install release 2 double-click on the \"Install-Rush-Release2\" "
					"icon on the release 2 disk.\n"
					"\n"
					"For changes since release 1 see the README file on the release 2 disk. "
				)
	)