Mercurial > hg > octave-nkf

comparison src/parse.y @ 5189:85b315ad5f7d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-03-04 02:46:08 by jwe]
author jwe
date Fri, 04 Mar 2005 02:46:08 +0000
parents e7438487c857
children bd32f770c09a
comparison
equal deleted inserted replaced
5188:fd90c6df7d52 5189:85b315ad5f7d
127 // TRUE means we printed messages about reading startup files. 127 // TRUE means we printed messages about reading startup files.
128 bool reading_startup_message_printed = false; 128 bool reading_startup_message_printed = false;
129 129
130 // TRUE means input is coming from startup file. 130 // TRUE means input is coming from startup file.
131 bool input_from_startup_file = false; 131 bool input_from_startup_file = false;
132
133 // TRUE means that input is coming from a file that was named on
134 // the command line.
135 bool input_from_command_line_file = true;
136 132
137 // TRUE means that we are in the process of evaluating a function 133 // TRUE means that we are in the process of evaluating a function
138 // body. The parser might be called in that case if we are looking at 134 // body. The parser might be called in that case if we are looking at
139 // an eval() statement. 135 // an eval() statement.
140 bool evaluating_function_body = false; 136 bool evaluating_function_body = false;
2852 unwind_protect::add (delete_input_buffer, new_buf); 2848 unwind_protect::add (delete_input_buffer, new_buf);
2853 2849
2854 switch_to_buffer (new_buf); 2850 switch_to_buffer (new_buf);
2855 2851
2856 unwind_protect_bool (line_editing); 2852 unwind_protect_bool (line_editing);
2857 unwind_protect_bool (input_from_command_line_file);
2858 unwind_protect_bool (get_input_from_eval_string); 2853 unwind_protect_bool (get_input_from_eval_string);
2859 unwind_protect_bool (parser_end_of_input); 2854 unwind_protect_bool (parser_end_of_input);
2860 2855
2861 line_editing = false; 2856 line_editing = false;
2862 input_from_command_line_file = false;
2863 get_input_from_eval_string = false; 2857 get_input_from_eval_string = false;
2864 parser_end_of_input = false; 2858 parser_end_of_input = false;
2865 2859
2866 unwind_protect_ptr (curr_sym_tab); 2860 unwind_protect_ptr (curr_sym_tab);
2867 2861
3251 unwind_protect::add (restore_command_history, 0); 3245 unwind_protect::add (restore_command_history, 0);
3252 3246
3253 unwind_protect_int (Vecho_executing_commands); 3247 unwind_protect_int (Vecho_executing_commands);
3254 unwind_protect_bool (Vsaving_history); 3248 unwind_protect_bool (Vsaving_history);
3255 unwind_protect_bool (reading_fcn_file); 3249 unwind_protect_bool (reading_fcn_file);
3256 unwind_protect_bool (input_from_command_line_file);
3257 unwind_protect_bool (get_input_from_eval_string); 3250 unwind_protect_bool (get_input_from_eval_string);
3258 unwind_protect_bool (parser_end_of_input); 3251 unwind_protect_bool (parser_end_of_input);
3259 3252
3260 Vecho_executing_commands = ECHO_OFF; 3253 Vecho_executing_commands = ECHO_OFF;
3261 Vsaving_history = false; 3254 Vsaving_history = false;
3262 reading_fcn_file = true; 3255 reading_fcn_file = true;
3263 input_from_command_line_file = false;
3264 get_input_from_eval_string = false; 3256 get_input_from_eval_string = false;
3265 parser_end_of_input = false; 3257 parser_end_of_input = false;
3266 3258
3267 YY_BUFFER_STATE old_buf = current_buffer (); 3259 YY_BUFFER_STATE old_buf = current_buffer ();
3268 YY_BUFFER_STATE new_buf = create_buffer (ffile); 3260 YY_BUFFER_STATE new_buf = create_buffer (ffile);
3573 3565
3574 unwind_protect::begin_frame ("eval_string"); 3566 unwind_protect::begin_frame ("eval_string");
3575 3567
3576 unwind_protect_bool (get_input_from_eval_string); 3568 unwind_protect_bool (get_input_from_eval_string);
3577 unwind_protect_bool (input_from_eval_string_pending); 3569 unwind_protect_bool (input_from_eval_string_pending);
3578 unwind_protect_bool (input_from_command_line_file);
3579 unwind_protect_bool (parser_end_of_input); 3570 unwind_protect_bool (parser_end_of_input);
3571 unwind_protect_bool (line_editing);
3580 unwind_protect_str (current_eval_string); 3572 unwind_protect_str (current_eval_string);
3581 3573
3582 get_input_from_eval_string = true; 3574 get_input_from_eval_string = true;
3583 input_from_eval_string_pending = true; 3575 input_from_eval_string_pending = true;
3584 input_from_command_line_file = false;
3585 parser_end_of_input = false; 3576 parser_end_of_input = false;
3577 line_editing = false;
3578
3586 current_eval_string = s; 3579 current_eval_string = s;
3587 3580
3588 unwind_protect_ptr (global_command); 3581 unwind_protect_ptr (global_command);
3589 3582
3590 YY_BUFFER_STATE old_buf = current_buffer (); 3583 YY_BUFFER_STATE old_buf = current_buffer ();