/usr/include/octave-4.0.0/octave/pt-misc.h is in liboctave-dev 4.0.0-3ubuntu9.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 | /*
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
|