(set #name
    (askdir
        (prompt "Please enter the directory, where to put PPitch. Directory will be created")
        (help @askdir-help)
        (default "SYS:")
    )
)

(set #locales
    (askoptions
        (choices "Suomi" "Polski")
;        (default 0)
        (help @askoptions-help)
        (prompt "Select language catalogs to be installed")
    )
)

(set #dir
    (tackon (#name) ("PPitch"))
)

(makedir #dir (infos))

(set @default-dest (#dir))

(set #locdir
    (tackon (#dir) ("Catalogs"))
)

(makedir #locdir)

(if (IN #locales 0)
    (copyfiles
        (prompt "Copying locales")
        (help @copyfiles-help)
        (dest #locdir)
        (source "Catalogs")
        (pattern "suomi")
    )
)

(if (IN #locales 1)
    (copyfiles
        (prompt "Copying locales")
        (help @copyfiles-help)
        (dest #locdir)
        (source "Catalogs")
        (pattern "polski")
    )
)


(copyfiles
    (prompt "Copying files")
    (help @copyfiles-help)
    (dest #dir)
    (source "")
    (pattern "~(catalogs)")
)