qemu/roms/openbios/arch/ppc/mol/tree.fs

   1
   2 : int-property ( val name -- )
   3         rot encode-int 2swap property
   4 ;
   5
   6
   7 \ -------------------------------------------------------------
   8 \ device-tree
   9 \ -------------------------------------------------------------
  10
  11 " /" find-device
  12
  13   " device-tree" device-name
  14         " bootrom" device-type
  15
  16 \ -------------------------------------------------------------
  17 \ /memory
  18 \ -------------------------------------------------------------
  19
  20 new-device
  21   " memory" device-name
  22         \ 12230 encode-int " reg" property
  23         external
  24         : open true ;
  25         : close ;
  26         \ claim ( phys size align -- base )
  27         \ release ( phys size -- )
  28 finish-device
  29
  30 \ -------------------------------------------------------------
  31 \ /mol/
  32 \ -------------------------------------------------------------
  33
  34 new-device
  35         " mol" device-name
  36         1 " #address-cells" int-property
  37         0 " #size-cells" int-property
  38
  39         external
  40         : open true ;
  41         : close ;
  42
  43 new-device
  44   " test" device-name
  45
  46         external
  47   : open
  48                 ." /mol/test opened" cr
  49                 " argument-str" " ipose" find-package drop interpose
  50                 true
  51   ;
  52 finish-device
  53 finish-device
  54
  55 \ -------------------------------------------------------------
  56 \ /cpus/
  57 \ -------------------------------------------------------------
  58
  59 new-device
  60         " cpus" device-name
  61         1 " #address-cells" int-property
  62         0 " #size-cells" int-property
  63
  64         external
  65         : open true ;
  66         : close ;
  67         : decode-unit parse-hex ;
  68
  69 finish-device
  70
  71 \ -------------------------------------------------------------
  72 \ /packages
  73 \ -------------------------------------------------------------
  74
  75 " /packages" find-device
  76
  77         " packages" device-name
  78         external
  79         \ allow packages to be opened with open-dev
  80         : open true ;
  81         : close ;
  82
  83 \ /packages/mol-stdout
  84 new-device
  85         " mol-stdout" device-name
  86         external
  87         : open true ;
  88         : close ;
  89         : write ( addr len -- actual )
  90                 dup -rot type
  91         ;
  92 finish-device
  93
  94 \ XXXXXXXXXXXXXXXXXXXXXXX TESTING
  95 " /" find-device
  96 new-device
  97   " test" device-name
  98 finish-device
  99
 100 \ -------------------------------------------------------------
 101 \ The END
 102 \ -------------------------------------------------------------
 103 device-end