; DesignWorks Install Script 2.0
; Last Modified: August 29, 1995

(set
	dwdir
	(askdir
		(prompt "Where should the DesignWorks 2.0 drawer be placed?")
		(default @default-dest)
		(help @askdir-help)
	)
)

(set
	cputype
	(database "cpu")
)
(set
	fputype
	(askchoice
		(prompt "Select the version of DesignWorks to install")
		(help "Install the version for your CPU.")
		(choices
			("68000+ IEEE math version")
			("68020+ Math coprocessor version")
		)
		(default 0)
	)
)
		
(set
	installsamples
	(
		(askbool
			(prompt "Would you like to have some sample Documents installed?")
			(help "The sample documents will be installed in a directory called Examples.")
		)
	)
)

(set installrexx 0)
;(set installrexx
;	(
;		(askbool
;			(prompt "Would you like to have some sample ARexx scripts installed?")
;			(help "The ARexx scripts will be installed in a directory called Rexx")
;		)
;	)
;)

(set
	dwdir
	(tackon
		dwdir
		"DesignWorks"
	)
)

(makedir
	dwdir
	(infos)
)

(copyfiles
	(source "DesignWorks2.0:DesignWorks.info")
	(dest dwdir)
)

(if (= fputype 0)
	(copyfiles
		(source "DesignWorks2.0:DesignWorksIEEE")
		(dest dwdir)
		(newname "DesignWorks")
	)
)

(if (= fputype 1)
	(copyfiles
		(source "DesignWorks2.0:DesignWorksFPU")
		(dest dwdir)
		(newname "DesignWorks")
	)
)

(copyfiles
	(source "DesignWorks2.0:ReadMe")
	(dest dwdir)
)
(copyfiles
	(source "DesignWorks2.0:ReadMe.info")
	(dest dwdir)
)

(copyfiles
	(source "DesignWorks2.0:PressRelease")
	(dest dwdir)
)
(copyfiles
	(source "DesignWorks2.0:PressRelease.info")
	(dest dwdir)
)

(if
	(= installsamples 1)
	(
		(makedir
			(tackon
				dwdir
				"Examples"
			)
			(infos)
		)
		(copyfiles
			(source "DesignWorks2.0:example")
			(dest
				(tackon
					dwdir
					"Examples"
				)
			)
			(all)
			(files)
			(infos)
		)
	)
)

(makedir
	(tackon
		dwdir
		"Documents"
	)
	(infos)
)

(makedir
	(tackon
		dwdir
		"Rexx"
	)
)

(if
	(= installrexx 1)
	(
		(copyfiles
			(source "DesignWorks2.0:rexx")
			(dest
				(tackon
					dwdir
					"Rexx"
				)
			)
			(all)
			(files)
			(infos)
		)
	)
)

(makedir
	(tackon
		dwdir
		"Filters"
	)
)

(copyfiles
	(prompt "Which import filters would you like installed?")
	(help "Without installing these you will only be able to import IFF pictures.")
	(source "DesignWorks2.0:ifilters")
	(dest
		(tackon
			dwdir
			"Filters"
		)
	)
	(all)
	(confirm)
)

(copyfiles
	(prompt "Which export filters would you like installed?")
	(help "Without installing these you will only be able to export IFF pictures.")
	(source "DesignWorks2.0:efilters")
	(dest
		(tackon
			dwdir
			"Filters"
		)
	)
	(all)
	(confirm)
)

(set
	@default-dest
	(dwdir)
)