fill-ranges ( table -- table )

Vocabulary

unicode.data.private

Inputs

table

an object

Outputs

table

an object

Definition

USING: assocs combinators.short-circuit grouping kernel ranges
sequences sorting unicode.data ;

IN: unicode.data.private

:: fill-ranges ( table -- table )
    name-map sort-values keys
    [ { [ "first>" tail? ] [ "last>" tail? ] } 1|| ] filter
    2 group [
        [ name-map at ] bi@ [ [a..b] ] [ table ?nth ] bi
        [ swap table ?set-nth ] curry each
    ] assoc-each table ;