Return to clib.fs CVS log

Up to [Qemu by Fabrice Bellard] / qemu / roms / openbios / libopenbios

Annotation of qemu/roms/openbios/libopenbios/clib.fs, revision 1.1

1.1     ! root        1: \ tag: C helpers
        !             2: \ 
        !             3: \ Misc C helpers
        !             4: \ 
        !             5: \ Copyright (C) 2003, 2004 Samuel Rydh
        !             6: \ 
        !             7: \ See the file "COPYING" for further information about
        !             8: \ the copyright and warranty status of this work.
        !             9: \ 
        !            10: 
        !            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
        !            14: ;
        !            15: 
        !            16: \ install C function
        !            17: : is-cfunc ( funcaddr word word-len -- )
        !            18:   $create , does> @ call
        !            19: ;
        !            20: 
        !            21: \ install a nameless C function
        !            22: : is-noname-cfunc ( funcaddr -- xt )
        !            23:   0 0 is-cfunc last-xt
        !            24: ;
        !            25: 
        !            26: \ is-xt-cfunc installs a function which does the following:
        !            27: \   - xt is executes
        !            28: \   - funcarg is pushed
        !            29: \   - funcaddr is called
        !            30: 
        !            31: : is-xt-cfunc ( xt|0 funcarg funcaddr word word-len -- )
        !            32:        is-func-begin
        !            33:   rot ?dup if , then
        !            34:   swap ['] (lit) , , ['] (lit) , , ['] call ,
        !            35:        is-func-end
        !            36: ;

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.