octave: liboctave/util/data-conv.cc annotate

annotate liboctave/util/data-conv.cc @ 22197:e43d83253e28

refill multi-line macro definitions Use the Emacs C++ mode style for line continuation markers in multi-line macro definitions. * make_int.cc, __dsearchn__.cc, __magick_read__.cc, besselj.cc, bitfcns.cc, bsxfun.cc, cellfun.cc, data.cc, defun-dld.h, defun-int.h, defun.h, det.cc, error.h, find.cc, gcd.cc, graphics.cc, interpreter.h, jit-ir.h, jit-typeinfo.h, lookup.cc, ls-mat5.cc, max.cc, mexproto.h, mxarray.in.h, oct-stream.cc, ordschur.cc, pr-output.cc, profiler.h, psi.cc, regexp.cc, sparse-xdiv.cc, sparse-xpow.cc, tril.cc, txt-eng.h, utils.cc, variables.cc, variables.h, xdiv.cc, xpow.cc, __glpk__.cc, ov-base.cc, ov-base.h, ov-cell.cc, ov-ch-mat.cc, ov-classdef.cc, ov-complex.cc, ov-cx-mat.cc, ov-cx-sparse.cc, ov-float.cc, ov-float.h, ov-flt-complex.cc, ov-flt-cx-mat.cc, ov-flt-re-mat.cc, ov-int-traits.h, ov-lazy-idx.h, ov-perm.cc, ov-re-mat.cc, ov-re-sparse.cc, ov-scalar.cc, ov-scalar.h, ov-str-mat.cc, ov-type-conv.h, ov.cc, ov.h, op-class.cc, op-int-conv.cc, op-int.h, op-str-str.cc, ops.h, lex.ll, Array.cc, CMatrix.cc, CSparse.cc, MArray.cc, MArray.h, MDiagArray2.cc, MDiagArray2.h, MSparse.h, Sparse.cc, dMatrix.cc, dSparse.cc, fCMatrix.cc, fMatrix.cc, idx-vector.cc, f77-fcn.h, quit.h, bsxfun-decl.h, bsxfun-defs.cc, lo-specfun.cc, oct-convn.cc, oct-convn.h, oct-norm.cc, oct-norm.h, oct-rand.cc, Sparse-op-decls.h, Sparse-op-defs.h, mx-inlines.cc, mx-op-decl.h, mx-op-defs.h, mach-info.cc, oct-group.cc, oct-passwd.cc, oct-syscalls.cc, oct-time.cc, data-conv.cc, kpse.cc, lo-ieee.h, lo-macros.h, oct-cmplx.h, oct-glob.cc, oct-inttypes.cc, oct-inttypes.h, oct-locbuf.h, oct-sparse.h, url-transfer.cc, oct-conf-post.in.h, shared-fcns.h: Refill macro definitions.

author	John W. Eaton <jwe@octave.org>
date	Mon, 01 Aug 2016 12:40:18 -0400
parents	c4ab2e54f100
children	bac0d6f07a3e

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: 19410 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: 6482 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: 6482 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: 6482 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: 6482 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
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21661 diff changeset	23 #if defined (HAVE_CONFIG_H)
21301 40de9f8f23a6 Use '#include "config.h"' rather than <config.h>. Rik <rik@octave.org> parents: 21202 diff changeset	24 # include "config.h"
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	25 #endif
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	26
2317 8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	27 #include <cctype>
6482 7e958a1532c6 [project @ 2007-04-04 02:37:07 by jwe] jwe parents: 5892 diff changeset	28 #include <cstdlib>
2317 8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	29
3503 d14c483b3c12 [project @ 2000-02-01 04:06:07 by jwe] jwe parents: 3359 diff changeset	30 #include <iostream>
17396 0b644adf4f31 speak CHAR_BIT in C++-ese John W. Eaton <jwe@octave.org> parents: 16074 diff changeset	31 #include <limits>
5760 8d7162924bd3 [project @ 2006-04-14 04:01:37 by jwe] jwe parents: 5307 diff changeset	32 #include <vector>
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	33
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	34 #include "byte-swap.h"
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	35 #include "data-conv.h"
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	36 #include "lo-error.h"
7991 139f47cf17ab Change NA value to support single to double precision conversion David Bateman <dbateman@free.fr> parents: 7789 diff changeset	37 #include "lo-ieee.h"
8377 25bc2d31e1bf improve OCTAVE_LOCAL_BUFFER Jaroslav Hajek <highegg@gmail.com> parents: 7991 diff changeset	38 #include "oct-locbuf.h"
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	39
21354 06d15e4e611a move public data type macros to octave-config.h John W. Eaton <jwe@octave.org> parents: 21301 diff changeset	40 #if defined (OCTAVE_HAVE_LONG_LONG_INT)
22197 e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	41 # define FIND_SIZED_INT_TYPE(VAL, BITS, TQ, Q) \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	42 do \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	43 { \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	44 int sz = BITS / std::numeric_limits<unsigned char>::digits; \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	45 if (sizeof (TQ char) == sz) \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	46 VAL = oct_data_conv::dt_ ## Q ## char; \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	47 else if (sizeof (TQ short) == sz) \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	48 VAL = oct_data_conv::dt_ ## Q ## short; \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	49 else if (sizeof (TQ int) == sz) \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	50 VAL = oct_data_conv::dt_ ## Q ## int; \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	51 else if (sizeof (TQ long) == sz) \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	52 VAL = oct_data_conv::dt_ ## Q ## long; \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	53 else if (sizeof (TQ long long) == sz) \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	54 VAL = oct_data_conv::dt_ ## Q ## longlong; \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	55 else \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	56 VAL = oct_data_conv::dt_unknown; \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	57 } \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	58 while (0)
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	59 #else
22197 e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	60 # define FIND_SIZED_INT_TYPE(VAL, BITS, TQ, Q) \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	61 do \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	62 { \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	63 int sz = BITS / std::numeric_limits<unsigned char>::digits; \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	64 if (sizeof (TQ char) == sz) \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	65 VAL = oct_data_conv::dt_ ## Q ## char; \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	66 else if (sizeof (TQ short) == sz) \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	67 VAL = oct_data_conv::dt_ ## Q ## short; \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	68 else if (sizeof (TQ int) == sz) \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	69 VAL = oct_data_conv::dt_ ## Q ## int; \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	70 else if (sizeof (TQ long) == sz) \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	71 VAL = oct_data_conv::dt_ ## Q ## long; \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	72 else \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	73 VAL = oct_data_conv::dt_unknown; \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	74 } \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	75 while (0)
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	76 #endif
21604 d7a268e68e69 maint: Strip trailing whitespace from source files. John W. Eaton <jwe@octave.org> parents: 21354 diff changeset	77
22197 e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	78 #define FIND_SIZED_FLOAT_TYPE(VAL, BITS) \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	79 do \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	80 { \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	81 int sz = BITS / std::numeric_limits<unsigned char>::digits; \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	82 if (sizeof (float) == sz) \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	83 VAL = oct_data_conv::dt_float; \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	84 else if (sizeof (double) == sz) \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	85 VAL = oct_data_conv::dt_double; \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	86 else \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	87 VAL = oct_data_conv::dt_unknown; \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	88 } \
3358 fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	89 while (0)
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	90
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	91 // I'm not sure it is worth the trouble, but let's use a lookup table
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	92 // for the types that are supposed to be a specific number of bits
17396 0b644adf4f31 speak CHAR_BIT in C++-ese John W. Eaton <jwe@octave.org> parents: 16074 diff changeset	93 // wide. Given the macros above, this should work as long as
0b644adf4f31 speak CHAR_BIT in C++-ese John W. Eaton <jwe@octave.org> parents: 16074 diff changeset	94 // std::numeric_limits<unsigned char>::digits is a multiple of 8 and
0b644adf4f31 speak CHAR_BIT in C++-ese John W. Eaton <jwe@octave.org> parents: 16074 diff changeset	95 // there are types with the right sizes.
3358 fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	96 //
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	97 // The sized data type lookup table has the following format:
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	98 //
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	99 // bits
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	100 // +----+----+----+----+
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	101 // \| 8 \| 16 \| 32 \| 64 \|
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	102 // +----+----+----+----+
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	103 // signed integer \| \| \| \| \|
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	104 // +----+----+----+----+
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	105 // unsigned integer \| \| \| \| \|
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	106 // +----+----+----+----+
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	107 // floating point \| \| \| \| \|
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	108 // +----+----+----+----+
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	109 //
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	110 // So, the 0,3 element is supposed to contain the oct_data_conv enum
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	111 // value corresponding to the correct native data type for a signed
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	112 // 32-bit integer.
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	113
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	114 static void
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	115 init_sized_type_lookup_table (oct_data_conv::data_type table[3][4])
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	116 {
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	117 int bits = 8;
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	118
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	119 for (int i = 0; i < 4; i++)
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	120 {
3359 803643945da1 [project @ 1999-11-19 04:27:48 by jwe] jwe parents: 3358 diff changeset	121 FIND_SIZED_INT_TYPE (table[0][i], bits, , );
3358 fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	122
3359 803643945da1 [project @ 1999-11-19 04:27:48 by jwe] jwe parents: 3358 diff changeset	123 FIND_SIZED_INT_TYPE (table[1][i], bits, unsigned, u);
3358 fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	124
3359 803643945da1 [project @ 1999-11-19 04:27:48 by jwe] jwe parents: 3358 diff changeset	125 FIND_SIZED_FLOAT_TYPE (table[2][i], bits);
3358 fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	126
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	127 bits *= 2;
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	128 }
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	129 }
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	130
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	131 static std::string
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	132 strip_spaces (const std::string& str)
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	133 {
10349 d4d13389c957 make load-save to matlab format work when using --enable-64 John W. Eaton <jwe@octave.org> parents: 10314 diff changeset	134 size_t n = str.length ();
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	135
10349 d4d13389c957 make load-save to matlab format work when using --enable-64 John W. Eaton <jwe@octave.org> parents: 10314 diff changeset	136 size_t k = 0;
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	137
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	138 std::string s (n, ' ');
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	139
10349 d4d13389c957 make load-save to matlab format work when using --enable-64 John W. Eaton <jwe@octave.org> parents: 10314 diff changeset	140 for (size_t i = 0; i < n; i++)
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	141 if (! isspace (str[i]))
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	142 s[k++] = tolower (str[i]);
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	143
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	144 s.resize (k);
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	145
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	146 return s;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	147 }
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	148
22197 e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	149 #define GET_SIZED_INT_TYPE(T, U) \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	150 do \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	151 { \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	152 switch (sizeof (T)) \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	153 { \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	154 case 1: \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	155 retval = dt_ ## U ## int8; \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	156 break; \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	157 \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	158 case 2: \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	159 retval = dt_ ## U ## int16; \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	160 break; \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	161 \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	162 case 4: \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	163 retval = dt_ ## U ## int32; \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	164 break; \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	165 \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	166 case 8: \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	167 retval = dt_ ## U ## int64; \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	168 break; \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	169 \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	170 default: \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	171 retval = dt_unknown; \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	172 break; \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	173 } \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	174 } \
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	175 while (0)
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	176
17416 6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	177 size_t
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	178 oct_data_conv::data_type_size (data_type dt)
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	179 {
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	180 size_t retval = -1;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	181
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	182 switch (dt)
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	183 {
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	184 case oct_data_conv::dt_int8:
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	185 retval = sizeof (int8_t);
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	186 break;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	187
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	188 case oct_data_conv::dt_uint8:
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	189 retval = sizeof (uint8_t);
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	190 break;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	191
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	192 case oct_data_conv::dt_int16:
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	193 retval = sizeof (int16_t);
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	194 break;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	195
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	196 case oct_data_conv::dt_uint16:
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	197 retval = sizeof (uint16_t);
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	198 break;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	199
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	200 case oct_data_conv::dt_int32:
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	201 retval = sizeof (int32_t);
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	202 break;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	203
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	204 case oct_data_conv::dt_uint32:
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	205 retval = sizeof (uint32_t);
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	206 break;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	207
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	208 case oct_data_conv::dt_int64:
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	209 retval = sizeof (int64_t);
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	210 break;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	211
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	212 case oct_data_conv::dt_uint64:
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	213 retval = sizeof (uint64_t);
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	214 break;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	215
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	216 case oct_data_conv::dt_float:
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	217 case oct_data_conv::dt_single:
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	218 retval = sizeof (float);
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	219 break;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	220
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	221 case oct_data_conv::dt_double:
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	222 retval = sizeof (double);
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	223 break;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	224
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	225 case oct_data_conv::dt_char:
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	226 retval = sizeof (char);
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	227 break;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	228
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	229 case oct_data_conv::dt_schar:
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	230 retval = sizeof (signed char);
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	231 break;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	232
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	233 case oct_data_conv::dt_uchar:
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	234 retval = sizeof (unsigned char);
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	235 break;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	236
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	237 case oct_data_conv::dt_short:
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	238 retval = sizeof (short);
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	239 break;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	240
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	241 case oct_data_conv::dt_ushort:
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	242 retval = sizeof (unsigned short);
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	243 break;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	244
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	245 case oct_data_conv::dt_int:
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	246 retval = sizeof (int);
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	247 break;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	248
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	249 case oct_data_conv::dt_uint:
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	250 retval = sizeof (unsigned int);
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	251 break;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	252
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	253 case oct_data_conv::dt_long:
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	254 retval = sizeof (long);
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	255 break;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	256
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	257 case oct_data_conv::dt_ulong:
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	258 retval = sizeof (unsigned long);
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	259 break;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	260
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	261 case oct_data_conv::dt_longlong:
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	262 retval = sizeof (long long);
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	263 break;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	264
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	265 case oct_data_conv::dt_ulonglong:
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	266 retval = sizeof (unsigned long long);
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	267 break;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	268
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	269 case oct_data_conv::dt_logical:
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	270 retval = sizeof (bool);
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	271 break;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	272
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	273 case oct_data_conv::dt_unknown:
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	274 default:
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	275 abort ();
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	276 break;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	277 }
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	278
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	279 return retval;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	280 }
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	281
2317 8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	282 oct_data_conv::data_type
3504 5eef8a2294bd [project @ 2000-02-01 10:06:51 by jwe] jwe parents: 3503 diff changeset	283 oct_data_conv::string_to_data_type (const std::string& str)
2317 8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	284 {
8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	285 data_type retval = dt_unknown;
8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	286
3358 fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	287 static bool initialized = false;
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	288
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	289 static data_type sized_type_table[3][4];
2317 8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	290
3358 fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	291 if (! initialized)
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	292 {
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	293 init_sized_type_lookup_table (sized_type_table);
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	294
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	295 initialized = true;
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	296 }
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	297
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	298 std::string s = strip_spaces (str);
2317 8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	299
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	300 if (s == "int8" \|\| s == "integer*1")
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	301 retval = dt_int8;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	302 else if (s == "uint8")
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	303 retval = dt_uint8;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	304 else if (s == "int16" \|\| s == "integer*2")
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	305 retval = dt_int16;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	306 else if (s == "uint16")
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	307 retval = dt_uint16;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	308 else if (s == "int32" \|\| s == "integer*4")
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	309 retval = dt_int32;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	310 else if (s == "uint32")
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	311 retval = dt_uint32;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	312 else if (s == "int64" \|\| s == "integer*8")
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	313 retval = dt_int64;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	314 else if (s == "uint64")
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	315 retval = dt_uint64;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	316 else if (s == "single" \|\| s == "float32" \|\| s == "real*4")
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	317 retval = dt_single;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	318 else if (s == "double" \|\| s == "float64" \|\| s == "real*8")
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	319 retval = dt_double;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	320 else if (s == "char" \|\| s == "char*1")
2317 8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	321 retval = dt_char;
8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	322 else if (s == "schar" \|\| s == "signedchar")
8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	323 retval = dt_schar;
8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	324 else if (s == "uchar" \|\| s == "unsignedchar")
8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	325 retval = dt_uchar;
8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	326 else if (s == "short")
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	327 GET_SIZED_INT_TYPE (short, );
2317 8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	328 else if (s == "ushort" \|\| s == "unsignedshort")
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	329 GET_SIZED_INT_TYPE (unsigned short, u);
2317 8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	330 else if (s == "int")
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	331 GET_SIZED_INT_TYPE (int, );
2317 8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	332 else if (s == "uint" \|\| s == "unsignedint")
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	333 GET_SIZED_INT_TYPE (unsigned int, u);
2317 8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	334 else if (s == "long")
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	335 GET_SIZED_INT_TYPE (long, );
2317 8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	336 else if (s == "ulong" \|\| s == "unsignedlong")
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	337 GET_SIZED_INT_TYPE (unsigned long, u);
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	338 else if (s == "longlong")
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	339 GET_SIZED_INT_TYPE (long long, );
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	340 else if (s == "ulonglong" \|\| s == "unsignedlonglong")
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	341 GET_SIZED_INT_TYPE (unsigned long long, u);
3358 fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	342 else if (s == "float")
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	343 {
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	344 if (sizeof (float) == sizeof (double))
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	345 retval = dt_double;
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	346 else
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	347 retval = dt_single;
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	348 }
4970 25c2664861bc [project @ 2004-09-08 05:02:32 by jwe] jwe parents: 4944 diff changeset	349 else if (s == "logical")
25c2664861bc [project @ 2004-09-08 05:02:32 by jwe] jwe parents: 4944 diff changeset	350 retval = dt_logical;
2317 8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	351 else
8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	352 (*current_liboctave_error_handler) ("invalid data type specified");
8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	353
3358 fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	354 if (retval == dt_unknown)
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	355 (*current_liboctave_error_handler)
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	356 ("unable to find matching native data type for %s", s.c_str ());
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	357
2317 8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	358 return retval;
8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	359 }
8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	360
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	361 void
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	362 oct_data_conv::string_to_data_type (const std::string& str, int& block_size,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	363 oct_data_conv::data_type& input_type,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	364 oct_data_conv::data_type& output_type)
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	365 {
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	366 block_size = 1;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	367 input_type = dt_uchar;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	368 output_type = dt_double;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	369
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	370 bool input_is_output = false;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	371
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	372 std::string s = strip_spaces (str);
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	373
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	374 size_t pos = 0;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	375
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	376 if (s[0] == '*')
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	377 input_is_output = true;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	378 else
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	379 {
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	380 size_t len = s.length ();
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	381
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	382 while (pos < len && isdigit (s[pos]))
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	383 pos++;
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	384
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	385 if (pos > 0)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	386 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	387 if (s[pos] == '*')
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	388 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	389 block_size = atoi (s.c_str ());
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	390 s = s.substr (pos+1);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	391 }
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	392 else
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21102 diff changeset	393 (*current_liboctave_error_handler)
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21102 diff changeset	394 ("invalid repeat count in '%s'", str.c_str ());
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	395 }
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	396 }
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	397
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	398 pos = s.find ('=');
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	399
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	400 if (pos != std::string::npos)
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	401 {
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	402 if (s[pos+1] == '>')
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	403 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	404 std::string s1;
5870 a0218194daa6 [project @ 2006-06-30 15:50:40 by jwe] jwe parents: 5828 diff changeset	405
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	406 if (input_is_output)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	407 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	408 s1 = s.substr (1, pos-1);
5870 a0218194daa6 [project @ 2006-06-30 15:50:40 by jwe] jwe parents: 5828 diff changeset	409
19410 95c533ed464b use warning IDs for all warnings in liboctave John W. Eaton <jwe@octave.org> parents: 18691 diff changeset	410 (*current_liboctave_warning_with_id_handler)
95c533ed464b use warning IDs for all warnings in liboctave John W. Eaton <jwe@octave.org> parents: 18691 diff changeset	411 ("Octave:fread-precision-syntax",
95c533ed464b use warning IDs for all warnings in liboctave John W. Eaton <jwe@octave.org> parents: 18691 diff changeset	412 "warning: ignoring leading * in fread precision");
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	413 }
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	414 else
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	415 s1 = s.substr (0, pos);
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	416
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	417 input_type = string_to_data_type (s1);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	418 output_type = string_to_data_type (s.substr (pos+2));
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	419 }
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	420 else
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	421 (*current_liboctave_error_handler)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	422 ("fread: invalid precision specified");
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	423 }
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	424 else
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	425 {
5870 a0218194daa6 [project @ 2006-06-30 15:50:40 by jwe] jwe parents: 5828 diff changeset	426 if (input_is_output)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	427 s = s.substr (1);
5870 a0218194daa6 [project @ 2006-06-30 15:50:40 by jwe] jwe parents: 5828 diff changeset	428
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	429 input_type = string_to_data_type (s);
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	430
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	431 if (input_is_output)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	432 output_type = input_type;
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	433 }
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	434 }
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	435
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	436 void
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	437 oct_data_conv::string_to_data_type (const std::string& str, int& block_size,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	438 oct_data_conv::data_type& output_type)
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	439 {
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	440 block_size = 1;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	441 output_type = dt_double;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	442
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	443 std::string s = strip_spaces (str);
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	444
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	445 size_t pos = 0;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	446
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	447 size_t len = s.length ();
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	448
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	449 while (pos < len && isdigit (s[pos]))
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	450 pos++;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	451
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	452 if (pos > 0)
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	453 {
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	454 if (s[pos] == '*')
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	455 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	456 block_size = atoi (s.c_str ());
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	457 s = s.substr (pos+1);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	458 }
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	459 else
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21102 diff changeset	460 (*current_liboctave_error_handler)
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21102 diff changeset	461 ("invalid repeat count in '%s'", str.c_str ());
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	462 }
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	463
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	464 output_type = string_to_data_type (s);
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	465 }
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	466
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	467 std::string
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	468 oct_data_conv::data_type_as_string (oct_data_conv::data_type dt)
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	469 {
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	470 std::string retval;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	471
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	472 switch (dt)
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	473 {
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	474 case oct_data_conv::dt_int8:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	475 retval = "int8";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	476 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	477
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	478 case oct_data_conv::dt_uint8:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	479 retval = "uint8";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	480 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	481
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	482 case oct_data_conv::dt_int16:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	483 retval = "int16";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	484 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	485
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	486 case oct_data_conv::dt_uint16:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	487 retval = "uint16";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	488 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	489
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	490 case oct_data_conv::dt_int32:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	491 retval = "int32";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	492 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	493
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	494 case oct_data_conv::dt_uint32:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	495 retval = "uint32";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	496 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	497
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	498 case oct_data_conv::dt_int64:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	499 retval = "int64";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	500 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	501
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	502 case oct_data_conv::dt_uint64:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	503 retval = "uint64";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	504 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	505
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	506 case oct_data_conv::dt_single:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	507 retval = "single";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	508 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	509
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	510 case oct_data_conv::dt_double:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	511 retval = "double";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	512 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	513
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	514 case oct_data_conv::dt_char:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	515 retval = "char";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	516 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	517
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	518 case oct_data_conv::dt_schar:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	519 retval = "signed char";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	520 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	521
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	522 case oct_data_conv::dt_uchar:
17416 6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	523 retval = "unsigned char";
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	524 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	525
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	526 case oct_data_conv::dt_short:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	527 retval = "short";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	528 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	529
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	530 case oct_data_conv::dt_ushort:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	531 retval = "unsigned short";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	532 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	533
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	534 case oct_data_conv::dt_int:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	535 retval = "int";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	536 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	537
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	538 case oct_data_conv::dt_uint:
17416 6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	539 retval = "unsigned int";
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	540 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	541
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	542 case oct_data_conv::dt_long:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	543 retval = "long";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	544 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	545
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	546 case oct_data_conv::dt_ulong:
17416 6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 17415 diff changeset	547 retval = "unsigned long";
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	548 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	549
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	550 case oct_data_conv::dt_longlong:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	551 retval = "long long";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	552 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	553
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	554 case oct_data_conv::dt_ulonglong:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	555 retval = "unsigned long long";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	556 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	557
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	558 case oct_data_conv::dt_float:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	559 retval = "float";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	560 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	561
4970 25c2664861bc [project @ 2004-09-08 05:02:32 by jwe] jwe parents: 4944 diff changeset	562 case oct_data_conv::dt_logical:
25c2664861bc [project @ 2004-09-08 05:02:32 by jwe] jwe parents: 4944 diff changeset	563 retval = "logical";
25c2664861bc [project @ 2004-09-08 05:02:32 by jwe] jwe parents: 4944 diff changeset	564 break;
25c2664861bc [project @ 2004-09-08 05:02:32 by jwe] jwe parents: 4944 diff changeset	565
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	566 case oct_data_conv::dt_unknown:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	567 default:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	568 retval = "unknown";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	569 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	570 }
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	571
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	572 return retval;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	573 }
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	574
22197 e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	575 #define LS_DO_READ(TYPE, swap, data, size, len, stream) \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	576 do \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	577 { \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	578 if (len > 0) \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	579 { \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	580 OCTAVE_LOCAL_BUFFER (TYPE, ptr, len); \
18691 9a6646cc7c3e Fix load/save to handle up to 2^32-1 elements. Rik <rik@octave.org> parents: 18676 diff changeset	581 std::streamsize n_bytes = size * static_cast<std::streamsize> (len); \
22197 e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	582 stream.read (reinterpret_cast<char *> (ptr), n_bytes); \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	583 if (swap) \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	584 swap_bytes< size > (ptr, len); \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	585 for (octave_idx_type i = 0; i < len; i++) \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	586 data[i] = ptr[i]; \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	587 } \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	588 } \
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	589 while (0)
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	590
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	591 // Have to use copy here to avoid writing over data accessed via
15018 3d8ace26c5b4 maint: Use Octave coding conventions for cuddled parentheses in liboctave/. Rik <rik@octave.org> parents: 14138 diff changeset	592 // Matrix::data ().
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	593
22197 e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	594 #define LS_DO_WRITE(TYPE, data, size, len, stream) \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	595 do \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	596 { \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	597 if (len > 0) \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	598 { \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	599 char tmp_type = type; \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	600 stream.write (&tmp_type, 1); \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	601 OCTAVE_LOCAL_BUFFER (TYPE, ptr, len); \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	602 for (octave_idx_type i = 0; i < len; i++) \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	603 ptr[i] = static_cast<TYPE> (data[i]); \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	604 std::streamsize n_bytes = size * static_cast<std::streamsize> (len); \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	605 stream.write (reinterpret_cast<char *> (ptr), n_bytes); \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	606 } \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	607 } \
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	608 while (0)
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	609
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	610 // Loading variables from files.
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	611
21102 dfcb9d74b253 Rename local gripe_XXX functions to err_XXX or warn_XXX. Rik <rik@octave.org> parents: 19739 diff changeset	612 OCTAVE_NORETURN static
dfcb9d74b253 Rename local gripe_XXX functions to err_XXX or warn_XXX. Rik <rik@octave.org> parents: 19739 diff changeset	613 void
dfcb9d74b253 Rename local gripe_XXX functions to err_XXX or warn_XXX. Rik <rik@octave.org> parents: 19739 diff changeset	614 err_unrecognized_float_fmt (void)
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	615 {
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	616 (*current_liboctave_error_handler)
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	617 ("unrecognized floating point format requested");
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	618 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	619
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	620 // But first, some data conversion routines.
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	621
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	622 // Currently, we only handle conversions for the IEEE types. To fix
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	623 // that, make more of the following routines work.
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	624
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	625 // FIXME: assumes sizeof (Complex) == 8
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	626 // FIXME: assumes sizeof (double) == 8
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	627 // FIXME: assumes sizeof (float) == 4
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	628
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	629 static void
10349 d4d13389c957 make load-save to matlab format work when using --enable-64 John W. Eaton <jwe@octave.org> parents: 10314 diff changeset	630 IEEE_big_double_to_IEEE_little_double (void *d, octave_idx_type len)
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	631 {
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	632 swap_bytes<8> (d, len);
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	633 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	634
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	635 static void
10349 d4d13389c957 make load-save to matlab format work when using --enable-64 John W. Eaton <jwe@octave.org> parents: 10314 diff changeset	636 IEEE_big_float_to_IEEE_little_float (void *d, octave_idx_type len)
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	637 {
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	638 swap_bytes<4> (d, len);
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	639 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	640
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	641 static void
10349 d4d13389c957 make load-save to matlab format work when using --enable-64 John W. Eaton <jwe@octave.org> parents: 10314 diff changeset	642 IEEE_little_double_to_IEEE_big_double (void *d, octave_idx_type len)
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	643 {
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	644 swap_bytes<8> (d, len);
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	645 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	646
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	647 static void
10349 d4d13389c957 make load-save to matlab format work when using --enable-64 John W. Eaton <jwe@octave.org> parents: 10314 diff changeset	648 IEEE_little_float_to_IEEE_big_float (void *d, octave_idx_type len)
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	649 {
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	650 swap_bytes<4> (d, len);
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	651 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	652
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	653 void
10349 d4d13389c957 make load-save to matlab format work when using --enable-64 John W. Eaton <jwe@octave.org> parents: 10314 diff changeset	654 do_double_format_conversion (void *data, octave_idx_type len,
21739 c4ab2e54f100 use namespace for oct_mach_info class John W. Eaton <jwe@octave.org> parents: 21724 diff changeset	655 octave::mach_info::float_format from_fmt,
c4ab2e54f100 use namespace for oct_mach_info class John W. Eaton <jwe@octave.org> parents: 21724 diff changeset	656 octave::mach_info::float_format to_fmt)
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	657 {
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	658 switch (to_fmt)
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	659 {
21739 c4ab2e54f100 use namespace for oct_mach_info class John W. Eaton <jwe@octave.org> parents: 21724 diff changeset	660 case octave::mach_info::flt_fmt_ieee_little_endian:
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	661 switch (from_fmt)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	662 {
21739 c4ab2e54f100 use namespace for oct_mach_info class John W. Eaton <jwe@octave.org> parents: 21724 diff changeset	663 case octave::mach_info::flt_fmt_ieee_little_endian:
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	664 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	665
21739 c4ab2e54f100 use namespace for oct_mach_info class John W. Eaton <jwe@octave.org> parents: 21724 diff changeset	666 case octave::mach_info::flt_fmt_ieee_big_endian:
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	667 IEEE_big_double_to_IEEE_little_double (data, len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	668 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	669
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	670 default:
21102 dfcb9d74b253 Rename local gripe_XXX functions to err_XXX or warn_XXX. Rik <rik@octave.org> parents: 19739 diff changeset	671 err_unrecognized_float_fmt ();
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	672 break;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	673 }
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	674 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	675
21739 c4ab2e54f100 use namespace for oct_mach_info class John W. Eaton <jwe@octave.org> parents: 21724 diff changeset	676 case octave::mach_info::flt_fmt_ieee_big_endian:
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	677 switch (from_fmt)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	678 {
21739 c4ab2e54f100 use namespace for oct_mach_info class John W. Eaton <jwe@octave.org> parents: 21724 diff changeset	679 case octave::mach_info::flt_fmt_ieee_little_endian:
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	680 IEEE_little_double_to_IEEE_big_double (data, len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	681 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	682
21739 c4ab2e54f100 use namespace for oct_mach_info class John W. Eaton <jwe@octave.org> parents: 21724 diff changeset	683 case octave::mach_info::flt_fmt_ieee_big_endian:
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	684 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	685
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	686 default:
21102 dfcb9d74b253 Rename local gripe_XXX functions to err_XXX or warn_XXX. Rik <rik@octave.org> parents: 19739 diff changeset	687 err_unrecognized_float_fmt ();
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	688 break;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	689 }
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	690 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	691
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	692 default:
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	693 (*current_liboctave_error_handler)
15466 d174210ce1ec use ' instead of ` in error messages, warnings and most comments John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	694 ("impossible state reached in file '%s' at line %d",
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	695 __FILE__, __LINE__);
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	696 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	697 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	698 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	699
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	700 void
10349 d4d13389c957 make load-save to matlab format work when using --enable-64 John W. Eaton <jwe@octave.org> parents: 10314 diff changeset	701 do_float_format_conversion (void *data, octave_idx_type len,
21739 c4ab2e54f100 use namespace for oct_mach_info class John W. Eaton <jwe@octave.org> parents: 21724 diff changeset	702 octave::mach_info::float_format from_fmt,
c4ab2e54f100 use namespace for oct_mach_info class John W. Eaton <jwe@octave.org> parents: 21724 diff changeset	703 octave::mach_info::float_format to_fmt)
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	704 {
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	705 switch (to_fmt)
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	706 {
21739 c4ab2e54f100 use namespace for oct_mach_info class John W. Eaton <jwe@octave.org> parents: 21724 diff changeset	707 case octave::mach_info::flt_fmt_ieee_little_endian:
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	708 switch (from_fmt)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	709 {
21739 c4ab2e54f100 use namespace for oct_mach_info class John W. Eaton <jwe@octave.org> parents: 21724 diff changeset	710 case octave::mach_info::flt_fmt_ieee_little_endian:
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	711 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	712
21739 c4ab2e54f100 use namespace for oct_mach_info class John W. Eaton <jwe@octave.org> parents: 21724 diff changeset	713 case octave::mach_info::flt_fmt_ieee_big_endian:
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	714 IEEE_big_float_to_IEEE_little_float (data, len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	715 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	716
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	717 default:
21102 dfcb9d74b253 Rename local gripe_XXX functions to err_XXX or warn_XXX. Rik <rik@octave.org> parents: 19739 diff changeset	718 err_unrecognized_float_fmt ();
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	719 break;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	720 }
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	721 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	722
21739 c4ab2e54f100 use namespace for oct_mach_info class John W. Eaton <jwe@octave.org> parents: 21724 diff changeset	723 case octave::mach_info::flt_fmt_ieee_big_endian:
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	724 switch (from_fmt)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	725 {
21739 c4ab2e54f100 use namespace for oct_mach_info class John W. Eaton <jwe@octave.org> parents: 21724 diff changeset	726 case octave::mach_info::flt_fmt_ieee_little_endian:
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	727 IEEE_little_float_to_IEEE_big_float (data, len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	728 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	729
21739 c4ab2e54f100 use namespace for oct_mach_info class John W. Eaton <jwe@octave.org> parents: 21724 diff changeset	730 case octave::mach_info::flt_fmt_ieee_big_endian:
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	731 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	732
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	733 default:
21102 dfcb9d74b253 Rename local gripe_XXX functions to err_XXX or warn_XXX. Rik <rik@octave.org> parents: 19739 diff changeset	734 err_unrecognized_float_fmt ();
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	735 break;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	736 }
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	737 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	738
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	739 default:
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	740 (*current_liboctave_error_handler)
15466 d174210ce1ec use ' instead of ` in error messages, warnings and most comments John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	741 ("impossible state reached in file '%s' at line %d",
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	742 __FILE__, __LINE__);
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	743 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	744 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	745 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	746
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	747 void
10349 d4d13389c957 make load-save to matlab format work when using --enable-64 John W. Eaton <jwe@octave.org> parents: 10314 diff changeset	748 do_float_format_conversion (void *data, size_t sz, octave_idx_type len,
21739 c4ab2e54f100 use namespace for oct_mach_info class John W. Eaton <jwe@octave.org> parents: 21724 diff changeset	749 octave::mach_info::float_format from_fmt,
c4ab2e54f100 use namespace for oct_mach_info class John W. Eaton <jwe@octave.org> parents: 21724 diff changeset	750 octave::mach_info::float_format to_fmt)
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	751 {
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	752 switch (sz)
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	753 {
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	754 case sizeof (float):
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	755 do_float_format_conversion (data, len, from_fmt, to_fmt);
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	756 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	757
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	758 case sizeof (double):
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	759 do_double_format_conversion (data, len, from_fmt, to_fmt);
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	760 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	761
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	762 default:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	763 (*current_liboctave_error_handler)
15466 d174210ce1ec use ' instead of ` in error messages, warnings and most comments John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	764 ("impossible state reached in file '%s' at line %d",
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	765 __FILE__, __LINE__);
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	766 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	767 }
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	768 }
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	769
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	770 void
10349 d4d13389c957 make load-save to matlab format work when using --enable-64 John W. Eaton <jwe@octave.org> parents: 10314 diff changeset	771 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: 10314 diff changeset	772 octave_idx_type len, bool swap,
21739 c4ab2e54f100 use namespace for oct_mach_info class John W. Eaton <jwe@octave.org> parents: 21724 diff changeset	773 octave::mach_info::float_format fmt)
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	774 {
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	775 switch (type)
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	776 {
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	777 case LS_U_CHAR:
5828 22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe] jwe parents: 5775 diff changeset	778 LS_DO_READ (uint8_t, swap, data, 1, len, is);
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	779 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	780
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	781 case LS_U_SHORT:
5828 22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe] jwe parents: 5775 diff changeset	782 LS_DO_READ (uint16_t, swap, data, 2, len, is);
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	783 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	784
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	785 case LS_U_INT:
5828 22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe] jwe parents: 5775 diff changeset	786 LS_DO_READ (uint32_t, swap, data, 4, len, is);
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	787 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	788
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	789 case LS_CHAR:
5828 22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe] jwe parents: 5775 diff changeset	790 LS_DO_READ (int8_t, swap, data, 1, len, is);
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	791 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	792
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	793 case LS_SHORT:
5828 22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe] jwe parents: 5775 diff changeset	794 LS_DO_READ (int16_t, swap, data, 2, len, is);
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	795 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	796
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	797 case LS_INT:
5828 22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe] jwe parents: 5775 diff changeset	798 LS_DO_READ (int32_t, swap, data, 4, len, is);
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	799 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	800
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	801 case LS_FLOAT:
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	802 {
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	803 OCTAVE_LOCAL_BUFFER (float, ptr, len);
18691 9a6646cc7c3e Fix load/save to handle up to 2^32-1 elements. Rik <rik@octave.org> parents: 18676 diff changeset	804 std::streamsize n_bytes = 4 * static_cast<std::streamsize> (len);
16074 821922270b66 Fix saving binary matrices with up to 2^31 elements (Bug #38326). Rik <rik@octave.org> parents: 15467 diff changeset	805 is.read (reinterpret_cast<char *> (ptr), n_bytes);
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	806 do_float_format_conversion (ptr, len, fmt);
10349 d4d13389c957 make load-save to matlab format work when using --enable-64 John W. Eaton <jwe@octave.org> parents: 10314 diff changeset	807 for (octave_idx_type i = 0; i < len; i++)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	808 data[i] = ptr[i];
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	809 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	810 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	811
3359 803643945da1 [project @ 1999-11-19 04:27:48 by jwe] jwe parents: 3358 diff changeset	812 case LS_DOUBLE: // No conversion necessary.
7991 139f47cf17ab Change NA value to support single to double precision conversion David Bateman <dbateman@free.fr> parents: 7789 diff changeset	813 {
16074 821922270b66 Fix saving binary matrices with up to 2^31 elements (Bug #38326). Rik <rik@octave.org> parents: 15467 diff changeset	814 std::streamsize n_bytes = 8 * static_cast<std::streamsize> (len);
821922270b66 Fix saving binary matrices with up to 2^31 elements (Bug #38326). Rik <rik@octave.org> parents: 15467 diff changeset	815 is.read (reinterpret_cast<char *> (data), n_bytes);
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	816 do_double_format_conversion (data, len, fmt);
7991 139f47cf17ab Change NA value to support single to double precision conversion David Bateman <dbateman@free.fr> parents: 7789 diff changeset	817
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	818 for (int i = 0; i < len; i++)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	819 data[i] = __lo_ieee_replace_old_NA (data[i]);
7991 139f47cf17ab Change NA value to support single to double precision conversion David Bateman <dbateman@free.fr> parents: 7789 diff changeset	820 }
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	821 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	822
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	823 default:
21661 1b9a36a66b01 maint: Octave coding convention cleanups. Rik <rik@octave.org> parents: 21604 diff changeset	824 is.clear (std::ios::failbit \| is.rdstate ());
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	825 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	826 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	827 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	828
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	829 void
10349 d4d13389c957 make load-save to matlab format work when using --enable-64 John W. Eaton <jwe@octave.org> parents: 10314 diff changeset	830 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: 10314 diff changeset	831 octave_idx_type len, bool swap,
21739 c4ab2e54f100 use namespace for oct_mach_info class John W. Eaton <jwe@octave.org> parents: 21724 diff changeset	832 octave::mach_info::float_format fmt)
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	833 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	834 switch (type)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	835 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	836 case LS_U_CHAR:
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	837 LS_DO_READ (uint8_t, swap, data, 1, len, is);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	838 break;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	839
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	840 case LS_U_SHORT:
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	841 LS_DO_READ (uint16_t, swap, data, 2, len, is);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	842 break;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	843
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	844 case LS_U_INT:
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	845 LS_DO_READ (uint32_t, swap, data, 4, len, is);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	846 break;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	847
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	848 case LS_CHAR:
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	849 LS_DO_READ (int8_t, swap, data, 1, len, is);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	850 break;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	851
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	852 case LS_SHORT:
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	853 LS_DO_READ (int16_t, swap, data, 2, len, is);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	854 break;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	855
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	856 case LS_INT:
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	857 LS_DO_READ (int32_t, swap, data, 4, len, is);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	858 break;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	859
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	860 case LS_FLOAT: // No conversion necessary.
16074 821922270b66 Fix saving binary matrices with up to 2^31 elements (Bug #38326). Rik <rik@octave.org> parents: 15467 diff changeset	861 {
18691 9a6646cc7c3e Fix load/save to handle up to 2^32-1 elements. Rik <rik@octave.org> parents: 18676 diff changeset	862 std::streamsize n_bytes = 4 * static_cast<std::streamsize> (len);
16074 821922270b66 Fix saving binary matrices with up to 2^31 elements (Bug #38326). Rik <rik@octave.org> parents: 15467 diff changeset	863 is.read (reinterpret_cast<char *> (data), n_bytes);
821922270b66 Fix saving binary matrices with up to 2^31 elements (Bug #38326). Rik <rik@octave.org> parents: 15467 diff changeset	864 do_float_format_conversion (data, len, fmt);
821922270b66 Fix saving binary matrices with up to 2^31 elements (Bug #38326). Rik <rik@octave.org> parents: 15467 diff changeset	865 }
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	866 break;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	867
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	868 case LS_DOUBLE:
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	869 {
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	870 OCTAVE_LOCAL_BUFFER (double, ptr, len);
18691 9a6646cc7c3e Fix load/save to handle up to 2^32-1 elements. Rik <rik@octave.org> parents: 18676 diff changeset	871 std::streamsize n_bytes = 8 * static_cast<std::streamsize> (len);
16074 821922270b66 Fix saving binary matrices with up to 2^31 elements (Bug #38326). Rik <rik@octave.org> parents: 15467 diff changeset	872 is.read (reinterpret_cast<char *> (ptr), n_bytes);
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	873 do_double_format_conversion (ptr, len, fmt);
10349 d4d13389c957 make load-save to matlab format work when using --enable-64 John W. Eaton <jwe@octave.org> parents: 10314 diff changeset	874 for (octave_idx_type i = 0; i < len; i++)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	875 data[i] = ptr[i];
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	876 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	877 break;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	878
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	879 default:
21661 1b9a36a66b01 maint: Octave coding convention cleanups. Rik <rik@octave.org> parents: 21604 diff changeset	880 is.clear (std::ios::failbit \| is.rdstate ());
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	881 break;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	882 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	883 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	884
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	885 void
10349 d4d13389c957 make load-save to matlab format work when using --enable-64 John W. Eaton <jwe@octave.org> parents: 10314 diff changeset	886 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: 10314 diff changeset	887 octave_idx_type len)
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	888 {
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	889 switch (type)
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	890 {
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	891 case LS_U_CHAR:
5828 22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe] jwe parents: 5775 diff changeset	892 LS_DO_WRITE (uint8_t, data, 1, len, os);
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	893 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	894
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	895 case LS_U_SHORT:
5828 22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe] jwe parents: 5775 diff changeset	896 LS_DO_WRITE (uint16_t, data, 2, len, os);
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	897 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	898
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	899 case LS_U_INT:
5828 22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe] jwe parents: 5775 diff changeset	900 LS_DO_WRITE (uint32_t, data, 4, len, os);
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	901 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	902
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	903 case LS_CHAR:
5828 22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe] jwe parents: 5775 diff changeset	904 LS_DO_WRITE (int8_t, data, 1, len, os);
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	905 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	906
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	907 case LS_SHORT:
5828 22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe] jwe parents: 5775 diff changeset	908 LS_DO_WRITE (int16_t, data, 2, len, os);
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	909 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	910
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	911 case LS_INT:
5828 22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe] jwe parents: 5775 diff changeset	912 LS_DO_WRITE (int32_t, data, 4, len, os);
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	913 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	914
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	915 case LS_FLOAT:
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	916 LS_DO_WRITE (float, data, 4, len, os);
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	917 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	918
3359 803643945da1 [project @ 1999-11-19 04:27:48 by jwe] jwe parents: 3358 diff changeset	919 case LS_DOUBLE: // No conversion necessary.
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	920 {
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	921 char tmp_type = static_cast<char> (type);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	922 os.write (&tmp_type, 1);
16074 821922270b66 Fix saving binary matrices with up to 2^31 elements (Bug #38326). Rik <rik@octave.org> parents: 15467 diff changeset	923 std::streamsize n_bytes = 8 * static_cast<std::streamsize> (len);
21661 1b9a36a66b01 maint: Octave coding convention cleanups. Rik <rik@octave.org> parents: 21604 diff changeset	924 os.write (reinterpret_cast<const char *> (data), n_bytes);
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	925 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	926 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	927
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	928 default:
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	929 (*current_liboctave_error_handler)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	930 ("unrecognized data format requested");
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	931 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	932 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	933 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	934
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	935 void
10349 d4d13389c957 make load-save to matlab format work when using --enable-64 John W. Eaton <jwe@octave.org> parents: 10314 diff changeset	936 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: 10314 diff changeset	937 octave_idx_type len)
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	938 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	939 switch (type)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	940 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	941 case LS_U_CHAR:
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	942 LS_DO_WRITE (uint8_t, data, 1, len, os);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	943 break;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	944
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	945 case LS_U_SHORT:
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	946 LS_DO_WRITE (uint16_t, data, 2, len, os);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	947 break;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	948
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	949 case LS_U_INT:
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	950 LS_DO_WRITE (uint32_t, data, 4, len, os);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	951 break;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	952
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	953 case LS_CHAR:
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	954 LS_DO_WRITE (int8_t, data, 1, len, os);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	955 break;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	956
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	957 case LS_SHORT:
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	958 LS_DO_WRITE (int16_t, data, 2, len, os);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	959 break;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	960
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	961 case LS_INT:
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	962 LS_DO_WRITE (int32_t, data, 4, len, os);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	963 break;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	964
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	965 case LS_FLOAT: // No conversion necessary.
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	966 {
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	967 char tmp_type = static_cast<char> (type);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	968 os.write (&tmp_type, 1);
18691 9a6646cc7c3e Fix load/save to handle up to 2^32-1 elements. Rik <rik@octave.org> parents: 18676 diff changeset	969 std::streamsize n_bytes = 4 * static_cast<std::streamsize> (len);
21661 1b9a36a66b01 maint: Octave coding convention cleanups. Rik <rik@octave.org> parents: 21604 diff changeset	970 os.write (reinterpret_cast<const char *> (data), n_bytes);
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	971 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	972 break;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	973
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	974 case LS_DOUBLE:
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	975 LS_DO_WRITE (double, data, 8, len, os);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	976 break;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	977
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	978 default:
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	979 (*current_liboctave_error_handler)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	980 ("unrecognized data format requested");
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	981 break;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	982 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	983 }

Mercurial > octave

annotate liboctave/util/data-conv.cc @ 22197:e43d83253e28