Mercurial > octave
comparison src/pt-mvr.h @ 2942:026f342c2019
[project @ 1997-05-08 02:20:57 by jwe]
author | jwe |
---|---|
date | Thu, 08 May 1997 02:28:50 +0000 |
parents | 55cca18e943a |
children | 194b50e4725b |
comparison
equal
deleted
inserted
replaced
2941:b779a5b8aed4 | 2942:026f342c2019 |
---|---|
37 | 37 |
38 class tree_walker; | 38 class tree_walker; |
39 | 39 |
40 #include <string> | 40 #include <string> |
41 | 41 |
42 #include "str-vec.h" | |
43 | |
42 #include "pt-mvr-base.h" | 44 #include "pt-mvr-base.h" |
43 #include "oct-obj.h" | 45 #include "oct-obj.h" |
44 | 46 |
45 // Used internally. | 47 // Used internally. |
46 | 48 |
56 | 58 |
57 ~tree_oct_obj (void) { } | 59 ~tree_oct_obj (void) { } |
58 | 60 |
59 octave_value eval (bool print = false); | 61 octave_value eval (bool print = false); |
60 | 62 |
61 octave_value_list eval (bool print, int nargout, | 63 octave_value_list |
62 const octave_value_list& args); | 64 eval (bool print, int nargout, const octave_value_list& args); |
63 | 65 |
64 void accept (tree_walker& tw); | 66 void accept (tree_walker& tw); |
65 | 67 |
66 private: | 68 private: |
67 | 69 |
96 { return true; } | 98 { return true; } |
97 | 99 |
98 tree_indirect_ref *ident (void) | 100 tree_indirect_ref *ident (void) |
99 { return id; } | 101 { return id; } |
100 | 102 |
101 string name (void); | 103 string name (void) const; |
102 | 104 |
103 tree_argument_list *arg_list (void) | 105 tree_argument_list *arg_list (void) |
104 { return list; } | 106 { return list; } |
105 | 107 |
106 void mark_for_possible_ans_assign (void); | 108 void mark_for_possible_ans_assign (void); |
107 | 109 |
108 octave_value eval (bool print = false); | 110 octave_value eval (bool print = false); |
109 | 111 |
110 octave_value_list eval (bool print, int nargout, const octave_value_list& args); | 112 octave_value_list |
113 eval (bool print, int nargout, const octave_value_list& args); | |
111 | 114 |
112 void eval_error (void); | 115 void eval_error (void); |
113 | 116 |
114 void accept (tree_walker& tw); | 117 void accept (tree_walker& tw); |
115 | 118 |
116 private: | 119 private: |
117 | 120 |
118 tree_indirect_ref *id; | 121 tree_indirect_ref *id; |
119 | 122 |
120 tree_argument_list *list; | 123 tree_argument_list *list; |
124 | |
125 string_vector arg_nm; | |
121 }; | 126 }; |
122 | 127 |
123 // Multi-valued assignment expressions. | 128 // Multi-valued assignment expressions. |
124 | 129 |
125 class | 130 class |
140 | 145 |
141 ~tree_multi_assignment_expression (void); | 146 ~tree_multi_assignment_expression (void); |
142 | 147 |
143 octave_value eval (bool print = false); | 148 octave_value eval (bool print = false); |
144 | 149 |
145 octave_value_list eval (bool print, int nargout, const octave_value_list& args); | 150 octave_value_list |
151 eval (bool print, int nargout, const octave_value_list& args); | |
146 | 152 |
147 bool is_assignment_expression (void) const | 153 bool is_assignment_expression (void) const |
148 { return true; } | 154 { return true; } |
149 | 155 |
150 void eval_error (void); | 156 void eval_error (void); |