Initial import of abandoned HQEMU version 2.5.2HEADmaster

1 files changed, 35 insertions, 0 deletions

diff --git a/src/roms/openbios/libopenbios/helpers.fs b/src/roms/openbios/libopenbios/helpers.fs
new file mode 100644
index 0000000..8f5db9f
--- /dev/null
+++ b/src/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!
+;