qualified

Vocabulary

vocabs.parser

Definition

IN: vocabs.parser

TUPLE: qualified vocab prefix words ;

Methods

USING: accessors kernel prettyprint.backend prettyprint.sections
vocabs vocabs.parser vocabs.prettyprint
vocabs.prettyprint.private ;

M: qualified pprint-qualified
    [
        dup [ vocab>> vocab-name ] [ prefix>> ] bi =
        [ \ QUALIFIED: pprint-word vocab>> pprint-vocab ] [
            \ QUALIFIED-WITH: pprint-word
            [ vocab>> pprint-vocab ] [ prefix>> text ] bi
        ] if
    ] with-pprint ;


USING: accessors kernel vocabs vocabs.parser
vocabs.parser.private ;

M: qualified update
    dup vocab>> lookup-vocab [
        dup [ prefix>> ] [ vocab>> load-vocab ] bi
        qualified-words >>words
    ] [ drop f ] if ;