; ChimiCad Installer Script
; $VER: chimiCad.install 39.1 (22/08/96)
;

(set vernum (getversion "libs:reqtools.library"))
(set ver (/ vernum 65536))
(set rev (- vernum (* ver 65536) ) )

(if (or (and (= ver 38) (< rev 1210)) (< ver 38))
  (
    (if(= ver 0)
      (
	(set sc (askchoice(prompt "Il faut avoir la Reqtools.library versione 38.1210 ou supérieure, en ce système elle n' est pas présente."
				  " Choisir si installer en LIBS: ou en un autre tiroir du path de recherche de library files.")
			  (help "S' il y a un tiroir où installer le library file pas de système choisir-le par le requester suivant.")
			  (choices "Installer en LIBS:" "Choisir un tiroir" "N' installer pas")
			  (default 0)
	        )
	)
      	(select sc
	      (	
		(copyfiles
  		  (prompt "Sto copiando le librerie.")
  		  (help @copyfiles-help)
  		  (source "access/libs")
  		  (dest ("libs:"))
  		  (all)
		)
		(message("Reqtools.library installée en LIBS:"))
	      )
	      (
		(set dedi
			(askdir(prompt "Choisir un tiroir où le système recherche library files.")
			       (help"aiuto")
			       (default "sys:")
			 )
		)
		(copyfiles
  		  (prompt "Sto copiando le librerie.")
  		  (help @copyfiles-help)
  		  (source "access/libs")
  		  (dest (dedi))
  		  (all)
		)
              )
	      (
	        (abort("On n' a pas installèe Reqtools.library...le programme ne fonctionnerait pas, donc on quitte l' installation. "))
	      )	 	
	)
      )	
      (
	(set sc (askchoice  (prompt "Il faut avoir la Reqtools.library versione 38.1210 ou supérieure. ")
		     	    (help "La vieille version sera remplacèe par la nouvelle.")
			    (choices "Remplacer" "Ne remplacer pas")
		    	    (default 0)
		)
	)
        (if (= sc 0)
     	  (
		(copyfiles
  		  (prompt "Sto copiando le librerie.")
  		  (help @copyfiles-help)
  		  (source "access/libs")
  		  (dest ("libs:"))
  		  (all)
		)
		(message("Reqtools.library installée en LIBS:"))
	  )
		(message("Avec une vieille version de Reqtools.library ChimiCad pourrait pas fonctionner correctement, il faut essayer donc on achève l' installation."))
	)
      )
    ) 	

  )
	(message("Reqtools.library c' est dejà présente en ce système."))
)

; RICHIESTA DI DOVE INSTALLARE ChimiCad
(set dove (askdir
  (prompt "Choix pour l' installation du tiroir ChimiCad.")
  (default "sys:")
  (help
    (cat "On choix ici en quel tiroir mettre le fichiers de ChimiCad. "
         "Ces fichiers iront dans un tiroir appelé CHIMICAD, qui sera "
         "creé par le programme d' installation. "
    ))
))

;Crea directory
(makedir (tackon dove "chimicad")

)

(makedir (tackon dove "chimicad/ACCESSORI")

)

(makedir (tackon dove "chimicad/MANUALI")

)

(makedir (tackon dove "chimicad/ACCESSORI/ROTAZIONI")

)

(makedir (tackon dove "chimicad/ACCESSORI/BANCHI")

)

;Copia dei files
(copyfiles
  (prompt "Sto copiando l' icona del cassetto.")
  (help @copyfiles-help)
  (source "chimicad.info")
  (dest dove)
	  
)

(copyfiles
  (prompt "Sto copiando l' icona del cassetto.")
  (help @copyfiles-help)
  (source "chimicad.info")
  (dest (tackon dove "chimicad"))
  (newname "MANUALI.info")
	  
)

(copyfiles
  (prompt "Sto copiando il programma.")
  (help @copyfiles-help)
  (source "prog")
  (dest (tackon dove "chimicad"))
  (all)
	  
)

(copyfiles
  (prompt "Sto copiando la documentazione.")
  (help @copyfiles-help)
  (source "doc/italiano")
  (dest (tackon dove "chimicad/manuali"))
  (all)
	  
)


(copyfiles
  (prompt "Sto copiando l'interfaccia.")
  (help @copyfiles-help)
  (source "access/interfaccia")
  (dest (tackon dove "chimicad/ACCESSORI"))
  	  
)

(copyfiles
  (prompt "Sto copiando i settings.")
  (help @copyfiles-help)
  (source "access/chimicad.settings")
  (dest (tackon dove "chimicad/ACCESSORI"))
  	  
)

(copyfiles
  (prompt "Sto copiando il catalog.")
  (help @copyfiles-help)
  (source "access/cat/chimicad.catalog.f")
  (dest "locale:catalogs/français")
  (newname "chimicad.catalog")	  
)

(copyfiles
  (prompt "Sto copiando gli shapes.")
  (help @copyfiles-help)
  (source "access/shapes.shp")
  (dest (tackon dove "chimicad/ACCESSORI"))
  	  
)

(copyfiles
  (prompt "Sto copiando le rotazioni.")
  (help @copyfiles-help)
  (source "access/rotazioni")
  (dest (tackon dove "chimicad/ACCESSORI/ROTAZIONI"))
  (all)
	  
)

(set sc (askchoice  (prompt "Chimicad utilise Greeksymbols.font pour les lettres greques. "
		     "Ce font sera installé dans FONTS: . "
		     " Si on n' installe pas Greeksymbols.font le programme ne fonctionnera pas.")
		    (help "Si on ne veut pas installer Greeksymbols.font changer le fichier "
			  "Chimicad.settings, en remplaceant Greeksymbols.font par un .font "
			  "présent dans le système. Ce font sera activable par F4.") 
		    (choices "Installer font" "N' Installer pas")
		    (default 0)
	)
)

(if (= sc 0) 
   (
	(copyfiles
 		(prompt "Sto copiando il font Symbol.")
  		(help @copyfiles-help)
  		(source "access/fonts")
  		(dest "fonts:")
  		(all)	  
	)	
	(message ("On a installé Greeksymbols.font en FONTS: "))
      )	
	(message ("On n' a pas installé Greeksymbols.font. Changer dans le fichier ChimiCad.settings `Greeksymbols.font' avec quelconque autre nom de font."))
)


(copyfiles
  (prompt "Sto copiando le librerie.")
  (help @copyfiles-help)
  (source "access/libs")
  (dest ("libs:"))
  (all)
	  
)

(copyfiles
  (prompt "Sto copiando i banchi pennelli.")
  (help @copyfiles-help)
  (source "access/BANCHI")
  (dest (tackon dove "chimicad/ACCESSORI/BANCHI"))
  (all)
	  
)

(set ekf(exists("access/chimicad.key")))

(if (= ekf 1)

	(copyfiles
  		(prompt "Sto copiando il key file.")
  		(help @copyfiles-help)
  		(source "access/chimicad.key")
  		(dest (tackon dove "chimicad/ACCESSORI"))
	)
	(message("Version Demo, key file pas présent."))

)