maint: fix example extraction issues.

[bison.git] / examples / extexi

diff --git a/examples/extexi b/examples/extexi
index c0f67df2d3ff81ab7437f08dda5ab20639854c78..7ede7c4b40072c5946d1bd6d91748685bdd01e8f 100644 (file)
--- a/examples/extexi
+++ b/examples/extexi
@@ -1,11 +1,13 @@
 # Extract all examples from the manual source.            -*- AWK -*-
 
 # This file is part of GNU Bison
 # Extract all examples from the manual source.            -*- AWK -*-
 
 # This file is part of GNU Bison

-# Copyright 1992, 2000, 2001, 2005 Free Software Foundation, Inc.
+
+# Copyright (C) 1992, 2000-2001, 2005-2006, 2009-2012 Free Software
+# Foundation, Inc.

 #
 #

-# This program is free software; you can redistribute it and/or modify
+# This program is free software: you can redistribute it and/or modify

 # it under the terms of the GNU General Public License as published by
 # it under the terms of the GNU General Public License as published by

-# the Free Software Foundation; either version 2 of the License, or
+# the Free Software Foundation, either version 3 of the License, or

 # (at your option) any later version.
 #
 # This program is distributed in the hope that it will be useful,
 # (at your option) any later version.
 #
 # This program is distributed in the hope that it will be useful,


@@ -14,9 +16,7 @@
 # GNU General Public License for more details.
 #
 # You should have received a copy of the GNU General Public License
 # GNU General Public License for more details.
 #
 # You should have received a copy of the GNU General Public License

-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-# 02111-1307  USA
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.

 
 # This script is for use with any Awk that conforms to POSIX.
 # It was derived from a similar script tests/generate.awk in GNU m4.
 
 # This script is for use with any Awk that conforms to POSIX.
 # It was derived from a similar script tests/generate.awk in GNU m4.


@@ -29,7 +29,7 @@ BEGIN {
     if (ARGV[argc] == "--")
       break;
   for (i = argc + 1; i < ARGC; ++i)
     if (ARGV[argc] == "--")
       break;
   for (i = argc + 1; i < ARGC; ++i)

-    file_wanted[ARGV[i]] = 1;
+    file_wanted[basename(ARGV[i])] = ARGV[i];

   ARGC = argc;
 }
 
   ARGC = argc;
 }
 


@@ -43,20 +43,17 @@ BEGIN {
 }
 
 /^@comment file: / {
 }
 
 /^@comment file: / {

-  if (!file_wanted[$3])
-    message("ignoring " $3);
+  if (file = file_wanted[$3])
+    message(" GEN " file);

   else
   else

-    {
-      message("extracting " $3);
-      file = $3;
-    }
+    message("SKIP " $3);

 }
 
 }
 

-/^@example$/, /^@end example$/ {
+/^@(small)?example$/, /^@end (small)?example$/ {

   if (!file)
     next;
 
   if (!file)
     next;
 

-  if ($0 ~ /^@example$/)
+  if ($0 ~ /^@(small)?example$/)

     {
       input = files_output[file] ? "\n" : "";
 
     {
       input = files_output[file] ? "\n" : "";
 


@@ -65,21 +62,23 @@ BEGIN {
       # => + 2.
       # Note that recent Bison support it, but not Flex.
       if (file ~ /\.[chy]*$/)
       # => + 2.
       # Note that recent Bison support it, but not Flex.
       if (file ~ /\.[chy]*$/)

-       input = "#line " (FNR + 1) " \"" FILENAME "\"\n";
+        input = "#line " (FNR + 1) " \"" FILENAME "\"\n";

       next;
     }
 
       next;
     }
 

-  if ($0 ~ /^@end example$/)
+  if ($0 ~ /^@end (small)?example$/)

     {
       if (input == "")
     {
       if (input == "")

-       fatal("no contents: " file);
+        fatal("no contents: " file);

 
       input = normalize(input);
       # No spurious end of line: use printf.
       if (files_output[file])
 
       input = normalize(input);
       # No spurious end of line: use printf.
       if (files_output[file])

-       printf ("%s", input) >> output_dir "/" file;
+        # The parens around the output file seem to be required
+        # by awk on Mac OS X Tiger (darwin 8.4.6).
+        printf ("%s", input) >> (output_dir "/" file);

       else
       else

-       printf ("%s", input) > output_dir "/" file;
+        printf ("%s", input) > (output_dir "/" file);

       close (output_dir "/" file);
       files_output[file] = 1;
 
       close (output_dir "/" file);
       files_output[file] = 1;
 


@@ -103,12 +102,13 @@ function normalize(contents,    i, lines, n, line, res) {
 
       # Whole line commands.
       if (line ~ /^@(c |comment|dots|end (ignore|group)|ignore|group)/)
 
       # Whole line commands.
       if (line ~ /^@(c |comment|dots|end (ignore|group)|ignore|group)/)

-       # Gperf accepts empty lines as valid input!!!
-       if (file ~ /\.gperf$/)
-         continue;
-       else
-         line = "";
+        # Gperf accepts empty lines as valid input!!!
+        if (file ~ /\.gperf$/)
+          continue;
+        else
+          line = "";

 
 

+      gsub (/"@value\{VERSION\}"/, "\"" VERSION "\"", line)

       gsub (/^@result\{\}/, "", line);
       gsub (/^@error\{\}/,  "", line);
       gsub ("@[{]", "{", line);
       gsub (/^@result\{\}/, "", line);
       gsub (/^@error\{\}/,  "", line);
       gsub ("@[{]", "{", line);


@@ -122,9 +122,17 @@ function normalize(contents,    i, lines, n, line, res) {
 }
 
 
 }
 
 

+function basename(name,     a, n) {
+  n = split (name, a, "/");
+  return a[n];
+}
+

 function message(msg) {
 function message(msg) {

-  # FNR starts at 0 instead of 1 for line numbers.
-  print "extexi: " FILENAME ":" (FNR + 1) ": " msg > "/dev/stderr";
+  if (! message_printed[msg])
+    {
+      print "extexi: " msg > "/dev/stderr";
+      message_printed[msg] = 1;
+    }

 }
 
 function fatal(msg) {
 }
 
 function fatal(msg) {