Return to helpers.fs CVS log

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

Annotation of qemu/roms/openbios/libopenbios/helpers.fs, revision 1.1.1.1

1.1       root        1: \ tag: helper functions
                      2: \ 
                      3: \ deblocker / filesystem support
                      4: \ 
                      5: \ Copyright (C) 2003 Samuel Rydh
                      6: \ 
                      7: \ See the file "COPYING" for further information about
                      8: \ the copyright and warranty status of this work.
                      9: \ 
                     10: 
                     11: 
                     12: \ create device node and any missing parents.
                     13: \ The new node becomes the active package
                     14: 
                     15: : create-node ( nodepath -- )
                     16:   recursive
                     17:   ascii / right-split
                     18:   2dup find-dev if
                     19:     active-package!
                     20:     2drop
                     21:   else
                     22:     ( nodename path )
                     23:     dup if
                     24:       create-node
                     25:     else
                     26:       device-tree @ active-package!
                     27:       2drop
                     28:     then
                     29:   then
                     30:   new-device
                     31:   device-name
                     32:   active-package
                     33:   finish-device
                     34:   active-package!
                     35: ;

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