74 lines
1.9 KiB
Factor
74 lines
1.9 KiB
Factor
USING: alien.c-types alien.prettyprint alien.syntax
|
|
io.streams.string see tools.test prettyprint
|
|
io.encodings.ascii ;
|
|
IN: alien.prettyprint.tests
|
|
|
|
CONSTANT: FOO 10
|
|
|
|
FUNCTION: int function_test ( float x, int[4][FOO] y, char* z, ushort *w ) ;
|
|
|
|
[ "USING: alien.c-types alien.syntax ;
|
|
IN: alien.prettyprint.tests
|
|
FUNCTION: int function_test
|
|
( float x, int[4][FOO] y, char* z, ushort* w ) ; inline
|
|
" ] [
|
|
[ \ function_test see ] with-string-writer
|
|
] unit-test
|
|
|
|
FUNCTION-ALIAS: function-test int function_test
|
|
( float x, int[4][FOO] y, char* z, ushort *w ) ;
|
|
|
|
[ "USING: alien.c-types alien.syntax ;
|
|
IN: alien.prettyprint.tests
|
|
FUNCTION-ALIAS: function-test int function_test
|
|
( float x, int[4][FOO] y, char* z, ushort* w ) ; inline
|
|
" ] [
|
|
[ \ function-test see ] with-string-writer
|
|
] unit-test
|
|
|
|
TYPEDEF: c-string[ascii] string-typedef
|
|
TYPEDEF: char[1][2][3] array-typedef
|
|
|
|
[ "USING: alien.c-types alien.syntax ;
|
|
IN: alien.prettyprint.tests
|
|
TYPEDEF: c-string[ascii] string-typedef
|
|
" ] [
|
|
[ \ string-typedef see ] with-string-writer
|
|
] unit-test
|
|
|
|
[ "USING: alien.c-types alien.syntax ;
|
|
IN: alien.prettyprint.tests
|
|
TYPEDEF: char[1][2][3] array-typedef
|
|
" ] [
|
|
[ \ array-typedef see ] with-string-writer
|
|
] unit-test
|
|
|
|
C-TYPE: opaque-c-type
|
|
|
|
[ "USING: alien.syntax ;
|
|
IN: alien.prettyprint.tests
|
|
C-TYPE: opaque-c-type
|
|
" ] [
|
|
[ \ opaque-c-type see ] with-string-writer
|
|
] unit-test
|
|
|
|
TYPEDEF: pointer: int pint
|
|
|
|
[ "USING: alien.c-types alien.syntax ;
|
|
IN: alien.prettyprint.tests
|
|
TYPEDEF: int* pint
|
|
" ] [
|
|
[ \ pint see ] with-string-writer
|
|
] unit-test
|
|
|
|
[ "pointer: int" ] [ pointer: int unparse ] unit-test
|
|
|
|
CALLBACK: void callback-test ( int x, float[4] y ) ;
|
|
|
|
[ "USING: alien.c-types alien.syntax ;
|
|
IN: alien.prettyprint.tests
|
|
CALLBACK: void callback-test ( int x, float[4] y ) ;
|
|
" ] [
|
|
[ \ callback-test see ] with-string-writer
|
|
] unit-test
|