derive-weight ( 1string -- weight-levels-pair )

Vocabulary

unicode.collation.private

Inputs

1string

an object

Outputs

weight-levels-pair

an object

Definition

USING: arrays combinators kernel sequences ;

IN: unicode.collation.private

: derive-weight ( 1string -- weight-levels-pair )
    first {
        {
            [ dup tangut-block? ]
            [ [ tangut-AAAA ] [ tangut-BBBB ] bi 2array ]
        }
        {
            [ dup nushu-block? ]
            [ [ nushu-AAAA ] [ nushu-BBBB ] bi 2array ]
        }
        {
            [ dup khitan-block? ]
            [ [ khitan-AAAA ] [ khitan-BBBB ] bi 2array ]
        }
        [ [ AAAA ] [ BBBB ] bi 2array ]
    } cond ;