parsed-core-to-file ( -- )

Vocabulary

modern.out

Inputs

None

Outputs

None

Definition

USING: arrays assocs io.encodings.utf8 io.files kernel modern
modern.paths modern.slices prettyprint sequences ;

IN: modern.out

: parsed-core-to-file ( -- )
    core-vocabs [ vocab>literals ] zip-with [
        first2 [ "<VOCAB: " prepend ] dip
        >strings ";VOCAB>" 3array
    ] map 1array {
        "<VOCAB-ROOT:"
        "factorcode-core"
        "https://factorcode.org/git/factor.git"
        "core/"
    } { ";VOCAB-ROOT>" } surround
    "resource:core-parsed.factor" utf8 [ ... ] with-file-writer
    ;