forth/device/tree.fs

   1 \ tag: Device Tree
   2 \
   3 \ this code implements IEEE 1275-1994 ch. 3.5
   4 \
   5 \ Copyright (C) 2003 Stefan Reinauer
   6 \
   7 \ See the file "COPYING" for further information about
   8 \ the copyright and warranty status of this work.
   9 \
  10
  11
  12 \ root node
  13 new-device
  14   " OpenBiosTeam,OpenBIOS" device-name
  15   1 encode-int " #address-cells" property
  16   : open true ;
  17   : close ;
  18   : decode-unit parse-hex ;
  19   : encode-unit ( addr -- str len )
  20     pocket tohexstr
  21   ;
  22
  23 new-device
  24   " aliases" device-name
  25   : open true ;
  26   : close ;
  27 finish-device
  28
  29 new-device
  30   " openprom" device-name
  31   " BootROM"  device-type
  32   " OpenFirmware 3" model
  33   0 0 " relative-addressing"  property
  34   0 0 " supports-bootinfo"    property
  35   1 encode-int " boot-syntax" property
  36
  37   : selftest
  38     ." OpenBIOS selftest... succeded" cr
  39     true
  40   ;
  41   : open true ;
  42   : close ;
  43
  44 finish-device
  45
  46 new-device
  47   " options" device-name
  48 finish-device
  49
  50 new-device
  51   " chosen" device-name
  52   0 encode-int " stdin" property
  53   0 encode-int " stdout" property
  54   \ " hda1:/boot/vmunix" encode-string " bootpath" property
  55   \ " -as" encode-string " bootargs" property
  56   0 encode-int " memory" property
  57   0 encode-int " mmu" property
  58 finish-device
  59
  60 \ END
  61 finish-device