mirror of
https://gitlab.com/qemu-project/openbios.git
synced 2024-02-13 08:34:06 +08:00
a757800a01
git-svn-id: svn://coreboot.org/openbios/openbios-devel@285 f158a5a8-5612-0410-a976-696ce0be7e32
37 lines
813 B
Forth
37 lines
813 B
Forth
\ 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
|
|
;
|