Remove old signal handlers when target widgets are destroyed
[pspp] / 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 }