[thirdparty/gcc.git] / gcc / fortran / options.c

/* Parse and display command line options.
   Copyright (C) 2000, 2001, 2002, 2003, 2004 Free Software Foundation,
   Inc.
   Contributed by Andy Vaught

This file is part of GCC.

GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.

GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
for more details.

You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING.  If not, write to the Free
Software Foundation, 59 Temple Place - Suite 330, Boston, MA
02111-1307, USA.  */

#include <string.h>
#include <stdlib.h>

#include "config.h"
#include "system.h"
#include "coretypes.h"
#include "tree.h"
#include "flags.h"
#include "intl.h"
#include "opts.h"
#include "options.h"
#include "tree-inline.h"

#include "gfortran.h"

gfc_option_t gfc_option;


/* Get ready for options handling.  */

unsigned int
gfc_init_options (unsigned int argc ATTRIBUTE_UNUSED,
		  const char **argv ATTRIBUTE_UNUSED)
{

  gfc_option.source = NULL;
  gfc_option.module_dir = NULL;
  gfc_option.source_form = FORM_UNKNOWN;
  gfc_option.fixed_line_length = 72;
  gfc_option.max_identifier_length = GFC_MAX_SYMBOL_LEN;
  gfc_option.verbose = 0;

  gfc_option.warn_aliasing = 0;
  gfc_option.warn_conversion = 0;
  gfc_option.warn_implicit_interface = 0;
  gfc_option.warn_line_truncation = 0;
  gfc_option.warn_underflow = 1;
  gfc_option.warn_surprising = 0;
  gfc_option.warn_unused_labels = 0;

  gfc_option.flag_dollar_ok = 0;
  gfc_option.flag_underscoring = 1;
  gfc_option.flag_second_underscore = 1;
  gfc_option.flag_implicit_none = 0;
  gfc_option.flag_max_stack_var_size = 32768;
  gfc_option.flag_module_access_private = 0;
  gfc_option.flag_no_backend = 0;
  gfc_option.flag_pack_derived = 0;
  gfc_option.flag_repack_arrays = 0;

  gfc_option.q_kind = gfc_default_double_kind;
  gfc_option.i8 = 0;
  gfc_option.r8 = 0;
  gfc_option.d8 = 0;

  flag_argument_noalias = 2;

  gfc_option.allow_std = GFC_STD_F95_OBS | GFC_STD_F95_DEL
    | GFC_STD_F2003_OBS | GFC_STD_F2003_DEL | GFC_STD_F2003 | GFC_STD_GNU;
  gfc_option.warn_std = GFC_STD_F95_OBS | GFC_STD_F95_DEL
    | GFC_STD_F2003;

  return CL_F95;
}


/* Finalize commandline options.  */

bool
gfc_post_options (const char **pfilename)
{
  const char *filename = *pfilename;

  /* Verify the input file name.  */
  if (!filename || strcmp (filename, "-") == 0)
    {
      filename = "";
    }

  gfc_option.source = filename;

  flag_inline_trees = 1;

  /* Use tree inlining.  */
  if (!flag_no_inline)
    flag_no_inline = 1;
  if (flag_inline_functions)
    {
      flag_inline_trees = 2;
      flag_inline_functions = 0;
    }

  /* If -pedantic, warn about the use of GNU extensions.  */
  if (pedantic && (gfc_option.allow_std & GFC_STD_GNU) != 0)
    gfc_option.warn_std |= GFC_STD_GNU;

  return false;
}


/* Set the options for -Wall.  */

static void
set_Wall (void)
{

  gfc_option.warn_aliasing = 1;
  gfc_option.warn_line_truncation = 1;
  gfc_option.warn_underflow = 1;
  gfc_option.warn_surprising = 1;
  gfc_option.warn_unused_labels = 1;

  set_Wunused (1);
  warn_return_type = 1;
  warn_switch = 1;

  /* We save the value of warn_uninitialized, since if they put
     -Wuninitialized on the command line, we need to generate a
     warning about not using it without also specifying -O.  */

  if (warn_uninitialized != 1)
    warn_uninitialized = 2;
}


static void
gfc_handle_module_path_options (const char *arg)
{

  if (gfc_option.module_dir != NULL)
    {
      gfc_status ("gfortran: Only one -M option allowed\n");
      exit (3);
    }

  if (arg == NULL)
    {
      gfc_status ("gfortran: Directory required after -M\n");
      exit (3);
    }

  gfc_option.module_dir = (char *) gfc_getmem (strlen (arg) + 2);
  strcpy (gfc_option.module_dir, arg);
  strcat (gfc_option.module_dir, "/");
}

/* Handle command-line options.  Returns 0 if unrecognized, 1 if
   recognized and handled.  */
int
gfc_handle_option (size_t scode, const char *arg, int value)
{
  int result = 1;
  enum opt_code code = (enum opt_code) scode;

  /* Ignore file names.  */
  if (code == N_OPTS)
    return 1;

  switch (code)
    {
    default:
      result = 0;
      break;

    case OPT_Wall:
      set_Wall ();
      break;

    case OPT_Waliasing:
      gfc_option.warn_aliasing = value;
      break;

    case OPT_Wconversion:
      gfc_option.warn_conversion = value;
      break;

    case OPT_Wimplicit_interface:
      gfc_option.warn_implicit_interface = value;
      break;

    case OPT_Wline_truncation:
      gfc_option.warn_line_truncation = value;
      break;

    case OPT_Wunderflow:
      gfc_option.warn_underflow = value;
      break;

    case OPT_Wsurprising:
      gfc_option.warn_surprising = value;
      break;

    case OPT_Wunused_labels:
      gfc_option.warn_unused_labels = value;
      break;

    case OPT_fdollar_ok:
      gfc_option.flag_dollar_ok = value;
      break;

    case OPT_fdump_parse_tree:
      gfc_option.verbose = value;
      break;

    case OPT_ffixed_form:
      gfc_option.source_form = FORM_FIXED;
      break;

    case OPT_ffree_form:
      gfc_option.source_form = FORM_FREE;
      break;

    case OPT_funderscoring:
      gfc_option.flag_underscoring = value;
      break;

    case OPT_fsecond_underscore:
      gfc_option.flag_second_underscore = value;
      break;

    case OPT_fimplicit_none:
      gfc_option.flag_implicit_none = value;
      break;

    case OPT_fmax_stack_var_size_:
      gfc_option.flag_max_stack_var_size = value;
      break;

    case OPT_fmodule_private:
      gfc_option.flag_module_access_private = value;
      break;

    case OPT_fno_backend:
      gfc_option.flag_no_backend = value;
      break;

    case OPT_fpack_derived:
      gfc_option.flag_pack_derived = value;
      break;

    case OPT_frepack_arrays:
      gfc_option.flag_repack_arrays = value;
      break;

    case OPT_ffixed_line_length_none:
      gfc_option.fixed_line_length = 0;
      break;

    case OPT_ffixed_line_length_:
      if (value != 0 && value < 7)
	gfc_fatal_error ("Fixed line length must be at least seven.");
      gfc_option.fixed_line_length = value;
      break;

    case OPT_fmax_identifier_length_:
      if (value > GFC_MAX_SYMBOL_LEN)
	gfc_fatal_error ("Maximum supported idenitifier length is %d",
			 GFC_MAX_SYMBOL_LEN);
      gfc_option.max_identifier_length = value;
      break;

    case OPT_qkind_:
      if (gfc_validate_kind (BT_REAL, value, true) < 0)
	gfc_fatal_error ("Argument to -fqkind isn't a valid real kind");
      gfc_option.q_kind = value;
      break;

    case OPT_i8:
      gfc_option.i8 = value;
      break;

    case OPT_r8:
      gfc_option.r8 = value;
      break;

    case OPT_d8:
      gfc_option.d8 = value;
      break;

    case OPT_I:
      gfc_add_include_path (arg);
      break;

    case OPT_J:
    case OPT_M:
      gfc_handle_module_path_options (arg);
      break;
    
    case OPT_std_f95:
      gfc_option.allow_std = GFC_STD_F95_OBS | GFC_STD_F2003_OBS
	| GFC_STD_F2003_DEL;
      gfc_option.warn_std = GFC_STD_F95_OBS;
      gfc_option.max_identifier_length = 31;
      break;

    case OPT_std_f2003:
      gfc_option.allow_std = GFC_STD_F95_OBS | GFC_STD_F2003_OBS
	| GFC_STD_F2003;
      gfc_option.warn_std = GFC_STD_F95_OBS | GFC_STD_F2003_OBS;
      gfc_option.max_identifier_length = 63;
      break;

    case OPT_std_gnu:
      gfc_option.allow_std = GFC_STD_F95_OBS | GFC_STD_F95_DEL
	| GFC_STD_F2003_OBS | GFC_STD_F2003_DEL | GFC_STD_F2003 | GFC_STD_GNU;
      gfc_option.warn_std = GFC_STD_F95_OBS | GFC_STD_F95_DEL
	| GFC_STD_F2003_OBS | GFC_STD_F2003_DEL;
      break;
    }

  return result;
}
Commit	Line	Data
4ee9c684	1	/* Parse and display command line options.
c84b470d	2	Copyright (C) 2000, 2001, 2002, 2003, 2004 Free Software Foundation,
c84b470d	3	Inc.
4ee9c684	4	Contributed by Andy Vaught
4ee9c684	5
c84b470d	6	This file is part of GCC.
4ee9c684	7
c84b470d	8	GCC is free software; you can redistribute it and/or modify it under
	9	the terms of the GNU General Public License as published by the Free
	10	Software Foundation; either version 2, or (at your option) any later
	11	version.
4ee9c684	12
c84b470d	13	GCC is distributed in the hope that it will be useful, but WITHOUT ANY
	14	WARRANTY; without even the implied warranty of MERCHANTABILITY or
	15	FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
	16	for more details.
4ee9c684	17
4ee9c684	18	You should have received a copy of the GNU General Public License
c84b470d	19	along with GCC; see the file COPYING. If not, write to the Free
	20	Software Foundation, 59 Temple Place - Suite 330, Boston, MA
	21	02111-1307, USA. */
4ee9c684	22
	23	#include <string.h>
	24	#include <stdlib.h>
	25
	26	#include "config.h"
	27	#include "system.h"
	28	#include "coretypes.h"
	29	#include "tree.h"
	30	#include "flags.h"
	31	#include "intl.h"
	32	#include "opts.h"
	33	#include "options.h"
	34	#include "tree-inline.h"
	35
	36	#include "gfortran.h"
	37
	38	gfc_option_t gfc_option;
	39
	40
	41	/* Get ready for options handling. */
	42
	43	unsigned int
	44	gfc_init_options (unsigned int argc ATTRIBUTE_UNUSED,
	45	const char **argv ATTRIBUTE_UNUSED)
	46	{
	47
	48	gfc_option.source = NULL;
	49	gfc_option.module_dir = NULL;
	50	gfc_option.source_form = FORM_UNKNOWN;
	51	gfc_option.fixed_line_length = 72;
	52	gfc_option.max_identifier_length = GFC_MAX_SYMBOL_LEN;
	53	gfc_option.verbose = 0;
	54
	55	gfc_option.warn_aliasing = 0;
	56	gfc_option.warn_conversion = 0;
	57	gfc_option.warn_implicit_interface = 0;
	58	gfc_option.warn_line_truncation = 0;
9857bf0d	59	gfc_option.warn_underflow = 1;
4ee9c684	60	gfc_option.warn_surprising = 0;
	61	gfc_option.warn_unused_labels = 0;
	62
	63	gfc_option.flag_dollar_ok = 0;
	64	gfc_option.flag_underscoring = 1;
	65	gfc_option.flag_second_underscore = 1;
	66	gfc_option.flag_implicit_none = 0;
	67	gfc_option.flag_max_stack_var_size = 32768;
	68	gfc_option.flag_module_access_private = 0;
	69	gfc_option.flag_no_backend = 0;
	70	gfc_option.flag_pack_derived = 0;
	71	gfc_option.flag_repack_arrays = 0;
	72
b8a891cb	73	gfc_option.q_kind = gfc_default_double_kind;
4ee9c684	74	gfc_option.i8 = 0;
	75	gfc_option.r8 = 0;
	76	gfc_option.d8 = 0;
	77
	78	flag_argument_noalias = 2;
	79
	80	gfc_option.allow_std = GFC_STD_F95_OBS \| GFC_STD_F95_DEL
	81	\| GFC_STD_F2003_OBS \| GFC_STD_F2003_DEL \| GFC_STD_F2003 \| GFC_STD_GNU;
	82	gfc_option.warn_std = GFC_STD_F95_OBS \| GFC_STD_F95_DEL
675e3934	83	\| GFC_STD_F2003;
4ee9c684	84
	85	return CL_F95;
	86	}
	87
	88
	89	/* Finalize commandline options. */
	90
	91	bool
	92	gfc_post_options (const char **pfilename)
	93	{
	94	const char filename = pfilename;
	95
	96	/* Verify the input file name. */
	97	if (!filename \|\| strcmp (filename, "-") == 0)
	98	{
	99	filename = "";
	100	}
	101
	102	gfc_option.source = filename;
	103
	104	flag_inline_trees = 1;
	105
	106	/* Use tree inlining. */
	107	if (!flag_no_inline)
	108	flag_no_inline = 1;
	109	if (flag_inline_functions)
	110	{
	111	flag_inline_trees = 2;
	112	flag_inline_functions = 0;
	113	}
675e3934	114
	115	/* If -pedantic, warn about the use of GNU extensions. */
	116	if (pedantic && (gfc_option.allow_std & GFC_STD_GNU) != 0)
	117	gfc_option.warn_std \|= GFC_STD_GNU;
	118
4ee9c684	119	return false;
	120	}
	121
	122
	123	/* Set the options for -Wall. */
	124
	125	static void
	126	set_Wall (void)
	127	{
	128
	129	gfc_option.warn_aliasing = 1;
	130	gfc_option.warn_line_truncation = 1;
9857bf0d	131	gfc_option.warn_underflow = 1;
4ee9c684	132	gfc_option.warn_surprising = 1;
	133	gfc_option.warn_unused_labels = 1;
	134
	135	set_Wunused (1);
	136	warn_return_type = 1;
	137	warn_switch = 1;
	138
	139	/* We save the value of warn_uninitialized, since if they put
	140	-Wuninitialized on the command line, we need to generate a
	141	warning about not using it without also specifying -O. */
	142
	143	if (warn_uninitialized != 1)
	144	warn_uninitialized = 2;
	145	}
	146
	147
	148	static void
	149	gfc_handle_module_path_options (const char *arg)
	150	{
	151
	152	if (gfc_option.module_dir != NULL)
	153	{
	154	gfc_status ("gfortran: Only one -M option allowed\n");
	155	exit (3);
	156	}
	157
	158	if (arg == NULL)
	159	{
	160	gfc_status ("gfortran: Directory required after -M\n");
	161	exit (3);
	162	}
	163
3f1e4cec	164	gfc_option.module_dir = (char *) gfc_getmem (strlen (arg) + 2);
4ee9c684	165	strcpy (gfc_option.module_dir, arg);
	166	strcat (gfc_option.module_dir, "/");
	167	}
	168
	169	/* Handle command-line options. Returns 0 if unrecognized, 1 if
	170	recognized and handled. */
	171	int
	172	gfc_handle_option (size_t scode, const char *arg, int value)
	173	{
	174	int result = 1;
	175	enum opt_code code = (enum opt_code) scode;
	176
	177	/* Ignore file names. */
	178	if (code == N_OPTS)
	179	return 1;
	180
	181	switch (code)
	182	{
	183	default:
	184	result = 0;
	185	break;
	186
	187	case OPT_Wall:
	188	set_Wall ();
	189	break;
	190
	191	case OPT_Waliasing:
	192	gfc_option.warn_aliasing = value;
	193	break;
	194
	195	case OPT_Wconversion:
	196	gfc_option.warn_conversion = value;
	197	break;
	198
	199	case OPT_Wimplicit_interface:
	200	gfc_option.warn_implicit_interface = value;
	201	break;
	202
	203	case OPT_Wline_truncation:
	204	gfc_option.warn_line_truncation = value;
	205	break;
	206
9857bf0d	207	case OPT_Wunderflow:
	208	gfc_option.warn_underflow = value;
	209	break;
	210
4ee9c684	211	case OPT_Wsurprising:
	212	gfc_option.warn_surprising = value;
	213	break;
	214
	215	case OPT_Wunused_labels:
	216	gfc_option.warn_unused_labels = value;
	217	break;
	218
	219	case OPT_fdollar_ok:
	220	gfc_option.flag_dollar_ok = value;
	221	break;
	222
	223	case OPT_fdump_parse_tree:
	224	gfc_option.verbose = value;
	225	break;
	226
	227	case OPT_ffixed_form:
	228	gfc_option.source_form = FORM_FIXED;
	229	break;
	230
	231	case OPT_ffree_form:
	232	gfc_option.source_form = FORM_FREE;
	233	break;
	234
	235	case OPT_funderscoring:
	236	gfc_option.flag_underscoring = value;
	237	break;
	238
	239	case OPT_fsecond_underscore:
	240	gfc_option.flag_second_underscore = value;
	241	break;
	242
	243	case OPT_fimplicit_none:
	244	gfc_option.flag_implicit_none = value;
	245	break;
	246
	247	case OPT_fmax_stack_var_size_:
	248	gfc_option.flag_max_stack_var_size = value;
	249	break;
	250
	251	case OPT_fmodule_private:
	252	gfc_option.flag_module_access_private = value;
	253	break;
	254
	255	case OPT_fno_backend:
	256	gfc_option.flag_no_backend = value;
	257	break;
	258
	259	case OPT_fpack_derived:
	260	gfc_option.flag_pack_derived = value;
	261	break;
	262
	263	case OPT_frepack_arrays:
	264	gfc_option.flag_repack_arrays = value;
	265	break;
	266
f653e99b	267	case OPT_ffixed_line_length_none:
f653e99b	268	gfc_option.fixed_line_length = 0;
4ee9c684	269	break;
4ee9c684	270
f653e99b	271	case OPT_ffixed_line_length_:
	272	if (value != 0 && value < 7)
	273	gfc_fatal_error ("Fixed line length must be at least seven.");
	274	gfc_option.fixed_line_length = value;
4ee9c684	275	break;
	276
	277	case OPT_fmax_identifier_length_:
	278	if (value > GFC_MAX_SYMBOL_LEN)
	279	gfc_fatal_error ("Maximum supported idenitifier length is %d",
	280	GFC_MAX_SYMBOL_LEN);
	281	gfc_option.max_identifier_length = value;
	282	break;
	283
	284	case OPT_qkind_:
f2d4ef3b	285	if (gfc_validate_kind (BT_REAL, value, true) < 0)
4ee9c684	286	gfc_fatal_error ("Argument to -fqkind isn't a valid real kind");
	287	gfc_option.q_kind = value;
	288	break;
	289
	290	case OPT_i8:
	291	gfc_option.i8 = value;
	292	break;
	293
	294	case OPT_r8:
	295	gfc_option.r8 = value;
	296	break;
	297
	298	case OPT_d8:
	299	gfc_option.d8 = value;
	300	break;
	301
	302	case OPT_I:
	303	gfc_add_include_path (arg);
	304	break;
	305
	306	case OPT_J:
	307	case OPT_M:
	308	gfc_handle_module_path_options (arg);
ca9ccc0d	309	break;
4ee9c684	310
	311	case OPT_std_f95:
	312	gfc_option.allow_std = GFC_STD_F95_OBS \| GFC_STD_F2003_OBS
	313	\| GFC_STD_F2003_DEL;
	314	gfc_option.warn_std = GFC_STD_F95_OBS;
	315	gfc_option.max_identifier_length = 31;
	316	break;
	317
	318	case OPT_std_f2003:
	319	gfc_option.allow_std = GFC_STD_F95_OBS \| GFC_STD_F2003_OBS
	320	\| GFC_STD_F2003;
	321	gfc_option.warn_std = GFC_STD_F95_OBS \| GFC_STD_F2003_OBS;
	322	gfc_option.max_identifier_length = 63;
	323	break;
	324
	325	case OPT_std_gnu:
	326	gfc_option.allow_std = GFC_STD_F95_OBS \| GFC_STD_F95_DEL
	327	\| GFC_STD_F2003_OBS \| GFC_STD_F2003_DEL \| GFC_STD_F2003 \| GFC_STD_GNU;
	328	gfc_option.warn_std = GFC_STD_F95_OBS \| GFC_STD_F95_DEL
675e3934	329	\| GFC_STD_F2003_OBS \| GFC_STD_F2003_DEL;
4ee9c684	330	break;
	331	}
	332
	333	return result;
	334	}