annotate liboctave/util/data-conv.h @ 21244:1473547f50f5

include octave-config.h in public header files * mk-opts.pl, mkbuiltins, mk-ops.awk, sparse-mk-ops.awk: Emit "#include octave-config.h" statement for generated header files. * build-env.h, builtins.h, Cell.h, base-text-renderer.h, c-file-ptr-stream.h, cdisplay.h, comment-list.h, data.h, debug.h, defaults.in.h, defun-dld.h, defun-int.h, defun.h, dirfns.h, display.h, dynamic-ld.h, error.h, errwarn.h, event-queue.h, file-io.h, ft-text-renderer.h, gl-render.h, gl2ps-print.h, graphics.in.h, gripes.h, help.h, hook-fcn.h, input.h, jit-ir.h, jit-typeinfo.h, jit-util.h, load-path.h, load-save.h, ls-ascii-helper.h, ls-hdf5.h, ls-mat-ascii.h, ls-mat4.h, ls-mat5.h, ls-oct-binary.h, ls-oct-text.h, ls-utils.h, mex.h, mexproto.h, mxarray.in.h, oct-errno.h, oct-fstrm.h, oct-handle.h, oct-hdf5-types.h, oct-hdf5.h, oct-hist.h, oct-iostrm.h, oct-lvalue.h, oct-map.h, oct-obj.h, oct-opengl.h, oct-prcstrm.h, oct-procbuf.h, oct-stdstrm.h, oct-stream.h, oct-strstrm.h, oct.h, octave-default-image.h, octave-link.h, octave-preserve-stream-state.h, pager.h, pr-output.h, procstream.h, profiler.h, pt-jit.h, sighandlers.h, siglist.h, sparse-xdiv.h, sparse-xpow.h, symtab.h, sysdep.h, text-renderer.h, toplev.h, txt-eng.h, utils.h, variables.h, workspace-element.h, xdiv.h, xnorm.h, xpow.h, zfstream.h, oct-qhull.h, ov-base-diag.h, ov-base-int.h, ov-base-mat.h, ov-base-scalar.h, ov-base-sparse.h, ov-base.h, ov-bool-mat.h, ov-bool-sparse.h, ov-bool.h, ov-builtin.h, ov-cell.h, ov-ch-mat.h, ov-class.h, ov-classdef.h, ov-colon.h, ov-complex.h, ov-cs-list.h, ov-cx-diag.h, ov-cx-mat.h, ov-cx-sparse.h, ov-dld-fcn.h, ov-fcn-handle.h, ov-fcn-inline.h, ov-fcn.h, ov-float.h, ov-flt-complex.h, ov-flt-cx-diag.h, ov-flt-cx-mat.h, ov-flt-re-diag.h, ov-flt-re-mat.h, ov-int-traits.h, ov-int16.h, ov-int32.h, ov-int64.h, ov-int8.h, ov-intx.h, ov-java.h, ov-lazy-idx.h, ov-mex-fcn.h, ov-null-mat.h, ov-oncleanup.h, ov-perm.h, ov-range.h, ov-re-diag.h, ov-re-mat.h, ov-re-sparse.h, ov-scalar.h, ov-str-mat.h, ov-struct.h, ov-type-conv.h, ov-typeinfo.h, ov-uint16.h, ov-uint32.h, ov-uint64.h, ov-uint8.h, ov-usr-fcn.h, ov.h, ovl.h, octave.h, op-int.h, ops.h, options-usage.h, lex.h, parse.h, pt-all.h, pt-arg-list.h, pt-array-list.h, pt-assign.h, pt-binop.h, pt-bp.h, pt-cbinop.h, pt-cell.h, pt-check.h, pt-classdef.h, pt-cmd.h, pt-colon.h, pt-const.h, pt-decl.h, pt-eval.h, pt-except.h, pt-exp.h, pt-fcn-handle.h, pt-funcall.h, pt-id.h, pt-idx.h, pt-jump.h, pt-loop.h, pt-mat.h, pt-misc.h, pt-pr-code.h, pt-select.h, pt-stmt.h, pt-unop.h, pt-walk.h, pt.h, token.h, version.in.h, Array-util.h, Array.h, CColVector.h, CDiagMatrix.h, CMatrix.h, CNDArray.h, CRowVector.h, CSparse.h, DiagArray2.h, MArray.h, MDiagArray2.h, MSparse.h, Matrix.h, MatrixType.h, PermMatrix.h, Range.h, Sparse.h, boolMatrix.h, boolNDArray.h, boolSparse.h, chMatrix.h, chNDArray.h, dColVector.h, dDiagMatrix.h, dMatrix.h, dNDArray.h, dRowVector.h, dSparse.h, dim-vector.h, fCColVector.h, fCDiagMatrix.h, fCMatrix.h, fCNDArray.h, fCRowVector.h, fColVector.h, fDiagMatrix.h, fMatrix.h, fNDArray.h, fRowVector.h, idx-vector.h, int16NDArray.h, int32NDArray.h, int64NDArray.h, int8NDArray.h, intNDArray.h, uint16NDArray.h, uint32NDArray.h, uint64NDArray.h, uint8NDArray.h, f77-fcn.h, lo-error.h, quit.h, CmplxAEPBAL.h, CmplxCHOL.h, CmplxGEPBAL.h, CmplxHESS.h, CmplxLU.h, CmplxQR.h, CmplxQRP.h, CmplxSCHUR.h, CmplxSVD.h, CollocWt.h, DAE.h, DAEFunc.h, DAERT.h, DAERTFunc.h, DASPK.h, DASRT.h, DASSL.h, DET.h, EIG.h, LSODE.h, ODE.h, ODEFunc.h, ODES.h, ODESFunc.h, Quad.h, base-aepbal.h, base-dae.h, base-de.h, base-lu.h, base-min.h, base-qr.h, bsxfun-decl.h, bsxfun.h, dbleAEPBAL.h, dbleCHOL.h, dbleGEPBAL.h, dbleHESS.h, dbleLU.h, dbleQR.h, dbleQRP.h, dbleSCHUR.h, dbleSVD.h, eigs-base.h, fCmplxAEPBAL.h, fCmplxCHOL.h, fCmplxGEPBAL.h, fCmplxHESS.h, fCmplxLU.h, fCmplxQR.h, fCmplxQRP.h, fCmplxSCHUR.h, fCmplxSVD.h, fEIG.h, floatAEPBAL.h, floatCHOL.h, floatGEPBAL.h, floatHESS.h, floatLU.h, floatQR.h, floatQRP.h, floatSCHUR.h, floatSVD.h, lo-mappers.h, lo-specfun.h, oct-convn.h, oct-fftw.h, oct-norm.h, oct-rand.h, oct-spparms.h, randgamma.h, randmtzig.h, randpoisson.h, sparse-chol.h, sparse-dmsolve.h, sparse-lu.h, sparse-qr.h, Sparse-diag-op-defs.h, Sparse-op-decls.h, Sparse-op-defs.h, Sparse-perm-op-defs.h, mx-base.h, mx-defs.h, mx-ext.h, mx-op-decl.h, mx-op-defs.h, dir-ops.h, file-ops.h, file-stat.h, lo-sysdep.h, mach-info.h, oct-env.h, oct-group.h, oct-openmp.h, oct-passwd.h, oct-syscalls.h, oct-time.h, oct-uname.h, pathlen.h, sysdir.h, syswait.h, action-container.h, base-list.h, byte-swap.h, caseless-str.h, cmd-edit.h, cmd-hist.h, data-conv.h, functor.h, glob-match.h, lo-array-errwarn.h, lo-array-gripes.h, lo-cutils.h, lo-ieee.h, lo-macros.h, lo-math.h, lo-regexp.h, lo-traits.h, lo-utils.h, oct-alloc.h, oct-base64.h, oct-binmap.h, oct-cmplx.h, oct-glob.h, oct-inttypes.h, oct-locbuf.h, oct-mutex.h, oct-refcount.h, oct-rl-edit.h, oct-rl-hist.h, oct-shlib.h, oct-sort.h, oct-sparse.h, pathsearch.h, singleton-cleanup.h, sparse-sort.h, sparse-util.h, statdefs.h, str-vec.h, sun-utils.h, unwind-prot.h, url-transfer.h: Include octave-config.h.
author John W. Eaton <jwe@octave.org>
date Wed, 10 Feb 2016 14:25:53 -0500
parents f7084eae3318
children c4ab2e54f100
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
1 /*
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
2
19697
4197fc428c7d maint: Update copyright notices for 2015.
John W. Eaton <jwe@octave.org>
parents: 17769
diff changeset
3 Copyright (C) 1996-2015 John W. Eaton
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
4
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
5 This file is part of Octave.
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
6
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
7 Octave is free software; you can redistribute it and/or modify it
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
8 under the terms of the GNU General Public License as published by the
7016
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 6108
diff changeset
9 Free Software Foundation; either version 3 of the License, or (at your
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 6108
diff changeset
10 option) any later version.
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
11
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
12 Octave is distributed in the hope that it will be useful, but WITHOUT
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
15 for more details.
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
16
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
17 You should have received a copy of the GNU General Public License
7016
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 6108
diff changeset
18 along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 6108
diff changeset
19 <http://www.gnu.org/licenses/>.
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
20
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
21 */
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
22
20791
f7084eae3318 maint: Use Octave coding conventions for #if statements.
Rik <rik@octave.org>
parents: 19697
diff changeset
23 #if ! defined (octave_data_conv_h)
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
24 #define octave_data_conv_h 1
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
25
21244
1473547f50f5 include octave-config.h in public header files
John W. Eaton <jwe@octave.org>
parents: 20791
diff changeset
26 #include "octave-config.h"
1473547f50f5 include octave-config.h in public header files
John W. Eaton <jwe@octave.org>
parents: 20791
diff changeset
27
15215
9020dddc925a use std::numeric_limits for integer max and min values
John W. Eaton <jwe@octave.org>
parents: 14138
diff changeset
28 #include <limits>
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
29
2317
8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe]
jwe
parents: 1993
diff changeset
30 #include "mach-info.h"
17416
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
31 #include "oct-inttypes.h"
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
32
2317
8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe]
jwe
parents: 1993
diff changeset
33 class
6108
143b556ce725 [project @ 2006-10-27 01:45:54 by jwe]
jwe
parents: 5828
diff changeset
34 OCTAVE_API
2317
8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe]
jwe
parents: 1993
diff changeset
35 oct_data_conv
8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe]
jwe
parents: 1993
diff changeset
36 {
8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe]
jwe
parents: 1993
diff changeset
37 public:
8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe]
jwe
parents: 1993
diff changeset
38
8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe]
jwe
parents: 1993
diff changeset
39 enum data_type
17769
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
40 {
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
41 dt_int8 = 0,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
42 dt_uint8 = 1,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
43 dt_int16 = 2,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
44 dt_uint16 = 3,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
45 dt_int32 = 4,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
46 dt_uint32 = 5,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
47 dt_int64 = 6,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
48 dt_uint64 = 7,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
49 dt_single = 8,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
50 dt_double = 9,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
51 dt_char = 10,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
52 dt_schar = 11,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
53 dt_uchar = 12,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
54 dt_logical = 13,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
55 dt_short = 14,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
56 dt_ushort = 15,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
57 dt_int = 16,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
58 dt_uint = 17,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
59 dt_long = 18,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
60 dt_ulong = 19,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
61 dt_longlong = 20,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
62 dt_ulonglong = 21,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
63 dt_float = 22,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
64 dt_unknown = 23 // Must be last, have largest value!
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
65 };
2317
8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe]
jwe
parents: 1993
diff changeset
66
17416
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
67 static size_t data_type_size (data_type dt);
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
68
3504
5eef8a2294bd [project @ 2000-02-01 10:06:51 by jwe]
jwe
parents: 2847
diff changeset
69 static data_type string_to_data_type (const std::string& s);
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 3739
diff changeset
70
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 3739
diff changeset
71 static void string_to_data_type (const std::string& s, int& block_size,
10312
cbc402e64d83 untabify liboctave header files
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
72 data_type& input_type,
cbc402e64d83 untabify liboctave header files
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
73 data_type& output_type);
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 3739
diff changeset
74
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 3739
diff changeset
75 static void string_to_data_type (const std::string& s, int& block_size,
10312
cbc402e64d83 untabify liboctave header files
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
76 data_type& output_type);
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 3739
diff changeset
77
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 3739
diff changeset
78 static std::string data_type_as_string (data_type dt);
2317
8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe]
jwe
parents: 1993
diff changeset
79 };
8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe]
jwe
parents: 1993
diff changeset
80
3739
85027c5aedc2 [project @ 2000-11-21 01:55:32 by jwe]
jwe
parents: 3688
diff changeset
81 // Add new entries to the end of this enum, otherwise Octave will not
85027c5aedc2 [project @ 2000-11-21 01:55:32 by jwe]
jwe
parents: 3688
diff changeset
82 // be able to read binary data files stored in Octave's binary data
85027c5aedc2 [project @ 2000-11-21 01:55:32 by jwe]
jwe
parents: 3688
diff changeset
83 // format that were created with previous versions of Octave.
85027c5aedc2 [project @ 2000-11-21 01:55:32 by jwe]
jwe
parents: 3688
diff changeset
84
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
85 enum save_type
17769
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
86 {
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
87 LS_U_CHAR = 0,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
88 LS_U_SHORT = 1,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
89 LS_U_INT = 2,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
90 LS_CHAR = 3,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
91 LS_SHORT = 4,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
92 LS_INT = 5,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
93 LS_FLOAT = 6,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
94 LS_DOUBLE = 7,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
95 LS_U_LONG = 8,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
96 LS_LONG = 9
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
97 };
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
98
6108
143b556ce725 [project @ 2006-10-27 01:45:54 by jwe]
jwe
parents: 5828
diff changeset
99 extern OCTAVE_API void
10349
d4d13389c957 make load-save to matlab format work when using --enable-64
John W. Eaton <jwe@octave.org>
parents: 10312
diff changeset
100 do_double_format_conversion (void *data, octave_idx_type len,
10312
cbc402e64d83 untabify liboctave header files
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
101 oct_mach_info::float_format from_fmt,
cbc402e64d83 untabify liboctave header files
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
102 oct_mach_info::float_format to_fmt
17769
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
103 = oct_mach_info::native_float_format ());
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
104
6108
143b556ce725 [project @ 2006-10-27 01:45:54 by jwe]
jwe
parents: 5828
diff changeset
105 extern OCTAVE_API void
10349
d4d13389c957 make load-save to matlab format work when using --enable-64
John W. Eaton <jwe@octave.org>
parents: 10312
diff changeset
106 do_float_format_conversion (void *data, octave_idx_type len,
10312
cbc402e64d83 untabify liboctave header files
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
107 oct_mach_info::float_format from_fmt,
cbc402e64d83 untabify liboctave header files
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
108 oct_mach_info::float_format to_fmt
17769
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
109 = oct_mach_info::native_float_format ());
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 3739
diff changeset
110
6108
143b556ce725 [project @ 2006-10-27 01:45:54 by jwe]
jwe
parents: 5828
diff changeset
111 extern OCTAVE_API void
10349
d4d13389c957 make load-save to matlab format work when using --enable-64
John W. Eaton <jwe@octave.org>
parents: 10312
diff changeset
112 do_float_format_conversion (void *data, size_t sz, octave_idx_type len,
10312
cbc402e64d83 untabify liboctave header files
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
113 oct_mach_info::float_format from_fmt,
cbc402e64d83 untabify liboctave header files
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
114 oct_mach_info::float_format to_fmt
17769
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
115 = oct_mach_info::native_float_format ());
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
116
6108
143b556ce725 [project @ 2006-10-27 01:45:54 by jwe]
jwe
parents: 5828
diff changeset
117 extern OCTAVE_API void
10349
d4d13389c957 make load-save to matlab format work when using --enable-64
John W. Eaton <jwe@octave.org>
parents: 10312
diff changeset
118 read_doubles (std::istream& is, double *data, save_type type,
d4d13389c957 make load-save to matlab format work when using --enable-64
John W. Eaton <jwe@octave.org>
parents: 10312
diff changeset
119 octave_idx_type len, bool swap, oct_mach_info::float_format fmt);
d4d13389c957 make load-save to matlab format work when using --enable-64
John W. Eaton <jwe@octave.org>
parents: 10312
diff changeset
120
6108
143b556ce725 [project @ 2006-10-27 01:45:54 by jwe]
jwe
parents: 5828
diff changeset
121 extern OCTAVE_API void
10349
d4d13389c957 make load-save to matlab format work when using --enable-64
John W. Eaton <jwe@octave.org>
parents: 10312
diff changeset
122 write_doubles (std::ostream& os, const double *data, save_type type,
d4d13389c957 make load-save to matlab format work when using --enable-64
John W. Eaton <jwe@octave.org>
parents: 10312
diff changeset
123 octave_idx_type len);
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
124
7789
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
125 extern OCTAVE_API void
10349
d4d13389c957 make load-save to matlab format work when using --enable-64
John W. Eaton <jwe@octave.org>
parents: 10312
diff changeset
126 read_floats (std::istream& is, float *data, save_type type,
d4d13389c957 make load-save to matlab format work when using --enable-64
John W. Eaton <jwe@octave.org>
parents: 10312
diff changeset
127 octave_idx_type len, bool swap, oct_mach_info::float_format fmt);
d4d13389c957 make load-save to matlab format work when using --enable-64
John W. Eaton <jwe@octave.org>
parents: 10312
diff changeset
128
7789
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
129 extern OCTAVE_API void
10349
d4d13389c957 make load-save to matlab format work when using --enable-64
John W. Eaton <jwe@octave.org>
parents: 10312
diff changeset
130 write_floats (std::ostream& os, const float *data, save_type type,
d4d13389c957 make load-save to matlab format work when using --enable-64
John W. Eaton <jwe@octave.org>
parents: 10312
diff changeset
131 octave_idx_type len);
7789
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
132
17416
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
133 template <typename T>
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
134 inline bool
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
135 is_equivalent_type (oct_data_conv::data_type)
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
136 {
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
137 return false;
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
138 }
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
139
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
140 template <>
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
141 inline bool
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
142 is_equivalent_type<int8_t> (oct_data_conv::data_type t)
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
143 {
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
144 return t == oct_data_conv::dt_int8;
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
145 }
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
146
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
147 template <>
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
148 inline bool
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
149 is_equivalent_type<int16_t> (oct_data_conv::data_type t)
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
150 {
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
151 return t == oct_data_conv::dt_int16;
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
152 }
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
153
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
154 template <>
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
155 inline bool
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
156 is_equivalent_type<int32_t> (oct_data_conv::data_type t)
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
157 {
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
158 return t == oct_data_conv::dt_int32;
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
159 }
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
160
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
161 template <>
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
162 inline bool
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
163 is_equivalent_type<int64_t> (oct_data_conv::data_type t)
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
164 {
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
165 return t == oct_data_conv::dt_int64;
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
166 }
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
167
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
168 template <>
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
169 inline bool
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
170 is_equivalent_type<uint8_t> (oct_data_conv::data_type t)
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
171 {
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
172 return t == oct_data_conv::dt_uint8;
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
173 }
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
174
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
175 template <>
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
176 inline bool
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
177 is_equivalent_type<uint16_t> (oct_data_conv::data_type t)
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
178 {
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
179 return t == oct_data_conv::dt_uint16;
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
180 }
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
181
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
182 template <>
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
183 inline bool
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
184 is_equivalent_type<uint32_t> (oct_data_conv::data_type t)
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
185 {
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
186 return t == oct_data_conv::dt_uint32;
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
187 }
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
188
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
189 template <>
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
190 inline bool
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
191 is_equivalent_type<uint64_t> (oct_data_conv::data_type t)
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
192 {
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
193 return t == oct_data_conv::dt_uint64;
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
194 }
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
195
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
196 template <>
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
197 inline bool
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
198 is_equivalent_type<octave_int8> (oct_data_conv::data_type t)
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
199 {
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
200 return t == oct_data_conv::dt_int8;
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
201 }
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
202
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
203 template <>
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
204 inline bool
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
205 is_equivalent_type<octave_int16> (oct_data_conv::data_type t)
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
206 {
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
207 return t == oct_data_conv::dt_int16;
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
208 }
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
209
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
210 template <>
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
211 inline bool
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
212 is_equivalent_type<octave_int32> (oct_data_conv::data_type t)
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
213 {
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
214 return t == oct_data_conv::dt_int32;
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
215 }
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
216
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
217 template <>
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
218 inline bool
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
219 is_equivalent_type<octave_int64> (oct_data_conv::data_type t)
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
220 {
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
221 return t == oct_data_conv::dt_int64;
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
222 }
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
223
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
224 template <>
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
225 inline bool
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
226 is_equivalent_type<octave_uint8> (oct_data_conv::data_type t)
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
227 {
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
228 return t == oct_data_conv::dt_uint8;
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
229 }
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
230
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
231 template <>
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
232 inline bool
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
233 is_equivalent_type<octave_uint16> (oct_data_conv::data_type t)
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
234 {
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
235 return t == oct_data_conv::dt_uint16;
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
236 }
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
237
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
238 template <>
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
239 inline bool
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
240 is_equivalent_type<octave_uint32> (oct_data_conv::data_type t)
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
241 {
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
242 return t == oct_data_conv::dt_uint32;
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
243 }
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
244
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
245 template <>
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
246 inline bool
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
247 is_equivalent_type<octave_uint64> (oct_data_conv::data_type t)
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
248 {
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
249 return t == oct_data_conv::dt_uint64;
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
250 }
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
251
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
252 template <>
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
253 inline bool
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
254 is_equivalent_type<double> (oct_data_conv::data_type t)
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
255 {
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
256 return t == oct_data_conv::dt_double;
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
257 }
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
258
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
259 template <>
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
260 inline bool
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
261 is_equivalent_type<float> (oct_data_conv::data_type t)
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
262 {
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
263 return t == oct_data_conv::dt_single || t == oct_data_conv::dt_float;
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
264 }
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
265
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
266 #endif