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

annotate liboctave/data-conv.cc @ 14138:72c96de7a403 stable

maint: update copyright notices for 2012

author	John W. Eaton <jwe@octave.org>
date	Mon, 02 Jan 2012 14:25:41 -0500
parents	fd0a3ac60b0e
children	3d8ace26c5b4 d174210ce1ec

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
14138 72c96de7a403 maint: update copyright notices for 2012 John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	3 Copyright (C) 1996-2012 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>
5760 8d7162924bd3 [project @ 2006-04-14 04:01:37 by jwe] jwe parents: 5307 diff changeset	31 #include <vector>
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	32
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	33 #include "byte-swap.h"
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	34 #include "data-conv.h"
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	35 #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	36 #include "lo-ieee.h"
8377 25bc2d31e1bf improve OCTAVE_LOCAL_BUFFER Jaroslav Hajek <highegg@gmail.com> parents: 7991 diff changeset	37 #include "oct-locbuf.h"
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	38
5892 13aa80fc7839 [project @ 2006-07-15 18:15:58 by jwe] jwe parents: 5870 diff changeset	39 template void swap_bytes<2> (volatile void *, int);
13aa80fc7839 [project @ 2006-07-15 18:15:58 by jwe] jwe parents: 5870 diff changeset	40 template void swap_bytes<4> (volatile void *, int);
13aa80fc7839 [project @ 2006-07-15 18:15:58 by jwe] jwe parents: 5870 diff changeset	41 template void swap_bytes<8> (volatile void *, int);
13aa80fc7839 [project @ 2006-07-15 18:15:58 by jwe] jwe parents: 5870 diff changeset	42
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	43 #if defined HAVE_LONG_LONG_INT
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	44 #define FIND_SIZED_INT_TYPE(VAL, BITS, TQ, Q) \
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	45 do \
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	46 { \
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	47 int sz = BITS / CHAR_BIT; \
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	48 if (sizeof (TQ char) == sz) \
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	49 VAL = oct_data_conv::dt_ ## Q ## char; \
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	50 else if (sizeof (TQ short) == sz) \
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	51 VAL = oct_data_conv::dt_ ## Q ## short; \
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	52 else if (sizeof (TQ int) == sz) \
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	53 VAL = oct_data_conv::dt_ ## Q ## int; \
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	54 else if (sizeof (TQ long) == sz) \
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	55 VAL = oct_data_conv::dt_ ## Q ## long; \
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	56 else if (sizeof (TQ long long) == sz) \
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	57 VAL = oct_data_conv::dt_ ## Q ## longlong; \
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	58 else \
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	59 VAL = oct_data_conv::dt_unknown; \
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	60 } \
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	61 while (0)
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	62 #else
3359 803643945da1 [project @ 1999-11-19 04:27:48 by jwe] jwe parents: 3358 diff changeset	63 #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	64 do \
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	65 { \
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	66 int sz = BITS / CHAR_BIT; \
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	67 if (sizeof (TQ char) == sz) \
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	68 VAL = oct_data_conv::dt_ ## Q ## char; \
3358 fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	69 else if (sizeof (TQ short) == sz) \
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	70 VAL = oct_data_conv::dt_ ## Q ## short; \
3358 fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	71 else if (sizeof (TQ int) == sz) \
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	72 VAL = oct_data_conv::dt_ ## Q ## int; \
3358 fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	73 else if (sizeof (TQ long) == sz) \
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	74 VAL = oct_data_conv::dt_ ## Q ## long; \
3358 fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	75 else \
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	76 VAL = oct_data_conv::dt_unknown; \
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	77 } \
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	78 while (0)
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	79 #endif
3358 fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	80
3359 803643945da1 [project @ 1999-11-19 04:27:48 by jwe] jwe parents: 3358 diff changeset	81 #define FIND_SIZED_FLOAT_TYPE(VAL, BITS) \
3358 fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	82 do \
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	83 { \
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	84 int sz = BITS / CHAR_BIT; \
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	85 if (sizeof (float) == sz) \
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	86 VAL = oct_data_conv::dt_float; \
3358 fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	87 else if (sizeof (double) == sz) \
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	88 VAL = oct_data_conv::dt_double; \
3358 fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	89 else \
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	90 VAL = oct_data_conv::dt_unknown; \
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	91 } \
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	92 while (0)
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	93
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	94 // 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	95 // for the types that are supposed to be a specific number of bits
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	96 // wide. Given the macros above, this should work as long as CHAR_BIT
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	97 // is a multiple of 8 and there are types with the right sizes.
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 // 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	100 //
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	101 // bits
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 // \| 8 \| 16 \| 32 \| 64 \|
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 // signed 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 // unsigned integer \| \| \| \| \|
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 // floating point \| \| \| \| \|
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	110 // +----+----+----+----+
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	111 //
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	112 // 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	113 // 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	114 // 32-bit integer.
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	115
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	116 static void
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	117 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	118 {
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	119 int bits = 8;
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	120
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	121 for (int i = 0; i < 4; i++)
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[0][i], bits, , );
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_INT_TYPE (table[1][i], bits, unsigned, u);
3358 fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	126
3359 803643945da1 [project @ 1999-11-19 04:27:48 by jwe] jwe parents: 3358 diff changeset	127 FIND_SIZED_FLOAT_TYPE (table[2][i], bits);
3358 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 bits *= 2;
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	130 }
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	131 }
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	132
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	133 static std::string
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	134 strip_spaces (const std::string& str)
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 n = str.length ();
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	137
10349 d4d13389c957 make load-save to matlab format work when using --enable-64 John W. Eaton <jwe@octave.org> parents: 10314 diff changeset	138 size_t k = 0;
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	139
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	140 std::string s (n, ' ');
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	141
10349 d4d13389c957 make load-save to matlab format work when using --enable-64 John W. Eaton <jwe@octave.org> parents: 10314 diff changeset	142 for (size_t i = 0; i < n; i++)
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	143 if (! isspace (str[i]))
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	144 s[k++] = tolower (str[i]);
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 s.resize (k);
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 return s;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	149 }
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	150
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	151 #define GET_SIZED_INT_TYPE(T, U) \
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	152 do \
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	153 { \
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	154 switch (sizeof (T)) \
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	155 { \
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	156 case 1: \
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	157 retval = dt_ ## U ## int8; \
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	158 break; \
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	159 \
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	160 case 2: \
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	161 retval = dt_ ## U ## int16; \
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	162 break; \
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	163 \
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	164 case 4: \
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	165 retval = dt_ ## U ## int32; \
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	166 break; \
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	167 \
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	168 case 8: \
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	169 retval = dt_ ## U ## int64; \
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	170 break; \
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	171 \
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	172 default: \
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	173 retval = dt_unknown; \
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	174 break; \
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	175 } \
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	176 } \
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	177 while (0)
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	178
2317 8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	179 oct_data_conv::data_type
3504 5eef8a2294bd [project @ 2000-02-01 10:06:51 by jwe] jwe parents: 3503 diff changeset	180 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	181 {
8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	182 data_type retval = dt_unknown;
8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	183
3358 fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	184 static bool initialized = false;
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	185
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	186 static data_type sized_type_table[3][4];
2317 8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	187
3358 fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	188 if (! initialized)
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	189 {
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	190 init_sized_type_lookup_table (sized_type_table);
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	191
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	192 initialized = true;
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	193 }
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	194
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	195 std::string s = strip_spaces (str);
2317 8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	196
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	197 if (s == "int8" \|\| s == "integer*1")
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	198 retval = dt_int8;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	199 else if (s == "uint8")
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	200 retval = dt_uint8;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	201 else if (s == "int16" \|\| s == "integer*2")
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	202 retval = dt_int16;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	203 else if (s == "uint16")
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	204 retval = dt_uint16;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	205 else if (s == "int32" \|\| s == "integer*4")
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	206 retval = dt_int32;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	207 else if (s == "uint32")
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	208 retval = dt_uint32;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	209 else if (s == "int64" \|\| s == "integer*8")
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	210 retval = dt_int64;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	211 else if (s == "uint64")
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	212 retval = dt_uint64;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	213 else if (s == "single" \|\| s == "float32" \|\| s == "real*4")
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	214 retval = dt_single;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	215 else if (s == "double" \|\| s == "float64" \|\| s == "real*8")
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	216 retval = dt_double;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	217 else if (s == "char" \|\| s == "char*1")
2317 8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	218 retval = dt_char;
8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	219 else if (s == "schar" \|\| s == "signedchar")
8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	220 retval = dt_schar;
8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	221 else if (s == "uchar" \|\| s == "unsignedchar")
8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	222 retval = dt_uchar;
8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	223 else if (s == "short")
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	224 GET_SIZED_INT_TYPE (short, );
2317 8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	225 else if (s == "ushort" \|\| s == "unsignedshort")
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	226 GET_SIZED_INT_TYPE (unsigned short, u);
2317 8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	227 else if (s == "int")
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	228 GET_SIZED_INT_TYPE (int, );
2317 8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	229 else if (s == "uint" \|\| s == "unsignedint")
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	230 GET_SIZED_INT_TYPE (unsigned int, u);
2317 8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	231 else if (s == "long")
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	232 GET_SIZED_INT_TYPE (long, );
2317 8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	233 else if (s == "ulong" \|\| s == "unsignedlong")
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	234 GET_SIZED_INT_TYPE (unsigned long, u);
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	235 else if (s == "longlong")
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	236 GET_SIZED_INT_TYPE (long long, );
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	237 else if (s == "ulonglong" \|\| s == "unsignedlonglong")
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	238 GET_SIZED_INT_TYPE (unsigned long long, u);
3358 fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	239 else if (s == "float")
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	240 {
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	241 if (sizeof (float) == sizeof (double))
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	242 retval = dt_double;
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	243 else
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	244 retval = dt_single;
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	245 }
4970 25c2664861bc [project @ 2004-09-08 05:02:32 by jwe] jwe parents: 4944 diff changeset	246 else if (s == "logical")
25c2664861bc [project @ 2004-09-08 05:02:32 by jwe] jwe parents: 4944 diff changeset	247 retval = dt_logical;
2317 8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	248 else
8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	249 (*current_liboctave_error_handler) ("invalid data type specified");
8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	250
3358 fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	251 if (retval == dt_unknown)
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	252 (*current_liboctave_error_handler)
fa7d8036d12a [project @ 1999-11-19 00:46:31 by jwe] jwe parents: 3238 diff changeset	253 ("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	254
2317 8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	255 return retval;
8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	256 }
8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	257
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	258 void
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	259 oct_data_conv::string_to_data_type
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	260 (const std::string& str, int& block_size,
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	261 oct_data_conv::data_type& input_type,
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	262 oct_data_conv::data_type& output_type)
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	263 {
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	264 block_size = 1;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	265 input_type = dt_uchar;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	266 output_type = dt_double;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	267
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	268 bool input_is_output = false;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	269
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	270 std::string s = strip_spaces (str);
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	271
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	272 size_t pos = 0;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	273
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	274 if (s[0] == '*')
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	275 input_is_output = true;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	276 else
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	277 {
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	278 size_t len = s.length ();
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	279
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	280 while (pos < len && isdigit (s[pos]))
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	281 pos++;
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	282
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	283 if (pos > 0)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	284 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	285 if (s[pos] == '*')
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	286 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	287 block_size = atoi (s.c_str ());
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	288 s = s.substr (pos+1);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	289 }
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	290 else
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	291 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	292 (*current_liboctave_error_handler)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	293 ("invalid repeat count in `%s'", str.c_str ());
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	294
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	295 return;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	296 }
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	297 }
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	298 }
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	299
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	300 pos = s.find ('=');
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	301
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	302 if (pos != std::string::npos)
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	303 {
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	304 if (s[pos+1] == '>')
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	305 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	306 std::string s1;
5870 a0218194daa6 [project @ 2006-06-30 15:50:40 by jwe] jwe parents: 5828 diff changeset	307
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	308 if (input_is_output)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	309 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	310 input_is_output = false;
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	311
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	312 s1 = s.substr (1, pos-1);
5870 a0218194daa6 [project @ 2006-06-30 15:50:40 by jwe] jwe parents: 5828 diff changeset	313
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	314 (*current_liboctave_warning_handler)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	315 ("warning: ignoring leading * in fread precision");
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	316 }
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	317 else
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	318 s1 = s.substr (0, pos);
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	319
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	320 input_type = string_to_data_type (s1);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	321 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	322 }
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	323 else
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	324 (*current_liboctave_error_handler)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	325 ("fread: invalid precision specified");
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	326 }
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	327 else
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	328 {
5870 a0218194daa6 [project @ 2006-06-30 15:50:40 by jwe] jwe parents: 5828 diff changeset	329 if (input_is_output)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	330 s = s.substr (1);
5870 a0218194daa6 [project @ 2006-06-30 15:50:40 by jwe] jwe parents: 5828 diff changeset	331
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	332 input_type = string_to_data_type (s);
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	333
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	334 if (input_is_output)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	335 output_type = input_type;
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	336 }
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	337 }
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	338
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	339 void
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	340 oct_data_conv::string_to_data_type
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	341 (const std::string& str, int& block_size,
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	342 oct_data_conv::data_type& output_type)
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 block_size = 1;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	345 output_type = dt_double;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	346
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	347 std::string s = strip_spaces (str);
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	348
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	349 size_t pos = 0;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	350
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	351 size_t len = s.length ();
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	352
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	353 while (pos < len && isdigit (s[pos]))
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	354 pos++;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	355
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	356 if (pos > 0)
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	357 {
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	358 if (s[pos] == '*')
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	359 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	360 block_size = atoi (s.c_str ());
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	361 s = s.substr (pos+1);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	362 }
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	363 else
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	364 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	365 (*current_liboctave_error_handler)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	366 ("invalid repeat count in `%s'", str.c_str ());
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	367
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	368 return;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	369 }
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	370 }
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 output_type = string_to_data_type (s);
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
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	375 std::string
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	376 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	377 {
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	378 std::string retval;
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 switch (dt)
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 case oct_data_conv::dt_int8:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	383 retval = "int8";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	384 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	385
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	386 case oct_data_conv::dt_uint8:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	387 retval = "uint8";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	388 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	389
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	390 case oct_data_conv::dt_int16:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	391 retval = "int16";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	392 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	393
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	394 case oct_data_conv::dt_uint16:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	395 retval = "uint16";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	396 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	397
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	398 case oct_data_conv::dt_int32:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	399 retval = "int32";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	400 break;
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 case oct_data_conv::dt_uint32:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	403 retval = "uint32";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	404 break;
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 case oct_data_conv::dt_int64:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	407 retval = "int64";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	408 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	409
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	410 case oct_data_conv::dt_uint64:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	411 retval = "uint64";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	412 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	413
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	414 case oct_data_conv::dt_single:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	415 retval = "single";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	416 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	417
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	418 case oct_data_conv::dt_double:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	419 retval = "double";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	420 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	421
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	422 case oct_data_conv::dt_char:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	423 retval = "char";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	424 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	425
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	426 case oct_data_conv::dt_schar:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	427 retval = "signed char";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	428 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	429
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	430 case oct_data_conv::dt_uchar:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	431 retval = "usigned char";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	432 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	433
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	434 case oct_data_conv::dt_short:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	435 retval = "short";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	436 break;
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 case oct_data_conv::dt_ushort:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	439 retval = "unsigned short";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	440 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	441
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	442 case oct_data_conv::dt_int:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	443 retval = "int";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	444 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	445
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	446 case oct_data_conv::dt_uint:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	447 retval = "usigned int";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	448 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	449
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	450 case oct_data_conv::dt_long:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	451 retval = "long";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	452 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	453
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	454 case oct_data_conv::dt_ulong:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	455 retval = "usigned long";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	456 break;
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 case oct_data_conv::dt_longlong:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	459 retval = "long long";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	460 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	461
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	462 case oct_data_conv::dt_ulonglong:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	463 retval = "unsigned long long";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	464 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	465
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	466 case oct_data_conv::dt_float:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	467 retval = "float";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	468 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	469
4970 25c2664861bc [project @ 2004-09-08 05:02:32 by jwe] jwe parents: 4944 diff changeset	470 case oct_data_conv::dt_logical:
25c2664861bc [project @ 2004-09-08 05:02:32 by jwe] jwe parents: 4944 diff changeset	471 retval = "logical";
25c2664861bc [project @ 2004-09-08 05:02:32 by jwe] jwe parents: 4944 diff changeset	472 break;
25c2664861bc [project @ 2004-09-08 05:02:32 by jwe] jwe parents: 4944 diff changeset	473
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	474 case oct_data_conv::dt_unknown:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	475 default:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	476 retval = "unknown";
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	477 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	478 }
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 return retval;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	481 }
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	482
3359 803643945da1 [project @ 1999-11-19 04:27:48 by jwe] jwe parents: 3358 diff changeset	483 #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	484 do \
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	485 { \
3867 81552337b120 [project @ 2002-01-03 18:31:08 by jwe] jwe parents: 3518 diff changeset	486 if (len > 0) \
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	487 { \
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	488 OCTAVE_LOCAL_BUFFER (TYPE, ptr, len); \
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	489 stream.read (reinterpret_cast<char > (ptr), size len); \
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	490 if (swap) \
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	491 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	492 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	493 data[i] = ptr[i]; \
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	494 } \
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	495 } \
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	496 while (0)
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	497
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	498 // Have to use copy here to avoid writing over data accessed via
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	499 // Matrix::data().
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	500
3359 803643945da1 [project @ 1999-11-19 04:27:48 by jwe] jwe parents: 3358 diff changeset	501 #define LS_DO_WRITE(TYPE, data, size, len, stream) \
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	502 do \
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	503 { \
3867 81552337b120 [project @ 2002-01-03 18:31:08 by jwe] jwe parents: 3518 diff changeset	504 if (len > 0) \
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	505 { \
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	506 char tmp_type = type; \
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	507 stream.write (&tmp_type, 1); \
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	508 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	509 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	510 ptr[i] = static_cast <TYPE> (data[i]); \
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	511 stream.write (reinterpret_cast<char > (ptr), size len); \
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	512 } \
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	513 } \
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	514 while (0)
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	515
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	516 // Loading variables from files.
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	517
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	518 static void
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	519 gripe_unrecognized_float_fmt (void)
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	520 {
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	521 (*current_liboctave_error_handler)
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	522 ("unrecognized floating point format requested");
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	523 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	524
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	525 static void
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	526 gripe_data_conversion (const char from, const char to)
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	527 {
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	528 (*current_liboctave_error_handler)
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	529 ("unable to convert from %s to %s format", from, to);
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	530 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	531
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	532 // But first, some data conversion routines.
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	533
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	534 // 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	535 // that, make more of the following routines work.
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	536
5775 ace8d8d26933 [project @ 2006-04-24 19:13:06 by jwe] jwe parents: 5760 diff changeset	537 // FIXME -- assumes sizeof (Complex) == 8
ace8d8d26933 [project @ 2006-04-24 19:13:06 by jwe] jwe parents: 5760 diff changeset	538 // FIXME -- assumes sizeof (double) == 8
ace8d8d26933 [project @ 2006-04-24 19:13:06 by jwe] jwe parents: 5760 diff changeset	539 // FIXME -- assumes sizeof (float) == 4
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	540
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	541 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	542 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	543 {
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	544 swap_bytes<8> (d, len);
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	545 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	546
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	547 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	548 VAX_D_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	549 {
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	550 gripe_data_conversion ("VAX D float", "IEEE little endian format");
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	551 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	552
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	553 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	554 VAX_G_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	555 {
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	556 gripe_data_conversion ("VAX G float", "IEEE little endian format");
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	557 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	558
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	559 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	560 Cray_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	561 {
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	562 gripe_data_conversion ("Cray", "IEEE little endian format");
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	563 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	564
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	565 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	566 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	567 {
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	568 swap_bytes<4> (d, len);
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	569 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	570
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	571 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	572 VAX_D_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	573 {
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	574 gripe_data_conversion ("VAX D float", "IEEE little endian format");
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	575 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	576
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	577 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	578 VAX_G_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	579 {
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	580 gripe_data_conversion ("VAX G float", "IEEE little endian format");
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	581 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	582
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	583 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	584 Cray_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	585 {
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	586 gripe_data_conversion ("Cray", "IEEE little endian format");
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	587 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	588
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	589 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	590 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	591 {
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	592 swap_bytes<8> (d, len);
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	593 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	594
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	595 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	596 VAX_D_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	597 {
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	598 gripe_data_conversion ("VAX D float", "IEEE big endian format");
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	599 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	600
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	601 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	602 VAX_G_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	603 {
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	604 gripe_data_conversion ("VAX G float", "IEEE big endian format");
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	605 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	606
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	607 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	608 Cray_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	609 {
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	610 gripe_data_conversion ("Cray", "IEEE big endian format");
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	611 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	612
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	613 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	614 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	615 {
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	616 swap_bytes<4> (d, len);
1960 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
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	619 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	620 VAX_D_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	621 {
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	622 gripe_data_conversion ("VAX D float", "IEEE big endian format");
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
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	625 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	626 VAX_G_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	627 {
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	628 gripe_data_conversion ("VAX G float", "IEEE big endian format");
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
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	631 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	632 Cray_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	633 {
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	634 gripe_data_conversion ("Cray", "IEEE big endian format");
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	635 }
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_little_double_to_VAX_D_double (void * /* d /, octave_idx_type / len */)
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	639 {
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	640 gripe_data_conversion ("IEEE little endian", "VAX D");
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_double_to_VAX_D_double (void * /* d /, octave_idx_type / len */)
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	645 {
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	646 gripe_data_conversion ("IEEE big endian", "VAX D");
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 VAX_G_double_to_VAX_D_double (void * /* d /, octave_idx_type / len */)
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	651 {
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	652 gripe_data_conversion ("VAX G float", "VAX D");
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 Cray_to_VAX_D_double (void * /* d /, octave_idx_type / len */)
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	657 {
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	658 gripe_data_conversion ("Cray", "VAX D");
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 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	662 IEEE_little_float_to_VAX_D_float (void * /* d /, octave_idx_type / len */)
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	663 {
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	664 gripe_data_conversion ("IEEE little endian", "VAX D");
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	665 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	666
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	667 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	668 IEEE_big_float_to_VAX_D_float (void * /* d /, octave_idx_type / len */)
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	669 {
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	670 gripe_data_conversion ("IEEE big endian", "VAX D");
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	671 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	672
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	673 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	674 VAX_G_float_to_VAX_D_float (void * /* d /, octave_idx_type / len */)
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	675 {
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	676 gripe_data_conversion ("VAX G float", "VAX D");
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	677 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	678
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	679 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	680 Cray_to_VAX_D_float (void * /* d /, octave_idx_type / len */)
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	681 {
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	682 gripe_data_conversion ("Cray", "VAX D");
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	683 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	684
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	685 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	686 IEEE_little_double_to_VAX_G_double (void * /* d /, octave_idx_type / len */)
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	687 {
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	688 gripe_data_conversion ("IEEE little endian", "VAX G");
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	689 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	690
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	691 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	692 IEEE_big_double_to_VAX_G_double (void * /* d /, octave_idx_type / len */)
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	693 {
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	694 gripe_data_conversion ("IEEE big endian", "VAX G");
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	695 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	696
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	697 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	698 VAX_D_double_to_VAX_G_double (void * /* d /, octave_idx_type / len */)
1960 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 gripe_data_conversion ("VAX D float", "VAX G");
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	701 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	702
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	703 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	704 Cray_to_VAX_G_double (void * /* d /, octave_idx_type / len */)
1960 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 gripe_data_conversion ("VAX G float", "VAX G");
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
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	709 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	710 IEEE_little_float_to_VAX_G_float (void * /* d /, octave_idx_type / len */)
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	711 {
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	712 gripe_data_conversion ("IEEE little endian", "VAX G");
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	713 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	714
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	715 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	716 IEEE_big_float_to_VAX_G_float (void * /* d /, octave_idx_type / len */)
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	717 {
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	718 gripe_data_conversion ("IEEE big endian", "VAX G");
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	719 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	720
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	721 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	722 VAX_D_float_to_VAX_G_float (void * /* d /, octave_idx_type / len */)
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	723 {
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	724 gripe_data_conversion ("VAX D float", "VAX G");
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	725 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	726
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	727 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	728 Cray_to_VAX_G_float (void * /* d /, octave_idx_type / len */)
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	729 {
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	730 gripe_data_conversion ("VAX G float", "VAX G");
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	731 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	732
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	733 void
10349 d4d13389c957 make load-save to matlab format work when using --enable-64 John W. Eaton <jwe@octave.org> parents: 10314 diff changeset	734 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	735 oct_mach_info::float_format from_fmt,
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	736 oct_mach_info::float_format to_fmt)
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	737 {
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	738 switch (to_fmt)
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	739 {
4574 6cb22b9e3942 [project @ 2003-10-31 05:57:43 by jwe] jwe parents: 3867 diff changeset	740 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	741 switch (from_fmt)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	742 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	743 case oct_mach_info::flt_fmt_ieee_little_endian:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	744 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	745
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	746 case oct_mach_info::flt_fmt_ieee_big_endian:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	747 IEEE_big_double_to_IEEE_little_double (data, len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	748 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	749
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	750 case oct_mach_info::flt_fmt_vax_d:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	751 VAX_D_double_to_IEEE_little_double (data, len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	752 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	753
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	754 case oct_mach_info::flt_fmt_vax_g:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	755 VAX_G_double_to_IEEE_little_double (data, len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	756 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	757
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	758 case oct_mach_info::flt_fmt_cray:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	759 Cray_to_IEEE_little_double (data, len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	760 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	761
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	762 default:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	763 gripe_unrecognized_float_fmt ();
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	764 break;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	765 }
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	766 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	767
4574 6cb22b9e3942 [project @ 2003-10-31 05:57:43 by jwe] jwe parents: 3867 diff changeset	768 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	769 switch (from_fmt)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	770 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	771 case oct_mach_info::flt_fmt_ieee_little_endian:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	772 IEEE_little_double_to_IEEE_big_double (data, len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	773 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	774
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	775 case oct_mach_info::flt_fmt_ieee_big_endian:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	776 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	777
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	778 case oct_mach_info::flt_fmt_vax_d:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	779 VAX_D_double_to_IEEE_big_double (data, len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	780 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	781
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	782 case oct_mach_info::flt_fmt_vax_g:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	783 VAX_G_double_to_IEEE_big_double (data, len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	784 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	785
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	786 case oct_mach_info::flt_fmt_cray:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	787 Cray_to_IEEE_big_double (data, len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	788 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	789
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	790 default:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	791 gripe_unrecognized_float_fmt ();
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	792 break;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	793 }
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	794 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	795
4574 6cb22b9e3942 [project @ 2003-10-31 05:57:43 by jwe] jwe parents: 3867 diff changeset	796 case oct_mach_info::flt_fmt_vax_d:
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	797 switch (from_fmt)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	798 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	799 case oct_mach_info::flt_fmt_ieee_little_endian:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	800 IEEE_little_double_to_VAX_D_double (data, len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	801 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	802
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	803 case oct_mach_info::flt_fmt_ieee_big_endian:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	804 IEEE_big_double_to_VAX_D_double (data, len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	805 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	806
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	807 case oct_mach_info::flt_fmt_vax_d:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	808 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	809
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	810 case oct_mach_info::flt_fmt_vax_g:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	811 VAX_G_double_to_VAX_D_double (data, len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	812 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	813
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	814 case oct_mach_info::flt_fmt_cray:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	815 Cray_to_VAX_D_double (data, len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	816 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	817
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	818 default:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	819 gripe_unrecognized_float_fmt ();
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	820 break;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	821 }
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	822 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	823
4574 6cb22b9e3942 [project @ 2003-10-31 05:57:43 by jwe] jwe parents: 3867 diff changeset	824 case oct_mach_info::flt_fmt_vax_g:
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	825 switch (from_fmt)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	826 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	827 case oct_mach_info::flt_fmt_ieee_little_endian:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	828 IEEE_little_double_to_VAX_G_double (data, len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	829 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	830
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	831 case oct_mach_info::flt_fmt_ieee_big_endian:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	832 IEEE_big_double_to_VAX_G_double (data, len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	833 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	834
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	835 case oct_mach_info::flt_fmt_vax_d:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	836 VAX_D_double_to_VAX_G_double (data, len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	837 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	838
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	839 case oct_mach_info::flt_fmt_vax_g:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	840 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	841
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	842 case oct_mach_info::flt_fmt_cray:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	843 Cray_to_VAX_G_double (data, len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	844 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	845
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	846 default:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	847 gripe_unrecognized_float_fmt ();
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	848 break;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	849 }
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	850 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	851
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	852 default:
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	853 (*current_liboctave_error_handler)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	854 ("impossible state reached in file `%s' at line %d",
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	855 __FILE__, __LINE__);
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	856 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	857 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	858 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	859
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	860 void
10349 d4d13389c957 make load-save to matlab format work when using --enable-64 John W. Eaton <jwe@octave.org> parents: 10314 diff changeset	861 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	862 oct_mach_info::float_format from_fmt,
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	863 oct_mach_info::float_format to_fmt)
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	864 {
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	865 switch (to_fmt)
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	866 {
4574 6cb22b9e3942 [project @ 2003-10-31 05:57:43 by jwe] jwe parents: 3867 diff changeset	867 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	868 switch (from_fmt)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	869 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	870 case oct_mach_info::flt_fmt_ieee_little_endian:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	871 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	872
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	873 case oct_mach_info::flt_fmt_ieee_big_endian:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	874 IEEE_big_float_to_IEEE_little_float (data, len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	875 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	876
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	877 case oct_mach_info::flt_fmt_vax_d:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	878 VAX_D_float_to_IEEE_little_float (data, len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	879 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	880
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	881 case oct_mach_info::flt_fmt_vax_g:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	882 VAX_G_float_to_IEEE_little_float (data, len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	883 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	884
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	885 case oct_mach_info::flt_fmt_cray:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	886 Cray_to_IEEE_little_float (data, len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	887 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	888
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	889 default:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	890 gripe_unrecognized_float_fmt ();
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	891 break;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	892 }
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	893 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	894
4574 6cb22b9e3942 [project @ 2003-10-31 05:57:43 by jwe] jwe parents: 3867 diff changeset	895 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	896 switch (from_fmt)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	897 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	898 case oct_mach_info::flt_fmt_ieee_little_endian:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	899 IEEE_little_float_to_IEEE_big_float (data, len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	900 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	901
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	902 case oct_mach_info::flt_fmt_ieee_big_endian:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	903 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	904
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	905 case oct_mach_info::flt_fmt_vax_d:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	906 VAX_D_float_to_IEEE_big_float (data, len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	907 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	908
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	909 case oct_mach_info::flt_fmt_vax_g:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	910 VAX_G_float_to_IEEE_big_float (data, len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	911 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	912
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	913 case oct_mach_info::flt_fmt_cray:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	914 Cray_to_IEEE_big_float (data, len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	915 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	916
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	917 default:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	918 gripe_unrecognized_float_fmt ();
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	919 break;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	920 }
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
4574 6cb22b9e3942 [project @ 2003-10-31 05:57:43 by jwe] jwe parents: 3867 diff changeset	923 case oct_mach_info::flt_fmt_vax_d:
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	924 switch (from_fmt)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	925 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	926 case oct_mach_info::flt_fmt_ieee_little_endian:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	927 IEEE_little_float_to_VAX_D_float (data, len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	928 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	929
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	930 case oct_mach_info::flt_fmt_ieee_big_endian:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	931 IEEE_big_float_to_VAX_D_float (data, len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	932 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	933
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	934 case oct_mach_info::flt_fmt_vax_d:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	935 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	936
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	937 case oct_mach_info::flt_fmt_vax_g:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	938 VAX_G_float_to_VAX_D_float (data, len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	939 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	940
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	941 case oct_mach_info::flt_fmt_cray:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	942 Cray_to_VAX_D_float (data, len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	943 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	944
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	945 default:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	946 gripe_unrecognized_float_fmt ();
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	947 break;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	948 }
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	949 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	950
4574 6cb22b9e3942 [project @ 2003-10-31 05:57:43 by jwe] jwe parents: 3867 diff changeset	951 case oct_mach_info::flt_fmt_vax_g:
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	952 switch (from_fmt)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	953 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	954 case oct_mach_info::flt_fmt_ieee_little_endian:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	955 IEEE_little_float_to_VAX_G_float (data, len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	956 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	957
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	958 case oct_mach_info::flt_fmt_ieee_big_endian:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	959 IEEE_big_float_to_VAX_G_float (data, len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	960 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	961
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	962 case oct_mach_info::flt_fmt_vax_d:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	963 VAX_D_float_to_VAX_G_float (data, len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	964 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	965
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	966 case oct_mach_info::flt_fmt_vax_g:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	967 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	968
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	969 case oct_mach_info::flt_fmt_cray:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	970 Cray_to_VAX_G_float (data, len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	971 break;
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	972
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	973 default:
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	974 gripe_unrecognized_float_fmt ();
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	975 break;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	976 }
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	977 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	978
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	979 default:
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	980 (*current_liboctave_error_handler)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	981 ("impossible state reached in file `%s' at line %d",
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	982 __FILE__, __LINE__);
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	983 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	984 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	985 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	986
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	987 void
10349 d4d13389c957 make load-save to matlab format work when using --enable-64 John W. Eaton <jwe@octave.org> parents: 10314 diff changeset	988 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	989 oct_mach_info::float_format from_fmt,
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	990 oct_mach_info::float_format to_fmt)
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	991 {
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	992 switch (sz)
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	993 {
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	994 case sizeof (float):
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	995 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	996 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	997
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	998 case sizeof (double):
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	999 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	1000 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	1001
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	1002 default:
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	1003 (*current_liboctave_error_handler)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	1004 ("impossible state reached in file `%s' at line %d",
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	1005 __FILE__, __LINE__);
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	1006 break;
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	1007 }
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	1008 }
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	1009
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	1010
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4574 diff changeset	1011 void
10349 d4d13389c957 make load-save to matlab format work when using --enable-64 John W. Eaton <jwe@octave.org> parents: 10314 diff changeset	1012 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	1013 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	1014 oct_mach_info::float_format fmt)
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1015 {
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1016 switch (type)
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1017 {
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1018 case LS_U_CHAR:
5828 22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe] jwe parents: 5775 diff changeset	1019 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	1020 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1021
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1022 case LS_U_SHORT:
5828 22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe] jwe parents: 5775 diff changeset	1023 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	1024 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1025
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1026 case LS_U_INT:
5828 22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe] jwe parents: 5775 diff changeset	1027 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	1028 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1029
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1030 case LS_CHAR:
5828 22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe] jwe parents: 5775 diff changeset	1031 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	1032 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1033
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1034 case LS_SHORT:
5828 22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe] jwe parents: 5775 diff changeset	1035 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	1036 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1037
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1038 case LS_INT:
5828 22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe] jwe parents: 5775 diff changeset	1039 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	1040 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1041
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1042 case LS_FLOAT:
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1043 {
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	1044 OCTAVE_LOCAL_BUFFER (float, ptr, len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	1045 is.read (reinterpret_cast<char > (ptr), 4 len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	1046 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	1047 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	1048 data[i] = ptr[i];
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1049 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1050 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1051
3359 803643945da1 [project @ 1999-11-19 04:27:48 by jwe] jwe parents: 3358 diff changeset	1052 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	1053 {
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	1054 is.read (reinterpret_cast<char > (data), 8 len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	1055 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	1056
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	1057 for (int i = 0; i < len; i++)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	1058 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	1059 }
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1060 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1061
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1062 default:
3504 5eef8a2294bd [project @ 2000-02-01 10:06:51 by jwe] jwe parents: 3503 diff changeset	1063 is.clear (std::ios::failbit\|is.rdstate ());
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1064 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1065 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1066 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1067
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1068 void
10349 d4d13389c957 make load-save to matlab format work when using --enable-64 John W. Eaton <jwe@octave.org> parents: 10314 diff changeset	1069 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	1070 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	1071 oct_mach_info::float_format fmt)
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1072 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1073 switch (type)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1074 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1075 case LS_U_CHAR:
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1076 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	1077 break;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1078
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1079 case LS_U_SHORT:
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1080 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	1081 break;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1082
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1083 case LS_U_INT:
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1084 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	1085 break;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1086
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1087 case LS_CHAR:
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1088 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	1089 break;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1090
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1091 case LS_SHORT:
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1092 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	1093 break;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1094
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1095 case LS_INT:
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1096 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	1097 break;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1098
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1099 case LS_FLOAT: // No conversion necessary.
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1100 is.read (reinterpret_cast<char > (data), 4 len);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1101 do_float_format_conversion (data, len, fmt);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1102 break;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1103
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1104 case LS_DOUBLE:
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1105 {
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	1106 OCTAVE_LOCAL_BUFFER (double, ptr, len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	1107 is.read (reinterpret_cast<char > (ptr), 8 len);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	1108 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	1109 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	1110 data[i] = ptr[i];
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1111 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1112 break;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1113
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1114 default:
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1115 is.clear (std::ios::failbit\|is.rdstate ());
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1116 break;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1117 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1118 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1119
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1120 void
10349 d4d13389c957 make load-save to matlab format work when using --enable-64 John W. Eaton <jwe@octave.org> parents: 10314 diff changeset	1121 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	1122 octave_idx_type len)
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1123 {
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1124 switch (type)
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1125 {
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1126 case LS_U_CHAR:
5828 22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe] jwe parents: 5775 diff changeset	1127 LS_DO_WRITE (uint8_t, data, 1, len, os);
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1128 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1129
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1130 case LS_U_SHORT:
5828 22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe] jwe parents: 5775 diff changeset	1131 LS_DO_WRITE (uint16_t, data, 2, len, os);
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1132 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1133
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1134 case LS_U_INT:
5828 22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe] jwe parents: 5775 diff changeset	1135 LS_DO_WRITE (uint32_t, data, 4, len, os);
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1136 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1137
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1138 case LS_CHAR:
5828 22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe] jwe parents: 5775 diff changeset	1139 LS_DO_WRITE (int8_t, data, 1, len, os);
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1140 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1141
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1142 case LS_SHORT:
5828 22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe] jwe parents: 5775 diff changeset	1143 LS_DO_WRITE (int16_t, data, 2, len, os);
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1144 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1145
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1146 case LS_INT:
5828 22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe] jwe parents: 5775 diff changeset	1147 LS_DO_WRITE (int32_t, data, 4, len, os);
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1148 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1149
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1150 case LS_FLOAT:
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1151 LS_DO_WRITE (float, data, 4, len, os);
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1152 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1153
3359 803643945da1 [project @ 1999-11-19 04:27:48 by jwe] jwe parents: 3358 diff changeset	1154 case LS_DOUBLE: // No conversion necessary.
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1155 {
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	1156 char tmp_type = static_cast<char> (type);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	1157 os.write (&tmp_type, 1);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	1158 os.write (reinterpret_cast <const char > (data), 8 len);
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1159 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1160 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1161
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1162 default:
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1163 (*current_liboctave_error_handler)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	1164 ("unrecognized data format requested");
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1165 break;
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1166 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1167 }
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1168
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1169 void
10349 d4d13389c957 make load-save to matlab format work when using --enable-64 John W. Eaton <jwe@octave.org> parents: 10314 diff changeset	1170 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	1171 octave_idx_type len)
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1172 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1173 switch (type)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1174 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1175 case LS_U_CHAR:
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1176 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	1177 break;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1178
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1179 case LS_U_SHORT:
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1180 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	1181 break;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1182
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1183 case LS_U_INT:
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1184 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	1185 break;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1186
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1187 case LS_CHAR:
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1188 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	1189 break;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1190
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1191 case LS_SHORT:
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1192 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	1193 break;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1194
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1195 case LS_INT:
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1196 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	1197 break;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1198
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1199 case LS_FLOAT: // No conversion necessary.
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1200 {
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	1201 char tmp_type = static_cast<char> (type);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	1202 os.write (&tmp_type, 1);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	1203 os.write (reinterpret_cast <const char > (data), 4 len);
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1204 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1205 break;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1206
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1207 case LS_DOUBLE:
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1208 LS_DO_WRITE (double, data, 8, len, os);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1209 break;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1210
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1211 default:
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1212 (*current_liboctave_error_handler)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	1213 ("unrecognized data format requested");
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1214 break;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1215 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	1216 }

Mercurial > octave-nkf

annotate liboctave/data-conv.cc @ 14138:72c96de7a403 stable