annotate sbr/m_foil.c @ 0:bce86c4163a3

Initial revision
author kono
date Mon, 18 Apr 2005 23:46:02 +0900
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
bce86c4163a3 Initial revision
kono
parents:
diff changeset
1 /* m_foil.c - foil search of .mh_profile */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
2
bce86c4163a3 Initial revision
kono
parents:
diff changeset
3 #include "../h/mh.h"
bce86c4163a3 Initial revision
kono
parents:
diff changeset
4 #include <stdio.h>
bce86c4163a3 Initial revision
kono
parents:
diff changeset
5
bce86c4163a3 Initial revision
kono
parents:
diff changeset
6
bce86c4163a3 Initial revision
kono
parents:
diff changeset
7 void m_foil (path)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
8 char *path;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
9 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
10 register struct node *np;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
11
bce86c4163a3 Initial revision
kono
parents:
diff changeset
12 defpath = context = "/dev/null";
bce86c4163a3 Initial revision
kono
parents:
diff changeset
13
bce86c4163a3 Initial revision
kono
parents:
diff changeset
14 if (path) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
15 np = m_defs = (struct node *) malloc (sizeof *np);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
16 if (np == NULL)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
17 adios (NULLCP, "unable to allocate profile storage");
bce86c4163a3 Initial revision
kono
parents:
diff changeset
18
bce86c4163a3 Initial revision
kono
parents:
diff changeset
19 np -> n_name = getcpy ("Path");
bce86c4163a3 Initial revision
kono
parents:
diff changeset
20 np -> n_field = getcpy (path);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
21 np -> n_context = 0;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
22 np -> n_next = NULL;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
23
bce86c4163a3 Initial revision
kono
parents:
diff changeset
24 if (mypath == NULL && (mypath = getenv ("HOME")) != NULL)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
25 mypath = strlen(mypath) < BUFSIZ / 4 ? getcpy (mypath) : NULL;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
26 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
27 }