process-category ( data -- category-listing )


Vocabulary
unicode.data.private

Inputs
dataan object


Outputs
category-listingan object


Definition
USING: assocs byte-arrays sequences ;

IN: unicode.data.private

:: process-category ( data -- category-listing )
NUM-CHARS <byte-array> :> table 2 data (process-data)
[| char cat | cat categories-map at char table ?set-nth ]
assoc-each table fill-ranges ;