Switch to detailed source locations from Mailutils 3.2.92

* configure.ac: Version 8.1.92
* NEWS: Update.
* src/builtin/debug.bi (debug): Use mu_locus_range
* src/builtin/from.bi: Likewise.
* src/builtin/header.bi: Likewise.
* src/builtin/progress.bi: Likewise.
* src/builtin/qrnt.bi: Likewise.
* src/builtin/rcpt.bi: Likewise.
* src/exclist.c: Likewise.
* src/builtin/sieve.bi: Use mu_locus_range
(sieve): Accept new optional argument "col".
* src/drivers.c: Use mu_locus_range
(MARK_LOCUS): Rewrite as inline function.
* src/gram.y: Use mu_locus_range and location macros from mailutils/yyloc.h
Improve error diagnostics
(parse_program): Prepare mu_strerr for locus-aware diagnostics.
* src/lex.l: Use mu_linetrack_t to track locations.
* src/mailfromd.h: Use mu_locus_range
* src/main.c: Likewise.
* src/pp.c: Likewise.
* src/prog.c: Likewise.
* src/prog.h: Likewise.
* src/symbols.c: Likewise.

* tests/ashadow.at: Expect detailed error locations.
* tests/bctx00.at: Likewise.
* tests/fctx00.at: Likewise.
* tests/invcidr.at: Likewise.
* tests/invcidr2.at: Likewise.
* tests/module04.at: Likewise.
* tests/module06.at: Likewise.
* tests/poll04.at: Likewise.
* tests/setvar.at: Likewise.
* tests/shadow.at: Likewise.
* tests/static02.at: Likewise.

1 files changed, 5 insertions, 23 deletions

diff --git a/src/main.c b/src/main.c
index 49d0217a..66a97808 100644
--- a/src/main.c
+++ b/src/main.c
@@ -372,13 +372,13 @@ opt_optimize(struct mu_parseopt *po, struct mu_option *op,
 
 static void
 opt_variable(struct mu_parseopt *po, struct mu_option *op,
              char const *arg)
 {
         char *p;
-        struct locus locus = { "<command line>", 1, 0 };
+        struct mu_locus_range locus = {{ "<command line>", 1, 0 }};
 
         p = strchr(arg, '=');
         if (!p) {
                 mu_parseopt_error(po,
                                   _("expected assignment, but found `%s'"),
                                   arg);
@@ -418,13 +418,12 @@ opt_undefine(struct mu_parseopt *po, struct mu_option *op, char const *arg)
 }
 
 static void
 opt_set_milter_timeout(struct mu_parseopt *po, struct mu_option *op,
                        char const *arg)
 {
-        int rc;
         time_t v;
         
         if (mu_str_to_c(arg, mu_c_time, &v, NULL)) {
                 mu_parseopt_error(po, _("%s: not a valid interval"), arg);
                 exit(po->po_exit_error);
         }
@@ -673,14 +672,13 @@ cb_milter_timeout(void *data, mu_config_value_t *arg)
 
 static int
 cb_set_variable(void *data, mu_config_value_t *arg)
 {
         const char *value;
         char *alloc_str = NULL;
-        struct mu_locus mloc;
-        struct locus locus;
+        struct mu_locus_range locus = MU_LOCUS_RANGE_INITIALIZER;
 
         if (mu_cfg_assert_value_type(arg, MU_CFG_ARRAY))
                 return 1;
         if (arg->v.arg.c < 2) {
                 mu_error(_("not enough arguments"));
                 return 1;
@@ -709,30 +707,16 @@ cb_set_variable(void *data, mu_config_value_t *arg)
         default:
                 mu_error (_("INTERNAL ERROR at %s:%d: please report"),
                           __FILE__, __LINE__);
                 abort();
         }
 
-        locus.leng = 0;
-        if (mu_stream_ioctl (mu_strerr, MU_IOCTL_LOGSTREAM,
-                             MU_IOCTL_LOGSTREAM_GET_LOCUS, &mloc)) {
-                locus.file = "<unknown>";
-                locus.line = 0;
-                locus.point = 0;
-        } else {
-                if (mloc.mu_file) {
-                        struct literal *lit = string_alloc(mloc.mu_file,
-                                                           strlen(mloc.mu_file));
-                        free(mloc.mu_file);
-                        locus.file = lit->text;
-                } else
-                        locus.file = "<unknown>";
-                locus.line = mloc.mu_line;
-                locus.point = mloc.mu_col;
-        }
+        mu_stream_ioctl (mu_strerr, MU_IOCTL_LOGSTREAM,
+                         MU_IOCTL_LOGSTREAM_GET_LOCUS_RANGE, &locus);
         defer_initialize_variable(arg->v.arg.v[0].v.string, value, &locus);
+        mu_locus_range_deinit(&locus);
         free(alloc_str);
         return 0;
 }
 
 static int
 cb_include_path(void *data, mu_config_value_t *val)
@@ -1116,13 +1100,12 @@ mailfromd_show_defaults(void)
 }       
 
 static int
 args_in_order(int argc, char **argv)
 {
         int i;
-        int flag = 0;
         for (i = 0; i < argc; i++) {
                 size_t len = strcspn(argv[i], "=");
                 if (len > 3
                     && (memcmp(argv[i], "--ru", 4) == 0
                         || memcmp(argv[i], "--run", 5) == 0)) {
                         return MF_GETOPT_IN_ORDER;
@@ -1241,13 +1224,12 @@ struct mu_cli_setup cli = {
         .prog_args = args_doc
 };
 
 int
 main(int argc, char **argv)
 {
-        int rc;
         prog_counter_t entry_point;
         int stderr_is_closed = stderr_closed_p();
         
         mf_init_nls();
         mf_proctitle_init(argc, argv, environ);
         mu_alloc_die_hook = mailfromd_alloc_die;