Provide a framework for multiple parsers. Implement meta1 parser.

* Makefile.am (EXTRA_DIST): Add build-aux/yyrename
* am/grecs.m4: New options: parser-meta1 and all-parsers
* src/.gitignore: Update.
* src/Make.am [GRECS_COND_META1_PARSER]: Set GRECS_PARSER_META1 and
GRECS_EXTRA_META1
(GRECS_SRC): Add new files.
(EXTRA_DIST): Add GRECS_EXTRA_META1.
(LEXCOMPILE,YACCCOMPILE): Redefine
* src/grecs-gram.y: Don't include yygrecs.h
(grecs_vasprintf,grecs_asprintf): Move to a separate file.
(grecs_parse): Rename to grecs_grecs_parser.
Actual grecs_parse is defined in parser.c
(grecs_gram_trace): Move to parser.c
* src/grecs-lex.l: Don't include yygrecs.h
Use line_acc functions.
* src/grecs.h (grecs_trace_flags): New extern.
(GRECS_TRACE_GRAM, GRECS_TRACE_LEX): New flags.
(grecs_lex_begin): Change signature.
(grecs_grecs_parser,grecs_meta1_parser): New protos.
(grecs_line_acc_create)
(grecs_line_acc_free,grecs_line_acc_grow_char)
(grecs_line_acc_grow_char_unescape)
(grecs_line_acc_grow)
(grecs_line_acc_grow_unescape_last): New protos.
(GRECS_TXTACC_BUFSIZE): New const
(grecs_txtacc_create,grecs_txtacc_free)
(grecs_txtacc_grow,grecs_txtacc_finish)
(grecs_txtacc_free_string): New protos.
(grecs_value_match): New proto.
* src/wordsplit.c (quote_transtab): Translate \"
* src/yygrecs.h: Remove.
* src/yytrans: New file.
* build-aux/yyrename: New file.
* src/asprintf.c: New file.
* src/lineacc.c: New file.
* src/meta1-gram.y: New file.
* src/meta1-lex.l: New file.
* src/parser.c: New file.
* src/txtacc.c: New file.

* doc/grecs_parse.3: Update.
* doc/GRECS_SETUP.3: Update.

20 files changed, 944 insertions, 241 deletions

diff --git a/Makefile.am b/Makefile.am
index d614a25..0696c72 100644
--- a/Makefile.am
+++ b/Makefile.am
@@ -16,7 +16,7 @@
 
 ACLOCAL_AMFLAGS = -I am
 SUBDIRS=. src @GRECS_TESTDIR@ @GRECS_DOCDIR@
-EXTRA_DIST=@GRECS_BUILD_AUX@ gitid.h
+EXTRA_DIST=build-aux/yyrename @GRECS_BUILD_AUX@ gitid.h
 
 noinst_HEADERS = gitid.h
 BUILT_SOURCES = gitid.h README
diff --git a/am/grecs.m4 b/am/grecs.m4
index 0d1b03d..8f4868b 100644
--- a/am/grecs.m4
+++ b/am/grecs.m4
@@ -148,7 +148,11 @@ AC_DEFUN([GRECS_SETUP],[
     GRECS_BUILD_AUX="build-aux/getopt.m4"
    ])
   _GRECS_IF_OPTION_SET([git2chg],[GRECS_BUILD_AUX="$GRECS_BUILD_AUX build-aux/git2chg.awk"])
-  
+  AM_CONDITIONAL([GRECS_COND_META1_PARSER],
+                 _GRECS_OPTION_SWITCH([parser-meta1],[true],
+                                      [all-parsers],[true],
+                                      [false]))
+
   AC_SUBST([GRECS_SRCDIR],$1)
   AC_SUBST([GRECS_BUILD_AUX])
   AC_SUBST([GRECS_INCLUDES])
@@ -160,6 +164,7 @@ AC_DEFUN([GRECS_SETUP],[
   AC_SUBST([GRECS_README])
   AC_SUBST([GRECS_INCLUDES],['-I$(top_srcdir)/]grecsdir[src]')
   AC_SUBST([GRECS_HOST_PROJECT_INCLUDES])
+
   _GRECS_OPTION_SWITCH([install],[
     LT_INIT
     GRECS_LDADD=['$(top_builddir)/]grecsdir[src/libgrecs.la']
diff --git a/build-aux/yyrename b/build-aux/yyrename
new file mode 100755
index 0000000..5e7b1db
--- /dev/null
+++ b/build-aux/yyrename
@@ -0,0 +1,92 @@
+#! /bin/sh
+# Rename yy.* identifiers to avoid name clashes.  This file is part of Grecs.
+# Copyright (C) 2011 Sergey Poznyakoff
+#
+# Grecs is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3, or (at your option)
+# any later version.
+#
+# Grecs is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with Grecs.  If not, see <http://www.gnu.org/licenses/>.
+
+# Usage: yyrename [-f OUTFILE [OUTFILE...]] COMMAND INFILE
+# Makefile.am:
+#  LEXCOMPILE = yyrename -f $(LEX_OUTPUT_ROOT).c \
+#                        '$(LEX) $(LFLAGS) $(AM_LFLAGS)'
+#  YACCCOMPILE = yyrename '$(YACC) $(YFLAGS) $(AM_YFLAGS)'
+#
+# This script runs COMMAND with INFILE as its argument and scans
+# OUTFILEs for identifiers starting with 'yy'.  These identifiers
+# are renamed by replacing 'yy' with the selected prefix.
+#
+# The prefix is looked up in the file yytrans, located in the INFILE's
+# directory.  If this file does not exist, the prefix is constructed
+# by concatenating the string 'grecs_' and the ``root name''.  The root
+# name is build by removing '-lex.l' or '-gram.y' from the base name.
+# If the latter does not end in any of these, the root name
+# is constructed by removing the suffix from the base name.
+#
+# The yytrans file is a line-oriented lookup table.  Empty lines are
+# ignored, usual UNIX comment lines are honored.  The remaining lines
+# must consist of two words separated by any amount of whitespace.
+# The first word is a look-up key, the second one provides a translation
+# (yy replacement) for that key.
+#
+# Two look-ups are tried: first the base name and then the root name.
+# If both result in a non-empty replacement, the former is preferred
+# over the latter.
+#
+# The -f option supplies a list of output file names generated by COMMAND.
+# If not supplied, the following defaults are used: y.tab.c and y.tab.h, if
+# INFILE ends in '.y', and yy.lex.c, if it ends in '.l'.  If INFILE does not
+# end in any of these suffixes, error is reported.
+#
+# BUGS: Any occurrence of 'yy' is replaced, not only 'yy' prefixes.
+#
+case $1 in
+-f) files=$2
+    shift
+    shift
+esac
+
+base=`expr "$2" : '.*/\(.*\)\.[ly]'`
+dir=`dirname "$2"`
+case $2 in
+*.y) test -z "$files" && files="y.tab.c y.tab.h"
+     root=`expr "$2" : '.*/\(.*\)-gram\.y'`;;
+*.l) test -z "$files" && files=lex.yy.c
+     root=`expr "$2" : '.*/\(.*\)-lex\.l'`;;
+*)   if test -z "$files"; then
+       echo >&2 "$0: suffix unknown, files must be given (use -f)"
+       exit 1
+     fi
+     root=$base
+esac
+
+if test -f $dir/yytrans; then
+  pfx=`awk '
+{ sub(/#.*$/,"") }
+NF == 2 && $1=="'$base'" { exact=$2 }
+NF == 2 && $1=="'$root'" { root=$2 }
+{ next }
+END { print exact ? exact : root ? root : "" }' $dir/yytrans`
+else
+  pfx=
+fi
+if test -z "$pfx"; then
+  pfx=grecs_`echo $root | tr .- __`
+fi
+
+eval $* || exit $?
+
+for file in $files
+do
+  mv $file ${file}.tmp
+  sed "s/yy/$pfx/g" ${file}.tmp > $file
+done
diff --git a/configure.ac b/configure.ac
index 980c713..816de11 100644
--- a/configure.ac
+++ b/configure.ac
@@ -37,6 +37,6 @@ AC_HEADER_STDC
 
 # Grecs subsystem
 
-GRECS_SETUP(., [install tests git2chg])
+GRECS_SETUP(., [install tests git2chg all-parsers])
 
 AC_OUTPUT
diff --git a/doc/GRECS_SETUP.3 b/doc/GRECS_SETUP.3
index c24399e..13b568e 100644
--- a/doc/GRECS_SETUP.3
+++ b/doc/GRECS_SETUP.3
@@ -14,7 +14,7 @@
 .\" You should have received a copy of the GNU General Public License
 .\" along with Grecs.  If not, see <http://www.gnu.org/licenses/>.
 .\"
-.TH GRECS_SETUP 3 "May 8, 2011" "GRECS" "Grecs User Reference"
+.TH GRECS_SETUP 3 "May 15, 2011" "GRECS" "Grecs User Reference"
 .SH NAME
 GRECS_SETUP \- Initialize \fBgrecs\fR submodule.
 .SH SYNOPSIS
@@ -44,6 +44,12 @@ The
 argument is a space-separated list of options. The following options
 are understood:
 .TP
+.B all-parsers
+Compile all available parsers.
+.TP
+.B parser-meta1
+Build the parser for MeTA1 configuration files.
+.TP
 .B no-preproc
 Disable the use of preprocessor.
 .TP
diff --git a/doc/grecs_parse.3 b/doc/grecs_parse.3
index 2abc417..dff6759 100644
--- a/doc/grecs_parse.3
+++ b/doc/grecs_parse.3
@@ -149,13 +149,11 @@ screen:
 int
 main(int argc, char **argv)
 {
-     struct grecs_node *tree, *node;
+     struct grecs_node *tree;
 
      tree = grecs_parse(argv[1]);
-     for (node = tree; node; node = node->next) {
-          grecs_format_node(node, GRECS_NODE_FLAG_DEFAULT, stdout);
-          fputc('\n', stdout);
-     }
+     grecs_format_node(tree, GRECS_NODE_FLAG_DEFAULT, stdout);
+     fputc('\\n', stdout);
      grecs_tree_free(tree);
      exit(0);
 }
diff --git a/src/.gitignore b/src/.gitignore
index 9ef1b57..feb5040 100644
--- a/src/.gitignore
+++ b/src/.gitignore
@@ -2,6 +2,10 @@ grecs-gram.c
 grecs-gram.h
 grecs-gram.output
 grecs-lex.c
+meta1-gram.c
+meta1-gram.h
+meta1-gram.output
+meta1-lex.c