Mercurial > octave
annotate liboctave/util/oct-inttypes.h @ 31607:aac27ad79be6 stable
maint: Re-indent code after switch to using namespace macros.
* build-env.h, build-env.in.cc, Cell.h, __betainc__.cc, __eigs__.cc,
__ftp__.cc, __ichol__.cc, __ilu__.cc, __isprimelarge__.cc, __magick_read__.cc,
__pchip_deriv__.cc, amd.cc, base-text-renderer.cc, base-text-renderer.h,
besselj.cc, bitfcns.cc, bsxfun.cc, c-file-ptr-stream.h, call-stack.cc,
call-stack.h, ccolamd.cc, cellfun.cc, chol.cc, colamd.cc, dasrt.cc, data.cc,
debug.cc, defaults.cc, defaults.h, det.cc, display.cc, display.h, dlmread.cc,
dynamic-ld.cc, dynamic-ld.h, ellipj.cc, environment.cc, environment.h,
error.cc, error.h, errwarn.h, event-manager.cc, event-manager.h,
event-queue.cc, event-queue.h, fcn-info.cc, fcn-info.h, fft.cc, fft2.cc,
file-io.cc, filter.cc, find.cc, ft-text-renderer.cc, ft-text-renderer.h,
gcd.cc, gl-render.cc, gl-render.h, gl2ps-print.cc, gl2ps-print.h,
graphics-toolkit.cc, graphics-toolkit.h, graphics.cc, gsvd.cc, gtk-manager.cc,
gtk-manager.h, help.cc, help.h, hook-fcn.cc, hook-fcn.h, input.cc, input.h,
interpreter-private.cc, interpreter-private.h, interpreter.cc, interpreter.h,
inv.cc, jsondecode.cc, jsonencode.cc, latex-text-renderer.cc,
latex-text-renderer.h, load-path.cc, load-path.h, load-save.cc, load-save.h,
lookup.cc, ls-hdf5.cc, ls-mat4.cc, ls-mat5.cc, lsode.cc, lu.cc, mappers.cc,
matrix_type.cc, max.cc, mex.cc, mexproto.h, mxarray.h, mxtypes.in.h,
oct-errno.in.cc, oct-hdf5-types.cc, oct-hist.cc, oct-hist.h, oct-map.cc,
oct-map.h, oct-opengl.h, oct-prcstrm.h, oct-process.cc, oct-process.h,
oct-stdstrm.h, oct-stream.cc, oct-stream.h, oct-strstrm.h,
octave-default-image.h, ordqz.cc, ordschur.cc, pager.cc, pager.h, pinv.cc,
pow2.cc, pr-output.cc, psi.cc, qr.cc, quadcc.cc, rand.cc, regexp.cc,
settings.cc, settings.h, sighandlers.cc, sighandlers.h, sparse-xpow.cc,
sqrtm.cc, stack-frame.cc, stack-frame.h, stream-euler.cc, strfns.cc, svd.cc,
syminfo.cc, syminfo.h, symrcm.cc, symrec.cc, symrec.h, symscope.cc, symscope.h,
symtab.cc, symtab.h, sysdep.cc, sysdep.h, text-engine.cc, text-engine.h,
text-renderer.cc, text-renderer.h, time.cc, toplev.cc, typecast.cc,
url-handle-manager.cc, url-handle-manager.h, urlwrite.cc, utils.cc, utils.h,
variables.cc, variables.h, xdiv.cc, __delaunayn__.cc, __init_fltk__.cc,
__init_gnuplot__.cc, __ode15__.cc, __voronoi__.cc, audioread.cc, convhulln.cc,
gzip.cc, cdef-class.cc, cdef-class.h, cdef-fwd.h, cdef-manager.cc,
cdef-manager.h, cdef-method.cc, cdef-method.h, cdef-object.cc, cdef-object.h,
cdef-package.cc, cdef-package.h, cdef-property.cc, cdef-property.h,
cdef-utils.cc, cdef-utils.h, ov-base-diag.cc, ov-base-int.cc, ov-base-mat.cc,
ov-base-mat.h, ov-base-scalar.cc, ov-base.cc, ov-base.h, ov-bool-mat.cc,
ov-bool-mat.h, ov-bool-sparse.cc, ov-bool.cc, ov-builtin.h, ov-cell.cc,
ov-ch-mat.cc, ov-class.cc, ov-class.h, ov-classdef.cc, ov-classdef.h,
ov-complex.cc, ov-cx-diag.cc, ov-cx-mat.cc, ov-cx-sparse.cc, ov-dld-fcn.cc,
ov-dld-fcn.h, ov-fcn-handle.cc, ov-fcn-handle.h, ov-fcn.h, ov-float.cc,
ov-flt-complex.cc, ov-flt-cx-diag.cc, ov-flt-cx-mat.cc, ov-flt-re-diag.cc,
ov-flt-re-mat.cc, ov-flt-re-mat.h, ov-intx.h, ov-java.cc, ov-lazy-idx.cc,
ov-legacy-range.cc, ov-magic-int.cc, ov-mex-fcn.cc, ov-mex-fcn.h,
ov-null-mat.cc, ov-perm.cc, ov-range.cc, ov-re-diag.cc, ov-re-mat.cc,
ov-re-mat.h, ov-re-sparse.cc, ov-scalar.cc, ov-str-mat.cc, ov-struct.cc,
ov-typeinfo.cc, ov-typeinfo.h, ov-usr-fcn.cc, ov-usr-fcn.h, ov.cc, ov.h, ovl.h,
octave.cc, octave.h, op-b-sbm.cc, op-bm-sbm.cc, op-cs-scm.cc, op-fm-fcm.cc,
op-fs-fcm.cc, op-s-scm.cc, op-scm-cs.cc, op-scm-s.cc, op-sm-cs.cc, ops.h,
anon-fcn-validator.cc, anon-fcn-validator.h, bp-table.cc, bp-table.h,
comment-list.cc, comment-list.h, filepos.h, lex.h, oct-lvalue.cc, oct-lvalue.h,
parse.h, profiler.cc, profiler.h, pt-anon-scopes.cc, pt-anon-scopes.h,
pt-arg-list.cc, pt-arg-list.h, pt-args-block.cc, pt-args-block.h,
pt-array-list.cc, pt-array-list.h, pt-assign.cc, pt-assign.h, pt-binop.cc,
pt-binop.h, pt-bp.cc, pt-bp.h, pt-cbinop.cc, pt-cbinop.h, pt-cell.cc,
pt-cell.h, pt-check.cc, pt-check.h, pt-classdef.cc, pt-classdef.h, pt-cmd.h,
pt-colon.cc, pt-colon.h, pt-const.cc, pt-const.h, pt-decl.cc, pt-decl.h,
pt-eval.cc, pt-eval.h, pt-except.cc, pt-except.h, pt-exp.cc, pt-exp.h,
pt-fcn-handle.cc, pt-fcn-handle.h, pt-id.cc, pt-id.h, pt-idx.cc, pt-idx.h,
pt-jump.h, pt-loop.cc, pt-loop.h, pt-mat.cc, pt-mat.h, pt-misc.cc, pt-misc.h,
pt-pr-code.cc, pt-pr-code.h, pt-select.cc, pt-select.h, pt-spmd.cc, pt-spmd.h,
pt-stmt.cc, pt-stmt.h, pt-tm-const.cc, pt-tm-const.h, pt-unop.cc, pt-unop.h,
pt-walk.cc, pt-walk.h, pt.cc, pt.h, token.cc, token.h, Range.cc, Range.h,
idx-vector.cc, idx-vector.h, range-fwd.h, CollocWt.cc, CollocWt.h,
aepbalance.cc, aepbalance.h, chol.cc, chol.h, gepbalance.cc, gepbalance.h,
gsvd.cc, gsvd.h, hess.cc, hess.h, lo-mappers.cc, lo-mappers.h, lo-specfun.cc,
lo-specfun.h, lu.cc, lu.h, oct-convn.cc, oct-convn.h, oct-fftw.cc, oct-fftw.h,
oct-norm.cc, oct-norm.h, oct-rand.cc, oct-rand.h, oct-spparms.cc,
oct-spparms.h, qr.cc, qr.h, qrp.cc, qrp.h, randgamma.cc, randgamma.h,
randmtzig.cc, randmtzig.h, randpoisson.cc, randpoisson.h, schur.cc, schur.h,
sparse-chol.cc, sparse-chol.h, sparse-lu.cc, sparse-lu.h, sparse-qr.cc,
sparse-qr.h, svd.cc, svd.h, child-list.cc, child-list.h, dir-ops.cc, dir-ops.h,
file-ops.cc, file-ops.h, file-stat.cc, file-stat.h, lo-sysdep.cc, lo-sysdep.h,
lo-sysinfo.cc, lo-sysinfo.h, mach-info.cc, mach-info.h, oct-env.cc, oct-env.h,
oct-group.cc, oct-group.h, oct-password.cc, oct-password.h, oct-syscalls.cc,
oct-syscalls.h, oct-time.cc, oct-time.h, oct-uname.cc, oct-uname.h,
action-container.cc, action-container.h, base-list.h, cmd-edit.cc, cmd-edit.h,
cmd-hist.cc, cmd-hist.h, f77-fcn.h, file-info.cc, file-info.h,
lo-array-errwarn.cc, lo-array-errwarn.h, lo-hash.cc, lo-hash.h, lo-ieee.h,
lo-regexp.cc, lo-regexp.h, lo-utils.cc, lo-utils.h, oct-base64.cc,
oct-base64.h, oct-glob.cc, oct-glob.h, oct-inttypes.h, oct-mutex.cc,
oct-mutex.h, oct-refcount.h, oct-shlib.cc, oct-shlib.h, oct-sparse.cc,
oct-sparse.h, oct-string.h, octave-preserve-stream-state.h, pathsearch.cc,
pathsearch.h, quit.cc, quit.h, unwind-prot.cc, unwind-prot.h, url-transfer.cc,
url-transfer.h:
Re-indent code after switch to using namespace macros.
author | Rik <rik@octave.org> |
---|---|
date | Thu, 01 Dec 2022 18:02:15 -0800 |
parents | e88a07dec498 |
children | 597f3ee61a48 |
rev | line source |
---|---|
27923
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
diff
changeset
|
1 //////////////////////////////////////////////////////////////////////// |
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
diff
changeset
|
2 // |
30564
796f54d4ddbf
update Octave Project Developers copyright for the new year
John W. Eaton <jwe@octave.org>
parents:
30489
diff
changeset
|
3 // Copyright (C) 2004-2022 The Octave Project Developers |
27923
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
diff
changeset
|
4 // |
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
diff
changeset
|
5 // See the file COPYRIGHT.md in the top-level directory of this |
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
diff
changeset
|
6 // distribution or <https://octave.org/copyright/>. |
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
diff
changeset
|
7 // |
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
diff
changeset
|
8 // This file is part of Octave. |
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
diff
changeset
|
9 // |
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
diff
changeset
|
10 // Octave is free software: you can redistribute it and/or modify it |
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
diff
changeset
|
11 // under the terms of the GNU General Public License as published by |
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
diff
changeset
|
12 // the Free Software Foundation, either version 3 of the License, or |
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
diff
changeset
|
13 // (at your option) any later version. |
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
diff
changeset
|
14 // |
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
diff
changeset
|
15 // Octave is distributed in the hope that it will be useful, but |
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
diff
changeset
|
16 // WITHOUT ANY WARRANTY; without even the implied warranty of |
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
diff
changeset
|
17 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
diff
changeset
|
18 // GNU General Public License for more details. |
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
diff
changeset
|
19 // |
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
diff
changeset
|
20 // You should have received a copy of the GNU General Public License |
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
diff
changeset
|
21 // along with Octave; see the file COPYING. If not, see |
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
diff
changeset
|
22 // <https://www.gnu.org/licenses/>. |
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
diff
changeset
|
23 // |
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
diff
changeset
|
24 //////////////////////////////////////////////////////////////////////// |
4902 | 25 |
20791
f7084eae3318
maint: Use Octave coding conventions for #if statements.
Rik <rik@octave.org>
parents:
19861
diff
changeset
|
26 #if ! defined (octave_oct_inttypes_h) |
17822
ebb3ef964372
maint: Use common #define syntax "octave_filename_h" in h_files.
Rik <rik@octave.org>
parents:
17769
diff
changeset
|
27 #define octave_oct_inttypes_h 1 |
4902 | 28 |
21244
1473547f50f5
include octave-config.h in public header files
John W. Eaton <jwe@octave.org>
parents:
21202
diff
changeset
|
29 #include "octave-config.h" |
1473547f50f5
include octave-config.h in public header files
John W. Eaton <jwe@octave.org>
parents:
21202
diff
changeset
|
30 |
23643
3dc16b35ba2c
Use round, roundf, roundl from C++ std library.
Rik <rik@octave.org>
parents:
23615
diff
changeset
|
31 #include <cmath> |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
32 #include <cstdlib> |
6482 | 33 |
22073
d18c63a45070
wrappers for setting long double rounding mode (bug #48319)
John W. Eaton <jwe@octave.org>
parents:
22022
diff
changeset
|
34 #include <iosfwd> |
4902 | 35 #include <limits> |
36 | |
4969 | 37 #include "lo-mappers.h" |
22073
d18c63a45070
wrappers for setting long double rounding mode (bug #48319)
John W. Eaton <jwe@octave.org>
parents:
22022
diff
changeset
|
38 #include "lo-traits.h" |
30435
1f0a2689cab2
Use forward declarations for octave_int<T> where possible (bug #59820).
Markus Mützel <markus.muetzel@gmx.de>
parents:
30394
diff
changeset
|
39 #include "oct-inttypes-fwd.h" |
21785
c9f8a7f7915e
use forward declarations instead of including oct-inttypes.h where possible
John W. Eaton <jwe@octave.org>
parents:
21782
diff
changeset
|
40 |
21724
aba2e6293dd8
use "#if ..." consistently instead of "#ifdef" and "#ifndef"
John W. Eaton <jwe@octave.org>
parents:
21574
diff
changeset
|
41 #if defined (OCTAVE_INT_USE_LONG_DOUBLE) |
21782
2aef506f3fec
use namespace for lo-mappers.h functions
John W. Eaton <jwe@octave.org>
parents:
21751
diff
changeset
|
42 |
31605
e88a07dec498
maint: Use macros to begin/end C++ namespaces.
Rik <rik@octave.org>
parents:
31400
diff
changeset
|
43 OCTAVE_BEGIN_NAMESPACE(octave) |
e88a07dec498
maint: Use macros to begin/end C++ namespaces.
Rik <rik@octave.org>
parents:
31400
diff
changeset
|
44 |
e88a07dec498
maint: Use macros to begin/end C++ namespaces.
Rik <rik@octave.org>
parents:
31400
diff
changeset
|
45 OCTAVE_BEGIN_NAMESPACE(math) |
e88a07dec498
maint: Use macros to begin/end C++ namespaces.
Rik <rik@octave.org>
parents:
31400
diff
changeset
|
46 |
31607
aac27ad79be6
maint: Re-indent code after switch to using namespace macros.
Rik <rik@octave.org>
parents:
31605
diff
changeset
|
47 inline long double round (long double x) |
aac27ad79be6
maint: Re-indent code after switch to using namespace macros.
Rik <rik@octave.org>
parents:
31605
diff
changeset
|
48 { |
aac27ad79be6
maint: Re-indent code after switch to using namespace macros.
Rik <rik@octave.org>
parents:
31605
diff
changeset
|
49 return std::roundl (x); |
aac27ad79be6
maint: Re-indent code after switch to using namespace macros.
Rik <rik@octave.org>
parents:
31605
diff
changeset
|
50 } |
21782
2aef506f3fec
use namespace for lo-mappers.h functions
John W. Eaton <jwe@octave.org>
parents:
21751
diff
changeset
|
51 |
31607
aac27ad79be6
maint: Re-indent code after switch to using namespace macros.
Rik <rik@octave.org>
parents:
31605
diff
changeset
|
52 inline long double isnan (long double x) |
aac27ad79be6
maint: Re-indent code after switch to using namespace macros.
Rik <rik@octave.org>
parents:
31605
diff
changeset
|
53 { |
aac27ad79be6
maint: Re-indent code after switch to using namespace macros.
Rik <rik@octave.org>
parents:
31605
diff
changeset
|
54 return isnan (static_cast<double> (x)); |
aac27ad79be6
maint: Re-indent code after switch to using namespace macros.
Rik <rik@octave.org>
parents:
31605
diff
changeset
|
55 } |
31605
e88a07dec498
maint: Use macros to begin/end C++ namespaces.
Rik <rik@octave.org>
parents:
31400
diff
changeset
|
56 |
e88a07dec498
maint: Use macros to begin/end C++ namespaces.
Rik <rik@octave.org>
parents:
31400
diff
changeset
|
57 OCTAVE_END_NAMESPACE(math) |
e88a07dec498
maint: Use macros to begin/end C++ namespaces.
Rik <rik@octave.org>
parents:
31400
diff
changeset
|
58 OCTAVE_END_NAMESPACE(octave) |
21782
2aef506f3fec
use namespace for lo-mappers.h functions
John W. Eaton <jwe@octave.org>
parents:
21751
diff
changeset
|
59 |
8185
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
60 #endif |
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
61 |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
62 // FIXME: we define this by our own because some compilers, such as |
8333 | 63 // MSVC, do not provide std::abs (int64_t) and std::abs (uint64_t). In |
64 // the future, it should go away in favor of std::abs. | |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
65 |
21139
538b57866b90
consistently use "typename" intead of "class" in template declarations
John W. Eaton <jwe@octave.org>
parents:
20791
diff
changeset
|
66 template <typename T> |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
67 inline T |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
68 octave_int_abs (T x) |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
69 { |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
70 return (x >= 0 ? x : -x); |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
71 } |
8293
ad5bb02d267a
workaround missing std::abs(int64_t) in MSVC
Jaroslav Hajek <highegg@gmail.com>
parents:
8202
diff
changeset
|
72 |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
73 // Query for an integer type of certain sizeof, and signedness. |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
74 |
21139
538b57866b90
consistently use "typename" intead of "class" in template declarations
John W. Eaton <jwe@octave.org>
parents:
20791
diff
changeset
|
75 template <int qsize, bool qsigned> |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
76 struct query_integer_type |
4902 | 77 { |
78 public: | |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
79 |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
80 static const bool registered = false; |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
81 |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
82 // Void shall result in a compile-time error if we attempt to use it |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
83 // in computations. |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
84 |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
85 typedef void type; |
4902 | 86 }; |
87 | |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
88 #define OCTAVE_REGISTER_INT_TYPE(TYPE) \ |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
89 template <> \ |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
90 class query_integer_type<sizeof (TYPE), \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
91 std::numeric_limits<TYPE>::is_signed> \ |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
92 { \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
93 public: \ |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
94 \ |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
95 static const bool registered = true; \ |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
96 \ |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
97 typedef TYPE type; \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
98 } |
7596
6929e40fc597
compatible handling of NaN -> int conversions
John W. Eaton <jwe@octave.org>
parents:
7534
diff
changeset
|
99 |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
100 // No two registered integers can share sizeof and signedness. |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
101 OCTAVE_REGISTER_INT_TYPE (int8_t); |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
102 OCTAVE_REGISTER_INT_TYPE (uint8_t); |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
103 OCTAVE_REGISTER_INT_TYPE (int16_t); |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
104 OCTAVE_REGISTER_INT_TYPE (uint16_t); |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
105 OCTAVE_REGISTER_INT_TYPE (int32_t); |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
106 OCTAVE_REGISTER_INT_TYPE (uint32_t); |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
107 OCTAVE_REGISTER_INT_TYPE (int64_t); |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
108 OCTAVE_REGISTER_INT_TYPE (uint64_t); |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
109 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
110 #undef OCTAVE_REGISTER_INT_TYPE |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
111 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
112 // Handles non-homogeneous integer comparisons. Avoids doing useless |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
113 // tests. |
4943 | 114 |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
115 class octave_int_cmp_op |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
116 { |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
117 // This determines a suitable promotion type for T1 when meeting T2 |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
118 // in a binary relation. If promotion to int or T2 is safe, it is |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
119 // used. Otherwise, the signedness of T1 is preserved and it is |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
120 // widened if T2 is wider. Notice that if this is applied to both |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
121 // types, they must end up with equal size. |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
122 |
21139
538b57866b90
consistently use "typename" intead of "class" in template declarations
John W. Eaton <jwe@octave.org>
parents:
20791
diff
changeset
|
123 template <typename T1, typename T2> |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
124 class prom |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
125 { |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
126 // Promote to int? |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
127 static const bool pint = (sizeof (T1) < sizeof (int) |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
128 && sizeof (T2) < sizeof (int)); |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
129 |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
130 static const bool t1sig = std::numeric_limits<T1>::is_signed; |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
131 static const bool t2sig = std::numeric_limits<T2>::is_signed; |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
132 |
27277
db687716fed6
style fixes: generally aim to break long lines before operators, not after
John W. Eaton <jwe@octave.org>
parents:
26376
diff
changeset
|
133 static const bool psig |
db687716fed6
style fixes: generally aim to break long lines before operators, not after
John W. Eaton <jwe@octave.org>
parents:
26376
diff
changeset
|
134 = (pint || (sizeof (T2) > sizeof (T1) && t2sig) || t1sig); |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
135 |
27277
db687716fed6
style fixes: generally aim to break long lines before operators, not after
John W. Eaton <jwe@octave.org>
parents:
26376
diff
changeset
|
136 static const int psize |
db687716fed6
style fixes: generally aim to break long lines before operators, not after
John W. Eaton <jwe@octave.org>
parents:
26376
diff
changeset
|
137 = (pint |
db687716fed6
style fixes: generally aim to break long lines before operators, not after
John W. Eaton <jwe@octave.org>
parents:
26376
diff
changeset
|
138 ? sizeof (int) |
db687716fed6
style fixes: generally aim to break long lines before operators, not after
John W. Eaton <jwe@octave.org>
parents:
26376
diff
changeset
|
139 : (sizeof (T2) > sizeof (T1) ? sizeof (T2) : sizeof (T1))); |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
140 public: |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
141 |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
142 typedef typename query_integer_type<psize, psig>::type type; |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
143 }; |
4943 | 144 |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
145 // Implements comparisons between two types of equal size but |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
146 // possibly different signedness. |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
147 |
21139
538b57866b90
consistently use "typename" intead of "class" in template declarations
John W. Eaton <jwe@octave.org>
parents:
20791
diff
changeset
|
148 template <typename xop, int size> |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
149 class uiop |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
150 { |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
151 typedef typename query_integer_type<size, false>::type utype; |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
152 typedef typename query_integer_type<size, true>::type stype; |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
153 |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
154 public: |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
155 |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
156 static bool op (utype x, utype y) |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
157 { |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
158 return xop::op (x, y); |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
159 } |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
160 |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
161 static bool op (stype x, stype y) |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
162 { |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
163 return xop::op (x, y); |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
164 } |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
165 |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
166 static bool op (stype x, utype y) |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
167 { |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
168 return (x < 0) ? xop::ltval : xop::op (static_cast<utype> (x), y); |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
169 } |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
170 |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
171 static bool op (utype x, stype y) |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
172 { |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
173 return (y < 0) ? xop::gtval : xop::op (x, static_cast<utype> (y)); |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
174 } |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
175 }; |
4943 | 176 |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
177 public: |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
178 |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
179 // Rationale: Comparators have a single static method, rel(), that |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
180 // returns the result of the binary relation. They also have two |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
181 // static boolean fields: ltval, gtval determine the value of x OP y |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
182 // if x < y, x > y, respectively. |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
183 |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
184 #define OCTAVE_REGISTER_INT_CMP_OP(NM, OP) \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
185 class NM \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
186 { \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
187 public: \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
188 \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
189 static const bool ltval = (0 OP 1); \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
190 static const bool gtval = (1 OP 0); \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
191 \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
192 template <typename T> \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
193 static bool op (T x, T y) { return x OP y; } \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
194 } |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
195 |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
196 OCTAVE_REGISTER_INT_CMP_OP (lt, <); |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
197 OCTAVE_REGISTER_INT_CMP_OP (le, <=); |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
198 OCTAVE_REGISTER_INT_CMP_OP (gt, >); |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
199 OCTAVE_REGISTER_INT_CMP_OP (ge, >=); |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
200 OCTAVE_REGISTER_INT_CMP_OP (eq, ==); |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
201 OCTAVE_REGISTER_INT_CMP_OP (ne, !=); |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
202 |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
203 #undef OCTAVE_REGISTER_INT_CMP_OP |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
204 |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
205 // We also provide two special relations: ct, yielding always true, |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
206 // and cf, yielding always false. |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
207 |
27379
3db033e86376
use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents:
27277
diff
changeset
|
208 #define OCTAVE_REGISTER_INT_CONST_OP(NM, VALUE) \ |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
209 class NM \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
210 { \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
211 public: \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
212 \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
213 static const bool ltval = VALUE; \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
214 static const bool gtval = VALUE; \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
215 \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
216 template <typename T> \ |
27379
3db033e86376
use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents:
27277
diff
changeset
|
217 static bool op (T, T) { return VALUE; } \ |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
218 } |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
219 |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
220 OCTAVE_REGISTER_INT_CONST_OP (ct, true); |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
221 OCTAVE_REGISTER_INT_CONST_OP (cf, false); |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
222 |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
223 #undef OCTAVE_REGISTER_INT_CONST_OP |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
224 |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
225 // Universal comparison operation. |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
226 |
21139
538b57866b90
consistently use "typename" intead of "class" in template declarations
John W. Eaton <jwe@octave.org>
parents:
20791
diff
changeset
|
227 template <typename xop, typename T1, typename T2> |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
228 static bool |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
229 op (T1 x, T2 y) |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
230 { |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
231 typedef typename prom<T1, T2>::type PT1; |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
232 typedef typename prom<T2, T1>::type PT2; |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
233 |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
234 return uiop<xop, sizeof (PT1)>::op (static_cast<PT1> (x), |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
235 static_cast<PT2> (y)); |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
236 } |
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
237 |
8185
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
238 public: |
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
239 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
240 // Mixed comparisons. |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
241 |
21139
538b57866b90
consistently use "typename" intead of "class" in template declarations
John W. Eaton <jwe@octave.org>
parents:
20791
diff
changeset
|
242 template <typename xop, typename T> |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
243 static bool mop (T x, double y) |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
244 { |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
245 return xop::op (static_cast<double> (x), y); |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
246 } |
8185
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
247 |
21139
538b57866b90
consistently use "typename" intead of "class" in template declarations
John W. Eaton <jwe@octave.org>
parents:
20791
diff
changeset
|
248 template <typename xop, typename T> |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
249 static bool mop (double x, T y) |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
250 { |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
251 return xop::op (x, static_cast<double> (y)); |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
252 } |
8185
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
253 |
21724
aba2e6293dd8
use "#if ..." consistently instead of "#ifdef" and "#ifndef"
John W. Eaton <jwe@octave.org>
parents:
21574
diff
changeset
|
254 #if defined (OCTAVE_ENSURE_LONG_DOUBLE_OPERATIONS_ARE_NOT_TRUNCATED) |
18017
0cd39f7f2409
additional improvements for int64 ops implemented with long double (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
18005
diff
changeset
|
255 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
256 # define OCTAVE_DECLARE_EXTERNAL_LONG_DOUBLE_INT_CMP_OPS(T) \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
257 template <typename xop> \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
258 static OCTAVE_API bool external_mop (double, T); \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
259 \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
260 template <typename xop> \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
261 static OCTAVE_API bool external_mop (T, double) |
31607
aac27ad79be6
maint: Re-indent code after switch to using namespace macros.
Rik <rik@octave.org>
parents:
31605
diff
changeset
|
262 OCTAVE_DECLARE_EXTERNAL_LONG_DOUBLE_INT_CMP_OPS (int64_t); |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
263 OCTAVE_DECLARE_EXTERNAL_LONG_DOUBLE_INT_CMP_OPS (uint64_t); |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
264 |
17993
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
265 #endif |
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
266 |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
267 // Typecasting to doubles won't work properly for 64-bit integers -- |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
268 // they lose precision. If we have long doubles, use them... |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
269 |
21724
aba2e6293dd8
use "#if ..." consistently instead of "#ifdef" and "#ifndef"
John W. Eaton <jwe@octave.org>
parents:
21574
diff
changeset
|
270 #if defined (OCTAVE_INT_USE_LONG_DOUBLE) |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
271 |
21724
aba2e6293dd8
use "#if ..." consistently instead of "#ifdef" and "#ifndef"
John W. Eaton <jwe@octave.org>
parents:
21574
diff
changeset
|
272 # if defined (OCTAVE_ENSURE_LONG_DOUBLE_OPERATIONS_ARE_NOT_TRUNCATED) |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
273 |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
274 # define OCTAVE_DEFINE_LONG_DOUBLE_INT_CMP_OP(T) \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
275 template <typename xop> \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
276 static bool mop (double x, T y) \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
277 { \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
278 return external_mop<xop> (x, y); \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
279 } \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
280 \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
281 template <typename xop> \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
282 static bool mop (T x, double y) \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
283 { \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
284 return external_mop<xop> (x, y); \ |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
285 } |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
286 |
21202
f7121e111991
maint: indent #ifdef blocks in liboctave and src directories.
Rik <rik@octave.org>
parents:
21139
diff
changeset
|
287 # else |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
288 |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
289 # define OCTAVE_DEFINE_LONG_DOUBLE_INT_CMP_OP(T) \ |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
290 template <typename xop> \ |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
291 static bool mop (double x, T y) \ |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
292 { \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
293 return xop::op (static_cast<long double> (x), \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
294 static_cast<long double> (y)); \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
295 } \ |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
296 \ |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
297 template <typename xop> \ |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
298 static bool mop (T x, double y) \ |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
299 { \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
300 return xop::op (static_cast<long double> (x), \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
301 static_cast<long double> (y)); \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
302 } |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
303 |
21202
f7121e111991
maint: indent #ifdef blocks in liboctave and src directories.
Rik <rik@octave.org>
parents:
21139
diff
changeset
|
304 # endif |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
305 |
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
306 #else |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
307 |
8856
ab4db66e286f
workaround gcc 4.3 explicit instantiation bug in octave_int_cmp_op
Jaroslav Hajek <highegg@gmail.com>
parents:
8731
diff
changeset
|
308 // ... otherwise, use external handlers |
ab4db66e286f
workaround gcc 4.3 explicit instantiation bug in octave_int_cmp_op
Jaroslav Hajek <highegg@gmail.com>
parents:
8731
diff
changeset
|
309 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
310 // FIXME: We could declare directly the mop methods as external, but |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
311 // we can't do this because bugs in gcc (<= 4.3) prevent explicit |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
312 // instantiations later in that case. |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
313 |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
314 # define OCTAVE_DEFINE_LONG_DOUBLE_INT_CMP_OP(T) \ |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
315 template <typename xop> \ |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
316 static OCTAVE_API bool emulate_mop (double, T); \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
317 \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
318 template <typename xop> \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
319 static bool mop (double x, T y) \ |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
320 { \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
321 return emulate_mop<xop> (x, y); \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
322 } \ |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
323 \ |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
324 template <typename xop> \ |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
325 static OCTAVE_API bool emulate_mop (T, double); \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
326 \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
327 template <typename xop> \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
328 static bool mop (T x, double y) \ |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
329 { \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
330 return emulate_mop<xop> (x, y); \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
331 } |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
332 |
8856
ab4db66e286f
workaround gcc 4.3 explicit instantiation bug in octave_int_cmp_op
Jaroslav Hajek <highegg@gmail.com>
parents:
8731
diff
changeset
|
333 #endif |
ab4db66e286f
workaround gcc 4.3 explicit instantiation bug in octave_int_cmp_op
Jaroslav Hajek <highegg@gmail.com>
parents:
8731
diff
changeset
|
334 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
335 OCTAVE_DEFINE_LONG_DOUBLE_INT_CMP_OP (int64_t) |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
336 OCTAVE_DEFINE_LONG_DOUBLE_INT_CMP_OP (uint64_t) |
8856
ab4db66e286f
workaround gcc 4.3 explicit instantiation bug in octave_int_cmp_op
Jaroslav Hajek <highegg@gmail.com>
parents:
8731
diff
changeset
|
337 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
338 #undef OCTAVE_DEFINE_LONG_DOUBLE_INT_CMP_OP |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
339 }; |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
340 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
341 // Base integer class. No data, just conversion methods and exception |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
342 // flags. |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
343 |
21139
538b57866b90
consistently use "typename" intead of "class" in template declarations
John W. Eaton <jwe@octave.org>
parents:
20791
diff
changeset
|
344 template <typename T> |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
345 class octave_int_base |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
346 { |
17993
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
347 public: |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
348 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
349 static T min_val (void) { return std::numeric_limits<T>::min (); } |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
350 static T max_val (void) { return std::numeric_limits<T>::max (); } |
4943 | 351 |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
352 // Convert integer value. |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
353 |
21139
538b57866b90
consistently use "typename" intead of "class" in template declarations
John W. Eaton <jwe@octave.org>
parents:
20791
diff
changeset
|
354 template <typename S> |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
355 static T truncate_int (const S& value) |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
356 { |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
357 // An exhaustive test whether the max and/or min check can be |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
358 // omitted. |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
359 |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
360 static const bool t_is_signed = std::numeric_limits<T>::is_signed; |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
361 static const bool s_is_signed = std::numeric_limits<S>::is_signed; |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
362 |
18084
8e056300994b
Follow coding convention of defining and initializing only 1 variable per line in liboctave.
Rik <rik@octave.org>
parents:
18017
diff
changeset
|
363 static const int t_size = sizeof (T); |
8e056300994b
Follow coding convention of defining and initializing only 1 variable per line in liboctave.
Rik <rik@octave.org>
parents:
18017
diff
changeset
|
364 static const int s_size = sizeof (S); |
8e056300994b
Follow coding convention of defining and initializing only 1 variable per line in liboctave.
Rik <rik@octave.org>
parents:
18017
diff
changeset
|
365 |
27277
db687716fed6
style fixes: generally aim to break long lines before operators, not after
John W. Eaton <jwe@octave.org>
parents:
26376
diff
changeset
|
366 static const bool omit_chk_min |
db687716fed6
style fixes: generally aim to break long lines before operators, not after
John W. Eaton <jwe@octave.org>
parents:
26376
diff
changeset
|
367 = (! s_is_signed || (t_is_signed && t_size >= s_size)); |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
368 |
27277
db687716fed6
style fixes: generally aim to break long lines before operators, not after
John W. Eaton <jwe@octave.org>
parents:
26376
diff
changeset
|
369 static const bool omit_chk_max |
db687716fed6
style fixes: generally aim to break long lines before operators, not after
John W. Eaton <jwe@octave.org>
parents:
26376
diff
changeset
|
370 = (t_size > s_size |
db687716fed6
style fixes: generally aim to break long lines before operators, not after
John W. Eaton <jwe@octave.org>
parents:
26376
diff
changeset
|
371 || (t_size == s_size && (! t_is_signed || s_is_signed))); |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
372 |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
373 // If the check can be omitted, substitute constant false |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
374 // relation. |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
375 |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
376 typedef octave_int_cmp_op::cf cf; |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
377 typedef octave_int_cmp_op::lt lt; |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
378 typedef octave_int_cmp_op::gt gt; |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
379 typedef typename if_then_else<omit_chk_min, cf, lt>::result chk_min; |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
380 typedef typename if_then_else<omit_chk_max, cf, gt>::result chk_max; |
4943 | 381 |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
382 // Efficiency of the following depends on inlining and dead code |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
383 // elimination, but that should be a piece of cake for most |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
384 // compilers. |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
385 |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
386 if (chk_min::op (value, static_cast<S> (min_val ()))) |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
387 return min_val (); |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
388 else if (chk_max::op (value, static_cast<S> (max_val ()))) |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
389 return max_val (); |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
390 else |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
391 return static_cast<T> (value); |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
392 } |
4943 | 393 |
8185
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
394 private: |
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
395 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
396 // Compute a real-valued threshold for a max/min check. |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
397 |
21139
538b57866b90
consistently use "typename" intead of "class" in template declarations
John W. Eaton <jwe@octave.org>
parents:
20791
diff
changeset
|
398 template <typename S> |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
399 static S compute_threshold (S val, T orig_val) |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
400 { |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
401 // Fool optimizations (maybe redundant). |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
402 |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
403 val = octave::math::round (val); |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
404 |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
405 // If val is even, but orig_val is odd, we're one unit off. |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
406 |
21782
2aef506f3fec
use namespace for lo-mappers.h functions
John W. Eaton <jwe@octave.org>
parents:
21751
diff
changeset
|
407 if (orig_val % 2 && val / 2 == octave::math::round (val / 2)) |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
408 // FIXME: is this always correct? |
19739
3fa35defe495
Adjust spacing of static_cast<> calls to follow Octave coding conventions.
Rik <rik@octave.org>
parents:
19697
diff
changeset
|
409 val *= (static_cast<S> (1) - (std::numeric_limits<S>::epsilon () / 2)); |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
410 |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
411 return val; |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
412 } |
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
413 |
8185
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
414 public: |
21573
f3f8e1d3e399
avoid mulitple definitions of static function-scope vars (bug #47372)
John W. Eaton <jwe@octave.org>
parents:
21235
diff
changeset
|
415 |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
416 // Convert a real number (check NaN and non-int). |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
417 |
21139
538b57866b90
consistently use "typename" intead of "class" in template declarations
John W. Eaton <jwe@octave.org>
parents:
20791
diff
changeset
|
418 template <typename S> |
29230
6b3faa844395
Set API tags in files in liboctave/util (patch #8919).
Markus Mützel <markus.muetzel@gmx.de>
parents:
28645
diff
changeset
|
419 static OCTAVE_API T convert_real (const S& value); |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
420 }; |
7521
6f10bbb2854a
avoid some GCC warnings for unsigned comparisons
John W. Eaton <jwe@octave.org>
parents:
7503
diff
changeset
|
421 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
422 // Saturated (homogeneous) integer arithmetics. The signed and |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
423 // unsigned implementations are significantly different, so we |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
424 // implement another layer and completely specialize. Arithmetics |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
425 // inherits from octave_int_base so that it can use its exceptions and |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
426 // truncation functions. |
7521
6f10bbb2854a
avoid some GCC warnings for unsigned comparisons
John W. Eaton <jwe@octave.org>
parents:
7503
diff
changeset
|
427 |
21139
538b57866b90
consistently use "typename" intead of "class" in template declarations
John W. Eaton <jwe@octave.org>
parents:
20791
diff
changeset
|
428 template <typename T, bool is_signed> |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
429 class octave_int_arith_base |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
430 { }; |
7521
6f10bbb2854a
avoid some GCC warnings for unsigned comparisons
John W. Eaton <jwe@octave.org>
parents:
7503
diff
changeset
|
431 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
432 // Unsigned arithmetics. C++ standard requires it to be modular, so |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
433 // the overflows can be handled efficiently and reliably. |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
434 |
21139
538b57866b90
consistently use "typename" intead of "class" in template declarations
John W. Eaton <jwe@octave.org>
parents:
20791
diff
changeset
|
435 template <typename T> |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
436 class octave_int_arith_base<T, false> : octave_int_base<T> |
7521
6f10bbb2854a
avoid some GCC warnings for unsigned comparisons
John W. Eaton <jwe@octave.org>
parents:
7503
diff
changeset
|
437 { |
6f10bbb2854a
avoid some GCC warnings for unsigned comparisons
John W. Eaton <jwe@octave.org>
parents:
7503
diff
changeset
|
438 public: |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
439 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
440 static T abs (T x) { return x; } |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
441 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
442 static T signum (T x) { return x ? static_cast<T> (1) : static_cast<T> (0); } |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
443 |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
444 // Shifts do not overflow. |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
445 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
446 static T rshift (T x, int n) { return x >> n; } |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
447 |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
448 static T lshift (T x, int n) { return x << n; } |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
449 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
450 static T minus (T) { return static_cast<T> (0); } |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
451 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
452 // The overflow behavior for unsigned integers is guaranteed by |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
453 // C and C++, so the following should always work. |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
454 |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
455 static T add (T x, T y) |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
456 { |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
457 T u = x + y; |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
458 |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
459 if (u < x) |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
460 u = octave_int_base<T>::max_val (); |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
461 |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
462 return u; |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
463 } |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
464 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
465 static T sub (T x, T y) |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
466 { |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
467 T u = x - y; |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
468 |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
469 if (u > x) |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
470 u = 0; |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
471 |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
472 return u; |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
473 } |
7521
6f10bbb2854a
avoid some GCC warnings for unsigned comparisons
John W. Eaton <jwe@octave.org>
parents:
7503
diff
changeset
|
474 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
475 // Multiplication is done using promotion to wider integer type. If |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
476 // there is no suitable promotion type, this operation *MUST* be |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
477 // specialized. |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
478 |
17993
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
479 static T mul (T x, T y) { return mul_internal (x, y); } |
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
480 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
481 static T mul_internal (T x, T y) |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
482 { |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
483 // Promotion type for multiplication (if exists). |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
484 |
31607
aac27ad79be6
maint: Re-indent code after switch to using namespace macros.
Rik <rik@octave.org>
parents:
31605
diff
changeset
|
485 typedef typename query_integer_type<2* sizeof (T), false>::type mptype; |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
486 |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
487 return octave_int_base<T>::truncate_int (static_cast<mptype> (x) |
31607
aac27ad79be6
maint: Re-indent code after switch to using namespace macros.
Rik <rik@octave.org>
parents:
31605
diff
changeset
|
488 * static_cast<mptype> (y)); |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
489 } |
7521
6f10bbb2854a
avoid some GCC warnings for unsigned comparisons
John W. Eaton <jwe@octave.org>
parents:
7503
diff
changeset
|
490 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
491 // Division with rounding to nearest. Note that / and % are |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
492 // probably computed by a single instruction. |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
493 |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
494 static T div (T x, T y) |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
495 { |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
496 if (y != 0) |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
497 { |
18084
8e056300994b
Follow coding convention of defining and initializing only 1 variable per line in liboctave.
Rik <rik@octave.org>
parents:
18017
diff
changeset
|
498 T z = x / y; |
8e056300994b
Follow coding convention of defining and initializing only 1 variable per line in liboctave.
Rik <rik@octave.org>
parents:
18017
diff
changeset
|
499 T w = x % y; |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
500 |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
501 if (w >= y-w) |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
502 z += 1; |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
503 |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
504 return z; |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
505 } |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
506 else |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
507 return x ? octave_int_base<T>::max_val () : 0; |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
508 } |
10436
00219bdd2d17
implement built-in rem and mod
Jaroslav Hajek <highegg@gmail.com>
parents:
10405
diff
changeset
|
509 |
00219bdd2d17
implement built-in rem and mod
Jaroslav Hajek <highegg@gmail.com>
parents:
10405
diff
changeset
|
510 // Remainder. |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
511 |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
512 static T rem (T x, T y) { return y != 0 ? x % y : 0; } |
10436
00219bdd2d17
implement built-in rem and mod
Jaroslav Hajek <highegg@gmail.com>
parents:
10405
diff
changeset
|
513 |
21751
b571fc85953f
maint: Use two spaces after period to indicate sentence break.
Rik <rik@octave.org>
parents:
21724
diff
changeset
|
514 // Modulus. Note the weird y = 0 case for Matlab compatibility. |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
515 |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
516 static T mod (T x, T y) { return y != 0 ? x % y : x; } |
7521
6f10bbb2854a
avoid some GCC warnings for unsigned comparisons
John W. Eaton <jwe@octave.org>
parents:
7503
diff
changeset
|
517 }; |
6f10bbb2854a
avoid some GCC warnings for unsigned comparisons
John W. Eaton <jwe@octave.org>
parents:
7503
diff
changeset
|
518 |
21724
aba2e6293dd8
use "#if ..." consistently instead of "#ifdef" and "#ifndef"
John W. Eaton <jwe@octave.org>
parents:
21574
diff
changeset
|
519 #if defined (OCTAVE_INT_USE_LONG_DOUBLE) |
17993
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
520 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
521 // Handle 64-bit multiply using long double. |
17993
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
522 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
523 # if defined (OCTAVE_ENSURE_LONG_DOUBLE_OPERATIONS_ARE_NOT_TRUNCATED) |
17993
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
524 |
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
525 extern OCTAVE_API uint64_t |
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
526 octave_external_uint64_uint64_mul (uint64_t, uint64_t); |
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
527 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
528 # endif |
17993
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
529 |
8185
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
530 template <> |
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
531 inline uint64_t |
17993
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
532 octave_int_arith_base<uint64_t, false>::mul_internal (uint64_t x, uint64_t y) |
8185
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
533 { |
17980
824c05a6d3ec
avoid errors for int64 ops implemented with long double (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17822
diff
changeset
|
534 uint64_t retval; |
824c05a6d3ec
avoid errors for int64 ops implemented with long double (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17822
diff
changeset
|
535 |
8185
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
536 long double p = static_cast<long double> (x) * static_cast<long double> (y); |
17980
824c05a6d3ec
avoid errors for int64 ops implemented with long double (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17822
diff
changeset
|
537 |
8185
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
538 if (p > static_cast<long double> (octave_int_base<uint64_t>::max_val ())) |
17980
824c05a6d3ec
avoid errors for int64 ops implemented with long double (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17822
diff
changeset
|
539 retval = octave_int_base<uint64_t>::max_val (); |
8185
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
540 else |
17980
824c05a6d3ec
avoid errors for int64 ops implemented with long double (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17822
diff
changeset
|
541 retval = static_cast<uint64_t> (p); |
824c05a6d3ec
avoid errors for int64 ops implemented with long double (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17822
diff
changeset
|
542 |
824c05a6d3ec
avoid errors for int64 ops implemented with long double (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17822
diff
changeset
|
543 return retval; |
8185
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
544 } |
17993
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
545 |
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
546 template <> |
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
547 inline uint64_t |
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
548 octave_int_arith_base<uint64_t, false>::mul (uint64_t x, uint64_t y) |
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
549 { |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
550 # if defined (OCTAVE_ENSURE_LONG_DOUBLE_OPERATIONS_ARE_NOT_TRUNCATED) |
17993
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
551 return octave_external_uint64_uint64_mul (x, y); |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
552 # else |
17993
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
553 return mul_internal (x, y); |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
554 # endif |
17993
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
555 } |
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
556 |
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
557 #else |
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
558 |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
559 // Special handler for 64-bit integer multiply. |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
560 |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
561 template <> |
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
562 OCTAVE_API uint64_t |
17993
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
563 octave_int_arith_base<uint64_t, false>::mul_internal (uint64_t, uint64_t); |
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
564 |
8185
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
565 #endif |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
566 |
21139
538b57866b90
consistently use "typename" intead of "class" in template declarations
John W. Eaton <jwe@octave.org>
parents:
20791
diff
changeset
|
567 template <typename T> |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
568 class octave_int_arith_base<T, true> : octave_int_base<T> |
7521
6f10bbb2854a
avoid some GCC warnings for unsigned comparisons
John W. Eaton <jwe@octave.org>
parents:
7503
diff
changeset
|
569 { |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
570 // The corresponding unsigned type. |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
571 typedef typename query_integer_type<sizeof (T), false>::type UT; |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
572 |
7521
6f10bbb2854a
avoid some GCC warnings for unsigned comparisons
John W. Eaton <jwe@octave.org>
parents:
7503
diff
changeset
|
573 public: |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
574 |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
575 // Returns 1 for negative number, 0 otherwise. |
7521
6f10bbb2854a
avoid some GCC warnings for unsigned comparisons
John W. Eaton <jwe@octave.org>
parents:
7503
diff
changeset
|
576 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
577 static T __signbit (T x) { return (x < 0) ? 1 : 0; } |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
578 |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
579 static T abs (T x) |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
580 { |
25843
144820478378
eliminate OCTAVE_HAVE_FAST_INT_OPS macro and associated code (bug #54572)
John W. Eaton <jwe@octave.org>
parents:
25838
diff
changeset
|
581 // -INT_MAX is safe because C++ actually allows only three |
144820478378
eliminate OCTAVE_HAVE_FAST_INT_OPS macro and associated code (bug #54572)
John W. Eaton <jwe@octave.org>
parents:
25838
diff
changeset
|
582 // implementations of integers: sign & magnitude, ones complement |
144820478378
eliminate OCTAVE_HAVE_FAST_INT_OPS macro and associated code (bug #54572)
John W. Eaton <jwe@octave.org>
parents:
25838
diff
changeset
|
583 // and twos complement. The first test will, with modest |
144820478378
eliminate OCTAVE_HAVE_FAST_INT_OPS macro and associated code (bug #54572)
John W. Eaton <jwe@octave.org>
parents:
25838
diff
changeset
|
584 // optimizations, evaluate at compile time, and maybe eliminate |
144820478378
eliminate OCTAVE_HAVE_FAST_INT_OPS macro and associated code (bug #54572)
John W. Eaton <jwe@octave.org>
parents:
25838
diff
changeset
|
585 // the branch completely. |
144820478378
eliminate OCTAVE_HAVE_FAST_INT_OPS macro and associated code (bug #54572)
John W. Eaton <jwe@octave.org>
parents:
25838
diff
changeset
|
586 |
144820478378
eliminate OCTAVE_HAVE_FAST_INT_OPS macro and associated code (bug #54572)
John W. Eaton <jwe@octave.org>
parents:
25838
diff
changeset
|
587 return ((octave_int_base<T>::min_val () < -octave_int_base<T>::max_val () |
144820478378
eliminate OCTAVE_HAVE_FAST_INT_OPS macro and associated code (bug #54572)
John W. Eaton <jwe@octave.org>
parents:
25838
diff
changeset
|
588 && x == octave_int_base<T>::min_val ()) |
144820478378
eliminate OCTAVE_HAVE_FAST_INT_OPS macro and associated code (bug #54572)
John W. Eaton <jwe@octave.org>
parents:
25838
diff
changeset
|
589 ? octave_int_base<T>::max_val () |
144820478378
eliminate OCTAVE_HAVE_FAST_INT_OPS macro and associated code (bug #54572)
John W. Eaton <jwe@octave.org>
parents:
25838
diff
changeset
|
590 : ((x < 0) ? -x : x)); |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
591 } |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
592 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
593 static T signum (T x) |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
594 { |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
595 // With modest optimizations, this will compile without a jump. |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
596 |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
597 return ((x > 0) ? 1 : 0) - __signbit (x); |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
598 } |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
599 |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
600 // FIXME: we do not have an authority what signed shifts should |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
601 // exactly do, so we define them the easy way. Note that Matlab |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
602 // does not define signed shifts. |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
603 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
604 static T rshift (T x, int n) { return x >> n; } |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
605 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
606 static T lshift (T x, int n) { return x << n; } |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
607 |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
608 // Minus has problems similar to abs. |
25843
144820478378
eliminate OCTAVE_HAVE_FAST_INT_OPS macro and associated code (bug #54572)
John W. Eaton <jwe@octave.org>
parents:
25838
diff
changeset
|
609 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
610 static T minus (T x) |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
611 { |
25843
144820478378
eliminate OCTAVE_HAVE_FAST_INT_OPS macro and associated code (bug #54572)
John W. Eaton <jwe@octave.org>
parents:
25838
diff
changeset
|
612 return ((octave_int_base<T>::min_val () < -octave_int_base<T>::max_val () |
144820478378
eliminate OCTAVE_HAVE_FAST_INT_OPS macro and associated code (bug #54572)
John W. Eaton <jwe@octave.org>
parents:
25838
diff
changeset
|
613 && x == octave_int_base<T>::min_val ()) |
144820478378
eliminate OCTAVE_HAVE_FAST_INT_OPS macro and associated code (bug #54572)
John W. Eaton <jwe@octave.org>
parents:
25838
diff
changeset
|
614 ? octave_int_base<T>::max_val () |
144820478378
eliminate OCTAVE_HAVE_FAST_INT_OPS macro and associated code (bug #54572)
John W. Eaton <jwe@octave.org>
parents:
25838
diff
changeset
|
615 : -x); |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
616 } |
7521
6f10bbb2854a
avoid some GCC warnings for unsigned comparisons
John W. Eaton <jwe@octave.org>
parents:
7503
diff
changeset
|
617 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
618 static T add (T x, T y) |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
619 { |
25843
144820478378
eliminate OCTAVE_HAVE_FAST_INT_OPS macro and associated code (bug #54572)
John W. Eaton <jwe@octave.org>
parents:
25838
diff
changeset
|
620 // Avoid anything that may overflow. |
25838
26c41d8bf170
fix min-val saturation for 64-bit integer addition (bug #54572)
John W. Eaton <jwe@octave.org>
parents:
25054
diff
changeset
|
621 |
25843
144820478378
eliminate OCTAVE_HAVE_FAST_INT_OPS macro and associated code (bug #54572)
John W. Eaton <jwe@octave.org>
parents:
25838
diff
changeset
|
622 return (y < 0 |
144820478378
eliminate OCTAVE_HAVE_FAST_INT_OPS macro and associated code (bug #54572)
John W. Eaton <jwe@octave.org>
parents:
25838
diff
changeset
|
623 ? (x < octave_int_base<T>::min_val () - y |
144820478378
eliminate OCTAVE_HAVE_FAST_INT_OPS macro and associated code (bug #54572)
John W. Eaton <jwe@octave.org>
parents:
25838
diff
changeset
|
624 ? octave_int_base<T>::min_val () |
144820478378
eliminate OCTAVE_HAVE_FAST_INT_OPS macro and associated code (bug #54572)
John W. Eaton <jwe@octave.org>
parents:
25838
diff
changeset
|
625 : x + y) |
144820478378
eliminate OCTAVE_HAVE_FAST_INT_OPS macro and associated code (bug #54572)
John W. Eaton <jwe@octave.org>
parents:
25838
diff
changeset
|
626 : (x > octave_int_base<T>::max_val () - y |
144820478378
eliminate OCTAVE_HAVE_FAST_INT_OPS macro and associated code (bug #54572)
John W. Eaton <jwe@octave.org>
parents:
25838
diff
changeset
|
627 ? octave_int_base<T>::max_val () |
144820478378
eliminate OCTAVE_HAVE_FAST_INT_OPS macro and associated code (bug #54572)
John W. Eaton <jwe@octave.org>
parents:
25838
diff
changeset
|
628 : x + y)); |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
629 } |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
630 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
631 static T sub (T x, T y) |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
632 { |
25843
144820478378
eliminate OCTAVE_HAVE_FAST_INT_OPS macro and associated code (bug #54572)
John W. Eaton <jwe@octave.org>
parents:
25838
diff
changeset
|
633 // Avoid anything that may overflow. |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
634 |
25843
144820478378
eliminate OCTAVE_HAVE_FAST_INT_OPS macro and associated code (bug #54572)
John W. Eaton <jwe@octave.org>
parents:
25838
diff
changeset
|
635 return (y < 0 |
144820478378
eliminate OCTAVE_HAVE_FAST_INT_OPS macro and associated code (bug #54572)
John W. Eaton <jwe@octave.org>
parents:
25838
diff
changeset
|
636 ? (x > octave_int_base<T>::max_val () + y |
144820478378
eliminate OCTAVE_HAVE_FAST_INT_OPS macro and associated code (bug #54572)
John W. Eaton <jwe@octave.org>
parents:
25838
diff
changeset
|
637 ? octave_int_base<T>::max_val () |
144820478378
eliminate OCTAVE_HAVE_FAST_INT_OPS macro and associated code (bug #54572)
John W. Eaton <jwe@octave.org>
parents:
25838
diff
changeset
|
638 : x - y) |
144820478378
eliminate OCTAVE_HAVE_FAST_INT_OPS macro and associated code (bug #54572)
John W. Eaton <jwe@octave.org>
parents:
25838
diff
changeset
|
639 : (x < octave_int_base<T>::min_val () + y |
27933
863ae57eee69
maint: Use Octave coding conventions in liboctave/
Rik <rik@octave.org>
parents:
27923
diff
changeset
|
640 ? octave_int_base<T>::min_val () |
25843
144820478378
eliminate OCTAVE_HAVE_FAST_INT_OPS macro and associated code (bug #54572)
John W. Eaton <jwe@octave.org>
parents:
25838
diff
changeset
|
641 : x - y)); |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
642 } |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
643 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
644 // Multiplication is done using promotion to wider integer type. If |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
645 // there is no suitable promotion type, this operation *MUST* be |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
646 // specialized. |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
647 |
17993
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
648 static T mul (T x, T y) { return mul_internal (x, y); } |
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
649 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
650 static T mul_internal (T x, T y) |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
651 { |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
652 // Promotion type for multiplication (if exists). |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
653 |
31607
aac27ad79be6
maint: Re-indent code after switch to using namespace macros.
Rik <rik@octave.org>
parents:
31605
diff
changeset
|
654 typedef typename query_integer_type<2* sizeof (T), true>::type mptype; |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
655 |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
656 return octave_int_base<T>::truncate_int (static_cast<mptype> (x) |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
657 * static_cast<mptype> (y)); |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
658 } |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
659 |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
660 // Division. |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
661 |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
662 static T div (T x, T y) |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
663 { |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
664 T z; |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
665 |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
666 if (y == 0) |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
667 { |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
668 if (x < 0) |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
669 z = octave_int_base<T>::min_val (); |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
670 else if (x != 0) |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
671 z = octave_int_base<T>::max_val (); |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
672 else |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
673 z = 0; |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
674 } |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
675 else if (y < 0) |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
676 { |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
677 // This is a special case that overflows as well. |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
678 if (y == -1 && x == octave_int_base<T>::min_val ()) |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
679 z = octave_int_base<T>::max_val (); |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
680 else |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
681 { |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
682 z = x / y; |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
683 // Can't overflow, but std::abs (x) can! |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
684 T w = -octave_int_abs (x % y); |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
685 if (w <= y - w) |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
686 z -= 1 - (__signbit (x) << 1); |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
687 } |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
688 } |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
689 else |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
690 { |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
691 z = x / y; |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
692 |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
693 // FIXME: this is a workaround due to MSVC's absence of |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
694 // std::abs (int64_t). The call to octave_int_abs can't |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
695 // overflow, but std::abs (x) can! |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
696 T w = octave_int_abs (x % y); |
8333 | 697 |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
698 if (w >= y - w) |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
699 z += 1 - (__signbit (x) << 1); |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
700 } |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
701 return z; |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
702 } |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
703 |
10436
00219bdd2d17
implement built-in rem and mod
Jaroslav Hajek <highegg@gmail.com>
parents:
10405
diff
changeset
|
704 // Remainder. |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
705 |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
706 static T rem (T x, T y) |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
707 { |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
708 return y != 0 ? x % y : 0; |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
709 } |
10436
00219bdd2d17
implement built-in rem and mod
Jaroslav Hajek <highegg@gmail.com>
parents:
10405
diff
changeset
|
710 |
21751
b571fc85953f
maint: Use two spaces after period to indicate sentence break.
Rik <rik@octave.org>
parents:
21724
diff
changeset
|
711 // Modulus. Note the weird y = 0 case for Matlab compatibility. |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
712 |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
713 static T mod (T x, T y) |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
714 { |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
715 if (y != 0) |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
716 { |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
717 T r = x % y; |
25858
1f52a96c8c21
Fix mod operation for signed integer types (bug #54602).
Gene Harvey <gharveymn@gmail.com>
parents:
25843
diff
changeset
|
718 return (r == 0) ? 0 : (((r < 0) != (y < 0)) ? r + y : r); |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
719 } |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
720 else |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
721 return x; |
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
722 } |
7521
6f10bbb2854a
avoid some GCC warnings for unsigned comparisons
John W. Eaton <jwe@octave.org>
parents:
7503
diff
changeset
|
723 }; |
6f10bbb2854a
avoid some GCC warnings for unsigned comparisons
John W. Eaton <jwe@octave.org>
parents:
7503
diff
changeset
|
724 |
21724
aba2e6293dd8
use "#if ..." consistently instead of "#ifdef" and "#ifndef"
John W. Eaton <jwe@octave.org>
parents:
21574
diff
changeset
|
725 #if defined (OCTAVE_INT_USE_LONG_DOUBLE) |
17993
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
726 |
8185
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
727 // Handle 64-bit multiply using long double |
17993
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
728 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
729 # if defined (OCTAVE_ENSURE_LONG_DOUBLE_OPERATIONS_ARE_NOT_TRUNCATED) |
17993
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
730 |
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
731 extern OCTAVE_API int64_t |
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
732 octave_external_int64_int64_mul (int64_t, int64_t); |
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
733 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
734 # endif |
17993
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
735 |
8185
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
736 template <> |
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
737 inline int64_t |
17993
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
738 octave_int_arith_base<int64_t, true>::mul_internal (int64_t x, int64_t y) |
8185
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
739 { |
17993
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
740 int64_t retval; |
17980
824c05a6d3ec
avoid errors for int64 ops implemented with long double (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17822
diff
changeset
|
741 |
8185
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
742 long double p = static_cast<long double> (x) * static_cast<long double> (y); |
17980
824c05a6d3ec
avoid errors for int64 ops implemented with long double (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17822
diff
changeset
|
743 |
8185
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
744 if (p > static_cast<long double> (octave_int_base<int64_t>::max_val ())) |
17980
824c05a6d3ec
avoid errors for int64 ops implemented with long double (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17822
diff
changeset
|
745 retval = octave_int_base<int64_t>::max_val (); |
8185
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
746 else if (p < static_cast<long double> (octave_int_base<int64_t>::min_val ())) |
17980
824c05a6d3ec
avoid errors for int64 ops implemented with long double (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17822
diff
changeset
|
747 retval = octave_int_base<int64_t>::min_val (); |
8185
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
748 else |
17980
824c05a6d3ec
avoid errors for int64 ops implemented with long double (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17822
diff
changeset
|
749 retval = static_cast<int64_t> (p); |
824c05a6d3ec
avoid errors for int64 ops implemented with long double (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17822
diff
changeset
|
750 |
824c05a6d3ec
avoid errors for int64 ops implemented with long double (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17822
diff
changeset
|
751 return retval; |
8185
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
752 } |
17993
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
753 |
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
754 template <> |
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
755 inline int64_t |
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
756 octave_int_arith_base<int64_t, true>::mul (int64_t x, int64_t y) |
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
757 { |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
758 # if defined (OCTAVE_ENSURE_LONG_DOUBLE_OPERATIONS_ARE_NOT_TRUNCATED) |
17993
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
759 return octave_external_int64_int64_mul (x, y); |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
760 # else |
17993
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
761 return mul_internal (x, y); |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
762 # endif |
17993
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
763 } |
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
764 |
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
765 #else |
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
766 |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
767 // Special handler for 64-bit integer multiply. |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
768 |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
769 template <> |
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
770 OCTAVE_API int64_t |
17993
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
771 octave_int_arith_base<int64_t, true>::mul_internal (int64_t, int64_t); |
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
772 |
8185
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
773 #endif |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
774 |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
775 // This class simply selects the proper arithmetics. |
21139
538b57866b90
consistently use "typename" intead of "class" in template declarations
John W. Eaton <jwe@octave.org>
parents:
20791
diff
changeset
|
776 template <typename T> |
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
777 class octave_int_arith |
30394
f3f3e3793fb5
maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents:
30232
diff
changeset
|
778 : public octave_int_arith_base<T, std::numeric_limits<T>::is_signed> |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
779 { }; |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
780 |
21139
538b57866b90
consistently use "typename" intead of "class" in template declarations
John W. Eaton <jwe@octave.org>
parents:
20791
diff
changeset
|
781 template <typename T> |
31400
e7fc6251b698
Use more specialized API flags for template classes (bug #61711).
Markus Mützel <markus.muetzel@gmx.de>
parents:
31160
diff
changeset
|
782 class |
e7fc6251b698
Use more specialized API flags for template classes (bug #61711).
Markus Mützel <markus.muetzel@gmx.de>
parents:
31160
diff
changeset
|
783 OCTAVE_TEMPLATE_API |
e7fc6251b698
Use more specialized API flags for template classes (bug #61711).
Markus Mützel <markus.muetzel@gmx.de>
parents:
31160
diff
changeset
|
784 octave_int : public octave_int_base<T> |
4902 | 785 { |
786 public: | |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
787 |
4943 | 788 typedef T val_type; |
789 | |
27379
3db033e86376
use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents:
27277
diff
changeset
|
790 octave_int (void) : m_ival () { } |
4902 | 791 |
27379
3db033e86376
use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents:
27277
diff
changeset
|
792 octave_int (T i) : m_ival (i) { } |
4902 | 793 |
21354
06d15e4e611a
move public data type macros to octave-config.h
John W. Eaton <jwe@octave.org>
parents:
21308
diff
changeset
|
794 #if defined (OCTAVE_HAVE_OVERLOAD_CHAR_INT8_TYPES) |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
795 |
18627
37c300acfcfd
don't truncate when casting char to uintN values (bug #42054)
John W. Eaton <jwe@octave.org>
parents:
18252
diff
changeset
|
796 // Always treat characters as unsigned. |
37c300acfcfd
don't truncate when casting char to uintN values (bug #42054)
John W. Eaton <jwe@octave.org>
parents:
18252
diff
changeset
|
797 octave_int (char c) |
27379
3db033e86376
use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents:
27277
diff
changeset
|
798 : m_ival (octave_int_base<T>::truncate_int (static_cast<unsigned char> (c))) |
18627
37c300acfcfd
don't truncate when casting char to uintN values (bug #42054)
John W. Eaton <jwe@octave.org>
parents:
18252
diff
changeset
|
799 { } |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
800 |
21235
b48d65c5df5b
Disable char/int8_t function overloads where not permitted (bug #45411)
Mike Miller <mtmiller@octave.org>
parents:
19861
diff
changeset
|
801 #endif |
18627
37c300acfcfd
don't truncate when casting char to uintN values (bug #42054)
John W. Eaton <jwe@octave.org>
parents:
18252
diff
changeset
|
802 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
803 octave_int (double d) |
27379
3db033e86376
use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents:
27277
diff
changeset
|
804 : m_ival (octave_int_base<T>::convert_real (d)) { } |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
805 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
806 octave_int (float d) |
27379
3db033e86376
use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents:
27277
diff
changeset
|
807 : m_ival (octave_int_base<T>::convert_real (d)) { } |
6402 | 808 |
21724
aba2e6293dd8
use "#if ..." consistently instead of "#ifdef" and "#ifndef"
John W. Eaton <jwe@octave.org>
parents:
21574
diff
changeset
|
809 #if defined (OCTAVE_INT_USE_LONG_DOUBLE) |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
810 |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
811 octave_int (long double d) |
27379
3db033e86376
use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents:
27277
diff
changeset
|
812 : m_ival (octave_int_base<T>::convert_real (d)) { } |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
813 |
8185
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
814 #endif |
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
815 |
27379
3db033e86376
use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents:
27277
diff
changeset
|
816 octave_int (bool b) : m_ival (b) { } |
4902 | 817 |
21139
538b57866b90
consistently use "typename" intead of "class" in template declarations
John W. Eaton <jwe@octave.org>
parents:
20791
diff
changeset
|
818 template <typename U> |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
819 octave_int (const U& i) |
27379
3db033e86376
use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents:
27277
diff
changeset
|
820 : m_ival(octave_int_base<T>::truncate_int (i)) { } |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
821 |
21139
538b57866b90
consistently use "typename" intead of "class" in template declarations
John W. Eaton <jwe@octave.org>
parents:
20791
diff
changeset
|
822 template <typename U> |
4902 | 823 octave_int (const octave_int<U>& i) |
27379
3db033e86376
use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents:
27277
diff
changeset
|
824 : m_ival (octave_int_base<T>::truncate_int (i.value ())) { } |
4902 | 825 |
27381
d4fdaeaab7f3
use default or deleted ctors/dtors/assignment ops in liboctave/util
John W. Eaton <jwe@octave.org>
parents:
27379
diff
changeset
|
826 octave_int (const octave_int<T>&) = default; |
4902 | 827 |
27381
d4fdaeaab7f3
use default or deleted ctors/dtors/assignment ops in liboctave/util
John W. Eaton <jwe@octave.org>
parents:
27379
diff
changeset
|
828 octave_int& operator = (const octave_int<T>&) = default; |
d4fdaeaab7f3
use default or deleted ctors/dtors/assignment ops in liboctave/util
John W. Eaton <jwe@octave.org>
parents:
27379
diff
changeset
|
829 |
d4fdaeaab7f3
use default or deleted ctors/dtors/assignment ops in liboctave/util
John W. Eaton <jwe@octave.org>
parents:
27379
diff
changeset
|
830 ~octave_int (void) = default; |
4902 | 831 |
27379
3db033e86376
use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents:
27277
diff
changeset
|
832 T value (void) const { return m_ival; } |
4902 | 833 |
4949 | 834 const unsigned char * iptr (void) const |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
835 { |
27379
3db033e86376
use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents:
27277
diff
changeset
|
836 return reinterpret_cast<const unsigned char *> (& m_ival); |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
837 } |
4949 | 838 |
27379
3db033e86376
use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents:
27277
diff
changeset
|
839 bool operator ! (void) const { return ! m_ival; } |
4902 | 840 |
7198 | 841 bool bool_value (void) const { return static_cast<bool> (value ()); } |
842 | |
843 char char_value (void) const { return static_cast<char> (value ()); } | |
844 | |
845 double double_value (void) const { return static_cast<double> (value ()); } | |
846 | |
847 float float_value (void) const { return static_cast<float> (value ()); } | |
848 | |
7177 | 849 operator T (void) const { return value (); } |
850 | |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
851 octave_int<T> operator + () const { return *this; } |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
852 |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
853 // unary operators & mappers |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
854 #define OCTAVE_INT_UN_OP(OPNAME, NAME) \ |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
855 inline octave_int<T> \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
856 OPNAME () const \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
857 { \ |
27379
3db033e86376
use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents:
27277
diff
changeset
|
858 return octave_int_arith<T>::NAME (m_ival); \ |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
859 } |
4902 | 860 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
861 OCTAVE_INT_UN_OP (operator -, minus) |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
862 OCTAVE_INT_UN_OP (abs, abs) |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
863 OCTAVE_INT_UN_OP (signum, signum) |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
864 |
8185
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
865 #undef OCTAVE_INT_UN_OP |
4902 | 866 |
31160
4efd735d034c
octave_int<T>: Overload operator ~ ().
Markus Mützel <markus.muetzel@gmx.de>
parents:
30564
diff
changeset
|
867 octave_int<T> operator ~ (void) const |
4efd735d034c
octave_int<T>: Overload operator ~ ().
Markus Mützel <markus.muetzel@gmx.de>
parents:
30564
diff
changeset
|
868 { |
4efd735d034c
octave_int<T>: Overload operator ~ ().
Markus Mützel <markus.muetzel@gmx.de>
parents:
30564
diff
changeset
|
869 T bitinv = ~ m_ival; |
4efd735d034c
octave_int<T>: Overload operator ~ ().
Markus Mützel <markus.muetzel@gmx.de>
parents:
30564
diff
changeset
|
870 return bitinv; |
4efd735d034c
octave_int<T>: Overload operator ~ ().
Markus Mützel <markus.muetzel@gmx.de>
parents:
30564
diff
changeset
|
871 } |
4efd735d034c
octave_int<T>: Overload operator ~ ().
Markus Mützel <markus.muetzel@gmx.de>
parents:
30564
diff
changeset
|
872 |
27379
3db033e86376
use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents:
27277
diff
changeset
|
873 // Homogeneous binary integer operations. |
3db033e86376
use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents:
27277
diff
changeset
|
874 #define OCTAVE_INT_BIN_OP(OP, NAME, ARGT) \ |
3db033e86376
use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents:
27277
diff
changeset
|
875 inline octave_int<T> \ |
3db033e86376
use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents:
27277
diff
changeset
|
876 operator OP (const ARGT& y) const \ |
3db033e86376
use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents:
27277
diff
changeset
|
877 { \ |
3db033e86376
use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents:
27277
diff
changeset
|
878 return octave_int_arith<T>::NAME (m_ival, y); \ |
3db033e86376
use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents:
27277
diff
changeset
|
879 } \ |
3db033e86376
use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents:
27277
diff
changeset
|
880 \ |
3db033e86376
use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents:
27277
diff
changeset
|
881 inline octave_int<T>& \ |
3db033e86376
use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents:
27277
diff
changeset
|
882 operator OP##= (const ARGT& y) \ |
3db033e86376
use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents:
27277
diff
changeset
|
883 { \ |
3db033e86376
use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents:
27277
diff
changeset
|
884 m_ival = octave_int_arith<T>::NAME (m_ival, y); \ |
3db033e86376
use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents:
27277
diff
changeset
|
885 return *this; \ |
4952 | 886 } |
887 | |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
888 OCTAVE_INT_BIN_OP (+, add, octave_int<T>) |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
889 OCTAVE_INT_BIN_OP (-, sub, octave_int<T>) |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
890 OCTAVE_INT_BIN_OP (*, mul, octave_int<T>) |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
891 OCTAVE_INT_BIN_OP (/, div, octave_int<T>) |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
892 OCTAVE_INT_BIN_OP (%, rem, octave_int<T>) |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
893 OCTAVE_INT_BIN_OP (<<, lshift, int) |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
894 OCTAVE_INT_BIN_OP (>>, rshift, int) |
4952 | 895 |
8185
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
896 #undef OCTAVE_INT_BIN_OP |
7503
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7198
diff
changeset
|
897 |
8185
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
898 static octave_int<T> min (void) { return std::numeric_limits<T>::min (); } |
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
899 static octave_int<T> max (void) { return std::numeric_limits<T>::max (); } |
4906 | 900 |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
901 static int nbits (void) { return std::numeric_limits<T>::digits; } |
4909 | 902 |
15018
3d8ace26c5b4
maint: Use Octave coding conventions for cuddled parentheses in liboctave/.
Rik <rik@octave.org>
parents:
14168
diff
changeset
|
903 static int byte_size (void) { return sizeof (T); } |
4949 | 904 |
29230
6b3faa844395
Set API tags in files in liboctave/util (patch #8919).
Markus Mützel <markus.muetzel@gmx.de>
parents:
28645
diff
changeset
|
905 static const OCTAVE_API char * type_name (); |
7997
2b8952e133c9
implement checked conversions between integers
Jaroslav Hajek <highegg@gmail.com>
parents:
7922
diff
changeset
|
906 |
8185
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
907 // The following are provided for convenience. |
30037
8d6bdd961494
maint: use "s_" prefix for static class variables in oct-inttypes.h
Rik <rik@octave.org>
parents:
29359
diff
changeset
|
908 static const octave_int s_zero, s_one; |
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
909 |
4902 | 910 private: |
911 | |
27379
3db033e86376
use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents:
27277
diff
changeset
|
912 T m_ival; |
4902 | 913 }; |
914 | |
21139
538b57866b90
consistently use "typename" intead of "class" in template declarations
John W. Eaton <jwe@octave.org>
parents:
20791
diff
changeset
|
915 template <typename T> |
10436
00219bdd2d17
implement built-in rem and mod
Jaroslav Hajek <highegg@gmail.com>
parents:
10405
diff
changeset
|
916 inline octave_int<T> |
00219bdd2d17
implement built-in rem and mod
Jaroslav Hajek <highegg@gmail.com>
parents:
10405
diff
changeset
|
917 rem (const octave_int<T>& x, const octave_int<T>& y) |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
918 { |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
919 return octave_int_arith<T>::rem (x.value (), y.value ()); |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
920 } |
10436
00219bdd2d17
implement built-in rem and mod
Jaroslav Hajek <highegg@gmail.com>
parents:
10405
diff
changeset
|
921 |
21139
538b57866b90
consistently use "typename" intead of "class" in template declarations
John W. Eaton <jwe@octave.org>
parents:
20791
diff
changeset
|
922 template <typename T> |
10436
00219bdd2d17
implement built-in rem and mod
Jaroslav Hajek <highegg@gmail.com>
parents:
10405
diff
changeset
|
923 inline octave_int<T> |
00219bdd2d17
implement built-in rem and mod
Jaroslav Hajek <highegg@gmail.com>
parents:
10405
diff
changeset
|
924 mod (const octave_int<T>& x, const octave_int<T>& y) |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
925 { |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
926 return octave_int_arith<T>::mod (x.value (), y.value ()); |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
927 } |
10436
00219bdd2d17
implement built-in rem and mod
Jaroslav Hajek <highegg@gmail.com>
parents:
10405
diff
changeset
|
928 |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
929 // No mixed integer binary operations! |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
930 |
31605
e88a07dec498
maint: Use macros to begin/end C++ namespaces.
Rik <rik@octave.org>
parents:
31400
diff
changeset
|
931 OCTAVE_BEGIN_NAMESPACE(octave) |
e88a07dec498
maint: Use macros to begin/end C++ namespaces.
Rik <rik@octave.org>
parents:
31400
diff
changeset
|
932 |
e88a07dec498
maint: Use macros to begin/end C++ namespaces.
Rik <rik@octave.org>
parents:
31400
diff
changeset
|
933 OCTAVE_BEGIN_NAMESPACE(math) |
e88a07dec498
maint: Use macros to begin/end C++ namespaces.
Rik <rik@octave.org>
parents:
31400
diff
changeset
|
934 |
31607
aac27ad79be6
maint: Re-indent code after switch to using namespace macros.
Rik <rik@octave.org>
parents:
31605
diff
changeset
|
935 template <typename T> |
aac27ad79be6
maint: Re-indent code after switch to using namespace macros.
Rik <rik@octave.org>
parents:
31605
diff
changeset
|
936 bool |
aac27ad79be6
maint: Re-indent code after switch to using namespace macros.
Rik <rik@octave.org>
parents:
31605
diff
changeset
|
937 isnan (const octave_int<T>&) |
aac27ad79be6
maint: Re-indent code after switch to using namespace macros.
Rik <rik@octave.org>
parents:
31605
diff
changeset
|
938 { |
aac27ad79be6
maint: Re-indent code after switch to using namespace macros.
Rik <rik@octave.org>
parents:
31605
diff
changeset
|
939 return false; |
aac27ad79be6
maint: Re-indent code after switch to using namespace macros.
Rik <rik@octave.org>
parents:
31605
diff
changeset
|
940 } |
31605
e88a07dec498
maint: Use macros to begin/end C++ namespaces.
Rik <rik@octave.org>
parents:
31400
diff
changeset
|
941 |
e88a07dec498
maint: Use macros to begin/end C++ namespaces.
Rik <rik@octave.org>
parents:
31400
diff
changeset
|
942 OCTAVE_END_NAMESPACE(math) |
e88a07dec498
maint: Use macros to begin/end C++ namespaces.
Rik <rik@octave.org>
parents:
31400
diff
changeset
|
943 OCTAVE_END_NAMESPACE(octave) |
21782
2aef506f3fec
use namespace for lo-mappers.h functions
John W. Eaton <jwe@octave.org>
parents:
21751
diff
changeset
|
944 |
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
945 // FIXME: can/should any of these be inline? |
7997
2b8952e133c9
implement checked conversions between integers
Jaroslav Hajek <highegg@gmail.com>
parents:
7922
diff
changeset
|
946 |
21139
538b57866b90
consistently use "typename" intead of "class" in template declarations
John W. Eaton <jwe@octave.org>
parents:
20791
diff
changeset
|
947 template <typename T> |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
948 extern OCTAVE_API octave_int<T> |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
949 pow (const octave_int<T>&, const octave_int<T>&); |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
950 |
21139
538b57866b90
consistently use "typename" intead of "class" in template declarations
John W. Eaton <jwe@octave.org>
parents:
20791
diff
changeset
|
951 template <typename T> |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
952 extern OCTAVE_API octave_int<T> |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
953 pow (const double& a, const octave_int<T>& b); |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
954 |
21139
538b57866b90
consistently use "typename" intead of "class" in template declarations
John W. Eaton <jwe@octave.org>
parents:
20791
diff
changeset
|
955 template <typename T> |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
956 extern OCTAVE_API octave_int<T> |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
957 pow (const octave_int<T>& a, const double& b); |
7922
935be827eaf8
error for NaN values in & and | expressions
John W. Eaton <jwe@octave.org>
parents:
7789
diff
changeset
|
958 |
21139
538b57866b90
consistently use "typename" intead of "class" in template declarations
John W. Eaton <jwe@octave.org>
parents:
20791
diff
changeset
|
959 template <typename T> |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
960 extern OCTAVE_API octave_int<T> |
13012
15eefbd9d4e8
Implement a few missing automatic bsxfun power operators
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
11586
diff
changeset
|
961 pow (const float& a, const octave_int<T>& b); |
15eefbd9d4e8
Implement a few missing automatic bsxfun power operators
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
11586
diff
changeset
|
962 |
21139
538b57866b90
consistently use "typename" intead of "class" in template declarations
John W. Eaton <jwe@octave.org>
parents:
20791
diff
changeset
|
963 template <typename T> |
13012
15eefbd9d4e8
Implement a few missing automatic bsxfun power operators
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
11586
diff
changeset
|
964 extern OCTAVE_API octave_int<T> |
15eefbd9d4e8
Implement a few missing automatic bsxfun power operators
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
11586
diff
changeset
|
965 pow (const octave_int<T>& a, const float& b); |
15eefbd9d4e8
Implement a few missing automatic bsxfun power operators
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
11586
diff
changeset
|
966 |
15eefbd9d4e8
Implement a few missing automatic bsxfun power operators
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
11586
diff
changeset
|
967 // FIXME: Do we really need a differently named single-precision |
15eefbd9d4e8
Implement a few missing automatic bsxfun power operators
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
11586
diff
changeset
|
968 // function integer power function here instead of an overloaded |
15eefbd9d4e8
Implement a few missing automatic bsxfun power operators
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
11586
diff
changeset
|
969 // one? |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
970 |
21139
538b57866b90
consistently use "typename" intead of "class" in template declarations
John W. Eaton <jwe@octave.org>
parents:
20791
diff
changeset
|
971 template <typename T> |
13012
15eefbd9d4e8
Implement a few missing automatic bsxfun power operators
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
11586
diff
changeset
|
972 extern OCTAVE_API octave_int<T> |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
973 powf (const float& a, const octave_int<T>& b); |
4952 | 974 |
21139
538b57866b90
consistently use "typename" intead of "class" in template declarations
John W. Eaton <jwe@octave.org>
parents:
20791
diff
changeset
|
975 template <typename T> |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
976 extern OCTAVE_API octave_int<T> |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
977 powf (const octave_int<T>& a, const float& b); |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
978 |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
979 // Binary relations |
4953 | 980 |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
981 #define OCTAVE_INT_CMP_OP(OP, NAME) \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
982 template <typename T1, typename T2> \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
983 inline bool \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
984 operator OP (const octave_int<T1>& x, const octave_int<T2>& y) \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
985 { \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
986 return octave_int_cmp_op::op<octave_int_cmp_op::NAME, T1, T2> (x.value (), y.value ()); \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
987 } |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
988 |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
989 OCTAVE_INT_CMP_OP (<, lt) |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
990 OCTAVE_INT_CMP_OP (<=, le) |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
991 OCTAVE_INT_CMP_OP (>, gt) |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
992 OCTAVE_INT_CMP_OP (>=, ge) |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
993 OCTAVE_INT_CMP_OP (==, eq) |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
994 OCTAVE_INT_CMP_OP (!=, ne) |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
995 |
8185
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
996 #undef OCTAVE_INT_CMP_OP |
4953 | 997 |
21139
538b57866b90
consistently use "typename" intead of "class" in template declarations
John W. Eaton <jwe@octave.org>
parents:
20791
diff
changeset
|
998 template <typename T> |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
999 inline std::ostream& |
4902 | 1000 operator << (std::ostream& os, const octave_int<T>& ival) |
1001 { | |
1002 os << ival.value (); | |
1003 return os; | |
1004 } | |
1005 | |
21139
538b57866b90
consistently use "typename" intead of "class" in template declarations
John W. Eaton <jwe@octave.org>
parents:
20791
diff
changeset
|
1006 template <typename T> |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
1007 inline std::istream& |
4902 | 1008 operator >> (std::istream& is, octave_int<T>& ival) |
1009 { | |
1010 T tmp = 0; | |
1011 is >> tmp; | |
1012 ival = tmp; | |
1013 return is; | |
1014 } | |
1015 | |
18252
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1016 // We need to specialise for char and unsigned char because |
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1017 // std::operator<< and std::operator>> are overloaded to input and |
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1018 // output the ASCII character values instead of a representation of |
21751
b571fc85953f
maint: Use two spaces after period to indicate sentence break.
Rik <rik@octave.org>
parents:
21724
diff
changeset
|
1019 // their numerical value (e.g., os << char(10) outputs a space instead |
18252
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1020 // of outputting the characters '1' and '0') |
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1021 |
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1022 template <> |
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1023 inline std::ostream& |
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1024 operator << (std::ostream& os, const octave_int<int8_t>& ival) |
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1025 { |
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1026 os << static_cast<int> (ival.value ()); |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1027 |
18252
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1028 return os; |
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1029 } |
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1030 |
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1031 template <> |
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1032 inline std::ostream& |
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1033 operator << (std::ostream& os, const octave_int<uint8_t>& ival) |
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1034 { |
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1035 os << static_cast<unsigned int> (ival.value ()); |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1036 |
18252
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1037 return os; |
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1038 } |
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1039 |
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1040 template <> |
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1041 inline std::istream& |
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1042 operator >> (std::istream& is, octave_int<int8_t>& ival) |
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1043 { |
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1044 int tmp = 0; |
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1045 is >> tmp; |
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1046 ival = static_cast<int8_t> (tmp); |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1047 |
18252
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1048 return is; |
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1049 } |
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1050 |
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1051 template <> |
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1052 inline std::istream& |
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1053 operator >> (std::istream& is, octave_int<uint8_t>& ival) |
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1054 { |
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1055 unsigned int tmp = 0; |
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1056 is >> tmp; |
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1057 ival = static_cast<uint8_t> (tmp); |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1058 |
18252
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1059 return is; |
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1060 } |
284e5c87f27b
Fix saving int8 and uint8 in plain text format (bug #40980)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
18017
diff
changeset
|
1061 |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
1062 // Bitwise operations |
7789
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7598
diff
changeset
|
1063 |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1064 #define OCTAVE_INT_BITCMP_OP(OP) \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1065 template <typename T> \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1066 octave_int<T> \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1067 operator OP (const octave_int<T>& x, const octave_int<T>& y) \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1068 { \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1069 return x.value () OP y.value (); \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1070 } |
4906 | 1071 |
1072 OCTAVE_INT_BITCMP_OP (&) | |
1073 OCTAVE_INT_BITCMP_OP (|) | |
1074 OCTAVE_INT_BITCMP_OP (^) | |
1075 | |
8185
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
1076 #undef OCTAVE_INT_BITCMP_OP |
4906 | 1077 |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
1078 // General bit shift. |
21139
538b57866b90
consistently use "typename" intead of "class" in template declarations
John W. Eaton <jwe@octave.org>
parents:
20791
diff
changeset
|
1079 template <typename T> |
4909 | 1080 octave_int<T> |
4920 | 1081 bitshift (const octave_int<T>& a, int n, |
10312
cbc402e64d83
untabify liboctave header files
John W. Eaton <jwe@octave.org>
parents:
10158
diff
changeset
|
1082 const octave_int<T>& mask = std::numeric_limits<T>::max ()) |
4909 | 1083 { |
1084 if (n > 0) | |
4952 | 1085 return (a << n) & mask; |
4909 | 1086 else if (n < 0) |
4952 | 1087 return (a >> -n) & mask; |
4909 | 1088 else |
8963
d1eab3ddb02d
oct-inttypes.h (bitshift): apply mask even if not shifting
John W. Eaton <jwe@octave.org>
parents:
8950
diff
changeset
|
1089 return a & mask; |
4909 | 1090 } |
1091 | |
21724
aba2e6293dd8
use "#if ..." consistently instead of "#ifdef" and "#ifndef"
John W. Eaton <jwe@octave.org>
parents:
21574
diff
changeset
|
1092 #if defined (OCTAVE_ENSURE_LONG_DOUBLE_OPERATIONS_ARE_NOT_TRUNCATED) |
17993
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
1093 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1094 # define OCTAVE_DECLARE_EXTERNAL_LONG_DOUBLE_INT_OP(T, OP) \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1095 extern OCTAVE_API T \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1096 external_double_ ## T ## _ ## OP (double x, T y); \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1097 \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1098 extern OCTAVE_API T \ |
18017
0cd39f7f2409
additional improvements for int64 ops implemented with long double (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
18005
diff
changeset
|
1099 external_ ## T ## _double_ ## OP (T x, double y) |
17993
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
1100 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1101 # define OCTAVE_DECLARE_EXTERNAL_LONG_DOUBLE_INT_OPS(T) \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1102 OCTAVE_DECLARE_EXTERNAL_LONG_DOUBLE_INT_OP (T, add); \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1103 OCTAVE_DECLARE_EXTERNAL_LONG_DOUBLE_INT_OP (T, sub); \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1104 OCTAVE_DECLARE_EXTERNAL_LONG_DOUBLE_INT_OP (T, mul); \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1105 OCTAVE_DECLARE_EXTERNAL_LONG_DOUBLE_INT_OP (T, div) |
17993
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
1106 |
31607
aac27ad79be6
maint: Re-indent code after switch to using namespace macros.
Rik <rik@octave.org>
parents:
31605
diff
changeset
|
1107 OCTAVE_DECLARE_EXTERNAL_LONG_DOUBLE_INT_OPS (octave_int64); |
aac27ad79be6
maint: Re-indent code after switch to using namespace macros.
Rik <rik@octave.org>
parents:
31605
diff
changeset
|
1108 OCTAVE_DECLARE_EXTERNAL_LONG_DOUBLE_INT_OPS (octave_uint64); |
18005
79653c5b6147
make int64 ops implemented with long double work again (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17993
diff
changeset
|
1109 |
79653c5b6147
make int64 ops implemented with long double work again (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17993
diff
changeset
|
1110 #endif |
17993
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
1111 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1112 #define OCTAVE_INT_DOUBLE_BIN_OP0(OP) \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1113 template <typename T> \ |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1114 inline octave_int<T> \ |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1115 operator OP (const octave_int<T>& x, const double& y) \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1116 { \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1117 return octave_int<T> (static_cast<double> (x) OP y); \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1118 } \ |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1119 \ |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1120 template <typename T> \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1121 inline octave_int<T> \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1122 operator OP (const double& x, const octave_int<T>& y) \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1123 { \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1124 return octave_int<T> (x OP static_cast<double> (y)); \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1125 } |
8185
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
1126 |
21724
aba2e6293dd8
use "#if ..." consistently instead of "#ifdef" and "#ifndef"
John W. Eaton <jwe@octave.org>
parents:
21574
diff
changeset
|
1127 #if defined (OCTAVE_INT_USE_LONG_DOUBLE) |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1128 |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1129 // Handle mixed op using long double. |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1130 |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1131 # if defined (OCTAVE_ENSURE_LONG_DOUBLE_OPERATIONS_ARE_NOT_TRUNCATED) |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1132 |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1133 # define OCTAVE_INT_DOUBLE_BIN_OP(OP, NAME) \ |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1134 OCTAVE_INT_DOUBLE_BIN_OP0(OP) \ |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1135 \ |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1136 template <> \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1137 inline octave_int64 \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1138 operator OP (const double& x, const octave_int64& y) \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1139 { \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1140 return external_double_octave_int64_ ## NAME (x, y); \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1141 } \ |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1142 \ |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1143 template <> \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1144 inline octave_uint64 \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1145 operator OP (const double& x, const octave_uint64& y) \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1146 { \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1147 return external_double_octave_uint64_ ## NAME (x, y); \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1148 } \ |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1149 \ |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1150 template <> \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1151 inline octave_int64 \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1152 operator OP (const octave_int64& x, const double& y) \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1153 { \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1154 return external_octave_int64_double_ ## NAME (x, y); \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1155 } \ |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1156 \ |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1157 template <> \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1158 inline octave_uint64 \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1159 operator OP (const octave_uint64& x, const double& y) \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1160 { \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1161 return external_octave_uint64_double_ ## NAME (x, y); \ |
17980
824c05a6d3ec
avoid errors for int64 ops implemented with long double (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17822
diff
changeset
|
1162 } |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1163 |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1164 # else |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1165 |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1166 # define OCTAVE_INT_DOUBLE_BIN_OP(OP, NAME) \ |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1167 OCTAVE_INT_DOUBLE_BIN_OP0(OP) \ |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1168 \ |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1169 template <> \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1170 inline octave_int64 \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1171 operator OP (const double& x, const octave_int64& y) \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1172 { \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1173 return octave_int64 (x OP static_cast<long double> (y.value ())); \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1174 } \ |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1175 \ |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1176 template <> \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1177 inline octave_uint64 \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1178 operator OP (const double& x, const octave_uint64& y) \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1179 { \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1180 return octave_uint64 (x OP static_cast<long double> (y.value ())); \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1181 } \ |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1182 \ |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1183 template <> \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1184 inline octave_int64 \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1185 operator OP (const octave_int64& x, const double& y) \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1186 { \ |
17993
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
1187 return octave_int64 (static_cast<long double> (x.value ()) OP y); \ |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1188 } \ |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1189 \ |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1190 template <> \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1191 inline octave_uint64 \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1192 operator OP (const octave_uint64& x, const double& y) \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1193 { \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1194 return octave_uint64 (static_cast<long double> (x.value ()) OP y); \ |
17993
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
1195 } |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1196 |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1197 # endif |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1198 |
8185
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
1199 #else |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1200 |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1201 // External handlers. |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1202 |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1203 # define OCTAVE_INT_DOUBLE_BIN_OP(OP, NAME) \ |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1204 OCTAVE_INT_DOUBLE_BIN_OP0(OP) \ |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1205 \ |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1206 template <> \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1207 OCTAVE_API octave_int64 \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1208 operator OP (const double&, const octave_int64&); \ |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1209 \ |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1210 template <> \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1211 OCTAVE_API octave_uint64 \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1212 operator OP (const double&, const octave_uint64&); \ |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1213 \ |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1214 template <> \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1215 OCTAVE_API octave_int64 \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1216 operator OP (const octave_int64&, const double&); \ |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1217 \ |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1218 template <> \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1219 OCTAVE_API octave_uint64 \ |
8185
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
1220 operator OP (const octave_uint64&, const double&); |
5072 | 1221 |
8185
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
1222 #endif |
5072 | 1223 |
17993
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
1224 OCTAVE_INT_DOUBLE_BIN_OP (+, add) |
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
1225 OCTAVE_INT_DOUBLE_BIN_OP (-, sub) |
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
1226 OCTAVE_INT_DOUBLE_BIN_OP (*, mul) |
ac9fd5010620
avoid including gnulib header in installed Octave header file (bug #40607)
John W. Eaton <jwe@octave.org>
parents:
17980
diff
changeset
|
1227 OCTAVE_INT_DOUBLE_BIN_OP (/, div) |
5072 | 1228 |
8185
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
1229 #undef OCTAVE_INT_DOUBLE_BIN_OP0 |
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
1230 #undef OCTAVE_INT_DOUBLE_BIN_OP |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1231 #undef OCTAVE_DECLARE_EXTERNAL_LONG_DOUBLE_INT_OP |
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1232 #undef OCTAVE_DECLARE_EXTERNAL_LONG_DOUBLE_INT_OPS |
5072 | 1233 |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1234 #define OCTAVE_INT_DOUBLE_CMP_OP(OP, NAME) \ |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1235 template <typename T> \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1236 inline bool \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1237 operator OP (const octave_int<T>& x, const double& y) \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1238 { \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1239 return octave_int_cmp_op::mop<octave_int_cmp_op::NAME> (x.value (), y); \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1240 } \ |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1241 \ |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1242 template <typename T> \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1243 inline bool \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1244 operator OP (const double& x, const octave_int<T>& y) \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1245 { \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1246 return octave_int_cmp_op::mop<octave_int_cmp_op::NAME> (x, y.value ()); \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1247 } |
5072 | 1248 |
8185
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
1249 OCTAVE_INT_DOUBLE_CMP_OP (<, lt) |
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
1250 OCTAVE_INT_DOUBLE_CMP_OP (<=, le) |
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
1251 OCTAVE_INT_DOUBLE_CMP_OP (>=, ge) |
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
1252 OCTAVE_INT_DOUBLE_CMP_OP (>, gt) |
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
1253 OCTAVE_INT_DOUBLE_CMP_OP (==, eq) |
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
1254 OCTAVE_INT_DOUBLE_CMP_OP (!=, ne) |
5072 | 1255 |
8185
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
1256 #undef OCTAVE_INT_DOUBLE_CMP_OP |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
1257 |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
1258 // Floats are handled by simply converting to doubles. |
5072 | 1259 |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1260 #define OCTAVE_INT_FLOAT_BIN_OP(OP) \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1261 template <typename T> \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1262 inline octave_int<T> \ |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
1263 operator OP (const octave_int<T>& x, float y) \ |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1264 { \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1265 return x OP static_cast<double> (y); \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1266 } \ |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1267 \ |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1268 template <typename T> \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1269 inline octave_int<T> \ |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
1270 operator OP (float x, const octave_int<T>& y) \ |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1271 { \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1272 return static_cast<double> (x) OP y; \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1273 } |
5072 | 1274 |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
1275 OCTAVE_INT_FLOAT_BIN_OP (+) |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
1276 OCTAVE_INT_FLOAT_BIN_OP (-) |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
1277 OCTAVE_INT_FLOAT_BIN_OP (*) |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
1278 OCTAVE_INT_FLOAT_BIN_OP (/) |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
1279 |
8185
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
1280 #undef OCTAVE_INT_FLOAT_BIN_OP |
5072 | 1281 |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
1282 #define OCTAVE_INT_FLOAT_CMP_OP(OP) \ |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1283 template <typename T> \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1284 inline bool \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1285 operator OP (const octave_int<T>& x, const float& y) \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1286 { \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1287 return x OP static_cast<double> (y); \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1288 } \ |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1289 \ |
22197
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1290 template <typename T> \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1291 bool \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1292 operator OP (const float& x, const octave_int<T>& y) \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1293 { \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1294 return static_cast<double> (x) OP y; \ |
e43d83253e28
refill multi-line macro definitions
John W. Eaton <jwe@octave.org>
parents:
22107
diff
changeset
|
1295 } |
4902 | 1296 |
8169
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
1297 OCTAVE_INT_FLOAT_CMP_OP (<) |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
1298 OCTAVE_INT_FLOAT_CMP_OP (<=) |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
1299 OCTAVE_INT_FLOAT_CMP_OP (>=) |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
1300 OCTAVE_INT_FLOAT_CMP_OP (>) |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
1301 OCTAVE_INT_FLOAT_CMP_OP (==) |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
1302 OCTAVE_INT_FLOAT_CMP_OP (!=) |
66bc6f9b4f72
rewrite integer arithmetics and conversions
Jaroslav Hajek <highegg@gmail.com>
parents:
8104
diff
changeset
|
1303 |
8185
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
1304 #undef OCTAVE_INT_FLOAT_CMP_OP |
69c5cce38c29
implement 64-bit arithmetics
Jaroslav Hajek <highegg@gmail.com>
parents:
8169
diff
changeset
|
1305 |
21139
538b57866b90
consistently use "typename" intead of "class" in template declarations
John W. Eaton <jwe@octave.org>
parents:
20791
diff
changeset
|
1306 template <typename T> |
9743
26abff55f6fe
optimize bsxfun for common built-in operations
Jaroslav Hajek <highegg@gmail.com>
parents:
9648
diff
changeset
|
1307 octave_int<T> |
26abff55f6fe
optimize bsxfun for common built-in operations
Jaroslav Hajek <highegg@gmail.com>
parents:
9648
diff
changeset
|
1308 xmax (const octave_int<T>& x, const octave_int<T>& y) |
26abff55f6fe
optimize bsxfun for common built-in operations
Jaroslav Hajek <highegg@gmail.com>
parents:
9648
diff
changeset
|
1309 { |
18084
8e056300994b
Follow coding convention of defining and initializing only 1 variable per line in liboctave.
Rik <rik@octave.org>
parents:
18017
diff
changeset
|
1310 const T xv = x.value (); |
8e056300994b
Follow coding convention of defining and initializing only 1 variable per line in liboctave.
Rik <rik@octave.org>
parents:
18017
diff
changeset
|
1311 const T yv = y.value (); |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1312 |
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
1313 return octave_int<T> (xv >= yv ? xv : yv); |
9743
26abff55f6fe
optimize bsxfun for common built-in operations
Jaroslav Hajek <highegg@gmail.com>
parents:
9648
diff
changeset
|
1314 } |
26abff55f6fe
optimize bsxfun for common built-in operations
Jaroslav Hajek <highegg@gmail.com>
parents:
9648
diff
changeset
|
1315 |
21139
538b57866b90
consistently use "typename" intead of "class" in template declarations
John W. Eaton <jwe@octave.org>
parents:
20791
diff
changeset
|
1316 template <typename T> |
9743
26abff55f6fe
optimize bsxfun for common built-in operations
Jaroslav Hajek <highegg@gmail.com>
parents:
9648
diff
changeset
|
1317 octave_int<T> |
26abff55f6fe
optimize bsxfun for common built-in operations
Jaroslav Hajek <highegg@gmail.com>
parents:
9648
diff
changeset
|
1318 xmin (const octave_int<T>& x, const octave_int<T>& y) |
26abff55f6fe
optimize bsxfun for common built-in operations
Jaroslav Hajek <highegg@gmail.com>
parents:
9648
diff
changeset
|
1319 { |
18084
8e056300994b
Follow coding convention of defining and initializing only 1 variable per line in liboctave.
Rik <rik@octave.org>
parents:
18017
diff
changeset
|
1320 const T xv = x.value (); |
8e056300994b
Follow coding convention of defining and initializing only 1 variable per line in liboctave.
Rik <rik@octave.org>
parents:
18017
diff
changeset
|
1321 const T yv = y.value (); |
25847
c756e9a1e776
style fixes for oct-inttypes.h
John W. Eaton <jwe@octave.org>
parents:
25844
diff
changeset
|
1322 |
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
1323 return octave_int<T> (xv <= yv ? xv : yv); |
9743
26abff55f6fe
optimize bsxfun for common built-in operations
Jaroslav Hajek <highegg@gmail.com>
parents:
9648
diff
changeset
|
1324 } |
26abff55f6fe
optimize bsxfun for common built-in operations
Jaroslav Hajek <highegg@gmail.com>
parents:
9648
diff
changeset
|
1325 |
28645
175eedccc085
define mixed-type operators for octave_idx_type and octave_int<T> values
John W. Eaton <jwe@octave.org>
parents:
27933
diff
changeset
|
1326 // Ints are handled by converting to octave_int type. |
175eedccc085
define mixed-type operators for octave_idx_type and octave_int<T> values
John W. Eaton <jwe@octave.org>
parents:
27933
diff
changeset
|
1327 |
175eedccc085
define mixed-type operators for octave_idx_type and octave_int<T> values
John W. Eaton <jwe@octave.org>
parents:
27933
diff
changeset
|
1328 #define OCTAVE_INT_IDX_TYPE_BIN_OP(OP) \ |
175eedccc085
define mixed-type operators for octave_idx_type and octave_int<T> values
John W. Eaton <jwe@octave.org>
parents:
27933
diff
changeset
|
1329 template <typename T> \ |
175eedccc085
define mixed-type operators for octave_idx_type and octave_int<T> values
John W. Eaton <jwe@octave.org>
parents:
27933
diff
changeset
|
1330 inline octave_int<T> \ |
175eedccc085
define mixed-type operators for octave_idx_type and octave_int<T> values
John W. Eaton <jwe@octave.org>
parents:
27933
diff
changeset
|
1331 operator OP (const octave_int<T>& x, octave_idx_type y) \ |
175eedccc085
define mixed-type operators for octave_idx_type and octave_int<T> values
John W. Eaton <jwe@octave.org>
parents:
27933
diff
changeset
|
1332 { \ |
175eedccc085
define mixed-type operators for octave_idx_type and octave_int<T> values
John W. Eaton <jwe@octave.org>
parents:
27933
diff
changeset
|
1333 return x OP octave_int<T> (y); \ |
175eedccc085
define mixed-type operators for octave_idx_type and octave_int<T> values
John W. Eaton <jwe@octave.org>
parents:
27933
diff
changeset
|
1334 } \ |
175eedccc085
define mixed-type operators for octave_idx_type and octave_int<T> values
John W. Eaton <jwe@octave.org>
parents:
27933
diff
changeset
|
1335 \ |
175eedccc085
define mixed-type operators for octave_idx_type and octave_int<T> values
John W. Eaton <jwe@octave.org>
parents:
27933
diff
changeset
|
1336 template <typename T> \ |
175eedccc085
define mixed-type operators for octave_idx_type and octave_int<T> values
John W. Eaton <jwe@octave.org>
parents:
27933
diff
changeset
|
1337 inline octave_int<T> \ |
175eedccc085
define mixed-type operators for octave_idx_type and octave_int<T> values
John W. Eaton <jwe@octave.org>
parents:
27933
diff
changeset
|
1338 operator OP (octave_idx_type x, const octave_int<T>& y) \ |
175eedccc085
define mixed-type operators for octave_idx_type and octave_int<T> values
John W. Eaton <jwe@octave.org>
parents:
27933
diff
changeset
|
1339 { \ |
175eedccc085
define mixed-type operators for octave_idx_type and octave_int<T> values
John W. Eaton <jwe@octave.org>
parents:
27933
diff
changeset
|
1340 return octave_int<T> (x) OP y; \ |
175eedccc085
define mixed-type operators for octave_idx_type and octave_int<T> values
John W. Eaton <jwe@octave.org>
parents:
27933
diff
changeset
|
1341 } |
175eedccc085
define mixed-type operators for octave_idx_type and octave_int<T> values
John W. Eaton <jwe@octave.org>
parents:
27933
diff
changeset
|
1342 |
175eedccc085
define mixed-type operators for octave_idx_type and octave_int<T> values
John W. Eaton <jwe@octave.org>
parents:
27933
diff
changeset
|
1343 OCTAVE_INT_IDX_TYPE_BIN_OP (+) |
175eedccc085
define mixed-type operators for octave_idx_type and octave_int<T> values
John W. Eaton <jwe@octave.org>
parents:
27933
diff
changeset
|
1344 OCTAVE_INT_IDX_TYPE_BIN_OP (-) |
175eedccc085
define mixed-type operators for octave_idx_type and octave_int<T> values
John W. Eaton <jwe@octave.org>
parents:
27933
diff
changeset
|
1345 OCTAVE_INT_IDX_TYPE_BIN_OP (*) |
175eedccc085
define mixed-type operators for octave_idx_type and octave_int<T> values
John W. Eaton <jwe@octave.org>
parents:
27933
diff
changeset
|
1346 OCTAVE_INT_IDX_TYPE_BIN_OP (/) |
175eedccc085
define mixed-type operators for octave_idx_type and octave_int<T> values
John W. Eaton <jwe@octave.org>
parents:
27933
diff
changeset
|
1347 |
175eedccc085
define mixed-type operators for octave_idx_type and octave_int<T> values
John W. Eaton <jwe@octave.org>
parents:
27933
diff
changeset
|
1348 #undef OCTAVE_INT_IDX_TYPE_BIN_OP |
175eedccc085
define mixed-type operators for octave_idx_type and octave_int<T> values
John W. Eaton <jwe@octave.org>
parents:
27933
diff
changeset
|
1349 |
4902 | 1350 #endif |