;
; $VER: TIFF datatype install 1.0 (18.7.95)
;
; Copyright (c) 1995 Bert Wynants.
;
;****************************************************************************
;
; English texts
;

(set default_lang 1)

(set #bad-kick
(cat "You must have AmigaOS Release 3 or newer to be able to use the TIFF DataType."
))

(set #copy-descr "Copying TIFF DataTypes Descriptor")
(set #select-descr "Select the location to install the Descriptor")
(set #help-descr (cat "    The TIFF DataTypes Descriptor is required to"
					  " identify TIFF files.  This file is usually placed into the"
					  " \"DEVS:DataTypes\" drawer, it will then automatically be added to the"
					  " list of available DataTypes on every reboot.\n"
					  "    You may also place it into the systems \"Storage/DataTypes\""
					  " drawer and only activate the DataType, when you need it"
					  " (simply double-click the \"TIFF\" icon).\n\n"
					  @copyfiles-help
))

(set #support-me (cat "This is Freeware.\n\nIf you use this DataType "
	"regulary, please consider the amount of work I put into it.  Thank "
	"you.\n\n")
)

(set #copy-editor "Copying TIFF Preference editor...")
(set #select-editor "Select the location to install the editor.")
(set #help-editor "Choose a destination directory to contain the TIFF Preference Editor.")

(set #which-language
(cat "\nWhich languages should be installed?"
))
(set #which-language-help
(cat "\nThe Amiga can be operated in many different "
	  "languages. If you want the TIFF preference editor"
	  " to use the same language as the Amiga Workbench"
	  " then a catalog file must be copied to your"
	  " system disk for each language supported.\n\n"
	  "To reduce the amount of space consumed by the"
	  " language files, you can select to have only the"
	  " files of specific languages copied.\n\n"
	  "Simply check the boxes of the languages you wish"
	  " to have available on your system.\n\n"
	  @askoptions-help
))

(set #select-docdir "Select a directory for the documentation.")
(set #copy-docdir "Copying TIFF.guide...")

;=============================================================================
; Dutch strings

(if (= @language "nederlands")
(

(set default_lang 2)

(set #bad-kick
(cat "U moet AmigaOS Release 3 of hoger hebben om het TIFF Datatype te gebruiken"
))

(set #copy-descr "Kopieren TIFF DataType Beschrijver")
(set #select-descr "kies een lade voor de Beschrijver")
(set #help-descr (cat "    De TIFF DataTypes Beschrijver is nodig voor het"
					  " herkennen van TIFF bestanden.  Normaal staat dit bestand in de"
					  " \"DEVS:DataTypes\" lade, het zal dan automatisch toegevoegd worden aan"
					  " de lijst van beschikbare DataTypes na elke herstart.\n"
					  "    U mag het ook in de systeems \"Storage/DataTypes\" lade plaatsen,"
					  " en het datatype enkel activeren wanneer nodig."
					  " (door het dubbel-klikken van het \"TIFF\" icoon).\n\n"
))

(set #support-me (cat "Dit is Freeware.\n\nAls U het datatype regelmatig\n"
	"gebruikt, denk er dan aan dat ik er een heleboel werk in gestoken heb.\n"
	"Dank U\n\n")
)

(set #copy-editor "Kopieren TIFF voorkeuren editor...")
(set #select-editor "Selecteer de lade voor de editor")
(set #help-editor "Kies de lade waarin de TIFF voorkeuren editor moet komen")


(set #which-language
(cat "\nWelke talen moeten geïnstalleerd worden?"
))

(set #which-language-help
(cat "\nDe Amiga kan werken in verschillende talen."
	  " Als u wilt dat de TIFF Voorkeuren Editor in"
	  " dezelfde taal werkt als uw Workbench"
	  " dan moet er voor elke taal een bestand naar"
	  " uw systeem disk gekopieerd worden.\n\n"
	  "Om de grootte van het geheugen die de taal bestanden"
	  " innemen te verkleinen, kunt u een keuze maken uit"
	  " de talen, die vervolgens naar uw systeem disk worden"
	  " gekopieerd .\n\nU hoeft alleen die talen die u op"
	  " uw systeem wilt hebben aan te klikken.\n\n"
	 @askoptions-help
))

(set #select-docdir "Kies een lade voor de documentatie.")
(set #copy-docdir "kopieren TIFF.guide...")

))

;=============================================================================
;
;****************************************************************************
;
; Setup
;

(set @default-dest "")

(set class-dest "SYS:Classes")
(set dt-dest "DEVS:DataTypes")
(set prefs "SYS:Prefs/DataTypes")

(makedir dt-dest)

(if (not (exists class-dest))
	(set class-dest "LIBS:")
)

(complete 0)

(if (< (/ (getversion) 65536) 39)
	(abort #bad-kick)
)

;****************************************************************************
;
; Welcome
;

(welcome)

(message "\n     TIFF DataType \n\nCopyright © 1995 "
	"Bert Wynants, All Rights Reserved.\n"
)

(complete 5)

;****************************************************************************
;
; Install DataTypes descriptor
;

(set dt-dest
		(askdir (prompt #select-descr)
				(default dt-dest)
				(help #help-descr)
		)
)

(complete 10)

(copylib
	(help #TIFF-descr)
	(prompt #copy-descr)
	(source "Devs/DataTypes/TIFF")
	(dest dt-dest)
	(infos)
)

(complete 20)

;****************************************************************************
;
; Install class
;

(copylib
	(help @copylib-help)
	(prompt "Copying TIFF.datatype...")
	(source "Classes/DataTypes/TIFF.datatype")
	(dest (tackon class-dest "DataTypes"))
	(confirm)
)

(complete 40)

;****************************************************************************
;
; Install TIFF prefs Editor
;

(set thedest
		(askdir (prompt #select-editor)
				(default prefs)
				(help #help-editor)
		)
)

; copy including version checking
(copylib
	(prompt "\n" #copy-editor)
	(help #help-editor)
	(source "Prefs/TIFF")
	(dest thedest)
	(infos)
	(confirm)
)

(complete 60)

(if (exists "SYS:Locale")
(
	(if (exists "LOCALE:")
	(
		(set old_level @user-level)
		(user 2)
		(set lang (askoptions (prompt #which-language)
							  (help #which-language-help)
							  (choices "English" "Nederlands" "Deutsch")
							  (default default_lang)
				  )
		)
		(user old_level)

		(set n 0)
		(while (set language (select n "english" "nederlands" "deutsch" ""))
		(
			(if (IN lang n)
			(
				(if (<> 0 n)
				(
					(makedir (cat "LOCALE:Catalogs/" language))
					(copyfiles (source (cat "Catalogs/" language))
							   (dest (cat "LOCALE:Catalogs/" language))
							   (all)
					)
				))
			))
			(set n (+ n 1))
		))
	))
))

(complete 80)

;****************************************************************************
;
; Copy Documentation
;

(set doc-dir
		(askdir (prompt #select-docdir)
				(default "HELP:English")
				(help @askdir-help)
		)
)

(copyfiles
	(help @copyfiles-help)
	(prompt #copy-docdir)
	(source "TIFF.guide")
	(dest doc-dir)
	(infos)
	(optional nofail)
	(confirm)
)

;****************************************************************************
;
; Exit
;

(
	(run "Avail >NIL: FLUSH")
	(run "AddDataTypes >NIL: Devs/DataTypes/TIFF")
	(complete 100)
	(exit #support-me "The TIFF DataType is now ready to be used.  Enjoy!")
)