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