File: helpers.fs

package info (click to toggle)
openbios-sparc 1.0%2Bsvn640-1
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 4,412 kB
  • ctags: 12,091
  • sloc: ansic: 57,249; asm: 2,680; xml: 1,335; cpp: 414; makefile: 224; sh: 190
file content (35 lines) | stat: -rw-r--r-- 622 bytes parent folder | download | duplicates (18) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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!
;