[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 | GFC_STD_GNU;

  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;
    }
  
  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_80:
      gfc_option.fixed_line_length = 80;
      break;

    case OPT_ffixed_line_length_132:
      gfc_option.fixed_line_length = 132;
      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) < 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);
    
    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 | GFC_STD_GNU;
      break;
    }

  return result;
}
Commit	Line	Data
6de9cd9a	1	/* Parse and display command line options.
9fc4d79b TS	2	Copyright (C) 2000, 2001, 2002, 2003, 2004 Free Software Foundation,
9fc4d79b TS	3	Inc.
6de9cd9a DN	4	Contributed by Andy Vaught
6de9cd9a DN	5
9fc4d79b	6	This file is part of GCC.
6de9cd9a	7
9fc4d79b TS	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.
6de9cd9a	12
9fc4d79b TS	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.
6de9cd9a DN	17
6de9cd9a DN	18	You should have received a copy of the GNU General Public License
9fc4d79b TS	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. */
6de9cd9a DN	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;
2d8b59df	59	gfc_option.warn_underflow = 1;
6de9cd9a DN	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
	73	gfc_option.q_kind = gfc_default_double_kind ();
	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
	83	\| GFC_STD_F2003 \| GFC_STD_GNU;
	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	}
	114
	115	return false;
	116	}
	117
	118
	119	/* Set the options for -Wall. */
	120
	121	static void
	122	set_Wall (void)
	123	{
124
125	gfc_option.warn_aliasing = 1;
126	gfc_option.warn_line_truncation = 1;
2d8b59df	127	gfc_option.warn_underflow = 1;
6de9cd9a DN	128	gfc_option.warn_surprising = 1;
	129	gfc_option.warn_unused_labels = 1;
	130
	131	set_Wunused (1);
	132	warn_return_type = 1;
	133	warn_switch = 1;
	134
	135	/* We save the value of warn_uninitialized, since if they put
	136	-Wuninitialized on the command line, we need to generate a
	137	warning about not using it without also specifying -O. */
	138
	139	if (warn_uninitialized != 1)
	140	warn_uninitialized = 2;
	141	}
	142
	143
	144	static void
	145	gfc_handle_module_path_options (const char *arg)
	146	{
	147
	148	if (gfc_option.module_dir != NULL)
	149	{
	150	gfc_status ("gfortran: Only one -M option allowed\n");
	151	exit (3);
	152	}
	153
	154	if (arg == NULL)
	155	{
	156	gfc_status ("gfortran: Directory required after -M\n");
	157	exit (3);
	158	}
	159
629ceb93	160	gfc_option.module_dir = (char *) gfc_getmem (strlen (arg) + 2);
6de9cd9a DN	161	strcpy (gfc_option.module_dir, arg);
	162	strcat (gfc_option.module_dir, "/");
	163	}
	164
	165	/* Handle command-line options. Returns 0 if unrecognized, 1 if
	166	recognized and handled. */
	167	int
	168	gfc_handle_option (size_t scode, const char *arg, int value)
	169	{
	170	int result = 1;
	171	enum opt_code code = (enum opt_code) scode;
	172
	173	/* Ignore file names. */
	174	if (code == N_OPTS)
	175	return 1;
	176
	177	switch (code)
	178	{
	179	default:
	180	result = 0;
	181	break;
	182
	183	case OPT_Wall:
	184	set_Wall ();
	185	break;
	186
	187	case OPT_Waliasing:
	188	gfc_option.warn_aliasing = value;
	189	break;
	190
	191	case OPT_Wconversion:
	192	gfc_option.warn_conversion = value;
	193	break;
	194
	195	case OPT_Wimplicit_interface:
	196	gfc_option.warn_implicit_interface = value;
	197	break;
	198
	199	case OPT_Wline_truncation:
	200	gfc_option.warn_line_truncation = value;
	201	break;
	202
2d8b59df SK	203	case OPT_Wunderflow:
	204	gfc_option.warn_underflow = value;
	205	break;
	206
6de9cd9a DN	207	case OPT_Wsurprising:
	208	gfc_option.warn_surprising = value;
	209	break;
	210
	211	case OPT_Wunused_labels:
	212	gfc_option.warn_unused_labels = value;
	213	break;
	214
	215	case OPT_fdollar_ok:
	216	gfc_option.flag_dollar_ok = value;
	217	break;
	218
	219	case OPT_fdump_parse_tree:
	220	gfc_option.verbose = value;
	221	break;
	222
	223	case OPT_ffixed_form:
	224	gfc_option.source_form = FORM_FIXED;
	225	break;
	226
	227	case OPT_ffree_form:
	228	gfc_option.source_form = FORM_FREE;
	229	break;
	230
	231	case OPT_funderscoring:
	232	gfc_option.flag_underscoring = value;
	233	break;
	234
	235	case OPT_fsecond_underscore:
	236	gfc_option.flag_second_underscore = value;
	237	break;
	238
	239	case OPT_fimplicit_none:
	240	gfc_option.flag_implicit_none = value;
	241	break;
	242
	243	case OPT_fmax_stack_var_size_:
	244	gfc_option.flag_max_stack_var_size = value;
	245	break;
	246
	247	case OPT_fmodule_private:
	248	gfc_option.flag_module_access_private = value;
	249	break;
	250
	251	case OPT_fno_backend:
	252	gfc_option.flag_no_backend = value;
	253	break;
	254
	255	case OPT_fpack_derived:
	256	gfc_option.flag_pack_derived = value;
	257	break;
	258
	259	case OPT_frepack_arrays:
	260	gfc_option.flag_repack_arrays = value;
	261	break;
	262
	263	case OPT_ffixed_line_length_80:
	264	gfc_option.fixed_line_length = 80;
	265	break;
	266
	267	case OPT_ffixed_line_length_132:
	268	gfc_option.fixed_line_length = 132;
	269	break;
	270
271	case OPT_fmax_identifier_length_:
272	if (value > GFC_MAX_SYMBOL_LEN)
273	gfc_fatal_error ("Maximum supported idenitifier length is %d",
274	GFC_MAX_SYMBOL_LEN);
275	gfc_option.max_identifier_length = value;
276	break;
277
278	case OPT_qkind_:
279	if (gfc_validate_kind (BT_REAL, value) < 0)
280	gfc_fatal_error ("Argument to -fqkind isn't a valid real kind");
281	gfc_option.q_kind = value;
282	break;
283
284	case OPT_i8:
285	gfc_option.i8 = value;
286	break;
287
288	case OPT_r8:
289	gfc_option.r8 = value;
290	break;
291
292	case OPT_d8:
293	gfc_option.d8 = value;
294	break;
295
296	case OPT_I:
297	gfc_add_include_path (arg);
298	break;
299
300	case OPT_J:
301	case OPT_M:
302	gfc_handle_module_path_options (arg);
303
304	case OPT_std_f95:
305	gfc_option.allow_std = GFC_STD_F95_OBS \| GFC_STD_F2003_OBS
306	\| GFC_STD_F2003_DEL;
307	gfc_option.warn_std = GFC_STD_F95_OBS;
308	gfc_option.max_identifier_length = 31;
309	break;
310
311	case OPT_std_f2003:
312	gfc_option.allow_std = GFC_STD_F95_OBS \| GFC_STD_F2003_OBS
313	\| GFC_STD_F2003;
314	gfc_option.warn_std = GFC_STD_F95_OBS \| GFC_STD_F2003_OBS;
315	gfc_option.max_identifier_length = 63;
316	break;
317
318	case OPT_std_gnu:
319	gfc_option.allow_std = GFC_STD_F95_OBS \| GFC_STD_F95_DEL
320	\| GFC_STD_F2003_OBS \| GFC_STD_F2003_DEL \| GFC_STD_F2003 \| GFC_STD_GNU;
321	gfc_option.warn_std = GFC_STD_F95_OBS \| GFC_STD_F95_DEL
322	\| GFC_STD_F2003_OBS \| GFC_STD_F2003_DEL \| GFC_STD_GNU;
323	break;
324	}
325
326	return result;
327	}