parse-category ( -- word tokens quot )

Vocabulary

unicode.categories.private

Inputs

None

Outputs

word	an object
tokens	an object
quot	an object

Definition

USING: accessors assocs classes.parser kernel parser sequences
splitting unicode.categories unicode.data.private ;

IN: unicode.categories.private

: parse-category ( -- word tokens quot )
    scan-new-class \ ; parse-until { | } split1
    [ [ name>> categories-map at ] B{ } map-as ]
    [ [ [ ] like ] [ [ drop f ] ] if* ] bi* ;