octave: liboctave/util/lo-utils.h annotate

annotate liboctave/util/lo-utils.h @ 30564:796f54d4ddbf stable

update Octave Project Developers copyright for the new year In files that have the "Octave Project Developers" copyright notice, update for 2021. In all .txi and .texi files except gpl.txi and gpl.texi in the doc/liboctave and doc/interpreter directories, change the copyright to "Octave Project Developers", the same as used for other source files. Update copyright notices for 2022 (not done since 2019). For gpl.txi and gpl.texi, change the copyright notice to be "Free Software Foundation, Inc." and leave the date at 2007 only because this file only contains the text of the GPL, not anything created by the Octave Project Developers. Add Paul Thomas to contributors.in.

author	John W. Eaton <jwe@octave.org>
date	Tue, 28 Dec 2021 18:22:40 -0500
parents	4c88a452519c
children	00ab5e929111

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 //
30564 796f54d4ddbf update Octave Project Developers copyright for the new year John W. Eaton <jwe@octave.org> parents: 29954 diff changeset	3 // Copyright (C) 1996-2022 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 ////////////////////////////////////////////////////////////////////////
1967 4cb6aaa0f2c7 [project @ 1996-02-17 02:54:24 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_lo_utils_h)
17822 ebb3ef964372 maint: Use common #define syntax "octave_filename_h" in h_files. Rik <rik@octave.org> parents: 17744 diff changeset	27 #define octave_lo_utils_h 1
1967 4cb6aaa0f2c7 [project @ 1996-02-17 02:54:24 by jwe] jwe parents: diff changeset	28
21244 1473547f50f5 include octave-config.h in public header files John W. Eaton <jwe@octave.org> parents: 21139 diff changeset	29 #include "octave-config.h"
1473547f50f5 include octave-config.h in public header files John W. Eaton <jwe@octave.org> parents: 21139 diff changeset	30
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	31 #include <cstdio>
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	32
25438 cb1606f78f6b prefer <istream>, <ostream>, or <iosfwd> to <iostream> where possible John W. Eaton <jwe@octave.org> parents: 25054 diff changeset	33 #include <iosfwd>
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	34 #include <string>
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	35
11512 e4e82740e9cd prototype fixes for C language files John W. Eaton <jwe@octave.org> parents: 11211 diff changeset	36 #include "lo-cutils.h"
4130 7d9bda865012 [project @ 2002-10-28 21:05:30 by jwe] jwe parents: 3970 diff changeset	37 #include "oct-cmplx.h"
23443 3f1bf237908b maint: Eliminate <cfloat.h> header from liboctave files. Rik <rik@octave.org> parents: 23220 diff changeset	38 #include "quit.h"
4130 7d9bda865012 [project @ 2002-10-28 21:05:30 by jwe] jwe parents: 3970 diff changeset	39
28628 83172e1c77f2 refactor octave_read_* and octave_write_* functions John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	40 namespace octave
9469 c6edba80dfae sanity checks for loading sparse matrices John W. Eaton <jwe@octave.org> parents: 8950 diff changeset	41 {
29937 da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	42 // Generic any/all test functionality with arbitrary predicate.
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	43
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	44 template <typename F, typename T, bool zero>
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	45 bool
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	46 any_all_test (F fcn, const T *m, octave_idx_type len)
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	47 {
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	48 octave_idx_type i;
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	49
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	50 for (i = 0; i < len - 3; i += 4)
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	51 {
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	52 octave_quit ();
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	53
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	54 if (fcn (m[i]) != zero
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	55 \|\| fcn (m[i+1]) != zero
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	56 \|\| fcn (m[i+2]) != zero
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	57 \|\| fcn (m[i+3]) != zero)
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	58 return ! zero;
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	59 }
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	60
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	61 octave_quit ();
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	62
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	63 for (; i < len; i++)
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	64 if (fcn (m[i]) != zero)
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	65 return ! zero;
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	66
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	67 return zero;
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	68 }
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	69
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	70 extern OCTAVE_API bool xis_int_or_inf_or_nan (double x);
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	71
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	72 template <typename T>
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	73 bool is_one_or_zero (const T& x)
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	74 {
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	75 return x == T (0) \|\| x == T (1);
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	76 }
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	77
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	78 template <typename T>
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	79 bool is_zero (const T& x)
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	80 {
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	81 return x == T (0);
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	82 }
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	83
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	84 extern OCTAVE_API bool too_large_for_float (double x);
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	85
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	86 extern OCTAVE_API bool too_large_for_float (const Complex& x);
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	87
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	88 extern OCTAVE_API bool is_int_or_inf_or_nan (float x);
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	89 extern OCTAVE_API bool too_large_for_float (float x);
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	90
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	91 extern OCTAVE_API char * strsave (const char *);
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	92
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	93 extern OCTAVE_API std::string fgets (std::FILE *);
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	94 extern OCTAVE_API std::string fgetl (std::FILE *);
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	95
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	96 extern OCTAVE_API std::string fgets (std::FILE *, bool& eof);
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	97 extern OCTAVE_API std::string fgetl (std::FILE *, bool& eof);
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	98
29230 6b3faa844395 Set API tags in files in liboctave/util (patch #8919). Markus Mützel <markus.muetzel@gmx.de> parents: 28849 diff changeset	99 template <typename T> OCTAVE_API T read_value (std::istream& is);
6b3faa844395 Set API tags in files in liboctave/util (patch #8919). Markus Mützel <markus.muetzel@gmx.de> parents: 28849 diff changeset	100
6b3faa844395 Set API tags in files in liboctave/util (patch #8919). Markus Mützel <markus.muetzel@gmx.de> parents: 28849 diff changeset	101 template <> OCTAVE_API double read_value (std::istream& is);
6b3faa844395 Set API tags in files in liboctave/util (patch #8919). Markus Mützel <markus.muetzel@gmx.de> parents: 28849 diff changeset	102 template <> OCTAVE_API Complex read_value (std::istream& is);
6b3faa844395 Set API tags in files in liboctave/util (patch #8919). Markus Mützel <markus.muetzel@gmx.de> parents: 28849 diff changeset	103 template <> OCTAVE_API float read_value (std::istream& is);
6b3faa844395 Set API tags in files in liboctave/util (patch #8919). Markus Mützel <markus.muetzel@gmx.de> parents: 28849 diff changeset	104 template <> OCTAVE_API FloatComplex read_value (std::istream& is);
28628 83172e1c77f2 refactor octave_read_* and octave_write_* functions John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	105
29230 6b3faa844395 Set API tags in files in liboctave/util (patch #8919). Markus Mützel <markus.muetzel@gmx.de> parents: 28849 diff changeset	106 template <typename T> OCTAVE_API void write_value (std::ostream& os, const T& value);
28628 83172e1c77f2 refactor octave_read_* and octave_write_* functions John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	107
29230 6b3faa844395 Set API tags in files in liboctave/util (patch #8919). Markus Mützel <markus.muetzel@gmx.de> parents: 28849 diff changeset	108 template <> OCTAVE_API void write_value (std::ostream& os, const double& value);
6b3faa844395 Set API tags in files in liboctave/util (patch #8919). Markus Mützel <markus.muetzel@gmx.de> parents: 28849 diff changeset	109 template <> OCTAVE_API void write_value (std::ostream& os, const Complex& value);
6b3faa844395 Set API tags in files in liboctave/util (patch #8919). Markus Mützel <markus.muetzel@gmx.de> parents: 28849 diff changeset	110 template <> OCTAVE_API void write_value (std::ostream& os, const float& value);
6b3faa844395 Set API tags in files in liboctave/util (patch #8919). Markus Mützel <markus.muetzel@gmx.de> parents: 28849 diff changeset	111 template <> OCTAVE_API void write_value (std::ostream& os, const FloatComplex& value);
28849 8b0675c2cfe0 Add functions to check for integer overflow on multiplication (bug #59094). Markus Mützel <markus.muetzel@gmx.de> parents: 28643 diff changeset	112
8b0675c2cfe0 Add functions to check for integer overflow on multiplication (bug #59094). Markus Mützel <markus.muetzel@gmx.de> parents: 28643 diff changeset	113 namespace math
8b0675c2cfe0 Add functions to check for integer overflow on multiplication (bug #59094). Markus Mützel <markus.muetzel@gmx.de> parents: 28643 diff changeset	114 {
29445 b5f3ae7610cf Use gnulib macros that account for the output type in integer overflow checks. Markus Mützel <markus.muetzel@gmx.de> parents: 29359 diff changeset	115 extern OCTAVE_API bool int_multiply_overflow (int a, int b, int *r);
29230 6b3faa844395 Set API tags in files in liboctave/util (patch #8919). Markus Mützel <markus.muetzel@gmx.de> parents: 28849 diff changeset	116
29445 b5f3ae7610cf Use gnulib macros that account for the output type in integer overflow checks. Markus Mützel <markus.muetzel@gmx.de> parents: 29359 diff changeset	117 extern OCTAVE_API bool
b5f3ae7610cf Use gnulib macros that account for the output type in integer overflow checks. Markus Mützel <markus.muetzel@gmx.de> parents: 29359 diff changeset	118 int_multiply_overflow (long int a, long int b, long int *r);
29230 6b3faa844395 Set API tags in files in liboctave/util (patch #8919). Markus Mützel <markus.muetzel@gmx.de> parents: 28849 diff changeset	119
28849 8b0675c2cfe0 Add functions to check for integer overflow on multiplication (bug #59094). Markus Mützel <markus.muetzel@gmx.de> parents: 28643 diff changeset	120 #if defined (OCTAVE_HAVE_LONG_LONG_INT)
29230 6b3faa844395 Set API tags in files in liboctave/util (patch #8919). Markus Mützel <markus.muetzel@gmx.de> parents: 28849 diff changeset	121 extern OCTAVE_API bool
29445 b5f3ae7610cf Use gnulib macros that account for the output type in integer overflow checks. Markus Mützel <markus.muetzel@gmx.de> parents: 29359 diff changeset	122 int_multiply_overflow (long long int a, long long int b, long long int *r);
28849 8b0675c2cfe0 Add functions to check for integer overflow on multiplication (bug #59094). Markus Mützel <markus.muetzel@gmx.de> parents: 28643 diff changeset	123 #endif
29230 6b3faa844395 Set API tags in files in liboctave/util (patch #8919). Markus Mützel <markus.muetzel@gmx.de> parents: 28849 diff changeset	124
6b3faa844395 Set API tags in files in liboctave/util (patch #8919). Markus Mützel <markus.muetzel@gmx.de> parents: 28849 diff changeset	125 extern OCTAVE_API bool
29445 b5f3ae7610cf Use gnulib macros that account for the output type in integer overflow checks. Markus Mützel <markus.muetzel@gmx.de> parents: 29359 diff changeset	126 int_multiply_overflow (unsigned int a, unsigned int b, unsigned int *r);
29230 6b3faa844395 Set API tags in files in liboctave/util (patch #8919). Markus Mützel <markus.muetzel@gmx.de> parents: 28849 diff changeset	127
6b3faa844395 Set API tags in files in liboctave/util (patch #8919). Markus Mützel <markus.muetzel@gmx.de> parents: 28849 diff changeset	128 extern OCTAVE_API bool
29445 b5f3ae7610cf Use gnulib macros that account for the output type in integer overflow checks. Markus Mützel <markus.muetzel@gmx.de> parents: 29359 diff changeset	129 int_multiply_overflow (unsigned long int a, unsigned long int b,
b5f3ae7610cf Use gnulib macros that account for the output type in integer overflow checks. Markus Mützel <markus.muetzel@gmx.de> parents: 29359 diff changeset	130 unsigned long int *r);
29230 6b3faa844395 Set API tags in files in liboctave/util (patch #8919). Markus Mützel <markus.muetzel@gmx.de> parents: 28849 diff changeset	131
28849 8b0675c2cfe0 Add functions to check for integer overflow on multiplication (bug #59094). Markus Mützel <markus.muetzel@gmx.de> parents: 28643 diff changeset	132 #if defined (OCTAVE_HAVE_UNSIGNED_LONG_LONG_INT)
29230 6b3faa844395 Set API tags in files in liboctave/util (patch #8919). Markus Mützel <markus.muetzel@gmx.de> parents: 28849 diff changeset	133 extern OCTAVE_API bool
29445 b5f3ae7610cf Use gnulib macros that account for the output type in integer overflow checks. Markus Mützel <markus.muetzel@gmx.de> parents: 29359 diff changeset	134 int_multiply_overflow (unsigned long long int a, unsigned long long int b,
b5f3ae7610cf Use gnulib macros that account for the output type in integer overflow checks. Markus Mützel <markus.muetzel@gmx.de> parents: 29359 diff changeset	135 unsigned long long int *r);
28849 8b0675c2cfe0 Add functions to check for integer overflow on multiplication (bug #59094). Markus Mützel <markus.muetzel@gmx.de> parents: 28643 diff changeset	136 #endif
8b0675c2cfe0 Add functions to check for integer overflow on multiplication (bug #59094). Markus Mützel <markus.muetzel@gmx.de> parents: 28643 diff changeset	137 }
9469 c6edba80dfae sanity checks for loading sparse matrices John W. Eaton <jwe@octave.org> parents: 8950 diff changeset	138 }
c6edba80dfae sanity checks for loading sparse matrices John W. Eaton <jwe@octave.org> parents: 8950 diff changeset	139
29954 4c88a452519c rename OCTAVE_USE_DEPRECATED_FUNCTIONS macro and attempt to make it work John W. Eaton <jwe@octave.org> parents: 29937 diff changeset	140 #if defined (OCTAVE_PROVIDE_DEPRECATED_SYMBOLS)
29937 da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	141 template <typename F, typename T, bool zero>
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	142 OCTAVE_DEPRECATED (7, "use 'octave::any_all_test' instead")
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	143 bool
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	144 any_all_test (F fcn, const T *m, octave_idx_type len)
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	145 {
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	146 return octave::any_all_test<F, T, zero> (fcn, m, len);
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	147 }
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	148
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	149 OCTAVE_DEPRECATED (7, "use 'octave::is_int_or_inf_or_nan' instead")
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	150 inline bool xis_int_or_inf_or_nan (double x)
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	151 {
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	152 return octave::is_int_or_inf_or_nan (x);
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	153 }
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	154
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	155 template <typename T>
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	156 OCTAVE_DEPRECATED (7, "use 'octave::is_one_or_zero' instead")
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	157 bool
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	158 xis_one_or_zero (const T& x)
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	159 {
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	160 return octave::is_one_or_zero (x);
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	161 }
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	162
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	163 template <typename T>
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	164 OCTAVE_DEPRECATED (7, "use 'octave::is_zero' instead")
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	165 bool
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	166 xis_zero (const T& x)
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	167 {
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	168 return octave::is_zero (x);
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	169 }
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	170
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	171 OCTAVE_DEPRECATED (7, "use 'octave::' instead")
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	172 inline bool xtoo_large_for_float (double x)
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	173 {
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	174 return octave::too_large_for_float (x);
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	175 }
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	176
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	177 OCTAVE_DEPRECATED (7, "use 'octave::' instead")
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	178 inline bool xtoo_large_for_float (const Complex& x)
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	179 {
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	180 return octave::too_large_for_float (x);
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	181 }
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	182
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	183 OCTAVE_DEPRECATED (7, "use 'octave::' instead")
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	184 inline bool xis_int_or_inf_or_nan (float x)
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	185 {
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	186 return octave::is_int_or_inf_or_nan (x);
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	187 }
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	188
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	189 OCTAVE_DEPRECATED (7, "use 'octave::' instead")
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	190 inline bool xtoo_large_for_float (float x)
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	191 {
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	192 return octave::too_large_for_float (x);
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	193 }
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	194
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	195 OCTAVE_DEPRECATED (7, "use 'octave::strsave' instead")
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	196 inline char * strsave (const char *s)
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	197 {
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	198 return octave::strsave (s);
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	199 }
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	200
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	201 OCTAVE_DEPRECATED (7, "use 'octave::fgets' instead")
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	202 inline std::string octave_fgets (std::FILE *f)
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	203 {
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	204 return octave::fgets (f);
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	205 }
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	206
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	207 OCTAVE_DEPRECATED (7, "use 'octave::fgetl' instead")
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	208 inline std::string octave_fgetl (std::FILE *f)
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	209 {
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	210 return octave::fgetl (f);
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	211 }
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	212
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	213 OCTAVE_DEPRECATED (7, "use 'octave::fgets' instead")
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	214 inline std::string octave_fgets (std::FILE *f, bool& eof)
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	215 {
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	216 return octave::fgets (f, eof);
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	217 }
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	218
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	219 OCTAVE_DEPRECATED (7, "use 'octave::fgetl' instead")
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	220 inline std::string octave_fgetl (std::FILE *f, bool& eof)
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	221 {
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	222 return octave::fgetl (f, eof);
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	223 }
da7210e30f3e move some utility functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29445 diff changeset	224
28628 83172e1c77f2 refactor octave_read_* and octave_write_* functions John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	225 OCTAVE_DEPRECATED (7, "use 'octave::read_value<T>' instead")
9469 c6edba80dfae sanity checks for loading sparse matrices John W. Eaton <jwe@octave.org> parents: 8950 diff changeset	226 inline double
c6edba80dfae sanity checks for loading sparse matrices John W. Eaton <jwe@octave.org> parents: 8950 diff changeset	227 octave_read_double (std::istream& is)
c6edba80dfae sanity checks for loading sparse matrices John W. Eaton <jwe@octave.org> parents: 8950 diff changeset	228 {
28628 83172e1c77f2 refactor octave_read_* and octave_write_* functions John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	229 return octave::read_value<double> (is);
9469 c6edba80dfae sanity checks for loading sparse matrices John W. Eaton <jwe@octave.org> parents: 8950 diff changeset	230 }
c6edba80dfae sanity checks for loading sparse matrices John W. Eaton <jwe@octave.org> parents: 8950 diff changeset	231
28628 83172e1c77f2 refactor octave_read_* and octave_write_* functions John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	232 OCTAVE_DEPRECATED (7, "use 'octave::read_value<T>' instead")
9469 c6edba80dfae sanity checks for loading sparse matrices John W. Eaton <jwe@octave.org> parents: 8950 diff changeset	233 inline Complex
c6edba80dfae sanity checks for loading sparse matrices John W. Eaton <jwe@octave.org> parents: 8950 diff changeset	234 octave_read_complex (std::istream& is)
c6edba80dfae sanity checks for loading sparse matrices John W. Eaton <jwe@octave.org> parents: 8950 diff changeset	235 {
28628 83172e1c77f2 refactor octave_read_* and octave_write_* functions John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	236 return octave::read_value<Complex> (is);
9469 c6edba80dfae sanity checks for loading sparse matrices John W. Eaton <jwe@octave.org> parents: 8950 diff changeset	237 }
c6edba80dfae sanity checks for loading sparse matrices John W. Eaton <jwe@octave.org> parents: 8950 diff changeset	238
28628 83172e1c77f2 refactor octave_read_* and octave_write_* functions John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	239 OCTAVE_DEPRECATED (7, "use 'octave::read_value<T>' instead")
9469 c6edba80dfae sanity checks for loading sparse matrices John W. Eaton <jwe@octave.org> parents: 8950 diff changeset	240 inline float
c6edba80dfae sanity checks for loading sparse matrices John W. Eaton <jwe@octave.org> parents: 8950 diff changeset	241 octave_read_float (std::istream& is)
c6edba80dfae sanity checks for loading sparse matrices John W. Eaton <jwe@octave.org> parents: 8950 diff changeset	242 {
28628 83172e1c77f2 refactor octave_read_* and octave_write_* functions John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	243 return octave::read_value<float> (is);
9469 c6edba80dfae sanity checks for loading sparse matrices John W. Eaton <jwe@octave.org> parents: 8950 diff changeset	244 }
c6edba80dfae sanity checks for loading sparse matrices John W. Eaton <jwe@octave.org> parents: 8950 diff changeset	245
28628 83172e1c77f2 refactor octave_read_* and octave_write_* functions John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	246 OCTAVE_DEPRECATED (7, "use 'octave::read_value<T>' instead")
9469 c6edba80dfae sanity checks for loading sparse matrices John W. Eaton <jwe@octave.org> parents: 8950 diff changeset	247 inline FloatComplex
c6edba80dfae sanity checks for loading sparse matrices John W. Eaton <jwe@octave.org> parents: 8950 diff changeset	248 octave_read_float_complex (std::istream& is)
c6edba80dfae sanity checks for loading sparse matrices John W. Eaton <jwe@octave.org> parents: 8950 diff changeset	249 {
28628 83172e1c77f2 refactor octave_read_* and octave_write_* functions John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	250 return octave::read_value<FloatComplex> (is);
83172e1c77f2 refactor octave_read_* and octave_write_* functions John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	251 }
83172e1c77f2 refactor octave_read_* and octave_write_* functions John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	252
83172e1c77f2 refactor octave_read_* and octave_write_* functions John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	253 OCTAVE_DEPRECATED (7, "use 'octave::write_value<T>' instead")
83172e1c77f2 refactor octave_read_* and octave_write_* functions John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	254 inline void
83172e1c77f2 refactor octave_read_* and octave_write_* functions John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	255 octave_write_double (std::ostream& os, double value)
83172e1c77f2 refactor octave_read_* and octave_write_* functions John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	256 {
83172e1c77f2 refactor octave_read_* and octave_write_* functions John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	257 octave::write_value<double> (os, value);
9469 c6edba80dfae sanity checks for loading sparse matrices John W. Eaton <jwe@octave.org> parents: 8950 diff changeset	258 }
4130 7d9bda865012 [project @ 2002-10-28 21:05:30 by jwe] jwe parents: 3970 diff changeset	259
28628 83172e1c77f2 refactor octave_read_* and octave_write_* functions John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	260 OCTAVE_DEPRECATED (7, "use 'octave::write_value<T>' instead")
83172e1c77f2 refactor octave_read_* and octave_write_* functions John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	261 inline void
83172e1c77f2 refactor octave_read_* and octave_write_* functions John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	262 octave_write_complex (std::ostream& os, const Complex& value)
83172e1c77f2 refactor octave_read_* and octave_write_* functions John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	263 {
83172e1c77f2 refactor octave_read_* and octave_write_* functions John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	264 octave::write_value<Complex> (os, value);
83172e1c77f2 refactor octave_read_* and octave_write_* functions John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	265 }
4130 7d9bda865012 [project @ 2002-10-28 21:05:30 by jwe] jwe parents: 3970 diff changeset	266
28628 83172e1c77f2 refactor octave_read_* and octave_write_* functions John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	267 OCTAVE_DEPRECATED (7, "use 'octave::write_value<T>' instead")
83172e1c77f2 refactor octave_read_* and octave_write_* functions John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	268 inline void
83172e1c77f2 refactor octave_read_* and octave_write_* functions John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	269 octave_write_float (std::ostream& os, float value)
83172e1c77f2 refactor octave_read_* and octave_write_* functions John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	270 {
83172e1c77f2 refactor octave_read_* and octave_write_* functions John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	271 octave::write_value<float> (os, value);
83172e1c77f2 refactor octave_read_* and octave_write_* functions John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	272 }
10180 be952ce74023 bootstrap.conf fixes John W. Eaton <jwe@octave.org> parents: 10178 diff changeset	273
28628 83172e1c77f2 refactor octave_read_* and octave_write_* functions John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	274 OCTAVE_DEPRECATED (7, "use 'octave::write_value<T>' instead")
83172e1c77f2 refactor octave_read_* and octave_write_* functions John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	275 inline void
83172e1c77f2 refactor octave_read_* and octave_write_* functions John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	276 octave_write_float_complex (std::ostream& os, const FloatComplex& value)
83172e1c77f2 refactor octave_read_* and octave_write_* functions John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	277 {
83172e1c77f2 refactor octave_read_* and octave_write_* functions John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	278 octave::write_value<FloatComplex> (os, value);
83172e1c77f2 refactor octave_read_* and octave_write_* functions John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	279 }
29954 4c88a452519c rename OCTAVE_USE_DEPRECATED_FUNCTIONS macro and attempt to make it work John W. Eaton <jwe@octave.org> parents: 29937 diff changeset	280 #endif
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	281
1967 4cb6aaa0f2c7 [project @ 1996-02-17 02:54:24 by jwe] jwe parents: diff changeset	282 #endif

Mercurial > octave

annotate liboctave/util/lo-utils.h @ 30564:796f54d4ddbf stable