factor/basis/tools/deploy/test/9/9.factor

USING: alien alien.c-types kernel math ;
IN: tools.deploy.test.9

: callback-test ( -- callback )
    int { int } cdecl [ 1 + ] alien-callback ;

: indirect-test ( -- )
    10 callback-test int { int } cdecl alien-indirect 11 assert= ;

MAIN: indirect-test
update a bunch of alien-callbacks and alien-indirects to use c-type words 2009-10-21 22:10:11 -04:00			`USING: alien alien.c-types kernel math ;`
Add a new deploy test to test callbacks 2008-12-12 20:48:51 -05:00			`IN: tools.deploy.test.9`

			`: callback-test ( -- callback )`
"cdecl" -> cdecl 2010-03-31 22:20:35 -04:00			`int { int } cdecl [ 1 + ] alien-callback ;`
Add a new deploy test to test callbacks 2008-12-12 20:48:51 -05:00
			`: indirect-test ( -- )`
"cdecl" -> cdecl 2010-03-31 22:20:35 -04:00			`10 callback-test int { int } cdecl alien-indirect 11 assert= ;`
Add a new deploy test to test callbacks 2008-12-12 20:48:51 -05:00
			`MAIN: indirect-test`