control-class ( ch -- class )

Vocabulary

unicode.breaks.private

Inputs

ch

an object

Outputs

class

an object

Definition

USING: combinators kernel unicode.data ;

IN: unicode.breaks.private

: control-class ( ch -- class )
    {
        { [ dup 13 = ] [ drop CR ] }
        { [ dup 10 = ] [ drop LF ] }
        { [ dup 8204 = ] [ drop Extend ] }
        { [ dup 8205 = ] [ drop ZWJ ] }
        {
            [ dup "Other_Grapheme_Extend" property? ]
            [ drop Extend ]
        }
        [ drop Control ]
    } cond ;