Mercurial > octave
annotate libinterp/octave-value/ov-typeinfo.h @ 20791:f7084eae3318
maint: Use Octave coding conventions for #if statements.
* mk-opts.pl, dialog.h, find-files-dialog.h, find-files-model.h,
file-editor-tab.h, octave-qscintilla.h, octave-txt-lexer.h, main-window.h,
octave-cmd.h, octave-dock-widget.h, octave-gui.h, thread-manager.h,
workspace-model.h, workspace-view.h, builtins.h, Cell.h, bitfcns.cc,
c-file-ptr-stream.h, cdisplay.h, comment-list.h, cutils.h, data.h, debug.h,
defaults.in.h, defun-dld.h, defun-int.h, defun.h, dirfns.h, display.h,
dynamic-ld.h, error.h, event-queue.h, file-io.h, filter.cc, getrusage.cc,
gl-render.h, gl2ps-renderer.h, graphics.in.h, gripes.h, help.h, hook-fcn.h,
input.h, jit-ir.h, jit-typeinfo.h, jit-util.h, load-path.h, load-save.h,
ls-ascii-helper.h, ls-hdf5.h, ls-mat-ascii.h, ls-mat4.h, ls-mat5.h,
ls-oct-binary.h, ls-oct-text.h, ls-utils.h, oct-errno.h, oct-fstrm.h,
oct-handle.h, oct-hdf5-types.h, oct-hdf5.h, oct-hist.h, oct-iostrm.h,
oct-lvalue.h, oct-map.h, oct-obj.h, oct-prcstrm.h, oct-procbuf.h,
oct-stdstrm.h, oct-stream.h, oct-strstrm.h, oct.h, octave-link.h, pager.h,
pr-output.h, procstream.h, profiler.h, pt-jit.h, sighandlers.cc, sighandlers.h,
siglist.h, sparse-xdiv.h, sparse-xpow.h, symtab.h, syscalls.cc, sysdep.h,
toplev.cc, toplev.h, utils.h, variables.h, workspace-element.h, xdiv.h,
xnorm.h, xpow.h, dmperm.cc, oct-qhull.h, mkbuiltins, oct-conf.in.h,
ov-base-diag.h, ov-base-int.h, ov-base-mat.h, ov-base-scalar.h,
ov-base-sparse.h, ov-base.h, ov-bool-mat.h, ov-bool-sparse.h, ov-bool.h,
ov-builtin.h, ov-cell.h, ov-ch-mat.h, ov-class.h, ov-classdef.h, ov-colon.h,
ov-complex.h, ov-cs-list.h, ov-cx-diag.h, ov-cx-mat.h, ov-cx-sparse.h,
ov-dld-fcn.h, ov-fcn-handle.h, ov-fcn-inline.h, ov-fcn.h, ov-float.h,
ov-flt-complex.h, ov-flt-cx-diag.h, ov-flt-cx-mat.h, ov-flt-re-diag.h,
ov-flt-re-mat.h, ov-int-traits.h, ov-int16.h, ov-int32.h, ov-int64.h,
ov-int8.h, ov-java.h, ov-lazy-idx.h, ov-mex-fcn.h, ov-null-mat.h, ov-perm.h,
ov-range.h, ov-re-diag.h, ov-re-mat.h, ov-re-sparse.h, ov-scalar.h,
ov-str-mat.h, ov-struct.h, ov-type-conv.h, ov-typeinfo.h, ov-uint16.h,
ov-uint32.h, ov-uint64.h, ov-uint8.h, ov-usr-fcn.h, ov.h, octave.h, ops.h,
options-usage.h, lex.h, parse.h, pt-all.h, pt-arg-list.h, pt-array-list.h,
pt-assign.h, pt-binop.h, pt-bp.h, pt-cbinop.h, pt-cell.h, pt-check.h,
pt-classdef.h, pt-cmd.h, pt-colon.h, pt-const.h, pt-decl.h, pt-eval.h,
pt-except.h, pt-exp.h, pt-fcn-handle.h, pt-funcall.h, pt-id.h, pt-idx.h,
pt-jump.h, pt-loop.h, pt-mat.h, pt-misc.h, pt-pr-code.h, pt-select.h,
pt-stmt.h, pt-unop.h, pt-walk.h, pt.h, token.h, version.in.h, Array-util.h,
Array.h, CColVector.h, CDiagMatrix.h, CMatrix.h, CNDArray.h, CRowVector.h,
CSparse.h, DiagArray2.h, MArray-decl.h, MArray-defs.h, MArray.h, MDiagArray2.h,
MSparse.h, Matrix.h, MatrixType.h, PermMatrix.h, Range.h, Sparse.h,
boolMatrix.h, boolNDArray.h, boolSparse.h, chMatrix.h, chNDArray.h,
dColVector.h, dDiagMatrix.h, dMatrix.h, dNDArray.h, dRowVector.h, dSparse.h,
dim-vector.h, fCColVector.h, fCDiagMatrix.h, fCMatrix.h, fCNDArray.h,
fCRowVector.h, fColVector.h, fDiagMatrix.h, fMatrix.h, fNDArray.h,
fRowVector.h, idx-vector.h, int16NDArray.h, int32NDArray.h, int64NDArray.h,
int8NDArray.h, intNDArray.h, uint16NDArray.h, uint32NDArray.h, uint64NDArray.h,
uint8NDArray.h, f77-fcn.h, lo-error.h, quit.h, CmplxAEPBAL.h, CmplxCHOL.h,
CmplxGEPBAL.h, CmplxHESS.h, CmplxLU.h, CmplxQR.h, CmplxQRP.h, CmplxSCHUR.h,
CmplxSVD.h, CollocWt.h, DAE.h, DAEFunc.h, DAERT.h, DAERTFunc.h, DASPK.h,
DASRT.h, DASSL.h, DET.h, EIG.h, LSODE.h, ODE.h, ODEFunc.h, ODES.h, ODESFunc.h,
Quad.h, SparseCmplxCHOL.h, SparseCmplxLU.h, SparseCmplxQR.cc, SparseCmplxQR.h,
SparseQR.h, SparsedbleCHOL.h, SparsedbleLU.h, base-aepbal.h, base-dae.h,
base-de.h, base-lu.h, base-min.h, base-qr.h, bsxfun-decl.h, bsxfun-defs.cc,
bsxfun.h, dbleAEPBAL.h, dbleCHOL.h, dbleGEPBAL.h, dbleHESS.h, dbleLU.h,
dbleQR.h, dbleQRP.h, dbleSCHUR.h, dbleSVD.h, eigs-base.cc, fCmplxAEPBAL.h,
fCmplxCHOL.h, fCmplxGEPBAL.h, fCmplxHESS.h, fCmplxLU.h, fCmplxQR.h,
fCmplxQRP.h, fCmplxSCHUR.h, fCmplxSVD.h, fEIG.h, floatAEPBAL.h, floatCHOL.h,
floatGEPBAL.h, floatHESS.h, floatLU.h, floatQR.h, floatQRP.h, floatSCHUR.h,
floatSVD.h, lo-mappers.cc, lo-mappers.h, lo-specfun.cc, lo-specfun.h,
oct-convn.h, oct-fftw.h, oct-norm.h, oct-rand.h, oct-spparms.h, randmtzig.c,
sparse-base-chol.h, sparse-base-lu.h, sparse-dmsolve.cc, Sparse-diag-op-defs.h,
Sparse-op-decls.h, Sparse-op-defs.h, Sparse-perm-op-defs.h, mk-ops.awk,
mx-base.h, mx-defs.h, mx-ext.h, mx-inlines.cc, mx-op-decl.h, mx-op-defs.h,
sparse-mk-ops.awk, dir-ops.h, file-ops.h, file-stat.h, lo-sysdep.h,
mach-info.h, oct-env.h, oct-group.h, oct-openmp.h, oct-passwd.h,
oct-syscalls.h, oct-time.cc, oct-time.h, oct-uname.h, pathlen.h, sysdir.h,
syswait.h, action-container.h, base-list.h, byte-swap.h, caseless-str.h,
cmd-edit.h, cmd-hist.h, data-conv.h, functor.h, glob-match.h, kpse.cc,
lo-array-gripes.h, lo-cutils.h, lo-ieee.h, lo-macros.h, lo-math.h, lo-regexp.h,
lo-traits.h, lo-utils.h, oct-alloc.h, oct-base64.h, oct-binmap.h, oct-cmplx.h,
oct-glob.h, oct-inttypes.h, oct-locbuf.h, oct-mutex.h, oct-refcount.h,
oct-rl-edit.h, oct-rl-hist.h, oct-shlib.h, oct-sort.h, oct-sparse.h,
pathsearch.h, singleton-cleanup.h, sparse-sort.h, sparse-util.h, statdefs.h,
str-vec.h, sun-utils.h, unwind-prot.h, url-transfer.h:
Use Octave coding conventions for #if statements.
| author | Rik <rik@octave.org> |
|---|---|
| date | Thu, 03 Dec 2015 10:23:38 -0800 |
| parents | 4197fc428c7d |
| children | 93748bcaec17 |
| rev | line source |
|---|---|
| 2376 | 1 /* |
| 2 | |
|
19697
4197fc428c7d
maint: Update copyright notices for 2015.
John W. Eaton <jwe@octave.org>
parents:
17822
diff
changeset
|
3 Copyright (C) 1996-2015 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 | |
|
20791
f7084eae3318
maint: Use Octave coding conventions for #if statements.
Rik <rik@octave.org>
parents:
19697
diff
changeset
|
23 #if ! defined (octave_ov_typeinfo_h) |
|
17822
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 |