X-Git-Url: https://gerrit.opnfv.org/gerrit/gitweb?a=blobdiff_plain;f=qemu%2Froms%2Fopenbios%2Fforth%2Fdevice%2Ftree.fs;fp=qemu%2Froms%2Fopenbios%2Fforth%2Fdevice%2Ftree.fs;h=04f85b5c1d8b43c9fba1c9d20c51cf2ef19d9abc;hb=e44e3482bdb4d0ebde2d8b41830ac2cdb07948fb;hp=0000000000000000000000000000000000000000;hpb=9ca8dbcc65cfc63d6f5ef3312a33184e1d726e00;p=kvmfornfv.git

diff --git a/qemu/roms/openbios/forth/device/tree.fs b/qemu/roms/openbios/forth/device/tree.fs
new file mode 100644
index 000000000..04f85b5c1
--- /dev/null
+++ b/qemu/roms/openbios/forth/device/tree.fs
@@ -0,0 +1,59 @@
+\ tag: Device Tree
+\ 
+\ this code implements IEEE 1275-1994 ch. 3.5
+\ 
+\ Copyright (C) 2003 Stefan Reinauer
+\ 
+\ See the file "COPYING" for further information about
+\ the copyright and warranty status of this work.
+\ 
+
+
+\ root node
+new-device
+  " OpenBiosTeam,OpenBIOS" device-name
+  1 encode-int " #address-cells" property
+  : open true ;
+  : close ;
+  : decode-unit parse-hex ;
+  : encode-unit ( addr -- str len )
+    pocket tohexstr
+  ;
+
+new-device
+  " aliases" device-name
+  : open true ;
+  : close ;
+finish-device
+  
+new-device
+  " openprom" device-name
+  " BootROM"  device-type
+  " OpenFirmware 3" model
+  0 0 " relative-addressing"  property
+  0 0 " supports-bootinfo"    property
+  1 encode-int " boot-syntax" property
+  
+  : selftest
+    ." OpenBIOS selftest... succeded" cr
+    true
+  ;
+  : open true ;
+  : close ;
+
+finish-device
+  
+new-device
+  " options" device-name
+finish-device
+
+new-device
+  " chosen" device-name
+  0 encode-int " stdin" property
+  0 encode-int " stdout" property
+  \ " hda1:/boot/vmunix" encode-string " bootpath" property
+  \ " -as" encode-string " bootargs" property
+finish-device
+  
+\ END
+finish-device