; Install script for AmTagEd
;
; Copyright © 1998 Kimmo Palosaari
;
; $VER: Install-AmTagEd 1.73 (21.1.99)
;

(set @default-dest "SYS:Tools")

(procedure CopyLibs #srcdir #srcname #dstdir

	(copylib
		(prompt "Copying " #srcname "...")
		(help @copylib-help)
		(source (tackon #srcdir #srcname))
		(dest #dstdir)
		(optional "force" "askuser")
		(confirm "expert")
	)
)

(complete 0)

(message
	"\nAmTagEd 1.73\n\n"
	"Copyright © 1998 Kimmo Palosaari\n\n\n"
	"This script will install AmTagEd\n"
	"and required libraries."
)

(set @default-dest
	(askdir
		(prompt "Select the destination directory for AmTagEd.\nA drawer will NOT be created.")
		(help askdir-help)
		(default @default-dest)
	)
)

(complete 10)

(set @copydoc
	(askbool
		(prompt "\nDo you want to copy the documentation file?")
		(help askbool-help)
		(default 1)
	)
)

(complete 20)

(if (= @copydoc 1)
	(set @doc-dir
		(askdir
			(prompt "Select the destination directory for the documentation file.")
			(help askdir-help)
			(default @default-dest)
		)
	)
)

(complete 30)

(set @icontype
	(askchoice
		(prompt "\nSelect what kind of icon you want to install")
		(help askchoice-help)
		(choices "No icon" "MagicWB" "NewIcon")
		(default 1)
	)
)

(complete 40)

(if (or (= @icontype 1) (= @icontype 2))
(
	(run "Run >NIL: <NIL: SYS:Utilities/MultiView Icons/Icons.iff PORTNAME=AMTAGEDMULTIVIEW")

	(set @imagetype
		(askchoice
			(prompt "\nSelect which image you want for icon")
			(help askchoice-help)
			(choices "1" "2" "3")
			(default 0)
		)
	)

	(rexx "quitmultiview.rexx")
)
)

(complete 50)

(set @languages
	(askoptions
		(prompt "\nSelect which languages should be installed.")
		(help askoptions-help)
		(choices
			"English"
			"Suomi"
         "Deutsch"
			"Français"
			"ÃeÓtina"
		)
		(default 1)
	)
)

(copyfiles
	(source "AmTagEd")
	(help copyfiles-help)
	(dest @default-dest)
)

(if (= @copydoc 1)
(
	(copyfiles
		(source "AmTagEd.guide")
		(help copyfiles-help)
		(dest @doc-dir)
	)

	(if (= @icontype 1)
		(copyfiles
			(source "Icons/AmTagEd.guide.icon.info")
			(help copyfiles-help)
			(dest @doc-dir)
			(newname "AmTagEd.guide.info")
		)
		(if (= @icontype 2)
			(copyfiles
				(source "Icons/AmTagEd.guide.newicon.info")
				(help copyfiles-help)
				(dest @doc-dir)
				(newname "AmTagEd.guide.info")
			)
		)
	)
)
)

(if (= @icontype 1)
	(if (= @imagetype 0)
		(copyfiles
			(source "Icons/AmTagEd.icon1.info")
			(help copyfiles-help)
			(dest @default-dest)
			(newname "AmTagEd.info")
		)
		(if (= @imagetype 1)
			(copyfiles
				(source "Icons/AmTagEd.icon2.info")
				(help copyfiles-help)
				(dest @default-dest)
				(newname "AmTagEd.info")
			)
			(if (= @imagetype 2)
				(copyfiles
					(source "Icons/AmTagEd.icon3.info")
					(help copyfiles-help)
					(dest @default-dest)
					(newname "AmTagEd.info")
				)
			)
		)
	)
)

(if (= @icontype 2)
	(if (= @imagetype 0)
		(copyfiles
			(source "Icons/AmTagEd.newicon1.info")
			(help copyfiles-help)
			(dest @default-dest)
			(newname "AmTagEd.info")
		)
		(if (= @imagetype 1)
			(copyfiles
				(source "Icons/AmTagEd.newicon2.info")
				(help copyfiles-help)
				(dest @default-dest)
				(newname "AmTagEd.info")
			)
			(if (= @imagetype 2)
				(copyfiles
					(source "Icons/AmTagEd.newicon3.info")
					(help copyfiles-help)
					(dest @default-dest)
					(newname "AmTagEd.info")
				)
			)
		)
	)
)

(
	(set n 0)
	(while
		(set language
			(select n
				"English"
				"suomi"
				"deutsch"
				"français"
				"ÃeÓtina"
				""
			)
		)
		(
			(if (IN @languages n)
				(if (<> 0 n)
				(
					(set catalogs (tackon "Locale/Catalogs" language))
					(set destination (tackon "Locale:Catalogs" language))
					(makedir destination)
					(if (exists (tackon catalogs "AmTagEd.catalog"))
						(copylib
							(prompt "Copying catalog...")
							(source (tackon catalogs "AmTagEd.catalog"))
							(dest destination)
						)
					)
				)
				)
			)
			(set n (+ n 1))
		)
	)
)

(makedir "ENVARC:AmTagEd")
(makedir "ENV:AmTagEd")

(CopyLibs "Libs/MUI" "NList.mcc" "MUI:Libs/MUI")

(complete 60)

(CopyLibs "Libs/MUI" "NListview.mcc" "MUI:Libs/MUI")

(complete 65)

(CopyLibs "Libs/MUI" "NListviews.mcp" "MUI:Libs/MUI")

(complete 70)

(CopyLibs "Libs/MUI" "BetterString.mcc" "MUI:Libs/MUI")

(complete 75)

(CopyLibs "Libs/MUI" "BetterString.mcp" "MUI:Libs/MUI")

(complete 80)

(CopyLibs "Libs/MUI" "TextEditor.mcc" "MUI:Libs/MUI")

(complete 85)

(CopyLibs "Libs/MUI" "TextEditor.mcp" "MUI:Libs/MUI")

(complete 90)

(CopyLibs "Libs" "popupmenu.library" "LIBS:")

(complete 100)

(exit)