IN: vocabs.parser

TUPLE: qualified vocab prefix words ;

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 ;