\ tag: C helpers
\ 
\ Misc C helpers
\ 
\ Copyright (C) 2003, 2004 Samuel Rydh
\ 
\ See the file "COPYING" for further information about
\ the copyright and warranty status of this work.
\ 

\ should perhaps be moved somewhere else
: set-property ( buf len propname propname-len phandle -- )
	>r 2swap encode-bytes 2swap r> encode-property
;

\ install C function
: is-cfunc ( funcaddr word word-len -- )
  $create , does> @ call
;

\ install a nameless C function
: is-noname-cfunc ( funcaddr -- xt )
  0 0 is-cfunc last-xt
;

\ is-xt-cfunc installs a function which does the following:
\   - xt is executes
\   - funcarg is pushed
\   - funcaddr is called

: is-xt-cfunc ( xt|0 funcarg funcaddr word word-len -- )
	is-func-begin
  rot ?dup if , then
  swap ['] (lit) , , ['] (lit) , , ['] call ,
	is-func-end
;