initial import of openbios--main--1.0--patch-26

git-svn-id: svn://coreboot.org/openbios/openbios-devel@1 f158a5a8-5612-0410-a976-696ce0be7e32

modules/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!
+;