alien.c-types: move definitions of stdint.h from unix.types.
parent
e60c661f72
commit
56b95b09a1
|
@ -62,7 +62,6 @@ M: word lookup-c-type
|
||||||
dup "c-type" word-prop resolve-typedef
|
dup "c-type" word-prop resolve-typedef
|
||||||
[ ] [ no-c-type ] ?if ;
|
[ ] [ no-c-type ] ?if ;
|
||||||
|
|
||||||
|
|
||||||
GENERIC: c-type-class ( name -- class )
|
GENERIC: c-type-class ( name -- class )
|
||||||
|
|
||||||
M: abstract-c-type c-type-class class>> ;
|
M: abstract-c-type c-type-class class>> ;
|
||||||
|
@ -176,7 +175,8 @@ TUPLE: long-long-type < c-type ;
|
||||||
|
|
||||||
SYMBOLS:
|
SYMBOLS:
|
||||||
ptrdiff_t intptr_t uintptr_t size_t
|
ptrdiff_t intptr_t uintptr_t size_t
|
||||||
c-string ;
|
c-string int8_t uint8_t int16_t uint16_t
|
||||||
|
int32_t uint32_t int64_t uint64_t ;
|
||||||
|
|
||||||
CONSTANT: primitive-types
|
CONSTANT: primitive-types
|
||||||
{
|
{
|
||||||
|
@ -462,6 +462,16 @@ M: pointer lookup-c-type
|
||||||
object >>boxed-class
|
object >>boxed-class
|
||||||
\ bool typedef
|
\ bool typedef
|
||||||
|
|
||||||
|
\ char lookup-c-type int8_t typedef
|
||||||
|
\ short lookup-c-type int16_t typedef
|
||||||
|
\ int lookup-c-type int32_t typedef
|
||||||
|
\ longlong lookup-c-type int64_t typedef
|
||||||
|
|
||||||
|
\ uchar lookup-c-type uint8_t typedef
|
||||||
|
\ ushort lookup-c-type uint16_t typedef
|
||||||
|
\ uint lookup-c-type uint32_t typedef
|
||||||
|
\ ulonglong lookup-c-type uint64_t typedef
|
||||||
|
|
||||||
] with-compilation-unit
|
] with-compilation-unit
|
||||||
|
|
||||||
M: char-16-rep rep-component-type drop char ;
|
M: char-16-rep rep-component-type drop char ;
|
||||||
|
|
|
@ -2,16 +2,6 @@ USING: accessors alien.c-types alien.syntax system vocabs ;
|
||||||
FROM: sequences => append ;
|
FROM: sequences => append ;
|
||||||
IN: unix.types
|
IN: unix.types
|
||||||
|
|
||||||
TYPEDEF: char int8_t
|
|
||||||
TYPEDEF: short int16_t
|
|
||||||
TYPEDEF: int int32_t
|
|
||||||
TYPEDEF: longlong int64_t
|
|
||||||
|
|
||||||
TYPEDEF: uchar uint8_t
|
|
||||||
TYPEDEF: ushort uint16_t
|
|
||||||
TYPEDEF: uint uint32_t
|
|
||||||
TYPEDEF: ulonglong uint64_t
|
|
||||||
|
|
||||||
TYPEDEF: uchar u_int8_t
|
TYPEDEF: uchar u_int8_t
|
||||||
TYPEDEF: ushort u_int16_t
|
TYPEDEF: ushort u_int16_t
|
||||||
TYPEDEF: uint u_int32_t
|
TYPEDEF: uint u_int32_t
|
||||||
|
|
Loading…
Reference in New Issue