; Ask for destination

(set @default-dest   (askdir  (prompt "Select destination")
                              (default @default-dest)
                              (help (cat "Select the directory PDBase will be copied to.\n"
                                          "Note: a sub-directory will be created.\n\n"
                                          @askdir-help))
                     )
)



; Create PDBase directory

(makedir (tackon @default-dest "PDBase") (infos))
(set @default-dest (tackon @default-dest "PDBase"))

; Copy PDBase program and doc
(copyfiles  (source "")
            (pattern "~(Install#?|Catalogs)")
            (dest @default-dest)
            (infos)
)



; Ask for catalogs

(copyfiles  (prompt "Which catalogs shall I install")
            (source "Catalogs/")
            (dest (tackon @default-dest "catalogs"))
            (choices "français")
            (confirm)
            (help (cat  "If you run system 2.1 or better,"
                        "you should install your prefered language.\n\n"
                        @copyfiles-help))
)