Mercurial > hg > octave-lojdl
diff src/octave.cc @ 287:6027a905fc06
[project @ 1994-01-13 01:41:00 by jwe]
author | jwe |
---|---|
date | Thu, 13 Jan 1994 01:42:10 +0000 (1994-01-13) |
parents | 79a1403b8b6e |
children | 5325afdb0ef5 |
line wrap: on
line diff
--- a/src/octave.cc +++ b/src/octave.cc @@ -128,6 +128,9 @@ extern one_arg_error_handler_t set_Complex_error_handler (one_arg_error_handler_t f); +// This is from readline's paren.c: +extern int rl_blink_matching_paren; + static void octave_Complex_error_handler (const char* msg) { @@ -324,8 +327,6 @@ << " file : execute commands from named file\n" << "\n"; - cout.flush (); - exit (1); } @@ -473,7 +474,10 @@ if (infile == (FILE *) NULL) clean_up_and_exit (1); else - switch_to_buffer (create_buffer (infile)); + { + rl_blink_matching_paren = 0; + switch_to_buffer (create_buffer (infile)); + } } else { @@ -489,7 +493,10 @@ // has forced interactive behavior. if (!interactive && forced_interactive) - echo_input = 1; + { + rl_blink_matching_paren = 0; + echo_input = 1; + } if (! (interactive || forced_interactive)) using_readline = 0; @@ -502,7 +509,7 @@ << ". Copyright (C) 1992, 1993, 1994 John W. Eaton.\n" << "This is free software with ABSOLUTELY NO WARRANTY.\n" << "For details, type `warranty'.\n" - << "\n"; + << endl; } // Allow the user to interrupt us without exiting. @@ -525,8 +532,12 @@ int retval; do { + curr_sym_tab = top_level_sym_tab; + reset_parser (); + retval = yyparse (); + if (retval == 0 && global_command != NULL_TREE) { global_command->eval (1);