c-type-interval ( c-type -- from to )

Vocabulary

alien.c-types

Inputs

c-type

an object

Outputs

from	an object
to	an object

Definition

USING: combinators kernel sequences ;

IN: alien.c-types

: c-type-interval ( c-type -- from to )
    {
        {
            [ dup { float double } member-eq? ]
            [ drop -1/0. 1/0. ]
        }
        { [ dup c-type-signed ] [ signed-interval ] }
        { [ dup c-type-signed not ] [ unsigned-interval ] }
    } cond ; foldable flushable