1 /* PSPP - computes sample statistics.
2 Copyright (C) 1997-9, 2000 Free Software Foundation, Inc.
3 Written by Ben Pfaff <blp@gnu.org>.
5 This program is free software; you can redistribute it and/or
6 modify it under the terms of the GNU General Public License as
7 published by the Free Software Foundation; either version 2 of the
8 License, or (at your option) any later version.
10 This program is distributed in the hope that it will be useful, but
11 WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, write to the Free Software
17 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
42 static void usage (void);
44 char *subst_vars (char *);
46 static int testing_mode=0;
48 /* Parses the command line specified by ARGC and ARGV as received by
51 parse_command_line (int argc, char **argv)
53 static struct option long_options[] =
55 {"algorithm", required_argument, NULL, 'a'},
56 {"command", required_argument, NULL, 'c'},
57 {"config-directory", required_argument, NULL, 'B'},
58 {"device", required_argument, NULL, 'o'},
59 {"dry-run", no_argument, NULL, 'n'},
60 {"edit", no_argument, NULL, 'n'},
61 {"help", no_argument, NULL, 'h'},
62 {"include-directory", required_argument, NULL, 'I'},
63 {"interactive", no_argument, NULL, 'i'},
64 {"just-print", no_argument, NULL, 'n'},
65 {"list", no_argument, NULL, 'l'},
66 {"no-include", no_argument, NULL, 'I'},
67 {"no-statrc", no_argument, NULL, 'r'},
68 {"out-file", required_argument, NULL, 'f'},
69 {"pipe", no_argument, NULL, 'p'},
70 {"recon", no_argument, NULL, 'n'},
71 {"safer", no_argument, NULL, 's'},
72 {"syntax", required_argument, NULL, 'x'},
73 {"testing-mode", no_argument, &testing_mode, 1},
74 {"verbose", no_argument, NULL, 'v'},
75 {"version", no_argument, NULL, 'V'},
81 int cleared_device_defaults = 0;
87 c = getopt_long (argc, argv, "a:x:B:c:f:hiI:lno:prsvV", long_options, NULL);
93 /* Compatibility options */
95 if ( 0 == strcmp(optarg,"compatible") )
96 set_algorithm(COMPATIBLE);
97 else if ( 0 == strcmp(optarg,"enhanced"))
98 set_algorithm(ENHANCED);
107 if ( 0 == strcmp(optarg,"compatible") )
108 set_syntax(COMPATIBLE);
109 else if ( 0 == strcmp(optarg,"enhanced"))
110 set_syntax(ENHANCED);
122 struct getl_script *script = xmalloc (sizeof *script);
125 struct getl_line_list *line;
127 script->first_line = line = xmalloc (sizeof *line);
128 line->line = xstrdup ("commandline");
129 line->len = --n_cmds;
130 line = line->next = xmalloc (sizeof *line);
131 line->line = xstrdup (optarg);
132 line->len = strlen (optarg);
136 getl_add_virtual_file (script);
140 config_path = optarg;
143 printf(_("%s is not yet implemented."), "-f");
150 getl_interactive = 2;
153 if (optarg == NULL || !strcmp (optarg, "-"))
154 getl_clear_include_path ();
156 getl_add_include_dir (optarg);
159 outp_list_classes ();
162 printf (_("%s is not yet implemented."),"-n");
166 if (!cleared_device_defaults)
168 outp_configure_clear ();
169 cleared_device_defaults = 1;
171 outp_configure_add (optarg);
174 printf (_("%s is not yet implemented."),"-p");
203 /* FIXME: Later this option should do some other things, too. */
209 for (i = optind; i < argc; i++)
213 if (!strcmp (argv[i], "+"))
219 else if (strchr (argv[i], '='))
221 outp_configure_macro (argv[i]);
224 getl_add_file (argv[i], separate, 0);
227 getl_head->separate = 0;
229 if (getl_am_interactive)
230 getl_interactive = 1;
234 char *pspprc_fn = fn_search_path ("rc", config_path, NULL);
237 getl_add_file (pspprc_fn, 0, 1);
243 /* Message that describes PSPP command-line syntax. */
244 static const char pre_syntax_message[] =
245 N_("PSPP, a program for statistical analysis of sample data.\n"
246 "\nUsage: %s [OPTION]... FILE...\n"
247 "\nIf a long option shows an argument as mandatory, then it is mandatory\n"
248 "for the equivalent short option also. Similarly for optional arguments.\n"
250 " -a, --algorithm={compatible|enhanced}\n"
251 " set to `compatible' if you want output\n"
252 " calculated from broken algorithms\n"
253 " -B, --config-dir=DIR set configuration directory to DIR\n"
254 " -o, --device=DEVICE select output driver DEVICE and disable defaults\n"
255 " -d, --define=VAR[=VALUE] set environment variable VAR to VALUE, or empty\n"
256 " -u, --undef=VAR undefine environment variable VAR\n"
257 "\nInput and output:\n"
258 " -f, --out-file=FILE send output to FILE (overwritten)\n"
259 " -p, --pipe read script from stdin, send output to stdout\n"
260 " -I-, --no-include clear include path\n"
261 " -I, --include=DIR append DIR to include path\n"
262 " -c, --command=COMMAND execute COMMAND before .pspp/rc at startup\n"
263 "\nLanguage modifiers:\n"
264 " -i, --interactive interpret scripts in interactive mode\n"
265 " -n, --edit just check syntax; don't actually run the code\n"
266 " -r, --no-statrc disable execution of .pspp/rc at startup\n"
267 " -s, --safer don't allow some unsafe operations\n"
268 " -x, --syntax={compatible|enhanced}\n"
269 " set to `compatible' if you want only to accept\n"
270 " spss compatible syntax\n"
271 "\nInformative output:\n"
272 " -h, --help print this help, then exit\n"
273 " -l, --list print a list of known driver classes, then exit\n"
274 " -V, --version show PSPP version, then exit\n"
275 " -v, --verbose increments verbosity level\n"
276 "\nNon-option arguments:\n"
277 " FILE1 FILE2 run FILE1, clear the dictionary, run FILE2\n"
278 " FILE1 + FILE2 run FILE1 then FILE2 without clearing dictionary\n"
279 " KEY=VALUE overrides macros in output initialization file\n"
282 /* Message that describes PSPP command-line syntax, continued. */
283 static const char post_syntax_message[] = N_("\nReport bugs to <%s>.\n");
285 /* Writes a syntax description to stdout and terminates. */
289 printf (gettext (pre_syntax_message), pgmname);
290 outp_list_classes ();
291 printf (gettext (post_syntax_message),PACKAGE_BUGREPORT);