Mercurial > octave
annotate liboctave/lo-utils.h @ 9469:c6edba80dfae
sanity checks for loading sparse matrices
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Wed, 29 Jul 2009 12:15:27 -0400 |
parents | d865363208d6 |
children | 11844593875a |
rev | line source |
---|---|
1967 | 1 /* |
2 | |
7017 | 3 Copyright (C) 1996, 1997, 2000, 2001, 2002, 2003, 2004, 2005, 2006, |
8920 | 4 2007, 2008 John W. Eaton |
1967 | 5 |
6 This file is part of Octave. | |
7 | |
8 Octave is free software; you can redistribute it and/or modify it | |
9 under the terms of the GNU General Public License as published by the | |
7016 | 10 Free Software Foundation; either version 3 of the License, or (at your |
11 option) any later version. | |
1967 | 12 |
13 Octave is distributed in the hope that it will be useful, but WITHOUT | |
14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
16 for more details. | |
17 | |
18 You should have received a copy of the GNU General Public License | |
7016 | 19 along with Octave; see the file COPYING. If not, see |
20 <http://www.gnu.org/licenses/>. | |
1967 | 21 |
22 */ | |
23 | |
24 #if !defined (octave_liboctave_utils_h) | |
25 #define octave_liboctave_utils_h 1 | |
26 | |
2926 | 27 #include <cstdio> |
28 | |
9469
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8950
diff
changeset
|
29 #include <iostream> |
2926 | 30 #include <string> |
31 | |
4130 | 32 #include "oct-cmplx.h" |
5275 | 33 #include "oct-types.h" |
5453 | 34 #include "syswait.h" |
4130 | 35 |
6108 | 36 extern OCTAVE_API octave_idx_type NINTbig (double x); |
7789
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
37 extern OCTAVE_API octave_idx_type NINTbig (float x); |
6108 | 38 extern OCTAVE_API int NINT (double x); |
7789
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
39 extern OCTAVE_API int NINT (float x); |
6108 | 40 extern OCTAVE_API double D_NINT (double x); |
7789
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
41 extern OCTAVE_API float F_NINT (float x); |
1967 | 42 |
6108 | 43 extern OCTAVE_API char *strsave (const char *); |
2926 | 44 |
6108 | 45 extern OCTAVE_API void octave_putenv (const std::string&, const std::string&); |
2926 | 46 |
6108 | 47 extern OCTAVE_API std::string octave_fgets (std::FILE *); |
48 extern OCTAVE_API std::string octave_fgetl (std::FILE *); | |
2926 | 49 |
6108 | 50 extern OCTAVE_API std::string octave_fgets (std::FILE *, bool& eof); |
51 extern OCTAVE_API std::string octave_fgetl (std::FILE *, bool& eof); | |
3970 | 52 |
6108 | 53 extern "C" OCTAVE_API int octave_gethostname (char *, int); |
3803 | 54 |
6108 | 55 extern "C" OCTAVE_API void octave_qsort (void *base, size_t n, size_t size, |
3613 | 56 int (*cmp) (const void *, const void *)); |
57 | |
6108 | 58 extern "C" OCTAVE_API char *oct_strptime (const char *buf, const char *format, |
3706 | 59 struct tm *tm); |
60 | |
6111 | 61 extern "C" OCTINTERP_API int octave_strcasecmp (const char *s1, const char *s2); |
62 | |
63 extern "C" OCTINTERP_API int octave_strncasecmp (const char *s1, const char *s2, size_t n); | |
64 | |
9469
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8950
diff
changeset
|
65 template <typename T> |
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8950
diff
changeset
|
66 T |
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8950
diff
changeset
|
67 octave_read_value (std::istream& is) |
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8950
diff
changeset
|
68 { |
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8950
diff
changeset
|
69 T retval; |
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8950
diff
changeset
|
70 is >> retval; |
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8950
diff
changeset
|
71 return retval; |
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8950
diff
changeset
|
72 } |
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8950
diff
changeset
|
73 |
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8950
diff
changeset
|
74 template <> OCTAVE_API double octave_read_value (std::istream& is); |
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8950
diff
changeset
|
75 template <> OCTAVE_API Complex octave_read_value (std::istream& is); |
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8950
diff
changeset
|
76 template <> OCTAVE_API float octave_read_value (std::istream& is); |
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8950
diff
changeset
|
77 template <> OCTAVE_API FloatComplex octave_read_value (std::istream& is); |
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8950
diff
changeset
|
78 |
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8950
diff
changeset
|
79 // The next four functions are provided for backward compatibility. |
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8950
diff
changeset
|
80 inline double |
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8950
diff
changeset
|
81 octave_read_double (std::istream& is) |
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8950
diff
changeset
|
82 { |
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8950
diff
changeset
|
83 return octave_read_value<double> (is); |
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8950
diff
changeset
|
84 } |
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8950
diff
changeset
|
85 |
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8950
diff
changeset
|
86 inline Complex |
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8950
diff
changeset
|
87 octave_read_complex (std::istream& is) |
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8950
diff
changeset
|
88 { |
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8950
diff
changeset
|
89 return octave_read_value<Complex> (is); |
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8950
diff
changeset
|
90 } |
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8950
diff
changeset
|
91 |
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8950
diff
changeset
|
92 inline float |
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8950
diff
changeset
|
93 octave_read_float (std::istream& is) |
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8950
diff
changeset
|
94 { |
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8950
diff
changeset
|
95 return octave_read_value<float> (is); |
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8950
diff
changeset
|
96 } |
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8950
diff
changeset
|
97 |
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8950
diff
changeset
|
98 inline FloatComplex |
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8950
diff
changeset
|
99 octave_read_float_complex (std::istream& is) |
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8950
diff
changeset
|
100 { |
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8950
diff
changeset
|
101 return octave_read_value<FloatComplex> (is); |
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8950
diff
changeset
|
102 } |
4130 | 103 |
6108 | 104 extern OCTAVE_API void octave_write_double (std::ostream& os, double dval); |
105 extern OCTAVE_API void octave_write_complex (std::ostream& os, const Complex& cval); | |
4130 | 106 |
7789
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
107 extern OCTAVE_API void octave_write_float (std::ostream& os, float dval); |
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
108 extern OCTAVE_API void octave_write_float_complex (std::ostream& os, const FloatComplex& cval); |
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
109 |
5451 | 110 #ifdef HAVE_LOADLIBRARY_API |
111 #include <windows.h> | |
6108 | 112 extern "C" OCTAVE_API void * octave_w32_library_search (HINSTANCE handle, const char *name); |
113 #undef min | |
114 #undef max | |
5451 | 115 #endif |
1967 | 116 #endif |
117 | |
6108 | 118 extern "C" OCTAVE_API pid_t octave_waitpid (pid_t pid, int *status, int options); |
5453 | 119 |
1967 | 120 /* |
121 ;;; Local Variables: *** | |
122 ;;; mode: C++ *** | |
123 ;;; End: *** | |
124 */ |