[OpenBIOS] [commit] r956 - trunk/openbios-devel/forth/admin
repository service
svn at openbios.org
Mon Nov 15 22:58:39 CET 2010
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 at 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
More information about the OpenBIOS
mailing list