copy-vocab-resources ( dir vocab -- )

Vocabulary

vocabs.metadata.resources

Inputs

dir	a string
vocab	a string

Outputs

None

Word description

Copies all the vocabs resource files to the given directory.

Definition

USING: io.directories io.pathnames kernel sequences
vocabs.loader vocabs.metadata.resources.private ;

IN: vocabs.metadata.resources

: copy-vocab-resources ( dir vocab -- )
    dup vocab-resource-files
    [ 2drop ] [
        [ [ vocab-dir append-path ] [ vocab-dir-in-root ] bi ]
        dip
        [ 2drop make-directories ]
        [ [ copy-vocab-resource ] 2with each ] 3bi
    ] if-empty ;