1 files changed, 68 insertions, 68 deletions

diff --git a/tests/gcfset.c b/tests/gcfset.c
index f241738..6c2cb06 100644
--- a/tests/gcfset.c
+++ b/tests/gcfset.c
@@ -1,4 +1,4 @@
-/* grecs - Gray's Extensible Configuration System
+/* argot - Gray's Extensible Configuration System
    Copyright (C) 2007-2016 Sergey Poznyakoff
 
    Grecs is free software; you can redistribute it and/or modify it
@@ -21,7 +21,7 @@
 #include <string.h>
 #include <errno.h>
 #include <stdlib.h>
-#include "grecs.h"
+#include "argot.h"
 
 struct logging_setup {
         int use_syslog;
@@ -34,136 +34,136 @@ struct logging_setup logging_setup;
 char *scalar_string;
 char *mailbox_pattern;
 char *mailbox_type;
-struct grecs_list *listvar;
+struct argot_list *listvar;
 
 struct program {
         char *name;
         struct logging_setup logging_setup;
         char *scalar_string;
-        grecs_locus_t locus;
+        argot_locus_t locus;
         struct program *next;
 };
 
-struct grecs_list *proglist;
+struct argot_list *proglist;
 
-#if GRECS_TREE_API
-# define GRECS_CB_ARGS \
-        enum grecs_callback_command cmd,\
-        grecs_node_t *node,\
+#if ARGOT_TREE_API
+# define ARGOT_CB_ARGS \
+        enum argot_callback_command cmd,\
+        argot_node_t *node,\
         void *varptr,\
         void *cb_data
-# define GRECS_CB_AUTO \
-        grecs_locus_t *locus = &node->locus;\
-        grecs_value_t *value = node->v.value;
+# define ARGOT_CB_AUTO \
+        argot_locus_t *locus = &node->locus;\
+        argot_value_t *value = node->v.value;
 #else
-# define GRECS_CB_ARGS \
-        enum grecs_callback_command cmd,\
-        grecs_locus_t *locus,\
+# define ARGOT_CB_ARGS \
+        enum argot_callback_command cmd,\
+        argot_locus_t *locus,\
         void *varptr,\
-        grecs_value_t *value,\
+        argot_value_t *value,\
         void *cb_data
-# define GRECS_CB_AUTO
+# define ARGOT_CB_AUTO
 #endif
                 
 static int
-cb_logging_facility(GRECS_CB_ARGS)
+cb_logging_facility(ARGOT_CB_ARGS)
 {
-        GRECS_CB_AUTO
+        ARGOT_CB_AUTO
                 
-        if (cmd != grecs_callback_set_value) {
-                grecs_error(locus, 0, "Unexpected block statement");
+        if (cmd != argot_callback_set_value) {
+                argot_error(locus, 0, "Unexpected block statement");
                 return 1;
         }
-        if (!value || value->type != GRECS_TYPE_STRING) {
-                grecs_error(locus, 0, "expected string argument");
+        if (!value || value->type != ARGOT_TYPE_STRING) {
+                argot_error(locus, 0, "expected string argument");
                 return 1;
         }
 
-        *(char**)varptr = grecs_strdup(value->v.string);
+        *(char**)varptr = argot_strdup(value->v.string);
         return 0;
 }
 
-static struct grecs_keyword logging_kwtab[] = {
+static struct argot_keyword logging_kwtab[] = {
         { "syslog", NULL, "Send to syslog",
-          grecs_type_bool, GRECS_DFLT, NULL,
+          argot_type_bool, ARGOT_DFLT, NULL,
           offsetof(struct logging_setup, use_syslog) },
         { "facility", "name", "Set logging facility",
-          grecs_type_string, GRECS_AGGR, NULL,
+          argot_type_string, ARGOT_AGGR, NULL,
           offsetof(struct logging_setup, facility), cb_logging_facility },
         { "tag", "label", "Tag logging messages with this string",
-          grecs_type_string, GRECS_DFLT, NULL,
+          argot_type_string, ARGOT_DFLT, NULL,
           offsetof(struct logging_setup, tag) },
         { "print-priority", NULL, "Prefix each message with its priority",
-          grecs_type_bool, GRECS_DFLT, NULL,
+          argot_type_bool, ARGOT_DFLT, NULL,
           offsetof(struct logging_setup, print_priority) },
         { NULL },
 };
 
-static struct grecs_keyword mailbox_kwtab[] = {
+static struct argot_keyword mailbox_kwtab[] = {
         { "mailbox-pattern", NULL, "Default mailbox pattern",
-          grecs_type_string, GRECS_DFLT, &mailbox_pattern },
+          argot_type_string, ARGOT_DFLT, &mailbox_pattern },
         { "mailbox-type", NULL, "Default mailbox type",
-          grecs_type_string, GRECS_DFLT, &mailbox_type },
+          argot_type_string, ARGOT_DFLT, &mailbox_type },
         { NULL },
 };
 
 
-static struct grecs_keyword program_kwtab[] = {
+static struct argot_keyword program_kwtab[] = {
         { "scalar", "label", "Scalar string",
-          grecs_type_string, GRECS_DFLT,
+          argot_type_string, ARGOT_DFLT,
           NULL, offsetof(struct program,scalar_string) },
         { "logging", NULL, "Configure logging logging",
-          grecs_type_section, GRECS_DFLT,
+          argot_type_section, ARGOT_DFLT,
           NULL, offsetof(struct program,logging_setup),
           NULL, NULL, logging_kwtab },
         { NULL }
 };
 
 static int
-cb_program(GRECS_CB_ARGS)
+cb_program(ARGOT_CB_ARGS)
 {
         struct program *prog;
         void **pdata = cb_data;
-        GRECS_CB_AUTO
+        ARGOT_CB_AUTO
 
         switch (cmd) {
-        case grecs_callback_section_begin:
-                if (!value || value->type != GRECS_TYPE_STRING) {
-                        grecs_error(locus, 0, "tag must be a string");
+        case argot_callback_section_begin:
+                if (!value || value->type != ARGOT_TYPE_STRING) {
+                        argot_error(locus, 0, "tag must be a string");
                         return 0;
                 }
-                prog = grecs_zalloc(sizeof(*prog));
-                prog->name = grecs_strdup(value->v.string);
+                prog = argot_zalloc(sizeof(*prog));
+                prog->name = argot_strdup(value->v.string);
                 prog->locus = *locus;
                 *pdata = prog;
                 break;
 
-        case grecs_callback_section_end:
+        case argot_callback_section_end:
                 prog = *pdata;
                 if (!proglist)
-                        proglist = grecs_list_create();
-                grecs_list_append(proglist, prog);
+                        proglist = argot_list_create();
+                argot_list_append(proglist, prog);
                 break;
 
-        case grecs_callback_set_value:
-                grecs_error(locus, 0, "invalid use of block statement");
+        case argot_callback_set_value:
+                argot_error(locus, 0, "invalid use of block statement");
         }
         return 0;
 }
                 
-static struct grecs_keyword main_kwtab[] = {
+static struct argot_keyword main_kwtab[] = {
         { "scalar", "label", "Scalar string",
-          grecs_type_string, GRECS_DFLT, &scalar_string },
+          argot_type_string, ARGOT_DFLT, &scalar_string },
         { "logging", NULL, "Configure logging logging",
-          grecs_type_section, GRECS_DFLT, &logging_setup, 0, NULL,
+          argot_type_section, ARGOT_DFLT, &logging_setup, 0, NULL,
           NULL, logging_kwtab },
         { "mailbox", NULL, "Mailbox configuration",
-          grecs_type_section, GRECS_DFLT, NULL, 0, NULL, NULL, mailbox_kwtab },
+          argot_type_section, ARGOT_DFLT, NULL, 0, NULL, NULL, mailbox_kwtab },
         { "program", "name: string", "Subprogram configuration",
-          grecs_type_section, GRECS_DFLT,
+