Mercurial > octave-nkf
view libinterp/parse-tree/pt-misc.h @ 20651:e54ecb33727e
lo-array-gripes.cc: Remove FIXME's related to buffer size.
* lo-array-gripes.cc: Remove FIXME's related to buffer size. Shorten sprintf
buffers from 100 to 64 characters (still well more than 19 required).
Use 'const' decorator on constant value for clarity. Remove extra space
between variable and array bracket.
author | Rik <rik@octave.org> |
---|---|
date | Mon, 12 Oct 2015 21:13:47 -0700 |
parents | 4197fc428c7d |
children |
line wrap: on
line source
/* Copyright (C) 1994-2015 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 (octave_pt_misc_h) #define octave_pt_misc_h 1 class Cell; class octave_value; class octave_value_list; class tree_identifier; class tree_index_expression; class tree_va_return_list; class tree_walker; #include "base-list.h" #include "pt-decl.h" #include "symtab.h" // Parameter lists. Used to hold the list of input and output // parameters in a function definition. Elements are identifiers // only. class tree_parameter_list : public octave_base_list<tree_decl_elt *> { public: enum in_or_out { in = 1, out = 2 }; tree_parameter_list (void) : marked_for_varargs (0) { } tree_parameter_list (tree_decl_elt *t) : marked_for_varargs (0) { append (t); } tree_parameter_list (tree_identifier *id) : marked_for_varargs (0) { append (new tree_decl_elt (id)); } ~tree_parameter_list (void); void mark_as_formal_parameters (void); bool validate (in_or_out type); bool takes_varargs (void) const { return marked_for_varargs != 0; } bool varargs_only (void) { return (marked_for_varargs < 0); } void initialize_undefined_elements (const std::string& warnfor, int nargout, const octave_value& val); void define_from_arg_vector (const octave_value_list& args); void undefine (void); bool is_defined (void); std::list<std::string> variable_names (void) const; octave_value_list convert_to_const_vector (int nargout, const Cell& varargout); tree_parameter_list *dup (symbol_table::scope_id scope, symbol_table::context_id context) const; void accept (tree_walker& tw); private: int marked_for_varargs; void mark_varargs (void) { marked_for_varargs = 1; } void mark_varargs_only (void) { marked_for_varargs = -1; } // No copying! tree_parameter_list (const tree_parameter_list&); tree_parameter_list& operator = (const tree_parameter_list&); }; // Return lists. Used to hold the right hand sides of multiple // assignment expressions. class tree_return_list : public octave_base_list<tree_index_expression *> { public: tree_return_list (void) { } tree_return_list (tree_index_expression *t) { append (t); } ~tree_return_list (void); tree_return_list *dup (symbol_table::scope_id scope, symbol_table::context_id context) const; void accept (tree_walker& tw); private: // No copying! tree_return_list (const tree_return_list&); tree_return_list& operator = (const tree_return_list&); }; class tree_va_return_list : public octave_base_list<octave_value> { public: tree_va_return_list (void) { } ~tree_va_return_list (void) { } private: // No copying! tree_va_return_list (const tree_va_return_list&); tree_va_return_list& operator = (const tree_va_return_list&); }; #endif