Mercurial > hg > octave-nkf
annotate src/ov-typeinfo.h @ 11570:57632dea2446
attempt better backward compatibility for Array constructors
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Wed, 19 Jan 2011 17:55:56 -0500 |
| parents | fd0a3ac60b0e |
| children | 7dd7cccf0757 |
| rev | line source |
|---|---|
| 2376 | 1 /* |
| 2 | |
| 11523 | 3 Copyright (C) 1996-2011 John W. Eaton |
| 2376 | 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 | |
| 7016 | 9 Free Software Foundation; either version 3 of the License, or (at your |
| 10 option) any later version. | |
| 2376 | 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 | |
| 7016 | 18 along with Octave; see the file COPYING. If not, see |
| 19 <http://www.gnu.org/licenses/>. | |
| 2376 | 20 |
| 21 */ | |
| 22 | |
| 23 #if !defined (octave_value_typeinfo_h) | |
| 24 #define octave_value_typeinfo_h 1 | |
| 25 | |
| 26 #include <string> | |
| 27 | |
| 28 #include "Array.h" | |
| 29 | |
| 30 #include "ov.h" | |
| 31 | |
| 32 class string_vector; | |
| 33 | |
| 34 class | |
| 6109 | 35 OCTINTERP_API |
| 2376 | 36 octave_value_typeinfo |
| 37 { | |
| 38 public: | |
| 39 | |
| 7336 | 40 typedef octave_value (*unary_class_op_fcn) (const octave_value&); |
| 41 | |
| 5759 | 42 typedef octave_value (*unary_op_fcn) (const octave_base_value&); |
| 43 | |
| 44 typedef void (*non_const_unary_op_fcn) (octave_base_value&); | |
| 45 | |
| 7336 | 46 typedef octave_value (*binary_class_op_fcn) |
| 47 (const octave_value&, const octave_value&); | |
| 48 | |
| 5759 | 49 typedef octave_value (*binary_op_fcn) |
| 50 (const octave_base_value&, const octave_base_value&); | |
| 51 | |
| 52 typedef octave_value (*cat_op_fcn) | |
|
11570
57632dea2446
attempt better backward compatibility for Array constructors
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
53 (octave_base_value&, const octave_base_value&, |
|
57632dea2446
attempt better backward compatibility for Array constructors
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
54 const Array<octave_idx_type>& ra_idx); |
| 5759 | 55 |
| 56 typedef octave_value (*assign_op_fcn) | |
| 57 (octave_base_value&, const octave_value_list&, const octave_base_value&); | |
| 58 | |
| 59 typedef octave_value (*assignany_op_fcn) | |
| 60 (octave_base_value&, const octave_value_list&, const octave_value&); | |
| 61 | |
| 2926 | 62 static bool instance_ok (void); |
| 63 | |
| 4640 | 64 static int register_type (const std::string&, const std::string&, |
| 10313 | 65 const octave_value&); |
| 2376 | 66 |
| 7336 | 67 static bool register_unary_class_op (octave_value::unary_op, |
| 10313 | 68 unary_class_op_fcn); |
| 7336 | 69 |
| 3203 | 70 static bool register_unary_op (octave_value::unary_op, int, unary_op_fcn); |
| 71 | |
| 72 static bool register_non_const_unary_op (octave_value::unary_op, int, | |
| 10313 | 73 non_const_unary_op_fcn); |
| 3203 | 74 |
| 7336 | 75 static bool register_binary_class_op (octave_value::binary_op, |
| 10313 | 76 binary_class_op_fcn); |
| 7336 | 77 |
| 2376 | 78 static bool register_binary_op (octave_value::binary_op, int, int, |
| 10313 | 79 binary_op_fcn); |
| 2376 | 80 |
|
7800
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
81 static bool register_binary_class_op (octave_value::compound_binary_op, |
| 10313 | 82 binary_class_op_fcn); |
|
7800
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
83 |
|
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
84 static bool register_binary_op (octave_value::compound_binary_op, int, int, |
| 10313 | 85 binary_op_fcn); |
|
7800
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
86 |
| 4915 | 87 static bool register_cat_op (int, int, cat_op_fcn); |
| 88 | |
| 2882 | 89 static bool register_assign_op (octave_value::assign_op, int, int, |
| 10313 | 90 assign_op_fcn); |
| 2376 | 91 |
| 3196 | 92 static bool register_assignany_op (octave_value::assign_op, int, |
| 10313 | 93 assignany_op_fcn); |
| 3196 | 94 |
| 2376 | 95 static bool register_pref_assign_conv (int, int, int); |
| 96 | |
| 5759 | 97 static bool |
| 98 register_type_conv_op (int, int, octave_base_value::type_conv_fcn); | |
| 4901 | 99 |
| 5759 | 100 static bool |
| 101 register_widening_op (int, int, octave_base_value::type_conv_fcn); | |
| 2376 | 102 |
| 4640 | 103 static octave_value |
| 104 lookup_type (const std::string& nm) | |
| 105 { | |
| 106 return instance->do_lookup_type (nm); | |
| 107 } | |
| 108 | |
| 7336 | 109 static unary_class_op_fcn |
| 110 lookup_unary_class_op (octave_value::unary_op op) | |
| 111 { | |
| 112 return instance->do_lookup_unary_class_op (op); | |
| 113 } | |
| 114 | |
| 3203 | 115 static unary_op_fcn |
| 116 lookup_unary_op (octave_value::unary_op op, int t) | |
| 117 { | |
| 118 return instance->do_lookup_unary_op (op, t); | |
| 119 } | |
| 120 | |
| 121 static non_const_unary_op_fcn | |
| 122 lookup_non_const_unary_op (octave_value::unary_op op, int t) | |
| 123 { | |
| 124 return instance->do_lookup_non_const_unary_op (op, t); | |
| 125 } | |
| 126 | |
| 7336 | 127 static binary_class_op_fcn |
| 128 lookup_binary_class_op (octave_value::binary_op op) | |
| 129 { | |
| 130 return instance->do_lookup_binary_class_op (op); | |
| 131 } | |
| 132 | |
| 2427 | 133 static binary_op_fcn |
| 2376 | 134 lookup_binary_op (octave_value::binary_op op, int t1, int t2) |
| 135 { | |
| 136 return instance->do_lookup_binary_op (op, t1, t2); | |
| 137 } | |
| 138 | |
|
7800
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
139 static binary_class_op_fcn |
|
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
140 lookup_binary_class_op (octave_value::compound_binary_op op) |
|
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
141 { |
|
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
142 return instance->do_lookup_binary_class_op (op); |
|
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
143 } |
|
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
144 |
|
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
145 static binary_op_fcn |
|
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
146 lookup_binary_op (octave_value::compound_binary_op op, int t1, int t2) |
|
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
147 { |
|
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
148 return instance->do_lookup_binary_op (op, t1, t2); |
|
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
149 } |
|
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
150 |
| 4915 | 151 static cat_op_fcn |
| 152 lookup_cat_op (int t1, int t2) | |
| 153 { | |
| 154 return instance->do_lookup_cat_op (t1, t2); | |
| 155 } | |
| 156 | |
| 2427 | 157 static assign_op_fcn |
| 2882 | 158 lookup_assign_op (octave_value::assign_op op, int t_lhs, int t_rhs) |
| 2376 | 159 { |
| 2882 | 160 return instance->do_lookup_assign_op (op, t_lhs, t_rhs); |
| 2376 | 161 } |
| 162 | |
| 5759 | 163 static assignany_op_fcn |
| 3196 | 164 lookup_assignany_op (octave_value::assign_op op, int t_lhs) |
| 165 { | |
| 166 return instance->do_lookup_assignany_op (op, t_lhs); | |
| 167 } | |
| 168 | |
| 2376 | 169 static int |
| 170 lookup_pref_assign_conv (int t_lhs, int t_rhs) | |
| 171 { | |
| 172 return instance->do_lookup_pref_assign_conv (t_lhs, t_rhs); | |
| 173 } | |
| 174 | |
| 5759 | 175 static octave_base_value::type_conv_fcn |
| 4901 | 176 lookup_type_conv_op (int t, int t_result) |
| 177 { | |
| 178 return instance->do_lookup_type_conv_op (t, t_result); | |
| 179 } | |
| 180 | |
| 5759 | 181 static octave_base_value::type_conv_fcn |
| 2376 | 182 lookup_widening_op (int t, int t_result) |
| 183 { | |
| 184 return instance->do_lookup_widening_op (t, t_result); | |
| 185 } | |
| 186 | |
| 187 static string_vector installed_type_names (void) | |
| 188 { | |
| 189 return instance->do_installed_type_names (); | |
| 190 } | |
| 191 | |
| 192 protected: | |
| 193 | |
| 194 octave_value_typeinfo (void) | |
|
11570
57632dea2446
attempt better backward compatibility for Array constructors
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
195 : num_types (0), types (dim_vector (init_tab_sz, 1), std::string ()), |
|
57632dea2446
attempt better backward compatibility for Array constructors
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
196 vals (dim_vector (init_tab_sz, 1)), |
|
57632dea2446
attempt better backward compatibility for Array constructors
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
197 unary_class_ops (dim_vector (octave_value::num_unary_ops, 1), 0), |
|
57632dea2446
attempt better backward compatibility for Array constructors
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
198 unary_ops (dim_vector (octave_value::num_unary_ops, init_tab_sz), 0), |
|
57632dea2446
attempt better backward compatibility for Array constructors
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
199 non_const_unary_ops (dim_vector (octave_value::num_unary_ops, init_tab_sz), 0), |
|
57632dea2446
attempt better backward compatibility for Array constructors
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
200 binary_class_ops (dim_vector (octave_value::num_binary_ops, 1), 0), |
|
57632dea2446
attempt better backward compatibility for Array constructors
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
201 binary_ops (dim_vector (octave_value::num_binary_ops, init_tab_sz, init_tab_sz), 0), |
|
57632dea2446
attempt better backward compatibility for Array constructors
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
202 compound_binary_class_ops (dim_vector (octave_value::num_compound_binary_ops, 1), 0), |
|
57632dea2446
attempt better backward compatibility for Array constructors
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
203 compound_binary_ops (dim_vector (octave_value::num_compound_binary_ops, init_tab_sz, init_tab_sz), 0), |
|
57632dea2446
attempt better backward compatibility for Array constructors
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
204 cat_ops (dim_vector (init_tab_sz, init_tab_sz), 0), |
|
57632dea2446
attempt better backward compatibility for Array constructors
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
205 assign_ops (dim_vector (octave_value::num_assign_ops, init_tab_sz, init_tab_sz), 0), |
|
57632dea2446
attempt better backward compatibility for Array constructors
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
206 assignany_ops (dim_vector (octave_value::num_assign_ops, init_tab_sz), 0), |
|
57632dea2446
attempt better backward compatibility for Array constructors
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
207 pref_assign_conv (dim_vector (init_tab_sz, init_tab_sz), -1), |
|
57632dea2446
attempt better backward compatibility for Array constructors
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
208 type_conv_ops (dim_vector (init_tab_sz, init_tab_sz), 0), |
|
57632dea2446
attempt better backward compatibility for Array constructors
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
209 widening_ops (dim_vector (init_tab_sz, init_tab_sz), 0) { } |
| 2376 | 210 |
| 211 private: | |
| 212 | |
| 2479 | 213 static const int init_tab_sz; |
| 214 | |
| 2376 | 215 static octave_value_typeinfo *instance; |
| 216 | |
| 217 int num_types; | |
| 218 | |
| 3523 | 219 Array<std::string> types; |
| 2376 | 220 |
| 4640 | 221 Array<octave_value> vals; |
| 222 | |
|
9223
902a4597dce8
use Array<void *> in ov-typeinfo.h
Jaroslav Hajek <highegg@gmail.com>
parents:
8920
diff
changeset
|
223 Array<void *> unary_class_ops; |
| 7336 | 224 |
| 10352 | 225 Array<void *> unary_ops; |
| 3203 | 226 |
| 10352 | 227 Array<void *> non_const_unary_ops; |
| 3203 | 228 |
|
9223
902a4597dce8
use Array<void *> in ov-typeinfo.h
Jaroslav Hajek <highegg@gmail.com>
parents:
8920
diff
changeset
|
229 Array<void *> binary_class_ops; |
| 7336 | 230 |
|
11570
57632dea2446
attempt better backward compatibility for Array constructors
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
231 Array<void *> binary_ops; |
| 2376 | 232 |
|
9223
902a4597dce8
use Array<void *> in ov-typeinfo.h
Jaroslav Hajek <highegg@gmail.com>
parents:
8920
diff
changeset
|
233 Array<void *> compound_binary_class_ops; |
|
7800
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
234 |
|
11570
57632dea2446
attempt better backward compatibility for Array constructors
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
235 Array<void *> compound_binary_ops; |
|
7800
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
236 |
| 10352 | 237 Array<void *> cat_ops; |
| 4915 | 238 |
|
11570
57632dea2446
attempt better backward compatibility for Array constructors
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
239 Array<void *> assign_ops; |
| 2376 | 240 |
| 10352 | 241 Array<void *> assignany_ops; |
| 3196 | 242 |
| 10352 | 243 Array<int> pref_assign_conv; |
| 2376 | 244 |
| 10352 | 245 Array<void *> type_conv_ops; |
| 4901 | 246 |
| 10352 | 247 Array<void *> widening_ops; |
| 2376 | 248 |
| 4640 | 249 int do_register_type (const std::string&, const std::string&, |
| 10313 | 250 const octave_value&); |
| 2376 | 251 |
| 7336 | 252 bool do_register_unary_class_op (octave_value::unary_op, unary_class_op_fcn); |
| 253 | |
| 3203 | 254 bool do_register_unary_op (octave_value::unary_op, int, unary_op_fcn); |
| 255 | |
| 256 bool do_register_non_const_unary_op (octave_value::unary_op, int, | |
| 10313 | 257 non_const_unary_op_fcn); |
| 3203 | 258 |
| 7336 | 259 bool do_register_binary_class_op (octave_value::binary_op, |
| 10313 | 260 binary_class_op_fcn); |
| 7336 | 261 |
| 2376 | 262 bool do_register_binary_op (octave_value::binary_op, int, int, |
| 10313 | 263 binary_op_fcn); |
| 2376 | 264 |
|
7800
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
265 bool do_register_binary_class_op (octave_value::compound_binary_op, |
| 10313 | 266 binary_class_op_fcn); |
|
7800
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
267 |
|
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
268 bool do_register_binary_op (octave_value::compound_binary_op, int, int, |
| 10313 | 269 binary_op_fcn); |
|
7800
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
270 |
| 4915 | 271 bool do_register_cat_op (int, int, cat_op_fcn); |
| 272 | |
| 2882 | 273 bool do_register_assign_op (octave_value::assign_op, int, int, |
| 10313 | 274 assign_op_fcn); |
| 2376 | 275 |
| 3196 | 276 bool do_register_assignany_op (octave_value::assign_op, int, |
| 10313 | 277 assignany_op_fcn); |
| 3196 | 278 |
| 2376 | 279 bool do_register_pref_assign_conv (int, int, int); |
| 280 | |
| 5759 | 281 bool do_register_type_conv_op (int, int, octave_base_value::type_conv_fcn); |
| 4901 | 282 |
| 5759 | 283 bool do_register_widening_op (int, int, octave_base_value::type_conv_fcn); |
| 2376 | 284 |
| 4640 | 285 octave_value do_lookup_type (const std::string& nm); |
| 286 | |
| 7336 | 287 unary_class_op_fcn do_lookup_unary_class_op (octave_value::unary_op); |
| 288 | |
| 3203 | 289 unary_op_fcn do_lookup_unary_op (octave_value::unary_op, int); |
| 290 | |
| 291 non_const_unary_op_fcn do_lookup_non_const_unary_op | |
| 292 (octave_value::unary_op, int); | |
| 2376 | 293 |
| 7336 | 294 binary_class_op_fcn do_lookup_binary_class_op (octave_value::binary_op); |
| 295 | |
| 3203 | 296 binary_op_fcn do_lookup_binary_op (octave_value::binary_op, int, int); |
| 2376 | 297 |
|
7800
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
298 binary_class_op_fcn do_lookup_binary_class_op (octave_value::compound_binary_op); |
|
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
299 |
|
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
300 binary_op_fcn do_lookup_binary_op (octave_value::compound_binary_op, int, int); |
|
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
301 |
| 4915 | 302 cat_op_fcn do_lookup_cat_op (int, int); |
| 303 | |
| 3203 | 304 assign_op_fcn do_lookup_assign_op (octave_value::assign_op, int, int); |
| 305 | |
| 5759 | 306 assignany_op_fcn do_lookup_assignany_op (octave_value::assign_op, int); |
| 3196 | 307 |
| 2376 | 308 int do_lookup_pref_assign_conv (int, int); |
| 309 | |
| 5759 | 310 octave_base_value::type_conv_fcn do_lookup_type_conv_op (int, int); |
| 4901 | 311 |
| 5759 | 312 octave_base_value::type_conv_fcn do_lookup_widening_op (int, int); |
| 2376 | 313 |
| 314 string_vector do_installed_type_names (void); | |
| 315 | |
| 316 // No copying! | |
| 317 | |
| 318 octave_value_typeinfo (const octave_value_typeinfo&); | |
| 319 | |
| 320 octave_value_typeinfo& operator = (const octave_value_typeinfo&); | |
| 321 }; | |
| 322 | |
| 323 #endif |