1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
/*
* ARC - Archive utility - ARCMATCH
*
* Version 2.17, created on 12/17/85 at 20:32:18
*
* (C) COPYRIGHT 1985-87 by System Enhancement Associates.
* You may copy and distribute this program freely,
* under the terms of the General Public License.
*
* By: Thom Henderson
*
* Description: This file contains service routines needed to maintain an
* archive.
*
* Language: Computer Innovations Optimizing C86
*/
#include <stdio.h>
#include "arc.h"
#include <string.h>
#if BSD
#include <strings.h>
#endif
VOID arcdie();
int
match(n, t) /* test name against template */
char *n; /* name to test */
char *t; /* template to test against */
{
#if _MTS
fortran patbuild(), patmatch(), patfree();
static int patlen = (-1);
static int patwork = 0;
static int patswch = 0;
char patccid[4];
static char patchar[2] = "?";
static char oldtemp[16] = 0;
int namlen, RETCODE;
if (strcmp(t, oldtemp)) {
if (patwork)
patfree(&patwork);
strcpy(oldtemp, t);
patlen = strlen(oldtemp);
patbuild(oldtemp, &patlen, &patwork, &patswch, patccid, patchar, _retcode RETCODE);
if (RETCODE > 8) {
printf("MTS: patbuild returned %d\n", RETCODE);
arcdie("bad wildcard in filename");
}
}
namlen = strlen(n);
patmatch(n, &namlen, &patwork, _retcode RETCODE);
switch (RETCODE) {
case 0:
return (1);
case 4:
return (0);
default:
arcdie("wildcard pattern match failed");
}
}
#else
#if !UNIX
upper(n);
upper(t); /* avoid case problems */
#endif /* UNIX */
/* first match name part */
while ((*n && *n != '.') || (*t && *t != '.')) {
if (*n != *t && *t != '?') { /* match fail? */
if (*t != '*') /* wildcard fail? */
return 0; /* then no match */
else { /* else jump over wildcard */
while (*n && *n != '.')
n++;
while (*t && *t != '.')
t++;
break; /* name part matches wildcard */
}
} else { /* match good for this char */
n++; /* advance to next char */
t++;
}
}
if (*n && *n == '.')
n++; /* skip extension delimiters */
if (*t && *t == '.')
t++;
/* now match name part */
while (*n || *t) {
if (*n != *t && *t != '?') { /* match fail? */
if (*t != '*') /* wildcard fail? */
return 0; /* then no match */
else
return 1; /* else good enough */
} else { /* match good for this char */
n++; /* advance to next char */
t++;
}
}
return 1; /* match worked */
}
#endif
VOID
rempath(nargs, arg) /* remove paths from filenames */
int nargs; /* number of names */
char *arg[]; /* pointers to names */
{
char *i; /* string index */
int n; /* index */
for (n = 0; n < nargs; n++) { /* for each supplied name */
if (!(i = rindex(arg[n], '\\'))) /* search for end of
* path */
if (!(i = rindex(arg[n], '/')))
i = rindex(arg[n], ':');
if (i) /* if path was found */
arg[n] = i + 1; /* then skip it */
}
}
|
