8 files changed, 335 insertions, 5 deletions

diff --git a/src/git-parser.c b/src/git-parser.c
index e0675ef..117a8fc 100644
--- a/src/git-parser.c
+++ b/src/git-parser.c
@@ -47,7 +47,7 @@ struct token {
 #define ISINITIAL(c) ((isascii(c) && isalpha(c)) || (c) == '_')
 
 static int
-input()
+rawinput()
 {
         if (!infile || feof(infile))
                 return 0;
@@ -57,6 +57,17 @@ input()
         return input_char;
 }
 
+static int
+input()
+{
+        rawinput();
+        if (input_char == '#') {
+                while (rawinput() && input_char != '\n')
+                        ;
+        }
+        return input_char;
+}
+
 static void
 unput()
 {
@@ -87,7 +98,7 @@ collect_tag()
 static void
 collect_string()
 {
-        while (input()) {
+        while (rawinput()) {
                 if (input_char == '\\') {
                         if (!input()) {
                                 grecs_error(&grecs_current_locus, 0,
diff --git a/tests/Makefile.am b/tests/Makefile.am
index 73ffeae..f5d1f6f 100644
--- a/tests/Makefile.am
+++ b/tests/Makefile.am
@@ -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/>.
 
-EXTRA_DIST = $(TESTSUITE_AT) testsuite package.m4 gcf1.conf
+EXTRA_DIST = $(TESTSUITE_AT) testsuite package.m4 gcf1.conf meta1.conf git.conf
 DISTCLEANFILES       = atconfig $(check_SCRIPTS)
 MAINTAINERCLEANFILES = Makefile.in $(TESTSUITE)
 
@@ -51,6 +51,8 @@ TESTSUITE_AT = \
  glob03.at\
  enum.at\
  join.at\
+ parser-git.at\
+ parser-meta1.at\
  peek00.at\
  peek01.at\
  peek02.at\
diff --git a/tests/gcffmt.c b/tests/gcffmt.c
index b4a4ece..51e3037 100644
--- a/tests/gcffmt.c
+++ b/tests/gcffmt.c
@@ -26,7 +26,7 @@ usage(const char *arg, FILE *fp, int code)
 {
         fprintf(fp,
                 "usage: %s [-h] [-locus] [-delim=char] [-reduce] [-sort] "
-                "file [file...]\n",
+                "[-type=grecs|bind|meta1|git] file [file...]\n",
                 arg);
         exit(code);
 }
@@ -59,7 +59,18 @@ main(int argc, char **argv)
                         sort = 1;
                 else if (strcmp(arg, "-h") == 0)
                         usage(progname, stdout, 0);
-                else if (arg[0] == '-')
+                else if (strncmp(arg, "-type=", 6) == 0) {
+                        if (strcasecmp(arg+6, "GRECS") == 0)
+                                grecs_parser_fun = grecs_grecs_parser;
+                        else if (strcasecmp(arg+6, "META1") == 0)
+                                grecs_parser_fun = grecs_meta1_parser;
+                        else if (strcasecmp(arg+6, "BIND") == 0)
+                                grecs_parser_fun = grecs_bind_parser;
+                        else if (strcasecmp(arg+6, "GIT") == 0)
+                                grecs_parser_fun = grecs_git_parser;
+                        else
+                                usage(progname, stderr, 1);
+                } else if (arg[0] == '-')
                         usage(progname, stderr, 1);
                 else {
                         file = arg;
diff --git a/tests/git.conf b/tests/git.conf
new file mode 100644
index 0000000..6e8b2b2
--- /dev/null
+++ b/tests/git.conf
@@ -0,0 +1,13 @@
+# Sample Git configuration file for Grecs
+#
+[core] # Comment
+        repositoryformatversion = 0
+        filemode = true
+        bare = false # Comment
+        logallrefupdates = true
+[remote "origin"]
+        fetch = +refs/heads/*:refs/remotes/origin/*
+        url = ssh://git.gnu.org.ua/gitroot/grecs.git
+[branch "master"]
+        remote = origin
+        merge = refs/heads/master
diff --git a/tests/meta1.conf b/tests/meta1.conf
new file mode 100644
index 0000000..22ac218
--- /dev/null
+++ b/tests/meta1.conf
@@ -0,0 +1,136 @@
+# Sample MeTA1 configuration file for Grecs testsuite.
+
+hostname = "host.example.org";
+
+smtps {
+  greeting = "220 example.org ESMTP Tossudament alcats\r\n";
+  log_level = 12;
+  log { facility=mail; ident="smtps"; }
+  flags = { 8bitmime,
+            access };
+  CDB_gid = 2262;
+  wait_for_server = 4;
+  listen_socket { type=inet; port = 25; }
+  start_action = pass;
+  pass_fd_socket = smtps/smtpsfd;
+  user = meta1s;
+  path = "/usr/local/libexec/smtps";
+  arguments = "smtps -f /etc/meta1/meta1.conf";
+  policy_milter {
+    socket {
+      type = inet;
+      address = 127.0.0.1;
+      port = 3333;
+    };
+    timeout = 1800s; 
+    flags = { accept_but_reconnect };
+  };
+  io_timeout = 300s;
+  module_timeout = 1000s;
+  auth {
+    flags = { noanonymous };
+  }  
+}
+
+smtps MSA {
+       log_level = 11;
+       log { facility=mail; ident="MSA"; }
+       CDB_gid = 2262;
+       listen_socket { type=inet; port = 587; }
+       start_action = pass;
+       pass_fd_socket = smtps/msafd;
+       user = meta1s;
+       path = "/usr/local/libexec/smtps";
+       arguments = "smtps -I 1 -N MSA -f /etc/meta1/meta1.conf";
+}
+
+smtpc {
+  log_level = 12;
+  log { facility=mail; ident="smtpc"; }
+  flags = { read_QUIT_reply,
+            separate_final_dot_and_QUIT,
+            talk_to_myself };
+  LMTP_socket="lmtpsock";
+  wait_for_server = 4;
+  start_action = wait;
+  user = meta1c;
+  path = "/usr/local/libexec/smtpc";
+  arguments = "smtpc -f /etc/meta1/meta1.conf";
+}
+
+# must be previous to last in the list: started after smar
+qmgr {
+  log_level = 12;
+  log { facility=mail; ident="qmgr"; }
+  wait_for_server = 4;
+  wait_for_client = 3;
+  start_action = wait;
+  user = meta1q;
+  restart_dependencies = { smtps, MSA, smtpc };
+  path = "/usr/local/libexec/qmgr";
+  arguments = "qmgr -f /etc/meta1/meta1.conf";
+  control_socket = "qmgr/sock";
+}
+
+
+# must be last in the list: started first
+smar {
+  DNS { nameservers={ 10.11.0.1, 10.12.0.1 };
+        flags = use_connect; }
+  log_level = 12;
+  log { facility=mail; ident="smar"; }
+  nameserver = 10.11.0.1;
+  start_action = wait;
+  user = meta1m;
+  restart_dependencies = { smtps, MSA, qmgr };
+  path = "/usr/local/libexec/smar";
+  arguments = "smar -f /etc/meta1/meta1.conf";
+
+  map mtdb {
+        type = hash;
+        file = "mt.db";
+  }
+  mailertable {
+        name = mtdb;
+        flags = { full_address, domain };
+  }
+  
+  map password { type = passwd; }
+  map userdb {
+        type = socket;
+        path = "/var/spool/meta1/smap/userdb";
+        mapname = userdb;
+        min_connections = 10;
+        max_connections = 1024;
+        timeout = 5;
+  }
+  map locusr {
+        type = sequence;
+        maps = { password, userdb };
+  }
+        
+  local_user_map {
+       name = "locusr";
+       flags = { localpart, local_domains };
+  }
+
+  map lum { 
+        type = socket;
+        path = "/var/spool/meta1/smap/userdb";
+        mapname = alias; 
+        min_connections = 10;