Minor improvements in logstream and related code.

* include/mailutils/stream.h (MU_IOCTL_LOGSTREAM_SET_LOCUS_LINE)
(MU_IOCTL_LOGSTREAM_SET_LOCUS_COL): New subcodes.
* libmailutils/stream/logstream.c (_log_ctl): Handle two new subcodes.
* comsat/action.c (eval_biffrc): Use new ioctl subcode to update the
line number.

@@ -522,12 +522,12 @@ eval_biffrc (struct biffrc_environ *env)
   
   
   ws.ws_comment = "#";
   ws.ws_comment = "#";
   wsflags = MU_WRDSF_DEFFLAGS | MU_WRDSF_COMMENT;
   wsflags = MU_WRDSF_DEFFLAGS | MU_WRDSF_COMMENT;
+  mu_stream_ioctl (mu_strerr, MU_IOCTL_LOGSTREAM,
+		   MU_IOCTL_LOGSTREAM_SET_LOCUS, &env->locus);
+  mu_stream_ioctl (env->logstr, MU_IOCTL_LOGSTREAM,
+		   MU_IOCTL_LOGSTREAM_SET_LOCUS, &env->locus);
   while (mu_stream_getline (env->input, &stmt, &size, &n) == 0 && n > 0)
   while (mu_stream_getline (env->input, &stmt, &size, &n) == 0 && n > 0)
     {
     {
-      mu_stream_ioctl (mu_strerr, MU_IOCTL_LOGSTREAM,
-		       MU_IOCTL_LOGSTREAM_SET_LOCUS, &env->locus);
-      mu_stream_ioctl (env->logstr, MU_IOCTL_LOGSTREAM,
-		       MU_IOCTL_LOGSTREAM_SET_LOCUS, &env->locus);
       if (strncmp (stmt, "#line ", 6) == 0)
       if (strncmp (stmt, "#line ", 6) == 0)
 	{
 	{
 	  char *p;
 	  char *p;
@@ -540,9 +540,11 @@ eval_biffrc (struct biffrc_environ *env)
 	  else
 	  else
 	    {
 	    {
 	      mu_stream_ioctl (mu_strerr, MU_IOCTL_LOGSTREAM,
 	      mu_stream_ioctl (mu_strerr, MU_IOCTL_LOGSTREAM,
-			       MU_IOCTL_LOGSTREAM_SET_LOCUS, &env->locus);
+			       MU_IOCTL_LOGSTREAM_SET_LOCUS_LINE,
+			       &env->locus.mu_line);
 	      mu_stream_ioctl (env->logstr, MU_IOCTL_LOGSTREAM,
 	      mu_stream_ioctl (env->logstr, MU_IOCTL_LOGSTREAM,
-			       MU_IOCTL_LOGSTREAM_SET_LOCUS, &env->locus);
+			       MU_IOCTL_LOGSTREAM_SET_LOCUS_LINE,
+			       &env->locus.mu_line);
 	    }
 	    }
 	  continue;
 	  continue;
 	}
 	}
@@ -553,7 +555,10 @@ eval_biffrc (struct biffrc_environ *env)
 	  
 	  
 	  if (ws.ws_wordc == 0)
 	  if (ws.ws_wordc == 0)
 	    {
 	    {
-	      env->locus.mu_line++;
+	      mu_stream_ioctl (mu_strerr, MU_IOCTL_LOGSTREAM,
+			       MU_IOCTL_LOGSTREAM_ADVANCE_LOCUS_LINE, NULL);
+	      mu_stream_ioctl (env->logstr, MU_IOCTL_LOGSTREAM,
+			       MU_IOCTL_LOGSTREAM_ADVANCE_LOCUS_LINE, NULL);
 	      continue;
 	      continue;
 	    }
 	    }
 
 
@@ -591,7 +596,10 @@ eval_biffrc (struct biffrc_environ *env)
 	report_error (env, "%s", mu_wordsplit_strerror (&ws));
 	report_error (env, "%s", mu_wordsplit_strerror (&ws));
       
       
       wsflags |= MU_WRDSF_REUSE;
       wsflags |= MU_WRDSF_REUSE;
-      env->locus.mu_line++;
+      mu_stream_ioctl (mu_strerr, MU_IOCTL_LOGSTREAM,
+		       MU_IOCTL_LOGSTREAM_ADVANCE_LOCUS_LINE, NULL);
+      mu_stream_ioctl (env->logstr, MU_IOCTL_LOGSTREAM,
+		       MU_IOCTL_LOGSTREAM_ADVANCE_LOCUS_LINE, NULL);
     }
     }
   free (stmt);
   free (stmt);
   mu_wordsplit_free (&ws);
   mu_wordsplit_free (&ws);

@@ -108,26 +108,36 @@ enum mu_buffer_type
 #define MU_IOCTL_LOGSTREAM_GET_MODE     4
 #define MU_IOCTL_LOGSTREAM_GET_MODE     4
 #define MU_IOCTL_LOGSTREAM_SET_MODE     5
 #define MU_IOCTL_LOGSTREAM_SET_MODE     5
 
 
+  /* Set locus line.
+     Arg: unsigned *
+  */
+#define MU_IOCTL_LOGSTREAM_SET_LOCUS_LINE  6
+  /* Set locus column.
+     Arg: unsigned *
+  */
+#define MU_IOCTL_LOGSTREAM_SET_LOCUS_COL   7
+  
   /* Advance locus line.
   /* Advance locus line.
      Arg: NULL (increment by 1)
      Arg: NULL (increment by 1)
           int *
           int *
   */
   */
-#define MU_IOCTL_LOGSTREAM_ADVANCE_LOCUS_LINE 6
+#define MU_IOCTL_LOGSTREAM_ADVANCE_LOCUS_LINE 8
   /* Advance locus column.
   /* Advance locus column.
      Arg: NULL (increment by 1)
      Arg: NULL (increment by 1)
           int *
           int *
   */
   */
-#define MU_IOCTL_LOGSTREAM_ADVANCE_LOCUS_COL  7
+
+#define MU_IOCTL_LOGSTREAM_ADVANCE_LOCUS_COL  9
 
 
   /* Suppress output of messages having severity lower than the
   /* Suppress output of messages having severity lower than the
      given threshold.
      given threshold.
      Arg: int *
      Arg: int *
   */
   */
-#define MU_IOCTL_LOGSTREAM_SUPPRESS_SEVERITY  8
+#define MU_IOCTL_LOGSTREAM_SUPPRESS_SEVERITY  10
   /* Same as above, but:
   /* Same as above, but:
      Arg: const char *
      Arg: const char *
   */
   */
-#define MU_IOCTL_LOGSTREAM_SUPPRESS_SEVERITY_NAME 9
+#define MU_IOCTL_LOGSTREAM_SUPPRESS_SEVERITY_NAME 11
 
 
   /* Opcodes for MU_IOCTL_XSCRIPTSTREAM */
   /* Opcodes for MU_IOCTL_XSCRIPTSTREAM */
   /* Swap transcript levels.
   /* Swap transcript levels.

@@ -378,6 +378,18 @@ _log_ctl (struct _mu_stream *str, int code, int opcode, void *arg)
 	    break;
 	    break;
 	  }
 	  }
 
 
+	case MU_IOCTL_LOGSTREAM_SET_LOCUS_LINE:
+	  if (!arg)
+	    return EINVAL;
+	  sp->locus.mu_line = *(unsigned*)arg;
+	  break;
+	  
+	case MU_IOCTL_LOGSTREAM_SET_LOCUS_COL:
+	  if (!arg)
+	    return EINVAL;
+	  sp->locus.mu_col = *(unsigned*)arg;
+	  break;
+	  
 	case MU_IOCTL_LOGSTREAM_ADVANCE_LOCUS_LINE:
 	case MU_IOCTL_LOGSTREAM_ADVANCE_LOCUS_LINE:
 	  if (!arg)
 	  if (!arg)
 	    sp->locus.mu_line++;
 	    sp->locus.mu_line++;