^^unbox-c-ptr ( src class -- dst )

Vocabulary

compiler.cfg.hats

Inputs

src	an object
class	an object

Outputs

dst

an object

Definition

USING: alien byte-arrays classes.algebra combinators kernel ;

IN: compiler.cfg.hats

: ^^unbox-c-ptr ( src class -- dst )
    {
        { [ dup \ f class<= ] [ drop ^^unbox-f ] }
        { [ dup alien class<= ] [ drop ^^unbox-alien ] }
        {
            [ dup byte-array class<= ]
            [ drop ^^unbox-byte-array ]
        }
        [ drop ^^unbox-any-c-ptr ]
    } cond ;