New changes: Sender: cannot be blank, Sender: always overrides From:
[mmh] / sbr / path.c
1
2 /*
3  * path.c -- return a pathname
4  *
5  * This code is Copyright (c) 2002, by the authors of nmh.  See the
6  * COPYRIGHT file in the root directory of the nmh distribution for
7  * complete copyright information.
8  */
9
10 #include <h/mh.h>
11
12 #define CWD     "./"
13 #define NCWD    (sizeof(CWD) - 1)
14 #define DOT     "."
15 #define DOTDOT  ".."
16 #define PWD     "../"
17 #define NPWD    (sizeof(PWD) - 1)
18
19 static char *pwds;
20
21 /*
22  * static prototypes
23  */
24 static char *expath(char *,int);
25 static void compath(char *);
26
27 char *
28 pluspath(char *name)
29 {
30         return path(name + 1, *name == '+' ? TFOLDER : TSUBCWF);
31 }
32
33 char *
34 path(char *name, int flag)
35 {
36     register char *cp, *ep;
37
38     if ((cp = expath (name, flag))
39             && (ep = cp + strlen (cp) - 1) > cp
40             && *ep == '/')
41         *ep = '\0';
42
43     return cp;
44 }
45
46
47 static char *
48 expath (char *name, int flag)
49 {
50     register char *cp, *ep;
51     char buffer[BUFSIZ];
52
53     if (flag == TSUBCWF) {
54         snprintf (buffer, sizeof(buffer), "%s/%s", getfolder (1), name);
55         name = m_mailpath (buffer);
56         compath (name);
57         snprintf (buffer, sizeof(buffer), "%s/", m_maildir (""));
58         if (ssequal (buffer, name)) {
59             cp = name;
60             name = getcpy (name + strlen (buffer));
61             free (cp);
62         }
63         flag = TFOLDER;
64     }
65
66     if (*name == '/'
67             || (flag == TFOLDER
68                 && (strncmp (name, CWD, NCWD)
69                     && strcmp (name, DOT)
70                     && strcmp (name, DOTDOT)
71                     && strncmp (name, PWD, NPWD))))
72         return getcpy (name);
73
74     if (pwds == NULL)
75         pwds = pwd ();
76
77     if (strcmp (name, DOT) == 0 || strcmp (name, CWD) == 0)
78         return getcpy (pwds);
79
80     ep = pwds + strlen (pwds);
81     if ((cp = strrchr(pwds, '/')) == NULL)
82         cp = ep;
83     else
84         if (cp == pwds)
85             cp++;
86
87     if (strncmp (name, CWD, NCWD) == 0)
88         name += NCWD;
89
90     if (strcmp (name, DOTDOT) == 0 || strcmp (name, PWD) == 0) {
91         snprintf (buffer, sizeof(buffer), "%.*s", (int)(cp - pwds), pwds);
92         return getcpy (buffer);
93     }
94
95     if (strncmp (name, PWD, NPWD) == 0)
96         name += NPWD;
97     else
98         cp = ep;
99
100     snprintf (buffer, sizeof(buffer), "%.*s/%s", (int)(cp - pwds), pwds, name);
101     return getcpy (buffer);
102 }
103
104
105 static void
106 compath (char *f)
107 {
108     register char *cp, *dp;
109
110     if (*f != '/')
111         return;
112
113     for (cp = f; *cp;)
114         if (*cp == '/') {
115             switch (*++cp) {
116                 case 0: 
117                     if (--cp > f)
118                         *cp = '\0';
119                     break;
120
121                 case '/': 
122                     for (dp = cp; *dp == '/'; dp++)
123                         continue;
124                     strcpy (cp--, dp);
125                     continue;
126
127                 case '.': 
128                     if (strcmp (cp, DOT) == 0) {
129                         if (cp > f + 1)
130                             cp--;
131                         *cp = '\0';
132                         break;
133                     }
134                     if (strcmp (cp, DOTDOT) == 0) {
135                         for (cp -= 2; cp > f; cp--)
136                             if (*cp == '/')
137                                 break;
138                         if (cp <= f)
139                             cp = f + 1;
140                         *cp = '\0';
141                         break;
142                     }
143                     if (strncmp (cp, PWD, NPWD) == 0) {
144                         for (dp = cp - 2; dp > f; dp--)
145                             if (*dp == '/')
146                                 break;
147                         if (dp <= f)
148                             dp = f;
149                         strcpy (dp, cp + NPWD - 1);
150                         cp = dp;
151                         continue;
152                     }
153                     if (strncmp (cp, CWD, NCWD) == 0) {
154                         strcpy (cp - 1, cp + NCWD - 1);
155                         cp--;
156                         continue;
157                     }
158                     continue;
159
160                 default: 
161                     cp++;
162                     continue;
163             }
164             break;
165         }
166         else
167             cp++;
168 }