; Installation-script for the EasyRexx-package
; $VER:EasyRexx_install 3.1 (07.12.95)
;
; Set tab=2 for best readability.
;
;*** Set names **********************************************************************/
(set APPNAME						"EasyRexx")
(set VERSION						"V3.2")
(set COPYRIGHT					" 1994,1995 Ketil Hunn")

(set PROGRAMMINGDOC			"Programming.guide")
(set AUTODOC						"EasyRexx.autodoc")
(set DESIGNERDOC				"Designer.guide")
(set OLDPROGRAMMINGDOC	"Pre WB3.0/Programming.guide")
(set OLDDESIGNERDOC			"Pre WB3.0/Designer.guide")
(set FORM								"AppList.form")
(set REXXLIBRARY				"EasyRexx.library")
(set GUILIBRARY					"EasyGadgets.library")
(set NOTIFYLIBRARY			"ScreenNotify.library")
(set DESIGNER						"Designer")

;*** Set paths **********************************************************************/
(set DOCPATH						"/Docs")
(set PARENT							"/")

;*** Get sizes **********************************************************************/
(set DESIGNERSIZE				83948)
(set DOCSIZE						203481)
(set LIBRARYSIZE				36896)
(set INCLUDESIZE				86154)
(set MACROSSIZE					3557)
(set PROJECTSSIZE				16842)
(set TESTSIZE						34170)
(set SOURCESIZE					133745)
(set FONTSIZE						48576)
(set CATALOGSIZE				15648)

(set done (+ DESIGNERSIZE DOCSIZE LIBRARYSIZE INCLUDESIZE MACROSIZE PROJECTSIZE TESTSIZE SOURCESIZE FONTSIZE CATALOGSIZE))

(complete 0)

;*** Default english strings ********************************************************/

(set	INTRO						(cat	"\n\n" APPNAME " installation.\n\n\n"
														"This script will install " APPNAME " " VERSION "\n"
														"on your machine.\n\n\n\n"
														APPNAME " " COPYRIGHT "\n"
														"All rights reserved."
											)
)
(set ABOUTTOCOPY			"About to copy ")
(set LOWKICK					"This package needs at least Kickstart V2.0 to run")
(set INSTALLPART			(cat	"Select which parts to install: "
														"(Full installation will require approx. " (/ done 1000) "Kb free space)"
											)
)
(set AIDESIGNER				"ARexx Interface Designer")
(set LIBRARY					"Library")
(set DOCUMENTATION		"Documentation")
(set TESTPROGRAMS			"Test programs")
(set EXAMPLESOURCE		"Example source")
(set INCLUDES					"Includes")

(set SELECTAID				(cat "Select which part of the " DESIGNER "-utility to install:"))
(set AIDAPPLICATION		(cat DESIGNER " application"))
(set EXAMPLEPROJECTS	"Example projects")
(set EXAMPLEMACROS		"Example macros")
(set MYFONTS					"Fonts")
(set LANGUAGES				"Languages")

(set SELECTDOC				"Select documentation to install:")
(set SELECTTESTPROGS	"Select test programs to install:")
(set SELECTSOURCES		"For which computerlanguage do you which to install example sources:")
(set SELECTINCLUDES		"Select include files to install:")
(set SELECTDRAWER			(cat	"In which drawer should " APPNAME " be installed?\n"
														"(A drawer named '" APPNAME "' will be created)"
											)
)
(set SELECTC					"In which drawer should the C include files be installed?")
(set CINCLUDE					"C include files")
(set SELECTE					"In which drawer should the E include files be installed?")
(set EINCLUDE					"E include files")
(set SELECTMODULA2		"In which drawer should the Modula-2 include files be installed?")
(set MODULA2INCLUDE		"Modula-2 include files")
(set SELECTOBERON			"In which drawer should the Oberon include files be installed?")
(set OBERONINCLUDE		"Oberon include files")
(set DEFCAT						0)

;*** Norwegian strings **************************************************************/
(if(= @language "norsk")
	(
	(set	INTRO						(cat	"\n\n" APPNAME " installasjon.\n\n\n"
															"Dette programmet vil installere " APPNAME " " VERSION "\n"
															"p din maskin.\n\n\n\n"
															APPNAME " " COPYRIGHT "\n"
															"Alle rettigheter forbeholdt."
												)
	)
	(set ABOUTTOCOPY			"Kopierer ")
	(set LOWKICK					"Beklager, denne applikasjonen trenger minst Kickstart V2.04 for  kjres.")
	(set INSTALLPART			(cat	"Velg hvilke deler som skal installeres: "
															"(Full installering vil trenge ca. " (/ done 1000) "Kb ledig plass)"
												)
	)
	(set AIDESIGNER				"ARexx Interface Designer")
	(set LIBRARY					"Bibliotek")
	(set DOCUMENTATION		"Dokumentasjon")
	(set TESTPROGRAMS			"Test programmer")
	(set EXAMPLESOURCE		"Kode eksempler")
	(set INCLUDES					"Inkluderings filer")

	(set SELECTAID				(cat "Velg hvilke deler av " DESIGNER " programmet som skal installeres:"))
	(set AIDAPPLICATION		(cat DESIGNER " applikasjonen"))
	(set EXAMPLEPROJECTS	"Eksempelprosjekter")
	(set EXAMPLEMACROS		"Makroeksempler")
	(set MYFONTS					"Skrifttyper")

	(set SELECTDOC				"Velg hvilke dokumenter som skal installeres:")
	(set SELECTTESTPROGS	"Velg hvilke testprogrammer som skal installeres:")
	(set SELECTSOURCES		"For hvilke programmeringssprk nsker du  installere kodeeksempler for:")
	(set SELECTINCLUDES		"Velg hvilke includeringsfiler som skal installeres:")
	(set SELECTDRAWER			(cat	"I hvilken skuff skal " APPNAME " installeres?\n"
															"(En skuff ved navn '" APPNAME "' vil bli laget)"
												)
	)
	(set SELECTC					"I hvilken skuff skal C filene kopieres til?")
	(set CINCLUDE					"C filer")
	(set SELECTE					"I hvilken skuff skal E filene kopieres til?")
	(set EINCLUDE					"E filer")
	(set SELECTMODULA2		"I hvilken skuff skal Modula-2 filene kopieres til?")
	(set MODULA2INCLUDE		"Modula-2 filer")
	(set SELECTOBERON			"I hvilken skuff skal Oberon filene kopieres til?")
	(set OBERONINCLUDE		"Oberon filer")
	(set LANGUAGES				"Kataloger")
	(set SELECTCATALOGS		"Hvilke sprk nsker du  installere?\n(Engelsk er innebygd)")
	(set SELECTDEFCAT			"Hvilket sprk nsker du  bruker til vanlig?")
	(set DEFCAT						4)
	)
)

;*** German strings *****************************************************************/
(if(= @language "deutsch")
	(
	(set	INTRO						(cat	"\n\n" APPNAME " Installation.\n\n\n"
															"Dieses Skript installiert " APPNAME " " VERSION "\n"
															"auf Ihrer Maschine.\n\n\n\n"
															APPNAME " " COPYRIGHT "\n"
															"Alle Rechte vorbehalten."
												)
	)
	(set ABOUTTOCOPY			"ber das Kopieren ")
	(set LOWKICK					"Zur Ausfhrung mu mindestens Kickstart V2.0 vorhanden sein")
	(set INSTALLPART			(cat	"Welche Teile des Paketes sollen installiert werden: "
															"(Die volle Installation bentigt ungefhr " (/ done 1000) "Kb freien Speicher)"
												)
	)
	(set AIDESIGNER				"ARexx Interface Designer")
	(set LIBRARY					"Bibliothek")
	(set DOCUMENTATION		"Dokumentation")
	(set TESTPROGRAMS			"Testprogramme")
	(set EXAMPLESOURCE		"Beispiele")
	(set INCLUDES					"Include-Dateien")

	(set SELECTAID				(cat "Welche Teile des " DESIGNER "-Programmpaketes sollen installiert werden:"))
	(set AIDAPPLICATION		(cat DESIGNER " Anwendung"))
	(set EXAMPLEPROJECTS	"Beispiel-Projektdateien")
	(set EXAMPLEMACROS		"Neispielmakros")
	(set MYFONTS					"Schriftarten")

	(set SELECTDOC				"Dokumentation zur Installation auswhlen:")
	(set SELECTTESTPROGS	"Testprogramme zur Installation auswhlen:")
	(set SELECTSOURCES		"Fr welche Programmiersprache sollen Quelltexte installiert werden:")
	(set SELECTINCLUDES		"Include-Dateien zur Installation auswhlen:")
	(set SELECTDRAWER			(cat	"In welcher Schublade soll " APPNAME " installiert werden?\n"
															"(Eine Schublade namens '" APPNAME "' wird erzeugt)"
												)
	)
	(set SELECTC					"In welcher Schublade sollen die C Include-Dateien installiert werden?")
	(set CINCLUDE					"C Include-Dateien")
	(set SELECTE					"In welcher Schublade sollen die E Include-Dateien installiert werden?")
	(set EINCLUDE					"E Include-Dateien")
	(set SELECTMODULA2		"In welcher Schublade sollen die Modula-2 Include-Dateien installiert werden?")
	(set MODULA2INCLUDE		"Modula-2 Include-Dateien")
	(set SELECTOBERON			"In welcher Schublade sollen die Modula-2 Include-Dateien installiert werden?")
	(set OBERONINCLUDE		"Modula-2 Include-Dateien")
	(set LANGUAGES				"Kataloge")
	(set SELECTCATALOGS		"Katalog(e) auswahlen:\n(Englisch ist immer vorhanden)")
	(set SELECTDEFCAT			"Welcher Katalog soll voreingestellt werden?")
	(set DEFCAT						1)
	)
)

;*** Dutch strings *****************************************************************/
(if(= @language "nederlands")
	(
	(set	INTRO						(cat	"\n\n" APPNAME " installatie.\n\n\n"
															"Dit script gaat " APPNAME " " VERSION " installeren\n"
															"op uw machine.\n\n\n\n"
															APPNAME " " COPYRIGHT "\n"
															"Alle rechten voorbehouden."
												)
	)
	(set ABOUTTOCOPY			"Aan het kopieren ")
	(set LOWKICK					"Dit pakket heeft minstens Kickstart V2.0 nodig")
	(set INSTALLPART			(cat	"Selecteer de te installeren delen: "
															"(Volledige installatie benodigt ongeveer " (/ done 1000) "Kb vrije ruimte)"
												)
	)
	(set AIDESIGNER				"ARexx Interface Designer")
	(set LIBRARY					"Library")
	(set DOCUMENTATION		"Documentatie")
	(set TESTPROGRAMS			"Test programma's")
	(set EXAMPLESOURCE		"Voorbeeld broncode")
	(set INCLUDES					"Includes")

	(set SELECTAID				(cat "Selecteer de te installeren delen van de " DESIGNER "-utility:"))
	(set AIDAPPLICATION		(cat DESIGNER " applicatie"))
	(set EXAMPLEPROJECTS	"Voorbeeld projekten")
	(set EXAMPLEMACROS		"Voorbeeld makros")
	(set MYFONTS					"Lettertypen")

	(set SELECTDOC				"Selecteer de te installeren documentatie:")
	(set SELECTTESTPROGS	"Selecteer de te installeren test programma's:")
	(set SELECTSOURCES		"Voor welke computertaal wilt u de voorbeeld programma's installeren:")
	(set SELECTINCLUDES		"Selecteer de te installeren include bestanden:")
	(set SELECTDRAWER			(cat	"In welke lade wilt u " APPNAME " installeren?\n"
															"(Een lade genaamd '" APPNAME "' zal gecreerd worden)"
												)
	)
	(set SELECTC					"In welke lade wilt u de C include bestanden installeren?")
	(set CINCLUDE					"C include files")
	(set SELECTE					"In welke lade wilt u de E include bestanden installeren?")
	(set EINCLUDE					"E include files")
	(set SELECTMODULA2		"In welke lade wilt u de Modula-2 include bestanden installeren?")
	(set MODULA2INCLUDE		"Modula-2 include files")
	(set SELECTOBERON			"In welke lade wilt u de Modula-2 include bestanden installeren?")
	(set OBERONINCLUDE		"Modula-2 include files")
	(set LANGUAGES				"Taalcatalogi")
	(set SELECTCATALOGS		"Selecteer de te installeren taalcatalogi:\n(Engels is ingebouwd)")
	(set SELECTDEFCAT			"Welke taalcatalogi wilt u als voorinstelling gebruiken?")
	(set DEFCAT						2)
	)
)

;*** Start installation *************************************************************/
; Installation script.

(set kickversion (/ (getversion) 65536))

(if (< kickversion 37)
	(abort LOWKICK)
)

(welcome (message INTRO))

(set PROGS
	(askoptions
		(help			@askoptions-help)
		(prompt		INSTALLPART)
		(choices	AIDESIGNER
							LIBRARY
							DOCUMENTATION
							TESTPROGRAMS
							INCLUDES
							EXAMPLESOURCE
		(default	127)
	  )
	)
)
(complete 1)
(set SELECTDIR	0)

(if (in PROGS 0)
	(
		(set DESIGNERAPPS
			(askoptions
				(help			@askoptions-help)
				(prompt		SELECTAID)
				(choices	AIDAPPLICATION
									MYFONTS
									EXAMPLEPROJECTS
									EXAMPLEMACROS
									LANGUAGES
				(default 31)
			  )
			)
		)
		(set SELECTDIR	1)
	)
)

(if (in DESIGNERAPPS 4)
	(
		(set CATALOGS
			(askoptions
				(help			@askoptions-help)
				(prompt		SELECTCATALOGS)
				(choices	"Deutsch"
									"Nederlands"
									"Norsk"
				(default DEFCAT)
			  )
			)
		)
		(if (AND (> CATALOGS 0) (in DESIGNERAPPS 0))
			(
				(set DEFCAT 0)
				(if(in CATALOGS 0)(set DEFCAT 1))
				(if(in CATALOGS 1)(set DEFCAT 2))
				(if(in CATALOGS 2)(set DEFCAT 3))
				(set DEFCAT
					(askchoice
						(help			@askoptions-help)
						(prompt		SELECTDEFCAT)
						(choices	"English"
											"Deutsch"
											"Nederlands"
											"Norsk"
						(default DEFCAT)
					  )
					)
				)
			)
		)
	)
)
(complete 2)

(if (in PROGS 2)
	(
		(set DOCS
			(askoptions
				(help			@askoptions-help)
				(prompt		SELECTDOC)
				(choices	AUTODOC
									PROGRAMMINGDOC
									DESIGNERDOC
									FORM
				(default 15)
			  )
			)
		)
		(set SELECTDIR	1)
	)
)
(complete 4)

(if (in PROGS 3)
	(
		(set TESTPROGS
			(askoptions
				(help			@askoptions-help)
				(prompt		SELECTTESTPROGS)
				(choices	"Funcs"
									"IDs"
									"AShell"
				(default 7)
			  )
			)
		)
		(set SELECTDIR	1)
	)
)
(complete 5)

(if (in PROGS 4)
	(
		(set INCLUDES
			(askoptions
				(help			@askoptions-help)
				(prompt		SELECTINCLUDES)
				(choices	"C"
									"E"
									"Modula-2"
									"Oberon"
				(default 15)
			  )
			)
		)
	)
)
(complete 6)

(if (in PROGS 5)
	(
		(set PRESELECTED 0)
		(if(in INCLUDES 0)(set PRESELECTED (+ PRESELECTED 1)))
		(if(in INCLUDES 1)(set PRESELECTED (+ PRESELECTED 2)))
		(if(in INCLUDES 2)(set PRESELECTED (+ PRESELECTED 4)))
		(if(in INCLUDES 3)(set PRESELECTED (+ PRESELECTED 8)))

		(set SOURCES
			(askoptions
				(help			@askoptions-help)
				(prompt		SELECTSOURCES)
				(choices	"C"
									"E"
									"Modula-2"
									"Oberon"
				(default PRESELECTED)
			  )
			)
		)
		(set SELECTDIR	1)
	)
)
(complete 7)

(if (= SELECTDIR 1)
	(
		(set DEFDEST
				(askdir
					(prompt		SELECTDRAWER)
					(help			@askdir-help)
					(default	"Work:")
			)
		)
		(set @default-dest (tackon DEFDEST APPNAME))
		(makedir @default-dest (infos))
	)
)
(complete 9)

(if (in DESIGNERAPPS 0)
	(
		(copylib(source	(cat PARENT DESIGNER))
						(dest		@default-dest)
						(prompt (cat ABOUTTOCOPY DESIGNER))
						(infos)
		)
		(tooltype	(dest	(tackon @default-dest DESIGNER))
							(noposition)
		)
		(if (= DEFCAT 1)
			(tooltype	(dest	(tackon @default-dest DESIGNER))
								(settooltype "LANGUAGE" "deutsch")
			)
		)
		(if (= DEFCAT 2)
			(tooltype	(dest	(tackon @default-dest DESIGNER))
								(settooltype "LANGUAGE" "nederlands")
			)
		)
		(if (= DEFCAT 3)
			(tooltype	(dest	(tackon @default-dest DESIGNER))
								(settooltype "LANGUAGE" "norsk")
			)
		)
	)
)
(complete (/ (* (set sofar (+ sofar DESIGNERSIZE)) 100) done))

(if (in DESIGNERAPPS 1)
	(
		(copyfiles(source	"/Fonts")
							(dest		"fonts:")
							(prompt (cat ABOUTTOCOPY MYFONTS))
							(all)
		)
	)
)
(complete (/ (* (set sofar (+ sofar FONTSIZE)) 100) done))

(if (in DESIGNERAPPS 2)
	(
		(makedir (tackon @default-dest "Projects")
						 (infos)
		)
		(copyfiles(source	"/Projects")
							(dest		(tackon @default-dest "Projects"))
							(prompt (cat ABOUTTOCOPY EXAMPLEPROJECTS))
							(all)
							(infos)
		)
		(tooltype	(dest	(tackon @default-dest "Projects"))
							(noposition)
		)
	)
)
(complete (/ (* (set sofar (+ sofar PROJECTSSIZE)) 100) done))

(if (in DESIGNERAPPS 3)
	(
		(makedir (tackon @default-dest "AREXX")
						 (infos)
		)
		(copyfiles(source	"/AREXX")
							(dest		(tackon @default-dest "AREXX"))
							(prompt (cat ABOUTTOCOPY EXAMPLEMACROS))
							(all)
							(infos)
		)
		(tooltype	(dest	(tackon @default-dest "AREXX"))
							(noposition)
		)
	)
)
(complete (/ (* (set sofar (+ sofar MACROSSIZE)) 100) done))

(if (in DESIGNERAPPS 4)
	(
		(makedir (tackon @default-dest "Catalogs")
						 (infos)
		)
		(copyfiles(source	(cat PARENT "Catalogs/Translators"))
							(dest		(tackon @default-dest "Catalogs"))
							(prompt (cat ABOUTTOCOPY LANGUAGES))
							(infos)
		)
		(if (in CATALOGS 0)
			(
				(set CATALOGDEST (tackon "Catalogs" "Deutsch"))
				(makedir (tackon @default-dest CATALOGDEST)
								 (infos)
				)
				(copyfiles(source	(cat PARENT CATALOGDEST))
									(dest		(tackon @default-dest CATALOGDEST))
									(prompt (cat ABOUTTOCOPY LANGUAGES))
									(all)
				)
			)
		)
		(if (in CATALOGS 1)
			(
				(set CATALOGDEST (tackon "Catalogs" "Nederlands"))
				(makedir (tackon @default-dest CATALOGDEST)
								 (infos)
				)
				(copyfiles(source	(cat PARENT CATALOGDEST))
									(dest		(tackon @default-dest CATALOGDEST))
									(prompt (cat ABOUTTOCOPY LANGUAGES))
									(all)
				)
			)
		)
		(if (in CATALOGS 2)
			(
				(set CATALOGDEST (tackon "Catalogs" "Norsk"))
				(makedir (tackon @default-dest CATALOGDEST)
								 (infos)
				)
				(copyfiles(source	(cat PARENT CATALOGDEST))
									(dest		(tackon @default-dest CATALOGDEST))
									(prompt (cat ABOUTTOCOPY LANGUAGES))
									(all)
				)
			)
		)
	)
)
(complete (/ (* (set sofar (+ sofar CATALOGSIZE)) 100) done))

(if (in PROGS 1)
	(
		(copylib(	source	(cat PARENT REXXLIBRARY))
							(dest		"libs:")
							(prompt (cat ABOUTTOCOPY REXXLIBRARY))
							(infos)
		)
		(copylib(	source	(cat PARENT GUILIBRARY))
							(dest		@default-dest)
							(prompt (cat ABOUTTOCOPY GUILIBRARY))
							(infos)
		)
		(copylib(	source	(cat PARENT NOTIFYLIBRARY))
							(dest		"libs:")
							(prompt (cat ABOUTTOCOPY NOTIFYLIBRARY))
							(infos)
		)
	)
)
(complete (/ (* (set sofar (+ sofar LIBRARYSIZE)) 100) done))

(if (in DOCS 0)
	(
		(makedir (tackon @default-dest "Docs")
						 (infos)
		)
		(if (< kickversion 39)
			(set AUTODOC OLDAUTODOC)
		)
		(copyfiles(source	(tackon DOCPATH AUTODOC))
							(dest		(tackon @default-dest "Docs"))
							(prompt (cat ABOUTTOCOPY AUTODOC))
							(infos)
		)
	)
)

(if (in DOCS 1)
	(
		(makedir (tackon @default-dest "Docs")
						 (infos)
		)
		(if (< kickversion 39)
			(set PROGRAMMINGDOC OLDPROGRAMMINGDOC)
		)
		(copyfiles(source	(tackon DOCPATH PROGRAMMINGDOC))
							(dest		(tackon @default-dest "Docs"))
							(prompt (cat ABOUTTOCOPY PROGRAMMINGDOC))
							(infos)
		)
	)
)

(if (in DOCS 2)
	(
		(makedir (tackon @default-dest "Docs")
						 (infos)
		)
		(copyfiles(source	(tackon DOCPATH DESIGNERDOC))
							(dest		(tackon @default-dest "Docs"))
							(prompt (cat ABOUTTOCOPY DESIGNERDOC))
							(infos)
		)
	)
)

(if (in DOCS 3)
	(
		(makedir (tackon @default-dest "Docs")
						 (infos)
		)
		(copyfiles(source	(tackon DOCPATH FORM))
							(dest		(tackon @default-dest "Docs"))
							(prompt (cat ABOUTTOCOPY FORM))
							(infos)
		)
	)
)
(complete (/ (* (set sofar (+ sofar FORMSIZE)) 100) done))

(if (in TESTPROGS 0)
	(
		(makedir (tackon @default-dest "Test")
						 (infos)
		)
		(copyfiles(source	"/Test/Funcs")
							(dest		(tackon @default-dest "Test"))
							(prompt (cat ABOUTTOCOPY "Funcs"))
							(infos)
		)
		(copyfiles(source	"/Test/test.rexx")
							(dest		(tackon @default-dest "Test"))
							(prompt "Working...")
							(infos)
		)
	)
)

(if (in TESTPROGS 1)
	(
		(makedir (tackon @default-dest "Test")
						 (infos)
		)
		(copyfiles(source	"/Test/IDs")
							(dest		(tackon @default-dest "Test"))
							(prompt (cat ABOUTTOCOPY "IDs"))
							(infos)
		)
		(copyfiles(source	"/Test/test.rexx")
							(dest		(tackon @default-dest "Test"))
							(prompt "Working...")
							(infos)
		)
	)
)

(if (in TESTPROGS 1)
	(
		(makedir (tackon @default-dest "Test")
						 (infos)
		)
		(copyfiles(source	"/Test/AShell")
							(dest		(tackon @default-dest "Test"))
							(prompt (cat ABOUTTOCOPY "AShell"))
							(infos)
		)
		(copyfiles(source	"/Test/test.rexx")
							(dest		(tackon @default-dest "Test"))
							(prompt "Working...")
							(infos)
		)
	)
)
(complete (/ (* (set sofar (+ sofar TESTSIZE)) 100) done))

(if (in INCLUDES 0)
	(
		(set INCLUDEDIR
			(askdir
				(prompt		SELECTC)
				(help			@askdir-help)
				(default	"Include:")
			)
		)
		(copyfiles(source	"/Includes/C/")
							(dest		INCLUDEDIR)
							(prompt (cat ABOUTTOCOPY CINCLUDES))
							(all)
		)
	)
)

(if (in INCLUDES 1)
	(
		(set INCLUDEDIR
			(askdir
				(prompt		SELECTE)
				(help			@askdir-help)
				(default	"Emodules:")
			)
		)
		(copyfiles(source	"/Includes/E/")
							(dest		INCLUDEDIR)
							(prompt (cat ABOUTTOCOPY EINCLUDES))
							(all)
		)
	)
)

(if (in INCLUDES 2)
	(
		(set INCLUDEDIR
			(askdir
				(prompt		SELECTMODULA2)
				(help			@askdir-help)
				(default	INCLUDEDIR)
			)
		)
		(copyfiles(source	"/Includes/Modula-2/")
							(dest		INCLUDEDIR)
							(prompt (cat ABOUTTOCOPY MODULA2INCLUDES))
							(all)
		)
	)
)

(if (in INCLUDES 3)
	(
		(set INCLUDEDIR
			(askdir
				(prompt		SELECTOBERON)
				(help			@askdir-help)
				(default	INCLUDEDIR)
			)
		)
		(copyfiles(source	"/Includes/Oberon/")
							(dest		INCLUDEDIR)
							(prompt (cat ABOUTTOCOPY OBERONINCLUDES))
							(all)
		)
	)
)
(complete (/ (* (set sofar (+ sofar INLCLUDESIZE)) 100) done))

(if (in SOURCES 0)
	(
		(makedir (tackon @default-dest "Source")
						 (infos)
		)
		(copyfiles(source	"/Source/ C")
							(dest		(tackon @default-dest "Source"))
							(prompt (cat ABOUTTOCOPY EXAMPLESOURCES))
							(infos)
							(all)
		)
	)
)

(if (in SOURCES 1)
	(
		(makedir (tackon @default-dest "Source")
						 (infos)
		)
		(copyfiles(source	"/Source/ E")
							(dest		(tackon @default-dest "Source"))
							(prompt (cat ABOUTTOCOPY EXAMPLESOURCES))
							(infos)
							(all)
		)
	)
)

(if (in SOURCES 2)
	(
		(makedir (tackon @default-dest "Source")
						 (infos)
		)
		(copyfiles(source	"/Source/ Modula-2")
							(dest		(tackon @default-dest "Source"))
							(prompt (cat ABOUTTOCOPY EXAMPLESOURCES))
							(infos)
							(all)
		)
	)
)

(if (in SOURCES 3)
	(
		(makedir (tackon @default-dest "Source")
						 (infos)
		)
		(copyfiles(source	"/Source/ Oberon")
							(dest		(tackon @default-dest "Source"))
							(prompt (cat ABOUTTOCOPY EXAMPLESOURCES))
							(infos)
							(all)
		)
	)
)
(complete (/ (* (set sofar (+ sofar SOURCESIZE)) 100) done))

(complete 100)
