1/* Specific flags and argument handling of the Fortran front-end. 2 Copyright (C) 1997, 1999, 2000 Free Software Foundation, Inc. 3 4This file is part of GNU CC. 5 6GNU CC is free software; you can redistribute it and/or modify 7it under the terms of the GNU General Public License as published by 8the Free Software Foundation; either version 2, or (at your option) 9any later version. 10 11GNU CC is distributed in the hope that it will be useful, 12but WITHOUT ANY WARRANTY; without even the implied warranty of 13MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14GNU General Public License for more details. 15 16You should have received a copy of the GNU General Public License 17along with GNU CC; see the file COPYING. If not, write to 18the Free Software Foundation, 59 Temple Place - Suite 330, 19Boston, 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. */ 61typedef 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. */ 87static int g77_xargc; 88static char **g77_xargv; 89static void (*g77_fn)(); 90 91/* The new argument list will be built here. */ 92static int g77_newargc; 93static char **g77_newargv; 94 95extern 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 135static void 136lookup_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 217static void 218append_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 254void 255lang_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 ("\ 384GNU Fortran %s\n\ 385Copyright (C) 1997 Free Software Foundation, Inc.\n\ 386For more version information on components of the GNU Fortran\n\ 387compilation system, especially useful when reporting bugs,\n\ 388type the command `g77 --verbose'.\n\ 389\n\ 390GNU Fortran comes with NO WARRANTY, to the extent permitted by law.\n\ 391You may redistribute copies of GNU Fortran\n\ 392under the terms of the GNU General Public License.\n\ 393For more information about these matters, see the file named COPYING\n\ 394or 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 ("\ 406Usage: g77 [OPTION]... FORTRAN-SOURCE...\n\ 407\n\ 408Compile and link Fortran source code to produce an executable program,\n\ 409which by default is named `a.out', and can be invoked with the UNIX\n\ 410command `./a.out'.\n\ 411\n\ 412Options:\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\ 423Many other options exist to tailor the compilation process, specify\n\ 424the dialect of the Fortran source code, specify details of the\n\ 425code-generation methodology, and so on.\n\ 426\n\ 427For more information on g77 and gcc, type the commands `info -f g77'\n\ 428and `info -f gcc' to read the Info documentation.\n\ 429\n\ 430For 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. */ 576int 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. */ 582int lang_specific_extra_outfiles = 0; /* Not used for F77. */ 583