diplodocus.org Git - nmh/blob - sbr/seq_save.c

   1
   2 /*
   3  * seq_save.c -- 1) synchronize sequences
   4  *            -- 2) save public sequences
   5  *
   6  * This code is Copyright (c) 2002, by the authors of nmh.  See the
   7  * COPYRIGHT file in the root directory of the nmh distribution for
   8  * complete copyright information.
   9  */
  10
  11 #include <h/mh.h>
  12 #include <h/signals.h>
  13
  14
  15 /*
  16  * 1.  If sequence is public and folder is readonly,
  17  *     then change it to be private
  18  * 2a. If sequence is public, then add it to the sequences file
  19  *     in folder (name specified by mh-sequences profile entry).
  20  * 2b. If sequence is private, then add it to the
  21  *     context file.
  22  */
  23
  24 void
  25 seq_save (struct msgs *mp)
  26 {
  27     size_t i;
  28     char flags, *cp, attr[BUFSIZ], seqfile[PATH_MAX];
  29     FILE *fp;
  30     sigset_t set, oset;
  31
  32     /* check if sequence information has changed */
  33     if (!(mp->msgflags & SEQMOD)) {
  34         if (mp->seqhandle) {
  35             lkfclosedata (mp->seqhandle, mp->seqname);
  36             mp->seqhandle = NULL;
  37             free(mp->seqname);
  38             mp->seqname = NULL;
  39         }
  40         return;
  41     }
  42     mp->msgflags &= ~SEQMOD;
  43
  44     fp = NULL;
  45     flags = mp->msgflags;       /* record folder flags */
  46
  47     /*
  48      * If no mh-sequences file is defined, or if a mh-sequences file
  49      * is defined but empty (*mh_seq == '\0'), then pretend folder
  50      * is readonly.  This will force all sequences to be private.
  51      */
  52     if (mh_seq == NULL || *mh_seq == '\0')
  53         set_readonly (mp);
  54     else
  55         snprintf (seqfile, sizeof(seqfile), "%s/%s", mp->foldpath, mh_seq);
  56
  57     for (i = 0; i < svector_size (mp->msgattrs); i++) {
  58         snprintf (attr, sizeof(attr), "atr-%s-%s",
  59                   svector_at (mp->msgattrs, i), mp->foldpath);
  60
  61         /* get space separated list of sequence ranges */
  62         if (!(cp = seq_list(mp, svector_at (mp->msgattrs, i)))) {
  63             context_del (attr);                 /* delete sequence from context */
  64             continue;
  65         }
  66
  67         if (is_readonly(mp) || is_seq_private(mp, i)) {
  68 priv:
  69             /*
  70              * sequence is private
  71              */
  72             context_replace (attr, cp);         /* update sequence in context   */
  73         } else {
  74             /*
  75              * sequence is public
  76              */
  77             context_del (attr);                 /* delete sequence from context */
  78
  79             if (!fp) {
  80                 /*
  81                  * Attempt to open file for public sequences.
  82                  * If that fails (probably because folder is
  83                  * readonly), then make sequence private.
  84                  */
  85
  86                 if (mp->seqhandle) {
  87                     fp = mp->seqhandle;
  88                     mp->seqhandle = NULL;
  89                     free(mp->seqname);
  90                     mp->seqname = NULL;
  91                     rewind(fp);
  92                     ftruncate(fileno(fp), 0);
  93                 } else if ((fp = lkfopendata (seqfile, "w")) == NULL
  94                         && (unlink (seqfile) == -1 ||
  95                             (fp = lkfopendata (seqfile, "w")) == NULL)) {
  96                     admonish (attr, "unable to write");
  97                     goto priv;
  98                 }
  99
 100                 /* block a few signals */
 101                 sigemptyset (&set);
 102                 sigaddset(&set, SIGHUP);
 103                 sigaddset(&set, SIGINT);
 104                 sigaddset(&set, SIGQUIT);
 105                 sigaddset(&set, SIGTERM);
 106                 sigprocmask (SIG_BLOCK, &set, &oset);
 107             }
 108             fprintf (fp, "%s: %s\n", svector_at (mp->msgattrs, i), cp);
 109         }
 110     }
 111
 112     if (fp) {
 113         lkfclosedata (fp, seqfile);
 114         sigprocmask (SIG_SETMASK, &oset, &set);  /* reset signal mask */
 115     } else {
 116         /*
 117          * If folder is not readonly, and we didn't save any
 118          * public sequences, then remove that file.
 119          */
 120         if (!is_readonly(mp))
 121             unlink (seqfile);
 122     }
 123
 124     /*
 125      * Reset folder flag, since we may be
 126      * pretending that folder is readonly.
 127      */
 128     mp->msgflags = flags;
 129 }