Changes to m4/tests/generate.awk,v

[Eric Blake]

CVSROOT:        /sources/m4
Module name:    m4
Changes by:     Eric Blake <ericb>      06/08/24 00:25:04

Index: tests/generate.awk
===================================================================
RCS file: /sources/m4/m4/tests/generate.awk,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -b -r1.16 -r1.17
--- tests/generate.awk  22 Aug 2006 16:16:48 -0000      1.16
+++ tests/generate.awk  24 Aug 2006 00:25:04 -0000      1.17
@@ -23,6 +23,7 @@
 BEGIN {
   seq = -1;
   status = 0;
+  file = options = "";
   print "# This file is part of the GNU m4 test suite.  -*- Autotest -*-";
   # I don't know how to get this file's name, so it's hard coded :(
   print "# Do not edit by hand, it was generated by generate.awk.";
@@ -31,8 +32,6 @@
   print ;
   print "AT_BANNER([Documentation examples.])";
   print ;
-  # stop spurious warnings in the renamesyms checks
-  print "m4_pattern_allow([^m4_(m4|renamesyms|)$])"
   print ;
 }
 
@@ -49,8 +48,15 @@
   file = $3;
 }
 
+/address@hidden options: / {
+  options = $0;
+  gsub ("@comment options:", "", options);
+}
+
 /address@hidden ignore$/ {
   getline;
+  status = 0;
+  options = file = "";
   next;
 }
 
@@ -87,15 +93,17 @@
        }
       else
        {
-          new_test(input, status, output, error);
-          status = 0;
+         new_test(input, status, output, error, options);
        }
-      file = input = output = error = "";
+      status = 0;
+      file = input = output = error = options = "";
       next;
     }
 
   if ($0 ~ /^\^D$/)
     next;
+  if ($0 ~ /^\$ @kbd/)
+    next;
 
   if ($0 ~ /address@hidden/)
     output = output $0 "\n";
@@ -126,6 +134,7 @@
       gsub ("@@", "@", line);
       gsub ("@tabchar{}", "\t", line);
       gsub ("@comment.*", "@\\&t@", line);
+      gsub ("m4_", "address@hidden&address@hidden", line);
 
       # Some of the examples have improperly balanced square brackets.
       gsub ("[[]", "@<:@", line);
@@ -148,14 +157,14 @@
   printf ("AT_KEYWORDS([[documentation]])\n\n");
 }
 
-function new_test(input, status, output, error) {
+function new_test(input, status, output, error, options) {
   input = normalize(input);
   output = normalize(output);
   error = normalize(error);
 
   printf ("AT_DATA([[input.m4]],\n[[%s]])\n\n", input);
   # Some of these tests `include' files from tests/.
-  printf ("AT_CHECK_M4([[input.m4]], %s,", status);
+  printf ("AT_CHECK_M4([[%s input.m4]], %s,", options, status);
   if (output)
     printf ("\n[[%s]]", output);
   else