forth/device/structures.fs

   1 \ tag: device interface structures
   2 \
   3 \ this code implements data structures used by the
   4 \ IEEE 1275-1994 Open Firmware Device Interface.
   5 \
   6 \ Copyright (C) 2003 Stefan Reinauer
   7 \
   8 \ See the file "COPYING" for further information about
   9 \ the copyright and warranty status of this work.
  10 \
  11
  12 \ this file contains the struct definitions for the following
  13 \ device tree structures:
  14 \   device-node
  15 \   active-package
  16 \   property
  17 \   instance
  18
  19
  20 struct ( instance )
  21   /n field >in.instance-data            \ must go first
  22   /n field >in.alloced-size                                                     \ alloced size
  23   /n field >in.device-node
  24   /n field >in.my-parent
  25   /n field >in.interposed
  26   4 cells field >in.my-unit
  27   2 cells field >in.arguments
  28   \ instance-data should be null during packet initialization
  29   \ this diverts access to instance variables to the dictionary
  30 constant inst-node.size
  31
  32 struct ( device node )
  33   /n field >dn.isize                    \ instance size (must go first)
  34   /n field >dn.parent
  35   /n field >dn.child
  36   /n field >dn.peer
  37   /n field >dn.properties
  38   /n field >dn.methods
  39   /n field >dn.priv-methods
  40   /n field >dn.#acells
  41   /n field >dn.probe-addr
  42   inst-node.size field >dn.itemplate
  43 constant dev-node.size
  44
  45 struct ( property )
  46   /n field >prop.next
  47   /n field >prop.name
  48   /n field >prop.addr
  49   /n field >prop.len
  50 constant prop-node.size
  51
  52 struct ( active package )
  53   /n field >ap.device-str
  54 constant active-package.size