; Script pour installer le catalogue français de THOR
; Créé le 4 février 1996
; ©1996 Jean-Michel Bezeau
; All Rights Reserved


(set #DestCat "\nOù voulez-vous que les catalogs français de THOR soient installés?\n")
(set Thor (getenv "THOR/ThorPath"))

; Indique le nombre probable de fichiers à installer pour que la progression
; se fasse lors du foreach.
(set NBCat 2)

(complete 1)

(
 (set DestCat  (askchoice (choices (tackon Thor "Catalogs/français" ) "Locale:Catalogs/français"  )
                           (prompt (cat #DestCat (tackon Thor "Catalogs/français") "\n"))
                           (help   #DestCat)
                           (default 0)
                )  
 )


 (if (= DestCat 1)
  (
   (if (< (exists "Locale:") 2) ( (makedir "sys:Locale") (makeassign "Locale" "sys:Locale") ) )
   (if (< (exists "Locale:Catalogs") 2) (makedir "sys:Locale/Catalogs") )
   (if (< (exists "Locale:Catalogs/français") 2) (makedir "sys:Locale/Catalogs/français") )
   (set CheminPath "sys:Locale/Catalogs/français")
  )

  (
   (if (< (exists (tackon Thor "Catalogs")) 2) (makedir (tackon Thor "Catalogs")) )
   (if (< (exists (tackon Thor "Catalogs/français" ) ) 2) (makedir (tackon Thor "Catalogs/français") ) )
   (set CheminPath (tackon Thor "Catalogs/français"))
  )
 )
 (set rendu 10)
 (foreach "" "#?.catalog" 
	(
	 (copyfiles 
	    (prompt "Copie des catalogs français de Thor")
		(source @each-name) 
		(dest CheminPath) 
		(optional "nofail")
	 )
	 (complete rendu)
	 (set rendu (+ rendu (/ 80 NBCat)))
	)
 )
)

(complete 100)

(exit (quiet))