;test d'installer
;----------------------------------
;definition des variables de base
;
;MINSUSER  AVERAGE
;
;LANGUAGE francais
;--------------------------
;dans quel repertoire
;--------------------------

(set #name
	(askdir
		(prompt "Indiquer le répertoire ou placer screensurf \n un repertoire screensurf sera créer ")
		(help @askdir-help)
		(default "ram:")
	)
)

;--------------------------------
;determine l'origine des fichiers
;--------------------------------

(set #source (pathonly @icon))
(set #path (tackon #name "screensurf"))
(set #repertoire (exists #path) )

;--------------------------------
;verifie si repertoire existant
;--------------------------------

(if #repertoire
	(	
		(abort "Répertoire ou fichier déja existant \n Installation interrompue "
		"\n Effacer le fichier ou repertoire "
		"\n et recommencer l'installation"
		"\n ou recommencer et choissiser "
		"\n un autre repertoire de destination") 
	)

 	(makedir #path
		(prompt "Repertoire screensurf en cours de creation")
		(help @makedir-help)
		(infos)
		(confirm)
	)
	)	
(complete 10 %)
(set @default-dest #path)

;----------------------------------
;cherche si on copie tout
;----------------------------------
(set #choix (askoptions
	        (prompt "Choissisez les fichiers annexe à copier")
	        (help "Indiquez les fichiers annexes a copier \n Aucun fichier est n'indispensable")
		(choices "doc français" "doc anglais"  "catalogue anglais")
		(default 1)
	    )	    
)	    
(complete 20 %)	
;----------------------------------
;copie les fichiers
;----------------------------------
;copie du programme
(copyfiles
	(prompt "Copier ScreenSurf")
	(help "Copie le programme dans le répertoire choisi")
	(source (tackon  #source "screenSurf"))
	(infos)
	(dest #path)	
	(noposition)
	(confirm)
)

;----------------------------------
;si copie demandes repertoire doc
;----------------------------------


(if (BITAND 1 #choix )
	(copyfiles
		(prompt "Copier screensurfFR.guide")
		(help "Copie le guide dans le répertoire Doc\n celui-ci est créé dans le repertoire choisi ")
		(source (tackon #source "doc/screensurfFR.guide"))
		(dest (tackon #path "doc"))
		(infos)
		(noposition)
		(confirm)
	)	 
)
(complete 50%)
(if (BITAND 2 #choix )
	(copyfiles
		(prompt "Copier screensurf.guide")
		(help "Copie le guide anglais dans le répertoire doc \ncelui-ci est créé dans le repertoire choisi ")
		(source (tackon #source "doc/screensurf.guide"))
		(dest (tackon #path "doc"))
		(infos)
		(noposition)
		(confirm)
	)	 
)

(complete 70%)

(set #path (cat #path "/catalogs/english"))
(makedir #path)
(set #source (cat #source "/catalogs"))
(if (BITAND 4 #choix )
	(copyfiles
		(prompt "Copier Catalogue anglais ScreenSurf")
		(help "Copie le guide anglais dans le répertoire doc \ncelui-ci est créé dans le repertoire choisi ")
		(source (tackon #source "english/screensurf.catalog"))
		(dest #path)
		
		(noposition)
		(confirm)
	)	 
)



;--------------------
;copier le complement
;--------------------	
(complete 90 %)