/usr/include/octave-4.2.2/octave/pt-cmd.h is in liboctave-dev 4.2.2-1ubuntu1.
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 | /*
Copyright (C) 1994-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 (octave_pt_cmd_h)
#define octave_pt_cmd_h 1
#include "octave-config.h"
#include <string>
class tree_walker;
#include "ov-fcn.h"
#include "pt.h"
#include "pt-bp.h"
#include "symtab.h"
// A base class for commands.
class
tree_command : public tree
{
public:
tree_command (int l = -1, int c = -1)
: tree (l, c) { }
virtual ~tree_command (void) { }
virtual tree_command *dup (symbol_table::scope_id,
symbol_table::context_id context) const = 0;
private:
// No copying!
tree_command (const tree_command&);
tree_command& operator = (const tree_command&);
};
// No-op.
class
tree_no_op_command : public tree_command
{
public:
tree_no_op_command (const std::string& cmd = "no_op", bool e = false,
int l = -1, int c = -1)
: tree_command (l, c), eof (e), orig_cmd (cmd) { }
~tree_no_op_command (void) { }
tree_command *dup (symbol_table::scope_id scope,
symbol_table::context_id context) const;
void accept (tree_walker& tw);
bool is_end_of_fcn_or_script (void) const
{
return (orig_cmd == "endfunction" || orig_cmd == "endscript");
}
bool is_end_of_file (void) const { return eof; }
std::string original_command (void) { return orig_cmd; }
private:
bool eof;
std::string orig_cmd;
// No copying!
tree_no_op_command (const tree_no_op_command&);
tree_no_op_command& operator = (const tree_no_op_command&);
};
// Function definition.
class
tree_function_def : public tree_command
{
public:
tree_function_def (octave_function *f, int l = -1, int c = -1)
: tree_command (l, c), fcn (f) { }
~tree_function_def (void) { }
tree_command *dup (symbol_table::scope_id scope,
symbol_table::context_id context) const;
void accept (tree_walker& tw);
octave_value function (void) { return fcn; }
private:
octave_value fcn;
tree_function_def (const octave_value& v, int l = -1, int c = -1)
: tree_command (l, c), fcn (v) { }
// No copying!
tree_function_def (const tree_function_def&);
tree_function_def& operator = (const tree_function_def&);
};
#endif
|