From 4ec5072377f1b80fd2a47cf8b72d6859bf0bf83c Mon Sep 17 00:00:00 2001
From: Richard Tucker <rit@harlequin.com>
Date: Wed, 7 Oct 1998 11:46:07 +0100
Subject: [PATCH] Support for #define

Copied from Perforce
 Change: 20169
 ServerID: perforce.ravenbrook.com
---
 mps/qa/test/script/headread | 27 ++++++++++++++++++++++++++-
 1 file changed, 26 insertions(+), 1 deletion(-)

diff --git a/mps/qa/test/script/headread b/mps/qa/test/script/headread
index e8455804ff1..0fcd23061b3 100644
--- a/mps/qa/test/script/headread
+++ b/mps/qa/test/script/headread
@@ -1,5 +1,5 @@
 #!/usr/local/bin/perl
-# $HopeName$
+# $HopeName: MMQA_harness!script:headread(trunk.7) $
 #
 # subroutines to assist in
 #  1. reading test headers
@@ -71,6 +71,7 @@ sub readheader {
  %spec_rel    = %keyrelations;
 
  close(IN);
+ &get_parmdefs();
 }
 
 sub readvals {
@@ -163,3 +164,27 @@ sub verdict {
  }
 }
 
+#
+# &get_parmdefs gets parameter definitions from the environment, as
+# specified in the test header
+#
+
+sub get_parmdefs {
+ local ($var, $missing);
+ $missing = "";
+ %parmdefs = ();
+ if (exists $test_header{"params"}) {
+  foreach (split /\s+/, $test_header{"params"}) {
+   $var = $ENV{"MMQA_".$_};
+   if (defined $var) {
+    $parmdefs{$_} = $var;
+   } else {
+    $missing .= "\n  MMQA_".$_.",";
+   }
+  }
+  if ($missing ne "") {
+   chop $missing;
+   die "Unspecified test parameters:$missing.\n";
+  }
+ }
+}