1 | /* vmsify.c -- Module for vms <-> unix file name conversion
|
---|
2 | Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
|
---|
3 | 2006 Free Software Foundation, Inc.
|
---|
4 | This file is part of GNU Make.
|
---|
5 |
|
---|
6 | GNU Make is free software; you can redistribute it and/or modify it under the
|
---|
7 | terms of the GNU General Public License as published by the Free Software
|
---|
8 | Foundation; either version 2, or (at your option) any later version.
|
---|
9 |
|
---|
10 | GNU Make is distributed in the hope that it will be useful, but WITHOUT ANY
|
---|
11 | WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
|
---|
12 | A PARTICULAR PURPOSE. See the GNU General Public License for more details.
|
---|
13 |
|
---|
14 | You should have received a copy of the GNU General Public License along with
|
---|
15 | GNU Make; see the file COPYING. If not, write to the Free Software
|
---|
16 | Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA. */
|
---|
17 |
|
---|
18 | /* Written by Klaus Kämpf ([email protected])
|
---|
19 | of proGIS Software, Aachen, Germany */
|
---|
20 |
|
---|
21 |
|
---|
22 | #include <stdio.h>
|
---|
23 | #include <string.h>
|
---|
24 | #include <ctype.h>
|
---|
25 |
|
---|
26 | #if VMS
|
---|
27 | #include <unixlib.h>
|
---|
28 | #include <stdlib.h>
|
---|
29 | #include <jpidef.h>
|
---|
30 | #include <descrip.h>
|
---|
31 | #include <uaidef.h>
|
---|
32 | #include <ssdef.h>
|
---|
33 | #include <starlet.h>
|
---|
34 | #include <lib$routines.h>
|
---|
35 | /* Initialize a string descriptor (struct dsc$descriptor_s) for an
|
---|
36 | arbitrary string. ADDR is a pointer to the first character
|
---|
37 | of the string, and LEN is the length of the string. */
|
---|
38 |
|
---|
39 | #define INIT_DSC_S(dsc, addr, len) do { \
|
---|
40 | (dsc).dsc$b_dtype = DSC$K_DTYPE_T; \
|
---|
41 | (dsc).dsc$b_class = DSC$K_CLASS_S; \
|
---|
42 | (dsc).dsc$w_length = (len); \
|
---|
43 | (dsc).dsc$a_pointer = (addr); \
|
---|
44 | } while (0)
|
---|
45 |
|
---|
46 | /* Initialize a string descriptor (struct dsc$descriptor_s) for a
|
---|
47 | NUL-terminated string. S is a pointer to the string; the length
|
---|
48 | is determined by calling strlen(). */
|
---|
49 |
|
---|
50 | #define INIT_DSC_CSTRING(dsc, s) INIT_DSC_S(dsc, s, strlen(s))
|
---|
51 | #endif
|
---|
52 |
|
---|
53 | /*
|
---|
54 | copy 'from' to 'to' up to but not including 'upto'
|
---|
55 | return 0 if eos on from
|
---|
56 | return 1 if upto found
|
---|
57 |
|
---|
58 | return 'to' at last char + 1
|
---|
59 | return 'from' at match + 1 or eos if no match
|
---|
60 |
|
---|
61 | if as_dir == 1, change all '.' to '_'
|
---|
62 | else change all '.' but the last to '_'
|
---|
63 | */
|
---|
64 |
|
---|
65 | static int
|
---|
66 | copyto (char **to, const char **from, char upto, int as_dir)
|
---|
67 | {
|
---|
68 | const char *s;
|
---|
69 |
|
---|
70 | s = strrchr (*from, '.');
|
---|
71 |
|
---|
72 | while (**from)
|
---|
73 | {
|
---|
74 | if (**from == upto)
|
---|
75 | {
|
---|
76 | do
|
---|
77 | {
|
---|
78 | (*from)++;
|
---|
79 | }
|
---|
80 | while (**from == upto);
|
---|
81 | return 1;
|
---|
82 | }
|
---|
83 | if (**from == '.')
|
---|
84 | {
|
---|
85 | if ((as_dir == 1)
|
---|
86 | || (*from != s))
|
---|
87 | **to = '_';
|
---|
88 | else
|
---|
89 | **to = '.';
|
---|
90 | }
|
---|
91 | else
|
---|
92 | {
|
---|
93 | #ifdef HAVE_CASE_INSENSITIVE_FS
|
---|
94 | if (isupper ((unsigned char)**from))
|
---|
95 | **to = tolower ((unsigned char)**from);
|
---|
96 | else
|
---|
97 | #endif
|
---|
98 | **to = **from;
|
---|
99 | }
|
---|
100 | (*to)++;
|
---|
101 | (*from)++;
|
---|
102 | }
|
---|
103 |
|
---|
104 | return 0;
|
---|
105 | }
|
---|
106 |
|
---|
107 |
|
---|
108 | /*
|
---|
109 | get translation of logical name
|
---|
110 |
|
---|
111 | */
|
---|
112 |
|
---|
113 | static char *
|
---|
114 | trnlog (const char *name)
|
---|
115 | {
|
---|
116 | int stat;
|
---|
117 | static char reslt[1024];
|
---|
118 | $DESCRIPTOR (reslt_dsc, reslt);
|
---|
119 | short resltlen;
|
---|
120 | struct dsc$descriptor_s name_dsc;
|
---|
121 | char *s;
|
---|
122 |
|
---|
123 | INIT_DSC_CSTRING (name_dsc, name);
|
---|
124 |
|
---|
125 | stat = lib$sys_trnlog (&name_dsc, &resltlen, &reslt_dsc);
|
---|
126 |
|
---|
127 | if ((stat&1) == 0)
|
---|
128 | {
|
---|
129 | return "";
|
---|
130 | }
|
---|
131 | if (stat == SS$_NOTRAN)
|
---|
132 | {
|
---|
133 | return "";
|
---|
134 | }
|
---|
135 | reslt[resltlen] = '\0';
|
---|
136 |
|
---|
137 | s = malloc (resltlen+1);
|
---|
138 | if (s == 0)
|
---|
139 | return "";
|
---|
140 | strcpy (s, reslt);
|
---|
141 | return s;
|
---|
142 | }
|
---|
143 |
|
---|
144 | static char *
|
---|
145 | showall (char *s)
|
---|
146 | {
|
---|
147 | static char t[512];
|
---|
148 | char *pt;
|
---|
149 |
|
---|
150 | pt = t;
|
---|
151 | if (strchr (s, '\\') == 0)
|
---|
152 | return s;
|
---|
153 | while (*s)
|
---|
154 | {
|
---|
155 | if (*s == '\\')
|
---|
156 | {
|
---|
157 | *pt++ = *s;
|
---|
158 | }
|
---|
159 | *pt++ = *s++;
|
---|
160 | }
|
---|
161 | return pt;
|
---|
162 | }
|
---|
163 |
|
---|
164 |
|
---|
165 | enum namestate { N_START, N_DEVICE, N_OPEN, N_DOT, N_CLOSED, N_DONE };
|
---|
166 |
|
---|
167 | /*
|
---|
168 | convert unix style name to vms style
|
---|
169 | type = 0 -> name is a full name (directory and filename part)
|
---|
170 | type = 1 -> name is a directory
|
---|
171 | type = 2 -> name is a filename without directory
|
---|
172 |
|
---|
173 | The following conversions are applied
|
---|
174 | (0) (1) (2)
|
---|
175 | input full name dir name file name
|
---|
176 |
|
---|
177 | 1 ./ <cwd> [] <current directory>.dir
|
---|
178 | 2 ../ <home of cwd> <home of cwd> <home of cwd>.dir
|
---|
179 |
|
---|
180 | 3 // <dev of cwd>: <dev of cwd>:[000000] <dev of cwd>:000000.dir
|
---|
181 | 4 //a a: a: a:
|
---|
182 | 5 //a/ a: a: a:000000.dir
|
---|
183 |
|
---|
184 | 9 / [000000] [000000] 000000.dir
|
---|
185 | 10 /a [000000]a [a] [000000]a
|
---|
186 | 11 /a/ [a] [a] [000000]a.dir
|
---|
187 | 12 /a/b [a]b [a.b] [a]b
|
---|
188 | 13 /a/b/ [a.b] [a.b] [a]b.dir
|
---|
189 | 14 /a/b/c [a.b]c [a.b.c] [a.b]c
|
---|
190 | 15 /a/b/c/ [a.b.c] [a.b.c] [a.b]c.dir
|
---|
191 |
|
---|
192 | 16 a a [.a] a
|
---|
193 | 17 a/ [.a] [.a] a.dir
|
---|
194 | 18 a/b [.a]b [.a.b] [.a]b
|
---|
195 | 19 a/b/ [.a.b] [.a.b] [.a]b.dir
|
---|
196 | 20 a/b/c [.a.b]c [.a.b.c] [.a.b]c
|
---|
197 | 21 a/b/c/ [.a.b.c] [.a.b.c] [.a.b]c.dir
|
---|
198 |
|
---|
199 | 22 a.b.c a_b.c [.a_b_c] a_b_c.dir
|
---|
200 |
|
---|
201 | 23 [x][y]z [x.y]z [x.y]z [x.y]z
|
---|
202 | 24 [x][.y]z [x.y]z [x.y]z [x.y]z
|
---|
203 |
|
---|
204 | 25 filenames with '$' are left unchanged if they contain no '/'
|
---|
205 | 25 filenames with ':' are left unchanged
|
---|
206 | 26 filenames with a single pair of '[' ']' are left unchanged
|
---|
207 |
|
---|
208 | The input string is not written to. The result is also const because
|
---|
209 | it's a static buffer; we don't want to change it.
|
---|
210 | */
|
---|
211 |
|
---|
212 | const char *
|
---|
213 | vmsify (const char *name, int type)
|
---|
214 | {
|
---|
215 | /* max 255 device
|
---|
216 | max 39 directory
|
---|
217 | max 39 filename
|
---|
218 | max 39 filetype
|
---|
219 | max 5 version
|
---|
220 | */
|
---|
221 | #define MAXPATHLEN 512
|
---|
222 |
|
---|
223 | enum namestate nstate;
|
---|
224 | static char vmsname[MAXPATHLEN+1];
|
---|
225 | const char *fptr;
|
---|
226 | const char *t;
|
---|
227 | char *vptr;
|
---|
228 | int as_dir;
|
---|
229 | int count;
|
---|
230 |
|
---|
231 | if (name == 0)
|
---|
232 | return 0;
|
---|
233 | fptr = name;
|
---|
234 | vptr = vmsname;
|
---|
235 | nstate = N_START;
|
---|
236 |
|
---|
237 | /* case 25a */
|
---|
238 | t = strpbrk (name, "$:");
|
---|
239 |
|
---|
240 | if (t != 0)
|
---|
241 | {
|
---|
242 | const char *s1;
|
---|
243 | const char *s2;
|
---|
244 |
|
---|
245 | if (type == 1)
|
---|
246 | {
|
---|
247 | s1 = strchr (t+1, '[');
|
---|
248 | s2 = strchr (t+1, ']');
|
---|
249 | }
|
---|
250 |
|
---|
251 | if (*t == '$')
|
---|
252 | {
|
---|
253 | if (strchr (name, '/') == 0)
|
---|
254 | {
|
---|
255 | strcpy (vmsname, name);
|
---|
256 | if ((type == 1) && (s1 != 0) && (s2 == 0))
|
---|
257 | strcat (vmsname, "]");
|
---|
258 | return vmsname;
|
---|
259 | }
|
---|
260 | }
|
---|
261 | else
|
---|
262 | {
|
---|
263 | strcpy (vmsname, name);
|
---|
264 | if ((type == 1) && (s1 != 0) && (s2 == 0))
|
---|
265 | strcat (vmsname, "]");
|
---|
266 | return vmsname;
|
---|
267 | }
|
---|
268 | }
|
---|
269 |
|
---|
270 | /* case 26 */
|
---|
271 | t = strchr (name, '[');
|
---|
272 |
|
---|
273 | if (t != 0)
|
---|
274 | {
|
---|
275 | const char *s;
|
---|
276 | const char *s1 = strchr (t+1, '[');
|
---|
277 | if (s1 == 0)
|
---|
278 | {
|
---|
279 | strcpy (vmsname, name);
|
---|
280 | if ((type == 1) && (strchr (t+1, ']') == 0))
|
---|
281 | strcat (vmsname, "]");
|
---|
282 | return vmsname;
|
---|
283 | }
|
---|
284 | s1--;
|
---|
285 | if (*s1 != ']')
|
---|
286 | {
|
---|
287 | strcpy (vmsname, name);
|
---|
288 | return vmsname; /* not ][, keep unchanged */
|
---|
289 | }
|
---|
290 |
|
---|
291 | /* we have ][ */
|
---|
292 |
|
---|
293 | s = name;
|
---|
294 |
|
---|
295 | /* s -> starting char
|
---|
296 | s1 -> ending ']' */
|
---|
297 | do
|
---|
298 | {
|
---|
299 | strncpy (vptr, s, s1-s); /* copy up to but not including ']' */
|
---|
300 | vptr += s1-s;
|
---|
301 | if (*s1 == 0)
|
---|
302 | break;
|
---|
303 | s = s1 + 1; /* s -> char behind ']' */
|
---|
304 | if (*s != '[') /* was '][' ? */
|
---|
305 | break; /* no, last ] found, exit */
|
---|
306 | s++;
|
---|
307 | if (*s != '.')
|
---|
308 | *vptr++ = '.';
|
---|
309 | s1 = strchr (s, ']');
|
---|
310 | if (s1 == 0) /* no closing ] */
|
---|
311 | s1 = s + strlen (s);
|
---|
312 | }
|
---|
313 | while (1);
|
---|
314 |
|
---|
315 | *vptr++ = ']';
|
---|
316 |
|
---|
317 | fptr = s;
|
---|
318 |
|
---|
319 | }
|
---|
320 | else /* no [ in name */
|
---|
321 | {
|
---|
322 | int state = 0;
|
---|
323 | int rooted = 1; /* flag if logical is rooted, else insert [000000] */
|
---|
324 |
|
---|
325 | do
|
---|
326 | {
|
---|
327 | switch (state)
|
---|
328 | {
|
---|
329 | case 0: /* start of loop */
|
---|
330 | if (*fptr == '/')
|
---|
331 | {
|
---|
332 | fptr++;
|
---|
333 | state = 1;
|
---|
334 | }
|
---|
335 | else if (*fptr == '.')
|
---|
336 | {
|
---|
337 | fptr++;
|
---|
338 | state = 10;
|
---|
339 | }
|
---|
340 | else
|
---|
341 | state = 2;
|
---|
342 | break;
|
---|
343 |
|
---|
344 | case 1: /* '/' at start */
|
---|
345 | if (*fptr == '/')
|
---|
346 | {
|
---|
347 | fptr++;
|
---|
348 | state = 3;
|
---|
349 | }
|
---|
350 | else
|
---|
351 | state = 4;
|
---|
352 | break;
|
---|
353 |
|
---|
354 | case 2: /* no '/' at start */
|
---|
355 | {
|
---|
356 | const char *s = strchr (fptr, '/');
|
---|
357 | if (s == 0) /* no '/' (16) */
|
---|
358 | {
|
---|
359 | if (type == 1)
|
---|
360 | {
|
---|
361 | strcpy (vptr, "[.");
|
---|
362 | vptr += 2;
|
---|
363 | }
|
---|
364 | copyto (&vptr, &fptr, 0, (type==1));
|
---|
365 | if (type == 1)
|
---|
366 | *vptr++ = ']';
|
---|
367 | state = -1;
|
---|
368 | }
|
---|
369 | else /* found '/' (17..21) */
|
---|
370 | {
|
---|
371 | if ((type == 2)
|
---|
372 | && (*(s+1) == 0)) /* 17(2) */
|
---|
373 | {
|
---|
374 | copyto (&vptr, &fptr, '/', 1);
|
---|
375 | state = 7;
|
---|
376 | }
|
---|
377 | else
|
---|
378 | {
|
---|
379 | strcpy (vptr, "[.");
|
---|
380 | vptr += 2;
|
---|
381 | copyto (&vptr, &fptr, '/', 1);
|
---|
382 | nstate = N_OPEN;
|
---|
383 | state = 9;
|
---|
384 | }
|
---|
385 | }
|
---|
386 | break;
|
---|
387 | }
|
---|
388 |
|
---|
389 | case 3: /* '//' at start */
|
---|
390 | {
|
---|
391 | const char *s;
|
---|
392 | const char *s1;
|
---|
393 | char *vp;
|
---|
394 | while (*fptr == '/') /* collapse all '/' */
|
---|
395 | fptr++;
|
---|
396 | if (*fptr == 0) /* just // */
|
---|
397 | {
|
---|
398 | char cwdbuf[MAXPATHLEN+1];
|
---|
399 |
|
---|
400 | s1 = getcwd(cwdbuf, MAXPATHLEN);
|
---|
401 | if (s1 == 0)
|
---|
402 | {
|
---|
403 | vmsname[0] = '\0';
|
---|
404 | return vmsname; /* FIXME, err getcwd */
|
---|
405 | }
|
---|
406 | s = strchr (s1, ':');
|
---|
407 | if (s == 0)
|
---|
408 | {
|
---|
409 | vmsname[0] = '\0';
|
---|
410 | return vmsname; /* FIXME, err no device */
|
---|
411 | }
|
---|
412 | strncpy (vptr, s1, s-s1+1);
|
---|
413 | vptr += s-s1+1;
|
---|
414 | state = -1;
|
---|
415 | break;
|
---|
416 | }
|
---|
417 |
|
---|
418 | s = vptr;
|
---|
419 |
|
---|
420 | if (copyto (&vptr, &fptr, '/', 1) == 0) /* copy device part */
|
---|
421 | {
|
---|
422 | *vptr++ = ':';
|
---|
423 | state = -1;
|
---|
424 | break;
|
---|
425 | }
|
---|
426 | *vptr = ':';
|
---|
427 | nstate = N_DEVICE;
|
---|
428 | if (*fptr == 0) /* just '//a/' */
|
---|
429 | {
|
---|
430 | strcpy (vptr+1, "[000000]");
|
---|
431 | vptr += 9;
|
---|
432 | state = -1;
|
---|
433 | break;
|
---|
434 | }
|
---|
435 | *vptr = 0;
|
---|
436 | /* check logical for [000000] insertion */
|
---|
437 | vp = trnlog (s);
|
---|
438 | if (*vp != '\0')
|
---|
439 | { /* found translation */
|
---|
440 | for (;;) /* loop over all nested logicals */
|
---|
441 | {
|
---|
442 | char *vp2 = vp + strlen (vp) - 1;
|
---|
443 | if (*vp2 == ':') /* translation ends in ':' */
|
---|
444 | {
|
---|
445 | vp2 = trnlog (vp);
|
---|
446 | free (vp);
|
---|
447 | if (*vp2 == 0)
|
---|
448 | {
|
---|
449 | rooted = 0;
|
---|
450 | break;
|
---|
451 | }
|
---|
452 | vp = vp2;
|
---|
453 | continue; /* next iteration */
|
---|
454 | }
|
---|
455 | if (*vp2 == ']') /* translation ends in ']' */
|
---|
456 | {
|
---|
457 | if (*(vp2-1) == '.') /* ends in '.]' */
|
---|
458 | {
|
---|
459 | if (strncmp (fptr, "000000", 6) != 0)
|
---|
460 | rooted = 0;
|
---|
461 | }
|
---|
462 | else
|
---|
463 | {
|
---|
464 | strcpy (vmsname, s1);
|
---|
465 | vp = strchr (vmsname, ']');
|
---|
466 | *vp = '.';
|
---|
467 | nstate = N_DOT;
|
---|
468 | vptr = vp;
|
---|
469 | }
|
---|
470 | }
|
---|
471 | break;
|
---|
472 | }
|
---|
473 | free (vp);
|
---|
474 | }
|
---|
475 | else
|
---|
476 | rooted = 0;
|
---|
477 |
|
---|
478 | if (*vptr == 0)
|
---|
479 | {
|
---|
480 | nstate = N_DEVICE;
|
---|
481 | *vptr++ = ':';
|
---|
482 | }
|
---|
483 | else
|
---|
484 | vptr++;
|
---|
485 |
|
---|
486 | if (rooted == 0)
|
---|
487 | {
|
---|
488 | nstate = N_DOT;
|
---|
489 | strcpy (vptr, "[000000.");
|
---|
490 | vptr += 8;
|
---|
491 | vp = vptr-1;
|
---|
492 | }
|
---|
493 | else
|
---|
494 | vp = 0;
|
---|
495 |
|
---|
496 | /* vp-> '.' after 000000 or NULL */
|
---|
497 |
|
---|
498 | s = strchr (fptr, '/');
|
---|
499 | if (s == 0)
|
---|
500 | { /* no next '/' */
|
---|
501 | if (*(vptr-1) == '.')
|
---|
502 | *(vptr-1) = ']';
|
---|
503 | else if (rooted == 0)
|
---|
504 | *vptr++ = ']';
|
---|
505 | copyto (&vptr, &fptr, 0, (type == 1));
|
---|
506 | state = -1;
|
---|
507 | break;
|
---|
508 | }
|
---|
509 | else
|
---|
510 | {
|
---|
511 | while (*(s+1) == '/') /* skip multiple '/' */
|
---|
512 | s++;
|
---|
513 | }
|
---|
514 |
|
---|
515 | if ((rooted != 0)
|
---|
516 | && (*(vptr-1) != '.'))
|
---|
517 | {
|
---|
518 | *vptr++ = '[';
|
---|
519 | nstate = N_DOT;
|
---|
520 | }
|
---|
521 | else
|
---|
522 | if ((nstate == N_DOT)
|
---|
523 | && (vp != 0)
|
---|
524 | && (*(s+1) == 0))
|
---|
525 | {
|
---|
526 | if (type == 2)
|
---|
527 | {
|
---|
528 | *vp = ']';
|
---|
529 | nstate = N_CLOSED;
|
---|
530 | }
|
---|
531 | }
|
---|
532 | state = 9;
|
---|
533 | break;
|
---|
534 | }
|
---|
535 | case 4: /* single '/' at start (9..15) */
|
---|
536 | if (*fptr == 0)
|
---|
537 | state = 5;
|
---|
538 | else
|
---|
539 | state = 6;
|
---|
540 | break;
|
---|
541 |
|
---|
542 | case 5: /* just '/' at start (9) */
|
---|
543 | if (type != 2)
|
---|
544 | {
|
---|
545 | *vptr++ = '[';
|
---|
546 | nstate = N_OPEN;
|
---|
547 | }
|
---|
548 | strcpy (vptr, "000000");
|
---|
549 | vptr += 6;
|
---|
550 | if (type == 2)
|
---|
551 | state = 7;
|
---|
552 | else
|
---|
553 | state = 8;
|
---|
554 | break;
|
---|
555 |
|
---|
556 | case 6: /* chars following '/' at start 10..15 */
|
---|
557 | {
|
---|
558 | const char *s;
|
---|
559 | *vptr++ = '[';
|
---|
560 | nstate = N_OPEN;
|
---|
561 | s = strchr (fptr, '/');
|
---|
562 | if (s == 0) /* 10 */
|
---|
563 | {
|
---|
564 | if (type != 1)
|
---|
565 | {
|
---|
566 | strcpy (vptr, "000000]");
|
---|
567 | vptr += 7;
|
---|
568 | }
|
---|
569 | copyto (&vptr, &fptr, 0, (type == 1));
|
---|
570 | if (type == 1)
|
---|
571 | {
|
---|
572 | *vptr++ = ']';
|
---|
573 | }
|
---|
574 | state = -1;
|
---|
575 | }
|
---|
576 | else /* 11..15 */
|
---|
577 | {
|
---|
578 | if ( (type == 2)
|
---|
579 | && (*(s+1) == 0)) /* 11(2) */
|
---|
580 | {
|
---|
581 | strcpy (vptr, "000000]");
|
---|
582 | nstate = N_CLOSED;
|
---|
583 | vptr += 7;
|
---|
584 | }
|
---|
585 | copyto (&vptr, &fptr, '/', (*(vptr-1) != ']'));
|
---|
586 | state = 9;
|
---|
587 | }
|
---|
588 | break;
|
---|
589 | }
|
---|
590 |
|
---|
591 | case 7: /* add '.dir' and exit */
|
---|
592 | if ((nstate == N_OPEN)
|
---|
593 | || (nstate == N_DOT))
|
---|
594 | {
|
---|
595 | char *vp = vptr-1;
|
---|
596 | while (vp > vmsname)
|
---|
597 | {
|
---|
598 | if (*vp == ']')
|
---|
599 | {
|
---|
600 | break;
|
---|
601 | }
|
---|
602 | if (*vp == '.')
|
---|
603 | {
|
---|
604 | *vp = ']';
|
---|
605 | break;
|
---|
606 | }
|
---|
607 | vp--;
|
---|
608 | }
|
---|
609 | }
|
---|
610 | strcpy (vptr, ".dir");
|
---|
611 | vptr += 4;
|
---|
612 | state = -1;
|
---|
613 | break;
|
---|
614 |
|
---|
615 | case 8: /* add ']' and exit */
|
---|
616 | *vptr++ = ']';
|
---|
617 | state = -1;
|
---|
618 | break;
|
---|
619 |
|
---|
620 | case 9: /* 17..21, fptr -> 1st '/' + 1 */
|
---|
621 | {
|
---|
622 | const char *s;
|
---|
623 | if (*fptr == 0)
|
---|
624 | {
|
---|
625 | if (type == 2)
|
---|
626 | {
|
---|
627 | state = 7;
|
---|
628 | }
|
---|
629 | else
|
---|
630 | state = 8;
|
---|
631 | break;
|
---|
632 | }
|
---|
633 | s = strchr (fptr, '/');
|
---|
634 | if (s == 0)
|
---|
635 | {
|
---|
636 | if (type != 1)
|
---|
637 | {
|
---|
638 | if (nstate == N_OPEN)
|
---|
639 | {
|
---|
640 | *vptr++ = ']';
|
---|
641 | nstate = N_CLOSED;
|
---|
642 | }
|
---|
643 | as_dir = 0;
|
---|
644 | }
|
---|
645 | else
|
---|
646 | {
|
---|
647 | if (nstate == N_OPEN)
|
---|
648 | {
|
---|
649 | *vptr++ = '.';
|
---|
650 | nstate = N_DOT;
|
---|
651 | }
|
---|
652 | as_dir = 1;
|
---|
653 | }
|
---|
654 | }
|
---|
655 | else
|
---|
656 | {
|
---|
657 | while (*(s+1) == '/')
|
---|
658 | s++;
|
---|
659 | if ( (type == 2)
|
---|
660 | && (*(s+1) == 0)) /* 19(2), 21(2)*/
|
---|
661 | {
|
---|
662 | if (nstate != N_CLOSED)
|
---|
663 | {
|
---|
664 | *vptr++ = ']';
|
---|
665 | nstate = N_CLOSED;
|
---|
666 | }
|
---|
667 | as_dir = 1;
|
---|
668 | }
|
---|
669 | else
|
---|
670 | {
|
---|
671 | if (nstate == N_OPEN)
|
---|
672 | {
|
---|
673 | *vptr++ = '.';
|
---|
674 | nstate = N_DOT;
|
---|
675 | }
|
---|
676 | as_dir = 1;
|
---|
677 | }
|
---|
678 | }
|
---|
679 | if ( (*fptr == '.') /* check for '..' or '../' */
|
---|
680 | && (*(fptr+1) == '.')
|
---|
681 | && ((*(fptr+2) == '/')
|
---|
682 | || (*(fptr+2) == 0)) )
|
---|
683 | {
|
---|
684 | char *vp;
|
---|
685 | fptr += 2;
|
---|
686 | if (*fptr == '/')
|
---|
687 | {
|
---|
688 | do
|
---|
689 | {
|
---|
690 | fptr++;
|
---|
691 | }
|
---|
692 | while (*fptr == '/');
|
---|
693 | }
|
---|
694 | else if (*fptr == 0)
|
---|
695 | type = 1;
|
---|
696 | vptr--; /* vptr -> '.' or ']' */
|
---|
697 | vp = vptr;
|
---|
698 | for (;;)
|
---|
699 | {
|
---|
700 | vp--;
|
---|
701 | if (*vp == '.') /* one back */
|
---|
702 | {
|
---|
703 | vptr = vp;
|
---|
704 | nstate = N_OPEN;
|
---|
705 | break;
|
---|
706 | }
|
---|
707 | if (*vp == '[') /* top level reached */
|
---|
708 | {
|
---|
709 | if (*fptr == 0)
|
---|
710 | {
|
---|
711 | strcpy (vp, "[000000]");
|
---|
712 | vptr = vp + 8;
|
---|
713 | nstate = N_CLOSED;
|
---|
714 | s = 0;
|
---|
715 | break;
|
---|
716 | }
|
---|
717 | else
|
---|
718 | {
|
---|
719 | vptr = vp+1;
|
---|
720 | nstate = N_OPEN;
|
---|
721 | break;
|
---|
722 | }
|
---|
723 | }
|
---|
724 | }
|
---|
725 | }
|
---|
726 | else
|
---|
727 | {
|
---|
728 | copyto (&vptr, &fptr, '/', as_dir);
|
---|
729 | if (nstate == N_DOT)
|
---|
730 | nstate = N_OPEN;
|
---|
731 | }
|
---|
732 | if (s == 0)
|
---|
733 | { /* 18,20 */
|
---|
734 | if (type == 1)
|
---|
735 | *vptr++ = ']';
|
---|
736 | state = -1;
|
---|
737 | }
|
---|
738 | else
|
---|
739 | {
|
---|
740 | if (*(s+1) == 0)
|
---|
741 | {
|
---|
742 | if (type == 2) /* 19,21 */
|
---|
743 | {
|
---|
744 | state = 7;
|
---|
745 | }
|
---|
746 | else
|
---|
747 | {
|
---|
748 | *vptr++ = ']';
|
---|
749 | state = -1;
|
---|
750 | }
|
---|
751 | }
|
---|
752 | }
|
---|
753 | break;
|
---|
754 | }
|
---|
755 |
|
---|
756 | case 10: /* 1,2 first is '.' */
|
---|
757 | if (*fptr == '.')
|
---|
758 | {
|
---|
759 | fptr++;
|
---|
760 | state = 11;
|
---|
761 | }
|
---|
762 | else
|
---|
763 | state = 12;
|
---|
764 | break;
|
---|
765 |
|
---|
766 | case 11: /* 2, '..' at start */
|
---|
767 | count = 1;
|
---|
768 | if (*fptr != 0)
|
---|
769 | {
|
---|
770 | if (*fptr != '/') /* got ..xxx */
|
---|
771 | {
|
---|
772 | strcpy (vmsname, name);
|
---|
773 | return vmsname;
|
---|
774 | }
|
---|
775 | do /* got ../ */
|
---|
776 | {
|
---|
777 | fptr++;
|
---|
778 | while (*fptr == '/') fptr++;
|
---|
779 | if (*fptr != '.')
|
---|
780 | break;
|
---|
781 | if (*(fptr+1) != '.')
|
---|
782 | break;
|
---|
783 | fptr += 2;
|
---|
784 | if ((*fptr == 0)
|
---|
785 | || (*fptr == '/'))
|
---|
786 | count++;
|
---|
787 | }
|
---|
788 | while (*fptr == '/');
|
---|
789 | }
|
---|
790 | { /* got '..' or '../' */
|
---|
791 | char *vp;
|
---|
792 | char cwdbuf[MAXPATHLEN+1];
|
---|
793 |
|
---|
794 | vp = getcwd(cwdbuf, MAXPATHLEN);
|
---|
795 | if (vp == 0)
|
---|
796 | {
|
---|
797 | vmsname[0] = '\0';
|
---|
798 | return vmsname; /* FIXME, err getcwd */
|
---|
799 | }
|
---|
800 | strcpy (vptr, vp);
|
---|
801 | vp = strchr (vptr, ']');
|
---|
802 | if (vp != 0)
|
---|
803 | {
|
---|
804 | nstate = N_OPEN;
|
---|
805 | while (vp > vptr)
|
---|
806 | {
|
---|
807 | vp--;
|
---|
808 | if (*vp == '[')
|
---|
809 | {
|
---|
810 | vp++;
|
---|
811 | strcpy (vp, "000000]");
|
---|
812 | state = -1;
|
---|
813 | break;
|
---|
814 | }
|
---|
815 | else if (*vp == '.')
|
---|
816 | {
|
---|
817 | if (--count == 0)
|
---|
818 | {
|
---|
819 | if (*fptr == 0) /* had '..' or '../' */
|
---|
820 | {
|
---|
821 | *vp++ = ']';
|
---|
822 | state = -1;
|
---|
823 | }
|
---|
824 | else /* had '../xxx' */
|
---|
825 | {
|
---|
826 | state = 9;
|
---|
827 | }
|
---|
828 | *vp = '\0';
|
---|
829 | break;
|
---|
830 | }
|
---|
831 | }
|
---|
832 | }
|
---|
833 | }
|
---|
834 | vptr += strlen (vptr);
|
---|
835 | }
|
---|
836 | break;
|
---|
837 |
|
---|
838 | case 12: /* 1, '.' at start */
|
---|
839 | if (*fptr != 0)
|
---|
840 | {
|
---|
841 | if (*fptr != '/')
|
---|
842 | {
|
---|
843 | strcpy (vmsname, name);
|
---|
844 | return vmsname;
|
---|
845 | }
|
---|
846 | while (*fptr == '/')
|
---|
847 | fptr++;
|
---|
848 | }
|
---|
849 |
|
---|
850 | {
|
---|
851 | char *vp;
|
---|
852 | char cwdbuf[MAXPATHLEN+1];
|
---|
853 |
|
---|
854 | vp = getcwd(cwdbuf, MAXPATHLEN);
|
---|
855 | if (vp == 0)
|
---|
856 | {
|
---|
857 | vmsname[0] = '\0';
|
---|
858 | return vmsname; /*FIXME, err getcwd */
|
---|
859 | }
|
---|
860 | strcpy (vptr, vp);
|
---|
861 | }
|
---|
862 | if (*fptr == 0)
|
---|
863 | {
|
---|
864 | state = -1;
|
---|
865 | break;
|
---|
866 | }
|
---|
867 | else
|
---|
868 | {
|
---|
869 | char *vp = strchr (vptr, ']');
|
---|
870 | if (vp == 0)
|
---|
871 | {
|
---|
872 | state = -1;
|
---|
873 | break;
|
---|
874 | }
|
---|
875 | *vp = '\0';
|
---|
876 | nstate = N_OPEN;
|
---|
877 | vptr += strlen (vptr);
|
---|
878 | state = 9;
|
---|
879 | }
|
---|
880 | break;
|
---|
881 | }
|
---|
882 |
|
---|
883 | }
|
---|
884 | while (state > 0);
|
---|
885 |
|
---|
886 |
|
---|
887 | }
|
---|
888 |
|
---|
889 |
|
---|
890 | /* directory conversion done
|
---|
891 | fptr -> filename part of input string
|
---|
892 | vptr -> free space in vmsname
|
---|
893 | */
|
---|
894 |
|
---|
895 | *vptr++ = 0;
|
---|
896 |
|
---|
897 | return vmsname;
|
---|
898 | }
|
---|
899 |
|
---|
900 |
|
---|
901 |
|
---|
902 | /*
|
---|
903 | convert from vms-style to unix-style
|
---|
904 |
|
---|
905 | dev:[dir1.dir2] //dev/dir1/dir2/
|
---|
906 | */
|
---|
907 |
|
---|
908 | const char *
|
---|
909 | unixify (const char *name)
|
---|
910 | {
|
---|
911 | static char piece[512];
|
---|
912 | const char *s;
|
---|
913 | char *p;
|
---|
914 |
|
---|
915 | if (strchr (name, '/') != 0) /* already in unix style */
|
---|
916 | {
|
---|
917 | strcpy (piece, name);
|
---|
918 | return piece;
|
---|
919 | }
|
---|
920 |
|
---|
921 | p = piece;
|
---|
922 | *p = 0;
|
---|
923 |
|
---|
924 | /* device part */
|
---|
925 |
|
---|
926 | s = strchr (name, ':');
|
---|
927 |
|
---|
928 | if (s != 0)
|
---|
929 | {
|
---|
930 | int l = s - name;
|
---|
931 | *p++ = '/';
|
---|
932 | *p++ = '/';
|
---|
933 | strncpy (p, name, l);
|
---|
934 | p += l;
|
---|
935 | }
|
---|
936 |
|
---|
937 | /* directory part */
|
---|
938 |
|
---|
939 | *p++ = '/';
|
---|
940 | s = strchr (name, '[');
|
---|
941 |
|
---|
942 | if (s != 0)
|
---|
943 | {
|
---|
944 | s++;
|
---|
945 | switch (*s)
|
---|
946 | {
|
---|
947 | case ']': /* [] */
|
---|
948 | strcat (p, "./");
|
---|
949 | break;
|
---|
950 | case '-': /* [- */
|
---|
951 | strcat (p, "../");
|
---|
952 | break;
|
---|
953 | case '.':
|
---|
954 | strcat (p, "./"); /* [. */
|
---|
955 | break;
|
---|
956 | default:
|
---|
957 | s--;
|
---|
958 | break;
|
---|
959 | }
|
---|
960 | s++;
|
---|
961 | while (*s)
|
---|
962 | {
|
---|
963 | if (*s == '.')
|
---|
964 | *p++ = '/';
|
---|
965 | else
|
---|
966 | *p++ = *s;
|
---|
967 | s++;
|
---|
968 | if (*s == ']')
|
---|
969 | {
|
---|
970 | s++;
|
---|
971 | break;
|
---|
972 | }
|
---|
973 | }
|
---|
974 | if (*s != 0) /* more after ']' ?? */
|
---|
975 | {
|
---|
976 | if (*(p-1) != '/')
|
---|
977 | *p++ = '/';
|
---|
978 | strcpy (p, s); /* copy it anyway */
|
---|
979 | }
|
---|
980 | }
|
---|
981 |
|
---|
982 | else /* no '[' anywhere */
|
---|
983 |
|
---|
984 | {
|
---|
985 | *p++ = 0;
|
---|
986 | }
|
---|
987 |
|
---|
988 | /* force end with '/' */
|
---|
989 |
|
---|
990 | if (*(p-1) != '/')
|
---|
991 | *p++ = '/';
|
---|
992 | *p = 0;
|
---|
993 |
|
---|
994 | return piece;
|
---|
995 | }
|
---|
996 |
|
---|
997 | /* EOF */
|
---|