typedef-endian ( n ? c-type endian -- )

Vocabulary

alien.endian

Inputs

n	an object
?	an object
c-type	an object
endian	an object

Outputs

None

Definition

USING: alien.c-types endian kernel namespaces ;

IN: alien.endian

: typedef-endian ( n ? c-type endian -- )
    native-endianness get =
    [ 2nip [ endian-c-type>c-type-symbol ] keep typedef ]
    [ [ change-c-type-accessors ] keep typedef ] if ;