Mercurial > hg > octave-lojdl
changeset 15606:fb9dffe5fbfb
The silent_functions flag no longer modifies the parse tree
* pt-assign.cc (tree_simple_assignment::rvalue1, tree_multi_assignment::rvalue):
Check tree_evaluator::statement_printing_enabled.
* pt-eval.cc (tree_evaluator::statement_printing_enabled): New function.
(tree_evaluator::visit_statement): Do not modify parse tree and check
tree_evaluator::statement_printing_enabled.
* pt-eval.h (tree_evaluator::statement_printing_enabled): New declaration.
* pt-exp.h (tree_expression::print_result): Added comment.
* pt-id.cc (tree_identifier::rvalue): Check
tree_evaluator::statement_printing_enabled.
author | Max Brister <max@2bass.com> |
---|---|
date | Fri, 09 Nov 2012 20:29:21 -0700 |
parents | 80a4ded6b89c |
children | c9c79d4a0a00 89c8d8f8f87b |
files | libinterp/parse-tree/pt-assign.cc libinterp/parse-tree/pt-eval.cc libinterp/parse-tree/pt-eval.h libinterp/parse-tree/pt-exp.h libinterp/parse-tree/pt-id.cc |
diffstat | 5 files changed, 22 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/libinterp/parse-tree/pt-assign.cc +++ b/libinterp/parse-tree/pt-assign.cc @@ -38,6 +38,7 @@ #include "pt-arg-list.h" #include "pt-bp.h" #include "pt-assign.h" +#include "pt-eval.h" #include "pt-walk.h" #include "utils.h" #include "variables.h" @@ -247,7 +248,8 @@ else retval = ult.value (); - if (print_result ()) + if (print_result () + && tree_evaluator::statement_printing_enabled ()) { // We clear any index here so that we can // get the new value of the referenced @@ -459,7 +461,8 @@ if (error_state) break; - else if (print_result ()) + else if (print_result () + && tree_evaluator::statement_printing_enabled ()) { // We clear any index here so that we can get // the new value of the referenced object below,
--- a/libinterp/parse-tree/pt-eval.cc +++ b/libinterp/parse-tree/pt-eval.cc @@ -132,6 +132,13 @@ dbstep_flag = 0; } +bool +tree_evaluator::statement_printing_enabled (void) +{ + return ! (Vsilent_functions && (statement_context == function + || statement_context == script)); +} + static inline void do_global_init (tree_decl_elt& elt) { @@ -717,10 +724,6 @@ if (debug_mode) do_breakpoint (expr->is_breakpoint ()); - if ((statement_context == function || statement_context == script) - && Vsilent_functions) - expr->set_print_flag (false); - // FIXME -- maybe all of this should be packaged in // one virtual function that returns a flag saying whether // or not the expression will take care of binding ans and @@ -744,7 +747,8 @@ octave_value tmp_result = expr->rvalue1 (0); if (do_bind_ans && ! (error_state || tmp_result.is_undefined ())) - bind_ans (tmp_result, expr->print_result ()); + bind_ans (tmp_result, expr->print_result () + && statement_printing_enabled ()); // if (tmp_result.is_defined ()) // result_values(0) = tmp_result;
--- a/libinterp/parse-tree/pt-eval.h +++ b/libinterp/parse-tree/pt-eval.h @@ -136,6 +136,8 @@ static void reset_debug_state (void); + static bool statement_printing_enabled (void); + // If > 0, stop executing at the (N-1)th stopping point, counting // from the the current execution point in the current frame. //
--- a/libinterp/parse-tree/pt-exp.h +++ b/libinterp/parse-tree/pt-exp.h @@ -87,6 +87,9 @@ bool is_postfix_indexed (void) const { return postfix_indexed; } + // Check if the result of the expression should be printed. + // Should normally be used in conjunction with + // tree_evaluator::statement_printing_enabled. bool print_result (void) const { return print_flag; } virtual std::string oper (void) const { return "<unknown>"; }
--- a/libinterp/parse-tree/pt-id.cc +++ b/libinterp/parse-tree/pt-id.cc @@ -30,6 +30,7 @@ #include "pager.h" #include "pt-bp.h" #include "pt-const.h" +#include "pt-eval.h" #include "pt-id.h" #include "pt-walk.h" #include "symtab.h" @@ -88,7 +89,8 @@ } else { - if (print_result () && nargout == 0) + if (print_result () && nargout == 0 + && tree_evaluator::statement_printing_enabled ()) val.print_with_name (octave_stdout, name ()); retval = val;