1 /* PSPPIRE - a graphical user interface for PSPP.
2 Copyright (C) 2008, 2010 Free Software Foundation
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.
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.
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/>. */
19 #include "terminal-opts.h"
26 #include "data/settings.h"
27 #include "language/lexer/include-path.h"
28 #include "libpspp/argv-parser.h"
29 #include "libpspp/assertion.h"
30 #include "libpspp/cast.h"
31 #include "libpspp/compiler.h"
32 #include "libpspp/llx.h"
33 #include "libpspp/str.h"
34 #include "libpspp/string-array.h"
35 #include "libpspp/string-map.h"
36 #include "libpspp/string-set.h"
37 #include "libpspp/version.h"
38 #include "output/driver.h"
39 #include "output/driver-provider.h"
40 #include "output/msglog.h"
43 #include "gl/localcharset.h"
44 #include "gl/progname.h"
45 #include "gl/version-etc.h"
46 #include "gl/xmemdup0.h"
47 #include "gl/xalloc.h"
50 #define _(msgid) gettext (msgid)
51 #define N_(msgid) msgid
55 struct string_map options; /* Output driver options. */
56 bool has_output_driver;
57 bool has_terminal_driver;
59 enum lex_syntax_mode *syntax_mode;
61 char **syntax_encoding;
80 static struct argv_option terminal_argv_options[N_TERMINAL_OPTIONS] =
82 {"testing-mode", 0, no_argument, OPT_TESTING_MODE},
83 {"error-file", 'e', required_argument, OPT_ERROR_FILE},
84 {"output", 'o', required_argument, OPT_OUTPUT},
85 {NULL, 'O', required_argument, OPT_OUTPUT_OPTION},
86 {"no-output", 0, no_argument, OPT_NO_OUTPUT},
87 {"batch", 'b', no_argument, OPT_BATCH},
88 {"interactive", 'i', no_argument, OPT_INTERACTIVE},
89 {"syntax-encoding", 0, required_argument, OPT_SYNTAX_ENCODING},
90 {"no-statrc", 'r', no_argument, OPT_NO_STATRC},
91 {"help", 'h', no_argument, OPT_HELP},
92 {"version", 'V', no_argument, OPT_VERSION},
96 register_output_driver (struct terminal_opts *to)
98 if (!string_map_is_empty (&to->options))
100 struct output_driver *driver;
102 driver = output_driver_create (&to->options);
105 output_driver_register (driver);
107 to->has_output_driver = true;
108 if (driver->device_type == SETTINGS_DEVICE_TERMINAL)
109 to->has_terminal_driver = true;
111 string_map_clear (&to->options);
116 get_supported_formats (void)
118 const struct string_set_node *node;
119 struct string_array format_array;
120 struct string_set format_set;
124 /* Get supported formats as unordered set. */
125 string_set_init (&format_set);
126 output_get_supported_formats (&format_set);
128 /* Converted supported formats to sorted array. */
129 string_array_init (&format_array);
130 STRING_SET_FOR_EACH (format, node, &format_set)
131 string_array_append (&format_array, format);
132 string_array_sort (&format_array);
133 string_set_destroy (&format_set);
135 /* Converted supported formats to string. */
136 format_string = string_array_join (&format_array, " ");
137 string_array_destroy (&format_array);
138 return format_string;
144 char *supported_formats = get_supported_formats ();
145 char *inc_path = string_array_join (include_path_default (), " ");
148 PSPP, a program for statistical analysis of sampled data.\n\
149 Usage: %s [OPTION]... FILE...\n\
151 Arguments to long options also apply to equivalent short options.\n\
154 -o, --output=FILE output to FILE, default format from FILE's name\n\
155 -O format=FORMAT override format for previous -o\n\
156 -O OPTION=VALUE set output option to customize previous -o\n\
157 -O device={terminal|listing} override device type for previous -o\n\
158 -e, --error-file=FILE append errors, warnings, and notes to FILE\n\
159 --no-output disable default output driver\n\
160 Supported output formats: %s\n\
163 -I, --include=DIR append DIR to search path\n\
164 -I-, --no-include clear search path\n\
165 -r, --no-statrc disable running rc file at startup\n\
166 -a, --algorithm={compatible|enhanced}\n\
167 set to `compatible' if you want output\n\
168 calculated from broken algorithms\n\
169 -x, --syntax={compatible|enhanced}\n\
170 set to `compatible' to disable PSPP extensions\n\
171 -b, --batch interpret syntax in batch mode\n\
172 -i, --interactive interpret syntax in interactive mode\n\
173 --syntax-encoding=ENCODING specify encoding for syntax files\n\
174 -s, --safer don't allow some unsafe operations\n\
175 Default search path: %s\n\
177 Informative output:\n\
178 -h, --help display this help and exit\n\
179 -V, --version output version information and exit\n\
181 Non-option arguments are interpreted as syntax files to execute.\n"),
182 program_name, supported_formats, inc_path);
184 free (supported_formats);
187 emit_bug_reporting_address ();
192 terminal_option_callback (int id, void *to_)
194 struct terminal_opts *to = to_;
198 case OPT_TESTING_MODE:
199 settings_set_testing_mode (true);
203 if (!strcmp (optarg, "none") || msglog_create (optarg))
204 to->has_error_file = true;
208 register_output_driver (to);
209 string_map_insert (&to->options, "output-file", optarg);
212 case OPT_OUTPUT_OPTION:
213 output_driver_parse_option (optarg, &to->options);
217 /* Pretend that we already have an output driver, which disables adding
218 one in terminal_opts_done() when we don't already have one. */
219 to->has_output_driver = true;
223 *to->syntax_mode = LEX_SYNTAX_BATCH;
226 case OPT_INTERACTIVE:
227 *to->syntax_mode = LEX_SYNTAX_INTERACTIVE;
230 case OPT_SYNTAX_ENCODING:
231 *to->syntax_encoding = optarg;
235 *to->process_statrc = false;
243 version_etc (stdout, "pspp", PACKAGE_NAME, PACKAGE_VERSION,
244 "Ben Pfaff", "John Darrington", "Jason Stover",
253 struct terminal_opts *
254 terminal_opts_init (struct argv_parser *ap,
255 enum lex_syntax_mode *syntax_mode, bool *process_statrc,
256 char **syntax_encoding)
258 struct terminal_opts *to;
260 *syntax_mode = LEX_SYNTAX_AUTO;
261 *process_statrc = true;
262 *syntax_encoding = "Auto";
264 to = xzalloc (sizeof *to);
265 to->syntax_mode = syntax_mode;
266 string_map_init (&to->options);
267 to->has_output_driver = false;
268 to->has_error_file = false;
269 to->syntax_mode = syntax_mode;
270 to->process_statrc = process_statrc;
271 to->syntax_encoding = syntax_encoding;
273 argv_parser_add_options (ap, terminal_argv_options, N_TERMINAL_OPTIONS,
274 terminal_option_callback, to);
279 terminal_opts_done (struct terminal_opts *to, int argc, char *argv[])
281 register_output_driver (to);
282 if (!to->has_output_driver)
284 string_map_insert (&to->options, "output-file", "-");
285 string_map_insert (&to->options, "format", "txt");
286 register_output_driver (to);
289 if (!to->has_terminal_driver && !to->has_error_file)
292 string_map_destroy (&to->options);