PR fortran/47894
[official-gcc.git] / fixincludes / fixopts.c
blobd305cd767472604526876cc376c59d21a8ab3f0f
1 /* Handle options that are passed from environment variables.
3 Copyright (C) 2004, 2009 Free Software Foundation, Inc.
5 This file is part of GCC.
7 GCC is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3, or (at your option)
10 any later version.
12 GCC is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GCC; see the file COPYING3. If not see
19 <http://www.gnu.org/licenses/>. */
21 #include "fixlib.h"
23 #define _ENV_(v,m,n,t) tCC* v = NULL;
24 ENV_TABLE
25 #undef _ENV_
27 void
28 initialize_opts (void)
30 static const char var_not_found[] =
31 #ifndef __STDC__
32 "fixincl ERROR: %s environment variable not defined\n"
33 #else
34 "fixincl ERROR: %s environment variable not defined\n"
35 "each of these must be defined:\n"
36 # define _ENV_(vv,mm,nn,tt) "\t" nn " - " tt "\n"
37 ENV_TABLE
38 # undef _ENV_
39 #endif
42 #define _ENV_(v,m,n,t) { tSCC var[] = n; \
43 v = getenv (var); if (m && (v == NULL)) { \
44 fprintf (stderr, var_not_found, var); \
45 exit (EXIT_FAILURE); } }
47 ENV_TABLE
49 #undef _ENV_