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

annotate liboctave/util/data-conv.h @ 31706:597f3ee61a48 stable

update Octave Project Developers copyright for the new year

author	John W. Eaton <jwe@octave.org>
date	Fri, 06 Jan 2023 13:11:27 -0500
parents	796f54d4ddbf
children	ae4e19c0a2b1 2e484f9f1f18

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

Mercurial > octave

annotate liboctave/util/data-conv.h @ 31706:597f3ee61a48 stable