; 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 "ChimiCad want Reqtools.library versione 38.1210 or greater, this library it'snt present, without program could'nt work."
				  " Default destination is LIBS:, it's possible to use any directory added to LIBS search PATH. ")
			  (help "Choose destination directory in requester.")
			  (choices "Install in LIBS:" "Choose directory" "Not install")
			  (default 0)
	        )
	)
      	(select sc
	      (	
		(copyfiles
  		  (prompt "Sto copiando le librerie.")
  		  (help @copyfiles-help)
  		  (source "access/libs")
  		  (dest ("libs:"))
  		  (all)
		)
		(message("Reqtools.library copied in LIBS:"))
	      )
	      (
		(set dedi
			(askdir(prompt "Choose a directory added to LIBS: search PATH")
			       (help"Use requester to choose directory.")
			       (default "sys:")
			 )
		)
		(copyfiles
  		  (prompt "Sto copiando le librerie.")
  		  (help @copyfiles-help)
  		  (source "access/libs")
  		  (dest (dedi))
  		  (all)
		)
              )
	      (
	        (abort("Not install choosed...program can't run without Reqtools.library then abort install. "))
	      )	 	
	)
      )	
      (
	(set sc (askchoice  (prompt "Chimicad tested with Reqtools.library version 38.1210 or greater. ")
		     	    (help "Your older Reqtools.library version will be replaced by new. ")
			    (choices "Update" "Don't update")
		    	    (default 0)
		)
	)
        (if (= sc 0)
     	  (
		(copyfiles
  		  (prompt "Sto copiando le librerie.")
  		  (help @copyfiles-help)
  		  (source "access/libs")
  		  (dest ("libs:"))
  		  (all)
		)
		(message("Reqtools.library copied in LIBS:"))
	  )
		(message("Not update choosed...program could not work, finish install and try to run it. "))
	)
      )
    ) 	

  )
	(message("Reqtools.library 38.1210 or greater already present in your system."))
)

; WHERE INSTALL ChimiCad ?
(set dove (askdir
  (prompt "Choice of installation directory for ChimiCad.")
  (default "sys:")
  (help
    (cat "From here you can choose the directory where install program and. "
         "related files. Installer create automatically here a directory called"
         "ChimiCad from where the program will be accesible. "
    ))
))

;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 "Copying drawer icon.")
  (help @copyfiles-help)
  (source "chimicad.info")
  (dest dove)
	  
)

(copyfiles
  (prompt "Copying drawer icon.")
  (help @copyfiles-help)
  (source "chimicad.info")
  (dest (tackon dove "chimicad"))
  (newname "MANUALS.info")
	  
)

(copyfiles
  (prompt "Copying program.")
  (help @copyfiles-help)
  (source "prog")
  (dest (tackon dove "chimicad"))
  (all)
	  
)

(copyfiles
  (prompt "Copying docs.")
  (help @copyfiles-help)
  (source "doc/english")
  (dest (tackon dove "chimicad/manuali"))
  (all)
	  
)


(copyfiles
  (prompt "Copying interface.")
  (help @copyfiles-help)
  (source "access/interfaccia")
  (dest (tackon dove "chimicad/ACCESSORI"))
  	  
)

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

(copyfiles
  (prompt "Copying catalog.")
  (help @copyfiles-help)
  (source "access/cat/chimicad.catalog.e")
  (dest "locale:catalogs/english")
  (newname "chimicad.catalog")	  
)

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

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

(set sc (askchoice  (prompt "Chimicad use Greeksymbols.font for his SPECIAL FONT. "
		     "This font will be installed in FONTS: . "
		     " If this font is not present program can't work properly.")
		    (help " If you doesn't want install this font, you'll need to modify the file"
			  "Chimicad.settings, changing Greeksymbols.font with an other name of font. "
			  "present in your system.") 
		    (choices "Install" "Not Install")
		    (default 0)
	)
)

(if (= sc 0) 
   (
	(copyfiles
 		(prompt "Sto copiando il font Symbol.")
  		(help @copyfiles-help)
  		(source "access/fonts")
  		(dest "fonts:")
  		(all)	  
	)	
	(message ("Greeksymbols.font installed in FONTS: "))
      )	
	(message ("Greeksymbols.font not installed. Change in ChimiCad.settings `Greeksymbols.font' with an other font name."))
)


(copyfiles
  (prompt "Copying libraries.")
  (help @copyfiles-help)
  (source "access/libs")
  (dest ("LIBS:"))
  (all)
	  
)

(copyfiles
  (prompt "Copying shapes banks.")
  (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("Evaluation version, key file not present."))

)