#include "glob.h"
#include "lexer.h"
#include "output.h"
+#include "settings.h"
#include <signal.h>
#include <stdlib.h>
we hit end-of-file unexpectedly (or whatever). */
int start_interactive;
-/* Initialise error handling on the gsl library */
-static void
-err_handler_gsl (const char *reason, const char *file,
- int line, int gsl_errno UNUSED)
-{
- msg(FE, _("gsl error at %s:%d; reason: \"%s\""), file,line,reason);
-}
/* Program entry point. */
int
{
signal (SIGSEGV, bug_handler);
- gsl_set_error_handler(err_handler_gsl);
+ gsl_set_error_handler_off();
/* Initialization. */
if (!outp_init ())
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 ();
+ }
}