|
15
|
1 /* File name wild card expansion for VMS.
|
|
|
2 This file is part of the etags program.
|
|
6113
|
3 Copyright (C) 1987 Free Software Foundation, Inc.
|
|
15
|
4
|
|
6113
|
5 This program is free software; you can redistribute it and/or modify
|
|
|
6 it under the terms of the GNU General Public License as published by
|
|
|
7 the Free Software Foundation; either version 2, or (at your option)
|
|
|
8 any later version.
|
|
|
9
|
|
|
10 This program is distributed in the hope that it will be useful,
|
|
|
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
13 GNU General Public License for more details.
|
|
|
14
|
|
|
15 You should have received a copy of the GNU General Public License
|
|
|
16 along with this program; if not, write to the Free Software
|
|
|
17 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
|
|
15
|
18
|
|
|
19 #include <stdio.h>
|
|
|
20 typedef char tbool;
|
|
|
21
|
|
|
22 /* This is a BUG! ANY arbitrary limit is a BUG!
|
|
|
23 Won't someone please fix this? */
|
|
|
24 #define MAX_FILE_SPEC_LEN 255
|
|
|
25 typedef struct {
|
|
|
26 short curlen;
|
|
|
27 char body[MAX_FILE_SPEC_LEN + 1];
|
|
|
28 } vspec;
|
|
|
29 #define EOS '\0'
|
|
|
30 #define NO 0
|
|
|
31 #define YES 1
|
|
|
32 #define NULL 0
|
|
|
33
|
|
6113
|
34 /* gfnames - return in successive calls the
|
|
15
|
35 name of each file specified by all the remaining args in the command-line
|
|
|
36 expanding wild cards and
|
|
|
37 stepping over arguments when they have been processed completely
|
|
|
38 */
|
|
|
39 char*
|
|
|
40 gfnames(pac, pav, p_error)
|
|
|
41 int *pac;
|
|
|
42 char **pav[];
|
|
|
43 tbool *p_error;
|
|
|
44 {
|
|
|
45 static vspec filename = {MAX_FILE_SPEC_LEN, "\0"};
|
|
|
46 short fn_exp();
|
|
|
47
|
|
|
48 while (1)
|
|
|
49 if (*pac == 0)
|
|
|
50 {
|
|
|
51 *p_error = NO;
|
|
|
52 return(NULL);
|
|
|
53 }
|
|
|
54 else switch(fn_exp(&filename, **pav))
|
|
|
55 {
|
|
|
56 case 1:
|
|
|
57 *p_error = NO;
|
|
|
58 return(filename.body);
|
|
|
59 break;
|
|
|
60 case 0:
|
|
|
61 --*pac;
|
|
|
62 ++*pav;
|
|
|
63 break;
|
|
|
64 default:
|
|
|
65 *p_error = YES;
|
|
|
66 return(filename.body);
|
|
|
67 break;
|
|
|
68 }
|
|
|
69
|
|
|
70 }
|
|
|
71
|
|
6113
|
72 /* fn_exp - expand specification of list of file names
|
|
15
|
73 returning in each successive call the next filename matching the input
|
|
|
74 spec. The function expects that each in_spec passed
|
|
|
75 to it will be processed to completion; in particular, up to and
|
|
|
76 including the call following that in which the last matching name
|
|
|
77 is returned, the function ignores the value of in_spec, and will
|
|
|
78 only start processing a new spec with the following call.
|
|
|
79 If an error occurs, on return out_spec contains the value
|
|
|
80 of in_spec when the error occurred.
|
|
|
81
|
|
|
82 With each successive filename returned in out_spec, the
|
|
|
83 function's return value is one. When there are no more matching
|
|
|
84 names the function returns zero. If on the first call no file
|
|
|
85 matches in_spec, or there is any other error, -1 is returned.
|
|
|
86 */
|
|
|
87
|
|
|
88 #include <rmsdef.h>
|
|
|
89 #include <descrip.h>
|
|
|
90 #define OUTSIZE MAX_FILE_SPEC_LEN
|
|
|
91 short
|
|
|
92 fn_exp(out, in)
|
|
|
93 vspec *out;
|
|
|
94 char *in;
|
|
|
95 {
|
|
|
96 static long context = 0;
|
|
|
97 static struct dsc$descriptor_s o;
|
|
|
98 static struct dsc$descriptor_s i;
|
|
|
99 static tbool pass1 = YES;
|
|
|
100 long status;
|
|
|
101 short retval;
|
|
|
102
|
|
|
103 if (pass1)
|
|
|
104 {
|
|
|
105 pass1 = NO;
|
|
615
|
106 o.dsc$a_pointer = (char *) out;
|
|
15
|
107 o.dsc$w_length = (short)OUTSIZE;
|
|
|
108 i.dsc$a_pointer = in;
|
|
|
109 i.dsc$w_length = (short)strlen(in);
|
|
|
110 i.dsc$b_dtype = DSC$K_DTYPE_T;
|
|
|
111 i.dsc$b_class = DSC$K_CLASS_S;
|
|
|
112 o.dsc$b_dtype = DSC$K_DTYPE_VT;
|
|
|
113 o.dsc$b_class = DSC$K_CLASS_VS;
|
|
|
114 }
|
|
|
115 if ( (status = lib$find_file(&i, &o, &context, 0, 0)) == RMS$_NORMAL)
|
|
|
116 {
|
|
|
117 out->body[out->curlen] = EOS;
|
|
|
118 return(1);
|
|
|
119 }
|
|
|
120 else if (status == RMS$_NMF)
|
|
|
121 retval = 0;
|
|
|
122 else
|
|
|
123 {
|
|
|
124 strcpy(out->body, in);
|
|
|
125 retval = -1;
|
|
|
126 }
|
|
|
127 lib$find_file_end(&context);
|
|
|
128 pass1 = YES;
|
|
|
129 return(retval);
|
|
|
130 }
|
|
|
131
|
|
|
132 #ifndef OLD /* Newer versions of VMS do provide `system'. */
|
|
|
133 system(cmd)
|
|
|
134 char *cmd;
|
|
|
135 {
|
|
|
136 fprintf(stderr, "system() function not implemented under VMS\n");
|
|
|
137 }
|
|
|
138 #endif
|
|
|
139
|
|
|
140 #define VERSION_DELIM ';'
|
|
|
141 char *massage_name(s)
|
|
|
142 char *s;
|
|
|
143 {
|
|
|
144 char *start = s;
|
|
|
145
|
|
|
146 for ( ; *s; s++)
|
|
|
147 if (*s == VERSION_DELIM)
|
|
|
148 {
|
|
|
149 *s = EOS;
|
|
|
150 break;
|
|
|
151 }
|
|
|
152 else
|
|
|
153 *s = tolower(*s);
|
|
|
154 return(start);
|
|
|
155 }
|
