02111-1307, USA. */
#include <config.h>
-#include "main.h"
-#include <assert.h>
#include <stdio.h>
+#include <gsl/gsl_errno.h>
+#include "main.h"
#include "cmdline.h"
#include "command.h"
#include "error.h"
#include "glob.h"
#include "lexer.h"
#include "output.h"
-#include "version.h"
+#include "settings.h"
#include <signal.h>
#include <stdlib.h>
we hit end-of-file unexpectedly (or whatever). */
int start_interactive;
+
/* Program entry point. */
int
main (int argc, char **argv)
{
signal (SIGSEGV, bug_handler);
+ gsl_set_error_handler_off();
+
/* Initialization. */
if (!outp_init ())
err_hcf (0);
msg (FE, _("Error initializing output drivers."));
lex_init ();
- cmd_init ();
/* Execution. */
parse_script ();
static int
execute_command (void)
{
+ int result;
/* Read the command's first token.
We may hit end of file.
If so, give the line reader a chance to proceed to the next file.
/* Parse the command. */
getl_prompt = GETL_PRPT_CONTINUATION;
- return cmd_parse ();
+ result = cmd_parse ();
+
+ /* Unset the /ALGORITHM subcommand if it was used */
+ unset_cmd_algorithm ();
+
+ return result;
}
/* Print an error message corresponding to the command return code
while (token != T_STOP && token != '.')
lex_get ();
}
- else
- lex_discard_line ();
+ else
+ {
+ msg (SW, _("The rest of this command has been discarded."));
+ lex_discard_line ();
+ }
}
void
bug_handler(int sig UNUSED)
{
- fprintf(stderr,
- "******************************************************************\n"
- "You have discovered a bug in PSPP.\n\n"
- " Please report this, by sending "
- "an email to " PACKAGE_BUGREPORT ",\n"
- "explaining what you were doing when this happened, and including\n"
- "a sample of your input file which caused it.\n");
-
- fprintf(stderr,
- "Also, please copy the following lines into your bug report:\n\n"
- "bare_version: %s\n"
- "version: %s\n"
- "stat_version: %s\n"
- "host_system: %s\n"
- "build_system: %s\n"
- "default_config_path: %s\n"
- "include_path: %s\n"
- "groff_font_path: %s\n"
- "locale_dir: %s\n"
- "******************************************************************\n",
- bare_version,
- version,
- stat_version,
- host_system,
- build_system,
- default_config_path,
- include_path,
- groff_font_path,
- locale_dir);
-
- exit(-1);
+ request_bug_report_and_abort("Segmentation Violation");
}
-