Mercurial > hg > octave-nkf
annotate libinterp/octave-value/ov-typeinfo.h @ 18191:f80d258a2c7d stable
get_first_help_sentence.m: avoid out-of-bound error (bug #41053)
* get_first_help_sentence.m: avoid out-of-bound error (bug #41053)
author | Philip Nienhuis <prnienhuis@users.sf.net> |
---|---|
date | Thu, 02 Jan 2014 11:54:51 +0100 |
parents | ebb3ef964372 |
children | 4197fc428c7d |
rev | line source |
---|---|
2376 | 1 /* |
2 | |
17744
d63878346099
maint: Update copyright notices for release.
John W. Eaton <jwe@octave.org>
parents:
15195
diff
changeset
|
3 Copyright (C) 1996-2013 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 | |
17822
ebb3ef964372
maint: Use common #define syntax "octave_filename_h" in h_files.
Rik <rik@octave.org>
parents:
17787
diff
changeset
|
23 #if !defined (octave_ov_typeinfo_h) |
ebb3ef964372
maint: Use common #define syntax "octave_filename_h" in h_files.
Rik <rik@octave.org>
parents:
17787
diff
changeset
|
24 #define octave_ov_typeinfo_h 1 |
2376 | 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 |
13983
7dd7cccf0757
clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents:
11570
diff
changeset
|
211 ~octave_value_typeinfo (void) { } |
7dd7cccf0757
clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents:
11570
diff
changeset
|
212 |
2376 | 213 private: |
214 | |
2479 | 215 static const int init_tab_sz; |
216 | |
2376 | 217 static octave_value_typeinfo *instance; |
218 | |
13983
7dd7cccf0757
clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents:
11570
diff
changeset
|
219 static void cleanup_instance (void) { delete instance; instance = 0; } |
7dd7cccf0757
clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents:
11570
diff
changeset
|
220 |
2376 | 221 int num_types; |
222 | |
3523 | 223 Array<std::string> types; |
2376 | 224 |
4640 | 225 Array<octave_value> vals; |
226 | |
9223
902a4597dce8
use Array<void *> in ov-typeinfo.h
Jaroslav Hajek <highegg@gmail.com>
parents:
8920
diff
changeset
|
227 Array<void *> unary_class_ops; |
7336 | 228 |
10352 | 229 Array<void *> unary_ops; |
3203 | 230 |
10352 | 231 Array<void *> non_const_unary_ops; |
3203 | 232 |
9223
902a4597dce8
use Array<void *> in ov-typeinfo.h
Jaroslav Hajek <highegg@gmail.com>
parents:
8920
diff
changeset
|
233 Array<void *> binary_class_ops; |
7336 | 234 |
11570
57632dea2446
attempt better backward compatibility for Array constructors
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
235 Array<void *> binary_ops; |
2376 | 236 |
9223
902a4597dce8
use Array<void *> in ov-typeinfo.h
Jaroslav Hajek <highegg@gmail.com>
parents:
8920
diff
changeset
|
237 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
|
238 |
11570
57632dea2446
attempt better backward compatibility for Array constructors
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
239 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
|
240 |
10352 | 241 Array<void *> cat_ops; |
4915 | 242 |
11570
57632dea2446
attempt better backward compatibility for Array constructors
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
243 Array<void *> assign_ops; |
2376 | 244 |
10352 | 245 Array<void *> assignany_ops; |
3196 | 246 |
10352 | 247 Array<int> pref_assign_conv; |
2376 | 248 |
10352 | 249 Array<void *> type_conv_ops; |
4901 | 250 |
10352 | 251 Array<void *> widening_ops; |
2376 | 252 |
4640 | 253 int do_register_type (const std::string&, const std::string&, |
10313 | 254 const octave_value&); |
2376 | 255 |
7336 | 256 bool do_register_unary_class_op (octave_value::unary_op, unary_class_op_fcn); |
257 | |
3203 | 258 bool do_register_unary_op (octave_value::unary_op, int, unary_op_fcn); |
259 | |
260 bool do_register_non_const_unary_op (octave_value::unary_op, int, | |
10313 | 261 non_const_unary_op_fcn); |
3203 | 262 |
7336 | 263 bool do_register_binary_class_op (octave_value::binary_op, |
10313 | 264 binary_class_op_fcn); |
7336 | 265 |
2376 | 266 bool do_register_binary_op (octave_value::binary_op, int, int, |
10313 | 267 binary_op_fcn); |
2376 | 268 |
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
|
269 bool do_register_binary_class_op (octave_value::compound_binary_op, |
10313 | 270 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
|
271 |
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
272 bool do_register_binary_op (octave_value::compound_binary_op, int, int, |
10313 | 273 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
|
274 |
4915 | 275 bool do_register_cat_op (int, int, cat_op_fcn); |
276 | |
2882 | 277 bool do_register_assign_op (octave_value::assign_op, int, int, |
10313 | 278 assign_op_fcn); |
2376 | 279 |
3196 | 280 bool do_register_assignany_op (octave_value::assign_op, int, |
10313 | 281 assignany_op_fcn); |
3196 | 282 |
2376 | 283 bool do_register_pref_assign_conv (int, int, int); |
284 | |
5759 | 285 bool do_register_type_conv_op (int, int, octave_base_value::type_conv_fcn); |
4901 | 286 |
5759 | 287 bool do_register_widening_op (int, int, octave_base_value::type_conv_fcn); |
2376 | 288 |
4640 | 289 octave_value do_lookup_type (const std::string& nm); |
290 | |
7336 | 291 unary_class_op_fcn do_lookup_unary_class_op (octave_value::unary_op); |
292 | |
3203 | 293 unary_op_fcn do_lookup_unary_op (octave_value::unary_op, int); |
294 | |
295 non_const_unary_op_fcn do_lookup_non_const_unary_op | |
296 (octave_value::unary_op, int); | |
2376 | 297 |
7336 | 298 binary_class_op_fcn do_lookup_binary_class_op (octave_value::binary_op); |
299 | |
3203 | 300 binary_op_fcn do_lookup_binary_op (octave_value::binary_op, int, int); |
2376 | 301 |
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
|
302 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
|
303 |
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
304 binary_op_fcn do_lookup_binary_op (octave_value::compound_binary_op, |
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
305 int, int); |
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
|
306 |
4915 | 307 cat_op_fcn do_lookup_cat_op (int, int); |
308 | |
3203 | 309 assign_op_fcn do_lookup_assign_op (octave_value::assign_op, int, int); |
310 | |
5759 | 311 assignany_op_fcn do_lookup_assignany_op (octave_value::assign_op, int); |
3196 | 312 |
2376 | 313 int do_lookup_pref_assign_conv (int, int); |
314 | |
5759 | 315 octave_base_value::type_conv_fcn do_lookup_type_conv_op (int, int); |
4901 | 316 |
5759 | 317 octave_base_value::type_conv_fcn do_lookup_widening_op (int, int); |
2376 | 318 |
319 string_vector do_installed_type_names (void); | |
320 | |
321 // No copying! | |
322 | |
323 octave_value_typeinfo (const octave_value_typeinfo&); | |
324 | |
325 octave_value_typeinfo& operator = (const octave_value_typeinfo&); | |
326 }; | |
327 | |
328 #endif |