Fixed bug in getl separation.
[pspp-builds.git] / src / command.c
index 4203ac32d0ea7f478ed1dd65a51bae61ed58f13a..a471f38e427e0085ee7da51ea764164d157668f2 100644 (file)
@@ -108,7 +108,7 @@ pspp_completion_function (const char *text,   int state)
 
       cmd = &commands[state + skip];
   
-      if ( cmd->transition[pgm_state] == STATE_ERROR || ( cmd->debug  &&  ! test_mode ) ) 
+      if ( cmd->transition[pgm_state] == STATE_ERROR || ( cmd->debug  &&  ! get_testing_mode () ) ) 
        {
          skip++; 
          continue;
@@ -554,7 +554,7 @@ parse_command_name (void)
             {
               if (command->skip_entire_name)
                 lex_get ();
-             if ( command->debug & !test_mode ) 
+             if ( command->debug & !get_testing_mode () ) 
                goto error;
               free_words (words, word_cnt);
               return command;
@@ -599,7 +599,7 @@ parse_command_name (void)
           free (words[word_cnt]);
         }
 
-      if ( command->debug && !test_mode ) 
+      if ( command->debug && !get_testing_mode () ) 
        goto error;
 
       free_words (words, word_cnt);
@@ -618,7 +618,7 @@ error:
 int
 cmd_exit (void)
 {
-  if (getl_reading_script)
+  if (getl_reading_script())
     {
       msg (SE, _("This command is not accepted in a syntax file.  "
           "Instead, use FINISH to terminate a syntax file."));
@@ -679,7 +679,7 @@ cmd_execute (void)
 int
 cmd_erase (void)
 {
-  if ( safer_mode() 
+  if (get_safer_mode ()
     { 
       msg (SE, _("This command not allowed when the SAFER option is set.")); 
       return CMD_FAILURE; 
@@ -739,7 +739,7 @@ shell (void)
        
        execl (shell_fn, shell_process, NULL);
 
-       err_hcf (1);
+       _exit (1);
       }
 
     case -1:
@@ -810,7 +810,7 @@ cmd_host (void)
 {
   int code;
 
-  if ( safer_mode() 
+  if (get_safer_mode ()
     { 
       msg (SE, _("This command not allowed when the SAFER option is set.")); 
       return CMD_FAILURE;