octave-nkf: liboctave/util/data-conv.h annotate

annotate liboctave/util/data-conv.h @ 17416:6690dba6078a

improve efficiency of fwrite * oct-stream.h, oct-stream.cc (write_int, do_write): Delete. (convert_ints, convert_data, octave_stream::write_bytes octave_stream::skip_bytes): New functions. (octave_stream::write): Improve efficiency by writing data in larger chunks. * oct-stream.cc: Delete unnecessary template instantiations. * data-conv.h, data-conv.cc (is_equivalent_type): New template. Provide specializations for core Octave data types. (oct_data_conv::data_type_size): New function. (oct_data_conv::data_type_to_string): Correct spelling of unsigned.

author	John W. Eaton <jwe@octave.org>
date	Fri, 13 Sep 2013 23:31:11 -0400
parents	648dabbb4c6b
children	d63878346099

rev	line source
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	1 /*
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	2
14138 72c96de7a403 maint: update copyright notices for 2012 John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	3 Copyright (C) 1996-2012 John W. Eaton
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	4
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	5 This file is part of Octave.
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	6
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	7 Octave is free software; you can redistribute it and/or modify it
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	8 under the terms of the GNU General Public License as published by the
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6108 diff changeset	9 Free Software Foundation; either version 3 of the License, or (at your
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6108 diff changeset	10 option) any later version.
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	11
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	12 Octave is distributed in the hope that it will be useful, but WITHOUT
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	15 for more details.
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	16
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	17 You should have received a copy of the GNU General Public License
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6108 diff changeset	18 along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6108 diff changeset	19 <http://www.gnu.org/licenses/>.
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	20
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	21 */
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	22
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	23 #if !defined (octave_data_conv_h)
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	24 #define octave_data_conv_h 1
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	25
15215 9020dddc925a use std::numeric_limits for integer max and min values John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	26 #include <limits>
1960 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 "mach-info.h"
17416 6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	29 #include "oct-inttypes.h"
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	30
2317 8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	31 class
6108 143b556ce725 [project @ 2006-10-27 01:45:54 by jwe] jwe parents: 5828 diff changeset	32 OCTAVE_API
2317 8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	33 oct_data_conv
8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	34 {
8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	35 public:
8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	36
8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	37 enum data_type
8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	38 {
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 3739 diff changeset	39 dt_int8 = 0,
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 3739 diff changeset	40 dt_uint8 = 1,
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 3739 diff changeset	41 dt_int16 = 2,
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 3739 diff changeset	42 dt_uint16 = 3,
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 3739 diff changeset	43 dt_int32 = 4,
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 3739 diff changeset	44 dt_uint32 = 5,
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 3739 diff changeset	45 dt_int64 = 6,
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 3739 diff changeset	46 dt_uint64 = 7,
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 3739 diff changeset	47 dt_single = 8,
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 3739 diff changeset	48 dt_double = 9,
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 3739 diff changeset	49 dt_char = 10,
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 3739 diff changeset	50 dt_schar = 11,
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 3739 diff changeset	51 dt_uchar = 12,
4970 25c2664861bc [project @ 2004-09-08 05:02:32 by jwe] jwe parents: 4944 diff changeset	52 dt_logical = 13,
25c2664861bc [project @ 2004-09-08 05:02:32 by jwe] jwe parents: 4944 diff changeset	53 dt_short = 14,
25c2664861bc [project @ 2004-09-08 05:02:32 by jwe] jwe parents: 4944 diff changeset	54 dt_ushort = 15,
25c2664861bc [project @ 2004-09-08 05:02:32 by jwe] jwe parents: 4944 diff changeset	55 dt_int = 16,
25c2664861bc [project @ 2004-09-08 05:02:32 by jwe] jwe parents: 4944 diff changeset	56 dt_uint = 17,
25c2664861bc [project @ 2004-09-08 05:02:32 by jwe] jwe parents: 4944 diff changeset	57 dt_long = 18,
25c2664861bc [project @ 2004-09-08 05:02:32 by jwe] jwe parents: 4944 diff changeset	58 dt_ulong = 19,
25c2664861bc [project @ 2004-09-08 05:02:32 by jwe] jwe parents: 4944 diff changeset	59 dt_longlong = 20,
25c2664861bc [project @ 2004-09-08 05:02:32 by jwe] jwe parents: 4944 diff changeset	60 dt_ulonglong = 21,
25c2664861bc [project @ 2004-09-08 05:02:32 by jwe] jwe parents: 4944 diff changeset	61 dt_float = 22,
25c2664861bc [project @ 2004-09-08 05:02:32 by jwe] jwe parents: 4944 diff changeset	62 dt_unknown = 23 // Must be last, have largest value!
2317 8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	63 };
8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	64
17416 6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	65 static size_t data_type_size (data_type dt);
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	66
3504 5eef8a2294bd [project @ 2000-02-01 10:06:51 by jwe] jwe parents: 2847 diff changeset	67 static data_type string_to_data_type (const std::string& s);
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 3739 diff changeset	68
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 3739 diff changeset	69 static void string_to_data_type (const std::string& s, int& block_size,
10312 cbc402e64d83 untabify liboctave header files John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	70 data_type& input_type,
cbc402e64d83 untabify liboctave header files John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	71 data_type& output_type);
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 3739 diff changeset	72
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 3739 diff changeset	73 static void string_to_data_type (const std::string& s, int& block_size,
10312 cbc402e64d83 untabify liboctave header files John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	74 data_type& output_type);
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 3739 diff changeset	75
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 3739 diff changeset	76 static std::string data_type_as_string (data_type dt);
2317 8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	77 };
8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	78
3739 85027c5aedc2 [project @ 2000-11-21 01:55:32 by jwe] jwe parents: 3688 diff changeset	79 // Add new entries to the end of this enum, otherwise Octave will not
85027c5aedc2 [project @ 2000-11-21 01:55:32 by jwe] jwe parents: 3688 diff changeset	80 // be able to read binary data files stored in Octave's binary data
85027c5aedc2 [project @ 2000-11-21 01:55:32 by jwe] jwe parents: 3688 diff changeset	81 // format that were created with previous versions of Octave.
85027c5aedc2 [project @ 2000-11-21 01:55:32 by jwe] jwe parents: 3688 diff changeset	82
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	83 enum save_type
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	84 {
3739 85027c5aedc2 [project @ 2000-11-21 01:55:32 by jwe] jwe parents: 3688 diff changeset	85 LS_U_CHAR = 0,
85027c5aedc2 [project @ 2000-11-21 01:55:32 by jwe] jwe parents: 3688 diff changeset	86 LS_U_SHORT = 1,
85027c5aedc2 [project @ 2000-11-21 01:55:32 by jwe] jwe parents: 3688 diff changeset	87 LS_U_INT = 2,
85027c5aedc2 [project @ 2000-11-21 01:55:32 by jwe] jwe parents: 3688 diff changeset	88 LS_CHAR = 3,
85027c5aedc2 [project @ 2000-11-21 01:55:32 by jwe] jwe parents: 3688 diff changeset	89 LS_SHORT = 4,
85027c5aedc2 [project @ 2000-11-21 01:55:32 by jwe] jwe parents: 3688 diff changeset	90 LS_INT = 5,
85027c5aedc2 [project @ 2000-11-21 01:55:32 by jwe] jwe parents: 3688 diff changeset	91 LS_FLOAT = 6,
85027c5aedc2 [project @ 2000-11-21 01:55:32 by jwe] jwe parents: 3688 diff changeset	92 LS_DOUBLE = 7,
85027c5aedc2 [project @ 2000-11-21 01:55:32 by jwe] jwe parents: 3688 diff changeset	93 LS_U_LONG = 8,
85027c5aedc2 [project @ 2000-11-21 01:55:32 by jwe] jwe parents: 3688 diff changeset	94 LS_LONG = 9
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	95 };
285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	96
6108 143b556ce725 [project @ 2006-10-27 01:45:54 by jwe] jwe parents: 5828 diff changeset	97 extern OCTAVE_API void
10349 d4d13389c957 make load-save to matlab format work when using --enable-64 John W. Eaton <jwe@octave.org> parents: 10312 diff changeset	98 do_double_format_conversion (void *data, octave_idx_type len,
10312 cbc402e64d83 untabify liboctave header files John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	99 oct_mach_info::float_format from_fmt,
cbc402e64d83 untabify liboctave header files John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	100 oct_mach_info::float_format to_fmt
cbc402e64d83 untabify liboctave header files John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	101 = oct_mach_info::native_float_format ());
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	102
6108 143b556ce725 [project @ 2006-10-27 01:45:54 by jwe] jwe parents: 5828 diff changeset	103 extern OCTAVE_API void
10349 d4d13389c957 make load-save to matlab format work when using --enable-64 John W. Eaton <jwe@octave.org> parents: 10312 diff changeset	104 do_float_format_conversion (void *data, octave_idx_type len,
10312 cbc402e64d83 untabify liboctave header files John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	105 oct_mach_info::float_format from_fmt,
cbc402e64d83 untabify liboctave header files John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	106 oct_mach_info::float_format to_fmt
cbc402e64d83 untabify liboctave header files John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	107 = oct_mach_info::native_float_format ());
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 3739 diff changeset	108
6108 143b556ce725 [project @ 2006-10-27 01:45:54 by jwe] jwe parents: 5828 diff changeset	109 extern OCTAVE_API void
10349 d4d13389c957 make load-save to matlab format work when using --enable-64 John W. Eaton <jwe@octave.org> parents: 10312 diff changeset	110 do_float_format_conversion (void *data, size_t sz, octave_idx_type len,
10312 cbc402e64d83 untabify liboctave header files John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	111 oct_mach_info::float_format from_fmt,
cbc402e64d83 untabify liboctave header files John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	112 oct_mach_info::float_format to_fmt
cbc402e64d83 untabify liboctave header files John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	113 = oct_mach_info::native_float_format ());
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	114
6108 143b556ce725 [project @ 2006-10-27 01:45:54 by jwe] jwe parents: 5828 diff changeset	115 extern OCTAVE_API void
10349 d4d13389c957 make load-save to matlab format work when using --enable-64 John W. Eaton <jwe@octave.org> parents: 10312 diff changeset	116 read_doubles (std::istream& is, double *data, save_type type,
d4d13389c957 make load-save to matlab format work when using --enable-64 John W. Eaton <jwe@octave.org> parents: 10312 diff changeset	117 octave_idx_type len, bool swap, oct_mach_info::float_format fmt);
d4d13389c957 make load-save to matlab format work when using --enable-64 John W. Eaton <jwe@octave.org> parents: 10312 diff changeset	118
6108 143b556ce725 [project @ 2006-10-27 01:45:54 by jwe] jwe parents: 5828 diff changeset	119 extern OCTAVE_API void
10349 d4d13389c957 make load-save to matlab format work when using --enable-64 John W. Eaton <jwe@octave.org> parents: 10312 diff changeset	120 write_doubles (std::ostream& os, const double *data, save_type type,
d4d13389c957 make load-save to matlab format work when using --enable-64 John W. Eaton <jwe@octave.org> parents: 10312 diff changeset	121 octave_idx_type len);
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	122
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	123 extern OCTAVE_API void
10349 d4d13389c957 make load-save to matlab format work when using --enable-64 John W. Eaton <jwe@octave.org> parents: 10312 diff changeset	124 read_floats (std::istream& is, float *data, save_type type,
d4d13389c957 make load-save to matlab format work when using --enable-64 John W. Eaton <jwe@octave.org> parents: 10312 diff changeset	125 octave_idx_type len, bool swap, oct_mach_info::float_format fmt);
d4d13389c957 make load-save to matlab format work when using --enable-64 John W. Eaton <jwe@octave.org> parents: 10312 diff changeset	126
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	127 extern OCTAVE_API void
10349 d4d13389c957 make load-save to matlab format work when using --enable-64 John W. Eaton <jwe@octave.org> parents: 10312 diff changeset	128 write_floats (std::ostream& os, const float *data, save_type type,
d4d13389c957 make load-save to matlab format work when using --enable-64 John W. Eaton <jwe@octave.org> parents: 10312 diff changeset	129 octave_idx_type len);
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	130
17416 6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	131 template <typename T>
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	132 inline bool
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	133 is_equivalent_type (oct_data_conv::data_type)
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	134 {
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	135 return false;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	136 }
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	137
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	138 template <>
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	139 inline bool
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	140 is_equivalent_type<int8_t> (oct_data_conv::data_type t)
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	141 {
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	142 return t == oct_data_conv::dt_int8;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	143 }
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	144
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	145 template <>
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	146 inline bool
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	147 is_equivalent_type<int16_t> (oct_data_conv::data_type t)
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	148 {
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	149 return t == oct_data_conv::dt_int16;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	150 }
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	151
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	152 template <>
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	153 inline bool
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	154 is_equivalent_type<int32_t> (oct_data_conv::data_type t)
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	155 {
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	156 return t == oct_data_conv::dt_int32;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	157 }
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	158
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	159 template <>
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	160 inline bool
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	161 is_equivalent_type<int64_t> (oct_data_conv::data_type t)
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	162 {
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	163 return t == oct_data_conv::dt_int64;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	164 }
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	165
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	166 template <>
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	167 inline bool
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	168 is_equivalent_type<uint8_t> (oct_data_conv::data_type t)
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	169 {
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	170 return t == oct_data_conv::dt_uint8;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	171 }
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	172
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	173 template <>
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	174 inline bool
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	175 is_equivalent_type<uint16_t> (oct_data_conv::data_type t)
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	176 {
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	177 return t == oct_data_conv::dt_uint16;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	178 }
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	179
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	180 template <>
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	181 inline bool
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	182 is_equivalent_type<uint32_t> (oct_data_conv::data_type t)
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	183 {
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	184 return t == oct_data_conv::dt_uint32;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	185 }
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	186
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	187 template <>
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	188 inline bool
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	189 is_equivalent_type<uint64_t> (oct_data_conv::data_type t)
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	190 {
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	191 return t == oct_data_conv::dt_uint64;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	192 }
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	193
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	194 template <>
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	195 inline bool
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	196 is_equivalent_type<octave_int8> (oct_data_conv::data_type t)
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	197 {
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	198 return t == oct_data_conv::dt_int8;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	199 }
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	200
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	201 template <>
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	202 inline bool
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	203 is_equivalent_type<octave_int16> (oct_data_conv::data_type t)
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	204 {
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	205 return t == oct_data_conv::dt_int16;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	206 }
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	207
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	208 template <>
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	209 inline bool
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	210 is_equivalent_type<octave_int32> (oct_data_conv::data_type t)
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	211 {
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	212 return t == oct_data_conv::dt_int32;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	213 }
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	214
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	215 template <>
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	216 inline bool
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	217 is_equivalent_type<octave_int64> (oct_data_conv::data_type t)
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	218 {
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	219 return t == oct_data_conv::dt_int64;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	220 }
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	221
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	222 template <>
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	223 inline bool
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	224 is_equivalent_type<octave_uint8> (oct_data_conv::data_type t)
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	225 {
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	226 return t == oct_data_conv::dt_uint8;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	227 }
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	228
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	229 template <>
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	230 inline bool
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	231 is_equivalent_type<octave_uint16> (oct_data_conv::data_type t)
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	232 {
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	233 return t == oct_data_conv::dt_uint16;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	234 }
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	235
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	236 template <>
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	237 inline bool
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	238 is_equivalent_type<octave_uint32> (oct_data_conv::data_type t)
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	239 {
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	240 return t == oct_data_conv::dt_uint32;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	241 }
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	242
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	243 template <>
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	244 inline bool
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	245 is_equivalent_type<octave_uint64> (oct_data_conv::data_type t)
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	246 {
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	247 return t == oct_data_conv::dt_uint64;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	248 }
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	249
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	250 template <>
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	251 inline bool
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	252 is_equivalent_type<double> (oct_data_conv::data_type t)
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	253 {
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	254 return t == oct_data_conv::dt_double;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	255 }
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	256
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	257 template <>
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	258 inline bool
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	259 is_equivalent_type<float> (oct_data_conv::data_type t)
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	260 {
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	261 return t == oct_data_conv::dt_single \|\| t == oct_data_conv::dt_float;
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	262 }
6690dba6078a improve efficiency of fwrite John W. Eaton <jwe@octave.org> parents: 15271 diff changeset	263
1960 285a7f683a4c [project @ 1996-02-16 04:03:01 by jwe] jwe parents: diff changeset	264 #endif

Mercurial > octave-nkf

annotate liboctave/util/data-conv.h @ 17416:6690dba6078a