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

   1
   2 /*
   3  * readconfig.c -- base routine to read nmh configuration files
   4  *              -- such as nmh profile, context file, or mhn.defaults.
   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/utils.h>
  13
  14 struct procstr {
  15     char *procname;
  16     char **procnaddr;
  17 };
  18
  19 static struct procstr procs[] = {
  20     { "context",       &context },
  21     { "mh-sequences",  &mh_seq },
  22     { "buildmimeproc", &buildmimeproc },
  23     { "fileproc",      &fileproc },
  24     { "formatproc",    &formatproc },
  25     { "incproc",       &incproc },
  26     { "installproc",   &installproc },
  27     { "lproc",         &lproc },
  28     { "mailproc",      &mailproc },
  29     { "mhlproc",       &mhlproc },
  30     { "moreproc",      &moreproc },
  31     { "mshproc",       &mshproc },
  32     { "packproc",      &packproc },
  33     { "postproc",      &postproc },
  34     { "rmmproc",       &rmmproc },
  35     { "sendproc",      &sendproc },
  36     { "showmimeproc",  &showmimeproc },
  37     { "showproc",      &showproc },
  38     { "vmhproc",       &vmhproc },
  39     { "whatnowproc",   &whatnowproc },
  40     { "whomproc",      &whomproc },
  41     { NULL,            NULL }
  42 };
  43
  44 static struct node **opp = NULL;
  45
  46
  47 void
  48 readconfig (struct node **npp, FILE *ib, char *file, int ctx)
  49 {
  50     register int state;
  51     register char *cp;
  52     char name[NAMESZ], field[BUFSIZ];
  53     register struct node *np;
  54     register struct procstr *ps;
  55
  56     if (npp == NULL && (npp = opp) == NULL) {
  57         admonish (NULL, "bug: readconfig called but pump not primed");
  58         return;
  59     }
  60
  61     for (state = FLD;;) {
  62         switch (state = m_getfld (state, name, field, sizeof(field), ib)) {
  63             case FLD:
  64             case FLDPLUS:
  65             case FLDEOF:
  66                 np = (struct node *) mh_xmalloc (sizeof(*np));
  67                 *npp = np;
  68                 *(npp = &np->n_next) = NULL;
  69                 np->n_name = getcpy (name);
  70                 if (state == FLDPLUS) {
  71                     cp = getcpy (field);
  72                     while (state == FLDPLUS) {
  73                         state = m_getfld (state, name, field, sizeof(field), ib);
  74                         cp = add (field, cp);
  75                     }
  76                     np->n_field = trimcpy (cp);
  77                     free (cp);
  78                 } else {
  79                     np->n_field = trimcpy (field);
  80                 }
  81                 np->n_context = ctx;
  82
  83                 /*
  84                  * Now scan the list of `procs' and link in the
  85                  * field value to the global variable.
  86                  */
  87                 for (ps = procs; ps->procname; ps++)
  88                     if (strcmp (np->n_name, ps->procname) == 0) {
  89                         *ps->procnaddr = np->n_field;
  90                         break;
  91                     }
  92                 if (state == FLDEOF)
  93                     break;
  94                 continue;
  95
  96             case BODY:
  97             case BODYEOF:
  98                 adios (NULL, "no blank lines are permitted in %s", file);
  99
 100             case FILEEOF:
 101                 break;
 102
 103             default:
 104                 adios (NULL, "%s is poorly formatted", file);
 105         }
 106         break;
 107     }
 108
 109     /*
 110      * Special handling for the pager processes: lproc and moreproc.
 111      *
 112      * If they are not set by the profile, use the callers $PAGER if
 113      * available, otherwise set them to DEFAULT_PAGER.
 114      */
 115     if (lproc == NULL) {
 116         lproc = getenv("PAGER");
 117         if (lproc == NULL || lproc[0] == '\0')
 118             lproc = DEFAULT_PAGER;
 119     }
 120     if (moreproc == NULL) {
 121         moreproc = getenv("PAGER");
 122         if (moreproc == NULL || moreproc[0] == '\0')
 123             moreproc = DEFAULT_PAGER;
 124     }
 125
 126     if (opp == NULL) {
 127         /* Check for duplicated non-null profile entries.  Except
 128            allow multiple profile entries named "#", because that's
 129            what the mh-profile man page suggests using for comments.
 130
 131            Only do this check on the very first call from
 132            context_read(), when opp is NULL.  That way, entries in
 133            mhn.defaults can be overridden without triggering
 134            warnings.
 135
 136            Note that that mhn.defaults, $MHN, $MHBUILD, $MHSHOW, and
 137            $MHSTORE all put their entries into just one list, m_defs,
 138            the same list that the profile uses. */
 139
 140         struct node *np;
 141         for (np = m_defs; np; np = np->n_next) {
 142             /* Yes, this is O(N^2).  The profile should be small enough so
 143                that's not a performance problem. */
 144             if (strlen (np->n_name) > 0  &&  strcmp ("#", np->n_name)) {
 145                 struct node *np2;
 146                 for (np2 = np->n_next; np2; np2 = np2->n_next) {
 147                     if (! mh_strcasecmp (np->n_name, np2->n_name)) {
 148                         admonish (NULL, "multiple \"%s\" profile components "
 149                                         "in %s, ignoring \"%s\"",
 150                                   np->n_name, defpath, np2->n_field);
 151                     }
 152                 }
 153             }
 154         }
 155     }
 156
 157     opp = npp;
 158 }