[commit] r956 - trunk/openbios-devel/forth/admin

[repository service]

Author: afaerber
Date: Mon Nov 15 22:58:39 2010
New Revision: 956
URL: http://tracker.coreboot.org/trac/openbios/changeset/956

Log:
Allow name-based property display

v3:
* Preserve (.property) as heuristic function.

Signed-off-by: Andreas Färber

Modified:
   trunk/openbios-devel/forth/admin/devices.fs

Modified: trunk/openbios-devel/forth/admin/devices.fs
==============================================================================
--- trunk/openbios-devel/forth/admin/devices.fs	Sat Nov 13 21:28:20 2010	(r955)
+++ trunk/openbios-devel/forth/admin/devices.fs	Mon Nov 15 22:58:39 2010	(r956)
@@ -304,6 +304,12 @@
   2drop ." <unimplemented type>"
 ;

+\ This function hardwires data formats to particular node properties
+: (.property-by-name) ( name-str name-len data len -- )
+  2swap 2drop ( data len )
+  (.property)
+;
+
 : .properties    ( -- )
   ?active-package dup >r if
     0 0
@@ -312,7 +318,10 @@
     while
       cr 2dup dup -rot type
       begin ."  " 1+ dup d# 26 >= until drop
-      2dup active-package get-package-property drop (.property)
+      2dup
+      2dup active-package get-package-property drop
+      ( name-str name-len data len )
+      (.property-by-name)
     repeat
   then
   r> drop