primitive-pointer-type? ( type -- ? )

Vocabulary

alien.c-types.private

Inputs

type

an object

Outputs

?

an object

Definition

USING: alien.c-types combinators.short-circuit kernel sequences
;

IN: alien.c-types.private

: primitive-pointer-type? ( type -- ? )
    [ c-type-word? ] [
        resolve-pointer-typedef
        { [ void? ] [ primitive-types member? ] } 1||
    ] [ drop t ] 1if ;