Introduce loadable modules.

* .gitignore: Update.
* configure.ac: Require libtool
Require Grecs tree-api.
* Makefile.am: Incorporate libtool
* bootstrap: Create m4 if it does not exist.
* doc/Makefile.am: Use texi2html
* grecs: Upgrade
* src/module.c: New file.
* src/Makefile.am (wydawca_SOURCES): Add module.c
* src/config.c: Switch callbacks to tree-api.
Add statements for working with modules:
module-load-path, module-prepend-load-path and
module in the global scope and module and
module-config in notify-event blocks.
* src/mail.c (do_notify): Call module_notify if a module
is configured.
* src/tcpwrap.c: Switch callbacks to tree-api.
* src/wydawca.c (main): Load modules.
* src/wydawca.h (notification) <modname>
<modcfg,modnode>: New members.
(module): New struct.
(cb_module,modules_load,module_notify): New functions.
(module_load_path)
(module_prepend_load_path): New globals.

7 files changed, 401 insertions, 82 deletions

diff --git a/src/Makefile.am b/src/Makefile.am
index 2c8f3c4..d7241e9 100644
--- a/src/Makefile.am
+++ b/src/Makefile.am
@@ -35,6 +35,7 @@ wydawca_SOURCES=\
  job.c\
  lock.c\
  meta.c\
+ module.c\
  net.c\
  pidfile.c\
  process.c\
@@ -67,12 +68,13 @@ SUFFIXES=.opt .c .h
 incdir=$(pkgdatadir)/$(VERSION)/include
 inc_DATA = $(PP_SETUP_FILE)
 
-LDADD=../grecs/src/libgrecs.a @SQLLIB@ @GPGMELIB@ @MAILUTILS_LIBS@
+LDADD=../grecs/src/libgrecs.a @SQLLIB@ @GPGMELIB@ @MAILUTILS_LIBS@ @LIBLTDL@
 AM_CPPFLAGS= \
  -I$(top_srcdir)/grecs/src/ @MAILUTILS_INCLUDES@\
  -DSYSCONFDIR=\"$(sysconfdir)\"\
  -DLOCALSTATEDIR=\"$(localstatedir)\"\
+ -DWYDAWCA_MODDIR=\"$(WYDAWCA_MODDIR)\"\
  -DDEFAULT_VERSION_INCLUDE_DIR=\"$(incdir)\"\
  -DDEFAULT_INCLUDE_DIR=\"$(pkgdatadir)/include\"\
  -DDEFAULT_PREPROCESSOR="$(DEFAULT_PREPROCESSOR)"
-
+AM_LDFLAGS=-export-dynamic
diff --git a/src/config.c b/src/config.c
index d6f6a89..b381834 100644
--- a/src/config.c
+++ b/src/config.c
@@ -230,10 +230,10 @@ assert_string_arg(grecs_locus_t *locus,
 }
 
 grecs_value_t *
-get_arg(grecs_locus_t *locus, grecs_value_t *value, unsigned n, int type)
+get_arg(grecs_value_t *value, unsigned n, int type)
 {
-        if (n >= value->v.arg.c) {
-                grecs_error(locus, 0, _("not enough arguments"));
+        if (!value || value->type != GRECS_TYPE_ARRAY || n >= value->v.arg.c) {
+                grecs_error(&value->locus, 0, _("not enough arguments"));
                 return NULL;
         }
         value = value->v.arg.v[n];
@@ -246,12 +246,13 @@ get_arg(grecs_locus_t *locus, grecs_value_t *value, unsigned n, int type)
 }
 
 static int
-cb_mailer(enum grecs_callback_command cmd,
-          grecs_locus_t *locus,
-          void *varptr, grecs_value_t *value, void *cb_data)
+cb_mailer(enum grecs_callback_command cmd, grecs_node_t *node,
+          void *varptr, void *cb_data)
 {
         int rc;
-
+        grecs_locus_t *locus = &node->locus;
+        grecs_value_t *value = node->v.value;
+        
         if (assert_string_arg(locus, cmd, value))
                 return 1;
         rc = mu_mailer_create(&mailer, value->v.string);
@@ -264,12 +265,13 @@ cb_mailer(enum grecs_callback_command cmd,
 }
 
 static int
-cb_email_address(enum grecs_callback_command cmd,
-                 grecs_locus_t *locus,
-                 void *varptr, grecs_value_t *value, void *cb_data)
+cb_email_address(enum grecs_callback_command cmd, grecs_node_t *node,
+                 void *varptr, void *cb_data)
 {
         int rc = 1;
         mu_address_t addr = NULL;
+        grecs_locus_t *locus = &node->locus;
+        grecs_value_t *value = node->v.value;
         struct grecs_list_entry *ep;
 
         switch (value->type) {
@@ -315,13 +317,14 @@ cb_email_address(enum grecs_callback_command cmd,
 }
 
 static int
-cb_interval(enum grecs_callback_command cmd,
-            grecs_locus_t *locus,
-            void *varptr, grecs_value_t *value, void *cb_data)
+cb_interval(enum grecs_callback_command cmd, grecs_node_t *node,
+            void *varptr, void *cb_data)
 {
         int rc;
         time_t interval;
         const char *endp;
+        grecs_locus_t *locus = &node->locus;
+        grecs_value_t *value = node->v.value;
 
         /* FIXME 1: Support arrays */
         if (assert_string_arg(locus, cmd, value))
@@ -340,10 +343,12 @@ cb_interval(enum grecs_callback_command cmd,
 
 static int
 cb_absolute_name(enum grecs_callback_command cmd,
-                 grecs_locus_t *locus,
-                 void *varptr, grecs_value_t *value, void *cb_data)
+                 grecs_node_t *node,
+                 void *varptr, void *cb_data)
 {
         char *word;
+        grecs_locus_t *locus = &node->locus;
+        grecs_value_t *value = node->v.value;
 
         /* FIXME 1: Support arrays */
         if (assert_string_arg(locus, cmd, value))
@@ -360,11 +365,13 @@ cb_absolute_name(enum grecs_callback_command cmd,
 
 static int
 cb_set_umask(enum grecs_callback_command cmd,
-             grecs_locus_t *locus,
-             void *varptr, grecs_value_t *value, void *cb_data)
+             grecs_node_t *node,
+             void *varptr, void *cb_data)
 {
         char *p;
         mode_t m;
+        grecs_locus_t *locus = &node->locus;
+        grecs_value_t *value = node->v.value;
 
         if (assert_string_arg(locus, cmd, value))
                 return 1;
@@ -474,20 +481,20 @@ parse_statmask(grecs_locus_t *loc, grecs_value_t *val, unsigned long *pmask)
 }
 
 static int
-cb_statistics(enum grecs_callback_command cmd,
-              grecs_locus_t *locus,
-              void *varptr, grecs_value_t *value, void *cb_data)
+cb_statistics(enum grecs_callback_command cmd, grecs_node_t *node,
+              void *varptr, void *cb_data)
 {
-        return parse_statmask(locus, value, varptr);
+        return parse_statmask(&node->locus, node->v.value, varptr);
 }
 
 static int
-cb_sql_host(enum grecs_callback_command cmd,
-            grecs_locus_t *locus,
-            void *varptr, grecs_value_t *value, void *cb_data)
+cb_sql_host(enum grecs_callback_command cmd, grecs_node_t *node,
+            void *varptr, void *cb_data)
 {
         struct sqlconn *pconn = varptr;
         char *p;
+        grecs_locus_t *locus = &node->locus;
+        grecs_value_t *value = node->v.value;
 
         if (assert_string_arg(locus, cmd, value))
                 return 1;
@@ -524,12 +531,13 @@ cb_sql_host(enum grecs_callback_command cmd,
 }
 
 static int
-cb_sql(enum grecs_callback_command cmd,
-       grecs_locus_t *locus,
-       void *varptr, grecs_value_t *value, void *cb_data)
+cb_sql(enum grecs_callback_command cmd, grecs_node_t *node,
+       void *varptr, void *cb_data)
 {
         struct sqlconn *pconn;
         void **pdata = cb_data;
+        grecs_locus_t *locus = &node->locus;
+        grecs_value_t *value = node->v.value;
 
         switch (cmd) {
         case grecs_callback_section_begin:
@@ -586,10 +594,12 @@ static struct grecs_keyword sql_kw[] = {
 };
 
 static int
-cb_syslog_facility(enum grecs_callback_command cmd,
-                   grecs_locus_t *locus,
-                   void *varptr, grecs_value_t *value, void *cb_data)
+cb_syslog_facility(enum grecs_callback_command cmd, grecs_node_t *node,
+                   void *varptr, void *cb_data)
 {
+        grecs_locus_t *locus = &node->locus;
+        grecs_value_t *value = node->v.value;
+
         if (assert_string_arg(locus, cmd, value))
                 return 1;
 
@@ -601,11 +611,12 @@ cb_syslog_facility(enum grecs_callback_command cmd,
 }
 
 static int
-cb_define_message(enum grecs_callback_command cmd,
-                  grecs_locus_t *locus,
+cb_define_message(enum grecs_callback_command cmd, grecs_node_t *node,
+                  void *varptr, void *cb_data)