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

annotate liboctave/data-conv.cc @ 11449:93b8c7ca211f

isa.m: Add tests against logical types

author	Rik <octave@nomad.inbox5.com>
date	Wed, 05 Jan 2011 21:21:37 -0800
parents	d4d13389c957
children	fd0a3ac60b0e

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

Mercurial > hg > octave-lyh

annotate liboctave/data-conv.cc @ 11449:93b8c7ca211f