2001-01-15 Ben Elliston <bje@redhat.com>

	* lib/framework.exp (record_test): Invoke a user-defined procedure
	if one is named in local_record_procs($type).

diff --git a/dejagnu/ChangeLog b/dejagnu/ChangeLog
index 1845b4f..e6ad8ba 100644 (file)
--- a/dejagnu/ChangeLog
+++ b/dejagnu/ChangeLog
@@ -1,3 +1,8 @@
+2001-01-15  Ben Elliston  <bje@redhat.com>
+
+       * lib/framework.exp (record_test): Invoke a user-defined procedure
+       if one is named in local_record_procs($type).
+
 2001-01-12  Richard Earnshaw  <rearnsha@arm.com>
 
        * target.exp (prune_warnings): Prune warnings from NetBSD linker.

diff --git a/dejagnu/lib/framework.exp b/dejagnu/lib/framework.exp
index 5a84920..bfdf29c 100644 (file)
--- a/dejagnu/lib/framework.exp
+++ b/dejagnu/lib/framework.exp
@@ -653,9 +653,19 @@ proc record_test { type message args } {
 
     global multipass_name
     if { $multipass_name != "" } {
-       clone_output "$type: $multipass_name: $message"
+       set message [format "$type: %s: $message" "$multipass_name"]
     } else {
-       clone_output "$type: $message"
+       set message "$type: $message"
+    }
+    clone_output "$message"
+
+    # If a command name exists in the $local_record_procs associative
+    # array for this type of result, then invoke it.
+
+    set lowcase_type [string tolower $type]
+    global local_record_procs
+    if {[info exists local_record_procs($lowcase_type)]} {
+       $local_record_procs($lowcase_type) "$message"
     }
     
     # Reset these so they're ready for the next test case.  We don't reset