Add qemu 2.4.0

[kvmfornfv.git] / qemu / roms / openbios / libopenbios / clib.fs

diff --git a/qemu/roms/openbios/libopenbios/clib.fs b/qemu/roms/openbios/libopenbios/clib.fs
new file mode 100644 (file)
index 0000000..04dd0aa
--- /dev/null
+++ b/qemu/roms/openbios/libopenbios/clib.fs
@@ -0,0 +1,36 @@
+\ 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
+;