Mercurial > hg > octave-nkf

comparison src/pt-const.h @ 782:ffe18d3d64a6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-10-07 19:01:20 by jwe]
author jwe
date Fri, 07 Oct 1994 19:01:34 +0000
parents a2f9d3fd720c
children e8a677c3f042
comparison
equal deleted inserted replaced
781:ce19e27b6895 782:ffe18d3d64a6
154 154
155 tree_constant operator = (const tree_constant& a); 155 tree_constant operator = (const tree_constant& a);
156 156
157 // Indexed assignment. 157 // Indexed assignment.
158 158
159 tree_constant assign (const tree_constant& rhs, const Octave_object& args) 159 tree_constant assign (tree_constant& rhs, const Octave_object& args)
160 { 160 {
161 if (rep->count > 1) 161 if (rep->count > 1)
162 { 162 {
163 --rep->count; 163 --rep->count;
164 rep = new tree_constant_rep (*rep); 164 rep = new tree_constant_rep (*rep);
168 return *this; 168 return *this;
169 } 169 }
170 170
171 // Simple structure assignment. 171 // Simple structure assignment.
172 172
173 tree_constant assign_map_element (SLList<char*>& list, tree_constant& rhs); 173 tree_constant assign_map_element (SLList<char*>& list,
174 tree_constant& rhs);
174 175
175 // Indexed structure assignment. 176 // Indexed structure assignment.
176 177
177 tree_constant assign_map_element (SLList<char*>& list, tree_constant& rhs, 178 tree_constant assign_map_element (SLList<char*>& list,
179 tree_constant& rhs,
178 const Octave_object& args); 180 const Octave_object& args);
179 181
180 // Type. It would be nice to eliminate the need for this. 182 // Type. It would be nice to eliminate the need for this.
181 183
182 int is_constant (void) const { return 1; } 184 int is_constant (void) const { return 1; }