c-type-word

Vocabulary

alien.c-types

Definition

USING: kernel words ;

IN: alien.c-types

PREDICATE: c-type-word < word "c-type" word-prop >boolean ;

Methods

USING: alien.c-types stack-checker.dependencies ;

M: c-type-word add-depends-on-c-type +definition+ depends-on ;


USING: accessors alien.c-types alien.data kernel sequences
specialized-arrays specialized-arrays.private words ;

M: c-type-word c-(array)-constructor
    underlying-type [
        [ name>> "(" "-array)" surround ]
        [ specialized-array-vocab ] bi lookup-word
    ] [ specialized-array-vocab-not-loaded ] ?unless ; foldable
    flushable


USING: accessors alien.c-types alien.data kernel sequences
specialized-arrays specialized-arrays.private words ;

M: c-type-word c-array-constructor
    underlying-type [
        [ name>> "<" "-array>" surround ]
        [ specialized-array-vocab ] bi lookup-word
    ] [ specialized-array-vocab-not-loaded ] ?unless ; foldable
    flushable


USING: accessors alien.c-types alien.data kernel sequences
specialized-arrays specialized-arrays.private words ;

M: c-type-word c-array-type
    underlying-type [
        [ name>> "-array" append ] [ specialized-array-vocab ]
        bi lookup-word
    ] [ specialized-array-vocab-not-loaded ] ?unless ; foldable
    flushable


USING: accessors alien.c-types alien.data kernel sequences
specialized-arrays specialized-arrays.private words ;

M: c-type-word c-array-type?
    underlying-type [
        [ name>> "-array?" append ] [ specialized-array-vocab ]
        bi lookup-word
    ] [ specialized-array-vocab-not-loaded ] ?unless ; foldable
    flushable


USING: accessors alien.c-types alien.data kernel sequences
specialized-arrays specialized-arrays.private words ;

M: c-type-word c-direct-array-constructor
    underlying-type [
        [ name>> "<direct-" "-array>" surround ]
        [ specialized-array-vocab ] bi lookup-word
    ] [ specialized-array-vocab-not-loaded ] ?unless ; foldable
    flushable


USING: alien.c-types kernel see.private ;

M: c-type-word declarations. drop ;


USING: alien.c-types alien.syntax definitions kernel ;

M: c-type-word definer drop \ C-TYPE: f ;


USING: alien.c-types definitions kernel ;

M: c-type-word definition drop f ;


USING: alien.c-types combinators kernel specialized-arrays words
;

M: c-type-word underlying-type
    dup "c-type" word-prop {
        { [ dup not ] [ drop no-c-type ] }
        { [ dup pointer? ] [ 2drop void* ] }
        { [ dup c-type-word? ] [ nip underlying-type ] }
        [ drop ]
    } cond ;