;
; $VER: Script di Installazione di ProspEd v1.0 (c) David Lo Buglio (29.03.00)
;

(set @default-dest "Work:")
(set #wrongOS  "ProspEd necessita dell'OS2.0 o superiore\n")
(set #TGest_dir       (cat "Scegli il cassetto o la partizione\n"
                           "dove installare il cassetto TGest.\n\n"
                           "Se il cassetto esiste già, allora seleziona\n"
                           "il cassetto o la partizione che lo contiene\n"))

(set #done (cat "\nProspEd è stato installato con successo.\n\n"))

(set OS_ver (getversion "exec.library" (resident)))
(if (< OS_ver (* 37 65536)) (abort #wrongOS))

(complete 0)

(set TGest_def_dir @default-dest)

(set TGest_dir
        (askdir
                (default TGest_def_dir)
                (prompt  #TGest_dir)
                (help    @askdir-help)
        )
)

(set TGest_dir (tackon TGest_dir "TGest"))

(if (not (exists TGest_dir))
        (makedir TGest_dir (infos))
)

(if (NOT (exists (tackon TGest_dir "Doc")))
   (
      (makedir (tackon TGest_dir "Doc") (infos))
   )
)

(if (NOT (exists (tackon TGest_dir "Prospetti")))
   (
      (makedir (tackon TGest_dir "Prospetti"))
   )
)
(complete 20)

(set Doc_dir (tackon TGest_dir "Doc"))
(set Pro_dir (tackon TGest_dir "Prospetti"))

(copyfiles (source "ProspEd")    (dest TGest_dir) (infos) (help @copyfiles-help))
(complete 80)

(copyfiles (source "Prospetti/") (dest Pro_dir) (all)   (help @copyfiles-help))
(complete 90)

(copyfiles (source "Doc/")       (dest Doc_dir) (all) (help @copyfiles-help))
(complete 100)

(message #done "\"" TGest_dir "\"")

(exit (QUIET))