parse-logical ( byte-array -- n )

Vocabulary

dbf

Inputs

byte-array

an object

Outputs

n

an object

Definition

USING: combinators kernel sequences ;

IN: dbf

: parse-logical ( byte-array -- n )
    first {
        { [ dup "TtYy" member? ] [ drop t ] }
        { [ dup "FfNn" member? ] [ drop f ] }
        { [ dup "? " member? ] [ drop unknown ] }
        [ illegal-logical ]
    } cond ;