resolve-pointer-typedef ( type -- base-type )

Vocabulary

alien.c-types.private

Inputs

type

an object

Outputs

base-type

an object

Definition

USING: alien.c-types kernel words ;

IN: alien.c-types.private

: resolve-pointer-typedef ( type -- base-type )
    dup "c-type" word-prop dup word?
    [ nip resolve-pointer-typedef ]
    [ pointer? [ drop void* ] when ] if ;