Mercurial > octave
view libinterp/parse-tree/pt-funcall.cc @ 24270:bc3819b7cca1
don't use symbol_table:: nesting for symbol_record, symbol_scope, or fcn_info
Change all uses of symbol_table::symbol_record to symbol_record.
Change all uses of symbol_table::scope to symbol_scope.
Change all uses of symbol_table::fcn_info to fcn_info.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Thu, 16 Nov 2017 21:43:47 -0500 |
parents | 01899bdd2a3a |
children | 194eb4bd202b |
line wrap: on
line source
/* Copyright (C) 2012-2017 John W. Eaton This file is part of Octave. Octave is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3 of the License, or (at your option) any later version. Octave is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with Octave; see the file COPYING. If not, see <http://www.gnu.org/licenses/>. */ #if defined (HAVE_CONFIG_H) # include "config.h" #endif #include "ov-fcn.h" #include "pt-funcall.h" #include "pt-walk.h" namespace octave { // Function call objects. void tree_funcall::print (std::ostream& os, bool pr_as_read_syntax, bool pr_orig_text) { print_raw (os, pr_as_read_syntax, pr_orig_text); } void tree_funcall::print_raw (std::ostream& os, bool pr_as_read_syntax, bool pr_orig_text) { if (pr_orig_text) { os << original_text (); } else { octave_function *fp = fcn.function_value (); std::string nm = (fp ? fp->name () : "<invalid-function>"); os << nm << " ("; octave_idx_type n = args.length (); for (octave_idx_type i = 0; i < n; i++) { args(i).print_raw (os, pr_as_read_syntax); if (i < n - 1) os << ", "; } os << ')'; } } tree_funcall * tree_funcall::dup (symbol_scope&) const { tree_funcall *new_fc = new tree_funcall (fcn, args, line (), column ()); new_fc->copy_base (*new_fc); return new_fc; } }