X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fmain.c;h=4c216030726516b2d51a538b6a6e4f0f0266db67;hb=d781f450096059a2ae52da5749078e68661b9c91;hp=3b7687b2cede0bb7367d99dc3cc2d1153ac0d7bf;hpb=e132e968f80b02482422a14b6c0a20ce63ad1d09;p=pspp

diff --git a/src/main.c b/src/main.c
index 3b7687b2ce..4c21603072 100644
--- a/src/main.c
+++ b/src/main.c
@@ -28,6 +28,7 @@
 #include "glob.h"
 #include "lexer.h"
 #include "output.h"
+#include "settings.h"
 #include <signal.h>
 
 #include <stdlib.h>
@@ -55,13 +56,6 @@ void bug_handler(int sig);
    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
@@ -69,7 +63,7 @@ main (int argc, char **argv)
 {
   signal (SIGSEGV, bug_handler);
 
-  gsl_set_error_handler(err_handler_gsl);
+  gsl_set_error_handler_off();
 
   /* Initialization. */
   if (!outp_init ())
@@ -105,6 +99,7 @@ parse_script (void)
 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.
@@ -123,7 +118,12 @@ execute_command (void)
 
   /* 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
@@ -166,8 +166,11 @@ handle_error (int 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 (); 
+    }
 }