26 lines
702 B
Factor
26 lines
702 B
Factor
|
! Copyright (C) 2007 Slava Pestov.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: alien alien.c-types parser threads words kernel.private
|
||
|
|
kernel ;
|
||
|
|
IN: alien.remote-control
|
||
|
|
|
||
|
|
: eval-callback
|
||
|
|
"void*" { "char*" } "cdecl"
|
||
|
|
[ eval>string malloc-char-string ] alien-callback ;
|
||
|
|
|
||
|
|
: yield-callback
|
||
|
|
"void" { } "cdecl" [ yield ] alien-callback ;
|
||
|
|
|
||
|
|
: sleep-callback
|
||
|
|
"void" { "long" } "cdecl" [ sleep ] alien-callback ;
|
||
|
|
|
||
|
|
: ?callback ( word -- alien )
|
||
|
|
dup compiled? [ execute ] [ drop f ] if ; inline
|
||
|
|
|
||
|
|
: init-remote-control ( -- )
|
||
|
|
\ eval-callback ?callback 16 setenv
|
||
|
|
\ yield-callback ?callback 17 setenv
|
||
|
|
\ sleep-callback ?callback 18 setenv ;
|
||
|
|
|
||
|
|
MAIN: init-remote-control
|