README.developers: Add pointers to Debian's Lintian's complaints.

[nmh] / sbr / seq_save.c

diff --git a/sbr/seq_save.c b/sbr/seq_save.c
index 3c53e4bc1914678638db8e545acffe281981af9b..f95b44365879a3716f154b6a0d4d9810c327ec85 100644 (file)
--- a/sbr/seq_save.c
+++ b/sbr/seq_save.c
@@ -1,6 +1,4 @@
-
-/*
- * seq_save.c -- 1) synchronize sequences
+/* seq_save.c -- 1) synchronize sequences

  *            -- 2) save public sequences
  *
  * This code is Copyright (c) 2002, by the authors of nmh.  See the
  *            -- 2) save public sequences
  *
  * This code is Copyright (c) 2002, by the authors of nmh.  See the


@@ -24,15 +22,19 @@
 void
 seq_save (struct msgs *mp)
 {
 void
 seq_save (struct msgs *mp)
 {

-    int i;
+    size_t i;

     char flags, *cp, attr[BUFSIZ], seqfile[PATH_MAX];
     FILE *fp;
     sigset_t set, oset;
 
     /* check if sequence information has changed */
     if (!(mp->msgflags & SEQMOD)) {
     char flags, *cp, attr[BUFSIZ], seqfile[PATH_MAX];
     FILE *fp;
     sigset_t set, oset;
 
     /* check if sequence information has changed */
     if (!(mp->msgflags & SEQMOD)) {

-       if (mp->seqhandle)
+       if (mp->seqhandle) {

            lkfclosedata (mp->seqhandle, mp->seqname);
            lkfclosedata (mp->seqhandle, mp->seqname);

+           mp->seqhandle = NULL;
+           free(mp->seqname);
+           mp->seqname = NULL;
+       }

        return;
     }
     mp->msgflags &= ~SEQMOD;
        return;
     }
     mp->msgflags &= ~SEQMOD;


@@ -50,11 +52,12 @@ seq_save (struct msgs *mp)
     else
        snprintf (seqfile, sizeof(seqfile), "%s/%s", mp->foldpath, mh_seq);
 
     else
        snprintf (seqfile, sizeof(seqfile), "%s/%s", mp->foldpath, mh_seq);
 

-    for (i = 0; mp->msgattrs[i]; i++) {
-       snprintf (attr, sizeof(attr), "atr-%s-%s", mp->msgattrs[i], mp->foldpath);
+    for (i = 0; i < svector_size (mp->msgattrs); i++) {
+       snprintf (attr, sizeof(attr), "atr-%s-%s",
+                 svector_at (mp->msgattrs, i), mp->foldpath);

 
        /* get space separated list of sequence ranges */
 
        /* get space separated list of sequence ranges */

-       if (!(cp = seq_list(mp, mp->msgattrs[i]))) {
+       if (!(cp = seq_list(mp, svector_at (mp->msgattrs, i)))) {

            context_del (attr);                 /* delete sequence from context */
            continue;
        }
            context_del (attr);                 /* delete sequence from context */
            continue;
        }


@@ -72,6 +75,8 @@ priv:
            context_del (attr);                 /* delete sequence from context */
 
            if (!fp) {
            context_del (attr);                 /* delete sequence from context */
 
            if (!fp) {

+               int failed_to_lock = 0;
+

                /*
                 * Attempt to open file for public sequences.
                 * If that fails (probably because folder is
                /*
                 * Attempt to open file for public sequences.
                 * If that fails (probably because folder is


@@ -84,11 +89,19 @@ priv:
                    free(mp->seqname);
                    mp->seqname = NULL;
                    rewind(fp);
                    free(mp->seqname);
                    mp->seqname = NULL;
                    rewind(fp);

-                   ftruncate(fileno(fp), 0);
-               } else if ((fp = lkfopendata (seqfile, "w")) == NULL
-                       && (unlink (seqfile) == -1 ||
-                           (fp = lkfopendata (seqfile, "w")) == NULL)) {
-                   admonish (attr, "unable to write");
+                   if (ftruncate(fileno(fp), 0) < 0) {
+                       advise ("sequence file", "ftruncate");
+                   }
+               } else if ((fp = lkfopendata (seqfile, "w", &failed_to_lock))
+                          == NULL
+                       && (m_unlink (seqfile) == -1 ||
+                           (fp = lkfopendata (seqfile, "w", &failed_to_lock))
+                           == NULL)) {
+                   if (failed_to_lock) {
+                       admonish (attr, "unable to lock");
+                   } else {
+                       admonish (attr, "unable to write");
+                   }

                    goto priv;
                }
 
                    goto priv;
                }
 


@@ -100,7 +113,7 @@ priv:
                sigaddset(&set, SIGTERM);
                sigprocmask (SIG_BLOCK, &set, &oset);
            }
                sigaddset(&set, SIGTERM);
                sigprocmask (SIG_BLOCK, &set, &oset);
            }

-           fprintf (fp, "%s: %s\n", mp->msgattrs[i], cp);
+           fprintf (fp, "%s: %s\n", svector_at (mp->msgattrs, i), cp);

        }
     }
 
        }
     }
 


@@ -113,7 +126,7 @@ priv:
         * public sequences, then remove that file.
         */
        if (!is_readonly(mp))
         * public sequences, then remove that file.
         */
        if (!is_readonly(mp))

-           unlink (seqfile);
+           (void) m_unlink (seqfile);

     }
 
     /*
     }
 
     /*