49 lines
1.1 KiB
Factor
49 lines
1.1 KiB
Factor
|
USING: accessors alien.c-types alien.private kernel kernel.private
|
||
|
|
math namespaces stack-checker.alien stack-checker.state
|
||
|
|
stack-checker.values threads.private tools.test ;
|
||
|
|
IN: stack-checker.alien.tests
|
||
|
|
|
||
|
|
! alien-inputs/outputs
|
||
|
|
{
|
||
|
|
V{ 31 32 }
|
||
|
|
{ 33 }
|
||
|
|
} [
|
||
|
|
0 inner-d-index set
|
||
|
|
V{ } clone (meta-d) set
|
||
|
|
H{ } clone known-values set
|
||
|
|
V{ } clone literals set
|
||
|
|
30 \ <value> set-global
|
||
|
|
alien-node-params new int >>return { int int } >>parameters
|
||
|
|
alien-inputs/outputs
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
{
|
||
|
|
V{ 31 32 33 }
|
||
|
|
{ 34 }
|
||
|
|
} [
|
||
|
|
0 inner-d-index set
|
||
|
|
V{ } clone (meta-d) set
|
||
|
|
H{ } clone known-values set
|
||
|
|
V{ } clone literals set
|
||
|
|
30 \ <value> set-global
|
||
|
|
alien-indirect-params new int >>return { int int } >>parameters
|
||
|
|
alien-inputs/outputs
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
! wrap-callback-quot
|
||
|
|
{
|
||
|
|
[
|
||
|
|
[
|
||
|
|
{ fixnum fixnum } declare [ [ ] dip ] dip
|
||
|
|
"hello" >fixnum
|
||
|
|
] [
|
||
|
|
dup current-callback eq?
|
||
|
|
[ drop ] [ wait-for-callback ] if
|
||
|
|
] do-callback
|
||
|
|
]
|
||
|
|
} [
|
||
|
|
alien-node-params new
|
||
|
|
int >>return { int int } >>parameters
|
||
|
|
[ "hello" ] wrap-callback-quot
|
||
|
|
] unit-test
|