strings-core-to-file ( -- )

Vocabulary

modern.out

Inputs

None

Outputs

None

Definition

USING: assocs io.encodings.utf8 io.files kernel modern.paths
modern.slices sequences splitting vocabs.loader ;

IN: modern.out

: strings-core-to-file ( -- )
    core-vocabs [
        ".private" ?tail drop
        vocab-source-path utf8 file-contents
    ] zip-with
    [ "[========[" dup matching-delimiter-string surround ]
    assoc-map [ first2 [ "VOCAB: " prepend ] dip " " glue ] map
    [ "    " prepend ] map "\n\n" join
    "<VOCAB-ROOT: factorcode-core \"https://factorcode.org/git/fact..."
    "\n;VOCAB-ROOT>" surround
    "resource:core-strings.factor" utf8 set-file-contents ;