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         error (1, 0,
  75                _("Algorithm must be either `%s' or `%s'."), "compatible", "enhanced");
  76       break;
  77
  78     case OPT_INCLUDE:
  79       if (!strcmp (optarg, "-"))
  80         include_path_clear ();
  81       else
  82         include_path_add (optarg);
  83       break;
  84
  85     case OPT_NO_INCLUDE:
  86       include_path_clear ();
  87       break;
  88
  89     case OPT_SAFER:
  90       settings_set_safer_mode ();
  91       break;
  92
  93     case OPT_SYNTAX:
  94       if (!strcmp (optarg, "compatible") )
  95         settings_set_syntax (COMPATIBLE);
  96       else if (!strcmp (optarg, "enhanced"))
  97         settings_set_syntax (ENHANCED);
  98       else
  99         error (1, 0,
 100                _("Syntax must be either `%s' or `%s'."), "compatible", "enhanced");
 101       break;
 102
 103     default:
 104       NOT_REACHED ();
 105     }
 106 }
 107
 108 void
 109 source_init_register_argv_parser (struct argv_parser *ap)
 110 {
 111   argv_parser_add_options (ap, source_init_options, N_SOURCE_INIT_OPTIONS,
 112                            source_init_option_callback, NULL);
 113 }