qemu/roms/openbios/libopenbios/helpers.fs

   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 ;