From f8eccafb1928ef07e1502e08308104c94f253a5e Mon Sep 17 00:00:00 2001
From: Ken Raeburn <raeburn@cygnus>
Date: Wed, 14 Dec 1994 21:40:30 +0000
Subject: * lib/ld.exp (prune_system_crud): Define if not already defined, in
 case the user isn't using the newest DejaGnu version that we haven't released
 to the net yet.

---
 ld/testsuite/lib/ld.exp | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

(limited to 'ld')

diff --git a/ld/testsuite/lib/ld.exp b/ld/testsuite/lib/ld.exp
index e205cba..ee8c047 100644
--- a/ld/testsuite/lib/ld.exp
+++ b/ld/testsuite/lib/ld.exp
@@ -287,4 +287,28 @@ proc simple_diff { file_1 file_2 } {
     }
 }
 
+# This definition is taken from an unreleased version of DejaGnu.  Once
+# that version gets released, and has been out in the world for a few
+# months at least, it may be safe to delete this copy.
+if ![string length [info proc prune_system_crud]] {
+    #
+    # prune_system_crud -- delete various system verbosities from TEXT on SYSTEM
+    #
+    # An example is:
+    # ld.so: warning: /usr/lib/libc.so.1.8.1 has older revision than expected 9
+    #
+    # SYSTEM is typical $target_triplet or $host_triplet.
+    #
+    # This is useful when trying to do pattern matches on program output.
+    # Sites with particular verbose os's may wish to override this in site.exp.
+    #
+    proc prune_system_crud { system text } {
+	# This is from sun4's.  Do it for all machines for now.
+	# The "\\1" is to try to preserve a "\n" but only if necessary.
+	regsub -all "(^|\n)(ld.so: warning:\[^\n\]*\n?)+" $text "\\1" text
 
+	# It might be tempting to get carried away and delete blank lines, etc.
+	# Just delete *exactly* what we're ask to, and that's it.
+	return $text
+    }
+}
-- 
cgit v1.1