gcc/java/jvspec.c

   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 *
  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
 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
 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
 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 };