GNU Octave  3.8.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Properties Friends Macros Pages
pt-cmd.h
Go to the documentation of this file.
1 /*
2 
3 Copyright (C) 1994-2013 John W. Eaton
4 
5 This file is part of Octave.
6 
7 Octave is free software; you can redistribute it and/or modify it
8 under the terms of the GNU General Public License as published by the
9 Free Software Foundation; either version 3 of the License, or (at your
10 option) any later version.
11 
12 Octave is distributed in the hope that it will be useful, but WITHOUT
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
15 for more details.
16 
17 You should have received a copy of the GNU General Public License
18 along with Octave; see the file COPYING. If not, see
19 <http://www.gnu.org/licenses/>.
20 
21 */
22 
23 #if !defined (octave_pt_cmd_h)
24 #define octave_pt_cmd_h 1
25 
26 #include <string>
27 
28 class tree_walker;
29 
30 #include "ov-fcn.h"
31 #include "pt.h"
32 #include "pt-bp.h"
33 #include "symtab.h"
34 
35 // A base class for commands.
36 
37 class
38 tree_command : public tree
39 {
40 public:
41 
42  tree_command (int l = -1, int c = -1)
43  : tree (l, c) { }
44 
45  virtual ~tree_command (void) { }
46 
49 
50 private:
51 
52  // No copying!
53 
54  tree_command (const tree_command&);
55 
57 };
58 
59 // No-op.
60 
61 class
63 {
64 public:
65 
66  tree_no_op_command (const std::string& cmd = "no_op", bool e = false,
67  int l = -1, int c = -1)
68  : tree_command (l, c), eof (e), orig_cmd (cmd) { }
69 
71 
74 
75  void accept (tree_walker& tw);
76 
77  bool is_end_of_fcn_or_script (void) const
78  {
79  return (orig_cmd == "endfunction" || orig_cmd == "endscript");
80  }
81 
82  bool is_end_of_file (void) const { return eof; }
83 
84  std::string original_command (void) { return orig_cmd; }
85 
86 private:
87 
88  bool eof;
89 
90  std::string orig_cmd;
91 
92  // No copying!
93 
95 
97 };
98 
99 // Function definition.
100 
101 class
103 {
104 public:
105 
106  tree_function_def (octave_function *f, int l = -1, int c = -1)
107  : tree_command (l, c), fcn (f) { }
108 
110 
113 
114  void accept (tree_walker& tw);
115 
116  octave_value function (void) { return fcn; }
117 
118 private:
119 
121 
122  tree_function_def (const octave_value& v, int l = -1, int c = -1)
123  : tree_command (l, c), fcn (v) { }
124 
125  // No copying!
126 
128 
130 };
131 
132 #endif