]>
Commit | Line | Data |
---|---|---|
8603f9c5 TT |
1 | /* Handle CLASSPATH, -classpath, and path searching. |
2 | ||
3 | Copyright (C) 1998 Free Software Foundation, Inc. | |
4 | ||
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 GNU CC; see the file COPYING. If not, write to | |
17 | the Free Software Foundation, 59 Temple Place - Suite 330, | |
18 | Boston, MA 02111-1307, USA. | |
19 | ||
20 | Java and all Java-based marks are trademarks or registered trademarks | |
21 | of Sun Microsystems, Inc. in the United States and other countries. | |
22 | The Free Software Foundation is independent of Sun Microsystems, Inc. */ | |
23 | ||
24 | /* Written by Tom Tromey <tromey@cygnus.com>, October 1998. */ | |
25 | ||
26 | #include <config.h> | |
27 | #include "system.h" | |
28 | ||
29 | #include "jcf.h" | |
30 | ||
31 | /* Some boilerplate that really belongs in a header. */ | |
32 | ||
33 | #ifndef GET_ENV_PATH_LIST | |
34 | #define GET_ENV_PATH_LIST(VAR,NAME) do { (VAR) = getenv (NAME); } while (0) | |
35 | #endif | |
36 | ||
37 | /* By default, colon separates directories in a path. */ | |
38 | #ifndef PATH_SEPARATOR | |
39 | #define PATH_SEPARATOR ':' | |
40 | #endif | |
41 | ||
42 | #ifndef DIR_SEPARATOR | |
43 | #define DIR_SEPARATOR '/' | |
44 | #endif | |
45 | ||
46 | \f | |
47 | ||
48 | /* Possible flag values. */ | |
49 | #define FLAG_SYSTEM 1 | |
50 | #define FLAG_ZIP 2 | |
51 | ||
52 | /* We keep linked lists of directory names. A ``directory'' can be | |
53 | either an ordinary directory or a .zip file. */ | |
54 | struct entry | |
55 | { | |
56 | char *name; | |
57 | int flags; | |
58 | struct entry *next; | |
59 | }; | |
60 | ||
61 | /* We support several different ways to set the class path. | |
62 | ||
63 | built-in system directory (only libjava.zip) | |
64 | CLASSPATH environment variable | |
65 | -CLASSPATH overrides CLASSPATH | |
66 | -classpath option - overrides CLASSPATH, -CLASSPATH, and built-in | |
67 | -I prepends path to list | |
68 | ||
69 | We implement this by keeping several path lists, and then simply | |
70 | ignoring the ones which are not relevant. */ | |
71 | ||
72 | /* This holds all the -I directories. */ | |
73 | static struct entry *include_dirs; | |
74 | ||
75 | /* This holds the CLASSPATH environment variable. */ | |
76 | static struct entry *classpath_env; | |
77 | ||
78 | /* This holds the -CLASSPATH command-line option. */ | |
79 | static struct entry *classpath_u; | |
80 | ||
81 | /* This holds the -classpath command-line option. */ | |
82 | static struct entry *classpath_l; | |
83 | ||
84 | /* This holds the default directories. Some of these will have the | |
85 | "system" flag set. */ | |
86 | static struct entry *sys_dirs; | |
87 | ||
88 | /* This is the sealed list. It is just a combination of other lists. */ | |
89 | static struct entry *sealed; | |
90 | ||
91 | /* We keep track of the longest path we've seen. */ | |
92 | static int longest_path = 0; | |
93 | ||
94 | \f | |
95 | ||
96 | static void | |
97 | free_entry (entp) | |
98 | struct entry **entp; | |
99 | { | |
100 | struct entry *e, *n; | |
101 | ||
102 | for (e = *entp; e; e = n) | |
103 | { | |
104 | n = e->next; | |
105 | free (e->name); | |
106 | free (e); | |
107 | } | |
108 | *entp = NULL; | |
109 | } | |
110 | ||
111 | static void | |
112 | append_entry (entp, ent) | |
113 | struct entry **entp; | |
114 | struct entry *ent; | |
115 | { | |
116 | /* It doesn't matter if this is slow, since it is run only at | |
117 | startup, and then infrequently. */ | |
118 | struct entry *e; | |
119 | ||
120 | /* Find end of list. */ | |
121 | for (e = *entp; e && e->next; e = e->next) | |
122 | ; | |
123 | ||
124 | if (e) | |
125 | e->next = ent; | |
126 | else | |
127 | *entp = ent; | |
128 | } | |
129 | ||
130 | static void | |
131 | add_entry (entp, filename, is_system) | |
132 | struct entry **entp; | |
133 | char *filename; | |
134 | int is_system; | |
135 | { | |
136 | int len; | |
137 | struct entry *n; | |
138 | ||
139 | n = (struct entry *) ALLOC (sizeof (struct entry)); | |
140 | n->flags = is_system ? FLAG_SYSTEM : 0; | |
141 | n->next = NULL; | |
142 | ||
143 | len = strlen (filename); | |
144 | if (len > 4 && ! strcmp (filename - 4, ".zip")) | |
145 | { | |
146 | n->flags |= FLAG_ZIP; | |
147 | /* If the user uses -classpath then he'll have to include | |
148 | libjava.zip in the value. We check for this in a simplistic | |
149 | way. Symlinks will fool this test. This is only used for | |
150 | -MM and -MMD, so it probably isn't terribly important. */ | |
151 | if (! strcmp (filename, LIBJAVA_ZIP_FILE)) | |
152 | n->flags |= FLAG_SYSTEM; | |
153 | } | |
154 | ||
155 | if (filename[len - 1] != '/' && filename[len - 1] != DIR_SEPARATOR) | |
156 | { | |
157 | char *f2 = (char *) alloca (len + 1); | |
158 | strcpy (f2, filename); | |
159 | f2[len] = DIR_SEPARATOR; | |
160 | f2[len + 1] = '\0'; | |
161 | n->name = strdup (f2); | |
162 | ++len; | |
163 | } | |
164 | else | |
165 | n->name = strdup (filename); | |
166 | ||
167 | if (len > longest_path) | |
168 | longest_path = len; | |
169 | ||
170 | append_entry (entp, n); | |
171 | } | |
172 | ||
173 | static void | |
174 | add_path (entp, cp, is_system) | |
175 | struct entry **entp; | |
176 | char *cp; | |
177 | int is_system; | |
178 | { | |
179 | char *startp, *endp; | |
180 | ||
181 | if (cp) | |
182 | { | |
183 | char *buf = (char *) alloca (strlen (cp) + 3); | |
184 | startp = endp = cp; | |
185 | while (1) | |
186 | { | |
187 | if (! *endp || *endp == PATH_SEPARATOR) | |
188 | { | |
189 | strncpy (buf, startp, endp - startp); | |
190 | if (endp == startp) | |
191 | { | |
192 | buf[0] = '.'; | |
193 | buf[1] = DIR_SEPARATOR; | |
194 | buf[2] = '\0'; | |
195 | } | |
196 | else if (endp[-1] != '/' && endp[1] != DIR_SEPARATOR) | |
197 | { | |
198 | buf[endp - startp] = DIR_SEPARATOR; | |
199 | buf[endp - startp + 1] = '\0'; | |
200 | } | |
201 | else | |
202 | buf[endp - startp] = '\0'; | |
203 | add_entry (entp, buf, is_system); | |
204 | if (! *endp) | |
205 | break; | |
206 | ++endp; | |
207 | startp = endp; | |
208 | } | |
209 | else | |
210 | ++endp; | |
211 | } | |
212 | } | |
213 | } | |
214 | ||
215 | /* Initialize the path module. */ | |
216 | void | |
217 | jcf_path_init () | |
218 | { | |
219 | char *cp; | |
220 | ||
221 | add_entry (&sys_dirs, ".", 0); | |
222 | add_entry (&sys_dirs, LIBJAVA_ZIP_FILE, 1); | |
223 | ||
224 | GET_ENV_PATH_LIST (cp, "CLASSPATH"); | |
225 | add_path (&classpath_env, cp, 0); | |
226 | } | |
227 | ||
228 | /* Call this when -classpath is seen on the command line. */ | |
229 | void | |
230 | jcf_path_classpath_arg (path) | |
231 | char *path; | |
232 | { | |
233 | free_entry (&classpath_l); | |
234 | add_path (&classpath_l, path, 0); | |
235 | } | |
236 | ||
237 | /* Call this when -CLASSPATH is seen on the command line. */ | |
238 | void | |
239 | jcf_path_CLASSPATH_arg (path) | |
240 | char *path; | |
241 | { | |
242 | free_entry (&classpath_u); | |
243 | add_path (&classpath_u, path, 0); | |
244 | } | |
245 | ||
246 | /* Call this when -I is seen on the command line. */ | |
247 | void | |
248 | jcf_path_include_arg (path) | |
249 | char *path; | |
250 | { | |
251 | add_entry (&include_dirs, path, 0); | |
252 | } | |
253 | ||
254 | /* We `seal' the path by linking everything into one big list. Then | |
255 | we provide a way to iterate through the sealed list. */ | |
256 | void | |
257 | jcf_path_seal () | |
258 | { | |
259 | int do_system = 1; | |
260 | struct entry *secondary; | |
261 | ||
262 | sealed = include_dirs; | |
263 | include_dirs = NULL; | |
264 | ||
265 | if (classpath_l) | |
266 | { | |
267 | secondary = classpath_l; | |
268 | classpath_l = NULL; | |
269 | do_system = 0; | |
270 | } | |
271 | else if (classpath_u) | |
272 | { | |
273 | secondary = classpath_u; | |
274 | classpath_u = NULL; | |
275 | } | |
276 | else | |
277 | { | |
278 | secondary = classpath_env; | |
279 | classpath_env = NULL; | |
280 | } | |
281 | ||
282 | free_entry (&classpath_l); | |
283 | free_entry (&classpath_u); | |
284 | free_entry (&classpath_env); | |
285 | ||
286 | append_entry (&sealed, secondary); | |
287 | ||
288 | if (do_system) | |
289 | { | |
290 | append_entry (&sealed, sys_dirs); | |
291 | sys_dirs = NULL; | |
292 | } | |
293 | else | |
294 | free_entry (&sys_dirs); | |
295 | } | |
296 | ||
297 | void * | |
298 | jcf_path_start () | |
299 | { | |
300 | return (void *) sealed; | |
301 | } | |
302 | ||
303 | void * | |
304 | jcf_path_next (x) | |
305 | void *x; | |
306 | { | |
307 | struct entry *ent = (struct entry *) x; | |
308 | return (void *) ent->next; | |
309 | } | |
310 | ||
311 | /* We guarantee that the return path will either be a zip file, or it | |
312 | will end with a directory separator. */ | |
313 | char * | |
314 | jcf_path_name (x) | |
315 | void *x; | |
316 | { | |
317 | struct entry *ent = (struct entry *) x; | |
318 | return ent->name; | |
319 | } | |
320 | ||
321 | int | |
322 | jcf_path_is_zipfile (x) | |
323 | void *x; | |
324 | { | |
325 | struct entry *ent = (struct entry *) x; | |
326 | return (ent->flags & FLAG_ZIP); | |
327 | } | |
328 | ||
329 | int | |
330 | jcf_path_is_system (x) | |
331 | void *x; | |
332 | { | |
333 | struct entry *ent = (struct entry *) x; | |
334 | return (ent->flags & FLAG_SYSTEM); | |
335 | } | |
336 | ||
337 | int | |
338 | jcf_path_max_len () | |
339 | { | |
340 | return longest_path; | |
341 | } |