Mercurial > hg > octave-lyh

comparison src/ov-typeinfo.cc @ 3196:3ac3e8edc258

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1998-10-28 23:04:39 by jwe]
author jwe
date Wed, 28 Oct 1998 23:11:11 +0000
parents 38de16594cb4
children bc61b0e8d60e
comparison
equal deleted inserted replaced
3195:7a5a5da64756 3196:3ac3e8edc258
96 return (instance_ok ()) 96 return (instance_ok ())
97 ? instance->do_register_assign_op (op, t_lhs, t_rhs, f) : -1; 97 ? instance->do_register_assign_op (op, t_lhs, t_rhs, f) : -1;
98 } 98 }
99 99
100 bool 100 bool
101 octave_value_typeinfo::register_assignany_op (octave_value::assign_op op,
102 int t_lhs, assign_op_fcn f)
103 {
104 return (instance_ok ())
105 ? instance->do_register_assignany_op (op, t_lhs, f) : -1;
106 }
107
108 bool
101 octave_value_typeinfo::register_pref_assign_conv (int t_lhs, int t_rhs, 109 octave_value_typeinfo::register_pref_assign_conv (int t_lhs, int t_rhs,
102 int t_result) 110 int t_result)
103 { 111 {
104 return (instance_ok ()) 112 return (instance_ok ())
105 ? instance->do_register_pref_assign_conv (t_lhs, t_rhs, t_result) : false; 113 ? instance->do_register_pref_assign_conv (t_lhs, t_rhs, t_result) : false;
134 len, len, static_cast<binary_op_fcn> (0)); 142 len, len, static_cast<binary_op_fcn> (0));
135 143
136 assign_ops.resize (static_cast<int> (octave_value::num_assign_ops), 144 assign_ops.resize (static_cast<int> (octave_value::num_assign_ops),
137 len, len, static_cast<assign_op_fcn> (0)); 145 len, len, static_cast<assign_op_fcn> (0));
138 146
147 assignany_ops.resize (static_cast<int> (octave_value::num_assign_ops),
148 len, static_cast<assign_op_fcn> (0));
149
139 pref_assign_conv.resize (len, len, -1); 150 pref_assign_conv.resize (len, len, -1);
140 151
141 widening_ops.resize (len, len, static_cast<type_conv_fcn> (0)); 152 widening_ops.resize (len, len, static_cast<type_conv_fcn> (0));
142 } 153 }
143 154
167 178
168 return false; 179 return false;
169 } 180 }
170 181
171 bool 182 bool
183 octave_value_typeinfo::do_register_assignany_op (octave_value::assign_op op,
184 int t_lhs, assign_op_fcn f)
185 {
186 assignany_ops.checkelem (static_cast<int> (op), t_lhs) = f;
187
188 return false;
189 }
190
191 bool
172 octave_value_typeinfo::do_register_pref_assign_conv (int t_lhs, int t_rhs, 192 octave_value_typeinfo::do_register_pref_assign_conv (int t_lhs, int t_rhs,
173 int t_result) 193 int t_result)
174 { 194 {
175 pref_assign_conv.checkelem (t_lhs, t_rhs) = t_result; 195 pref_assign_conv.checkelem (t_lhs, t_rhs) = t_result;
176 196
198 assign_op_fcn 218 assign_op_fcn
199 octave_value_typeinfo::do_lookup_assign_op (octave_value::assign_op op, 219 octave_value_typeinfo::do_lookup_assign_op (octave_value::assign_op op,
200 int t_lhs, int t_rhs) 220 int t_lhs, int t_rhs)
201 { 221 {
202 return assign_ops.checkelem (static_cast<int> (op), t_lhs, t_rhs); 222 return assign_ops.checkelem (static_cast<int> (op), t_lhs, t_rhs);
223 }
224
225 assign_op_fcn
226 octave_value_typeinfo::do_lookup_assignany_op (octave_value::assign_op op,
227 int t_lhs)
228 {
229 return assignany_ops.checkelem (static_cast<int> (op), t_lhs);
203 } 230 }
204 231
205 int 232 int
206 octave_value_typeinfo::do_lookup_pref_assign_conv (int t_lhs, int t_rhs) 233 octave_value_typeinfo::do_lookup_pref_assign_conv (int t_lhs, int t_rhs)
207 { 234 {