1 /* Handle CLASSPATH, -classpath, and path searching.
2 Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003
3 Free Software Foundation, Inc.
5 This file is part of GCC.
7 GCC is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2, or (at your option)
12 GCC is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GCC; see the file COPYING. If not, write to
19 the Free Software Foundation, 59 Temple Place - Suite 330,
20 Boston, MA 02111-1307, USA.
22 Java and all Java-based marks are trademarks or registered trademarks
23 of Sun Microsystems, Inc. in the United States and other countries.
24 The Free Software Foundation is independent of Sun Microsystems, Inc. */
26 /* Written by Tom Tromey <tromey@cygnus.com>, October 1998. */
30 #include "coretypes.h"
37 /* By default, colon separates directories in a path. */
38 #ifndef PATH_SEPARATOR
39 #define PATH_SEPARATOR ':'
43 #define DIR_SEPARATOR '/'
52 /* Possible flag values. */
56 /* We keep linked lists of directory names. A ``directory'' can be
57 either an ordinary directory or a .zip file. */
65 static void free_entry (struct entry
**);
66 static void append_entry (struct entry
**, struct entry
*);
67 static void add_entry (struct entry
**, const char *, int);
68 static void add_path (struct entry
**, const char *, int);
70 /* We support several different ways to set the class path.
72 built-in system directory (only libgcj.jar)
73 CLASSPATH environment variable
74 -classpath option overrides $CLASSPATH
75 -CLASSPATH option is a synonym for -classpath (for compatibility)
76 -bootclasspath overrides built-in
77 -extdirs sets the extensions directory path (overrides built-in)
78 -I prepends path to list
80 We implement this by keeping several path lists, and then simply
81 ignoring the ones which are not relevant. */
83 /* This holds all the -I directories. */
84 static struct entry
*include_dirs
;
86 /* This holds the CLASSPATH environment variable. */
87 static struct entry
*classpath_env
;
89 /* This holds the -classpath command-line option. */
90 static struct entry
*classpath_user
;
92 /* This holds the default directories. Some of these will have the
94 static struct entry
*sys_dirs
;
96 /* This holds the extensions path entries. */
97 static struct entry
*extensions
;
99 /* This is the sealed list. It is just a combination of other lists. */
100 static struct entry
*sealed
;
102 /* We keep track of the longest path we've seen. */
103 static int longest_path
= 0;
108 free_entry (struct entry
**entp
)
112 for (e
= *entp
; e
; e
= n
)
122 append_entry (struct entry
**entp
, struct entry
*ent
)
124 /* It doesn't matter if this is slow, since it is run only at
125 startup, and then infrequently. */
128 /* Find end of list. */
129 for (e
= *entp
; e
&& e
->next
; e
= e
->next
)
139 add_entry (struct entry
**entp
, const char *filename
, int is_system
)
144 n
= ALLOC (sizeof (struct entry
));
145 n
->flags
= is_system
? FLAG_SYSTEM
: 0;
148 len
= strlen (filename
);
149 if (len
> 4 && (strcmp (filename
+ len
- 4, ".zip") == 0
150 || strcmp (filename
+ len
- 4, ".jar") == 0))
152 n
->flags
|= FLAG_ZIP
;
153 /* If the user uses -classpath then he'll have to include
154 libgcj.jar in the value. We check for this in a simplistic
155 way. Symlinks will fool this test. This is only used for
156 -MM and -MMD, so it probably isn't terribly important. */
157 if (! strcmp (filename
, LIBGCJ_ZIP_FILE
))
158 n
->flags
|= FLAG_SYSTEM
;
161 /* Note that we add a trailing separator to `.zip' names as well.
162 This is a little hack that lets the searching code in jcf-io.c
163 work more easily. Eww. */
164 if (filename
[len
- 1] != '/' && filename
[len
- 1] != DIR_SEPARATOR
)
166 char *f2
= alloca (len
+ 2);
167 strcpy (f2
, filename
);
168 f2
[len
] = DIR_SEPARATOR
;
170 n
->name
= xstrdup (f2
);
174 n
->name
= xstrdup (filename
);
176 if (len
> longest_path
)
179 append_entry (entp
, n
);
183 add_path (struct entry
**entp
, const char *cp
, int is_system
)
185 const char *startp
, *endp
;
189 char *buf
= alloca (strlen (cp
) + 3);
193 if (! *endp
|| *endp
== PATH_SEPARATOR
)
198 buf
[1] = DIR_SEPARATOR
;
203 strncpy (buf
, startp
, endp
- startp
);
204 buf
[endp
- startp
] = '\0';
206 add_entry (entp
, buf
, is_system
);
218 static int init_done
= 0;
220 /* Initialize the path module. */
233 sep
[0] = DIR_SEPARATOR
;
236 GET_ENVIRONMENT (cp
, "GCC_EXEC_PREFIX");
239 try = alloca (strlen (cp
) + 50);
240 /* The exec prefix can be something like
241 /usr/local/bin/../lib/gcc-lib/. We want to change this
242 into a pointer to the share/java directory. We support two
243 configurations: one where prefix and exec-prefix are the
244 same, and one where exec-prefix is `prefix/SOMETHING'. */
246 strcat (try, DIR_UP
);
248 strcat (try, DIR_UP
);
252 strcpy (try + len
, "share");
254 strcat (try, "java");
256 strcat (try, "libgcj-" DEFAULT_TARGET_VERSION
".jar");
257 if (! stat (try, &stat_b
))
259 add_entry (&sys_dirs
, try, 1);
261 strcpy (&try[strlen (try)
262 - strlen ("libgcj-" DEFAULT_TARGET_VERSION
".jar")],
266 if (! stat (try, &stat_b
))
267 jcf_path_extdirs_arg (try);
271 strcpy (try + len
, DIR_UP
);
273 strcat (try, "share");
275 strcat (try, "java");
277 strcat (try, "libgcj-" DEFAULT_TARGET_VERSION
".jar");
278 if (! stat (try, &stat_b
))
280 add_entry (&sys_dirs
, try, 1);
282 strcpy (&try[strlen (try)
283 - strlen ("libgcj-" DEFAULT_TARGET_VERSION
".jar")],
287 if (! stat (try, &stat_b
))
288 jcf_path_extdirs_arg (try);
294 /* Desperation: use the installed one. */
296 add_entry (&sys_dirs
, LIBGCJ_ZIP_FILE
, 1);
297 extdirs
= alloca (strlen (LIBGCJ_ZIP_FILE
) + 1);
298 strcpy (extdirs
, LIBGCJ_ZIP_FILE
);
299 strcpy (&extdirs
[strlen (LIBGCJ_ZIP_FILE
)
300 - strlen ("libgcj-" DEFAULT_TARGET_VERSION
".jar")],
302 strcat (extdirs
, sep
);
303 if (! stat (extdirs
, &stat_b
))
304 jcf_path_extdirs_arg (extdirs
);
307 GET_ENVIRONMENT (cp
, "CLASSPATH");
308 add_path (&classpath_env
, cp
, 0);
311 /* Call this when -classpath is seen on the command line.
312 This overrides only the $CLASSPATH environment variable.
315 jcf_path_classpath_arg (const char *path
)
317 free_entry (&classpath_user
);
318 add_path (&classpath_user
, path
, 0);
321 /* Call this when -bootclasspath is seen on the command line.
324 jcf_path_bootclasspath_arg (const char *path
)
326 free_entry (&sys_dirs
);
327 add_path (&sys_dirs
, path
, 1);
330 /* Call this when -extdirs is seen on the command line.
333 jcf_path_extdirs_arg (const char *cp
)
335 const char *startp
, *endp
;
337 free_entry (&extensions
);
341 char *buf
= alloca (strlen (cp
) + 3);
345 if (! *endp
|| *endp
== PATH_SEPARATOR
)
350 strncpy (buf
, startp
, endp
- startp
);
351 buf
[endp
- startp
] = '\0';
355 int dirname_length
= strlen (buf
);
357 dirp
= opendir (buf
);
363 struct dirent
*direntp
= readdir (dirp
);
368 if (direntp
->d_name
[0] != '.')
370 char *name
= alloca (dirname_length
371 + strlen (direntp
->d_name
) + 2);
373 if (name
[dirname_length
-1] != DIR_SEPARATOR
)
375 name
[dirname_length
] = DIR_SEPARATOR
;
376 name
[dirname_length
+1] = 0;
378 strcat (name
, direntp
->d_name
);
379 add_entry (&extensions
, name
, 0);
395 /* Call this when -I is seen on the command line. */
397 jcf_path_include_arg (const char *path
)
399 add_entry (&include_dirs
, path
, 0);
402 /* We `seal' the path by linking everything into one big list. Then
403 we provide a way to iterate through the sealed list. If PRINT is
404 true then we print the final class path to stderr. */
406 jcf_path_seal (int print
)
408 struct entry
*secondary
;
410 sealed
= include_dirs
;
415 secondary
= classpath_user
;
416 classpath_user
= NULL
;
421 add_entry (&classpath_env
, ".", 0);
423 secondary
= classpath_env
;
424 classpath_env
= NULL
;
428 free_entry (&classpath_user
);
429 free_entry (&classpath_env
);
431 append_entry (&sealed
, secondary
);
432 append_entry (&sealed
, sys_dirs
);
433 append_entry (&sealed
, extensions
);
440 fprintf (stderr
, "Class path starts here:\n");
441 for (ent
= sealed
; ent
; ent
= ent
->next
)
443 fprintf (stderr
, " %s", ent
->name
);
444 if ((ent
->flags
& FLAG_SYSTEM
))
445 fprintf (stderr
, " (system)");
446 if ((ent
->flags
& FLAG_ZIP
))
447 fprintf (stderr
, " (zip)");
448 fprintf (stderr
, "\n");
454 jcf_path_start (void)
456 return (void *) sealed
;
460 jcf_path_next (void *x
)
462 struct entry
*ent
= (struct entry
*) x
;
463 return (void *) ent
->next
;
466 /* We guarantee that the return path will either be a zip file, or it
467 will end with a directory separator. */
469 jcf_path_name (void *x
)
471 struct entry
*ent
= (struct entry
*) x
;
476 jcf_path_is_zipfile (void *x
)
478 struct entry
*ent
= (struct entry
*) x
;
479 return (ent
->flags
& FLAG_ZIP
);
483 jcf_path_is_system (void *x
)
485 struct entry
*ent
= (struct entry
*) x
;
486 return (ent
->flags
& FLAG_SYSTEM
);
490 jcf_path_max_len (void)