5 \ Copyright (C) 2003, 2004 Samuel Rydh
7 \ See the file "COPYING" for further information about
8 \ the copyright and warranty status of this work.
11 \ should perhaps be moved somewhere else
12 : set-property ( buf len propname propname-len phandle -- )
13 >r 2swap encode-bytes 2swap r> encode-property
17 : is-cfunc ( funcaddr word word-len -- )
18 $create , does> @ call
21 \ install a nameless C function
22 : is-noname-cfunc ( funcaddr -- xt )
26 \ is-xt-cfunc installs a function which does the following:
29 \ - funcaddr is called
31 : is-xt-cfunc ( xt|0 funcarg funcaddr word word-len -- )
34 swap ['] (lit) , , ['] (lit) , , ['] call ,