! 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