contrib/gcc/f/g77spec.c

   1 /* Specific flags and argument handling of the Fortran front-end.
   2    Copyright (C) 1997, 1999, 2000 Free Software Foundation, Inc.
   3
   4 This file is part of GNU CC.
   5
   6 GNU CC is free software; you can redistribute it and/or modify
   7 it under the terms of the GNU General Public License as published by
   8 the Free Software Foundation; either version 2, or (at your option)
   9 any later version.
  10
  11 GNU CC is distributed in the hope that it will be useful,
  12 but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 GNU General Public License for more details.
  15
  16 You should have received a copy of the GNU General Public License
  17 along with GNU CC; see the file COPYING.  If not, write to
  18 the Free Software Foundation, 59 Temple Place - Suite 330,
  19 Boston, MA 02111-1307, USA.  */
  20
  21 /* This file contains a filter for the main `gcc' driver, which is
  22    replicated for the `g77' driver by adding this filter.  The purpose
  23    of this filter is to be basically identical to gcc (in that
  24    it faithfully passes all of the original arguments to gcc) but,
  25    unless explicitly overridden by the user in certain ways, ensure
  26    that the needs of the language supported by this wrapper are met.
  27
  28    For GNU Fortran (g77), we do the following to the argument list
  29    before passing it to `gcc':
  30
  31    1.  Make sure `-lg2c -lm' is at the end of the list.
  32
  33    2.  Make sure each time `-lg2c' or `-lm' is seen, it forms
  34        part of the series `-lg2c -lm'.
  35
  36    #1 and #2 are not done if `-nostdlib' or any option that disables
  37    the linking phase is present, or if `-xfoo' is in effect.  Note that
  38    a lack of source files or -l options disables linking.
  39
  40    This program was originally made out of gcc/cp/g++spec.c, but the
  41    way it builds the new argument list was rewritten so it is much
  42    easier to maintain, improve the way it decides to add or not add
  43    extra arguments, etc.  And several improvements were made in the
  44    handling of arguments, primarily to make it more consistent with
  45    `gcc' itself.  */
  46
  47 #include "config.h"
  48 #include "system.h"
  49 #include <f/version.h>
  50
  51 #ifndef MATH_LIBRARY
  52 #define MATH_LIBRARY "-lm"
  53 #endif
  54
  55 #ifndef FORTRAN_LIBRARY
  56 #define FORTRAN_LIBRARY "-lg2c"
  57 #endif
  58
  59 /* Options this driver needs to recognize, not just know how to
  60    skip over.  */
  61 typedef enum
  62 {
  63   OPTION_b,                     /* Aka --prefix. */
  64   OPTION_B,                     /* Aka --target. */
  65   OPTION_c,                     /* Aka --compile. */
  66   OPTION_driver,                /* Wrapper-specific option. */
  67   OPTION_E,                     /* Aka --preprocess. */
  68   OPTION_help,                  /* --help. */
  69   OPTION_i,                     /* -imacros, -include, -include-*. */
  70   OPTION_l,
  71   OPTION_L,                     /* Aka --library-directory. */
  72   OPTION_M,                     /* Aka --dependencies. */
  73   OPTION_MM,                    /* Aka --user-dependencies. */
  74   OPTION_nostdlib,              /* Aka --no-standard-libraries, or
  75                                    -nodefaultlibs. */
  76   OPTION_o,                     /* Aka --output. */
  77   OPTION_S,                     /* Aka --assemble. */
  78   OPTION_syntax_only,           /* -fsyntax-only. */
  79   OPTION_v,                     /* Aka --verbose. */
  80   OPTION_version,               /* --version. */
  81   OPTION_V,                     /* Aka --use-version. */
  82   OPTION_x,                     /* Aka --language. */
  83   OPTION_                       /* Unrecognized or unimportant. */
  84 } Option;
  85
  86 /* The original argument list and related info is copied here.  */
  87 static int g77_xargc;
  88 static char **g77_xargv;
  89 static void (*g77_fn)();
  90
  91 /* The new argument list will be built here.  */
  92 static int g77_newargc;
  93 static char **g77_newargv;
  94
  95 extern char *version_string;
  96
  97 /* --- This comes from gcc.c (2.8.1) verbatim: */
  98
  99 /* This defines which switch letters take arguments.  */
 100
 101 #define DEFAULT_SWITCH_TAKES_ARG(CHAR)      \
 102   ((CHAR) == 'D' || (CHAR) == 'U' || (CHAR) == 'o' \
 103    || (CHAR) == 'e' || (CHAR) == 'T' || (CHAR) == 'u' \
 104    || (CHAR) == 'I' || (CHAR) == 'm' || (CHAR) == 'x' \
 105    || (CHAR) == 'L' || (CHAR) == 'A')
 106
 107 #ifndef SWITCH_TAKES_ARG
 108 #define SWITCH_TAKES_ARG(CHAR) DEFAULT_SWITCH_TAKES_ARG(CHAR)
 109 #endif
 110
 111 /* This defines which multi-letter switches take arguments.  */
 112
 113 #define DEFAULT_WORD_SWITCH_TAKES_ARG(STR)              \
 114  (!strcmp (STR, "Tdata") || !strcmp (STR, "Ttext")      \
 115   || !strcmp (STR, "Tbss") || !strcmp (STR, "include")  \
 116   || !strcmp (STR, "imacros") || !strcmp (STR, "aux-info") \
 117   || !strcmp (STR, "idirafter") || !strcmp (STR, "iprefix") \
 118   || !strcmp (STR, "iwithprefix") || !strcmp (STR, "iwithprefixbefore") \
 119   || !strcmp (STR, "isystem") || !strcmp (STR, "specs"))
 120
 121 #ifndef WORD_SWITCH_TAKES_ARG
 122 #define WORD_SWITCH_TAKES_ARG(STR) DEFAULT_WORD_SWITCH_TAKES_ARG (STR)
 123 #endif
 124
 125 /* --- End of verbatim.  */
 126
 127 /* Assumes text[0] == '-'.  Returns number of argv items that belong to
 128    (and follow) this one, an option id for options important to the
 129    caller, and a pointer to the first char of the arg, if embedded (else
 130    returns NULL, meaning no arg or it's the next argv).
 131
 132    Note that this also assumes gcc.c's pass converting long options
 133    to short ones, where available, has already been run.  */
 134
 135 static void
 136 lookup_option (xopt, xskip, xarg, text)
 137      Option *xopt;
 138      int *xskip;
 139      char **xarg;
 140      char *text;
 141 {
 142   Option opt = OPTION_;
 143   int skip;
 144   char *arg = NULL;
 145
 146   if ((skip = SWITCH_TAKES_ARG (text[1])))
 147     skip -= (text[2] != '\0');  /* See gcc.c. */
 148
 149   if (text[1] == 'B')
 150     opt = OPTION_B, skip = (text[2] == '\0'), arg = text + 2;
 151   else if (text[1] == 'b')
 152     opt = OPTION_b, skip = (text[2] == '\0'), arg = text + 2;
 153   else if ((text[1] == 'c') && (text[2] == '\0'))
 154     opt = OPTION_c, skip = 0;
 155   else if ((text[1] == 'E') && (text[2] == '\0'))
 156     opt = OPTION_E, skip = 0;
 157   else if (text[1] == 'i')
 158     opt = OPTION_i, skip = 0;
 159   else if (text[1] == 'l')
 160     opt = OPTION_l;
 161   else if (text[1] == 'L')
 162     opt = OPTION_L, arg = text + 2;
 163   else if (text[1] == 'o')
 164     opt = OPTION_o;
 165   else if ((text[1] == 'S') && (text[2] == '\0'))
 166     opt = OPTION_S, skip = 0;
 167   else if (text[1] == 'V')
 168     opt = OPTION_V, skip = (text[2] == '\0');
 169   else if ((text[1] == 'v') && (text[2] == '\0'))
 170     opt = OPTION_v, skip = 0;
 171   else if (text[1] == 'x')
 172     opt = OPTION_x, arg = text + 2;
 173   else
 174     {
 175       if ((skip = WORD_SWITCH_TAKES_ARG (text + 1)) != 0)  /* See gcc.c. */
 176         ;
 177       else if (! strncmp (text, "-fdriver", 8))  /* Really --driver!! */
 178         opt = OPTION_driver;    /* Never mind arg, this is unsupported. */
 179       else if (! strcmp (text, "-fhelp"))  /* Really --help!! */
 180         opt = OPTION_help;
 181       else if (! strcmp (text, "-M"))
 182         opt = OPTION_M;
 183       else if (! strcmp (text, "-MM"))
 184         opt = OPTION_MM;
 185       else if (! strcmp (text, "-nostdlib")
 186                || ! strcmp (text, "-nodefaultlibs"))
 187         opt = OPTION_nostdlib;
 188       else if (! strcmp (text, "-fsyntax-only"))
 189         opt = OPTION_syntax_only;
 190       else if (! strcmp (text, "-dumpversion"))
 191         opt = OPTION_version;
 192       else if (! strcmp (text, "-Xlinker")
 193                || ! strcmp (text, "-specs"))
 194         skip = 1;
 195       else
 196         skip = 0;
 197     }
 198
 199   if (xopt != NULL)
 200     *xopt = opt;
 201   if (xskip != NULL)
 202     *xskip = skip;
 203   if (xarg != NULL)
 204     {
 205       if ((arg != NULL)
 206           && (arg[0] == '\0'))
 207         *xarg = NULL;
 208       else
 209         *xarg = arg;
 210     }
 211 }
 212
 213 /* Append another argument to the list being built.  As long as it is
 214    identical to the corresponding arg in the original list, just increment
 215    the new arg count.  Otherwise allocate a new list, etc.  */
 216
 217 static void
 218 append_arg (arg)
 219      char *arg;
 220 {
 221   static int newargsize;
 222
 223 #if 0
 224   fprintf (stderr, "`%s'\n", arg);
 225 #endif
 226
 227   if (g77_newargv == g77_xargv
 228       && g77_newargc < g77_xargc
 229       && (arg == g77_xargv[g77_newargc]
 230           || ! strcmp (arg, g77_xargv[g77_newargc])))
 231     {
 232       ++g77_newargc;
 233       return;                   /* Nothing new here. */
 234     }
 235
 236   if (g77_newargv == g77_xargv)
 237     {                           /* Make new arglist. */
 238       int i;
 239
 240       newargsize = (g77_xargc << 2) + 20;       /* This should handle all. */
 241       g77_newargv = (char **) xmalloc (newargsize * sizeof (char *));
 242
 243       /* Copy what has been done so far.  */
 244       for (i = 0; i < g77_newargc; ++i)
 245         g77_newargv[i] = g77_xargv[i];
 246     }
 247
 248   if (g77_newargc == newargsize)
 249     (*g77_fn) ("overflowed output arg list for `%s'", arg);
 250
 251   g77_newargv[g77_newargc++] = arg;
 252 }
 253
 254 void
 255 lang_specific_driver (fn, in_argc, in_argv, in_added_libraries)
 256      void (*fn)();
 257      int *in_argc;
 258      char ***in_argv;
 259      int *in_added_libraries;
 260 {
 261   int argc = *in_argc;
 262   char **argv = *in_argv;
 263   int i;
 264   int verbose = 0;
 265   Option opt;
 266   int skip;
 267   char *arg;
 268
 269   /* This will be NULL if we encounter a situation where we should not
 270      link in libf2c.  */
 271   char *library = FORTRAN_LIBRARY;
 272
 273   /* This will become 0 if anything other than -v and kin (like -V)
 274      is seen, meaning the user is trying to accomplish something.
 275      If it remains nonzero, and the user wants version info, add stuff to
 276      the command line to make gcc invoke all the appropriate phases
 277      to get all the version info.  */
 278   int add_version_magic = 1;
 279
 280   /* 0 => -xnone in effect.
 281      1 => -xfoo in effect.  */
 282   int saw_speclang = 0;
 283
 284   /* 0 => initial/reset state
 285      1 => last arg was -l<library>
 286      2 => last two args were -l<library> -lm.  */
 287   int saw_library = 0;
 288
 289   /* By default, we throw on the math library if we have one.  */
 290   int need_math = (MATH_LIBRARY[0] != '\0');
 291
 292   /* The number of input and output files in the incoming arg list.  */
 293   int n_infiles = 0;
 294   int n_outfiles = 0;
 295
 296 #if 0
 297   fprintf (stderr, "Incoming:");
 298   for (i = 0; i < argc; i++)
 299     fprintf (stderr, " %s", argv[i]);
 300   fprintf (stderr, "\n");
 301 #endif
 302
 303   g77_xargc = argc;
 304   g77_xargv = argv;
 305   g77_newargc = 0;
 306   g77_newargv = argv;
 307   g77_fn = fn;
 308
 309   /* First pass through arglist.
 310
 311      If -nostdlib or a "turn-off-linking" option is anywhere in the
 312      command line, don't do any library-option processing (except
 313      relating to -x).  Also, if -v is specified, but no other options
 314      that do anything special (allowing -V version, etc.), remember
 315      to add special stuff to make gcc command actually invoke all
 316      the different phases of the compilation process so all the version
 317      numbers can be seen.
 318
 319      Also, here is where all problems with missing arguments to options
 320      are caught.  If this loop is exited normally, it means all options
 321      have the appropriate number of arguments as far as the rest of this
 322      program is concerned.  */
 323
 324   for (i = 1; i < argc; ++i)
 325     {
 326       if ((argv[i][0] == '+') && (argv[i][1] == 'e'))
 327         {
 328           add_version_magic = 0;
 329           continue;
 330         }
 331
 332       if ((argv[i][0] != '-') || (argv[i][1] == '\0'))
 333         {
 334           ++n_infiles;
 335           add_version_magic = 0;
 336           continue;
 337         }
 338
 339       lookup_option (&opt, &skip, NULL, argv[i]);
 340
 341       switch (opt)
 342         {
 343         case OPTION_nostdlib:
 344         case OPTION_c:
 345         case OPTION_S:
 346         case OPTION_syntax_only:
 347         case OPTION_E:
 348         case OPTION_M:
 349         case OPTION_MM:
 350           /* These options disable linking entirely or linking of the
 351              standard libraries.  */
 352           library = 0;
 353           add_version_magic = 0;
 354           break;
 355
 356         case OPTION_l:
 357           ++n_infiles;
 358           add_version_magic = 0;
 359           break;
 360
 361         case OPTION_o:
 362           ++n_outfiles;
 363           add_version_magic = 0;
 364           break;
 365
 366         case OPTION_v:
 367           if (! verbose)
 368             fprintf (stderr, "g77 version %s (from FSF-g77 version %s)\n",
 369                      version_string, ffe_version_string);
 370           verbose = 1;
 371           break;
 372
 373         case OPTION_b:
 374         case OPTION_B:
 375         case OPTION_L:
 376         case OPTION_i:
 377         case OPTION_V:
 378           /* These options are useful in conjunction with -v to get
 379              appropriate version info.  */
 380           break;
 381
 382         case OPTION_version:
 383           printf ("\
 384 GNU Fortran %s\n\
 385 Copyright (C) 1997 Free Software Foundation, Inc.\n\
 386 For more version information on components of the GNU Fortran\n\
 387 compilation system, especially useful when reporting bugs,\n\
 388 type the command `g77 --verbose'.\n\
 389 \n\
 390 GNU Fortran comes with NO WARRANTY, to the extent permitted by law.\n\
 391 You may redistribute copies of GNU Fortran\n\
 392 under the terms of the GNU General Public License.\n\
 393 For more information about these matters, see the file named COPYING\n\
 394 or type the command `info -f g77 Copying'.\n\
 395 ", ffe_version_string);
 396           exit (0);
 397           break;
 398
 399         case OPTION_help:
 400           /* Let gcc.c handle this, as the egcs version has a really
 401              cool facility for handling --help and --verbose --help.  */
 402           return;
 403
 404 #if 0
 405           printf ("\
 406 Usage: g77 [OPTION]... FORTRAN-SOURCE...\n\
 407 \n\
 408 Compile and link Fortran source code to produce an executable program,\n\
 409 which by default is named `a.out', and can be invoked with the UNIX\n\
 410 command `./a.out'.\n\
 411 \n\
 412 Options:\n\
 413 --debug                include debugging information in executable.\n\
 414 --help                 display this help and exit.\n\
 415 --optimize[=LEVEL]     take extra time and memory to make generated\n\
 416                          executable run faster.  LEVEL is 0 for no\n\
 417                          optimization, 1 for normal optimization, and\n\
 418                          increases through 3 for more optimization.\n\
 419 --output=PROGRAM       name the executable PROGRAM instead of a.out;\n\
 420                          invoke with the command `./PROGRAM'.\n\
 421 --version              display version information and exit.\n\
 422 \n\
 423 Many other options exist to tailor the compilation process, specify\n\
 424 the dialect of the Fortran source code, specify details of the\n\
 425 code-generation methodology, and so on.\n\
 426 \n\
 427 For more information on g77 and gcc, type the commands `info -f g77'\n\
 428 and `info -f gcc' to read the Info documentation.\n\
 429 \n\
 430 For bug reporting instructions, please see:\n\
 431 %s.\n", GCCBUGURL);
 432           exit (0);
 433           break;
 434 #endif
 435
 436         case OPTION_driver:
 437           (*fn) ("--driver no longer supported", argv[i]);
 438           break;
 439
 440         default:
 441           add_version_magic = 0;
 442           break;
 443         }
 444
 445       /* This is the one place we check for missing arguments in the
 446          program.  */
 447
 448       if (i + skip < argc)
 449         i += skip;
 450       else
 451         (*fn) ("argument to `%s' missing", argv[i]);
 452     }
 453
 454   if ((n_outfiles != 0) && (n_infiles == 0))
 455     (*fn) ("No input files; unwilling to write output files");
 456
 457   /* Second pass through arglist, transforming arguments as appropriate.  */
 458
 459   append_arg (argv[0]); /* Start with command name, of course. */
 460
 461   for (i = 1; i < argc; ++i)
 462     {
 463       if (argv[i][0] == '\0')
 464         {
 465           append_arg (argv[i]); /* Interesting.  Just append as is. */
 466           continue;
 467         }
 468
 469       if ((argv[i][0] == '-') && (argv[i][1] != 'l'))
 470         {
 471           /* Not a filename or library. */
 472
 473          if (saw_library == 1 && need_math)    /* -l<library>. */
 474             append_arg (MATH_LIBRARY);
 475
 476           saw_library = 0;
 477
 478           lookup_option (&opt, &skip, &arg, argv[i]);
 479
 480           if (argv[i][1] == '\0')
 481             {
 482               append_arg (argv[i]);     /* "-" == Standard input. */
 483               continue;
 484             }
 485
 486           if (opt == OPTION_x)
 487             {
 488               /* Track input language. */
 489               char *lang;
 490
 491               if (arg == NULL)
 492                 lang = argv[i+1];
 493               else
 494                 lang = arg;
 495
 496               saw_speclang = (strcmp (lang, "none") != 0);
 497             }
 498
 499           append_arg (argv[i]);
 500
 501           for (; skip != 0; --skip)
 502             append_arg (argv[++i]);
 503
 504           continue;
 505         }
 506
 507       /* A filename/library, not an option. */
 508
 509       if (saw_speclang)
 510         saw_library = 0;        /* -xfoo currently active. */
 511       else
 512         {                       /* -lfoo or filename. */
 513           if (strcmp (argv[i], MATH_LIBRARY) == 0
 514 #ifdef ALT_LIBM
 515               || strcmp (argv[i], ALT_LIBM) == 0
 516 #endif
 517               )
 518             {
 519               if (saw_library == 1)
 520                 saw_library = 2;        /* -l<library> -lm. */
 521               else
 522                 append_arg (FORTRAN_LIBRARY);
 523             }
 524           else if (strcmp (argv[i], FORTRAN_LIBRARY) == 0)
 525             saw_library = 1;    /* -l<library>. */
 526           else
 527             {           /* Other library, or filename. */
 528              if (saw_library == 1 && need_math)
 529                 append_arg (MATH_LIBRARY);
 530               saw_library = 0;
 531             }
 532         }
 533       append_arg (argv[i]);
 534     }
 535
 536   /* Append `-lg2c -lm' as necessary.  */
 537
 538   if (! add_version_magic && library)
 539     {                           /* Doing a link and no -nostdlib. */
 540       if (saw_speclang)
 541         append_arg ("-xnone");
 542
 543       switch (saw_library)
 544         {
 545         case 0:
 546           append_arg (library);
 547         case 1:
 548          if (need_math)
 549            append_arg (MATH_LIBRARY);
 550         default:
 551           break;
 552         }
 553     }
 554   else if (add_version_magic && verbose)
 555     {
 556       append_arg ("-c");
 557       append_arg ("-xf77-version");
 558       append_arg ("/dev/null");
 559       append_arg ("-xnone");
 560     }
 561
 562   if (verbose
 563       && g77_newargv != g77_xargv)
 564     {
 565       fprintf (stderr, "Driving:");
 566       for (i = 0; i < g77_newargc; i++)
 567         fprintf (stderr, " %s", g77_newargv[i]);
 568       fprintf (stderr, "\n");
 569     }
 570
 571   *in_argc = g77_newargc;
 572   *in_argv = g77_newargv;
 573 }
 574
 575 /* Called before linking.  Returns 0 on success and -1 on failure. */
 576 int lang_specific_pre_link ()  /* Not used for F77. */
 577 {
 578   return 0;
 579 }
 580
 581 /* Number of extra output files that lang_specific_pre_link may generate. */
 582 int lang_specific_extra_outfiles = 0;  /* Not used for F77. */