1 /* Specific flags and argument handling of the front-end of the
2 GNU compiler for the Java(TM) language.
3 Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003
4 Free Software Foundation, Inc.
5
6 This file is part of GCC.
7
8 GCC is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 2, or (at your option)
11 any later version.
12
13 GCC is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
17
18 You should have received a copy of the GNU General Public License
19 along with GCC; see the file COPYING. If not, write to
20 the Free Software Foundation, 59 Temple Place - Suite 330,
21 Boston, MA 02111-1307, USA.
22
23 Java and all Java-based marks are trademarks or registered trademarks
24 of Sun Microsystems, Inc. in the United States and other countries.
25 The Free Software Foundation is independent of Sun Microsystems, Inc. */
26
27 #include "config.h"
28 #include "system.h"
29 #include "coretypes.h"
30 #include "tm.h"
31 #include "gcc.h"
32
33 /* Name of spec file. */
34 #define SPEC_FILE "libgcj.spec"
35
36 /* This bit is set if we saw a `-xfoo' language specification. */
37 #define LANGSPEC (1<<1)
38 /* True if this arg is a parameter to the previous option-taking arg. */
39 #define PARAM_ARG (1<<2)
40 /* True if this arg is a .java input file name. */
41 #define JAVA_FILE_ARG (1<<3)
42 /* True if this arg is a .class input file name. */
43 #define CLASS_FILE_ARG (1<<4)
44 /* True if this arg is a .zip or .jar input file name. */
45 #define ZIP_FILE_ARG (1<<5)
46 /* True if this arg is @FILE - where FILE contains a list of filenames. */
47 #define INDIRECT_FILE_ARG (1<<6)
48 /* True if this arg is a resource file. */
49 #define RESOURCE_FILE_ARG (1<<7)
50
51 static char *find_spec_file (const char *);
52 static int verify_class_name (const char *);
53
54 static const char *main_class_name = NULL;
55 int lang_specific_extra_outfiles = 0;
56
57 /* True if we should add -shared-libgcc to the command-line. */
58 int shared_libgcc = 1;
59
60 static const char jvgenmain_spec[] =
61 "jvgenmain %{D*} %b %m.i |\n\
62 cc1 %m.i %1 \
63 %{!Q:-quiet} -dumpbase %b.c %{d*} %{m*} %{a*}\
64 %{g*} %{O*} \
65 %{v:-version} %{pg:-p} %{p}\
66 %<fbounds-check %<fno-bounds-check\
67 %<fassume-compiled* %<fno-assume-compiled*\
68 %<fcompile-resource* %<fassert %<fno-assert \
69 %<femit-class-file %<femit-class-files %<fencoding*\
70 %<fuse-boehm-gc %<fhash-synchronization %<fjni\
71 %<findirect-dispatch \
72 %<fno-store-check %<foutput-class-dir\
73 %<fclasspath* %<fCLASSPATH* %<fbootclasspath*\
74 %<fextdirs*\
75 %<fuse-divide-subroutine %<fno-use-divide-subroutine\
76 %<fcheck-references %<fno-check-references\
77 %<ffilelist-file\
78 %{f*} -fdollars-in-identifiers\
79 %{aux-info*}\
80 %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
81 %{S:%W{o*}%{!o*:-o %b.s}}\
82 %(invoke_as)";
83
84 /* Return full path name of spec file if it is in DIR, or NULL if
85 not. */
86 static char *
find_spec_file(const char * dir)87 find_spec_file (const char *dir)
88 {
89 char *spec;
90 int x;
91 struct stat sb;
92
93 spec = xmalloc (strlen (dir) + sizeof (SPEC_FILE)
94 + sizeof ("-specs=") + 4);
95 strcpy (spec, "-specs=");
96 x = strlen (spec);
97 strcat (spec, dir);
98 strcat (spec, "/");
99 strcat (spec, SPEC_FILE);
100 if (! stat (spec + x, &sb))
101 return spec;
102 free (spec);
103 return NULL;
104 }
105
106 /* FIXME: these should come from lex.h. */
107 #define JAVA_START_CHAR_P(c) (c < 128 && (ISIDST (c) || c == '$'))
108 #define JAVA_PART_CHAR_P(c) (c < 128 \
109 && (ISIDNUM (c) \
110 || c == '$' \
111 || (c >= 0x00 && c <= 0x08) \
112 || (c >= 0x0e && c <= 0x1b) \
113 || c == 0x7f))
114
115 /* Verify that NAME is a valid Java class name that might contain
116 `main'. Return 0 on failure. */
117 static int
verify_class_name(const char * name)118 verify_class_name (const char *name)
119 {
120 /* FIXME: what encoding do we use for command-line arguments? For
121 now we assume plain ASCII, which of course is wrong. */
122 while (*name)
123 {
124 int ch = *name++;
125 if (ch < 0 || ! JAVA_START_CHAR_P (ch))
126 return 0;
127 while (*name)
128 {
129 ch = *name++;
130 if (ch < 0)
131 return 0;
132 /* We found a break between class names. Next character
133 must be an identifier start again. */
134 if (ch == '.')
135 break;
136 if (! JAVA_PART_CHAR_P (ch))
137 return 0;
138 }
139 }
140
141 return 1;
142 }
143
144 void
lang_specific_driver(int * in_argc,const char * const ** in_argv,int * in_added_libraries)145 lang_specific_driver (int *in_argc, const char *const **in_argv,
146 int *in_added_libraries)
147 {
148 int i, j;
149
150 /* If nonzero, the user gave us the `-v' flag. */
151 int saw_verbose_flag = 0;
152
153 int saw_save_temps = 0;
154
155 /* This will be 0 if we encounter a situation where we should not
156 link in libgcj. */
157 int library = 1;
158
159 /* This will be 1 if multiple input files (.class and/or .java)
160 should be passed to a single jc1 invocation. */
161 int combine_inputs = 0;
162
163 /* Number of .java and .class source file arguments seen. */
164 int java_files_count = 0;
165 int class_files_count = 0;
166 /* Number of .zip or .jar file arguments seen. */
167 int zip_files_count = 0;
168 /* Number of '@FILES' arguments seen. */
169 int indirect_files_count = 0;
170
171 /* Name of file containing list of files to compile. */
172 char *filelist_filename = 0;
173
174 FILE *filelist_file = 0;
175
176 /* The number of arguments being added to what's in argv, other than
177 libraries. */
178 int added = 2;
179
180 /* Used to track options that take arguments, so we don't go wrapping
181 those with -xc++/-xnone. */
182 const char *quote = NULL;
183
184 /* The new argument list will be contained in this. */
185 const char **arglist;
186
187 /* Nonzero if we saw a `-xfoo' language specification on the
188 command line. Used to avoid adding our own -xc++ if the user
189 already gave a language for the file. */
190 int saw_speclang = 0;
191
192 #if 0
193 /* "-lm" or "-lmath" if it appears on the command line. */
194 const char *saw_math ATTRIBUTE_UNUSED = 0;
195
196 /* "-lc" if it appears on the command line. */
197 const char *saw_libc ATTRIBUTE_UNUSED = 0;
198
199 /* "-lgcjgc" if it appears on the command line. */
200 const char *saw_gc ATTRIBUTE_UNUSED = 0;
201
202 /* Saw `-l' option for the thread library. */
203 const char *saw_threadlib ATTRIBUTE_UNUSED = 0;
204
205 /* Saw `-lgcj' on command line. */
206 int saw_libgcj ATTRIBUTE_UNUSED = 0;
207 #endif
208
209 /* Saw --resource, -C or -o options, respectively. */
210 int saw_resource = 0;
211 int saw_C = 0;
212 int saw_o = 0;
213
214 /* Saw some -O* or -g* option, respectively. */
215 int saw_O = 0;
216 int saw_g = 0;
217
218 /* Saw a `-D' option. */
219 int saw_D = 0;
220
221 /* An array used to flag each argument that needs a bit set for
222 LANGSPEC, MATHLIB, WITHLIBC, or GCLIB. */
223 int *args;
224
225 /* The total number of arguments with the new stuff. */
226 int argc;
227
228 /* The argument list. */
229 const char *const *argv;
230
231 /* The number of libraries added in. */
232 int added_libraries;
233
234 /* The total number of arguments with the new stuff. */
235 int num_args = 1;
236
237 /* Nonzero if linking is supposed to happen. */
238 int will_link = 1;
239
240 /* Nonzero if we want to find the spec file. */
241 int want_spec_file = 1;
242
243 /* The argument we use to specify the spec file. */
244 char *spec_file = NULL;
245
246 argc = *in_argc;
247 argv = *in_argv;
248 added_libraries = *in_added_libraries;
249
250 args = xcalloc (argc, sizeof (int));
251
252 for (i = 1; i < argc; i++)
253 {
254 /* If the previous option took an argument, we swallow it here. */
255 if (quote)
256 {
257 quote = NULL;
258 args[i] |= PARAM_ARG;
259 continue;
260 }
261
262 /* We don't do this anymore, since we don't get them with minus
263 signs on them. */
264 if (argv[i][0] == '\0' || argv[i][1] == '\0')
265 continue;
266
267 if (argv[i][0] == '-')
268 {
269 if (library != 0 && (strcmp (argv[i], "-nostdlib") == 0
270 || strcmp (argv[i], "-nodefaultlibs") == 0))
271 {
272 library = 0;
273 }
274 else if (strncmp (argv[i], "-fmain=", 7) == 0)
275 {
276 main_class_name = argv[i] + 7;
277 added--;
278 }
279 else if (strcmp (argv[i], "-fhelp") == 0)
280 want_spec_file = 0;
281 else if (strcmp (argv[i], "-v") == 0)
282 {
283 saw_verbose_flag = 1;
284 if (argc == 2)
285 {
286 /* If they only gave us `-v', don't try to link
287 in libgcj. */
288 library = 0;
289 }
290 }
291 else if (strncmp (argv[i], "-x", 2) == 0)
292 saw_speclang = 1;
293 else if (strcmp (argv[i], "-C") == 0)
294 {
295 saw_C = 1;
296 want_spec_file = 0;
297 if (library != 0)
298 added -= 2;
299 library = 0;
300 will_link = 0;
301 }
302 else if (strncmp (argv[i], "-fcompile-resource=", 19) == 0)
303 {
304 saw_resource = 1;
305 want_spec_file = 0;
306 if (library != 0)
307 --added;
308 library = 0;
309 will_link = 0;
310 }
311 else if (argv[i][1] == 'D')
312 saw_D = 1;
313 else if (argv[i][1] == 'g')
314 saw_g = 1;
315 else if (argv[i][1] == 'O')
316 saw_O = 1;
317 else if ((argv[i][2] == '\0'
318 && strchr ("bBVDUoeTuIYmLiA", argv[i][1]) != NULL)
319 || strcmp (argv[i], "-Tdata") == 0
320 || strcmp (argv[i], "-MT") == 0
321 || strcmp (argv[i], "-MF") == 0)
322 {
323 if (strcmp (argv[i], "-o") == 0)
324 saw_o = 1;
325 quote = argv[i];
326 }
327 else if (strcmp(argv[i], "-classpath") == 0
328 || strcmp(argv[i], "-bootclasspath") == 0
329 || strcmp(argv[i], "-CLASSPATH") == 0)
330 {
331 quote = argv[i];
332 added -= 1;
333 }
334 else if (library != 0
335 && ((argv[i][2] == '\0'
336 && strchr ("cSEM", argv[i][1]) != NULL)
337 || strcmp (argv[i], "-MM") == 0))
338 {
339 /* Don't specify libraries if we won't link, since that would
340 cause a warning. */
341 library = 0;
342 added -= 2;
343
344 /* Remember this so we can confirm -fmain option. */
345 will_link = 0;
346 }
347 else if (strcmp (argv[i], "-d") == 0)
348 {
349 /* `-d' option is for javac compatibility. */
350 quote = argv[i];
351 added -= 1;
352 }
353 else if (strcmp (argv[i], "-fsyntax-only") == 0
354 || strcmp (argv[i], "--syntax-only") == 0)
355 {
356 want_spec_file = 0;
357 library = 0;
358 will_link = 0;
359 continue;
360 }
361 else if (strcmp (argv[i], "-save-temps") == 0)
362 saw_save_temps = 1;
363 else if (strcmp (argv[i], "-static-libgcc") == 0
364 || strcmp (argv[i], "-static") == 0)
365 shared_libgcc = 0;
366 else
367 /* Pass other options through. */
368 continue;
369 }
370 else
371 {
372 int len;
373
374 if (saw_speclang)
375 {
376 saw_speclang = 0;
377 continue;
378 }
379
380 if (saw_resource)
381 {
382 args[i] |= RESOURCE_FILE_ARG;
383 added += 2; /* for -xjava and -xnone */
384 }
385
386 if (argv[i][0] == '@')
387 {
388 args[i] |= INDIRECT_FILE_ARG;
389 indirect_files_count++;
390 added += 2; /* for -xjava and -xnone */
391 }
392
393 len = strlen (argv[i]);
394 if (len > 5 && strcmp (argv[i] + len - 5, ".java") == 0)
395 {
396 args[i] |= JAVA_FILE_ARG;
397 java_files_count++;
398 }
399 if (len > 6 && strcmp (argv[i] + len - 6, ".class") == 0)
400 {
401 args[i] |= CLASS_FILE_ARG;
402 class_files_count++;
403 }
404 if (len > 4
405 && (strcmp (argv[i] + len - 4, ".zip") == 0
406 || strcmp (argv[i] + len - 4, ".jar") == 0))
407 {
408 args[i] |= ZIP_FILE_ARG;
409 zip_files_count++;
410 }
411 }
412 }
413
414 if (quote)
415 fatal ("argument to `%s' missing\n", quote);
416
417 if (saw_D && ! main_class_name)
418 fatal ("can't specify `-D' without `--main'\n");
419
420 if (main_class_name && ! verify_class_name (main_class_name))
421 fatal ("`%s' is not a valid class name", main_class_name);
422
423 num_args = argc + added;
424 if (saw_resource)
425 {
426 if (! saw_o)
427 fatal ("--resource requires -o");
428 }
429 if (saw_C)
430 {
431 num_args += 3;
432 if (class_files_count + zip_files_count > 0)
433 {
434 error ("warning: already-compiled .class files ignored with -C");
435 num_args -= class_files_count + zip_files_count;
436 class_files_count = 0;
437 zip_files_count = 0;
438 }
439 num_args += 2; /* For -o NONE. */
440 if (saw_o)
441 fatal ("cannot specify both -C and -o");
442 }
443 if ((saw_o && java_files_count + class_files_count + zip_files_count > 1)
444 || (saw_C && java_files_count > 1)
445 || (indirect_files_count > 0
446 && java_files_count + class_files_count + zip_files_count > 0))
447 combine_inputs = 1;
448
449 if (combine_inputs)
450 {
451 filelist_filename = make_temp_file ("jx");
452 if (filelist_filename == NULL)
453 fatal ("cannot create temporary file");
454 record_temp_file (filelist_filename, ! saw_save_temps, 0);
455 filelist_file = fopen (filelist_filename, "w");
456 if (filelist_file == NULL)
457 pfatal_with_name (filelist_filename);
458 num_args -= java_files_count + class_files_count + zip_files_count;
459 num_args += 2; /* for the combined arg and "-xjava" */
460 }
461 /* If we know we don't have to do anything, bail now. */
462 #if 0
463 if (! added && ! library && main_class_name == NULL && ! saw_C)
464 {
465 free (args);
466 return;
467 }
468 #endif
469
470 if (main_class_name)
471 {
472 lang_specific_extra_outfiles++;
473 }
474 if (saw_g + saw_O == 0)
475 num_args++;
476 num_args++;
477
478 if (combine_inputs || indirect_files_count > 0)
479 num_args += 1; /* for "-ffilelist-file" */
480 if (combine_inputs && indirect_files_count > 0)
481 fatal("using both @FILE with multiple files not implemented");
482
483 /* There's no point adding -shared-libgcc if we don't have a shared
484 libgcc. */
485 #ifndef ENABLE_SHARED_LIBGCC
486 shared_libgcc = 0;
487 #endif
488
489 num_args += shared_libgcc;
490
491 arglist = xmalloc ((num_args + 1) * sizeof (char *));
492 j = 0;
493
494 for (i = 0; i < argc; i++, j++)
495 {
496 arglist[j] = argv[i];
497
498 if ((args[i] & PARAM_ARG) || i == 0)
499 continue;
500
501 if ((args[i] & RESOURCE_FILE_ARG) != 0)
502 {
503 arglist[j++] = "-xjava";
504 arglist[j++] = argv[i];
505 arglist[j] = "-xnone";
506 }
507
508 if (strcmp (argv[i], "-classpath") == 0
509 || strcmp (argv[i], "-bootclasspath") == 0
510 || strcmp (argv[i], "-CLASSPATH") == 0)
511 {
512 arglist[j] = concat ("-f", argv[i]+1, "=", argv[i+1], NULL);
513 i++;
514 continue;
515 }
516
517 if (strcmp (argv[i], "-d") == 0)
518 {
519 arglist[j] = concat ("-foutput-class-dir=", argv[i + 1], NULL);
520 ++i;
521 continue;
522 }
523
524 if (spec_file == NULL && strncmp (argv[i], "-L", 2) == 0)
525 spec_file = find_spec_file (argv[i] + 2);
526
527 if (strncmp (argv[i], "-fmain=", 7) == 0)
528 {
529 if (! will_link)
530 fatal ("cannot specify `main' class when not linking");
531 --j;
532 continue;
533 }
534
535 if ((args[i] & INDIRECT_FILE_ARG) != 0)
536 {
537 arglist[j++] = "-xjava";
538 arglist[j++] = argv[i]+1; /* Drop '@'. */
539 arglist[j] = "-xnone";
540 }
541
542 if ((args[i] & (CLASS_FILE_ARG|ZIP_FILE_ARG)) && saw_C)
543 {
544 --j;
545 continue;
546 }
547
548 if (combine_inputs
549 && (args[i] & (CLASS_FILE_ARG|JAVA_FILE_ARG|ZIP_FILE_ARG)) != 0)
550 {
551 fputs (argv[i], filelist_file);
552 fputc ('\n', filelist_file);
553 --j;
554 continue;
555 }
556 }
557
558 if (combine_inputs || indirect_files_count > 0)
559 arglist[j++] = "-ffilelist-file";
560
561 if (combine_inputs)
562 {
563 if (fclose (filelist_file))
564 pfatal_with_name (filelist_filename);
565 arglist[j++] = "-xjava";
566 arglist[j++] = filelist_filename;
567 }
568
569 /* If we saw no -O or -g option, default to -g1, for javac compatibility. */
570 if (saw_g + saw_O == 0)
571 arglist[j++] = "-g1";
572
573 /* Read the specs file corresponding to libgcj.
574 If we didn't find the spec file on the -L path, then we hope it
575 is somewhere in the standard install areas. */
576 if (want_spec_file)
577 arglist[j++] = spec_file == NULL ? "-specs=libgcj.spec" : spec_file;
578
579 if (saw_C)
580 {
581 arglist[j++] = "-fsyntax-only";
582 arglist[j++] = "-femit-class-files";
583 arglist[j++] = "-S";
584 arglist[j++] = "-o";
585 arglist[j++] = "NONE";
586 }
587
588 if (shared_libgcc)
589 arglist[j++] = "-shared-libgcc";
590
591 arglist[j] = NULL;
592
593 *in_argc = j;
594 *in_argv = arglist;
595 *in_added_libraries = added_libraries;
596 }
597
598 int
lang_specific_pre_link(void)599 lang_specific_pre_link (void)
600 {
601 int err;
602 if (main_class_name == NULL)
603 return 0;
604 /* Append `main' to make the filename unique and allow
605
606 gcj --main=hello -save-temps hello.java
607
608 to work. jvgenmain needs to strip this `main' to arrive at the correct
609 class name. Append dummy `.c' that can be stripped by set_input so %b
610 is correct. */
611 set_input (concat (main_class_name, "main.c", NULL));
612 err = do_spec (jvgenmain_spec);
613 if (err == 0)
614 {
615 /* Shift the outfiles array so the generated main comes first.
616 This is important when linking against (non-shared) libraries,
617 since otherwise we risk (a) nothing getting linked or
618 (b) 'main' getting picked up from a library. */
619 int i = n_infiles;
620 const char *generated = outfiles[i];
621 while (--i >= 0)
622 outfiles[i + 1] = outfiles[i];
623 outfiles[0] = generated;
624 }
625 return err;
626 }
627
628 /* Table of language-specific spec functions. */
629 const struct spec_function lang_specific_spec_functions[] =
630 {
631 { 0, 0 }
632 };
633