Added -clobber switch to mhstore(1) [Bug #11160].
[mmh] / docs / historical / mh-6.8.5 / sbr / RCS / path.c,v
1 head    1.6;
2 access;
3 symbols;
4 locks; strict;
5 comment @ * @;
6
7
8 1.6
9 date    92.12.15.00.20.22;      author jromine; state Exp;
10 branches;
11 next    1.5;
12
13 1.5
14 date    92.01.31.21.56.29;      author jromine; state Exp;
15 branches;
16 next    1.4;
17
18 1.4
19 date    90.04.05.15.32.04;      author sources; state Exp;
20 branches;
21 next    1.3;
22
23 1.3
24 date    90.04.05.14.49.26;      author sources; state Exp;
25 branches;
26 next    1.2;
27
28 1.2
29 date    90.02.06.13.09.03;      author sources; state Exp;
30 branches;
31 next    1.1;
32
33 1.1
34 date    90.02.06.13.06.03;      author sources; state Exp;
35 branches;
36 next    ;
37
38
39 desc
40 @@
41
42
43 1.6
44 log
45 @endif sugar
46 @
47 text
48 @/* path.c - return a pathname */
49 #ifndef lint
50 static char ident[] = "@@(#)$Id: path.c,v 1.5 1992/01/31 21:56:29 jromine Exp jromine $";
51 #endif  /* lint */
52
53 #include "../h/mh.h"
54 #include <stdio.h>
55
56 #define CWD     "./"
57 #define NCWD    (sizeof CWD - 1)
58 #define DOT     "."
59 #define DOTDOT  ".."
60 #define PWD     "../"
61 #define NPWD    (sizeof PWD - 1)
62
63
64 static char *pwds;
65
66 static char   *expath ();
67 static  compath();
68
69
70 char   *path (name, flag)
71 register char   *name;
72 register int     flag;
73 {
74     register char  *cp,
75                    *ep;
76
77     if ((cp = expath (name, flag))
78             && (ep = cp + strlen (cp) - 1) > cp
79             && *ep == '/')
80         *ep = 0;
81
82     return cp;
83 }
84
85 /* \f */
86
87 static  char   *expath (name, flag)
88 register char   *name;
89 register int     flag;
90 {
91     register char  *cp,
92                    *ep;
93     char    buffer[BUFSIZ];
94
95     if (flag == TSUBCWF) {
96         (void) sprintf (buffer, "%s/%s", m_getfolder (), name);
97         name = m_mailpath (buffer);
98         compath (name);
99         (void) sprintf (buffer, "%s/", m_maildir (""));
100         if (ssequal (buffer, name)) {
101             cp = name;
102             name = getcpy (name + strlen (buffer));
103             free (cp);
104         }
105         flag = TFOLDER;
106     }
107
108     if (*name == '/'
109             || (flag == TFOLDER
110                 && (strncmp (name, CWD, NCWD)
111                     && strcmp (name, DOT)
112                     && strcmp (name, DOTDOT)
113                     && strncmp (name, PWD, NPWD))))
114         return getcpy (name);
115
116     if (pwds == NULL)
117         pwds = pwd ();
118
119     if (strcmp (name, DOT) == 0 || strcmp (name, CWD) == 0)
120         return getcpy (pwds);
121
122     ep = pwds + strlen (pwds);
123     if ((cp = rindex (pwds, '/')) == NULL)
124         cp = ep;
125     else
126         if (cp == pwds)
127             cp++;
128
129     if (strncmp (name, CWD, NCWD) == 0)
130         name += NCWD;
131
132     if (strcmp (name, DOTDOT) == 0 || strcmp (name, PWD) == 0) {
133         (void) sprintf (buffer, "%.*s", cp - pwds, pwds);
134         return getcpy (buffer);
135     }
136
137     if (strncmp (name, PWD, NPWD) == 0)
138         name += NPWD;
139     else
140         cp = ep;
141
142     (void) sprintf (buffer, "%.*s/%s", cp - pwds, pwds, name);
143     return getcpy (buffer);
144 }
145
146 /* \f */
147
148 static  compath (f)
149 register char  *f;
150 {
151     register char  *cp,
152                    *dp;
153
154     if (*f != '/')
155         return;
156
157     for (cp = f; *cp;)
158         if (*cp == '/') {
159             switch (*++cp) {
160                 case 0: 
161                     if (--cp > f)
162                         *cp = 0;
163                     break;
164
165                 case '/': 
166                     for (dp = cp; *dp == '/'; dp++)
167                         continue;
168                     (void) strcpy (cp--, dp);
169                     continue;
170
171                 case '.': 
172                     if (strcmp (cp, DOT) == 0) {
173                         if (cp > f + 1)
174                             cp--;
175                         *cp = 0;
176                         break;
177                     }
178                     if (strcmp (cp, DOTDOT) == 0) {
179                         for (cp -= 2; cp > f; cp--)
180                             if (*cp == '/')
181                                 break;
182                         if (cp <= f)
183                             cp = f + 1;
184                         *cp = 0;
185                         break;
186                     }
187                     if (strncmp (cp, PWD, NPWD) == 0) {
188                         for (dp = cp - 2; dp > f; dp--)
189                             if (*dp == '/')
190                                 break;
191                         if (dp <= f)
192                             dp = f;
193                         (void) strcpy (dp, cp + NPWD - 1);
194                         cp = dp;
195                         continue;
196                     }
197                     if (strncmp (cp, CWD, NCWD) == 0) {
198                         (void) strcpy (cp - 1, cp + NCWD - 1);
199                         cp--;
200                         continue;
201                     }
202                     continue;
203
204                 default: 
205                     cp++;
206                     continue;
207             }
208             break;
209         }
210         else
211             cp++;
212 }
213 @
214
215
216 1.5
217 log
218 @kerberos
219 @
220 text
221 @d3 2
222 a4 2
223 static char ident[] = "@@(#)$Id: path.c,v 1.4 1990/04/05 15:32:04 sources Exp jromine $";
224 #endif  lint
225 @
226
227
228 1.4
229 log
230 @add ID
231 @
232 text
233 @d3 1
234 a3 1
235 static char ident[] = "@@(#)$Id:$";
236 d33 1
237 a33 1
238         *ep = NULL;
239 d113 1
240 a113 1
241                 case NULL: 
242 d115 1
243 a115 1
244                         *cp = NULL;
245 d128 1
246 a128 1
247                         *cp = NULL;
248 d137 1
249 a137 1
250                         *cp = NULL;
251 @
252
253
254 1.3
255 log
256 @add ID
257 @
258 text
259 @d3 1
260 a3 1
261 static char ident[] = "$Id:";
262 @
263
264
265 1.2
266 log
267 @ANSI Compilance
268 @
269 text
270 @d2 3
271 @
272
273
274 1.1
275 log
276 @Initial revision
277 @
278 text
279 @d16 2
280 a17 1
281 char   *expath ();
282 @