Mercurial > octave

annotate liboctave/util/data-conv.cc @ 21102:dfcb9d74b253

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Rename local gripe_XXX functions to err_XXX or warn_XXX. * graphics.cc (err_set_invalid): Add OCTAVE_NORETURN attribute. * graphisc.cc: Rename gripe_set_invalid to err_set_invalid. * jit-typeinfo.cc (err_bad_result): Rename from gripe_bad_result. * load-save.cc (err_file_open): Rename from gripe_file_open. * ls-mat5.cc (warn_dim_too_large): Rename from gripe_dim_too_large. * oct-stream.cc (err_invalid_file_id): Rename from gripe_invalid_file_id. * txt-eng-ft.cc (warn_missing_glyph, warn_glyph_render): Rename from gripe_missing_glyph, gripe_glyph_render. * xpow.cc: Add FIXME about strange gripe_failed_diagonalization function. * ov-base-int.cc, ov-bool-mat.cc, ov-bool-sparse.cc, ov-bool.cc, ov-cell.cc, ov-class.cc, ov-complex.cc, ov-cx-mat.cc, ov-cx-sparse.cc, ov-fcn-handle.cc, ov-fcn-inline.cc, ov-float.cc, ov-flt-complex.cc, ov-flt-cx-mat.cc, ov-flt-re-mat.cc, ov-range.cc, ov-re-mat.cc, ov-re-sparse.cc, ov-scalar.cc, ov-str-mat.cc, ov-struct.cc (warn_load, warn_save): ov-base.cc (warn_load, warn_save, err_indexed_assignment, err_assign_conversion_failed, err_no_conversion): Rename from gripe_XXX version. * ov-base.h (warn_load, warn_save): Rename from gripe_load, gripe_save. * ov-classdef.cc (err_method_access, err_property_access): Rename from gripe_method_access, gripe_property_access. * ov-classdef.h (err_invalid_object): Rename from gripe_invalid_object. * ov-oncleanup.h (gripe_internal): Delete function. Place single calling instance directly in code. * ov.cc (err_binary_op, err_binary_op_conv, err_unary_op, err_unary_op_conv, err_unary_op_conversion_failed): Add OCTAVE_NORETURN attribute. Rename from gripe_XXX. * ov.cc (err_cat_op, err_cat_op_conv, ): Rename from gripe_XXX. * lex.h (warn_single_quote_string, warn_language_extension, maybe_warn_language_extension_comment, warn_language_extension_continuation, warn_language_extension_operator): Rename from gripe_XXX. * lex.ll (warn_single_quote_string, warn_language_extension, maybe_warn_language_extension_comment, warn_language_extension_continuation, warn_language_extension_operator): Rename from gripe_XXX. * pt-check.cc (errmsg): Rename from gripe. * pt-check.h (errmsg): Add OCTAVE_NORETURN attribute. Rename from gripe. * PermMatrix.cc (err_invalid_permutation): Add OCTAVE_NORETURN attribute. Rename from gripe_invalid_permutation. * idx-vector.cc (err_invalid_range): Add OCTAVE_NORETURN attribute. Rename from gripe_invalid_range. liboctave/numeric/lo-specfun.cc (err_betainc_nonconformant): Add OCTAVE_NORETURN attribute. Rename from gripe_betainc_nonconformant. * oct-group.cc (err_invalid): New static function. * oct-group.h (gripe_invalid): Delete private function. * oct-passwd.cc (err_invalid): New static function. * oct-passwd.h (gripe_invalid): Delete private function. * data-conv.cc (err_unrecognized_float_fmt): Add OCTAVE_NORETURN attribute. Rename from gripe_unrecognized_float_fmt. * lo-cutils.c (warn_missing_wait_macro): Rename from gripe_missing_wait_macro. * unwind-prot.cc (err_unhandled_exception): Rename from gripe_exception. * unwind-prot.h (err_unhandled_exception): Rename from gripe_exception.
author Rik <rik@octave.org>
date Mon, 18 Jan 2016 21:06:26 -0800
parents 3fa35defe495
children 7cac4e7458f2
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
1 /*
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
2
19697
4197fc428c7d maint: Update copyright notices for 2015.
John W. Eaton <jwe@octave.org>
parents: 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
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
23 #ifdef HAVE_CONFIG_H
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
24 #include <config.h>
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
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
40 #if defined HAVE_LONG_LONG_INT
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
41 #define FIND_SIZED_INT_TYPE(VAL, BITS, TQ, Q) \
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
42 do \
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
43 { \
17396
0b644adf4f31 speak CHAR_BIT in C++-ese
John W. Eaton <jwe@octave.org>
parents: 16074
diff changeset
44 int sz = BITS / std::numeric_limits<unsigned char>::digits; \
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
45 if (sizeof (TQ char) == sz) \
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
46 VAL = oct_data_conv::dt_ ## Q ## char; \
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
47 else if (sizeof (TQ short) == sz) \
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
48 VAL = oct_data_conv::dt_ ## Q ## short; \
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
49 else if (sizeof (TQ int) == sz) \
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
50 VAL = oct_data_conv::dt_ ## Q ## int; \
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
51 else if (sizeof (TQ long) == sz) \
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
52 VAL = oct_data_conv::dt_ ## Q ## long; \
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
53 else if (sizeof (TQ long long) == sz) \
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
54 VAL = oct_data_conv::dt_ ## Q ## longlong; \
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
55 else \
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
56 VAL = oct_data_conv::dt_unknown; \
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
57 } \
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
58 while (0)
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
59 #else
3359
803643945da1 [project @ 1999-11-19 04:27:48 by jwe]
jwe
parents: 3358
diff changeset
60 #define FIND_SIZED_INT_TYPE(VAL, BITS, TQ, Q) \
3358
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe]
jwe
parents: 3238
diff changeset
61 do \
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe]
jwe
parents: 3238
diff changeset
62 { \
17396
0b644adf4f31 speak CHAR_BIT in C++-ese
John W. Eaton <jwe@octave.org>
parents: 16074
diff changeset
63 int sz = BITS / std::numeric_limits<unsigned char>::digits; \
3358
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe]
jwe
parents: 3238
diff changeset
64 if (sizeof (TQ char) == sz) \
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
65 VAL = oct_data_conv::dt_ ## Q ## char; \
3358
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe]
jwe
parents: 3238
diff changeset
66 else if (sizeof (TQ short) == sz) \
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
67 VAL = oct_data_conv::dt_ ## Q ## short; \
3358
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe]
jwe
parents: 3238
diff changeset
68 else if (sizeof (TQ int) == sz) \
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
69 VAL = oct_data_conv::dt_ ## Q ## int; \
3358
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe]
jwe
parents: 3238
diff changeset
70 else if (sizeof (TQ long) == sz) \
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
71 VAL = oct_data_conv::dt_ ## Q ## long; \
3358
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe]
jwe
parents: 3238
diff changeset
72 else \
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe]
jwe
parents: 3238
diff changeset
73 VAL = oct_data_conv::dt_unknown; \
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe]
jwe
parents: 3238
diff changeset
74 } \
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe]
jwe
parents: 3238
diff changeset
75 while (0)
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
76 #endif
3358
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe]
jwe
parents: 3238
diff changeset
77
3359
803643945da1 [project @ 1999-11-19 04:27:48 by jwe]
jwe
parents: 3358
diff changeset
78 #define FIND_SIZED_FLOAT_TYPE(VAL, BITS) \
3358
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe]
jwe
parents: 3238
diff changeset
79 do \
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe]
jwe
parents: 3238
diff changeset
80 { \
17396
0b644adf4f31 speak CHAR_BIT in C++-ese
John W. Eaton <jwe@octave.org>
parents: 16074
diff changeset
81 int sz = BITS / std::numeric_limits<unsigned char>::digits; \
3358
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe]
jwe
parents: 3238
diff changeset
82 if (sizeof (float) == sz) \
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
83 VAL = oct_data_conv::dt_float; \
3358
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe]
jwe
parents: 3238
diff changeset
84 else if (sizeof (double) == sz) \
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
85 VAL = oct_data_conv::dt_double; \
3358
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe]
jwe
parents: 3238
diff changeset
86 else \
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe]
jwe
parents: 3238
diff changeset
87 VAL = oct_data_conv::dt_unknown; \
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe]
jwe
parents: 3238
diff changeset
88 } \
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
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
149 #define GET_SIZED_INT_TYPE(T, U) \
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
150 do \
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
151 { \
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
152 switch (sizeof (T)) \
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
153 { \
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
154 case 1: \
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
155 retval = dt_ ## U ## int8; \
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
156 break; \
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
157 \
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
158 case 2: \
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
159 retval = dt_ ## U ## int16; \
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
160 break; \
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
161 \
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
162 case 4: \
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
163 retval = dt_ ## U ## int32; \
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
164 break; \
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
165 \
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
166 case 8: \
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
167 retval = dt_ ## U ## int64; \
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
168 break; \
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
169 \
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
170 default: \
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
171 retval = dt_unknown; \
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
172 break; \
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
173 } \
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
174 } \
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
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
393 {
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
394 (*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
395 ("invalid repeat count in '%s'", str.c_str ());
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
396
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
397 return;
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
398 }
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
399 }
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
400 }
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 pos = s.find ('=');
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
403
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
404 if (pos != std::string::npos)
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
405 {
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
406 if (s[pos+1] == '>')
10314
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 std::string s1;
5870
a0218194daa6 [project @ 2006-06-30 15:50:40 by jwe]
jwe
parents: 5828
diff changeset
409
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
410 if (input_is_output)
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
411 {
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
412 s1 = s.substr (1, pos-1);
5870
a0218194daa6 [project @ 2006-06-30 15:50:40 by jwe]
jwe
parents: 5828
diff changeset
413
19410
95c533ed464b use warning IDs for all warnings in liboctave
John W. Eaton <jwe@octave.org>
parents: 18691
diff changeset
414 (*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
415 ("Octave:fread-precision-syntax",
95c533ed464b use warning IDs for all warnings in liboctave
John W. Eaton <jwe@octave.org>
parents: 18691
diff changeset
416 "warning: ignoring leading * in fread precision");
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
417 }
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
418 else
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
419 s1 = s.substr (0, pos);
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
420
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
421 input_type = string_to_data_type (s1);
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
422 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
423 }
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
424 else
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
425 (*current_liboctave_error_handler)
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
426 ("fread: invalid precision specified");
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
427 }
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
428 else
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
429 {
5870
a0218194daa6 [project @ 2006-06-30 15:50:40 by jwe]
jwe
parents: 5828
diff changeset
430 if (input_is_output)
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
431 s = s.substr (1);
5870
a0218194daa6 [project @ 2006-06-30 15:50:40 by jwe]
jwe
parents: 5828
diff changeset
432
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
433 input_type = string_to_data_type (s);
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 if (input_is_output)
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
436 output_type = input_type;
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
437 }
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
438 }
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 void
17769
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
441 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
442 oct_data_conv::data_type& output_type)
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
443 {
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
444 block_size = 1;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
445 output_type = dt_double;
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 std::string s = strip_spaces (str);
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 size_t pos = 0;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
450
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
451 size_t len = s.length ();
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
452
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
453 while (pos < len && isdigit (s[pos]))
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
454 pos++;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
455
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
456 if (pos > 0)
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
457 {
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
458 if (s[pos] == '*')
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
459 {
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
460 block_size = atoi (s.c_str ());
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
461 s = s.substr (pos+1);
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
462 }
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
463 else
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
464 {
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
465 (*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
466 ("invalid repeat count in '%s'", str.c_str ());
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
467
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
468 return;
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
469 }
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
470 }
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 output_type = string_to_data_type (s);
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
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
475 std::string
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
476 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
477 {
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
478 std::string retval;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
479
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
480 switch (dt)
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_int8:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
483 retval = "int8";
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_uint8:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
487 retval = "uint8";
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_int16:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
491 retval = "int16";
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_uint16:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
495 retval = "uint16";
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_int32:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
499 retval = "int32";
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_uint32:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
503 retval = "uint32";
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_int64:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
507 retval = "int64";
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_uint64:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
511 retval = "uint64";
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_single:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
515 retval = "single";
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_double:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
519 retval = "double";
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_char:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
523 retval = "char";
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_schar:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
527 retval = "signed char";
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_uchar:
17416
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 17415
diff changeset
531 retval = "unsigned char";
4944
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_short:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
535 retval = "short";
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_ushort:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
539 retval = "unsigned short";
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_int:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
543 retval = "int";
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_uint:
17416
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 17415
diff changeset
547 retval = "unsigned int";
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_long:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
551 retval = "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_ulong:
17416
6690dba6078a improve efficiency of fwrite
John W. Eaton <jwe@octave.org>
parents: 17415
diff changeset
555 retval = "unsigned long";
4944
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_longlong:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
559 retval = "long long";
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
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
562 case oct_data_conv::dt_ulonglong:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
563 retval = "unsigned long long";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
564 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
565
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
566 case oct_data_conv::dt_float:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
567 retval = "float";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
568 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
569
4970
25c2664861bc [project @ 2004-09-08 05:02:32 by jwe]
jwe
parents: 4944
diff changeset
570 case oct_data_conv::dt_logical:
25c2664861bc [project @ 2004-09-08 05:02:32 by jwe]
jwe
parents: 4944
diff changeset
571 retval = "logical";
25c2664861bc [project @ 2004-09-08 05:02:32 by jwe]
jwe
parents: 4944
diff changeset
572 break;
25c2664861bc [project @ 2004-09-08 05:02:32 by jwe]
jwe
parents: 4944
diff changeset
573
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
574 case oct_data_conv::dt_unknown:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
575 default:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
576 retval = "unknown";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
577 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
578 }
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
579
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
580 return retval;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
581 }
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
582
3359
803643945da1 [project @ 1999-11-19 04:27:48 by jwe]
jwe
parents: 3358
diff changeset
583 #define LS_DO_READ(TYPE, swap, data, size, len, stream) \
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
584 do \
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
585 { \
3867
81552337b120 [project @ 2002-01-03 18:31:08 by jwe]
jwe
parents: 3518
diff changeset
586 if (len > 0) \
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
587 { \
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
588 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
589 std::streamsize n_bytes = size * 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
590 stream.read (reinterpret_cast<char *> (ptr), n_bytes); \
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
591 if (swap) \
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
592 swap_bytes< size > (ptr, len); \
10349
d4d13389c957 make load-save to matlab format work when using --enable-64
John W. Eaton <jwe@octave.org>
parents: 10314
diff changeset
593 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
594 data[i] = ptr[i]; \
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
595 } \
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
596 } \
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
597 while (0)
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
598
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
599 // 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
600 // Matrix::data ().
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
601
3359
803643945da1 [project @ 1999-11-19 04:27:48 by jwe]
jwe
parents: 3358
diff changeset
602 #define LS_DO_WRITE(TYPE, data, size, len, stream) \
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
603 do \
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
604 { \
3867
81552337b120 [project @ 2002-01-03 18:31:08 by jwe]
jwe
parents: 3518
diff changeset
605 if (len > 0) \
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
606 { \
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
607 char tmp_type = type; \
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
608 stream.write (&tmp_type, 1); \
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
609 OCTAVE_LOCAL_BUFFER (TYPE, ptr, len); \
10349
d4d13389c957 make load-save to matlab format work when using --enable-64
John W. Eaton <jwe@octave.org>
parents: 10314
diff changeset
610 for (octave_idx_type i = 0; i < len; i++) \
19739
3fa35defe495 Adjust spacing of static_cast<> calls to follow Octave coding conventions.
Rik <rik@octave.org>
parents: 19697
diff changeset
611 ptr[i] = static_cast<TYPE> (data[i]); \
18691
9a6646cc7c3e Fix load/save to handle up to 2^32-1 elements.
Rik <rik@octave.org>
parents: 18676
diff changeset
612 std::streamsize n_bytes = size * 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
613 stream.write (reinterpret_cast<char *> (ptr), n_bytes); \
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
614 } \
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 while (0)
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
617
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
618 // Loading variables from files.
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
619
21102
dfcb9d74b253 Rename local gripe_XXX functions to err_XXX or warn_XXX.
Rik <rik@octave.org>
parents: 19739
diff changeset
620 OCTAVE_NORETURN static
dfcb9d74b253 Rename local gripe_XXX functions to err_XXX or warn_XXX.
Rik <rik@octave.org>
parents: 19739
diff changeset
621 void
dfcb9d74b253 Rename local gripe_XXX functions to err_XXX or warn_XXX.
Rik <rik@octave.org>
parents: 19739
diff changeset
622 err_unrecognized_float_fmt (void)
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
623 {
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
624 (*current_liboctave_error_handler)
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
625 ("unrecognized floating point format requested");
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
626 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
627
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
628 // But first, some data conversion routines.
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
629
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
630 // 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
631 // that, make more of the following routines work.
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
632
17769
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
633 // FIXME: assumes sizeof (Complex) == 8
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
634 // FIXME: assumes sizeof (double) == 8
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents: 17744
diff changeset
635 // FIXME: assumes sizeof (float) == 4
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
636
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
637 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
638 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
639 {
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
640 swap_bytes<8> (d, len);
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
641 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
642
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
643 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
644 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
645 {
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
646 swap_bytes<4> (d, len);
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
647 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
648
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
649 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
650 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
651 {
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
652 swap_bytes<8> (d, len);
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
653 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
654
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
655 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
656 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
657 {
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
658 swap_bytes<4> (d, len);
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
659 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
660
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
661 void
10349
d4d13389c957 make load-save to matlab format work when using --enable-64
John W. Eaton <jwe@octave.org>
parents: 10314
diff changeset
662 do_double_format_conversion (void *data, octave_idx_type len,
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
663 oct_mach_info::float_format from_fmt,
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
664 oct_mach_info::float_format to_fmt)
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
665 {
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
666 switch (to_fmt)
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
667 {
4574
6cb22b9e3942 [project @ 2003-10-31 05:57:43 by jwe]
jwe
parents: 3867
diff changeset
668 case oct_mach_info::flt_fmt_ieee_little_endian:
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
669 switch (from_fmt)
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
670 {
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
671 case oct_mach_info::flt_fmt_ieee_little_endian:
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
672 break;
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
673
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
674 case oct_mach_info::flt_fmt_ieee_big_endian:
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
675 IEEE_big_double_to_IEEE_little_double (data, len);
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
676 break;
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
677
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
678 default:
21102
dfcb9d74b253 Rename local gripe_XXX functions to err_XXX or warn_XXX.
Rik <rik@octave.org>
parents: 19739
diff changeset
679 err_unrecognized_float_fmt ();
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
680 break;
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
681 }
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
682 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
683
4574
6cb22b9e3942 [project @ 2003-10-31 05:57:43 by jwe]
jwe
parents: 3867
diff changeset
684 case oct_mach_info::flt_fmt_ieee_big_endian:
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
685 switch (from_fmt)
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
686 {
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
687 case oct_mach_info::flt_fmt_ieee_little_endian:
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
688 IEEE_little_double_to_IEEE_big_double (data, len);
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
689 break;
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
690
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
691 case oct_mach_info::flt_fmt_ieee_big_endian:
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
692 break;
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
693
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
694 default:
21102
dfcb9d74b253 Rename local gripe_XXX functions to err_XXX or warn_XXX.
Rik <rik@octave.org>
parents: 19739
diff changeset
695 err_unrecognized_float_fmt ();
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
696 break;
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
697 }
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
698 break;
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 default:
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
701 (*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
702 ("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
703 __FILE__, __LINE__);
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
704 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
705 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
706 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
707
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
708 void
10349
d4d13389c957 make load-save to matlab format work when using --enable-64
John W. Eaton <jwe@octave.org>
parents: 10314
diff changeset
709 do_float_format_conversion (void *data, octave_idx_type len,
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
710 oct_mach_info::float_format from_fmt,
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
711 oct_mach_info::float_format to_fmt)
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
712 {
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
713 switch (to_fmt)
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
714 {
4574
6cb22b9e3942 [project @ 2003-10-31 05:57:43 by jwe]
jwe
parents: 3867
diff changeset
715 case oct_mach_info::flt_fmt_ieee_little_endian:
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
716 switch (from_fmt)
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
717 {
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
718 case oct_mach_info::flt_fmt_ieee_little_endian:
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
719 break;
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
720
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
721 case oct_mach_info::flt_fmt_ieee_big_endian:
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
722 IEEE_big_float_to_IEEE_little_float (data, len);
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
723 break;
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
724
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
725 default:
21102
dfcb9d74b253 Rename local gripe_XXX functions to err_XXX or warn_XXX.
Rik <rik@octave.org>
parents: 19739
diff changeset
726 err_unrecognized_float_fmt ();
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
727 break;
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
728 }
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
729 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
730
4574
6cb22b9e3942 [project @ 2003-10-31 05:57:43 by jwe]
jwe
parents: 3867
diff changeset
731 case oct_mach_info::flt_fmt_ieee_big_endian:
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
732 switch (from_fmt)
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
733 {
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
734 case oct_mach_info::flt_fmt_ieee_little_endian:
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
735 IEEE_little_float_to_IEEE_big_float (data, len);
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
736 break;
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
737
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
738 case oct_mach_info::flt_fmt_ieee_big_endian:
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
739 break;
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
740
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
741 default:
21102
dfcb9d74b253 Rename local gripe_XXX functions to err_XXX or warn_XXX.
Rik <rik@octave.org>
parents: 19739
diff changeset
742 err_unrecognized_float_fmt ();
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
743 break;
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
744 }
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
745 break;
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 default:
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
748 (*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
749 ("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
750 __FILE__, __LINE__);
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
751 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
752 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
753 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
754
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
755 void
10349
d4d13389c957 make load-save to matlab format work when using --enable-64
John W. Eaton <jwe@octave.org>
parents: 10314
diff changeset
756 do_float_format_conversion (void *data, size_t sz, octave_idx_type len,
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
757 oct_mach_info::float_format from_fmt,
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
758 oct_mach_info::float_format to_fmt)
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
759 {
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
760 switch (sz)
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 case sizeof (float):
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
763 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
764 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
765
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
766 case sizeof (double):
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
767 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
768 break;
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 default:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
771 (*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
772 ("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
773 __FILE__, __LINE__);
4944
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
774 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
775 }
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
776 }
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
777
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe]
jwe
parents: 4574
diff changeset
778 void
10349
d4d13389c957 make load-save to matlab format work when using --enable-64
John W. Eaton <jwe@octave.org>
parents: 10314
diff changeset
779 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
780 octave_idx_type len, bool swap,
d4d13389c957 make load-save to matlab format work when using --enable-64
John W. Eaton <jwe@octave.org>
parents: 10314
diff changeset
781 oct_mach_info::float_format fmt)
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
782 {
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
783 switch (type)
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_CHAR:
5828
22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe]
jwe
parents: 5775
diff changeset
786 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
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_U_SHORT:
5828
22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe]
jwe
parents: 5775
diff changeset
790 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
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_U_INT:
5828
22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe]
jwe
parents: 5775
diff changeset
794 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
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_CHAR:
5828
22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe]
jwe
parents: 5775
diff changeset
798 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
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_SHORT:
5828
22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe]
jwe
parents: 5775
diff changeset
802 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
803 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
804
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
805 case LS_INT:
5828
22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe]
jwe
parents: 5775
diff changeset
806 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
807 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
808
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
809 case LS_FLOAT:
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
810 {
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
811 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
812 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
813 is.read (reinterpret_cast<char *> (ptr), n_bytes);
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
814 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
815 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
816 data[i] = ptr[i];
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
817 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
818 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
819
3359
803643945da1 [project @ 1999-11-19 04:27:48 by jwe]
jwe
parents: 3358
diff changeset
820 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
821 {
16074
821922270b66 Fix saving binary matrices with up to 2^31 elements (Bug #38326).
Rik <rik@octave.org>
parents: 15467
diff changeset
822 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
823 is.read (reinterpret_cast<char *> (data), n_bytes);
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
824 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
825
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
826 for (int i = 0; i < len; i++)
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
827 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
828 }
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
829 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
830
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
831 default:
3504
5eef8a2294bd [project @ 2000-02-01 10:06:51 by jwe]
jwe
parents: 3503
diff changeset
832 is.clear (std::ios::failbit|is.rdstate ());
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
833 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
834 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
835 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
836
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
837 void
10349
d4d13389c957 make load-save to matlab format work when using --enable-64
John W. Eaton <jwe@octave.org>
parents: 10314
diff changeset
838 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
839 octave_idx_type len, bool swap,
d4d13389c957 make load-save to matlab format work when using --enable-64
John W. Eaton <jwe@octave.org>
parents: 10314
diff changeset
840 oct_mach_info::float_format fmt)
7789
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
841 {
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
842 switch (type)
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_CHAR:
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
845 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
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_U_SHORT:
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
849 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
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_U_INT:
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
853 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
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_CHAR:
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
857 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
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_SHORT:
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
861 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
862 break;
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
863
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
864 case LS_INT:
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
865 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
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_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
869 {
18691
9a6646cc7c3e Fix load/save to handle up to 2^32-1 elements.
Rik <rik@octave.org>
parents: 18676
diff changeset
870 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
871 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
872 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
873 }
7789
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
874 break;
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
875
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
876 case LS_DOUBLE:
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
877 {
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
878 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
879 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
880 is.read (reinterpret_cast<char *> (ptr), n_bytes);
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
881 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
882 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
883 data[i] = ptr[i];
7789
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 break;
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
886
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
887 default:
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
888 is.clear (std::ios::failbit|is.rdstate ());
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
889 break;
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
890 }
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
891 }
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
892
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
893 void
10349
d4d13389c957 make load-save to matlab format work when using --enable-64
John W. Eaton <jwe@octave.org>
parents: 10314
diff changeset
894 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
895 octave_idx_type len)
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
896 {
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
897 switch (type)
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_CHAR:
5828
22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe]
jwe
parents: 5775
diff changeset
900 LS_DO_WRITE (uint8_t, data, 1, 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_U_SHORT:
5828
22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe]
jwe
parents: 5775
diff changeset
904 LS_DO_WRITE (uint16_t, data, 2, 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_U_INT:
5828
22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe]
jwe
parents: 5775
diff changeset
908 LS_DO_WRITE (uint32_t, data, 4, 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_CHAR:
5828
22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe]
jwe
parents: 5775
diff changeset
912 LS_DO_WRITE (int8_t, data, 1, 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_SHORT:
5828
22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe]
jwe
parents: 5775
diff changeset
916 LS_DO_WRITE (int16_t, data, 2, len, os);
1960
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
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
919 case LS_INT:
5828
22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe]
jwe
parents: 5775
diff changeset
920 LS_DO_WRITE (int32_t, data, 4, len, os);
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
921 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
922
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
923 case LS_FLOAT:
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
924 LS_DO_WRITE (float, data, 4, len, os);
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
925 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
926
3359
803643945da1 [project @ 1999-11-19 04:27:48 by jwe]
jwe
parents: 3358
diff changeset
927 case LS_DOUBLE: // No conversion necessary.
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
928 {
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
929 char tmp_type = static_cast<char> (type);
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
930 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
931 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
932 os.write (reinterpret_cast <const char *> (data), n_bytes);
1960
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 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
935
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
936 default:
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
937 (*current_liboctave_error_handler)
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
938 ("unrecognized data format requested");
1960
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
939 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
940 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
941 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe]
jwe
parents:
diff changeset
942
7789
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
943 void
10349
d4d13389c957 make load-save to matlab format work when using --enable-64
John W. Eaton <jwe@octave.org>
parents: 10314
diff changeset
944 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
945 octave_idx_type len)
7789
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
946 {
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
947 switch (type)
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_CHAR:
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
950 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
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_U_SHORT:
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
954 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
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_U_INT:
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
958 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
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_CHAR:
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
962 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
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_SHORT:
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
966 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
967 break;
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
968
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
969 case LS_INT:
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
970 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
971 break;
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
972
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
973 case LS_FLOAT: // No conversion necessary.
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
974 {
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
975 char tmp_type = static_cast<char> (type);
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
976 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
977 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
978 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
979 }
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
980 break;
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
981
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
982 case LS_DOUBLE:
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
983 LS_DO_WRITE (double, data, 8, len, os);
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
984 break;
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
985
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
986 default:
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
987 (*current_liboctave_error_handler)
10314
07ebe522dac2 untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents: 10158
diff changeset
988 ("unrecognized data format requested");
7789
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
989 break;
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
990 }
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
991 }