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 andreas.faerber@web.de
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