;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Generic Install Script 
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(set #FirmenName "HK Computer")
(set #Board      "Vector Connection I/O Board")

(set #Diskname   "VectorConnection")

(set @default-dest "SYS:")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Language Section
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(set #Yes	"Yes")
(set #No	"No")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Installation Procedure
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(welcome)

(message (cat	"This program will install the software for your " #Board ". "
				"It will install all necessary drivers and programs."
))

; This is the dir we clicked

(complete 0)

(set sourcedir (pathonly @icon))

;
; Copy the resource
;

(copylib	(prompt (cat 	"The \"Vector\" program and its icon must be copied to \"SYS:Expansion\". You must "
							"have the 'Binddrivers' program in your S:StartUp-Sequence."
					))
			(help	@copylib-help)
			(source	(tackon sourcedir "expansion/Vector"))
			(dest	"SYS:Expansion")
			(infos)
			(confirm "expert")
			(optional "askuser")
)

(complete 10)

;
; Copy the Devices
;

(copylib	(prompt (cat 	"The \"vectorser.device\" must be copied to \"DEVS:\". This is "
							"the driver for the serial ports."
					))
			(help	@copylib-help)
			(source	(tackon sourcedir "devs/vectorser.device"))
			(dest	"DEVS:")
			(confirm "expert")
			(optional "askuser")
)


(complete 20)

(copylib	(prompt (cat 	"The \"vectorpar.device\" must be copied to \"DEVS:\". This is "
							"the driver for the parallel ports."
					))
			(help	@copylib-help)
			(source	(tackon sourcedir "devs/vectorpar.device"))
			(dest	"DEVS:")
			(confirm "expert")
			(optional "askuser")
)

(complete 30)

;
; Copy the Handlers
;

(copyfiles	(prompt		(cat 	"These are the DOS Handlers for the parallel and serial "
								"ports. They must be copied to L: They provide the DOS "
								"Devices for the system."
            ))
			(help		@copyfiles-help)
			(source 	(tackon sourcedir "L"))
			(dest		"L:")
			(all)
			(confirm	"expert")
			(optional 	"askuser")
)

(complete 40)

;
; Copy prefs Program
;

(copylib	(prompt     (cat	"This is the preferences program for setting the "
								"parameters for the serial ports. It should be copied "
								"to SYS:PREFS. "
			))
			(help		@copyfiles-help)
			(source 	(tackon sourcedir "PREFS/VectorSer"))
			(dest		"SYS:PREFS")
			(infos)
			(confirm	"expert")
			(optional	"askuser")
)

(copyfiles	(prompt		(cat	"This is a example prefs file for the Preferences program. "
								"It should be put into the ENVARC:sys drawer."
			))
			(help		@copyfiles-help)
			(source 	(tackon sourcedir "PREFS/ENV-ARCHIVE/SYS"))
			(dest		"ENVARC:SYS")
			(all)
			(infos)
			(confirm	"expert")
			(optional	"askuser")
)

(complete 50)

;
; Running under <=37: copy Mountlist Entries to DEVS:
;
; Running under >= 38: Copy mountfiles to DEVS:DOSDrivers
;

(if (>= (/ (getversion "c:Version") 65536) 38)
	(
	(copyfiles	(prompt		(cat	"You're running under AmigaOS 2.1 or above. So you can install "
									"these DosDriver Mountlists into SYS:Storage/DosDrivers. If you "
									"want them installed at Boottime, move their icons to DEVS:DosDrivers. "
				))
				(help		@copyfiles-help)
				(source 	(tackon sourcedir "DEVS/DOSDRIVERS"))
				(dest		"SYS:Storage/DosDrivers")
				(all)
				(infos)
				(confirm	"expert")
				(optional	"askuser")
	))
;	else
	(
	(copyfiles	(prompt		(cat	"You're running under AmigaOS 2.0. This will copy a Mountlist File "
									"to the DEVS: Drawer. Cut and paste the entries to the Devs:Mountlist or use "
									"the FROM option of mount to mount these DOS devices."

				))
				(help		@copyfiles-help)
				(source 	(tackon sourcedir "DEVS/Mountlist"))
				(newname	"Mountlist.Vector_Connection")
				(dest		"DEVS:")
				(confirm	"average")
				(optional	"askuser")
)))

(complete 60)

;
; Copy ReDirector Program
;

(copylib	(prompt     (cat	"This program redirects units of the normal parallel and serial device to "
								"the I/O Board. It is intended to run as a Commodity and should be "
								"copied to SYS:WBStartUp."
			))
			(help		@copyfiles-help)
			(source 	(tackon sourcedir "WBStartUp/ReDirector"))
			(dest		"SYS:WBStartUp")
			(infos)
			(confirm	"expert")
			(optional	"askuser")
)

(copyfiles	(prompt		(cat	"This is a example prefs file for the ReDirector program. "
								"It should be put into the ENVARC: drawer."
			))
			(help		@copyfiles-help)
			(source 	(tackon sourcedir "PREFS/ENV-ARCHIVE"))
			(dest		"ENVARC:")
			(pattern	"#?prefs")
			(infos)
			(confirm	"expert")
			(optional	"askuser")
)

(complete 70)

(copyfiles	(prompt	(cat	"These files are includes for C and Assembler programmers. They should be installed "
							"in SC:Include for SAS C or DINCLUDE: for DICE. If you're using "
							"another Compiler or Assembler, please consult its Manual. "
			))
			(help			@copyfiles-help)
			(source 		(tackon sourcedir "DEVELOPMENT/INCLUDES/VECTOR"))
			(dest			"SC:Include/Vector")
			(pattern		"~(#?.info)")
			(confirm		"average")
			(optional		"askuser")
)

(complete 80)

(copyfiles	(prompt	(cat	"These files are some Autodocs for special functions in the vectorpar.device and "
							"the vectorser.device. They should be copied to AUTODOCS."
			))
			(help			@copyfiles-help)
			(source 		(tackon sourcedir "DEVELOPMENT/AUTODOCS"))
			(dest			"AUTODOCS:")
			(pattern		"~(#?.info)")
			(confirm		"average")
			(optional		"askuser")
)

(complete 90)

(message (cat	"There is more documentation in the \"DOC\" subdirectory on your software "
				"disk. Please make sure to read it carefully before using your I/O Board."
))