(complete 0)

(set locale 0)

;===========================================================================
; English strings

(if (= @language "english")
(

(set #bad-MUI 		(cat "You need at least MUI2.2 to use MUIBuilder 2.0." ))
(set #dir-choice 	(cat "Select the directory where the MUIBuilder Directory will be created." ))
(set #copy 		(cat "Copying MUIBuilder"))
(set #doc-copy 		(cat "Copying Documentation"))
(set #olddoc 		(cat "/MB/Documentations/MUIBuilder_english.guide"))
(set #olddocdvi		(cat "/MB/Documentations/MUIBuilder_english.dvi"))
(set #copyENV 		(cat "Copying to ENV:"))
(set #copyENVARC 	(cat "Copying to ENVARC:"))
(set #installcatalog 	(cat "\n\nDo you want to install the english catalog ?"))
(set #copycatalog 	(cat "Installation of the english catalogue."))
(set #catalogname 	(cat "/Catalogs/English/MUIBuilder.catalog"))
(set #destname 		(cat "Locale:Catalogs/English"))
(set #genchoice		(cat "Chose the generators you need"))
(set #c			(cat "C language"))
(set #E			(cat "E language"))
(set #Oberon		(cat "Oberon language"))
(set #Modula		(cat "Modula2 language"))
(set #Assembly		(cat "Assembly language"))
(set #libcopy		(cat "Copying muibuilder.library to LIBS:"))

))

;===========================================================================
; French strings

(if (= @language "français")
(
(set locale 1)

(set #bad-MUI 		(cat "Vous avez besoin au moins de MUI2.2 pour utiliser MUIBuilder 2.0." ))
(set #dir-choice 	(cat "Sélectionnez le répertoire dans lequel vous voulez installer le répertoire de MUIBuider." ))
(set #copy 		(cat "Copie de MUIBuilder"))
(set #doc-copy 		(cat "Copie de la Documentation"))
(set #olddoc 		(cat "/MB/Documentations/MUIBuilder_Français.guide"))
(set #olddocdvi 	(cat "/MB/Documentations/MUIBuilder_Français.dvi"))
(set #copyENV 		(cat "Copie des variables d'environnement dans ENV:"))
(set #copyENVARC 	(cat "Copie des variables d'environnement dans ENVARC:"))
(set #installcatalog 	(cat "\n\nVoulez vous installer le catalogue Français ?"))
(set #copycatalog 	(cat "Installation du catalogue Français."))
(set #catalogname 	(cat "/Catalogs/Français/MUIBuilder.catalog"))
(set #destname 		(cat "Locale:Catalogs/Français"))
(set #genchoice		(cat "Choisissez les modules externes dont vous avez besoin"))
(set #c			(cat "Langage C"))
(set #E			(cat "Langage E"))
(set #Oberon		(cat "Langage Oberon"))
(set #Modula		(cat "Langage Modula2"))
(set #Assembly		(cat "Langage Assembleur"))
(set #libcopy		(cat "Copie de la muibuilder.library vers LIBS:"))

))

;===========================================================================
; German strings

(if (= @language "deutsch")
(
(set locale 2)

(set #bad-MUI 		(cat "Sie benötigen mindestens MUI2.2, um MUIBuilder 2.0 zu nutzen."))
(set #dir-choice 	(cat "Wählen Sie das Verzeichnis aus, in welches das Verzeichnis von MUIBuilderV1.1 installiert wird."))
(set #copy 		(cat "Kopiere MUIBuilder"))
(set #doc-copy 		(cat "Kopiere Dokumentation"))
(set #olddoc 		(cat "/MB/Documentations/MUIBuilder_Deutsch.guide"))
(set #olddocdvi 	(cat "/MB/Documentations/MUIBuilder_Deutsch.dvi"))
(set #copyENV 		(cat "Kopiere nach ENV:"))
(set #copyENVARC 	(cat "Kopiere nach ENVARC:"))
(set #installcatalog 	(cat "\n\nSoll der deutsche Catalog installiert werden?"))
(set #copycatalog 	(cat "Installiere deutschen Catalog." ))
(set #catalogname 	(cat "/Catalogs/Deutsch/MUIBuilder.catalog"))
(set #destname 		(cat "Locale:Catalogs/Deutsch"))
(set #genchoice		(cat "Wählen Sie die Modulen aus, die Sie wollen"))
(set #c			(cat "C Sprache"))
(set #E			(cat "E Sprache"))
(set #Oberon		(cat "Oberon Sprache"))
(set #Modula		(cat "Modula2 Sprache"))
(set #Assembly		(cat "Assembly Sprache"))
(set #libcopy		(cat "Kopiere muibuilder.library nach LIBS:"))

))

;===========================================================================
; Czech strings

(if (= @language "czech")
(
(set locale 3)

(set #bad-MUI 		(cat "MUIBuilder 2.0 vyùaduje MUI2.2 !" ))
(set #dir-choice 	(cat "Zvolte adresáê, ve kterém chcete vytvoêit adresáê pro MUIBuilder." ))
(set #copy 		(cat "Kopíruji MUIBuilder"))
(set #doc-copy 		(cat "Kopíruji Dokumentaci"))
(set #olddoc 		(cat "/MB/Documentations/MUIBuilder_english.guide"))
(set #olddocdvi 	(cat "/MB/Documentations/MUIBuilder_english.dvi"))
(set #copyENV 		(cat "Kopíruji do ENV:"))
(set #copyENVARC 	(cat "Kopíruji do ENVARC:"))
(set #installcatalog 	(cat "\n\nChcete nainstalovat çeský katalog?"))
(set #copycatalog 	(cat "Instaluji çeský katalog."))
(set #catalogname 	(cat "/Catalogs/Czech/MUIBuilder.catalog"))
(set #destname 		(cat "Locale:Catalogs/Czech"))
(set #genchoice		(cat "Zvolte generátory, které si pêejete nainstalovat"))
(set #c			(cat "Jazyk C"))
(set #E			(cat "Jazyk E"))
(set #Oberon		(cat "Jazik Oberon"))
(set #Modula		(cat "Jazik Modula2"))
(set #Assembly		(cat "Assembler"))
(set #libcopy		(cat "Kopíruji muibuilder.library do LIBS:"))

))

;=============================================================================
; Español strings

(if (= @language "español")
(
(set locale 0)

(set #bad-MUI 		(cat "Necesitas al menos MUI2.2 para usar MUIBuilder 2.0." ))
(set #dir-choice 	(cat "Elige el Directorio donde quieres instalar MUIBuilder." ))
(set #copy 		(cat "Copiando MUIBuilder"))
(set #doc-copy 		(cat "Copiando Documentación"))
(set #olddoc 		(cat "/MB/Documentations/MUIBuilder_english.guide"))
(set #olddocdvi 	(cat "/MB/Documentations/MUIBuilder_english.dvi"))
(set #copyENV 		(cat "Copiando a ENV:"))
(set #copyENVARC 	(cat "Copiando a ENVARC:"))
(set #installcatalog 	(cat "\n\nQuieres instalar el catálogo español ?"))
(set #copycatalog 	(cat "Instalación del catálogo español."))
(set #catalogname 	(cat "/Catalogs/Español/MUIBuilder.catalog"))
(set #destname 		(cat "Locale:Catalogs/Español"))
(set #genchoice		(cat "Elige los módulos externos que necesites"))
(set #c			(cat "Lenguaje C"))
(set #E			(cat "Lenguaje E"))
(set #Oberon		(cat "Lenguaje Oberon"))
(set #Modula		(cat "Lenguaje Modula2"))
(set #Assembly		(cat "Lenguaje Ensamblador"))
(set #libcopy		(cat "Copiando muibuilder.library a LIBS:"))

))

;===========================================================================
; Polish strings - Marcin Orîowski

(if (= @language "polski")
(
(set locale 0)

(set #bad-MUI 		(cat "Potrzebujesz co najmniej MUI2.2 aby uûyê MUIBuildera 2.0." ))
(set #dir-choice 	(cat "Wybierz katalog docelowy, w ktorym zostanie zaîoûony katalog MUIBuilder." ))
(set #copy 		(cat "Co chcesz zainstalowaê?"))
(set #doc-copy 		(cat "Instalujë dokumentacjë"))
(set #olddoc 		(cat "/MB/Documentations/MUIBuilder_english.guide"))
(set #olddocdvi		(cat "/MB/Documentations/MUIBuilder_english.dvi"))
(set #copyENV 		(cat "Kopiujë do katalogu ENV:"))
(set #copyENVARC 	(cat "Kopiujë do katalogu ENVARC:"))
(set #installcatalog 	(cat "\n\nCzy chcesz zainstalowaê polski katalog (plik jëzykowy)?"))
(set #copycatalog 	(cat "Instalujë polski katalog."))
(set #catalogname 	(cat "/Catalogs/Polski/MUIBuilder.catalog"))
(set #destname 		(cat "Locale:Catalogs/polski"))
(set #genchoice		(cat "Wybierz generatory tekstów úródîowych"))
(set #c			(cat "Jëzyk C"))
(set #E			(cat "Jëzyk E"))
(set #Oberon		(cat "Oberon"))
(set #Modula		(cat "Modula2"))
(set #Assembly		(cat "Assembler"))
(set #libcopy		(cat "Kopiujë muibuilder.library do katalogu LIBS:"))

))

;===========================================================================
; Italian strings

(if (= @language "italiano")
(
(set locale 6)

(set #bad-MUI 		(cat "You need at least MUI2.2 to use MUIBuilder 2.0." ))
(set #dir-choice 	(cat "Select the directory where the MUIBuilder Directory will be created." ))
(set #copy 		(cat "Copying MUIBuilder"))
(set #doc-copy 		(cat "Copying Documentation"))
(set #olddoc 		(cat "/MB/Documentations/MUIBuilder_english.guide"))
(set #olddocdvi		(cat "/MB/Documentations/MUIBuilder_english.dvi"))
(set #copyENV 		(cat "Copying to ENV:"))
(set #copyENVARC 	(cat "Copying to ENVARC:"))
(set #installcatalog 	(cat "\n\nDo you want to install the english catalog ?"))
(set #copycatalog 	(cat "Installation of the english catalogue."))
(set #catalogname 	(cat "/Catalogs/English/MUIBuilder.catalog"))
(set #destname 		(cat "Locale:Catalogs/English"))
(set #genchoice		(cat "Chose the generators you need"))
(set #c			(cat "C language"))
(set #E			(cat "E language"))
(set #Oberon		(cat "Oberon language"))
(set #Modula		(cat "Modula2 language"))
(set #Assembly		(cat "Assembly language"))
(set #libcopy		(cat "Copying muibuilder.library to LIBS:"))

))

;===========================================================================
; Dansk strings

(if (= @language "Dansk")
(
(set locale 7)

(set #bad-MUI 		(cat "You need at least MUI2.2 to use MUIBuilder 2.0." ))
(set #dir-choice 	(cat "Select the directory where the MUIBuilder Directory will be created." ))
(set #copy 		(cat "Copying MUIBuilder"))
(set #doc-copy 		(cat "Copying Documentation"))
(set #olddoc 		(cat "/MB/Documentations/MUIBuilder_english.guide"))
(set #olddocdvi		(cat "/MB/Documentations/MUIBuilder_english.dvi"))
(set #copyENV 		(cat "Copying to ENV:"))
(set #copyENVARC 	(cat "Copying to ENVARC:"))
(set #installcatalog 	(cat "\n\nDo you want to install the english catalog ?"))
(set #copycatalog 	(cat "Installation of the english catalogue."))
(set #catalogname 	(cat "/Catalogs/Dansk/MUIBuilder.catalog"))
(set #destname 		(cat "Locale:Catalogs/Dansk"))
(set #genchoice		(cat "Chose the generators you need"))
(set #c			(cat "C language"))
(set #E			(cat "E language"))
(set #Oberon		(cat "Oberon language"))
(set #Modula		(cat "Modula2 language"))
(set #Assembly		(cat "Assembly language"))
(set #libcopy		(cat "Copying muibuilder.library to LIBS:"))

))

;=============================================================================
;=============================================================================
; Installation procedure

( set MBdir "Ram:" )

;========================================================================
;
; Scanning MUI version
;

( set versionnumber (getversion "LIBS:muimaster.library" ) )
( set version (/ versionnumber 65536))

( if (< version 8)
	(
		(if (= locale 0)
    			( abort #bad-MUI )
		)
	)
)

;========================================================================
;
; Select the MUIBuilder directory
;

(set MBdir
	( askdir
		( prompt #dir-choice )
		(help "")
		(default "Sys:")
		(newpath)
	)
)

;========================================================================
;
; Copying MUIBuilder
;

(complete 10)

(set @default-dest MBdir )
(set MBdir ( tackon MBdir "MUIBuilder" ) )

(copyfiles
	(prompt #copy)
	(source "/MB")
	(help   @copyfiles-help)
	(infos)
	(dest MBdir)
	(choices "MUIBuilder"
		 "BuilderSave"
		 "Tools"
		 "Catalogs"
		 "Developer"
		 "Images"
	)
	(confirm)
)

(copyfiles
	(source "/MB.info")
	(help	@copyfiles-help)
	(dest 	@default-dest)
	(newname (cat MBdir ".info"))
)

(complete 20)

;========================================================================
;
; Copying muibuilder.library
;


(copylib
	(source	"/Libs/muibuilder.library")
	(dest "LIBS:")
	(prompt #libcopy)
	(help @copylib-help)
	(confirm)
)

(complete 30)

;========================================================================
;
; Copying textfield.gadget
;


(copylib
	(source	"/Classes/textfield.gadget")
	(dest "SYS:Classes/Gadgets/")
	(prompt #libcopy)
	(help @copylib-help)
	(confirm)
)

(complete 40)

;========================================================================
;
; Copying Modules

(set modules
	(askoptions
		(prompt	 #genchoice)
		(help	 @askoptions-help)
		(choices #C
			 #E
			 #Oberon
			 #Modula
			 #Assembly
		)
		(default 31)
	)
)

;======================
; Copying GenCodeC
;
(if (IN modules 0)
	(
		(copyfiles
			(source "/MB/Modules")
			(dest (tackon MBdir "Modules"))
			(choices "GenCodeC" "C-Header" "H-Header"
				 "GenCodeGCC" "C++-Header" "H++-Header")
		)
		(copyfiles
			(source "/MB")
			(dest MBdir)
			(choices "C" "GCC")
			(infos)
		)
	)
)	

;======================
; Copying GenCodeE
;
(if (IN modules 1)
	(
		(copyfiles
			(source "/MB/Modules")
			(dest (tackon MBdir "Modules"))
			(choices "GenCodeE30b+" "GenCodeE31a+")
		)
		(copyfiles
			(infos)
			(source "/MB")
			(dest MBdir)
			(choices "E")
		)
	)
)

;======================
; Copying GenCodeOberon
;
(if (IN modules 2)
	(
		(copyfiles
			(source "/MB/Modules")
			(dest (tackon MBdir "Modules"))
			(choices "GenCodeOberon")
		)
		(copyfiles
			(infos)
			(source "/MB")
			(dest MBdir)
			(choices "Oberon")
		)
	)
)

;======================
; Copying GenCodeModula
;
(if (IN modules 3)
	(
		(copyfiles
			(source "/MB/Modules")
			(dest (tackon MBdir "Modules"))
			(choices "GenCodeM2")
		)
		(copyfiles
			(infos)
			(source "/MB")
			(dest MBdir)
			(choices "M2")
		)
	)
)

;======================
; Copying GenCodeASM
;
(if (IN modules 4)
	(
		(copyfiles
			(source "/MB/Modules")
			(dest (tackon MBdir "Modules"))
			(choices "GenCodeASM")
		)
		(copyfiles
			(infos)
			(source "/MB")
			(dest MBdir)
			(choices "ASM")
		)
	)
)

(complete 60)

;========================================================================
;
; Copying documentation
;

( set MBdoc ( tackon MBdir "Documentations" ) )

(copyfiles
	(prompt #doc-copy)
	(source #olddoc)
	(newname "MUIBuilder.guide")
	(help @copyfiles-help)
        (infos)
	(confirm)
        (dest MBdoc )
)

(copyfiles
	(source "/MB/Documentations.info")
	(newname (cat MBdoc ".info"))
	(dest @default-dest)
)

(copyfiles
	(prompt #doc-copy)
	(source #olddocdvi)
	(newname "MUIBuilder.dvi")
	(help @copyfiles-help)
        (infos)
	(confirm)
        (dest MBdoc )
)

;========================================================================
;
; copying MUIBuilder.catalog files
;

(complete 70)

(if (> locale 0)
	(if 	(askbool
		(prompt #installcatalog)
		(help   "")
		)
		(copylib
			(prompt #copycatalog)
			(source #catalogname)
			(dest   #destname)
			(help   @copylib-help)
			(confirm)
		)
	)
)

;=========================================================================
;
; Copying environment variables
;

(complete 80)

(copyfiles
	(prompt #copyENV)
	(source "/Env")
	(dest   "ENV:")
	(all)
)

(copyfiles
	(prompt #copyENVARC)
	(source "/Env")
	(dest   "ENVARC:")
	(help   @copyfiles-help)
	(confirm)
	(all)
)

(complete 99)

(exit)