diff options
Diffstat (limited to 'qemu/roms/openbios/libopenbios/helpers.fs')
| -rw-r--r-- | qemu/roms/openbios/libopenbios/helpers.fs | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/qemu/roms/openbios/libopenbios/helpers.fs b/qemu/roms/openbios/libopenbios/helpers.fs new file mode 100644 index 000000000..8f5db9ffc --- /dev/null +++ b/qemu/roms/openbios/libopenbios/helpers.fs @@ -0,0 +1,35 @@ +\ tag: helper functions +\ +\ deblocker / filesystem support +\ +\ Copyright (C) 2003 Samuel Rydh +\ +\ See the file "COPYING" for further information about +\ the copyright and warranty status of this work. +\ + + +\ create device node and any missing parents. +\ The new node becomes the active package + +: create-node ( nodepath -- ) + recursive + ascii / right-split + 2dup find-dev if + active-package! + 2drop + else + ( nodename path ) + dup if + create-node + else + device-tree @ active-package! + 2drop + then + then + new-device + device-name + active-package + finish-device + active-package! +; |