Mercurial > octave-nkf
annotate libinterp/corefcn/load-save.cc @ 20478:610c74748518
maint: Clean up code based on static analysis suggestions.
* __dispatch__.cc (F__dispatch__): Eliminate unnecessary double check on
(nargin > 0).
* cellfun.cc (Fnum2cell): Eliminate duplicate else-if branch for
array.is_object().
* load-save.cc: Eliminate unreachable else branch. Simplify else-if to simple
else since condition is always true at this point.
* matrix_type.cc (Fmatrix_type): Eliminate unnecessary check on 'str_type ==
upper' and just mark matrix as permuted when permutation matrix was given as
input.
* kpse.cc (set_end): remove unused variable and its usage in conditional.
| author | Rik <rik@octave.org> |
|---|---|
| date | Fri, 14 Aug 2015 13:28:30 -0700 |
| parents | 6bc09e953927 |
| children | c6224b4e7774 |
| rev | line source |
|---|---|
| 6763 | 1 /* |
| 604 | 2 |
|
19731
4197fc428c7d
maint: Update copyright notices for 2015.
John W. Eaton <jwe@octave.org>
parents:
19427
diff
changeset
|
3 Copyright (C) 1994-2015 John W. Eaton |
| 604 | 4 |
| 5 This file is part of Octave. | |
| 6 | |
| 7 Octave is free software; you can redistribute it and/or modify it | |
| 8 under the terms of the GNU General Public License as published by the | |
| 7016 | 9 Free Software Foundation; either version 3 of the License, or (at your |
| 10 option) any later version. | |
| 604 | 11 |
| 12 Octave is distributed in the hope that it will be useful, but WITHOUT | |
| 13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 15 for more details. | |
| 16 | |
| 17 You should have received a copy of the GNU General Public License | |
| 7016 | 18 along with Octave; see the file COPYING. If not, see |
| 19 <http://www.gnu.org/licenses/>. | |
| 604 | 20 |
| 21 */ | |
| 22 | |
| 3911 | 23 // Author: John W. Eaton. |
| 24 // HDF5 support by Steven G. Johnson <stevenj@alum.mit.edu> | |
| 25 // Matlab v5 support by James R. Van Zandt <jrv@vanzandt.mv.com> | |
| 3687 | 26 |
| 604 | 27 #ifdef HAVE_CONFIG_H |
| 1192 | 28 #include <config.h> |
| 604 | 29 #endif |
| 30 | |
| 1343 | 31 #include <cfloat> |
| 32 #include <cstring> | |
| 33 #include <cctype> | |
| 34 | |
| 4249 | 35 #include <fstream> |
| 3503 | 36 #include <iomanip> |
| 37 #include <iostream> | |
| 5765 | 38 #include <sstream> |
| 1728 | 39 #include <string> |
| 40 | |
| 9946 | 41 #include "strftime.h" |
| 42 | |
| 1961 | 43 #include "byte-swap.h" |
| 44 #include "data-conv.h" | |
| 2926 | 45 #include "file-ops.h" |
| 6159 | 46 #include "file-stat.h" |
| 2926 | 47 #include "glob-match.h" |
| 2890 | 48 #include "lo-mappers.h" |
| 2318 | 49 #include "mach-info.h" |
| 3185 | 50 #include "oct-env.h" |
| 3258 | 51 #include "oct-time.h" |
| 4171 | 52 #include "quit.h" |
| 1755 | 53 #include "str-vec.h" |
|
8377
25bc2d31e1bf
improve OCTAVE_LOCAL_BUFFER
Jaroslav Hajek <highegg@gmail.com>
parents:
8110
diff
changeset
|
54 #include "oct-locbuf.h" |
| 1755 | 55 |
| 4332 | 56 #include "Cell.h" |
| 1352 | 57 #include "defun.h" |
| 604 | 58 #include "error.h" |
| 777 | 59 #include "gripes.h" |
| 6159 | 60 #include "load-path.h" |
| 1352 | 61 #include "load-save.h" |
|
20299
bfe66db8addb
don't include hdf5.h or use HDF5 typedefs in public header files (bug #43180)
John W. Eaton <jwe@octave.org>
parents:
20267
diff
changeset
|
62 #include "oct-hdf5.h" |
| 1750 | 63 #include "oct-obj.h" |
| 3687 | 64 #include "oct-map.h" |
| 4332 | 65 #include "ov-cell.h" |
| 1352 | 66 #include "pager.h" |
| 1750 | 67 #include "pt-exp.h" |
| 1352 | 68 #include "symtab.h" |
| 69 #include "sysdep.h" | |
| 70 #include "unwind-prot.h" | |
| 604 | 71 #include "utils.h" |
| 2371 | 72 #include "variables.h" |
| 3185 | 73 #include "version.h" |
| 3688 | 74 #include "dMatrix.h" |
| 75 | |
| 4633 | 76 #include "ls-hdf5.h" |
| 77 #include "ls-mat-ascii.h" | |
| 78 #include "ls-mat4.h" | |
| 79 #include "ls-mat5.h" | |
| 80 #include "ls-oct-ascii.h" | |
| 81 #include "ls-oct-binary.h" | |
| 3688 | 82 |
| 10309 | 83 // Remove gnulib definitions, if any. |
| 84 #ifdef close | |
| 85 #undef close | |
| 86 #endif | |
| 87 #ifdef open | |
| 88 #undef open | |
| 5269 | 89 #endif |
| 90 | |
| 10309 | 91 #ifdef HAVE_ZLIB |
| 92 #include "zfstream.h" | |
|
10305
d6cdf08d0424
load-save.cc: avoid gnulib definition of close
John W. Eaton <jwe@octave.org>
parents:
10250
diff
changeset
|
93 #endif |
|
d6cdf08d0424
load-save.cc: avoid gnulib definition of close
John W. Eaton <jwe@octave.org>
parents:
10250
diff
changeset
|
94 |
|
14889
577df411e0c7
rename octave-core file to octave-workspace
John W. Eaton <jwe@octave.org>
parents:
14861
diff
changeset
|
95 // Write octave-workspace file if Octave crashes or is killed by a signal. |
| 5794 | 96 static bool Vcrash_dumps_octave_core = true; |
| 3189 | 97 |
| 4791 | 98 // The maximum amount of memory (in kilobytes) that we will attempt to |
| 99 // write to the Octave core file. | |
| 5794 | 100 static double Voctave_core_file_limit = -1.0; |
| 4791 | 101 |
| 102 // The name of the Octave core file. | |
|
14889
577df411e0c7
rename octave-core file to octave-workspace
John W. Eaton <jwe@octave.org>
parents:
14861
diff
changeset
|
103 static std::string Voctave_core_file_name = "octave-workspace"; |
| 4791 | 104 |
| 3687 | 105 // The default output format. May be one of "binary", "text", |
| 106 // "mat-binary", or "hdf5". | |
|
16875
b04ae15530fc
Rename default_save_options() to save_default_options().
Rik <rik@octave.org>
parents:
16555
diff
changeset
|
107 static std::string Vsave_default_options = "-text"; |
| 2194 | 108 |
| 5284 | 109 // The output format for Octave core files. |
| 5794 | 110 static std::string Voctave_core_file_options = "-binary"; |
| 111 | |
| 112 static std::string | |
| 113 default_save_header_format (void) | |
| 114 { | |
| 115 return | |
| 116 std::string ("# Created by Octave " OCTAVE_VERSION | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
117 ", %a %b %d %H:%M:%S %Y %Z <") |
| 5794 | 118 + octave_env::get_user_name () |
| 119 + std::string ("@") | |
| 120 + octave_env::get_host_name () | |
| 121 + std::string (">"); | |
| 122 } | |
| 4788 | 123 |
| 3709 | 124 // The format string for the comment line at the top of text-format |
|
15466
d174210ce1ec
use ' instead of ` in error messages, warnings and most comments
John W. Eaton <jwe@octave.org>
parents:
14268
diff
changeset
|
125 // save files. Passed to strftime. Should begin with '#' and contain |
| 3709 | 126 // no newline characters. |
| 5794 | 127 static std::string Vsave_header_format_string = default_save_header_format (); |
| 3709 | 128 |
| 5369 | 129 static void |
| 130 gripe_file_open (const std::string& fcn, const std::string& file) | |
| 131 { | |
| 132 if (fcn == "load") | |
|
15466
d174210ce1ec
use ' instead of ` in error messages, warnings and most comments
John W. Eaton <jwe@octave.org>
parents:
14268
diff
changeset
|
133 error ("%s: unable to open input file '%s'", fcn.c_str (), file.c_str ()); |
| 5369 | 134 else if (fcn == "save") |
|
15466
d174210ce1ec
use ' instead of ` in error messages, warnings and most comments
John W. Eaton <jwe@octave.org>
parents:
14268
diff
changeset
|
135 error ("%s: unable to open output file '%s'", fcn.c_str (), file.c_str ()); |
| 5369 | 136 else |
|
15466
d174210ce1ec
use ' instead of ` in error messages, warnings and most comments
John W. Eaton <jwe@octave.org>
parents:
14268
diff
changeset
|
137 error ("%s: unable to open file '%s'", fcn.c_str (), file.c_str ()); |
| 5369 | 138 } |
| 139 | |
| 7336 | 140 // Install a variable with name NAME and the value VAL in the |
| 141 // symbol table. If GLOBAL is TRUE, make the variable global. | |
| 604 | 142 |
| 143 static void | |
| 7336 | 144 install_loaded_variable (const std::string& name, |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
145 const octave_value& val, |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
146 bool global, const std::string& /*doc*/) |
| 604 | 147 { |
| 148 if (global) | |
| 149 { | |
|
16442
302157614308
deprecate symbol_table::varref functions
John W. Eaton <jwe@octave.org>
parents:
15571
diff
changeset
|
150 symbol_table::clear (name); |
|
302157614308
deprecate symbol_table::varref functions
John W. Eaton <jwe@octave.org>
parents:
15571
diff
changeset
|
151 symbol_table::mark_global (name); |
|
302157614308
deprecate symbol_table::varref functions
John W. Eaton <jwe@octave.org>
parents:
15571
diff
changeset
|
152 symbol_table::global_assign (name, val); |
| 604 | 153 } |
| 154 else | |
|
16442
302157614308
deprecate symbol_table::varref functions
John W. Eaton <jwe@octave.org>
parents:
15571
diff
changeset
|
155 symbol_table::assign (name, val); |
| 604 | 156 } |
| 157 | |
| 3019 | 158 // Return TRUE if NAME matches one of the given globbing PATTERNS. |
| 604 | 159 |
| 3013 | 160 static bool |
| 3769 | 161 matches_patterns (const string_vector& patterns, int pat_idx, |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
162 int num_pat, const std::string& name) |
| 604 | 163 { |
| 1755 | 164 for (int i = pat_idx; i < num_pat; i++) |
| 604 | 165 { |
| 1792 | 166 glob_match pattern (patterns[i]); |
| 3013 | 167 |
| 1792 | 168 if (pattern.match (name)) |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
169 return true; |
| 604 | 170 } |
| 3688 | 171 |
| 3013 | 172 return false; |
| 604 | 173 } |
| 174 | |
| 4329 | 175 int |
| 3523 | 176 read_binary_file_header (std::istream& is, bool& swap, |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
177 oct_mach_info::float_format& flt_fmt, bool quiet) |
| 604 | 178 { |
| 3552 | 179 const int magic_len = 10; |
| 180 char magic[magic_len+1]; | |
| 5760 | 181 is.read (magic, magic_len); |
| 604 | 182 magic[magic_len] = '\0'; |
| 3688 | 183 |
| 604 | 184 if (strncmp (magic, "Octave-1-L", magic_len) == 0) |
| 2318 | 185 swap = oct_mach_info::words_big_endian (); |
| 604 | 186 else if (strncmp (magic, "Octave-1-B", magic_len) == 0) |
| 2318 | 187 swap = ! oct_mach_info::words_big_endian (); |
| 604 | 188 else |
| 189 { | |
| 190 if (! quiet) | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
191 error ("load: unable to read read binary file"); |
| 604 | 192 return -1; |
| 193 } | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11572
diff
changeset
|
194 |
| 604 | 195 char tmp = 0; |
| 5760 | 196 is.read (&tmp, 1); |
| 604 | 197 |
| 2318 | 198 flt_fmt = mopt_digit_to_float_format (tmp); |
| 199 | |
| 4574 | 200 if (flt_fmt == oct_mach_info::flt_fmt_unknown) |
| 604 | 201 { |
| 202 if (! quiet) | |
| 203 error ("load: unrecognized binary format!"); | |
| 3688 | 204 |
| 604 | 205 return -1; |
| 206 } | |
| 207 | |
| 208 return 0; | |
| 209 } | |
| 210 | |
| 5269 | 211 #ifdef HAVE_ZLIB |
| 212 static bool | |
| 213 check_gzip_magic (const std::string& fname) | |
| 214 { | |
| 215 bool retval = false; | |
| 216 std::ifstream file (fname.c_str ()); | |
| 217 OCTAVE_LOCAL_BUFFER (unsigned char, magic, 2); | |
| 218 | |
|
19898
17d647821d61
maint: More cleanup of C++ code to follow Octave coding conventions.
John W. Eaton <jwe@octave.org>
parents:
19851
diff
changeset
|
219 if (file.read (reinterpret_cast<char *> (magic), 2) && magic[0] == 0x1f |
|
17d647821d61
maint: More cleanup of C++ code to follow Octave coding conventions.
John W. Eaton <jwe@octave.org>
parents:
19851
diff
changeset
|
220 && magic[1] == 0x8b) |
| 5269 | 221 retval = true; |
| 222 | |
| 223 file.close (); | |
| 224 return retval; | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11572
diff
changeset
|
225 } |
| 5269 | 226 #endif |
| 227 | |
| 604 | 228 static load_save_format |
| 6625 | 229 get_file_format (std::istream& file, const std::string& filename) |
| 604 | 230 { |
| 231 load_save_format retval = LS_UNKNOWN; | |
| 232 | |
| 4574 | 233 oct_mach_info::float_format flt_fmt = oct_mach_info::flt_fmt_unknown; |
| 604 | 234 |
| 3019 | 235 bool swap = false; |
| 236 | |
| 237 if (read_binary_file_header (file, swap, flt_fmt, true) == 0) | |
| 604 | 238 retval = LS_BINARY; |
| 239 else | |
| 240 { | |
| 6202 | 241 file.clear (); |
| 3538 | 242 file.seekg (0, std::ios::beg); |
| 604 | 243 |
| 5828 | 244 int32_t mopt, nr, nc, imag, len; |
| 1180 | 245 |
|
16555
04fb96f4bea1
allow double-click in file browser to load data files
John W. Eaton <jwe@octave.org>
parents:
16442
diff
changeset
|
246 int err = read_mat_file_header (file, swap, mopt, nr, nc, imag, len, |
|
04fb96f4bea1
allow double-click in file browser to load data files
John W. Eaton <jwe@octave.org>
parents:
16442
diff
changeset
|
247 true); |
| 1180 | 248 |
| 249 if (! err) | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
250 retval = LS_MAT_BINARY; |
| 604 | 251 else |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
252 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
253 file.clear (); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
254 file.seekg (0, std::ios::beg); |
| 604 | 255 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
256 err = read_mat5_binary_file_header (file, swap, true, filename); |
| 3688 | 257 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
258 if (! err) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
259 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
260 file.clear (); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
261 file.seekg (0, std::ios::beg); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
262 retval = LS_MAT5_BINARY; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
263 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
264 else |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
265 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
266 file.clear (); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
267 file.seekg (0, std::ios::beg); |
| 3688 | 268 |
|
18887
9a70705dc616
Check for name and type keyword to return as an octave ascii data file (Bug #42586)
John Donoghue <john.donoghue@ieee.org>
parents:
18442
diff
changeset
|
269 std::string name_val = extract_keyword (file, "name"); |
|
9a70705dc616
Check for name and type keyword to return as an octave ascii data file (Bug #42586)
John Donoghue <john.donoghue@ieee.org>
parents:
18442
diff
changeset
|
270 std::string type_val = extract_keyword (file, "type"); |
| 4171 | 271 |
|
18887
9a70705dc616
Check for name and type keyword to return as an octave ascii data file (Bug #42586)
John Donoghue <john.donoghue@ieee.org>
parents:
18442
diff
changeset
|
272 if (name_val.empty () != true && type_val.empty () != true) |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
273 retval = LS_ASCII; |
|
17183
ca5103ab0b21
check_gzip_magic before get_file_format (wrong type detection, bug #39652)
Andreas Weber <andy.weber.aw@gmail.com>
parents:
17170
diff
changeset
|
274 else |
|
ca5103ab0b21
check_gzip_magic before get_file_format (wrong type detection, bug #39652)
Andreas Weber <andy.weber.aw@gmail.com>
parents:
17170
diff
changeset
|
275 { |
|
ca5103ab0b21
check_gzip_magic before get_file_format (wrong type detection, bug #39652)
Andreas Weber <andy.weber.aw@gmail.com>
parents:
17170
diff
changeset
|
276 file.clear (); |
|
ca5103ab0b21
check_gzip_magic before get_file_format (wrong type detection, bug #39652)
Andreas Weber <andy.weber.aw@gmail.com>
parents:
17170
diff
changeset
|
277 file.seekg (0, std::ios::beg); |
|
ca5103ab0b21
check_gzip_magic before get_file_format (wrong type detection, bug #39652)
Andreas Weber <andy.weber.aw@gmail.com>
parents:
17170
diff
changeset
|
278 |
|
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17755
diff
changeset
|
279 // FIXME: looks_like_mat_ascii_file does not check to see |
|
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17755
diff
changeset
|
280 // whether the file contains numbers. It just skips comments |
|
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17755
diff
changeset
|
281 // and checks for the same number of words on each line. We |
|
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17755
diff
changeset
|
282 // may need a better check here. The best way to do that |
|
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17755
diff
changeset
|
283 // might be just to try to read the file and see if it works. |
|
17183
ca5103ab0b21
check_gzip_magic before get_file_format (wrong type detection, bug #39652)
Andreas Weber <andy.weber.aw@gmail.com>
parents:
17170
diff
changeset
|
284 |
|
ca5103ab0b21
check_gzip_magic before get_file_format (wrong type detection, bug #39652)
Andreas Weber <andy.weber.aw@gmail.com>
parents:
17170
diff
changeset
|
285 if (looks_like_mat_ascii_file (file, filename)) |
|
ca5103ab0b21
check_gzip_magic before get_file_format (wrong type detection, bug #39652)
Andreas Weber <andy.weber.aw@gmail.com>
parents:
17170
diff
changeset
|
286 retval = LS_MAT_ASCII; |
|
ca5103ab0b21
check_gzip_magic before get_file_format (wrong type detection, bug #39652)
Andreas Weber <andy.weber.aw@gmail.com>
parents:
17170
diff
changeset
|
287 } |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
288 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
289 } |
| 604 | 290 } |
| 291 | |
| 5269 | 292 return retval; |
| 293 } | |
| 5977 | 294 |
| 5269 | 295 static load_save_format |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11572
diff
changeset
|
296 get_file_format (const std::string& fname, const std::string& orig_fname, |
|
16555
04fb96f4bea1
allow double-click in file browser to load data files
John W. Eaton <jwe@octave.org>
parents:
16442
diff
changeset
|
297 bool &use_zlib, bool quiet = false) |
| 5269 | 298 { |
| 299 load_save_format retval = LS_UNKNOWN; | |
| 300 | |
| 301 #ifdef HAVE_HDF5 | |
| 302 // check this before we open the file | |
| 303 if (H5Fis_hdf5 (fname.c_str ()) > 0) | |
| 304 return LS_HDF5; | |
| 305 #endif /* HAVE_HDF5 */ | |
| 604 | 306 |
|
17183
ca5103ab0b21
check_gzip_magic before get_file_format (wrong type detection, bug #39652)
Andreas Weber <andy.weber.aw@gmail.com>
parents:
17170
diff
changeset
|
307 #ifdef HAVE_ZLIB |
|
ca5103ab0b21
check_gzip_magic before get_file_format (wrong type detection, bug #39652)
Andreas Weber <andy.weber.aw@gmail.com>
parents:
17170
diff
changeset
|
308 use_zlib = check_gzip_magic (fname); |
|
ca5103ab0b21
check_gzip_magic before get_file_format (wrong type detection, bug #39652)
Andreas Weber <andy.weber.aw@gmail.com>
parents:
17170
diff
changeset
|
309 #else |
| 5269 | 310 use_zlib = false; |
| 5977 | 311 #endif |
| 5269 | 312 |
|
17183
ca5103ab0b21
check_gzip_magic before get_file_format (wrong type detection, bug #39652)
Andreas Weber <andy.weber.aw@gmail.com>
parents:
17170
diff
changeset
|
313 if (! use_zlib) |
|
ca5103ab0b21
check_gzip_magic before get_file_format (wrong type detection, bug #39652)
Andreas Weber <andy.weber.aw@gmail.com>
parents:
17170
diff
changeset
|
314 { |
|
ca5103ab0b21
check_gzip_magic before get_file_format (wrong type detection, bug #39652)
Andreas Weber <andy.weber.aw@gmail.com>
parents:
17170
diff
changeset
|
315 std::ifstream file (fname.c_str ()); |
|
ca5103ab0b21
check_gzip_magic before get_file_format (wrong type detection, bug #39652)
Andreas Weber <andy.weber.aw@gmail.com>
parents:
17170
diff
changeset
|
316 if (file) |
|
ca5103ab0b21
check_gzip_magic before get_file_format (wrong type detection, bug #39652)
Andreas Weber <andy.weber.aw@gmail.com>
parents:
17170
diff
changeset
|
317 { |
|
ca5103ab0b21
check_gzip_magic before get_file_format (wrong type detection, bug #39652)
Andreas Weber <andy.weber.aw@gmail.com>
parents:
17170
diff
changeset
|
318 retval = get_file_format (file, orig_fname); |
|
ca5103ab0b21
check_gzip_magic before get_file_format (wrong type detection, bug #39652)
Andreas Weber <andy.weber.aw@gmail.com>
parents:
17170
diff
changeset
|
319 file.close (); |
|
ca5103ab0b21
check_gzip_magic before get_file_format (wrong type detection, bug #39652)
Andreas Weber <andy.weber.aw@gmail.com>
parents:
17170
diff
changeset
|
320 } |
|
ca5103ab0b21
check_gzip_magic before get_file_format (wrong type detection, bug #39652)
Andreas Weber <andy.weber.aw@gmail.com>
parents:
17170
diff
changeset
|
321 else if (! quiet) |
|
ca5103ab0b21
check_gzip_magic before get_file_format (wrong type detection, bug #39652)
Andreas Weber <andy.weber.aw@gmail.com>
parents:
17170
diff
changeset
|
322 gripe_file_open ("load", orig_fname); |
| 5269 | 323 } |
|
17183
ca5103ab0b21
check_gzip_magic before get_file_format (wrong type detection, bug #39652)
Andreas Weber <andy.weber.aw@gmail.com>
parents:
17170
diff
changeset
|
324 #ifdef HAVE_ZLIB |
|
ca5103ab0b21
check_gzip_magic before get_file_format (wrong type detection, bug #39652)
Andreas Weber <andy.weber.aw@gmail.com>
parents:
17170
diff
changeset
|
325 else |
|
ca5103ab0b21
check_gzip_magic before get_file_format (wrong type detection, bug #39652)
Andreas Weber <andy.weber.aw@gmail.com>
parents:
17170
diff
changeset
|
326 { |
|
ca5103ab0b21
check_gzip_magic before get_file_format (wrong type detection, bug #39652)
Andreas Weber <andy.weber.aw@gmail.com>
parents:
17170
diff
changeset
|
327 gzifstream gzfile (fname.c_str ()); |
|
ca5103ab0b21
check_gzip_magic before get_file_format (wrong type detection, bug #39652)
Andreas Weber <andy.weber.aw@gmail.com>
parents:
17170
diff
changeset
|
328 if (gzfile) |
|
ca5103ab0b21
check_gzip_magic before get_file_format (wrong type detection, bug #39652)
Andreas Weber <andy.weber.aw@gmail.com>
parents:
17170
diff
changeset
|
329 { |
|
ca5103ab0b21
check_gzip_magic before get_file_format (wrong type detection, bug #39652)
Andreas Weber <andy.weber.aw@gmail.com>
parents:
17170
diff
changeset
|
330 retval = get_file_format (gzfile, orig_fname); |
|
ca5103ab0b21
check_gzip_magic before get_file_format (wrong type detection, bug #39652)
Andreas Weber <andy.weber.aw@gmail.com>
parents:
17170
diff
changeset
|
331 gzfile.close (); |
|
ca5103ab0b21
check_gzip_magic before get_file_format (wrong type detection, bug #39652)
Andreas Weber <andy.weber.aw@gmail.com>
parents:
17170
diff
changeset
|
332 } |
|
ca5103ab0b21
check_gzip_magic before get_file_format (wrong type detection, bug #39652)
Andreas Weber <andy.weber.aw@gmail.com>
parents:
17170
diff
changeset
|
333 else if (! quiet) |
|
ca5103ab0b21
check_gzip_magic before get_file_format (wrong type detection, bug #39652)
Andreas Weber <andy.weber.aw@gmail.com>
parents:
17170
diff
changeset
|
334 gripe_file_open ("load", orig_fname); |
|
ca5103ab0b21
check_gzip_magic before get_file_format (wrong type detection, bug #39652)
Andreas Weber <andy.weber.aw@gmail.com>
parents:
17170
diff
changeset
|
335 } |
|
ca5103ab0b21
check_gzip_magic before get_file_format (wrong type detection, bug #39652)
Andreas Weber <andy.weber.aw@gmail.com>
parents:
17170
diff
changeset
|
336 #endif |
| 604 | 337 |
| 338 return retval; | |
| 339 } | |
| 340 | |
| 4329 | 341 octave_value |
| 7336 | 342 do_load (std::istream& stream, const std::string& orig_fname, |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
343 load_save_format format, oct_mach_info::float_format flt_fmt, |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
344 bool list_only, bool swap, bool verbose, |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
345 const string_vector& argv, int argv_idx, int argc, int nargout) |
| 604 | 346 { |
| 3727 | 347 octave_value retval; |
| 348 | |
|
11059
4ffa19147604
replace Octave_map->octave_scalar_map in help.cc and load-save.cc
Jaroslav Hajek <highegg@gmail.com>
parents:
10846
diff
changeset
|
349 octave_scalar_map retstruct; |
| 604 | 350 |
| 5765 | 351 std::ostringstream output_buf; |
|
7779
791231dac333
Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents:
7767
diff
changeset
|
352 std::list<std::string> symbol_names; |
| 4051 | 353 |
| 5754 | 354 octave_idx_type count = 0; |
| 4051 | 355 |
| 604 | 356 for (;;) |
| 357 { | |
| 3019 | 358 bool global = false; |
| 2086 | 359 octave_value tc; |
| 604 | 360 |
| 4171 | 361 std::string name; |
| 362 std::string doc; | |
| 604 | 363 |
|
8425
2e777f5135a3
support -tabs option for save -ascii
Jaroslav Hajek <highegg@gmail.com>
parents:
8418
diff
changeset
|
364 switch (format.type) |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
365 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
366 case LS_ASCII: |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
367 name = read_ascii_data (stream, orig_fname, global, tc, count); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
368 break; |
| 604 | 369 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
370 case LS_BINARY: |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
371 name = read_binary_data (stream, swap, flt_fmt, orig_fname, |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
372 global, tc, doc); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
373 break; |
| 604 | 374 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
375 case LS_MAT_ASCII: |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
376 name = read_mat_ascii_data (stream, orig_fname, tc); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
377 break; |
| 2511 | 378 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
379 case LS_MAT_BINARY: |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
380 name = read_mat_binary_data (stream, orig_fname, tc); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
381 break; |
| 604 | 382 |
| 3687 | 383 #ifdef HAVE_HDF5 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
384 case LS_HDF5: |
|
17709
5415a9cd61d4
Implement faster partial loading of HDF5 files.
Rik <rik@octave.org>
parents:
17349
diff
changeset
|
385 name = read_hdf5_data (stream, orig_fname, global, tc, doc, |
|
5415a9cd61d4
Implement faster partial loading of HDF5 files.
Rik <rik@octave.org>
parents:
17349
diff
changeset
|
386 argv, argv_idx, argc); |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
387 break; |
| 3687 | 388 #endif /* HAVE_HDF5 */ |
| 389 | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
390 case LS_MAT5_BINARY: |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
391 case LS_MAT7_BINARY: |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
392 name = read_mat5_binary_element (stream, orig_fname, swap, |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
393 global, tc); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
394 break; |
| 3688 | 395 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
396 default: |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
397 gripe_unrecognized_data_fmt ("load"); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
398 break; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
399 } |
| 604 | 400 |
| 4171 | 401 if (error_state || stream.eof () || name.empty ()) |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
402 break; |
|
20478
610c74748518
maint: Clean up code based on static analysis suggestions.
Rik <rik@octave.org>
parents:
20424
diff
changeset
|
403 else |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
404 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
405 if (tc.is_defined ()) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
406 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
407 if (format == LS_MAT_ASCII && argv_idx < argc) |
|
15466
d174210ce1ec
use ' instead of ` in error messages, warnings and most comments
John W. Eaton <jwe@octave.org>
parents:
14268
diff
changeset
|
408 warning ("load: loaded ASCII file '%s' -- ignoring extra args", |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
409 orig_fname.c_str ()); |
| 3136 | 410 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
411 if (format == LS_MAT_ASCII |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
412 || argv_idx == argc |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
413 || matches_patterns (argv, argv_idx, argc, name)) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
414 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
415 count++; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
416 if (list_only) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
417 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
418 if (verbose) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
419 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
420 if (count == 1) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
421 output_buf |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
422 << "type rows cols name\n" |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
423 << "==== ==== ==== ====\n"; |
| 621 | 424 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
425 output_buf |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
426 << std::setiosflags (std::ios::left) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
427 << std::setw (16) << tc.type_name () . c_str () |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
428 << std::setiosflags (std::ios::right) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
429 << std::setw (7) << tc.rows () |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
430 << std::setw (7) << tc.columns () |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
431 << " " << name << "\n"; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
432 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
433 else |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
434 symbol_names.push_back (name); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
435 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
436 else |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
437 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
438 if (nargout == 1) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
439 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
440 if (format == LS_MAT_ASCII) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
441 retval = tc; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
442 else |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
443 retstruct.assign (name, tc); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
444 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
445 else |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
446 install_loaded_variable (name, tc, global, doc); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
447 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
448 } |
| 2511 | 449 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
450 // Only attempt to read one item from a headless text file. |
| 2511 | 451 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
452 if (format == LS_MAT_ASCII) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
453 break; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
454 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
455 else |
|
15466
d174210ce1ec
use ' instead of ` in error messages, warnings and most comments
John W. Eaton <jwe@octave.org>
parents:
14268
diff
changeset
|
456 error ("load: unable to load variable '%s'", name.c_str ()); |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
457 } |
| 604 | 458 } |
| 459 | |
| 621 | 460 if (list_only && count) |
| 461 { | |
|
7779
791231dac333
Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents:
7767
diff
changeset
|
462 if (verbose) |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
463 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
464 std::string msg = output_buf.str (); |
| 2095 | 465 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
466 if (nargout > 0) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
467 retval = msg; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
468 else |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
469 octave_stdout << msg; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
470 } |
| 621 | 471 else |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
472 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
473 if (nargout > 0) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
474 retval = Cell (string_vector (symbol_names)); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
475 else |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
476 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
477 string_vector names (symbol_names); |
|
7779
791231dac333
Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents:
7767
diff
changeset
|
478 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
479 names.list_in_columns (octave_stdout); |
|
7779
791231dac333
Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents:
7767
diff
changeset
|
480 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
481 octave_stdout << "\n"; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
482 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
483 } |
| 621 | 484 } |
| 6639 | 485 else if (retstruct.nfields () != 0) |
| 3727 | 486 retval = retstruct; |
| 621 | 487 |
| 863 | 488 return retval; |
| 489 } | |
| 490 | |
| 6159 | 491 std::string |
| 492 find_file_to_load (const std::string& name, const std::string& orig_name) | |
| 493 { | |
|
19064
9ef10e6a5987
make "file found in path" warnings consistent
John W. Eaton <jwe@octave.org>
parents:
18983
diff
changeset
|
494 std::string fname = find_data_file_in_load_path ("load", name, true); |
| 6159 | 495 |
| 6838 | 496 size_t dot_pos = fname.rfind ("."); |
|
8007
a2ab20ba78f7
make file_ops a proper singleton class
John W. Eaton <jwe@octave.org>
parents:
7819
diff
changeset
|
497 size_t sep_pos = fname.find_last_of (file_ops::dir_sep_chars ()); |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11572
diff
changeset
|
498 |
| 8021 | 499 if (dot_pos == std::string::npos |
| 500 || (sep_pos != std::string::npos && dot_pos < sep_pos)) | |
| 6159 | 501 { |
| 6838 | 502 // Either no '.' in name or no '.' appears after last directory |
| 503 // separator. | |
| 504 | |
| 6159 | 505 file_stat fs (fname); |
| 506 | |
| 6584 | 507 if (! (fs.exists () && fs.is_reg ())) |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
508 fname = find_file_to_load (fname + ".mat", orig_name); |
| 6159 | 509 } |
| 510 else | |
| 511 { | |
| 512 file_stat fs (fname); | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11572
diff
changeset
|
513 |
| 6584 | 514 if (! (fs.exists () && fs.is_reg ())) |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
515 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
516 fname = ""; |
| 6159 | 517 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
518 error ("load: unable to find file %s", orig_name.c_str ()); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
519 } |
| 6159 | 520 } |
| 521 | |
| 522 return fname; | |
| 523 } | |
| 524 | |
|
16555
04fb96f4bea1
allow double-click in file browser to load data files
John W. Eaton <jwe@octave.org>
parents:
16442
diff
changeset
|
525 bool |
|
04fb96f4bea1
allow double-click in file browser to load data files
John W. Eaton <jwe@octave.org>
parents:
16442
diff
changeset
|
526 is_octave_data_file (const std::string& fname) |
|
04fb96f4bea1
allow double-click in file browser to load data files
John W. Eaton <jwe@octave.org>
parents:
16442
diff
changeset
|
527 { |
|
04fb96f4bea1
allow double-click in file browser to load data files
John W. Eaton <jwe@octave.org>
parents:
16442
diff
changeset
|
528 bool use_zlib = false; |
|
04fb96f4bea1
allow double-click in file browser to load data files
John W. Eaton <jwe@octave.org>
parents:
16442
diff
changeset
|
529 return get_file_format (fname, fname, use_zlib, true) != LS_UNKNOWN; |
|
04fb96f4bea1
allow double-click in file browser to load data files
John W. Eaton <jwe@octave.org>
parents:
16442
diff
changeset
|
530 } |
| 6159 | 531 |
|
8746
5dd06f19e9be
handle commands in the lexer
John W. Eaton <jwe@octave.org>
parents:
8676
diff
changeset
|
532 DEFUN (load, args, nargout, |
|
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17755
diff
changeset
|
533 "-*- texinfo -*-\n\ |
|
11572
7d6d8c1e471f
Grammarcheck Texinfo for files in src directory.
Rik <octave@nomad.inbox5.com>
parents:
11547
diff
changeset
|
534 @deftypefn {Command} {} load file\n\ |
| 11547 | 535 @deftypefnx {Command} {} load options file\n\ |
| 536 @deftypefnx {Command} {} load options file v1 v2 @dots{}\n\ | |
|
12216
becaa4b96728
load-save.cc (Fload): fix texinfo markup
John W. Eaton <jwe@octave.org>
parents:
12160
diff
changeset
|
537 @deftypefnx {Command} {S =} load (\"options\", \"file\", \"v1\", \"v2\", @dots{})\n\ |
|
12895
8edece28cf4d
Allow Matlab-style syntax for load command (Bug #33527).
Rik <octave@nomad.inbox5.com>
parents:
12661
diff
changeset
|
538 @deftypefnx {Command} {} load file options\n\ |
|
8edece28cf4d
Allow Matlab-style syntax for load command (Bug #33527).
Rik <octave@nomad.inbox5.com>
parents:
12661
diff
changeset
|
539 @deftypefnx {Command} {} load file options v1 v2 @dots{}\n\ |
|
8edece28cf4d
Allow Matlab-style syntax for load command (Bug #33527).
Rik <octave@nomad.inbox5.com>
parents:
12661
diff
changeset
|
540 @deftypefnx {Command} {S =} load (\"file\", \"options\", \"v1\", \"v2\", @dots{})\n\ |
| 7247 | 541 Load the named variables @var{v1}, @var{v2}, @dots{}, from the file\n\ |
|
20207
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19898
diff
changeset
|
542 @var{file}.\n\ |
|
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19898
diff
changeset
|
543 \n\ |
|
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19898
diff
changeset
|
544 If no variables are specified then all variables found in the\n\ |
|
9306
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
545 file will be loaded. As with @code{save}, the list of variables to extract\n\ |
|
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
546 can be full names or use a pattern syntax. The format of the file is\n\ |
|
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
547 automatically detected but may be overridden by supplying the appropriate\n\ |
|
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
548 option.\n\ |
| 863 | 549 \n\ |
| 5665 | 550 If load is invoked using the functional form\n\ |
| 551 \n\ | |
| 552 @example\n\ | |
| 7247 | 553 load (\"-option1\", @dots{}, \"file\", \"v1\", @dots{})\n\ |
| 5665 | 554 @end example\n\ |
| 555 \n\ | |
| 556 @noindent\n\ | |
| 557 then the @var{options}, @var{file}, and variable name arguments\n\ | |
| 558 (@var{v1}, @dots{}) must be specified as character strings.\n\ | |
| 559 \n\ | |
| 3372 | 560 If a variable that is not marked as global is loaded from a file when a\n\ |
| 561 global symbol with the same name already exists, it is loaded in the\n\ | |
| 562 global symbol table. Also, if a variable is marked as global in a file\n\ | |
| 563 and a local symbol exists, the local symbol is moved to the global\n\ | |
|
9306
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
564 symbol table and given the value from the file.\n\ |
| 863 | 565 \n\ |
| 3727 | 566 If invoked with a single output argument, Octave returns data instead\n\ |
| 567 of inserting variables in the symbol table. If the data file contains\n\ | |
| 568 only numbers (TAB- or space-delimited columns), a matrix of values is\n\ | |
| 569 returned. Otherwise, @code{load} returns a structure with members\n\ | |
| 570 corresponding to the names of the variables in the file.\n\ | |
| 571 \n\ | |
| 3372 | 572 The @code{load} command can read data stored in Octave's text and\n\ |
|
9064
7c02ec148a3c
Check grammar on all .cc files
Rik <rdrider0-list@yahoo.com>
parents:
9039
diff
changeset
|
573 binary formats, and @sc{matlab}'s binary format. If compiled with zlib\n\ |
|
9306
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
574 support, it can also load gzip-compressed files. It will automatically\n\ |
| 3372 | 575 detect the type of file and do conversion from different floating point\n\ |
| 576 formats (currently only IEEE big and little endian, though other formats\n\ | |
|
9306
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
577 may be added in the future).\n\ |
| 3372 | 578 \n\ |
| 579 Valid options for @code{load} are listed in the following table.\n\ | |
| 863 | 580 \n\ |
| 3372 | 581 @table @code\n\ |
| 582 @item -force\n\ | |
|
9306
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
583 This option is accepted for backward compatibility but is ignored.\n\ |
|
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
584 Octave now overwrites variables currently in memory with\n\ |
|
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
585 those of the same name found in the file.\n\ |
| 3372 | 586 \n\ |
| 587 @item -ascii\n\ | |
| 5938 | 588 Force Octave to assume the file contains columns of numbers in text format\n\ |
| 589 without any header or other information. Data in the file will be loaded\n\ | |
| 590 as a single numeric matrix with the name of the variable derived from the\n\ | |
| 591 name of the file.\n\ | |
| 5197 | 592 \n\ |
| 3372 | 593 @item -binary\n\ |
| 594 Force Octave to assume the file is in Octave's binary format.\n\ | |
| 595 \n\ | |
| 3687 | 596 @item -hdf5\n\ |
| 10840 | 597 Force Octave to assume the file is in @sc{hdf5} format.\n\ |
|
12160
b64b82721062
Make documentation static by removing docstrings depending on #ifdef variables
Rik <octave@nomad.inbox5.com>
parents:
11586
diff
changeset
|
598 (@sc{hdf5} is a free, portable binary format developed by the National\n\ |
| 3687 | 599 Center for Supercomputing Applications at the University of Illinois.)\n\ |
| 10840 | 600 Note that Octave can read @sc{hdf5} files not created by itself, but may\n\ |
|
12160
b64b82721062
Make documentation static by removing docstrings depending on #ifdef variables
Rik <octave@nomad.inbox5.com>
parents:
11586
diff
changeset
|
601 skip some datasets in formats that it cannot support. This format is\n\ |
|
b64b82721062
Make documentation static by removing docstrings depending on #ifdef variables
Rik <octave@nomad.inbox5.com>
parents:
11586
diff
changeset
|
602 only available if Octave was built with a link to the @sc{hdf5} libraries.\n\ |
|
b64b82721062
Make documentation static by removing docstrings depending on #ifdef variables
Rik <octave@nomad.inbox5.com>
parents:
11586
diff
changeset
|
603 \n\ |
| 3687 | 604 @item -import\n\ |
|
9306
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
605 This option is accepted for backward compatibility but is ignored.\n\ |
| 4884 | 606 Octave can now support multi-dimensional HDF data and automatically\n\ |
| 607 modifies variable names if they are invalid Octave identifiers.\n\ | |
| 3687 | 608 \n\ |
|
17170
d6499c14021c
doc: Periodic grammarcheck of documentation.
Rik <rik@octave.org>
parents:
16892
diff
changeset
|
609 @item -mat\n\ |
|
9306
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
610 @itemx -mat-binary\n\ |
|
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
611 @itemx -6\n\ |
|
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
612 @itemx -v6\n\ |
|
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
613 @itemx -7\n\ |
|
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
614 @itemx -v7\n\ |
|
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
615 Force Octave to assume the file is in @sc{matlab}'s version 6 or 7 binary\n\ |
|
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
616 format.\n\ |
|
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
617 \n\ |
|
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
618 @item -mat4-binary\n\ |
|
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
619 @itemx -4\n\ |
|
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
620 @itemx -v4\n\ |
|
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
621 @itemx -V4\n\ |
|
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
622 Force Octave to assume the file is in the binary format written by\n\ |
|
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
623 @sc{matlab} version 4.\n\ |
|
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
624 \n\ |
| 5198 | 625 @item -text\n\ |
| 5197 | 626 Force Octave to assume the file is in Octave's text format.\n\ |
| 3372 | 627 @end table\n\ |
|
9306
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
628 @seealso{save, dlmwrite, csvwrite, fwrite}\n\ |
| 11547 | 629 @end deftypefn") |
| 863 | 630 { |
| 2086 | 631 octave_value_list retval; |
| 863 | 632 |
| 1755 | 633 int argc = args.length () + 1; |
| 634 | |
| 1968 | 635 string_vector argv = args.make_argv ("load"); |
| 1755 | 636 |
| 637 if (error_state) | |
| 638 return retval; | |
| 863 | 639 |
|
12895
8edece28cf4d
Allow Matlab-style syntax for load command (Bug #33527).
Rik <octave@nomad.inbox5.com>
parents:
12661
diff
changeset
|
640 int i = 1; |
|
8edece28cf4d
Allow Matlab-style syntax for load command (Bug #33527).
Rik <octave@nomad.inbox5.com>
parents:
12661
diff
changeset
|
641 std::string orig_fname = ""; |
|
8edece28cf4d
Allow Matlab-style syntax for load command (Bug #33527).
Rik <octave@nomad.inbox5.com>
parents:
12661
diff
changeset
|
642 |
|
8edece28cf4d
Allow Matlab-style syntax for load command (Bug #33527).
Rik <octave@nomad.inbox5.com>
parents:
12661
diff
changeset
|
643 // Function called with Matlab-style ["filename", options] syntax |
|
14861
f7afecdd87ef
maint: Use Octave coding conventions for cuddling parentheses in src/ directory
Rik <octave@nomad.inbox5.com>
parents:
14366
diff
changeset
|
644 if (argc > 1 && ! argv[1].empty () && argv[1].at (0) != '-') |
|
12895
8edece28cf4d
Allow Matlab-style syntax for load command (Bug #33527).
Rik <octave@nomad.inbox5.com>
parents:
12661
diff
changeset
|
645 { |
|
8edece28cf4d
Allow Matlab-style syntax for load command (Bug #33527).
Rik <octave@nomad.inbox5.com>
parents:
12661
diff
changeset
|
646 orig_fname = argv[1]; |
|
8edece28cf4d
Allow Matlab-style syntax for load command (Bug #33527).
Rik <octave@nomad.inbox5.com>
parents:
12661
diff
changeset
|
647 i++; |
|
8edece28cf4d
Allow Matlab-style syntax for load command (Bug #33527).
Rik <octave@nomad.inbox5.com>
parents:
12661
diff
changeset
|
648 } |
|
8edece28cf4d
Allow Matlab-style syntax for load command (Bug #33527).
Rik <octave@nomad.inbox5.com>
parents:
12661
diff
changeset
|
649 |
| 1358 | 650 // It isn't necessary to have the default load format stored in a |
| 651 // user preference variable since we can determine the type of file | |
| 652 // as we are reading. | |
| 863 | 653 |
| 654 load_save_format format = LS_UNKNOWN; | |
| 655 | |
| 3019 | 656 bool list_only = false; |
| 657 bool verbose = false; | |
| 863 | 658 |
|
13026
9a2a6054460f
maint: Fix 2 compiler warnings
Rik <octave@nomad.inbox5.com>
parents:
12895
diff
changeset
|
659 //for (i; i < argc; i++) |
|
9a2a6054460f
maint: Fix 2 compiler warnings
Rik <octave@nomad.inbox5.com>
parents:
12895
diff
changeset
|
660 for (; i < argc; i++) |
| 863 | 661 { |
| 1755 | 662 if (argv[i] == "-force" || argv[i] == "-f") |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
663 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
664 // Silently ignore this |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
665 // warning ("load: -force ignored"); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
666 } |
| 1755 | 667 else if (argv[i] == "-list" || argv[i] == "-l") |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
668 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
669 list_only = true; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
670 } |
| 1755 | 671 else if (argv[i] == "-verbose" || argv[i] == "-v") |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
672 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
673 verbose = true; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
674 } |
| 1755 | 675 else if (argv[i] == "-ascii" || argv[i] == "-a") |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
676 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
677 format = LS_MAT_ASCII; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
678 } |
| 1755 | 679 else if (argv[i] == "-binary" || argv[i] == "-b") |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
680 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
681 format = LS_BINARY; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
682 } |
| 5269 | 683 else if (argv[i] == "-mat-binary" || argv[i] == "-mat" || argv[i] == "-m" |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
684 || argv[i] == "-6" || argv[i] == "-v6") |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
685 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
686 format = LS_MAT5_BINARY; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
687 } |
|
7819
b7e8ea6a5143
trivial fix option in Fload
Jaroslav Hajek <highegg@gmail.com>
parents:
7779
diff
changeset
|
688 else if (argv[i] == "-7" || argv[i] == "-v7") |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
689 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
690 format = LS_MAT7_BINARY; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
691 } |
| 5256 | 692 else if (argv[i] == "-mat4-binary" || argv[i] == "-V4" |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
693 || argv[i] == "-v4" || argv[i] == "-4") |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
694 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
695 format = LS_MAT_BINARY; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
696 } |
| 3687 | 697 else if (argv[i] == "-hdf5" || argv[i] == "-h") |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
698 { |
| 3687 | 699 #ifdef HAVE_HDF5 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
700 format = LS_HDF5; |
| 3687 | 701 #else /* ! HAVE_HDF5 */ |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
702 error ("load: octave executable was not linked with HDF5 library"); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
703 return retval; |
| 3687 | 704 #endif /* ! HAVE_HDF5 */ |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
705 } |
| 3687 | 706 else if (argv[i] == "-import" || argv[i] == "-i") |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
707 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
708 warning ("load: -import ignored"); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
709 } |
| 5197 | 710 else if (argv[i] == "-text" || argv[i] == "-t") |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
711 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
712 format = LS_ASCII; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
713 } |
| 863 | 714 else |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
715 break; |
| 863 | 716 } |
| 717 | |
|
12895
8edece28cf4d
Allow Matlab-style syntax for load command (Bug #33527).
Rik <octave@nomad.inbox5.com>
parents:
12661
diff
changeset
|
718 if (orig_fname == "") |
| 863 | 719 { |
|
12895
8edece28cf4d
Allow Matlab-style syntax for load command (Bug #33527).
Rik <octave@nomad.inbox5.com>
parents:
12661
diff
changeset
|
720 if (i == argc) |
|
8edece28cf4d
Allow Matlab-style syntax for load command (Bug #33527).
Rik <octave@nomad.inbox5.com>
parents:
12661
diff
changeset
|
721 { |
|
8edece28cf4d
Allow Matlab-style syntax for load command (Bug #33527).
Rik <octave@nomad.inbox5.com>
parents:
12661
diff
changeset
|
722 print_usage (); |
|
8edece28cf4d
Allow Matlab-style syntax for load command (Bug #33527).
Rik <octave@nomad.inbox5.com>
parents:
12661
diff
changeset
|
723 return retval; |
|
8edece28cf4d
Allow Matlab-style syntax for load command (Bug #33527).
Rik <octave@nomad.inbox5.com>
parents:
12661
diff
changeset
|
724 } |
|
8edece28cf4d
Allow Matlab-style syntax for load command (Bug #33527).
Rik <octave@nomad.inbox5.com>
parents:
12661
diff
changeset
|
725 else |
|
8edece28cf4d
Allow Matlab-style syntax for load command (Bug #33527).
Rik <octave@nomad.inbox5.com>
parents:
12661
diff
changeset
|
726 orig_fname = argv[i]; |
| 863 | 727 } |
|
12895
8edece28cf4d
Allow Matlab-style syntax for load command (Bug #33527).
Rik <octave@nomad.inbox5.com>
parents:
12661
diff
changeset
|
728 else |
|
8edece28cf4d
Allow Matlab-style syntax for load command (Bug #33527).
Rik <octave@nomad.inbox5.com>
parents:
12661
diff
changeset
|
729 i--; |
| 863 | 730 |
| 4574 | 731 oct_mach_info::float_format flt_fmt = oct_mach_info::flt_fmt_unknown; |
| 863 | 732 |
| 3019 | 733 bool swap = false; |
| 863 | 734 |
|
12895
8edece28cf4d
Allow Matlab-style syntax for load command (Bug #33527).
Rik <octave@nomad.inbox5.com>
parents:
12661
diff
changeset
|
735 if (orig_fname == "-") |
| 863 | 736 { |
| 1755 | 737 i++; |
| 863 | 738 |
| 3687 | 739 #ifdef HAVE_HDF5 |
| 740 if (format == LS_HDF5) | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
741 error ("load: cannot read HDF5 format from stdin"); |
| 3687 | 742 else |
| 743 #endif /* HAVE_HDF5 */ | |
| 863 | 744 if (format != LS_UNKNOWN) |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
745 { |
|
17861
870f3e12e163
maint: Use phrase "FIXME:" for problem areas in code.
Rik <rik@octave.org>
parents:
17787
diff
changeset
|
746 // FIXME: if we have already seen EOF on a previous call, |
|
870f3e12e163
maint: Use phrase "FIXME:" for problem areas in code.
Rik <rik@octave.org>
parents:
17787
diff
changeset
|
747 // how do we fix up the state of std::cin so that we can get |
|
870f3e12e163
maint: Use phrase "FIXME:" for problem areas in code.
Rik <rik@octave.org>
parents:
17787
diff
changeset
|
748 // additional input? I'm afraid that we can't fix this |
|
870f3e12e163
maint: Use phrase "FIXME:" for problem areas in code.
Rik <rik@octave.org>
parents:
17787
diff
changeset
|
749 // using std::cin only. |
| 3531 | 750 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
751 retval = do_load (std::cin, orig_fname, format, flt_fmt, |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
752 list_only, swap, verbose, argv, i, argc, |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
753 nargout); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
754 } |
| 863 | 755 else |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
756 error ("load: must specify file format if reading from stdin"); |
| 863 | 757 } |
| 758 else | |
| 759 { | |
|
12895
8edece28cf4d
Allow Matlab-style syntax for load command (Bug #33527).
Rik <octave@nomad.inbox5.com>
parents:
12661
diff
changeset
|
760 std::string fname = file_ops::tilde_expand (orig_fname); |
| 6159 | 761 |
| 762 fname = find_file_to_load (fname, orig_fname); | |
| 863 | 763 |
| 6159 | 764 if (error_state) |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
765 return retval; |
| 6159 | 766 |
| 767 bool use_zlib = false; | |
| 5089 | 768 |
| 863 | 769 if (format == LS_UNKNOWN) |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
770 format = get_file_format (fname, orig_fname, use_zlib); |
| 863 | 771 |
| 3687 | 772 #ifdef HAVE_HDF5 |
| 773 if (format == LS_HDF5) | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
774 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
775 i++; |
| 3687 | 776 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
777 hdf5_ifstream hdf5_file (fname.c_str ()); |
| 3687 | 778 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
779 if (hdf5_file.file_id >= 0) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
780 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
781 retval = do_load (hdf5_file, orig_fname, format, |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
782 flt_fmt, list_only, swap, verbose, |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
783 argv, i, argc, nargout); |
| 4844 | 784 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
785 hdf5_file.close (); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
786 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
787 else |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
788 gripe_file_open ("load", orig_fname); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
789 } |
| 3687 | 790 else |
| 791 #endif /* HAVE_HDF5 */ | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
792 // don't insert any statements here; the "else" above has to |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
793 // go with the "if" below!!!!! |
| 863 | 794 if (format != LS_UNKNOWN) |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
795 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
796 i++; |
| 863 | 797 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
798 // Always open in binary mode and handle various |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
799 // line-endings explicitly. |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
800 std::ios::openmode mode = std::ios::in | std::ios::binary; |
| 863 | 801 |
| 5269 | 802 #ifdef HAVE_ZLIB |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
803 if (use_zlib) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
804 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
805 gzifstream file (fname.c_str (), mode); |
| 863 | 806 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
807 if (file) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
808 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
809 if (format == LS_BINARY) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
810 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
811 if (read_binary_file_header (file, swap, flt_fmt) < 0) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
812 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
813 if (file) file.close (); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
814 return retval; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
815 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
816 } |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11572
diff
changeset
|
817 else if (format == LS_MAT5_BINARY |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
818 || format == LS_MAT7_BINARY) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
819 { |
|
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17755
diff
changeset
|
820 if (read_mat5_binary_file_header (file, swap, false, |
|
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17755
diff
changeset
|
821 orig_fname) < 0) |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
822 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
823 if (file) file.close (); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
824 return retval; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
825 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
826 } |
| 5269 | 827 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
828 retval = do_load (file, orig_fname, format, |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
829 flt_fmt, list_only, swap, verbose, |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
830 argv, i, argc, nargout); |
| 5269 | 831 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
832 file.close (); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
833 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
834 else |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
835 gripe_file_open ("load", orig_fname); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
836 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
837 else |
| 5269 | 838 #endif |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
839 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
840 std::ifstream file (fname.c_str (), mode); |
| 5269 | 841 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
842 if (file) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
843 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
844 if (format == LS_BINARY) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
845 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
846 if (read_binary_file_header (file, swap, flt_fmt) < 0) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
847 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
848 if (file) file.close (); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
849 return retval; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
850 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
851 } |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11572
diff
changeset
|
852 else if (format == LS_MAT5_BINARY |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
853 || format == LS_MAT7_BINARY) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
854 { |
|
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17755
diff
changeset
|
855 if (read_mat5_binary_file_header (file, swap, false, |
|
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17755
diff
changeset
|
856 orig_fname) < 0) |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
857 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
858 if (file) file.close (); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
859 return retval; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
860 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
861 } |
| 5269 | 862 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
863 retval = do_load (file, orig_fname, format, |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
864 flt_fmt, list_only, swap, verbose, |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
865 argv, i, argc, nargout); |
| 5269 | 866 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
867 file.close (); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
868 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
869 else |
|
15466
d174210ce1ec
use ' instead of ` in error messages, warnings and most comments
John W. Eaton <jwe@octave.org>
parents:
14268
diff
changeset
|
870 error ("load: unable to open input file '%s'", |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
871 orig_fname.c_str ()); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
872 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
873 } |
|
19421
616f2b22787b
Issue error if load file format cannot be determined (bug #43575).
Rik <rik@octave.org>
parents:
18887
diff
changeset
|
874 else |
|
616f2b22787b
Issue error if load file format cannot be determined (bug #43575).
Rik <rik@octave.org>
parents:
18887
diff
changeset
|
875 { |
|
616f2b22787b
Issue error if load file format cannot be determined (bug #43575).
Rik <rik@octave.org>
parents:
18887
diff
changeset
|
876 error ("load: unable to determine file format of '%s'", |
|
616f2b22787b
Issue error if load file format cannot be determined (bug #43575).
Rik <rik@octave.org>
parents:
18887
diff
changeset
|
877 orig_fname.c_str ()); |
|
616f2b22787b
Issue error if load file format cannot be determined (bug #43575).
Rik <rik@octave.org>
parents:
18887
diff
changeset
|
878 } |
| 863 | 879 } |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11572
diff
changeset
|
880 |
| 604 | 881 return retval; |
| 882 } | |
| 883 | |
| 3019 | 884 // Return TRUE if PATTERN has any special globbing chars in it. |
| 885 | |
| 886 static bool | |
| 3523 | 887 glob_pattern_p (const std::string& pattern) |
| 604 | 888 { |
| 889 int open = 0; | |
| 890 | |
| 1755 | 891 int len = pattern.length (); |
| 892 | |
| 893 for (int i = 0; i < len; i++) | |
| 604 | 894 { |
| 1755 | 895 char c = pattern[i]; |
| 896 | |
| 604 | 897 switch (c) |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
898 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
899 case '?': |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
900 case '*': |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
901 return true; |
| 604 | 902 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
903 case '[': // Only accept an open brace if there is a close |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
904 open++; // brace to match it. Bracket expressions must be |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
905 continue; // complete, according to Posix.2 |
| 604 | 906 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
907 case ']': |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
908 if (open) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
909 return true; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
910 continue; |
| 4402 | 911 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
912 case '\\': |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
913 if (i == len - 1) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
914 return false; |
| 604 | 915 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
916 default: |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
917 continue; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
918 } |
| 604 | 919 } |
| 920 | |
| 3019 | 921 return false; |
| 604 | 922 } |
| 923 | |
| 4791 | 924 static void |
| 925 do_save (std::ostream& os, const octave_value& tc, | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
926 const std::string& name, const std::string& help, |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
927 bool global, load_save_format fmt, bool save_as_floats) |
| 604 | 928 { |
|
8425
2e777f5135a3
support -tabs option for save -ascii
Jaroslav Hajek <highegg@gmail.com>
parents:
8418
diff
changeset
|
929 switch (fmt.type) |
| 604 | 930 { |
| 931 case LS_ASCII: | |
| 6974 | 932 save_ascii_data (os, tc, name, global, 0); |
| 604 | 933 break; |
| 934 | |
| 935 case LS_BINARY: | |
| 630 | 936 save_binary_data (os, tc, name, help, global, save_as_floats); |
| 604 | 937 break; |
| 938 | |
| 5938 | 939 case LS_MAT_ASCII: |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11572
diff
changeset
|
940 if (! save_mat_ascii_data (os, tc, fmt.opts & LS_MAT_ASCII_LONG ? 16 : 8, |
|
8425
2e777f5135a3
support -tabs option for save -ascii
Jaroslav Hajek <highegg@gmail.com>
parents:
8418
diff
changeset
|
941 fmt.opts & LS_MAT_ASCII_TABS)) |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
942 warning ("save: unable to save %s in ASCII format", name.c_str ()); |
| 5938 | 943 break; |
| 944 | |
| 667 | 945 case LS_MAT_BINARY: |
| 946 save_mat_binary_data (os, tc, name); | |
| 947 break; | |
| 948 | |
| 3687 | 949 #ifdef HAVE_HDF5 |
| 950 case LS_HDF5: | |
| 951 save_hdf5_data (os, tc, name, help, global, save_as_floats); | |
| 952 break; | |
| 953 #endif /* HAVE_HDF5 */ | |
| 954 | |
| 3688 | 955 case LS_MAT5_BINARY: |
| 5269 | 956 save_mat5_binary_element (os, tc, name, global, false, save_as_floats); |
| 957 break; | |
| 958 | |
| 959 case LS_MAT7_BINARY: | |
| 960 save_mat5_binary_element (os, tc, name, global, true, save_as_floats); | |
| 3688 | 961 break; |
| 962 | |
| 604 | 963 default: |
| 775 | 964 gripe_unrecognized_data_fmt ("save"); |
| 604 | 965 break; |
| 966 } | |
| 967 } | |
| 968 | |
| 4791 | 969 // Save the info from SR on stream OS in the format specified by FMT. |
| 970 | |
| 971 void | |
| 7336 | 972 do_save (std::ostream& os, const symbol_table::symbol_record& sr, |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
973 load_save_format fmt, bool save_as_floats) |
| 4791 | 974 { |
| 7336 | 975 octave_value val = sr.varval (); |
| 4791 | 976 |
| 7336 | 977 if (val.is_defined ()) |
| 4791 | 978 { |
| 7336 | 979 std::string name = sr.name (); |
| 980 std::string help; | |
| 981 bool global = sr.is_global (); | |
| 4791 | 982 |
| 7336 | 983 do_save (os, val, name, help, global, fmt, save_as_floats); |
| 4791 | 984 } |
| 985 } | |
| 986 | |
|
7635
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
987 // save fields of a scalar structure STR matching PATTERN on stream OS |
|
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
988 // in the format specified by FMT. |
|
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
989 |
|
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
990 static size_t |
|
11059
4ffa19147604
replace Octave_map->octave_scalar_map in help.cc and load-save.cc
Jaroslav Hajek <highegg@gmail.com>
parents:
10846
diff
changeset
|
991 save_fields (std::ostream& os, const octave_scalar_map& m, |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
992 const std::string& pattern, |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
993 load_save_format fmt, bool save_as_floats) |
|
7635
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
994 { |
|
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
995 glob_match pat (pattern); |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11572
diff
changeset
|
996 |
|
7635
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
997 size_t saved = 0; |
|
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
998 |
|
11059
4ffa19147604
replace Octave_map->octave_scalar_map in help.cc and load-save.cc
Jaroslav Hajek <highegg@gmail.com>
parents:
10846
diff
changeset
|
999 for (octave_scalar_map::const_iterator p = m.begin (); p != m.end (); p++) |
|
7635
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1000 { |
|
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1001 std::string empty_str; |
|
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1002 |
|
14861
f7afecdd87ef
maint: Use Octave coding conventions for cuddling parentheses in src/ directory
Rik <octave@nomad.inbox5.com>
parents:
14366
diff
changeset
|
1003 if (pat.match (m.key (p))) |
|
7635
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1004 { |
|
11059
4ffa19147604
replace Octave_map->octave_scalar_map in help.cc and load-save.cc
Jaroslav Hajek <highegg@gmail.com>
parents:
10846
diff
changeset
|
1005 do_save (os, m.contents (p), m.key (p), empty_str, |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1006 0, fmt, save_as_floats); |
|
7635
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1007 |
|
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1008 saved++; |
|
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1009 } |
|
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1010 } |
|
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1011 |
|
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1012 return saved; |
|
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1013 } |
|
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1014 |
| 604 | 1015 // Save variables with names matching PATTERN on stream OS in the |
| 5794 | 1016 // format specified by FMT. |
| 604 | 1017 |
| 7336 | 1018 static size_t |
| 5794 | 1019 save_vars (std::ostream& os, const std::string& pattern, |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1020 load_save_format fmt, bool save_as_floats) |
| 604 | 1021 { |
| 7336 | 1022 std::list<symbol_table::symbol_record> vars = symbol_table::glob (pattern); |
| 1023 | |
| 1024 size_t saved = 0; | |
| 3355 | 1025 |
|
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17755
diff
changeset
|
1026 typedef std::list<symbol_table::symbol_record>::const_iterator |
|
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17755
diff
changeset
|
1027 const_vars_iterator; |
| 3355 | 1028 |
| 7336 | 1029 for (const_vars_iterator p = vars.begin (); p != vars.end (); p++) |
| 620 | 1030 { |
| 7336 | 1031 do_save (os, *p, fmt, save_as_floats); |
| 620 | 1032 |
| 1033 if (error_state) | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1034 break; |
| 7336 | 1035 |
| 1036 saved++; | |
| 620 | 1037 } |
| 604 | 1038 |
| 1039 return saved; | |
| 1040 } | |
| 1041 | |
|
8034
f61bd8e0d682
fix default_save_options parsing and allow mixing options with other arguments.
Jaroslav Hajek <highegg@gmail.com>
parents:
8021
diff
changeset
|
1042 static string_vector |
|
f61bd8e0d682
fix default_save_options parsing and allow mixing options with other arguments.
Jaroslav Hajek <highegg@gmail.com>
parents:
8021
diff
changeset
|
1043 parse_save_options (const string_vector &argv, |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1044 load_save_format &format, bool &append, |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1045 bool &save_as_floats, bool &use_zlib) |
| 604 | 1046 { |
|
8034
f61bd8e0d682
fix default_save_options parsing and allow mixing options with other arguments.
Jaroslav Hajek <highegg@gmail.com>
parents:
8021
diff
changeset
|
1047 string_vector retval; |
|
20267
a9574e3c6e9e
Deprecate Array::length() and Sparse::length() in favour of ::numel().
Carnë Draug <carandraug@octave.org>
parents:
20207
diff
changeset
|
1048 int argc = argv.numel (); |
|
8034
f61bd8e0d682
fix default_save_options parsing and allow mixing options with other arguments.
Jaroslav Hajek <highegg@gmail.com>
parents:
8021
diff
changeset
|
1049 |
|
18099
6a71e5030df5
Follow coding convention of defining and initializing only 1 variable per line in liboctinterp.
Rik <rik@octave.org>
parents:
17861
diff
changeset
|
1050 bool do_double = false; |
|
6a71e5030df5
Follow coding convention of defining and initializing only 1 variable per line in liboctinterp.
Rik <rik@octave.org>
parents:
17861
diff
changeset
|
1051 bool do_tabs = false; |
|
8418
679c22082ac7
handle -double option for save
John W. Eaton <jwe@octave.org>
parents:
8377
diff
changeset
|
1052 |
|
8034
f61bd8e0d682
fix default_save_options parsing and allow mixing options with other arguments.
Jaroslav Hajek <highegg@gmail.com>
parents:
8021
diff
changeset
|
1053 for (int i = 0; i < argc; i++) |
| 5284 | 1054 { |
| 1055 if (argv[i] == "-append") | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1056 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1057 append = true; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1058 } |
| 5284 | 1059 else if (argv[i] == "-ascii" || argv[i] == "-a") |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1060 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1061 format = LS_MAT_ASCII; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1062 } |
|
8418
679c22082ac7
handle -double option for save
John W. Eaton <jwe@octave.org>
parents:
8377
diff
changeset
|
1063 else if (argv[i] == "-double") |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1064 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1065 do_double = true; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1066 } |
|
8425
2e777f5135a3
support -tabs option for save -ascii
Jaroslav Hajek <highegg@gmail.com>
parents:
8418
diff
changeset
|
1067 else if (argv[i] == "-tabs") |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1068 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1069 do_tabs = true; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1070 } |
| 5284 | 1071 else if (argv[i] == "-text" || argv[i] == "-t") |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1072 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1073 format = LS_ASCII; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1074 } |
| 5284 | 1075 else if (argv[i] == "-binary" || argv[i] == "-b") |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1076 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1077 format = LS_BINARY; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1078 } |
| 5284 | 1079 else if (argv[i] == "-hdf5" || argv[i] == "-h") |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1080 { |
| 3687 | 1081 #ifdef HAVE_HDF5 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1082 format = LS_HDF5; |
| 5284 | 1083 #else /* ! HAVE_HDF5 */ |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1084 error ("save: octave executable was not linked with HDF5 library"); |
| 5284 | 1085 #endif /* ! HAVE_HDF5 */ |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1086 } |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11572
diff
changeset
|
1087 else if (argv[i] == "-mat-binary" || argv[i] == "-mat" |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1088 || argv[i] == "-m" || argv[i] == "-6" || argv[i] == "-v6" |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1089 || argv[i] == "-V6") |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1090 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1091 format = LS_MAT5_BINARY; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1092 } |
| 5284 | 1093 #ifdef HAVE_ZLIB |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11572
diff
changeset
|
1094 else if (argv[i] == "-mat7-binary" || argv[i] == "-7" |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1095 || argv[i] == "-v7" || argv[i] == "-V7") |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1096 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1097 format = LS_MAT7_BINARY; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1098 } |
| 5284 | 1099 #endif |
| 1100 else if (argv[i] == "-mat4-binary" || argv[i] == "-V4" | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1101 || argv[i] == "-v4" || argv[i] == "-4") |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1102 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1103 format = LS_MAT_BINARY; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1104 } |
| 5284 | 1105 else if (argv[i] == "-float-binary" || argv[i] == "-f") |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1106 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1107 format = LS_BINARY; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1108 save_as_floats = true; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1109 } |
| 5284 | 1110 else if (argv[i] == "-float-hdf5") |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1111 { |
| 5284 | 1112 #ifdef HAVE_HDF5 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1113 format = LS_HDF5; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1114 save_as_floats = true; |
| 5284 | 1115 #else /* ! HAVE_HDF5 */ |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1116 error ("save: octave executable was not linked with HDF5 library"); |
| 5284 | 1117 #endif /* ! HAVE_HDF5 */ |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1118 } |
| 5284 | 1119 #ifdef HAVE_ZLIB |
| 1120 else if (argv[i] == "-zip" || argv[i] == "-z") | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1121 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1122 use_zlib = true; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1123 } |
| 5284 | 1124 #endif |
|
15571
7b9551c65b7b
Don't report '-struct' as an unrecognized option to save().
Rik <rik@octave.org>
parents:
15567
diff
changeset
|
1125 else if (argv[i] == "-struct") |
|
7b9551c65b7b
Don't report '-struct' as an unrecognized option to save().
Rik <rik@octave.org>
parents:
15567
diff
changeset
|
1126 { |
|
7b9551c65b7b
Don't report '-struct' as an unrecognized option to save().
Rik <rik@octave.org>
parents:
15567
diff
changeset
|
1127 retval.append (argv[i]); |
|
7b9551c65b7b
Don't report '-struct' as an unrecognized option to save().
Rik <rik@octave.org>
parents:
15567
diff
changeset
|
1128 } |
|
18442
5c0b8f2da650
Allow save() to write to the terminal with the filename '-' (bug #41505)
Mike Miller <mtmiller@ieee.org>
parents:
17861
diff
changeset
|
1129 else if (argv[i][0] == '-' && argv[i] != "-") |
|
15567
e05eafe7105a
Print an error message if save() called with unrecognized option (bug #37502)
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
1130 { |
|
e05eafe7105a
Print an error message if save() called with unrecognized option (bug #37502)
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
1131 error ("save: Unrecognized option '%s'", argv[i].c_str ()); |
|
e05eafe7105a
Print an error message if save() called with unrecognized option (bug #37502)
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
1132 } |
| 5284 | 1133 else |
|
8034
f61bd8e0d682
fix default_save_options parsing and allow mixing options with other arguments.
Jaroslav Hajek <highegg@gmail.com>
parents:
8021
diff
changeset
|
1134 retval.append (argv[i]); |
| 5284 | 1135 } |
| 1136 | |
|
8418
679c22082ac7
handle -double option for save
John W. Eaton <jwe@octave.org>
parents:
8377
diff
changeset
|
1137 if (do_double) |
|
679c22082ac7
handle -double option for save
John W. Eaton <jwe@octave.org>
parents:
8377
diff
changeset
|
1138 { |
|
679c22082ac7
handle -double option for save
John W. Eaton <jwe@octave.org>
parents:
8377
diff
changeset
|
1139 if (format == LS_MAT_ASCII) |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1140 format.opts |= LS_MAT_ASCII_LONG; |
|
8418
679c22082ac7
handle -double option for save
John W. Eaton <jwe@octave.org>
parents:
8377
diff
changeset
|
1141 else |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1142 warning ("save: \"-double\" option only has an effect with \"-ascii\""); |
|
8418
679c22082ac7
handle -double option for save
John W. Eaton <jwe@octave.org>
parents:
8377
diff
changeset
|
1143 } |
|
679c22082ac7
handle -double option for save
John W. Eaton <jwe@octave.org>
parents:
8377
diff
changeset
|
1144 |
|
8425
2e777f5135a3
support -tabs option for save -ascii
Jaroslav Hajek <highegg@gmail.com>
parents:
8418
diff
changeset
|
1145 if (do_tabs) |
|
2e777f5135a3
support -tabs option for save -ascii
Jaroslav Hajek <highegg@gmail.com>
parents:
8418
diff
changeset
|
1146 { |
|
2e777f5135a3
support -tabs option for save -ascii
Jaroslav Hajek <highegg@gmail.com>
parents:
8418
diff
changeset
|
1147 if (format == LS_MAT_ASCII) |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1148 format.opts |= LS_MAT_ASCII_TABS; |
|
8425
2e777f5135a3
support -tabs option for save -ascii
Jaroslav Hajek <highegg@gmail.com>
parents:
8418
diff
changeset
|
1149 else |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1150 warning ("save: \"-tabs\" option only has an effect with \"-ascii\""); |
|
8425
2e777f5135a3
support -tabs option for save -ascii
Jaroslav Hajek <highegg@gmail.com>
parents:
8418
diff
changeset
|
1151 } |
|
2e777f5135a3
support -tabs option for save -ascii
Jaroslav Hajek <highegg@gmail.com>
parents:
8418
diff
changeset
|
1152 |
|
8034
f61bd8e0d682
fix default_save_options parsing and allow mixing options with other arguments.
Jaroslav Hajek <highegg@gmail.com>
parents:
8021
diff
changeset
|
1153 return retval; |
| 5284 | 1154 } |
| 1155 | |
|
8034
f61bd8e0d682
fix default_save_options parsing and allow mixing options with other arguments.
Jaroslav Hajek <highegg@gmail.com>
parents:
8021
diff
changeset
|
1156 static string_vector |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11572
diff
changeset
|
1157 parse_save_options (const std::string &arg, load_save_format &format, |
|
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11572
diff
changeset
|
1158 bool &append, bool &save_as_floats, |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1159 bool &use_zlib) |
| 5284 | 1160 { |
| 5765 | 1161 std::istringstream is (arg); |
| 5284 | 1162 std::string str; |
| 1163 string_vector argv; | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11572
diff
changeset
|
1164 |
| 5765 | 1165 while (! is.eof ()) |
| 5284 | 1166 { |
| 1167 is >> str; | |
| 1168 argv.append (str); | |
| 1169 } | |
| 1170 | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11572
diff
changeset
|
1171 return parse_save_options (argv, format, append, save_as_floats, |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1172 use_zlib); |
| 604 | 1173 } |
| 1174 | |
| 4329 | 1175 void |
| 3523 | 1176 write_header (std::ostream& os, load_save_format format) |
| 863 | 1177 { |
|
8425
2e777f5135a3
support -tabs option for save -ascii
Jaroslav Hajek <highegg@gmail.com>
parents:
8418
diff
changeset
|
1178 switch (format.type) |
| 863 | 1179 { |
| 3185 | 1180 case LS_BINARY: |
| 1181 { | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1182 os << (oct_mach_info::words_big_endian () |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1183 ? "Octave-1-B" : "Octave-1-L"); |
| 3185 | 1184 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1185 oct_mach_info::float_format flt_fmt = |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1186 oct_mach_info::native_float_format (); |
| 3185 | 1187 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1188 char tmp = static_cast<char> (float_format_to_mopt_digit (flt_fmt)); |
| 3185 | 1189 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1190 os.write (&tmp, 1); |
| 3185 | 1191 } |
| 3688 | 1192 break; |
| 1193 | |
| 1194 case LS_MAT5_BINARY: | |
| 5269 | 1195 case LS_MAT7_BINARY: |
| 3688 | 1196 { |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1197 char const * versionmagic; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1198 int16_t number = *(reinterpret_cast<const int16_t *>("\x00\x01")); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1199 char headertext[128]; |
|
20424
6bc09e953927
Use octave_gmtime to write timestamp to mat-file format
Mike Miller <mtmiller@octave.org>
parents:
20299
diff
changeset
|
1200 octave_gmtime now; |
| 3688 | 1201 |
|
20424
6bc09e953927
Use octave_gmtime to write timestamp to mat-file format
Mike Miller <mtmiller@octave.org>
parents:
20299
diff
changeset
|
1202 // ISO 8601 format date |
|
6bc09e953927
Use octave_gmtime to write timestamp to mat-file format
Mike Miller <mtmiller@octave.org>
parents:
20299
diff
changeset
|
1203 const char *matlab_format = "MATLAB 5.0 MAT-file, written by Octave " |
|
6bc09e953927
Use octave_gmtime to write timestamp to mat-file format
Mike Miller <mtmiller@octave.org>
parents:
20299
diff
changeset
|
1204 OCTAVE_VERSION ", %Y-%m-%d %T UTC"; |
|
6bc09e953927
Use octave_gmtime to write timestamp to mat-file format
Mike Miller <mtmiller@octave.org>
parents:
20299
diff
changeset
|
1205 std::string comment_string = now.strftime (matlab_format); |
|
6bc09e953927
Use octave_gmtime to write timestamp to mat-file format
Mike Miller <mtmiller@octave.org>
parents:
20299
diff
changeset
|
1206 |
|
6bc09e953927
Use octave_gmtime to write timestamp to mat-file format
Mike Miller <mtmiller@octave.org>
parents:
20299
diff
changeset
|
1207 size_t len = std::min (comment_string.length (), static_cast<size_t> (124)); |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1208 memset (headertext, ' ', 124); |
|
20424
6bc09e953927
Use octave_gmtime to write timestamp to mat-file format
Mike Miller <mtmiller@octave.org>
parents:
20299
diff
changeset
|
1209 memcpy (headertext, comment_string.data (), len); |
| 3688 | 1210 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1211 // The first pair of bytes give the version of the MAT file |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1212 // format. The second pair of bytes form a magic number which |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1213 // signals a MAT file. MAT file data are always written in |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1214 // native byte order. The order of the bytes in the second |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1215 // pair indicates whether the file was written by a big- or |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1216 // little-endian machine. However, the version number is |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1217 // written in the *opposite* byte order from everything else! |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1218 if (number == 1) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1219 versionmagic = "\x01\x00\x4d\x49"; // this machine is big endian |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1220 else |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1221 versionmagic = "\x00\x01\x49\x4d"; // this machine is little endian |
| 3688 | 1222 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1223 memcpy (headertext+124, versionmagic, 4); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1224 os.write (headertext, 128); |
| 3688 | 1225 } |
| 1226 | |
| 1227 break; | |
| 3185 | 1228 |
| 3687 | 1229 #ifdef HAVE_HDF5 |
| 1230 case LS_HDF5: | |
| 1231 #endif /* HAVE_HDF5 */ | |
| 3185 | 1232 case LS_ASCII: |
| 1233 { | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1234 octave_localtime now; |
| 3709 | 1235 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1236 std::string comment_string = now.strftime (Vsave_header_format_string); |
| 3709 | 1237 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1238 if (! comment_string.empty ()) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1239 { |
| 3687 | 1240 #ifdef HAVE_HDF5 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1241 if (format == LS_HDF5) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1242 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1243 hdf5_ofstream& hs = dynamic_cast<hdf5_ofstream&> (os); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1244 H5Gset_comment (hs.file_id, "/", comment_string.c_str ()); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1245 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1246 else |
| 3687 | 1247 #endif /* HAVE_HDF5 */ |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1248 os << comment_string << "\n"; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1249 } |
| 3185 | 1250 } |
|
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17755
diff
changeset
|
1251 break; |
| 3185 | 1252 |
| 1253 default: | |
| 1254 break; | |
| 863 | 1255 } |
| 1256 } | |
| 1257 | |
|
17755
9c03b071fd7b
avoid HDF5 error message at exit (bug #37713)
John W. Eaton <jwe@octave.org>
parents:
17744
diff
changeset
|
1258 void |
|
9c03b071fd7b
avoid HDF5 error message at exit (bug #37713)
John W. Eaton <jwe@octave.org>
parents:
17744
diff
changeset
|
1259 octave_prepare_hdf5 (void) |
|
9c03b071fd7b
avoid HDF5 error message at exit (bug #37713)
John W. Eaton <jwe@octave.org>
parents:
17744
diff
changeset
|
1260 { |
|
9c03b071fd7b
avoid HDF5 error message at exit (bug #37713)
John W. Eaton <jwe@octave.org>
parents:
17744
diff
changeset
|
1261 #ifdef HAVE_HDF5 |
|
9c03b071fd7b
avoid HDF5 error message at exit (bug #37713)
John W. Eaton <jwe@octave.org>
parents:
17744
diff
changeset
|
1262 H5dont_atexit (); |
|
9c03b071fd7b
avoid HDF5 error message at exit (bug #37713)
John W. Eaton <jwe@octave.org>
parents:
17744
diff
changeset
|
1263 #endif |
|
9c03b071fd7b
avoid HDF5 error message at exit (bug #37713)
John W. Eaton <jwe@octave.org>
parents:
17744
diff
changeset
|
1264 } |
|
9c03b071fd7b
avoid HDF5 error message at exit (bug #37713)
John W. Eaton <jwe@octave.org>
parents:
17744
diff
changeset
|
1265 |
|
9c03b071fd7b
avoid HDF5 error message at exit (bug #37713)
John W. Eaton <jwe@octave.org>
parents:
17744
diff
changeset
|
1266 void |
|
9c03b071fd7b
avoid HDF5 error message at exit (bug #37713)
John W. Eaton <jwe@octave.org>
parents:
17744
diff
changeset
|
1267 octave_finalize_hdf5 (void) |
|
9c03b071fd7b
avoid HDF5 error message at exit (bug #37713)
John W. Eaton <jwe@octave.org>
parents:
17744
diff
changeset
|
1268 { |
|
9c03b071fd7b
avoid HDF5 error message at exit (bug #37713)
John W. Eaton <jwe@octave.org>
parents:
17744
diff
changeset
|
1269 #ifdef HAVE_HDF5 |
|
9c03b071fd7b
avoid HDF5 error message at exit (bug #37713)
John W. Eaton <jwe@octave.org>
parents:
17744
diff
changeset
|
1270 H5close (); |
|
9c03b071fd7b
avoid HDF5 error message at exit (bug #37713)
John W. Eaton <jwe@octave.org>
parents:
17744
diff
changeset
|
1271 #endif |
|
9c03b071fd7b
avoid HDF5 error message at exit (bug #37713)
John W. Eaton <jwe@octave.org>
parents:
17744
diff
changeset
|
1272 } |
|
9c03b071fd7b
avoid HDF5 error message at exit (bug #37713)
John W. Eaton <jwe@octave.org>
parents:
17744
diff
changeset
|
1273 |
| 863 | 1274 static void |
| 3769 | 1275 save_vars (const string_vector& argv, int argv_idx, int argc, |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1276 std::ostream& os, load_save_format fmt, |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1277 bool save_as_floats, bool write_header_info) |
| 863 | 1278 { |
| 3185 | 1279 if (write_header_info) |
| 1280 write_header (os, fmt); | |
| 863 | 1281 |
| 1755 | 1282 if (argv_idx == argc) |
| 863 | 1283 { |
| 5794 | 1284 save_vars (os, "*", fmt, save_as_floats); |
| 863 | 1285 } |
|
7635
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1286 else if (argv[argv_idx] == "-struct") |
|
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1287 { |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11572
diff
changeset
|
1288 if (++argv_idx >= argc) |
|
7635
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1289 { |
|
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1290 error ("save: missing struct name"); |
|
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1291 return; |
|
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1292 } |
|
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1293 |
|
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1294 std::string struct_name = argv[argv_idx]; |
|
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1295 |
|
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1296 if (! symbol_table::is_variable (struct_name)) |
|
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1297 { |
|
15466
d174210ce1ec
use ' instead of ` in error messages, warnings and most comments
John W. Eaton <jwe@octave.org>
parents:
14268
diff
changeset
|
1298 error ("save: no such variable: '%s'", struct_name.c_str ()); |
|
7635
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1299 return; |
|
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1300 } |
|
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1301 |
|
16442
302157614308
deprecate symbol_table::varref functions
John W. Eaton <jwe@octave.org>
parents:
15571
diff
changeset
|
1302 octave_value struct_var = symbol_table::varval (struct_name); |
|
7635
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1303 |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11572
diff
changeset
|
1304 if (! struct_var.is_map () || struct_var.numel () != 1) |
|
7635
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1305 { |
|
15466
d174210ce1ec
use ' instead of ` in error messages, warnings and most comments
John W. Eaton <jwe@octave.org>
parents:
14268
diff
changeset
|
1306 error ("save: '%s' is not a scalar structure", |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1307 struct_name.c_str ()); |
|
7635
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1308 return; |
|
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1309 } |
|
11059
4ffa19147604
replace Octave_map->octave_scalar_map in help.cc and load-save.cc
Jaroslav Hajek <highegg@gmail.com>
parents:
10846
diff
changeset
|
1310 octave_scalar_map struct_var_map = struct_var.scalar_map_value (); |
|
7635
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1311 |
|
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1312 ++argv_idx; |
|
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1313 |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11572
diff
changeset
|
1314 if (argv_idx < argc) |
|
7635
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1315 { |
|
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1316 for (int i = argv_idx; i < argc; i++) |
|
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1317 { |
|
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1318 if (! save_fields (os, struct_var_map, argv[i], fmt, |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1319 save_as_floats)) |
|
7635
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1320 { |
|
15466
d174210ce1ec
use ' instead of ` in error messages, warnings and most comments
John W. Eaton <jwe@octave.org>
parents:
14268
diff
changeset
|
1321 warning ("save: no such field '%s.%s'", |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1322 struct_name.c_str (), argv[i].c_str ()); |
|
7635
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1323 } |
|
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1324 } |
|
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1325 } |
|
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1326 else |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1327 save_fields (os, struct_var_map, "*", fmt, save_as_floats); |
|
7635
ba7a3e20ee3d
add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents:
7336
diff
changeset
|
1328 } |
| 863 | 1329 else |
| 1330 { | |
| 1755 | 1331 for (int i = argv_idx; i < argc; i++) |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1332 { |
|
17349
cb27dbf9e4ba
Don't warn about saving empty variable names for Matlab compatibility (bug #34259)
Rik <rik@octave.org>
parents:
17281
diff
changeset
|
1333 if (argv[i] == "") |
|
cb27dbf9e4ba
Don't warn about saving empty variable names for Matlab compatibility (bug #34259)
Rik <rik@octave.org>
parents:
17281
diff
changeset
|
1334 continue; // Skip empty vars for Matlab compatibility |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1335 if (! save_vars (os, argv[i], fmt, save_as_floats)) |
|
15466
d174210ce1ec
use ' instead of ` in error messages, warnings and most comments
John W. Eaton <jwe@octave.org>
parents:
14268
diff
changeset
|
1336 warning ("save: no such variable '%s'", argv[i].c_str ()); |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1337 } |
| 863 | 1338 } |
| 1339 } | |
| 1340 | |
| 5284 | 1341 static void |
| 1342 dump_octave_core (std::ostream& os, const char *fname, load_save_format fmt, | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1343 bool save_as_floats) |
| 4791 | 1344 { |
| 1345 write_header (os, fmt); | |
| 1346 | |
|
7767
71f068b22fcc
scope and context fixes for function handles
John W. Eaton <jwe@octave.org>
parents:
7752
diff
changeset
|
1347 std::list<symbol_table::symbol_record> vars |
|
71f068b22fcc
scope and context fixes for function handles
John W. Eaton <jwe@octave.org>
parents:
7752
diff
changeset
|
1348 = symbol_table::all_variables (symbol_table::top_scope (), 0); |
| 4791 | 1349 |
| 1350 double save_mem_size = 0; | |
| 1351 | |
|
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17755
diff
changeset
|
1352 typedef std::list<symbol_table::symbol_record>::const_iterator |
|
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17755
diff
changeset
|
1353 const_vars_iterator; |
| 7336 | 1354 |
| 1355 for (const_vars_iterator p = vars.begin (); p != vars.end (); p++) | |
| 4791 | 1356 { |
| 7336 | 1357 octave_value val = p->varval (); |
| 4791 | 1358 |
| 7336 | 1359 if (val.is_defined ()) |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1360 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1361 std::string name = p->name (); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1362 std::string help; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1363 bool global = p->is_global (); |
| 4791 | 1364 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1365 double val_size = val.byte_size () / 1024; |
| 4791 | 1366 |
|
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17755
diff
changeset
|
1367 // FIXME: maybe we should try to throw out the largest first... |
| 4791 | 1368 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1369 if (Voctave_core_file_limit < 0 |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1370 || save_mem_size + val_size < Voctave_core_file_limit) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1371 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1372 save_mem_size += val_size; |
| 4791 | 1373 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1374 do_save (os, val, name, help, global, fmt, save_as_floats); |
| 7336 | 1375 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1376 if (error_state) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1377 break; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1378 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1379 } |
| 4791 | 1380 } |
| 1381 | |
|
15466
d174210ce1ec
use ' instead of ` in error messages, warnings and most comments
John W. Eaton <jwe@octave.org>
parents:
14268
diff
changeset
|
1382 message (0, "save to '%s' complete", fname); |
| 4791 | 1383 } |
| 1384 | |
| 1385 void | |
| 1386 dump_octave_core (void) | |
| 1380 | 1387 { |
| 3189 | 1388 if (Vcrash_dumps_octave_core) |
| 1380 | 1389 { |
|
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17755
diff
changeset
|
1390 // FIXME: should choose better file name? |
| 3189 | 1391 |
| 4791 | 1392 const char *fname = Voctave_core_file_name.c_str (); |
| 3189 | 1393 |
|
15466
d174210ce1ec
use ' instead of ` in error messages, warnings and most comments
John W. Eaton <jwe@octave.org>
parents:
14268
diff
changeset
|
1394 message (0, "attempting to save variables to '%s'...", fname); |
| 3189 | 1395 |
| 5284 | 1396 load_save_format format = LS_BINARY; |
| 1397 | |
| 1398 bool save_as_floats = false; | |
| 1399 | |
| 1400 bool append = false; | |
| 3189 | 1401 |
| 5284 | 1402 bool use_zlib = false; |
| 1403 | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11572
diff
changeset
|
1404 parse_save_options (Voctave_core_file_options, format, append, |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1405 save_as_floats, use_zlib); |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11572
diff
changeset
|
1406 |
| 5284 | 1407 std::ios::openmode mode = std::ios::out; |
| 4791 | 1408 |
| 6625 | 1409 // Matlab v7 files are always compressed |
| 1410 if (format == LS_MAT7_BINARY) | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1411 use_zlib = false; |
| 6625 | 1412 |
| 4791 | 1413 if (format == LS_BINARY |
| 1414 #ifdef HAVE_HDF5 | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1415 || format == LS_HDF5 |
| 4791 | 1416 #endif |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1417 || format == LS_MAT_BINARY |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1418 || format == LS_MAT5_BINARY |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1419 || format == LS_MAT7_BINARY) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1420 mode |= std::ios::binary; |
| 3189 | 1421 |
| 5284 | 1422 mode |= append ? std::ios::ate : std::ios::trunc; |
| 1423 | |
| 3687 | 1424 #ifdef HAVE_HDF5 |
| 1425 if (format == LS_HDF5) | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1426 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1427 hdf5_ofstream file (fname, mode); |
| 3687 | 1428 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1429 if (file.file_id >= 0) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1430 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1431 dump_octave_core (file, fname, format, save_as_floats); |
| 3687 | 1432 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1433 file.close (); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1434 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1435 else |
|
15466
d174210ce1ec
use ' instead of ` in error messages, warnings and most comments
John W. Eaton <jwe@octave.org>
parents:
14268
diff
changeset
|
1436 warning ("unable to open '%s' for writing...", fname); |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1437 } |
| 3189 | 1438 else |
| 3687 | 1439 #endif /* HAVE_HDF5 */ |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1440 // don't insert any commands here! The open brace below must |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1441 // go with the else above! |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1442 { |
| 5284 | 1443 #ifdef HAVE_ZLIB |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1444 if (use_zlib) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1445 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1446 gzofstream file (fname, mode); |
| 4791 | 1447 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1448 if (file) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1449 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1450 dump_octave_core (file, fname, format, save_as_floats); |
| 5284 | 1451 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1452 file.close (); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1453 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1454 else |
|
15466
d174210ce1ec
use ' instead of ` in error messages, warnings and most comments
John W. Eaton <jwe@octave.org>
parents:
14268
diff
changeset
|
1455 warning ("unable to open '%s' for writing...", fname); |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1456 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1457 else |
| 5284 | 1458 #endif |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1459 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1460 std::ofstream file (fname, mode); |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11572
diff
changeset
|
1461 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1462 if (file) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1463 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1464 dump_octave_core (file, fname, format, save_as_floats); |
| 5284 | 1465 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1466 file.close (); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1467 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1468 else |
|
15466
d174210ce1ec
use ' instead of ` in error messages, warnings and most comments
John W. Eaton <jwe@octave.org>
parents:
14268
diff
changeset
|
1469 warning ("unable to open '%s' for writing...", fname); |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1470 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1471 } |
| 1380 | 1472 } |
| 1473 } | |
| 1474 | |
|
19851
bafcfc5b99af
if save file name is "-" and nargout is 0, write to stdout
John W. Eaton <jwe@octave.org>
parents:
19731
diff
changeset
|
1475 DEFUN (save, args, nargout, |
|
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17755
diff
changeset
|
1476 "-*- texinfo -*-\n\ |
|
11572
7d6d8c1e471f
Grammarcheck Texinfo for files in src directory.
Rik <octave@nomad.inbox5.com>
parents:
11547
diff
changeset
|
1477 @deftypefn {Command} {} save file\n\ |
| 11547 | 1478 @deftypefnx {Command} {} save options file\n\ |
| 1479 @deftypefnx {Command} {} save options file @var{v1} @var{v2} @dots{}\n\ | |
| 1480 @deftypefnx {Command} {} save options file -struct @var{STRUCT} @var{f1} @var{f2} @dots{}\n\ | |
|
19851
bafcfc5b99af
if save file name is "-" and nargout is 0, write to stdout
John W. Eaton <jwe@octave.org>
parents:
19731
diff
changeset
|
1481 @deftypefnx {Command} {} save @code{\"-\"} @var{v1} @var{v2} @dots{}\n\ |
|
bafcfc5b99af
if save file name is "-" and nargout is 0, write to stdout
John W. Eaton <jwe@octave.org>
parents:
19731
diff
changeset
|
1482 @deftypefnx {Built-in Function} {@var{s} =} save (@code{\"-\"} @var{v1} @var{v2} @dots{})\n\ |
| 7247 | 1483 Save the named variables @var{v1}, @var{v2}, @dots{}, in the file\n\ |
|
20207
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19898
diff
changeset
|
1484 @var{file}.\n\ |
|
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19898
diff
changeset
|
1485 \n\ |
|
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19898
diff
changeset
|
1486 The special filename @samp{-} may be used to return the\n\ |
|
19186
0f9c5a15c8fa
doc: Periodic grammarcheck of documentation.
Rik <rik@octave.org>
parents:
19064
diff
changeset
|
1487 content of the variables as a string. If no variable names are listed,\n\ |
|
0f9c5a15c8fa
doc: Periodic grammarcheck of documentation.
Rik <rik@octave.org>
parents:
19064
diff
changeset
|
1488 Octave saves all the variables in the current scope. Otherwise, full\n\ |
|
0f9c5a15c8fa
doc: Periodic grammarcheck of documentation.
Rik <rik@octave.org>
parents:
19064
diff
changeset
|
1489 variable names or pattern syntax can be used to specify the variables to\n\ |
|
0f9c5a15c8fa
doc: Periodic grammarcheck of documentation.
Rik <rik@octave.org>
parents:
19064
diff
changeset
|
1490 save. If the @option{-struct} modifier is used, fields @var{f1} @var{f2}\n\ |
|
0f9c5a15c8fa
doc: Periodic grammarcheck of documentation.
Rik <rik@octave.org>
parents:
19064
diff
changeset
|
1491 @dots{} of the scalar structure @var{STRUCT} are saved as if they were\n\ |
|
0f9c5a15c8fa
doc: Periodic grammarcheck of documentation.
Rik <rik@octave.org>
parents:
19064
diff
changeset
|
1492 variables with corresponding names. Valid options for the @code{save}\n\ |
|
0f9c5a15c8fa
doc: Periodic grammarcheck of documentation.
Rik <rik@octave.org>
parents:
19064
diff
changeset
|
1493 command are listed in the following table. Options that modify the output\n\ |
|
0f9c5a15c8fa
doc: Periodic grammarcheck of documentation.
Rik <rik@octave.org>
parents:
19064
diff
changeset
|
1494 format override the format specified by @code{save_default_options}.\n\ |
| 3372 | 1495 \n\ |
| 5665 | 1496 If save is invoked using the functional form\n\ |
| 1497 \n\ | |
| 1498 @example\n\ | |
| 7247 | 1499 save (\"-option1\", @dots{}, \"file\", \"v1\", @dots{})\n\ |
| 5665 | 1500 @end example\n\ |
| 1501 \n\ | |
| 1502 @noindent\n\ | |
| 1503 then the @var{options}, @var{file}, and variable name arguments\n\ | |
| 7247 | 1504 (@var{v1}, @dots{}) must be specified as character strings.\n\ |
| 5665 | 1505 \n\ |
|
19851
bafcfc5b99af
if save file name is "-" and nargout is 0, write to stdout
John W. Eaton <jwe@octave.org>
parents:
19731
diff
changeset
|
1506 If called with a filename of @qcode{\"-\"}, write the output to stdout\n\ |
|
bafcfc5b99af
if save file name is "-" and nargout is 0, write to stdout
John W. Eaton <jwe@octave.org>
parents:
19731
diff
changeset
|
1507 if nargout is 0, otherwise return the output in a character string.\n\ |
|
bafcfc5b99af
if save file name is "-" and nargout is 0, write to stdout
John W. Eaton <jwe@octave.org>
parents:
19731
diff
changeset
|
1508 \n\ |
| 3372 | 1509 @table @code\n\ |
|
12661
9f91ca870f91
load-save.cc: Document -append option
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
12642
diff
changeset
|
1510 @item -append\n\ |
|
9f91ca870f91
load-save.cc: Document -append option
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
12642
diff
changeset
|
1511 Append to the destination instead of overwriting.\n\ |
|
13929
9cae456085c2
Grammarcheck of documentation before 3.6.0 release.
Rik <octave@nomad.inbox5.com>
parents:
13026
diff
changeset
|
1512 \n\ |
| 3372 | 1513 @item -ascii\n\ |
|
9306
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
1514 Save a single matrix in a text file without header or any other information.\n\ |
| 5197 | 1515 \n\ |
| 3372 | 1516 @item -binary\n\ |
| 1517 Save the data in Octave's binary data format.\n\ | |
| 1518 \n\ | |
| 1519 @item -float-binary\n\ | |
| 1520 Save the data in Octave's binary data format but only using single\n\ | |
|
9306
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
1521 precision. Only use this format if you know that all the\n\ |
|
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
1522 values to be saved can be represented in single precision.\n\ |
|
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
1523 \n\ |
|
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
1524 @item -hdf5\n\ |
| 10840 | 1525 Save the data in @sc{hdf5} format.\n\ |
|
9306
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
1526 (HDF5 is a free, portable binary format developed by the National\n\ |
|
12160
b64b82721062
Make documentation static by removing docstrings depending on #ifdef variables
Rik <octave@nomad.inbox5.com>
parents:
11586
diff
changeset
|
1527 Center for Supercomputing Applications at the University of Illinois.)\n\ |
|
b64b82721062
Make documentation static by removing docstrings depending on #ifdef variables
Rik <octave@nomad.inbox5.com>
parents:
11586
diff
changeset
|
1528 This format is only available if Octave was built with a link to the\n\ |
|
b64b82721062
Make documentation static by removing docstrings depending on #ifdef variables
Rik <octave@nomad.inbox5.com>
parents:
11586
diff
changeset
|
1529 @sc{hdf5} libraries.\n\ |
|
b64b82721062
Make documentation static by removing docstrings depending on #ifdef variables
Rik <octave@nomad.inbox5.com>
parents:
11586
diff
changeset
|
1530 \n\ |
|
9306
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
1531 @item -float-hdf5\n\ |
| 10840 | 1532 Save the data in @sc{hdf5} format but only using single precision.\n\ |
|
9306
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
1533 Only use this format if you know that all the\n\ |
| 3372 | 1534 values to be saved can be represented in single precision.\n\ |
| 1535 \n\ | |
|
17170
d6499c14021c
doc: Periodic grammarcheck of documentation.
Rik <rik@octave.org>
parents:
16892
diff
changeset
|
1536 @item -V7\n\ |
| 5269 | 1537 @itemx -v7\n\ |
| 1538 @itemx -7\n\ | |
| 1539 @itemx -mat7-binary\n\ | |
|
12160
b64b82721062
Make documentation static by removing docstrings depending on #ifdef variables
Rik <octave@nomad.inbox5.com>
parents:
11586
diff
changeset
|
1540 Save the data in @sc{matlab}'s v7 binary data format.\n\ |
|
b64b82721062
Make documentation static by removing docstrings depending on #ifdef variables
Rik <octave@nomad.inbox5.com>
parents:
11586
diff
changeset
|
1541 \n\ |
|
17170
d6499c14021c
doc: Periodic grammarcheck of documentation.
Rik <rik@octave.org>
parents:
16892
diff
changeset
|
1542 @item -V6\n\ |
| 5284 | 1543 @itemx -v6\n\ |
| 5269 | 1544 @itemx -6\n\ |
| 1545 @itemx -mat\n\ | |
| 4884 | 1546 @itemx -mat-binary\n\ |
|
9064
7c02ec148a3c
Check grammar on all .cc files
Rik <rdrider0-list@yahoo.com>
parents:
9039
diff
changeset
|
1547 Save the data in @sc{matlab}'s v6 binary data format.\n\ |
| 3372 | 1548 \n\ |
|
17170
d6499c14021c
doc: Periodic grammarcheck of documentation.
Rik <rik@octave.org>
parents:
16892
diff
changeset
|
1549 @item -V4\n\ |
| 5256 | 1550 @itemx -v4\n\ |
| 1551 @itemx -4\n\ | |
| 1552 @itemx -mat4-binary\n\ | |
|
9064
7c02ec148a3c
Check grammar on all .cc files
Rik <rdrider0-list@yahoo.com>
parents:
9039
diff
changeset
|
1553 Save the data in the binary format written by @sc{matlab} version 4.\n\ |
| 3688 | 1554 \n\ |
|
9306
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
1555 @item -text\n\ |
|
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
1556 Save the data in Octave's text data format. (default).\n\ |
| 3687 | 1557 \n\ |
|
17170
d6499c14021c
doc: Periodic grammarcheck of documentation.
Rik <rik@octave.org>
parents:
16892
diff
changeset
|
1558 @item -zip\n\ |
| 5269 | 1559 @itemx -z\n\ |
|
10846
a4f482e66b65
Grammarcheck more of the documentation.
Rik <octave@nomad.inbox5.com>
parents:
10840
diff
changeset
|
1560 Use the gzip algorithm to compress the file. This works equally on files\n\ |
|
a4f482e66b65
Grammarcheck more of the documentation.
Rik <octave@nomad.inbox5.com>
parents:
10840
diff
changeset
|
1561 that are compressed with gzip outside of octave, and gzip can equally be\n\ |
|
12160
b64b82721062
Make documentation static by removing docstrings depending on #ifdef variables
Rik <octave@nomad.inbox5.com>
parents:
11586
diff
changeset
|
1562 used to convert the files for backward compatibility.\n\ |
|
b64b82721062
Make documentation static by removing docstrings depending on #ifdef variables
Rik <octave@nomad.inbox5.com>
parents:
11586
diff
changeset
|
1563 This option is only available if Octave was built with a link to the zlib\n\ |
|
b64b82721062
Make documentation static by removing docstrings depending on #ifdef variables
Rik <octave@nomad.inbox5.com>
parents:
11586
diff
changeset
|
1564 libraries.\n\ |
|
b64b82721062
Make documentation static by removing docstrings depending on #ifdef variables
Rik <octave@nomad.inbox5.com>
parents:
11586
diff
changeset
|
1565 @end table\n\ |
| 604 | 1566 \n\ |
|
9306
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
1567 The list of variables to save may use wildcard patterns containing\n\ |
| 3372 | 1568 the following special characters:\n\ |
|
14366
b76f0740940e
doc: Periodic grammar check of documentation.
Rik <octave@nomad.inbox5.com>
parents:
14268
diff
changeset
|
1569 \n\ |
| 3372 | 1570 @table @code\n\ |
| 1571 @item ?\n\ | |
| 1572 Match any single character.\n\ | |
| 1573 \n\ | |
| 1574 @item *\n\ | |
| 1575 Match zero or more characters.\n\ | |
| 1576 \n\ | |
| 1577 @item [ @var{list} ]\n\ | |
| 1578 Match the list of characters specified by @var{list}. If the first\n\ | |
| 1579 character is @code{!} or @code{^}, match all characters except those\n\ | |
|
9306
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
1580 specified by @var{list}. For example, the pattern @code{[a-zA-Z]} will\n\ |
|
12642
f96b9b9f141b
doc: Periodic grammarcheck and spellcheck of documentation.
Rik <octave@nomad.inbox5.com>
parents:
12483
diff
changeset
|
1581 match all lower and uppercase alphabetic characters.\n\ |
|
7718
62279ce5654c
save: fix continuation character in doc string
John W. Eaton <jwe@octave.org>
parents:
7635
diff
changeset
|
1582 \n\ |
|
9306
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
1583 Wildcards may also be used in the field name specifications when using\n\ |
| 10840 | 1584 the @option{-struct} modifier (but not in the struct name itself).\n\ |
| 5197 | 1585 \n\ |
| 3372 | 1586 @end table\n\ |
| 1587 \n\ | |
|
9306
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
1588 Except when using the @sc{matlab} binary data file format or the\n\ |
|
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
1589 @samp{-ascii} format, saving global\n\ |
|
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
1590 variables also saves the global status of the variable. If the variable\n\ |
|
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
1591 is restored at a later time using @samp{load}, it will be restored as a\n\ |
| 3372 | 1592 global variable.\n\ |
| 1593 \n\ | |
| 1594 The command\n\ | |
| 1595 \n\ | |
| 1596 @example\n\ | |
| 1597 save -binary data a b*\n\ | |
| 1598 @end example\n\ | |
| 1599 \n\ | |
| 1600 @noindent\n\ | |
| 1601 saves the variable @samp{a} and all variables beginning with @samp{b} to\n\ | |
| 1602 the file @file{data} in Octave's binary format.\n\ | |
|
16875
b04ae15530fc
Rename default_save_options() to save_default_options().
Rik <rik@octave.org>
parents:
16555
diff
changeset
|
1603 @seealso{load, save_default_options, save_header_format_string, dlmread, csvread, fread}\n\ |
| 11547 | 1604 @end deftypefn") |
| 604 | 1605 { |
| 2086 | 1606 octave_value_list retval; |
| 604 | 1607 |
|
8034
f61bd8e0d682
fix default_save_options parsing and allow mixing options with other arguments.
Jaroslav Hajek <highegg@gmail.com>
parents:
8021
diff
changeset
|
1608 string_vector argv = args.make_argv (); |
| 1755 | 1609 |
| 1610 if (error_state) | |
| 1611 return retval; | |
| 604 | 1612 |
| 1358 | 1613 // Here is where we would get the default save format if it were |
| 1614 // stored in a user preference variable. | |
| 604 | 1615 |
| 3019 | 1616 bool save_as_floats = false; |
| 630 | 1617 |
| 5284 | 1618 load_save_format format = LS_ASCII; |
| 604 | 1619 |
| 3185 | 1620 bool append = false; |
| 1621 | |
| 5269 | 1622 bool use_zlib = false; |
| 1623 | |
|
8034
f61bd8e0d682
fix default_save_options parsing and allow mixing options with other arguments.
Jaroslav Hajek <highegg@gmail.com>
parents:
8021
diff
changeset
|
1624 // get default options |
|
16875
b04ae15530fc
Rename default_save_options() to save_default_options().
Rik <rik@octave.org>
parents:
16555
diff
changeset
|
1625 parse_save_options (Vsave_default_options, format, append, save_as_floats, |
|
8034
f61bd8e0d682
fix default_save_options parsing and allow mixing options with other arguments.
Jaroslav Hajek <highegg@gmail.com>
parents:
8021
diff
changeset
|
1626 use_zlib); |
| 5351 | 1627 |
|
8034
f61bd8e0d682
fix default_save_options parsing and allow mixing options with other arguments.
Jaroslav Hajek <highegg@gmail.com>
parents:
8021
diff
changeset
|
1628 // override from command line |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11572
diff
changeset
|
1629 argv = parse_save_options (argv, format, append, save_as_floats, |
|
8034
f61bd8e0d682
fix default_save_options parsing and allow mixing options with other arguments.
Jaroslav Hajek <highegg@gmail.com>
parents:
8021
diff
changeset
|
1630 use_zlib); |
|
20267
a9574e3c6e9e
Deprecate Array::length() and Sparse::length() in favour of ::numel().
Carnë Draug <carandraug@octave.org>
parents:
20207
diff
changeset
|
1631 int argc = argv.numel (); |
|
8034
f61bd8e0d682
fix default_save_options parsing and allow mixing options with other arguments.
Jaroslav Hajek <highegg@gmail.com>
parents:
8021
diff
changeset
|
1632 int i = 0; |
| 5197 | 1633 |
| 5284 | 1634 if (error_state) |
| 1635 return retval; | |
| 604 | 1636 |
| 2057 | 1637 if (i == argc) |
| 604 | 1638 { |
| 5823 | 1639 print_usage (); |
| 604 | 1640 return retval; |
| 1641 } | |
| 1642 | |
| 630 | 1643 if (save_as_floats && format == LS_ASCII) |
| 1644 { | |
| 1645 error ("save: cannot specify both -ascii and -float-binary"); | |
| 1646 return retval; | |
| 1647 } | |
| 1648 | |
| 1755 | 1649 if (argv[i] == "-") |
| 604 | 1650 { |
| 1755 | 1651 i++; |
| 863 | 1652 |
| 3687 | 1653 #ifdef HAVE_HDF5 |
| 1654 if (format == LS_HDF5) | |
| 4687 | 1655 error ("save: cannot write HDF5 format to stdout"); |
| 3687 | 1656 else |
| 1657 #endif /* HAVE_HDF5 */ | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1658 // don't insert any commands here! the brace below must go |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1659 // with the "else" above! |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1660 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1661 if (append) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1662 warning ("save: ignoring -append option for output to stdout"); |
| 6759 | 1663 |
|
19851
bafcfc5b99af
if save file name is "-" and nargout is 0, write to stdout
John W. Eaton <jwe@octave.org>
parents:
19731
diff
changeset
|
1664 if (nargout == 0) |
|
bafcfc5b99af
if save file name is "-" and nargout is 0, write to stdout
John W. Eaton <jwe@octave.org>
parents:
19731
diff
changeset
|
1665 save_vars (argv, i, argc, std::cout, format, save_as_floats, true); |
|
bafcfc5b99af
if save file name is "-" and nargout is 0, write to stdout
John W. Eaton <jwe@octave.org>
parents:
19731
diff
changeset
|
1666 else |
|
bafcfc5b99af
if save file name is "-" and nargout is 0, write to stdout
John W. Eaton <jwe@octave.org>
parents:
19731
diff
changeset
|
1667 { |
|
bafcfc5b99af
if save file name is "-" and nargout is 0, write to stdout
John W. Eaton <jwe@octave.org>
parents:
19731
diff
changeset
|
1668 std::ostringstream output_buf; |
|
bafcfc5b99af
if save file name is "-" and nargout is 0, write to stdout
John W. Eaton <jwe@octave.org>
parents:
19731
diff
changeset
|
1669 save_vars (argv, i, argc, output_buf, format, save_as_floats, true); |
|
bafcfc5b99af
if save file name is "-" and nargout is 0, write to stdout
John W. Eaton <jwe@octave.org>
parents:
19731
diff
changeset
|
1670 retval = octave_value (output_buf.str()); |
|
bafcfc5b99af
if save file name is "-" and nargout is 0, write to stdout
John W. Eaton <jwe@octave.org>
parents:
19731
diff
changeset
|
1671 } |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1672 } |
| 604 | 1673 } |
| 1755 | 1674 |
|
15466
d174210ce1ec
use ' instead of ` in error messages, warnings and most comments
John W. Eaton <jwe@octave.org>
parents:
14268
diff
changeset
|
1675 // Guard against things like 'save a*', which are probably mistakes... |
| 1755 | 1676 |
| 1677 else if (i == argc - 1 && glob_pattern_p (argv[i])) | |
| 1678 { | |
| 5823 | 1679 print_usage (); |
| 604 | 1680 return retval; |
| 1681 } | |
| 1682 else | |
| 1683 { | |
| 3523 | 1684 std::string fname = file_ops::tilde_expand (argv[i]); |
| 1755 | 1685 |
| 1686 i++; | |
| 604 | 1687 |
| 6625 | 1688 // Matlab v7 files are always compressed |
| 1689 if (format == LS_MAT7_BINARY) | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1690 use_zlib = false; |
| 6625 | 1691 |
| 6759 | 1692 std::ios::openmode mode |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1693 = append ? (std::ios::app | std::ios::ate) : std::ios::out; |
| 6759 | 1694 |
| 4791 | 1695 if (format == LS_BINARY |
| 1696 #ifdef HAVE_HDF5 | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1697 || format == LS_HDF5 |
| 4791 | 1698 #endif |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1699 || format == LS_MAT_BINARY |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1700 || format == LS_MAT5_BINARY |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1701 || format == LS_MAT7_BINARY) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1702 mode |= std::ios::binary; |
| 3538 | 1703 |
| 3687 | 1704 #ifdef HAVE_HDF5 |
| 1705 if (format == LS_HDF5) | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1706 { |
|
17861
870f3e12e163
maint: Use phrase "FIXME:" for problem areas in code.
Rik <rik@octave.org>
parents:
17787
diff
changeset
|
1707 // FIXME: It should be possible to append to HDF5 files. |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1708 if (append) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1709 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1710 error ("save: appending to HDF5 files is not implemented"); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1711 return retval; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1712 } |
| 6759 | 1713 |
|
19898
17d647821d61
maint: More cleanup of C++ code to follow Octave coding conventions.
John W. Eaton <jwe@octave.org>
parents:
19851
diff
changeset
|
1714 bool write_header_info |
|
17d647821d61
maint: More cleanup of C++ code to follow Octave coding conventions.
John W. Eaton <jwe@octave.org>
parents:
19851
diff
changeset
|
1715 = ! (append && H5Fis_hdf5 (fname.c_str ()) > 0); |
| 3687 | 1716 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1717 hdf5_ofstream hdf5_file (fname.c_str (), mode); |
| 6760 | 1718 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1719 if (hdf5_file.file_id != -1) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1720 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1721 save_vars (argv, i, argc, hdf5_file, format, |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1722 save_as_floats, write_header_info); |
| 3687 | 1723 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1724 hdf5_file.close (); |
|
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17755
diff
changeset
|
1725 } |
|
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17755
diff
changeset
|
1726 else |
|
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17755
diff
changeset
|
1727 { |
|
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17755
diff
changeset
|
1728 gripe_file_open ("save", fname); |
|
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17755
diff
changeset
|
1729 return retval; |
|
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17755
diff
changeset
|
1730 } |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1731 } |
| 863 | 1732 else |
| 3687 | 1733 #endif /* HAVE_HDF5 */ |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1734 // don't insert any statements here! The brace below must go |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1735 // with the "else" above! |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1736 { |
| 5269 | 1737 #ifdef HAVE_ZLIB |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1738 if (use_zlib) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1739 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1740 gzofstream file (fname.c_str (), mode); |
| 5269 | 1741 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1742 if (file) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1743 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1744 bool write_header_info = ! file.tellp (); |
| 6760 | 1745 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1746 save_vars (argv, i, argc, file, format, |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1747 save_as_floats, write_header_info); |
| 5269 | 1748 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1749 file.close (); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1750 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1751 else |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1752 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1753 gripe_file_open ("save", fname); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1754 return retval; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1755 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1756 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1757 else |
| 5269 | 1758 #endif |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1759 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1760 std::ofstream file (fname.c_str (), mode); |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11572
diff
changeset
|
1761 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1762 if (file) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1763 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1764 bool write_header_info = ! file.tellp (); |
| 6760 | 1765 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1766 save_vars (argv, i, argc, file, format, |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1767 save_as_floats, write_header_info); |
| 5269 | 1768 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1769 file.close (); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1770 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1771 else |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1772 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1773 gripe_file_open ("save", fname); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1774 return retval; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1775 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1776 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10309
diff
changeset
|
1777 } |
| 604 | 1778 } |
| 1779 | |
| 1780 return retval; | |
| 1781 } | |
| 1782 | |
| 5794 | 1783 DEFUN (crash_dumps_octave_core, args, nargout, |
|
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17755
diff
changeset
|
1784 "-*- texinfo -*-\n\ |
| 10840 | 1785 @deftypefn {Built-in Function} {@var{val} =} crash_dumps_octave_core ()\n\ |
| 5794 | 1786 @deftypefnx {Built-in Function} {@var{old_val} =} crash_dumps_octave_core (@var{new_val})\n\ |
|
13951
79aa00a94e9e
doc: Document "local" option for configuration variables.
Rik <octave@nomad.inbox5.com>
parents:
13941
diff
changeset
|
1787 @deftypefnx {Built-in Function} {} crash_dumps_octave_core (@var{new_val}, \"local\")\n\ |
| 5794 | 1788 Query or set the internal variable that controls whether Octave tries\n\ |
|
17281
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17183
diff
changeset
|
1789 to save all current variables to the file @file{octave-workspace} if it\n\ |
| 5794 | 1790 crashes or receives a hangup, terminate or similar signal.\n\ |
|
13951
79aa00a94e9e
doc: Document "local" option for configuration variables.
Rik <octave@nomad.inbox5.com>
parents:
13941
diff
changeset
|
1791 \n\ |
|
17281
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17183
diff
changeset
|
1792 When called from inside a function with the @qcode{\"local\"} option, the\n\ |
|
20207
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19898
diff
changeset
|
1793 variable is changed locally for the function and any subroutines it calls.\n\ |
|
17281
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17183
diff
changeset
|
1794 The original variable value is restored when exiting the function.\n\ |
| 5794 | 1795 @seealso{octave_core_file_limit, octave_core_file_name, octave_core_file_options}\n\ |
| 1796 @end deftypefn") | |
| 2194 | 1797 { |
| 5794 | 1798 return SET_INTERNAL_VARIABLE (crash_dumps_octave_core); |
| 2194 | 1799 } |
| 1800 | |
|
16875
b04ae15530fc
Rename default_save_options() to save_default_options().
Rik <rik@octave.org>
parents:
16555
diff
changeset
|
1801 DEFUN (save_default_options, args, nargout, |
|
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17755
diff
changeset
|
1802 "-*- texinfo -*-\n\ |
|
16875
b04ae15530fc
Rename default_save_options() to save_default_options().
Rik <rik@octave.org>
parents:
16555
diff
changeset
|
1803 @deftypefn {Built-in Function} {@var{val} =} save_default_options ()\n\ |
|
b04ae15530fc
Rename default_save_options() to save_default_options().
Rik <rik@octave.org>
parents:
16555
diff
changeset
|
1804 @deftypefnx {Built-in Function} {@var{old_val} =} save_default_options (@var{new_val})\n\ |
|
b04ae15530fc
Rename default_save_options() to save_default_options().
Rik <rik@octave.org>
parents:
16555
diff
changeset
|
1805 @deftypefnx {Built-in Function} {} save_default_options (@var{new_val}, \"local\")\n\ |
| 5794 | 1806 Query or set the internal variable that specifies the default options\n\ |
| 1807 for the @code{save} command, and defines the default format.\n\ | |
|
20207
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19898
diff
changeset
|
1808 \n\ |
|
17281
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17183
diff
changeset
|
1809 Typical values include @qcode{\"-ascii\"}, @qcode{\"-text -zip\"}.\n\ |
| 10840 | 1810 The default value is @option{-text}.\n\ |
|
13951
79aa00a94e9e
doc: Document "local" option for configuration variables.
Rik <octave@nomad.inbox5.com>
parents:
13941
diff
changeset
|
1811 \n\ |
|
17281
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17183
diff
changeset
|
1812 When called from inside a function with the @qcode{\"local\"} option, the\n\ |
|
20207
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19898
diff
changeset
|
1813 variable is changed locally for the function and any subroutines it calls.\n\ |
|
17281
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17183
diff
changeset
|
1814 The original variable value is restored when exiting the function.\n\ |
| 5794 | 1815 @seealso{save}\n\ |
| 1816 @end deftypefn") | |
| 4788 | 1817 { |
|
16875
b04ae15530fc
Rename default_save_options() to save_default_options().
Rik <rik@octave.org>
parents:
16555
diff
changeset
|
1818 return SET_NONEMPTY_INTERNAL_STRING_VARIABLE (save_default_options); |
| 4788 | 1819 } |
| 1820 | |
| 5794 | 1821 DEFUN (octave_core_file_limit, args, nargout, |
|
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17755
diff
changeset
|
1822 "-*- texinfo -*-\n\ |
| 10840 | 1823 @deftypefn {Built-in Function} {@var{val} =} octave_core_file_limit ()\n\ |
| 5794 | 1824 @deftypefnx {Built-in Function} {@var{old_val} =} octave_core_file_limit (@var{new_val})\n\ |
|
13951
79aa00a94e9e
doc: Document "local" option for configuration variables.
Rik <octave@nomad.inbox5.com>
parents:
13941
diff
changeset
|
1825 @deftypefnx {Built-in Function} {} octave_core_file_limit (@var{new_val}, \"local\")\n\ |
| 5794 | 1826 Query or set the internal variable that specifies the maximum amount\n\ |
| 1827 of memory (in kilobytes) of the top-level workspace that Octave will\n\ | |
| 1828 attempt to save when writing data to the crash dump file (the name of\n\ | |
|
20207
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19898
diff
changeset
|
1829 the file is specified by @var{octave_core_file_name}).\n\ |
|
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19898
diff
changeset
|
1830 \n\ |
|
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19898
diff
changeset
|
1831 If @var{octave_core_file_options} flags specify a binary format,\n\ |
| 5794 | 1832 then @var{octave_core_file_limit} will be approximately the maximum\n\ |
| 1833 size of the file. If a text file format is used, then the file could\n\ | |
| 1834 be much larger than the limit. The default value is -1 (unlimited)\n\ | |
|
13951
79aa00a94e9e
doc: Document "local" option for configuration variables.
Rik <octave@nomad.inbox5.com>
parents:
13941
diff
changeset
|
1835 \n\ |
|
17281
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17183
diff
changeset
|
1836 When called from inside a function with the @qcode{\"local\"} option, the\n\ |
|
20207
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19898
diff
changeset
|
1837 variable is changed locally for the function and any subroutines it calls.\n\ |
|
17281
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17183
diff
changeset
|
1838 The original variable value is restored when exiting the function.\n\ |
| 5794 | 1839 @seealso{crash_dumps_octave_core, octave_core_file_name, octave_core_file_options}\n\ |
| 1840 @end deftypefn") | |
| 3709 | 1841 { |
| 5794 | 1842 return SET_INTERNAL_VARIABLE (octave_core_file_limit); |
| 3709 | 1843 } |
| 1844 | |
| 5794 | 1845 DEFUN (octave_core_file_name, args, nargout, |
|
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17755
diff
changeset
|
1846 "-*- texinfo -*-\n\ |
| 10840 | 1847 @deftypefn {Built-in Function} {@var{val} =} octave_core_file_name ()\n\ |
| 5794 | 1848 @deftypefnx {Built-in Function} {@var{old_val} =} octave_core_file_name (@var{new_val})\n\ |
|
13951
79aa00a94e9e
doc: Document "local" option for configuration variables.
Rik <octave@nomad.inbox5.com>
parents:
13941
diff
changeset
|
1849 @deftypefnx {Built-in Function} {} octave_core_file_name (@var{new_val}, \"local\")\n\ |
| 5794 | 1850 Query or set the internal variable that specifies the name of the file\n\ |
| 1851 used for saving data from the top-level workspace if Octave aborts.\n\ | |
|
20207
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19898
diff
changeset
|
1852 \n\ |
|
17281
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17183
diff
changeset
|
1853 The default value is @qcode{\"octave-workspace\"}\n\ |
|
13951
79aa00a94e9e
doc: Document "local" option for configuration variables.
Rik <octave@nomad.inbox5.com>
parents:
13941
diff
changeset
|
1854 \n\ |
|
17281
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17183
diff
changeset
|
1855 When called from inside a function with the @qcode{\"local\"} option, the\n\ |
|
20207
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19898
diff
changeset
|
1856 variable is changed locally for the function and any subroutines it calls.\n\ |
|
17281
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17183
diff
changeset
|
1857 The original variable value is restored when exiting the function.\n\ |
| 5794 | 1858 @seealso{crash_dumps_octave_core, octave_core_file_name, octave_core_file_options}\n\ |
| 1859 @end deftypefn") | |
| 2194 | 1860 { |
| 5794 | 1861 return SET_NONEMPTY_INTERNAL_STRING_VARIABLE (octave_core_file_name); |
| 1862 } | |
| 4791 | 1863 |
| 5794 | 1864 DEFUN (octave_core_file_options, args, nargout, |
|
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17755
diff
changeset
|
1865 "-*- texinfo -*-\n\ |
| 10840 | 1866 @deftypefn {Built-in Function} {@var{val} =} octave_core_file_options ()\n\ |
| 5794 | 1867 @deftypefnx {Built-in Function} {@var{old_val} =} octave_core_file_options (@var{new_val})\n\ |
|
13951
79aa00a94e9e
doc: Document "local" option for configuration variables.
Rik <octave@nomad.inbox5.com>
parents:
13941
diff
changeset
|
1868 @deftypefnx {Built-in Function} {} octave_core_file_options (@var{new_val}, \"local\")\n\ |
| 5794 | 1869 Query or set the internal variable that specifies the options used for\n\ |
|
20207
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19898
diff
changeset
|
1870 saving the workspace data if Octave aborts.\n\ |
|
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19898
diff
changeset
|
1871 \n\ |
|
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19898
diff
changeset
|
1872 The value of @code{octave_core_file_options} should follow the same format\n\ |
|
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19898
diff
changeset
|
1873 as the options for the @code{save} function. The default value is Octave's\n\ |
|
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19898
diff
changeset
|
1874 binary format.\n\ |
|
13951
79aa00a94e9e
doc: Document "local" option for configuration variables.
Rik <octave@nomad.inbox5.com>
parents:
13941
diff
changeset
|
1875 \n\ |
|
17281
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17183
diff
changeset
|
1876 When called from inside a function with the @qcode{\"local\"} option, the\n\ |
|
20207
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19898
diff
changeset
|
1877 variable is changed locally for the function and any subroutines it calls.\n\ |
|
17281
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17183
diff
changeset
|
1878 The original variable value is restored when exiting the function.\n\ |
| 5642 | 1879 @seealso{crash_dumps_octave_core, octave_core_file_name, octave_core_file_limit}\n\ |
| 5794 | 1880 @end deftypefn") |
| 1881 { | |
| 1882 return SET_NONEMPTY_INTERNAL_STRING_VARIABLE (octave_core_file_options); | |
| 1883 } | |
| 2194 | 1884 |
| 5794 | 1885 DEFUN (save_header_format_string, args, nargout, |
|
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17755
diff
changeset
|
1886 "-*- texinfo -*-\n\ |
|
9306
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
1887 @deftypefn {Built-in Function} {@var{val} =} save_header_format_string ()\n\ |
| 5794 | 1888 @deftypefnx {Built-in Function} {@var{old_val} =} save_header_format_string (@var{new_val})\n\ |
|
13951
79aa00a94e9e
doc: Document "local" option for configuration variables.
Rik <octave@nomad.inbox5.com>
parents:
13941
diff
changeset
|
1889 @deftypefnx {Built-in Function} {} save_header_format_string (@var{new_val}, \"local\")\n\ |
| 5794 | 1890 Query or set the internal variable that specifies the format\n\ |
| 1891 string used for the comment line written at the beginning of\n\ | |
|
20207
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19898
diff
changeset
|
1892 text-format data files saved by Octave.\n\ |
|
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19898
diff
changeset
|
1893 \n\ |
|
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19898
diff
changeset
|
1894 The format string is passed to @code{strftime} and should begin with the\n\ |
|
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19898
diff
changeset
|
1895 character @samp{#} and contain no newline characters. If the value of\n\ |
|
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19898
diff
changeset
|
1896 @code{save_header_format_string} is the empty string, the header comment is\n\ |
|
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19898
diff
changeset
|
1897 omitted from text-format data files. The default value is\n\ |
|
10846
a4f482e66b65
Grammarcheck more of the documentation.
Rik <octave@nomad.inbox5.com>
parents:
10840
diff
changeset
|
1898 @c Set example in small font to prevent overfull line\n\ |
| 3709 | 1899 \n\ |
| 7031 | 1900 @smallexample\n\ |
| 4060 | 1901 \"# Created by Octave VERSION, %a %b %d %H:%M:%S %Y %Z <USER@@HOST>\"\n\ |
| 7031 | 1902 @end smallexample\n\ |
|
13951
79aa00a94e9e
doc: Document "local" option for configuration variables.
Rik <octave@nomad.inbox5.com>
parents:
13941
diff
changeset
|
1903 \n\ |
|
17281
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17183
diff
changeset
|
1904 When called from inside a function with the @qcode{\"local\"} option, the\n\ |
|
20207
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19898
diff
changeset
|
1905 variable is changed locally for the function and any subroutines it calls.\n\ |
|
17281
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17183
diff
changeset
|
1906 The original variable value is restored when exiting the function.\n\ |
|
9306
de124edcebf6
Update documentation for load and save
Rik <rdrider0-list@yahoo.com>
parents:
9153
diff
changeset
|
1907 @seealso{strftime, save}\n\ |
| 5794 | 1908 @end deftypefn") |
| 1909 { | |
| 1910 return SET_INTERNAL_VARIABLE (save_header_format_string); | |
| 2194 | 1911 } |