git.marmaro.de Git - mmh/blob - sbr/context_foil.c

   1 /*
   2 ** context_foil.c -- foil search of profile and context
   3 **
   4 ** This code is Copyright (c) 2002, by the authors of nmh.  See the
   5 ** COPYRIGHT file in the root directory of the nmh distribution for
   6 ** complete copyright information.
   7 */
   8
   9 #include <h/mh.h>
  10 #include <h/utils.h>
  11
  12 /*
  13 ** Foil search of users .mh_profile
  14 ** If error, return -1, else return 0
  15 */
  16 int
  17 context_foil(char *path)
  18 {
  19         register struct node *np;
  20
  21         /* In fact, nobody examines defpath in code paths where
  22         ** it's been set by us -- the uses in the source tree are:
  23         **  1 sbr/context_read.c uses it only after setting it itself
  24         **  2 uip/install_mh.c uses it only after setting it itself
  25         **  3 uip/mark.c print it if given the -debug switch
  26         ** A worthwhile piece of code cleanup would be to make 1 and
  27         ** 2 use a local variable and just delete 3.
  28         **
  29         ** Similarly, context and ctxpath are not really used
  30         ** outside the context_* routines. It might be worth combining
  31         ** them into one file so the variables can be made static.
  32         */
  33
  34         /* We set context to NULL to indicate that no context file
  35         ** is to be read. (Using /dev/null doesn't work because we
  36         ** would try to lock it, which causes timeouts with some
  37         ** locking methods.)
  38         */
  39         defpath = context = NULL;
  40
  41         /*
  42         ** If path is given, create a minimal profile/context list
  43         */
  44         if (path) {
  45                 m_defs = (struct node *) mh_xmalloc(sizeof(*np));
  46
  47                 np = m_defs;
  48                 if (!(np->n_name = strdup("Path"))) {
  49                         advise(NULL, "strdup failed");
  50                         return -1;
  51                 }
  52                 if (!(np->n_field = strdup(path))) {
  53                         advise(NULL, "strdup failed");
  54                         return -1;
  55                 }
  56                 np->n_context = 0;
  57                 np->n_next = NULL;
  58
  59                 if (mypath == NULL && (mypath = getenv("HOME")) != NULL)
  60                         if (!(mypath = strdup(mypath))) {
  61                                 advise(NULL, "strdup failed");
  62                                 return -1;
  63                         }
  64         }
  65
  66         return 0;
  67 }