pintos-os.org Git - pspp/blob - src/ui/source-init-opts.c

   1 /* PSPPIRE - a graphical user interface for PSPP.
   2    Copyright (C) 2008, 2010  Free Software Foundation
   3
   4    This program is free software: you can redistribute it and/or modify
   5    it under the terms of the GNU General Public License as published by
   6    the Free Software Foundation, either version 3 of the License, or
   7    (at your option) any later version.
   8
   9    This program is distributed in the hope that it will be useful,
  10    but WITHOUT ANY WARRANTY; without even the implied warranty of
  11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12    GNU General Public License for more details.
  13
  14    You should have received a copy of the GNU General Public License
  15    along with this program.  If not, see <http://www.gnu.org/licenses/>. */
  16
  17 #include <config.h>
  18
  19 #include "source-init-opts.h"
  20
  21 #include <stdbool.h>
  22 #include <stdlib.h>
  23 #include <string.h>
  24
  25 #include "data/file-name.h"
  26 #include "data/por-file-reader.h"
  27 #include "data/settings.h"
  28 #include "data/sys-file-reader.h"
  29 #include "language/lexer/include-path.h"
  30 #include "language/lexer/lexer.h"
  31 #include "libpspp/assertion.h"
  32 #include "libpspp/argv-parser.h"
  33 #include "libpspp/llx.h"
  34 #include "libpspp/message.h"
  35 #include "ui/syntax-gen.h"
  36
  37 #include "gl/error.h"
  38 #include "gl/xalloc.h"
  39
  40 #include "gettext.h"
  41 #define _(msgid) gettext (msgid)
  42 #define N_(msgid) msgid
  43
  44 enum
  45   {
  46     OPT_ALGORITHM,
  47     OPT_INCLUDE,
  48     OPT_NO_INCLUDE,
  49     OPT_SAFER,
  50     OPT_SYNTAX,
  51     N_SOURCE_INIT_OPTIONS
  52   };
  53
  54 static const struct argv_option source_init_options[N_SOURCE_INIT_OPTIONS] =
  55   {
  56     {"algorithm", 'a', required_argument, OPT_ALGORITHM},
  57     {"include", 'I', required_argument, OPT_INCLUDE},
  58     {"no-include", 0, no_argument, OPT_NO_INCLUDE},
  59     {"safer", 's', no_argument, OPT_SAFER},
  60     {"syntax", 'x', required_argument, OPT_SYNTAX},
  61   };
  62
  63 static void
  64 source_init_option_callback (int id, void *aux UNUSED)
  65 {
  66   switch (id)
  67     {
  68     case OPT_ALGORITHM:
  69       if (!strcmp (optarg, "compatible"))
  70         settings_set_algorithm (COMPATIBLE);
  71       else if (!strcmp (optarg, "enhanced"))
  72         settings_set_algorithm (ENHANCED);
  73       else
  74         /* TRANSLATORS: Leave the words `compatible' and `enhanced' in their
  75         original English. */
  76         error (1, 0,
  77                _("Algorithm must be either `compatible' or `enhanced'."));
  78       break;
  79
  80     case OPT_INCLUDE:
  81       if (!strcmp (optarg, "-"))
  82         include_path_clear ();
  83       else
  84         include_path_add (optarg);
  85       break;
  86
  87     case OPT_NO_INCLUDE:
  88       include_path_clear ();
  89       break;
  90
  91     case OPT_SAFER:
  92       settings_set_safer_mode ();
  93       break;
  94
  95     case OPT_SYNTAX:
  96       if (!strcmp (optarg, "compatible") )
  97         settings_set_syntax (COMPATIBLE);
  98       else if (!strcmp (optarg, "enhanced"))
  99         settings_set_syntax (ENHANCED);
 100       else
 101         /* TRANSLATORS: Leave the words `compatible' and `enhanced' in their
 102         original English. */
 103         error (1, 0,
 104                _("Syntax must be either `compatible' or `enhanced'."));
 105       break;
 106
 107     default:
 108       NOT_REACHED ();
 109     }
 110 }
 111
 112 void
 113 source_init_register_argv_parser (struct argv_parser *ap)
 114 {
 115   argv_parser_add_options (ap, source_init_options, N_SOURCE_INIT_OPTIONS,
 116                            source_init_option_callback, NULL);
 117 }