code-files ( dir -- files )

Vocabulary

codebook

Inputs

dir

an object

Outputs

files

an object

Definition

USING: accessors io.directories io.encodings.binary
io.encodings.detect kernel sequences sorting xmode.catalog ;

IN: codebook

: code-files ( dir -- files )
    recursive-directory-files [ include-file-name? ] filter [
        dup detect-file dup binary?
        [ f ] [ 2dup dupd first-line find-mode ] if
        code-file boa
    ] map [ mode>> ] filter [ name>> ] sort-by ;