Implement "path-style" (Xres-style) config parser.

* src/path-parser.c: New file.
* src/format.c (grecs_format_node): Attempt to print value only
if the node is grecs_node_stmt.
* src/grecs.h (grecs_path_parser): New proto.
(grecs_node_from_path_locus): New proto.
* src/lookup.c (grecs_node_from_path_locus): New function.

* src/Make.am (GRECS_SRC): Add path-parser.c.
* build-aux/getopt.m4: Implement print_help_hook.

1 files changed, 124 insertions, 0 deletions

diff --git a/src/path-parser.c b/src/path-parser.c
new file mode 100644
index 0000000..c66f8ca
--- /dev/null
+++ b/src/path-parser.c
@@ -0,0 +1,124 @@
+/* Path-style configuration file parser for 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 of the License, 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/>. */
+
+#ifdef HAVE_CONFIG_H
+# include <config.h>
+#endif
+#include <stdlib.h>
+#include <string.h>
+#include <ctype.h>
+#include <errno.h>
+#include <grecs.h>
+
+static size_t
+trimnl(char *buf)
+{
+        size_t len = strlen(buf);
+
+        if (len && buf[len-1] == '\n') {
+                buf[--len] = 0;
+                if (len && buf[len-1] == '\r')
+                        buf[--len] = 0;
+        }
+        return len;
+}
+
+struct grecs_node *
+grecs_path_parser(const char *name, int traceflags)
+{
+        struct grecs_node *root, *subtree = NULL, *node;
+        FILE *infile;
+        char *buf = NULL;
+        size_t size = 0;
+        struct grecs_txtacc *acc = NULL;
+        char *prevptr = NULL;
+        char *ptr, *p;
+        int inquote, cont = 0;
+        
+        infile = fopen(name, "r");
+        if (!infile) {
+                grecs_error(NULL, errno, _("cannot open `%s'"), name);
+                return NULL;
+        }
+        grecs_current_locus.file = grecs_install_text(name);
+        grecs_current_locus.line = 0;
+        
+        while (grecs_getline(&buf, &size, infile) >= 0) {
+                size_t len;
+
+                ++grecs_current_locus.line;
+                len = trimnl(buf);
+                if (len && buf[len-1] == '\\') {
+                        if (!acc)
+                                acc = grecs_txtacc_create();
+                        else if (prevptr) {
+                                grecs_txtacc_free_string(acc, prevptr);
+                                prevptr = NULL;
+                        }
+                        grecs_txtacc_grow(acc, buf, len - 1);
+                        cont = 1;
+                        continue;
+                } else {
+                        if (cont)
+                                ptr = prevptr = grecs_txtacc_finish(acc, 0);
+                        else
+                                ptr = buf;
+                        cont = 0;
+                }
+
+                while (*ptr && (*ptr == ' ' || *ptr == '\t'))
+                        ptr++;
+                if (!*ptr || *ptr == '#')
+                        continue;
+                inquote = 0;
+                for (p = ptr; *p && *p != ':'; p++) {
+                        if (inquote) {
+                                if (inquote == '"' && *p == '\\')
+                                        p++;
+                                else if (*p == inquote)
+                                        inquote = 0;
+                        } else if (*p == '\'' || *p == '"')
+                                inquote = *p;
+                }
+                if (!*p) {
+                        grecs_error(&grecs_current_locus, 0,
+                                    _("syntax error"));
+                        continue;
+                }
+                *p++ = 0;
+                while (*p && (*p == ' ' || *p == '\t'))
+                        p++;
+                
+                node = grecs_node_from_path_locus(ptr, p,
+                                                  &grecs_current_locus);
+                if (!subtree)
+                        subtree = node;
+                else
+                        grecs_node_bind(subtree, node, 0);
+        }
+
+        fclose(infile);
+        free(buf);
+        grecs_txtacc_free(acc);
+
+        root = grecs_node_create(grecs_node_root, &grecs_current_locus);
+        root->v.texttab = grecs_text_table();
+        grecs_node_bind(root, subtree, 1);
+        grecs_tree_reduce(root, NULL, 0);
+
+        return root;
+}
+