mime_type.c: Fix regexp in comment that describes following code.

[nmh] / sbr / seq_read.c

diff --git a/sbr/seq_read.c b/sbr/seq_read.c
index e3491218a956891733057f9a4838e0f670450197..39192605ffd3544b846e1388f2c0cfd6a1e7cdd7 100644 (file)
--- a/sbr/seq_read.c
+++ b/sbr/seq_read.c
@@ -1,6 +1,4 @@
-
-/*
- * seq_read.c -- read the .mh_sequence file and
+/* seq_read.c -- read the .mh_sequence file and

  *            -- initialize sequence information
  *
  * This code is Copyright (c) 2002, by the authors of nmh.  See the
  *            -- initialize sequence information
  *
  * This code is Copyright (c) 2002, by the authors of nmh.  See the


@@ -10,12 +8,13 @@
 
 #include <h/mh.h>
 #include <h/utils.h>
 
 #include <h/mh.h>
 #include <h/utils.h>

+#include "lock_file.h"

 
 /*
  * static prototypes
  */
 static int seq_init (struct msgs *, char *, char *);
 
 /*
  * static prototypes
  */
 static int seq_init (struct msgs *, char *, char *);

-static void seq_public (struct msgs *);
+static int seq_public (struct msgs *, int, int *);

 static void seq_private (struct msgs *);
 
 
 static void seq_private (struct msgs *);
 
 


@@ -25,26 +24,31 @@ static void seq_private (struct msgs *);
  * or context file (for private sequences).
  */
 
  * or context file (for private sequences).
  */
 

-void
-seq_read (struct msgs *mp)
+int
+seq_read (struct msgs *mp, int lockflag)

 {
 {

+    int failed_to_lock = 0;
+

     /*
      * Initialize the list of sequence names.  Go ahead and
      * add the "cur" sequence to the list of sequences.
      */
     /*
      * Initialize the list of sequence names.  Go ahead and
      * add the "cur" sequence to the list of sequences.
      */

-    mp->msgattrs[0] = getcpy (current);
-    mp->msgattrs[1] = NULL;
+    svector_push_back (mp->msgattrs, getcpy (current));

     make_all_public (mp);      /* initially, make all public */
 
     /* If folder is empty, don't scan for sequence information */
     if (mp->nummsg == 0)
     make_all_public (mp);      /* initially, make all public */
 
     /* If folder is empty, don't scan for sequence information */
     if (mp->nummsg == 0)

-       return;
+       return OK;

 
     /* Initialize the public sequences */
 
     /* Initialize the public sequences */

-    seq_public (mp);
+    if (seq_public (mp, lockflag, &failed_to_lock) == NOTOK) {
+       if (failed_to_lock) return NOTOK;
+    }

 
     /* Initialize the private sequences */
     seq_private (mp);
 
     /* Initialize the private sequences */
     seq_private (mp);

+
+    return OK;

 }
 
 
 }
 
 


@@ -52,65 +56,75 @@ seq_read (struct msgs *mp)
  * read folder's sequences file for public sequences
  */
 
  * read folder's sequences file for public sequences
  */
 

-static void
-seq_public (struct msgs *mp)
+static int
+seq_public (struct msgs *mp, int lockflag, int *failed_to_lock)

 {
     int state;
     char *cp, seqfile[PATH_MAX];
 {
     int state;
     char *cp, seqfile[PATH_MAX];

-    char name[NAMESZ], field[BUFSIZ];
+    char name[NAMESZ], field[NMH_BUFSIZ];

     FILE *fp;
     FILE *fp;

+    m_getfld_state_t gstate;

 
     /*
 
     /*

-     * If mh_seq == NULL (such as if nmh been compiled with
-     * NOPUBLICSEQ), or if *mh_seq == '\0' (the user has defined
+     * If mh_seq == NULL or if *mh_seq == '\0' (the user has defined

      * the "mh-sequences" profile entry, but left it empty),
      * then just return, and do not initialize any public sequences.
      */
     if (mh_seq == NULL || *mh_seq == '\0')
      * the "mh-sequences" profile entry, but left it empty),
      * then just return, and do not initialize any public sequences.
      */
     if (mh_seq == NULL || *mh_seq == '\0')

-       return;
+       return OK;

 
     /* get filename of sequence file */
     snprintf (seqfile, sizeof(seqfile), "%s/%s", mp->foldpath, mh_seq);
 
 
     /* get filename of sequence file */
     snprintf (seqfile, sizeof(seqfile), "%s/%s", mp->foldpath, mh_seq);
 

-    if ((fp = lkfopen (seqfile, "r")) == NULL)
-       return;
+    if ((fp = lkfopendata (seqfile, lockflag ? "r+" : "r", failed_to_lock))
+       == NULL)
+       return NOTOK;

 
 

-    /* Use m_getfld to scan sequence file */
-    for (state = FLD;;) {
-       switch (state = m_getfld (state, name, field, sizeof(field), fp)) {
+    /* Use m_getfld2 to scan sequence file */
+    gstate = m_getfld_state_init(fp);
+    for (;;) {
+       int fieldsz = sizeof field;
+       switch (state = m_getfld2(&gstate, name, field, &fieldsz)) {

            case FLD: 
            case FLDPLUS:
            case FLD: 
            case FLDPLUS:

-           case FLDEOF: 

                if (state == FLDPLUS) {
                if (state == FLDPLUS) {

-                   cp = getcpy (field);
+                   cp = mh_xstrdup(field);

                    while (state == FLDPLUS) {
                    while (state == FLDPLUS) {

-                       state = m_getfld (state, name, field, sizeof(field), fp);
+                       fieldsz = sizeof field;
+                       state = m_getfld2(&gstate, name, field, &fieldsz);

                        cp = add (field, cp);
                    }
                        cp = add (field, cp);
                    }

-                   seq_init (mp, getcpy (name), trimcpy (cp));
+                   seq_init (mp, mh_xstrdup(name), trimcpy (cp));

                    free (cp);
                } else {
                    free (cp);
                } else {

-                   seq_init (mp, getcpy (name), trimcpy (field));
+                   seq_init (mp, mh_xstrdup(name), trimcpy (field));

                }
                }

-               if (state == FLDEOF)
-                   break;

                continue;
 
                continue;
 

-           case BODY: 
-           case BODYEOF: 
+           case BODY:
+               lkfclosedata (fp, seqfile);

                adios (NULL, "no blank lines are permitted in %s", seqfile);
                adios (NULL, "no blank lines are permitted in %s", seqfile);

-               /* fall */
+               break;

 
            case FILEEOF:
                break;
 
            default: 
 
            case FILEEOF:
                break;
 
            default: 

+               lkfclosedata (fp, seqfile);

                adios (NULL, "%s is poorly formatted", seqfile);
        }
        break;  /* break from for loop */
     }
                adios (NULL, "%s is poorly formatted", seqfile);
        }
        break;  /* break from for loop */
     }

+    m_getfld_state_destroy (&gstate);
+
+    if (lockflag) {
+       mp->seqhandle = fp;
+       mp->seqname = mh_xstrdup(seqfile);
+    } else {
+       lkfclosedata (fp, seqfile);
+    }

 
 

-    lkfclose (fp, seqfile);
+    return OK;

 }
 
 
 }
 
 


@@ -128,7 +142,7 @@ seq_private (struct msgs *mp)
     char *cp;
     struct node *np;
 
     char *cp;
     struct node *np;
 

-    alen = strlen ("atr-");
+    alen = LEN("atr-");

     plen = strlen (mp->foldpath) + 1;
 
     for (np = m_defs; np; np = np->n_next) {
     plen = strlen (mp->foldpath) + 1;
 
     for (np = m_defs; np; np = np->n_next) {


@@ -136,7 +150,7 @@ seq_private (struct msgs *mp)
                && (j = strlen (np->n_name) - plen) > alen
                && *(np->n_name + j) == '-'
                && strcmp (mp->foldpath, np->n_name + j + 1) == 0) {
                && (j = strlen (np->n_name) - plen) > alen
                && *(np->n_name + j) == '-'
                && strcmp (mp->foldpath, np->n_name + j + 1) == 0) {

-           cp = getcpy (np->n_name + alen);
+           cp = mh_xstrdup(np->n_name + alen);

            *(cp + j - alen) = '\0';
            if ((i = seq_init (mp, cp, getcpy (np->n_field))) != -1)
                make_seq_private (mp, i);
            *(cp + j - alen) = '\0';
            if ((i = seq_init (mp, cp, getcpy (np->n_field))) != -1)
                make_seq_private (mp, i);


@@ -158,7 +172,8 @@ seq_private (struct msgs *mp)
 static int
 seq_init (struct msgs *mp, char *name, char *field)
 {
 static int
 seq_init (struct msgs *mp, char *name, char *field)
 {

-    int i, j, k, is_current;
+    unsigned int i;
+    int j, k, is_current;

     char *cp, **ap;
 
     /*
     char *cp, **ap;
 
     /*


@@ -171,32 +186,24 @@ seq_init (struct msgs *mp, char *name, char *field)
      * Search for this sequence name to see if we've seen
      * it already.  If we've seen this sequence before,
      * then clear the bit for this sequence from all the
      * Search for this sequence name to see if we've seen
      * it already.  If we've seen this sequence before,
      * then clear the bit for this sequence from all the

-     * mesages in this folder.
+     * messages in this folder.

      */
      */

-    for (i = 0; mp->msgattrs[i]; i++) {
-       if (!strcmp (mp->msgattrs[i], name)) {
+    for (i = 0; i < svector_size (mp->msgattrs); i++) {
+       if (!strcmp (svector_at (mp->msgattrs, i), name)) {

            for (j = mp->lowmsg; j <= mp->hghmsg; j++)
                clear_sequence (mp, i, j);
            break;
        }
     }
 
            for (j = mp->lowmsg; j <= mp->hghmsg; j++)
                clear_sequence (mp, i, j);
            break;
        }
     }
 

-    /* Return error, if too many sequences */
-    if (i >= NUMATTRS) {
-       free (name);
-       free (field);
-       return -1;
-    }
-

     /*
      * If we've already seen this sequence name, just free the
      * name string.  Else add it to the list of sequence names.
      */
     /*
      * If we've already seen this sequence name, just free the
      * name string.  Else add it to the list of sequence names.
      */

-    if (mp->msgattrs[i]) {
+    if (svector_at (mp->msgattrs, i)) {

        free (name);
     } else {
        free (name);
     } else {

-       mp->msgattrs[i] = name;
-       mp->msgattrs[i + 1] = NULL;
+       svector_push_back (mp->msgattrs, name);

     }
 
     /*
     }
 
     /*