base ( char -- base )

Vocabulary

unicode.collation.private

Inputs

char

an object

Outputs

base

an object

Definition

USING: combinators kernel math.order ;

IN: unicode.collation.private

: base ( char -- base )
    {
        { [ dup 13312 19903 between? ] [ drop 64384 ] }
        { [ dup 131072 173791 between? ] [ drop 64384 ] }
        { [ dup 173824 177977 between? ] [ drop 64384 ] }
        { [ dup 177984 178205 between? ] [ drop 64384 ] }
        { [ dup 178208 183969 between? ] [ drop 64384 ] }
        { [ dup 183984 191456 between? ] [ drop 64384 ] }
        { [ dup 196608 201546 between? ] [ drop 64384 ] }
        { [ dup 201552 205743 between? ] [ drop 64384 ] }
        { [ dup 191472 192093 between? ] [ drop 64384 ] }
        { [ dup 194560 195101 between? ] [ drop 64384 ] }
        { [ dup 19968 40959 between? ] [ drop 64320 ] }
        { [ dup 63744 64217 between? ] [ drop 64320 ] }
        [ drop 64448 ]
    } cond ;