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

; RICHIESTA DI DOVE INSTALLARE ChimiCad
(set dove (askdir
  (prompt "Scelta per installazione directory ChimiCad.")
  (default "sys:")
  (help
    (cat "Si sceglie da qui in quale directory inserire i files di ChimiCad. "
         "Tali files saranno contenuti in una directory chiamata CHIMICAD, "
         "che sara` automaticamente creata dal programma di installazione. "
    ))
))

;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.i")
  (dest "locale:catalogs/italiano")
  (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)
	  
)

(copyfiles
  (prompt "Sto copiando i fonts Symbol e XHelvetica.")
  (help @copyfiles-help)
  (source "access/fonts")
  (dest "fonts:")
  (all)
	  
)

(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)
	  
)