parse-weight ( string -- weight )

Vocabulary

unicode.collation.private

Inputs

string

an object

Outputs

weight

an object

Definition

USING: accessors kernel math.parser sequences splitting ;

IN: unicode.collation.private

: parse-weight ( string -- weight )
    "]" split but-last [
        weight-levels new swap rest unclip 42 =
        swapd >>ignorable? swap "." split first3 [ hex> ] tri@
        [ >>primary ] [ >>secondary ] [ >>tertiary ] tri*
    ] map ;