diplodocus.org Git - nmh/blob - docs/historical/mh-6.8.5/sbr/RCS/m_foil.c,v

   1 head     1.3;
   2 branch   ;
   3 access   ;
   4 symbols  ;
   5 locks    ; strict;
   6 comment  @ * @;
   7
   8
   9 1.3
  10 date     90.04.05.15.32.12;  author sources;  state Exp;
  11 branches ;
  12 next     1.2;
  13
  14 1.2
  15 date     90.04.05.14.49.41;  author sources;  state Exp;
  16 branches ;
  17 next     1.1;
  18
  19 1.1
  20 date     90.02.08.15.53.06;  author sources;  state Exp;
  21 branches ;
  22 next     ;
  23
  24
  25 desc
  26 @@
  27
  28
  29 1.3
  30 log
  31 @add ID
  32 @
  33 text
  34 @/* m_foil.c - foil search of .mh_profile */
  35 #ifndef lint
  36 static char ident[] = "@@(#)$Id:$";
  37 #endif  lint
  38
  39 #include "../h/mh.h"
  40 #include <stdio.h>
  41
  42
  43 void m_foil (path)
  44 char   *path;
  45 {
  46     register struct node *np;
  47
  48     defpath = context = "/dev/null";
  49
  50     if (path) {
  51         np = m_defs = (struct node *) malloc (sizeof *np);
  52         if (np == NULL)
  53             adios (NULLCP, "unable to allocate profile storage");
  54
  55         np -> n_name = getcpy ("Path");
  56         np -> n_field = getcpy (path);
  57         np -> n_context = 0;
  58         np -> n_next = NULL;
  59
  60         if (mypath == NULL && (mypath = getenv ("HOME")) != NULL)
  61             mypath = getcpy (mypath);
  62     }
  63 }
  64 @
  65
  66
  67 1.2
  68 log
  69 @add ID
  70 @
  71 text
  72 @d3 1
  73 a3 1
  74 static char ident[] = "$Id:";
  75 @
  76
  77
  78 1.1
  79 log
  80 @Initial revision
  81 @
  82 text
  83 @d2 3
  84 @