src/options.c

   1 /* Concentrate all options use in bison,
   2    Copyright 2001, 2002 Free Software Foundation, Inc.
   3
   4    This file is part of Bison, the GNU Compiler Compiler.
   5
   6    Bison 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    Bison 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 Bison; see the file COPYING.  If not, write to
  18    the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  19    Boston, MA 02111-1307, USA.  */
  20
  21 #include "system.h"
  22 #include "getopt.h"
  23 #include "files.h"
  24 #include "getargs.h"
  25 #include "symtab.h"
  26 #include "gram.h"
  27 #include "lex.h"
  28 #include "output.h"
  29 #include "options.h"
  30
  31 /* Shorts options.  */
  32 const char *shortopts = "yvegdhr:ltknVo:b:p:S:";
  33
  34 /* A CLI option only.
  35    Arguments is the policy: `no', `optional', `required'.
  36    OptionChar is the value given to the Var if the latter is specified.  */
  37 #undef OPTN
  38 #define OPTN(OptionString, Arguments, Var, Token, OptionChar) \
  39   { opt_cmd_line, \
  40     (OptionString), (Arguments##_argument), (Var), (Token), (OptionChar) },
  41
  42 /* A directive only. */
  43 #undef DRTV
  44 #define DRTV(DirectiveString, Arguments, Var, Token) \
  45   { opt_percent, \
  46     (DirectiveString), (Arguments##_argument), (Var), (Token), (0) },
  47
  48 /* An option activated both by a directive and an CLI option. */
  49 #undef BOTH
  50 #define BOTH(String, Arguments, Var, Token, OptionChar) \
  51   { opt_both, \
  52     (String), (Arguments##_argument), (Var), (Token), (OptionChar) },
  53
  54
  55 const struct option_table_s option_table[] =
  56 {
  57   /*
  58    * Command line.
  59    */
  60
  61   /* Operation modes. */
  62   OPTN ("help",          no,            0,      0,   'h')
  63   OPTN ("version",       no,            0,      0,   'V')
  64
  65   /* Parser. */
  66   OPTN ("name-prefix",  required,       0,      0,   'p')
  67   OPTN ("include",      required,       0,      0,   'I')
  68
  69   /* Output. */
  70   OPTN ("file-prefix",  required,       0,      0,   'b')
  71   OPTN ("output",       required,       0,      0,   'o')
  72   OPTN ("output-file",  required,       0,      0,   'o')
  73   OPTN ("graph",        optional,       0,      0,   'g')
  74   OPTN ("report",       required,       0,      0,   'r')
  75   OPTN ("verbose",           no,        0,      0,   'v')
  76
  77   /* Hidden. */
  78   OPTN ("trace",        no,   &trace_flag,      0,     1)
  79
  80   /*
  81    * Percent declarations.
  82    */
  83
  84   DRTV ("token",        no,             NULL, tok_token)
  85   DRTV ("term",         no,             NULL, tok_token)
  86   DRTV ("nterm",        no,             NULL, tok_nterm)
  87   DRTV ("type",         no,             NULL, tok_type)
  88   DRTV ("union",        no,             NULL, tok_union)
  89   DRTV ("expect",       no,             NULL, tok_expect)
  90   DRTV ("thong",        no,             NULL, tok_thong)
  91   DRTV ("start",        no,             NULL, tok_start)
  92   DRTV ("left",         no,             NULL, tok_left)
  93   DRTV ("right",        no,             NULL, tok_right)
  94   DRTV ("nonassoc",     no,             NULL, tok_nonassoc)
  95   DRTV ("binary",       no,             NULL, tok_nonassoc)
  96   DRTV ("prec",         no,             NULL, tok_prec)
  97   DRTV ("verbose",      no,     &report_flag, tok_intopt)
  98   DRTV ("error-verbose",no,   &error_verbose, tok_intopt)
  99
 100   /* FIXME: semantic parsers will output an `include' of an
 101      output file: be sure that the naem included is indeed the name of
 102      the output file.  */ /* FIXME Should we activate this options ?
 103      */
 104   BOTH ("output",      required,     &spec_outfile, tok_stropt, 'o')
 105   BOTH ("file-prefix", required, &spec_file_prefix, tok_stropt, 'b')
 106   BOTH ("name-prefix", required, &spec_name_prefix, tok_stropt, 'p')
 107
 108   DRTV ("define",       no,               NULL, tok_define)
 109   DRTV ("pure-parser",  no,       &pure_parser, tok_intopt)
 110
 111   /*
 112    * Percent and command line declarations.
 113    */
 114
 115   /* Output.  */
 116   BOTH ("defines",     optional,   &defines_flag,    tok_intopt,   'd')
 117
 118   /* Operation modes.  */
 119   BOTH ("fixed-output-files", no,  &yacc_flag,       tok_intopt,   'y')
 120   BOTH ("yacc",               no,  &yacc_flag,       tok_intopt,   'y')
 121
 122   /* Parser.  */
 123   BOTH ("debug",          no,     &debug_flag,       tok_intopt,   't')
 124   BOTH ("locations",      no, &locations_flag,       tok_intopt,     1)
 125   BOTH ("no-lines",       no,  &no_lines_flag,       tok_intopt,   'l')
 126   BOTH ("no-parser",      no, &no_parser_flag,       tok_intopt,   'n')
 127   BOTH ("raw",            no,               0,       tok_obsolete,   0)
 128   BOTH ("skeleton",       required,         0,       tok_skel,     'S')
 129   BOTH ("token-table",    no, &token_table_flag,     tok_intopt,   'k')
 130
 131   {0, 0, 0, 0, 0, 0}
 132 };
 133
 134
 135 /*--------------------------------------------------------.
 136 | Create the longoptions structure from the option_table, |
 137 | for the getopt file.                                    |
 138 `--------------------------------------------------------*/
 139
 140 struct option *
 141 long_option_table_new ()
 142 {
 143   struct option *res = NULL;
 144   int i = 0;
 145   int j = 0;
 146   int number_options;
 147
 148   for (number_options = 0; option_table[i].name; i++)
 149     if (option_table[i].access == opt_cmd_line
 150         || option_table[i].access == opt_both)
 151       ++number_options;
 152
 153   res = XMALLOC (struct option, number_options + 1);
 154   for (i = 0; option_table[i].name; i++)
 155     if (option_table[i].access == opt_cmd_line
 156         || option_table[i].access == opt_both)
 157       {
 158         res[j].name = option_table[i].name;
 159         res[j].has_arg = option_table[i].has_arg;
 160         /* When a getopt_long option has an associated variable
 161            (member FLAG), then it is set of the VAL member value.  In
 162            other words, we cannot expect getopt_long to store the
 163            argument if we also want a short option.  */
 164         if (res[j].has_arg == optional_argument)
 165           res[j].flag = NULL;
 166         else
 167           res[j].flag = option_table[i].flag;
 168         res[j++].val = option_table[i].val;
 169       }
 170   res[number_options].name = NULL;
 171   res[number_options].has_arg = 0;
 172   res[number_options].flag = NULL;
 173   res[number_options].val = 0;
 174
 175   return res;
 176 }