Added -clobber switch to mhstore(1) [Bug #11160].
[mmh] / 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 @