octave: libinterp/corefcn/load-save.cc annotate

annotate libinterp/corefcn/load-save.cc @ 25993:f75bb9d659e0

eliminate global and file-scope static variables from load-save.cc (bug #54571) * interpreter-private.h, interpreter-private.cc (__get_load_save_system__): New function. * interpreter.h, interpreter.cc (interpreter::m_load_save_system, interpreter::get_load_save_system): New member variable and access function. * load-save.h, load-save.cc: Rewrite to use class for load/save configuration variables and functions. Change all uses.

author	John W. Eaton <jwe@octave.org>
date	Wed, 31 Oct 2018 18:22:23 -0400
parents	91f0416c2ba7
children	3fc9d7453ba6

rev	line source
6763 958713bc465e [project @ 2007-06-27 18:34:13 by jwe] jwe parents: 6760 diff changeset	1 /*
604 1acdc9e50cd2 [project @ 1994-08-13 20:10:39 by jwe] jwe parents: diff changeset	2
25054 6652d3823428 maint: Update copyright dates in all source files. John W. Eaton <jwe@octave.org> parents: 24986 diff changeset	3 Copyright (C) 1994-2018 John W. Eaton
604 1acdc9e50cd2 [project @ 1994-08-13 20:10:39 by jwe] jwe parents: diff changeset	4
1acdc9e50cd2 [project @ 1994-08-13 20:10:39 by jwe] jwe parents: diff changeset	5 This file is part of Octave.
1acdc9e50cd2 [project @ 1994-08-13 20:10:39 by jwe] jwe parents: diff changeset	6
24534 194eb4bd202b maint: Update punctuation for GPL v3 license text. Rik <rik@octave.org> parents: 24456 diff changeset	7 Octave is free software: you can redistribute it and/or modify it
22755 3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22407 diff changeset	8 under the terms of the GNU General Public License as published by
24534 194eb4bd202b maint: Update punctuation for GPL v3 license text. Rik <rik@octave.org> parents: 24456 diff changeset	9 the Free Software Foundation, either version 3 of the License, or
22755 3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22407 diff changeset	10 (at your option) any later version.
604 1acdc9e50cd2 [project @ 1994-08-13 20:10:39 by jwe] jwe parents: diff changeset	11
22755 3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22407 diff changeset	12 Octave is distributed in the hope that it will be useful, but
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22407 diff changeset	13 WITHOUT ANY WARRANTY; without even the implied warranty of
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22407 diff changeset	14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22407 diff changeset	15 GNU General Public License for more details.
604 1acdc9e50cd2 [project @ 1994-08-13 20:10:39 by jwe] jwe parents: diff changeset	16
1acdc9e50cd2 [project @ 1994-08-13 20:10:39 by jwe] jwe parents: diff changeset	17 You should have received a copy of the GNU General Public License
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 7001 diff changeset	18 along with Octave; see the file COPYING. If not, see
24534 194eb4bd202b maint: Update punctuation for GPL v3 license text. Rik <rik@octave.org> parents: 24456 diff changeset	19 <https://www.gnu.org/licenses/>.
604 1acdc9e50cd2 [project @ 1994-08-13 20:10:39 by jwe] jwe parents: diff changeset	20
1acdc9e50cd2 [project @ 1994-08-13 20:10:39 by jwe] jwe parents: diff changeset	21 */
1acdc9e50cd2 [project @ 1994-08-13 20:10:39 by jwe] jwe parents: diff changeset	22
3911 8389e78e67d4 [project @ 2002-04-28 02:15:38 by jwe] jwe parents: 3901 diff changeset	23 // Author: John W. Eaton.
8389e78e67d4 [project @ 2002-04-28 02:15:38 by jwe] jwe parents: 3901 diff changeset	24 // HDF5 support by Steven G. Johnson <stevenj@alum.mit.edu>
8389e78e67d4 [project @ 2002-04-28 02:15:38 by jwe] jwe parents: 3901 diff changeset	25 // Matlab v5 support by James R. Van Zandt <jrv@vanzandt.mv.com>
3687 b5a285d1c1f4 [project @ 2000-06-29 21:33:00 by jwe] jwe parents: 3682 diff changeset	26
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	27 #if defined (HAVE_CONFIG_H)
21301 40de9f8f23a6 Use '#include "config.h"' rather than <config.h>. Rik <rik@octave.org> parents: 21200 diff changeset	28 # include "config.h"
604 1acdc9e50cd2 [project @ 1994-08-13 20:10:39 by jwe] jwe parents: diff changeset	29 #endif
1acdc9e50cd2 [project @ 1994-08-13 20:10:39 by jwe] jwe parents: diff changeset	30
1343 94bedeb289e5 [project @ 1995-09-04 00:29:21 by jwe] jwe parents: 1315 diff changeset	31 #include <cstring>
94bedeb289e5 [project @ 1995-09-04 00:29:21 by jwe] jwe parents: 1315 diff changeset	32
4249 8a1ef8fe4036 [project @ 2002-12-31 04:42:32 by jwe] jwe parents: 4247 diff changeset	33 #include <fstream>
3503 d14c483b3c12 [project @ 2000-02-01 04:06:07 by jwe] jwe parents: 3465 diff changeset	34 #include <iomanip>
d14c483b3c12 [project @ 2000-02-01 04:06:07 by jwe] jwe parents: 3465 diff changeset	35 #include <iostream>
23455 73ff72d3d603 maint: Eliminate <cfloat.h> header from libinterp files Rik <rik@octave.org> parents: 23450 diff changeset	36 #include <list>
5765 7ba9ad1fec11 [project @ 2006-04-17 05:05:15 by jwe] jwe parents: 5760 diff changeset	37 #include <sstream>
1728 42b4f904f1af [project @ 1996-01-09 11:36:01 by jwe] jwe parents: 1690 diff changeset	38 #include <string>
42b4f904f1af [project @ 1996-01-09 11:36:01 by jwe] jwe parents: 1690 diff changeset	39
1961 41ff3c38af7e [project @ 1996-02-16 04:03:01 by jwe] jwe parents: 1957 diff changeset	40 #include "byte-swap.h"
23455 73ff72d3d603 maint: Eliminate <cfloat.h> header from libinterp files Rik <rik@octave.org> parents: 23450 diff changeset	41 #include "dMatrix.h"
1961 41ff3c38af7e [project @ 1996-02-16 04:03:01 by jwe] jwe parents: 1957 diff changeset	42 #include "data-conv.h"
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2890 diff changeset	43 #include "file-ops.h"
6159 645605133a6f [project @ 2006-11-14 02:55:05 by jwe] jwe parents: 5977 diff changeset	44 #include "file-stat.h"
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2890 diff changeset	45 #include "glob-match.h"
2890 42901f9a9266 [project @ 1997-04-28 01:44:22 by jwe] jwe parents: 2859 diff changeset	46 #include "lo-mappers.h"
2318 31e7eb125d89 [project @ 1996-07-14 22:44:50 by jwe] jwe parents: 2305 diff changeset	47 #include "mach-info.h"
3185 9580887dd160 [project @ 1998-09-26 02:45:55 by jwe] jwe parents: 3145 diff changeset	48 #include "oct-env.h"
21888 00f1249f2483 create wrappers for some gnulib functions John W. Eaton <jwe@octave.org> parents: 21835 diff changeset	49 #include "oct-locbuf.h"
3258 4964d5391acc [project @ 1999-07-21 21:51:33 by jwe] jwe parents: 3233 diff changeset	50 #include "oct-time.h"
4171 04694e5b4239 [project @ 2002-11-12 20:27:24 by jwe] jwe parents: 4153 diff changeset	51 #include "quit.h"
1755 3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe] jwe parents: 1750 diff changeset	52 #include "str-vec.h"
21888 00f1249f2483 create wrappers for some gnulib functions John W. Eaton <jwe@octave.org> parents: 21835 diff changeset	53 #include "strftime-wrapper.h"
1755 3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe] jwe parents: 1750 diff changeset	54
4332 e41906608e0f [project @ 2003-02-19 01:15:59 by jwe] jwe parents: 4329 diff changeset	55 #include "Cell.h"
1352 19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe] jwe parents: 1343 diff changeset	56 #include "defun.h"
604 1acdc9e50cd2 [project @ 1994-08-13 20:10:39 by jwe] jwe parents: diff changeset	57 #include "error.h"
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21040 diff changeset	58 #include "errwarn.h"
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	59 #include "interpreter.h"
23599 5cb3a2bb5e1e don't use singleton for symbol_table John W. Eaton <jwe@octave.org> parents: 23584 diff changeset	60 #include "interpreter-private.h"
6159 645605133a6f [project @ 2006-11-14 02:55:05 by jwe] jwe parents: 5977 diff changeset	61 #include "load-path.h"
1352 19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe] jwe parents: 1343 diff changeset	62 #include "load-save.h"
20264 bfe66db8addb don't include hdf5.h or use HDF5 typedefs in public header files (bug #43180) John W. Eaton <jwe@octave.org> parents: 20232 diff changeset	63 #include "oct-hdf5.h"
20940 48b2ad5ee801 maint: Rename oct-obj.[cc\|h] to ovl.[cc\|h] for clarity. Rik <rik@octave.org> parents: 20939 diff changeset	64 #include "ovl.h"
3687 b5a285d1c1f4 [project @ 2000-06-29 21:33:00 by jwe] jwe parents: 3682 diff changeset	65 #include "oct-map.h"
4332 e41906608e0f [project @ 2003-02-19 01:15:59 by jwe] jwe parents: 4329 diff changeset	66 #include "ov-cell.h"
1352 19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe] jwe parents: 1343 diff changeset	67 #include "pager.h"
19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe] jwe parents: 1343 diff changeset	68 #include "symtab.h"
19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe] jwe parents: 1343 diff changeset	69 #include "sysdep.h"
19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe] jwe parents: 1343 diff changeset	70 #include "unwind-prot.h"
604 1acdc9e50cd2 [project @ 1994-08-13 20:10:39 by jwe] jwe parents: diff changeset	71 #include "utils.h"
2371 dd29ab8af9e7 [project @ 1996-10-12 00:09:55 by jwe] jwe parents: 2345 diff changeset	72 #include "variables.h"
3185 9580887dd160 [project @ 1998-09-26 02:45:55 by jwe] jwe parents: 3145 diff changeset	73 #include "version.h"
3688 8aea513ff224 [project @ 2000-06-29 22:50:23 by jwe] jwe parents: 3687 diff changeset	74
4633 d95dd6ae89fd [project @ 2003-11-19 18:32:50 by jwe] jwe parents: 4587 diff changeset	75 #include "ls-hdf5.h"
d95dd6ae89fd [project @ 2003-11-19 18:32:50 by jwe] jwe parents: 4587 diff changeset	76 #include "ls-mat-ascii.h"
d95dd6ae89fd [project @ 2003-11-19 18:32:50 by jwe] jwe parents: 4587 diff changeset	77 #include "ls-mat4.h"
d95dd6ae89fd [project @ 2003-11-19 18:32:50 by jwe] jwe parents: 4587 diff changeset	78 #include "ls-mat5.h"
20447 c6224b4e7774 maint: Rename instances of LS_ASCII to LS_TEXT for clarity. Rik <rik@octave.org> parents: 20443 diff changeset	79 #include "ls-oct-text.h"
4633 d95dd6ae89fd [project @ 2003-11-19 18:32:50 by jwe] jwe parents: 4587 diff changeset	80 #include "ls-oct-binary.h"
3688 8aea513ff224 [project @ 2000-06-29 22:50:23 by jwe] jwe parents: 3687 diff changeset	81
10309 cd925a5a82df another #undef for gnulib John W. Eaton <jwe@octave.org> parents: 10305 diff changeset	82 // Remove gnulib definitions, if any.
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	83 #if defined (close)
21200 fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21118 diff changeset	84 # undef close
10309 cd925a5a82df another #undef for gnulib John W. Eaton <jwe@octave.org> parents: 10305 diff changeset	85 #endif
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	86 #if defined (open)
21200 fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21118 diff changeset	87 # undef open
5269 a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman] dbateman parents: 5256 diff changeset	88 #endif
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman] dbateman parents: 5256 diff changeset	89
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	90 #if defined (HAVE_ZLIB)
21200 fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21118 diff changeset	91 # include "zfstream.h"
10305 d6cdf08d0424 load-save.cc: avoid gnulib definition of close John W. Eaton <jwe@octave.org> parents: 10250 diff changeset	92 #endif
d6cdf08d0424 load-save.cc: avoid gnulib definition of close John W. Eaton <jwe@octave.org> parents: 10250 diff changeset	93
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	94 namespace octave
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	95 {
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	96 OCTAVE_NORETURN static
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	97 void
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	98 err_file_open (const std::string& fcn, const std::string& file)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	99 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	100 if (fcn == "load")
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	101 error ("%s: unable to open input file '%s'", fcn.c_str (), file.c_str ());
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	102 else if (fcn == "save")
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	103 error ("%s: unable to open output file '%s'", fcn.c_str (), file.c_str ());
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	104 else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	105 error ("%s: unable to open file '%s'", fcn.c_str (), file.c_str ());
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	106 }
4788 82a558043db9 [project @ 2004-02-18 22:31:57 by jwe] jwe parents: 4726 diff changeset	107
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	108 // Return TRUE if NAME matches one of the given globbing PATTERNS.
5369 4bbde94b5cf8 [project @ 2005-05-23 23:39:28 by jwe] jwe parents: 5351 diff changeset	109
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	110 static bool
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	111 matches_patterns (const string_vector& patterns, int pat_idx,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	112 int num_pat, const std::string& name)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	113 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	114 for (int i = pat_idx; i < num_pat; i++)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	115 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	116 glob_match pattern (patterns[i]);
604 1acdc9e50cd2 [project @ 1994-08-13 20:10:39 by jwe] jwe parents: diff changeset	117
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	118 if (pattern.match (name))
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	119 return true;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	120 }
23611 91c8f006ed8b remove additional functions from symbol_table class John W. Eaton <jwe@octave.org> parents: 23603 diff changeset	121
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	122 return false;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	123 }
25201 c80323fe4938 improve handling of global symbols (bug #53599) John W. Eaton <jwe@octave.org> parents: 25106 diff changeset	124
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	125 static int
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	126 read_binary_file_header (std::istream& is, bool& swap,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	127 mach_info::float_format& flt_fmt,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	128 bool quiet = false)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	129 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	130 const int magic_len = 10;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	131 char magic[magic_len+1];
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	132 is.read (magic, magic_len);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	133 magic[magic_len] = '\0';
604 1acdc9e50cd2 [project @ 1994-08-13 20:10:39 by jwe] jwe parents: diff changeset	134
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	135 if (strncmp (magic, "Octave-1-L", magic_len) == 0)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	136 swap = mach_info::words_big_endian ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	137 else if (strncmp (magic, "Octave-1-B", magic_len) == 0)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	138 swap = ! mach_info::words_big_endian ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	139 else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	140 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	141 if (! quiet)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	142 error ("load: unable to read binary file");
604 1acdc9e50cd2 [project @ 1994-08-13 20:10:39 by jwe] jwe parents: diff changeset	143
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	144 return -1;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	145 }
3688 8aea513ff224 [project @ 2000-06-29 22:50:23 by jwe] jwe parents: 3687 diff changeset	146
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	147 char tmp = 0;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	148 is.read (&tmp, 1);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	149
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	150 flt_fmt = mopt_digit_to_float_format (tmp);
20831 35241c4b696c eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20801 diff changeset	151
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	152 if (flt_fmt == mach_info::flt_fmt_unknown)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	153 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	154 if (! quiet)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	155 error ("load: unrecognized binary format!");
2318 31e7eb125d89 [project @ 1996-07-14 22:44:50 by jwe] jwe parents: 2305 diff changeset	156
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	157 return -1;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	158 }
3688 8aea513ff224 [project @ 2000-06-29 22:50:23 by jwe] jwe parents: 3687 diff changeset	159
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	160 return 0;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	161 }
604 1acdc9e50cd2 [project @ 1994-08-13 20:10:39 by jwe] jwe parents: diff changeset	162
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	163 #if defined (HAVE_ZLIB)
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	164 static bool
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	165 check_gzip_magic (const std::string& fname)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	166 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	167 bool retval = false;
21972 d31e0f704d0b Open files in binary mode when testing file format (bug #48201). Rik <rik@octave.org> parents: 21966 diff changeset	168
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	169 std::string ascii_fname = sys::get_ASCII_filename (fname);
25604 ca413f326224 Fix lifetime issues with temporary char arrays returned by get_ASCII_filename (bug #54299). Markus Mützel <markus.muetzel@gmx.de> parents: 25580 diff changeset	170
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	171 std::ifstream file (ascii_fname.c_str (),
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	172 std::ios::in \| std::ios::binary);
5269 a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman] dbateman parents: 5256 diff changeset	173
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	174 unsigned char magic[2];
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	175 if (file.read (reinterpret_cast<char *> (&magic[0]), 2)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	176 && magic[0] == 0x1f && magic[1] == 0x8b)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	177 retval = true;
5269 a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman] dbateman parents: 5256 diff changeset	178
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	179 file.close ();
23777 cda0614beaec Replace static instances of OCTAVE_LOCAL_BUFFER with local variables. Rik <rik@octave.org> parents: 23693 diff changeset	180
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	181 return retval;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	182 }
5269 a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman] dbateman parents: 5256 diff changeset	183 #endif
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman] dbateman parents: 5256 diff changeset	184
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	185 static std::string
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	186 find_file_to_load (const std::string& name, const std::string& orig_name)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	187 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	188 std::string fname = find_data_file_in_load_path ("load", name, true);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	189
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	190 size_t dot_pos = fname.rfind ('.');
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	191 size_t sep_pos = fname.find_last_of (sys::file_ops::dir_sep_chars ());
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	192
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	193 if (dot_pos == std::string::npos
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	194 \|\| (sep_pos != std::string::npos && dot_pos < sep_pos))
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	195 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	196 // Either no '.' in name or no '.' appears after last directory
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	197 // separator.
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	198
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	199 sys::file_stat fs (fname);
604 1acdc9e50cd2 [project @ 1994-08-13 20:10:39 by jwe] jwe parents: diff changeset	200
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	201 if (! (fs.exists () && fs.is_reg ()))
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	202 fname = find_file_to_load (fname + ".mat", orig_name);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	203 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	204 else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	205 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	206 sys::file_stat fs (fname);
604 1acdc9e50cd2 [project @ 1994-08-13 20:10:39 by jwe] jwe parents: diff changeset	207
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	208 if (! (fs.exists () && fs.is_reg ()))
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	209 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	210 fname = "";
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	211
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	212 error ("load: unable to find file %s", orig_name.c_str ());
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	213 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	214 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	215
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	216 return fname;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	217 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	218
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	219 // Return TRUE if PATTERN has any special globbing chars in it.
3019 92aa3d651723 [project @ 1997-06-03 22:07:16 by jwe] jwe parents: 3014 diff changeset	220
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	221 static bool
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	222 glob_pattern_p (const std::string& pattern)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	223 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	224 int open = 0;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	225
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	226 int len = pattern.length ();
604 1acdc9e50cd2 [project @ 1994-08-13 20:10:39 by jwe] jwe parents: diff changeset	227
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	228 for (int i = 0; i < len; i++)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	229 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	230 char c = pattern[i];
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	231
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	232 switch (c)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	233 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	234 case '?':
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	235 case '*':
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	236 return true;
1180 0a9c94ee69e8 [project @ 1995-03-24 06:20:14 by jwe] jwe parents: 1159 diff changeset	237
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	238 case '[': // Only accept an open brace if there is a close
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	239 open++; // brace to match it. Bracket expressions must be
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	240 continue; // complete, according to Posix.2
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	241
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	242 case ']':
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	243 if (open)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	244 return true;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	245 continue;
1180 0a9c94ee69e8 [project @ 1995-03-24 06:20:14 by jwe] jwe parents: 1159 diff changeset	246
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	247 case '\\':
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	248 if (i == len - 1)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	249 return false;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	250 continue;
604 1acdc9e50cd2 [project @ 1994-08-13 20:10:39 by jwe] jwe parents: diff changeset	251
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	252 default:
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	253 continue;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	254 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	255 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	256
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	257 return false;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	258 }
3688 8aea513ff224 [project @ 2000-06-29 22:50:23 by jwe] jwe parents: 3687 diff changeset	259
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	260 load_save_system::load_save_system (interpreter& interp)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	261 : m_interpreter (interp),
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	262 m_crash_dumps_octave_core (true),
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	263 m_octave_core_file_limit (-1.0),
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	264 m_octave_core_file_name ("octave-workspace"),
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	265 m_save_default_options ("-text"),
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	266 m_octave_core_file_options ("-binary"),
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	267 m_save_header_format_string (init_save_header_format ())
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	268 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	269 #if defined (HAVE_HDF5)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	270 H5dont_atexit ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	271 #endif
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	272 }
3688 8aea513ff224 [project @ 2000-06-29 22:50:23 by jwe] jwe parents: 3687 diff changeset	273
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	274 load_save_system::~load_save_system (void)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	275 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	276 #if defined (HAVE_HDF5)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	277 H5close ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	278 #endif
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	279 }
4171 04694e5b4239 [project @ 2002-11-12 20:27:24 by jwe] jwe parents: 4153 diff changeset	280
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	281 octave_value
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	282 load_save_system::crash_dumps_octave_core (const octave_value_list& args,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	283 int nargout)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	284 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	285 return set_internal_variable (m_crash_dumps_octave_core, args, nargout,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	286 "crash_dumps_octave_core");
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	287 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	288
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	289 octave_value
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	290 load_save_system::octave_core_file_limit (const octave_value_list& args,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	291 int nargout)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	292 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	293 return set_internal_variable (m_octave_core_file_limit, args, nargout,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	294 "octave_core_file_limit");
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	295 }
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	296
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	297 octave_value
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	298 load_save_system::octave_core_file_name (const octave_value_list& args,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	299 int nargout)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	300 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	301 return set_internal_variable (m_octave_core_file_name, args, nargout,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	302 "octave_core_file_name", false);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	303 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	304
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	305 octave_value
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	306 load_save_system::save_default_options (const octave_value_list& args,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	307 int nargout)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	308 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	309 return set_internal_variable (m_save_default_options, args, nargout,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	310 "save_default_options", false);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	311 }
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	312
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	313 octave_value
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	314 load_save_system::octave_core_file_options (const octave_value_list& args,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	315 int nargout)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	316 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	317 return set_internal_variable (m_octave_core_file_options, args, nargout,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	318 "octave_core_file_options", false);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	319 }
604 1acdc9e50cd2 [project @ 1994-08-13 20:10:39 by jwe] jwe parents: diff changeset	320
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	321 octave_value
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	322 load_save_system::save_header_format_string (const octave_value_list& args,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	323 int nargout)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	324 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	325 return set_internal_variable (m_save_header_format_string, args, nargout,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	326 "save_header_format_string");
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	327 }
5977 27dd5b29489b [project @ 2006-08-30 20:03:53 by jwe] jwe parents: 5958 diff changeset	328
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	329 load_save_format
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	330 load_save_system::get_file_format (const std::string& fname,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	331 const std::string& orig_fname,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	332 bool& use_zlib, bool quiet)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	333 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	334 load_save_format retval = UNKNOWN;
5269 a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman] dbateman parents: 5256 diff changeset	335
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	336 std::string ascii_fname = sys::get_ASCII_filename (fname);
25604 ca413f326224 Fix lifetime issues with temporary char arrays returned by get_ASCII_filename (bug #54299). Markus Mützel <markus.muetzel@gmx.de> parents: 25580 diff changeset	337
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	338 #if defined (HAVE_HDF5)
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	339 // check this before we open the file
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	340 if (H5Fis_hdf5 (ascii_fname.c_str ()) > 0)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	341 return HDF5;
20945 9d9270e2f98f eliminate comments after preprocessor conditionals John W. Eaton <jwe@octave.org> parents: 20940 diff changeset	342 #endif
604 1acdc9e50cd2 [project @ 1994-08-13 20:10:39 by jwe] jwe parents: diff changeset	343
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	344 #if defined (HAVE_ZLIB)
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	345 use_zlib = check_gzip_magic (fname);
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	346 #else
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	347 use_zlib = false;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	348 #endif
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	349
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	350 if (! use_zlib)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	351 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	352 std::ifstream file (ascii_fname.c_str (),
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	353 std::ios::in \| std::ios::binary);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	354 if (file)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	355 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	356 retval = get_file_format (file, orig_fname);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	357 file.close ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	358 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	359 else if (! quiet)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	360 err_file_open ("load", orig_fname);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	361 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	362 #if defined (HAVE_ZLIB)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	363 else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	364 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	365 gzifstream gzfile (fname.c_str (), std::ios::in \| std::ios::binary);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	366 if (gzfile)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	367 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	368 retval = get_file_format (gzfile, orig_fname);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	369 gzfile.close ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	370 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	371 else if (! quiet)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	372 err_file_open ("load", orig_fname);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	373 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	374 #endif
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	375
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	376 return retval;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	377 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	378
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	379 octave_value
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	380 load_save_system::load_vars (std::istream& stream,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	381 const std::string& orig_fname,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	382 const load_save_format& fmt,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	383 mach_info::float_format flt_fmt,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	384 bool list_only, bool swap, bool verbose,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	385 const string_vector& argv, int argv_idx,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	386 int argc, int nargout)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	387 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	388 octave_value retval;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	389
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	390 octave_scalar_map retstruct;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	391
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	392 std::ostringstream output_buf;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	393 std::list<std::string> symbol_names;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	394
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	395 octave_idx_type count = 0;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	396
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	397 for (;;)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	398 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	399 bool global = false;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	400 octave_value tc;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	401
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	402 std::string name;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	403 std::string doc;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	404
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	405 switch (fmt.type ())
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	406 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	407 case TEXT:
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	408 name = read_text_data (stream, orig_fname, global, tc, count);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	409 break;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	410
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	411 case BINARY:
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	412 name = read_binary_data (stream, swap, flt_fmt, orig_fname,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	413 global, tc, doc);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	414 break;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	415
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	416 case MAT_ASCII:
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	417 name = read_mat_ascii_data (stream, orig_fname, tc);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	418 break;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	419
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	420 case MAT_BINARY:
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	421 name = read_mat_binary_data (stream, orig_fname, tc);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	422 break;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	423
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	424 #if defined (HAVE_HDF5)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	425 case HDF5:
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	426 name = read_hdf5_data (stream, orig_fname, global, tc, doc,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	427 argv, argv_idx, argc);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	428 break;
5977 27dd5b29489b [project @ 2006-08-30 20:03:53 by jwe] jwe parents: 5958 diff changeset	429 #endif
5269 a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman] dbateman parents: 5256 diff changeset	430
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	431 case MAT5_BINARY:
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	432 case MAT7_BINARY:
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	433 name = read_mat5_binary_element (stream, orig_fname, swap,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	434 global, tc);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	435 break;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	436
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	437 default:
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	438 err_unrecognized_data_fmt ("load");
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	439 break;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	440 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	441
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	442 if (stream.eof () \|\| name.empty ())
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	443 break;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	444 else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	445 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	446 if (! tc.is_defined ())
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	447 error ("load: unable to load variable '%s'", name.c_str ());
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	448
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	449 if (fmt.type () == MAT_ASCII && argv_idx < argc)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	450 warning ("load: loaded ASCII file '%s' -- ignoring extra args",
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	451 orig_fname.c_str ());
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	452
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	453 if (fmt.type () == MAT_ASCII
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	454 \|\| argv_idx == argc
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	455 \|\| matches_patterns (argv, argv_idx, argc, name))
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	456 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	457 count++;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	458 if (list_only)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	459 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	460 if (verbose)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	461 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	462 if (count == 1)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	463 output_buf
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	464 << "type rows cols name\n"
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	465 << "==== ==== ==== ====\n";
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	466
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	467 output_buf
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	468 << std::setiosflags (std::ios::left)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	469 << std::setw (16) << tc.type_name ().c_str ()
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	470 << std::setiosflags (std::ios::right)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	471 << std::setw (7) << tc.rows ()
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	472 << std::setw (7) << tc.columns ()
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	473 << " " << name << "\n";
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	474 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	475 else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	476 symbol_names.push_back (name);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	477 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	478 else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	479 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	480 if (nargout == 1)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	481 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	482 if (fmt.type () == MAT_ASCII)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	483 retval = tc;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	484 else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	485 retstruct.assign (name, tc);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	486 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	487 else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	488 install_loaded_variable (name, tc, global, doc);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	489 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	490 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	491
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	492 // Only attempt to read one item from a headless text file.
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	493
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	494 if (fmt.type () == MAT_ASCII)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	495 break;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	496 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	497 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	498
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	499 if (list_only && count)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	500 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	501 if (verbose)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	502 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	503 std::string msg = output_buf.str ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	504
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	505 if (nargout > 0)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	506 retval = msg;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	507 else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	508 octave_stdout << msg;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	509 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	510 else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	511 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	512 if (nargout > 0)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	513 retval = Cell (string_vector (symbol_names));
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	514 else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	515 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	516 string_vector names (symbol_names);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	517
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	518 names.list_in_columns (octave_stdout);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	519
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	520 octave_stdout << "\n";
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	521 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	522 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	523 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	524 else if (retstruct.nfields () != 0)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	525 retval = retstruct;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	526
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	527 return retval;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	528 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	529
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	530 string_vector
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	531 load_save_system::parse_save_options (const string_vector& argv,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	532 load_save_format& fmt, bool& append,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	533 bool& save_as_floats, bool& use_zlib)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	534 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	535 #if ! defined (HAVE_ZLIB)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	536 octave_unused_parameter (use_zlib);
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	537 #endif
604 1acdc9e50cd2 [project @ 1994-08-13 20:10:39 by jwe] jwe parents: diff changeset	538
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	539 string_vector retval;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	540 int argc = argv.numel ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	541
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	542 bool do_double = false;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	543 bool do_tabs = false;
604 1acdc9e50cd2 [project @ 1994-08-13 20:10:39 by jwe] jwe parents: diff changeset	544
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	545 for (int i = 0; i < argc; i++)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	546 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	547 if (argv[i] == "-append")
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	548 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	549 append = true;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	550 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	551 else if (argv[i] == "-ascii" \|\| argv[i] == "-a")
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	552 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	553 fmt.set_type (MAT_ASCII);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	554 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	555 else if (argv[i] == "-double")
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	556 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	557 do_double = true;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	558 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	559 else if (argv[i] == "-tabs")
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	560 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	561 do_tabs = true;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	562 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	563 else if (argv[i] == "-text" \|\| argv[i] == "-t")
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	564 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	565 fmt.set_type (TEXT);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	566 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	567 else if (argv[i] == "-binary" \|\| argv[i] == "-b")
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	568 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	569 fmt.set_type (BINARY);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	570 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	571 else if (argv[i] == "-hdf5" \|\| argv[i] == "-h")
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	572 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	573 #if defined (HAVE_HDF5)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	574 fmt.set_type (HDF5);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	575 #else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	576 err_disabled_feature ("save", "HDF5");
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	577 #endif
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	578 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	579 else if (argv[i] == "-mat-binary" \|\| argv[i] == "-mat"
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	580 \|\| argv[i] == "-m" \|\| argv[i] == "-6" \|\| argv[i] == "-v6"
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	581 \|\| argv[i] == "-V6")
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	582 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	583 fmt.set_type (MAT5_BINARY);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	584 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	585 #if defined (HAVE_ZLIB)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	586 else if (argv[i] == "-mat7-binary" \|\| argv[i] == "-7"
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	587 \|\| argv[i] == "-v7" \|\| argv[i] == "-V7")
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	588 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	589 fmt.set_type (MAT7_BINARY);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	590 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	591 #endif
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	592 else if (argv[i] == "-mat4-binary" \|\| argv[i] == "-V4"
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	593 \|\| argv[i] == "-v4" \|\| argv[i] == "-4")
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	594 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	595 fmt.set_type (MAT_BINARY);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	596 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	597 else if (argv[i] == "-float-binary" \|\| argv[i] == "-f")
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	598 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	599 fmt.set_type (BINARY);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	600 save_as_floats = true;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	601 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	602 else if (argv[i] == "-float-hdf5")
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	603 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	604 #if defined (HAVE_HDF5)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	605 fmt.set_type (HDF5);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	606 save_as_floats = true;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	607 #else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	608 err_disabled_feature ("save", "HDF5");
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	609 #endif
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	610 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	611 #if defined (HAVE_ZLIB)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	612 else if (argv[i] == "-zip" \|\| argv[i] == "-z")
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	613 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	614 use_zlib = true;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	615 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	616 #endif
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	617 else if (argv[i] == "-struct")
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	618 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	619 retval.append (argv[i]);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	620 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	621 else if (argv[i][0] == '-' && argv[i] != "-")
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	622 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	623 error ("save: Unrecognized option '%s'", argv[i].c_str ());
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	624 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	625 else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	626 retval.append (argv[i]);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	627 }
3727 e6d0041aedf3 [project @ 2000-10-31 02:08:49 by jwe] jwe parents: 3709 diff changeset	628
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	629 if (do_double)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	630 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	631 if (fmt.type () == MAT_ASCII)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	632 fmt.set_option (MAT_ASCII_LONG);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	633 else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	634 warning (R"(save: "-double" option only has an effect with "-ascii")");
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	635 }
604 1acdc9e50cd2 [project @ 1994-08-13 20:10:39 by jwe] jwe parents: diff changeset	636
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	637 if (do_tabs)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	638 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	639 if (fmt.type () == MAT_ASCII)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	640 fmt.set_option (MAT_ASCII_TABS);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	641 else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	642 warning (R"(save: "-tabs" option only has an effect with "-ascii")");
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	643 }
4051 b79da8779a0e [project @ 2002-08-17 19:38:32 by jwe] jwe parents: 4009 diff changeset	644
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	645 return retval;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	646 }
4051 b79da8779a0e [project @ 2002-08-17 19:38:32 by jwe] jwe parents: 4009 diff changeset	647
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	648 string_vector
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	649 load_save_system::parse_save_options (const std::string& arg,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	650 load_save_format& fmt,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	651 bool& append, bool& save_as_floats,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	652 bool& use_zlib)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	653 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	654 std::istringstream is (arg);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	655 std::string str;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	656 string_vector argv;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	657
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	658 while (! is.eof ())
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	659 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	660 is >> str;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	661 argv.append (str);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	662 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	663
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	664 return parse_save_options (argv, fmt, append, save_as_floats, use_zlib);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	665 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	666
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	667 void load_save_system::save_vars (const string_vector& argv, int argv_idx,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	668 int argc, std::ostream& os,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	669 const load_save_format& fmt,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	670 bool save_as_floats,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	671 bool write_header_info)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	672 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	673 if (write_header_info)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	674 write_header (os, fmt);
604 1acdc9e50cd2 [project @ 1994-08-13 20:10:39 by jwe] jwe parents: diff changeset	675
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	676 if (argv_idx == argc)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	677 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	678 save_vars (os, "*", fmt, save_as_floats);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	679 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	680 else if (argv[argv_idx] == "-struct")
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	681 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	682 if (++argv_idx >= argc)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	683 error ("save: missing struct name");
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	684
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	685 std::string struct_name = argv[argv_idx];
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	686
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	687 symbol_scope scope = m_interpreter.get_current_scope ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	688
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	689 octave_value struct_var;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	690
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	691 if (scope)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	692 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	693 if (! scope.is_variable (struct_name))
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	694 error ("save: no such variable: '%s'", struct_name.c_str ());
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	695
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	696 struct_var = scope.varval (struct_name);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	697 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	698
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	699 if (! struct_var.isstruct () \|\| struct_var.numel () != 1)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	700 error ("save: '%s' is not a scalar structure", struct_name.c_str ());
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	701
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	702 octave_scalar_map struct_var_map = struct_var.scalar_map_value ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	703
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	704 ++argv_idx;
604 1acdc9e50cd2 [project @ 1994-08-13 20:10:39 by jwe] jwe parents: diff changeset	705
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	706 if (argv_idx < argc)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	707 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	708 for (int i = argv_idx; i < argc; i++)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	709 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	710 if (! save_fields (os, struct_var_map, argv[i], fmt,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	711 save_as_floats))
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	712 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	713 warning ("save: no such field '%s.%s'",
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	714 struct_name.c_str (), argv[i].c_str ());
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	715 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	716 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	717 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	718 else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	719 save_fields (os, struct_var_map, "*", fmt, save_as_floats);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	720 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	721 else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	722 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	723 for (int i = argv_idx; i < argc; i++)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	724 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	725 if (argv[i] == "")
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	726 continue; // Skip empty vars for Matlab compatibility
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	727 if (! save_vars (os, argv[i], fmt, save_as_floats))
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	728 warning ("save: no such variable '%s'", argv[i].c_str ());
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	729 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	730 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	731 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	732
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	733 void load_save_system::dump_octave_core (void)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	734 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	735 if (m_crash_dumps_octave_core)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	736 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	737 // FIXME: should choose better filename?
604 1acdc9e50cd2 [project @ 1994-08-13 20:10:39 by jwe] jwe parents: diff changeset	738
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	739 const char *fname = m_octave_core_file_name.c_str ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	740
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	741 message (nullptr, "attempting to save variables to '%s'...", fname);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	742
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	743 load_save_format fmt (BINARY);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	744
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	745 bool save_as_floats = false;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	746
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	747 bool append = false;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	748
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	749 bool use_zlib = false;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	750
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	751 load_save_system::parse_save_options (m_octave_core_file_options,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	752 fmt, append, save_as_floats,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	753 use_zlib);
604 1acdc9e50cd2 [project @ 1994-08-13 20:10:39 by jwe] jwe parents: diff changeset	754
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	755 std::ios::openmode mode = std::ios::out;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	756
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	757 // Matlab v7 files are always compressed
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	758 if (fmt.type () == MAT7_BINARY)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	759 use_zlib = false;
2511 9b0dd36714eb [project @ 1996-11-14 02:57:33 by jwe] jwe parents: 2499 diff changeset	760
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	761 if (fmt.type () == BINARY
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	762 #if defined (HAVE_HDF5)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	763 \|\| fmt.type () == HDF5
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	764 #endif
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	765 \|\| fmt.type () == MAT_BINARY
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	766 \|\| fmt.type () == MAT5_BINARY
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	767 \|\| fmt.type () == MAT7_BINARY)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	768 mode \|= std::ios::binary;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	769
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	770 mode \|= append ? std::ios::ate : std::ios::trunc;
604 1acdc9e50cd2 [project @ 1994-08-13 20:10:39 by jwe] jwe parents: diff changeset	771
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	772 #if defined (HAVE_HDF5)
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	773 if (fmt.type () == HDF5)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	774 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	775 hdf5_ofstream file (fname, mode);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	776
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	777 if (file.file_id >= 0)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	778 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	779 dump_octave_core (file, fname, fmt, save_as_floats);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	780
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	781 file.close ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	782 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	783 else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	784 warning ("dump_octave_core: unable to open '%s' for writing...",
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	785 fname);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	786 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	787 else
20945 9d9270e2f98f eliminate comments after preprocessor conditionals John W. Eaton <jwe@octave.org> parents: 20940 diff changeset	788 #endif
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	789 // don't insert any commands here! The open brace below must
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	790 // go with the else above!
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	791 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	792 #if defined (HAVE_ZLIB)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	793 if (use_zlib)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	794 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	795 gzofstream file (fname, mode);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	796
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	797 if (file)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	798 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	799 dump_octave_core (file, fname, fmt, save_as_floats);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	800
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	801 file.close ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	802 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	803 else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	804 warning ("dump_octave_core: unable to open '%s' for writing...",
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	805 fname);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	806 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	807 else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	808 #endif
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	809 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	810 std::ofstream file (fname, mode);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	811
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	812 if (file)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	813 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	814 dump_octave_core (file, fname, fmt, save_as_floats);
3687 b5a285d1c1f4 [project @ 2000-06-29 21:33:00 by jwe] jwe parents: 3682 diff changeset	815
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	816 file.close ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	817 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	818 else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	819 warning ("dump_octave_core: unable to open '%s' for writing...",
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	820 fname);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	821 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	822 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	823 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	824 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	825
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	826 void load_save_system::write_header (std::ostream& os,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	827 const load_save_format& fmt)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	828 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	829 switch (fmt.type ())
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	830 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	831 case BINARY:
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	832 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	833 os << (mach_info::words_big_endian ()
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	834 ? "Octave-1-B" : "Octave-1-L");
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	835
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	836 mach_info::float_format flt_fmt =
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	837 mach_info::native_float_format ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	838
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	839 char tmp = static_cast<char> (float_format_to_mopt_digit (flt_fmt));
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	840
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	841 os.write (&tmp, 1);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	842 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	843 break;
3688 8aea513ff224 [project @ 2000-06-29 22:50:23 by jwe] jwe parents: 3687 diff changeset	844
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	845 case MAT5_BINARY:
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	846 case MAT7_BINARY:
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	847 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	848 char const *versionmagic;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	849 char headertext[128];
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	850 sys::gmtime now;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	851
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	852 // ISO 8601 format date
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	853 const char *matlab_format = "MATLAB 5.0 MAT-file, written by Octave "
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	854 OCTAVE_VERSION ", %Y-%m-%d %T UTC";
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	855 std::string comment_string = now.strftime (matlab_format);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	856
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	857 size_t len = std::min (comment_string.length (), static_cast<size_t> (124));
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	858 memset (headertext, ' ', 124);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	859 memcpy (headertext, comment_string.data (), len);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	860
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	861 // The first pair of bytes give the version of the MAT file
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	862 // format. The second pair of bytes form a magic number which
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	863 // signals a MAT file. MAT file data are always written in
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	864 // native byte order. The order of the bytes in the second
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	865 // pair indicates whether the file was written by a big- or
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	866 // little-endian machine. However, the version number is
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	867 // written in the opposite byte order from everything else!
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	868 if (mach_info::words_big_endian ())
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	869 versionmagic = "\x01\x00\x4d\x49"; // this machine is big endian
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	870 else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	871 versionmagic = "\x00\x01\x49\x4d"; // this machine is little endian
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	872
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	873 memcpy (headertext+124, versionmagic, 4);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	874 os.write (headertext, 128);
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10309 diff changeset	875 }
604 1acdc9e50cd2 [project @ 1994-08-13 20:10:39 by jwe] jwe parents: diff changeset	876
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10309 diff changeset	877 break;
20962 3aa293be0e8d maint: Invert simple conditionals in if/else/error paradigm. Rik <rik@octave.org> parents: 20956 diff changeset	878
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	879 #if defined (HAVE_HDF5)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	880 case HDF5:
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	881 #endif
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	882 case TEXT:
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	883 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	884 sys::localtime now;
3136 af7ec9d3a5e6 [project @ 1998-02-01 20:11:06 by jwe] jwe parents: 3131 diff changeset	885
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	886 std::string comment_string = now.strftime (m_save_header_format_string);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	887
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	888 if (! comment_string.empty ())
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10309 diff changeset	889 {
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	890 #if defined (HAVE_HDF5)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	891 if (fmt.type () == HDF5)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10309 diff changeset	892 {
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	893 hdf5_ofstream& hs = dynamic_cast<hdf5_ofstream&> (os);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	894 H5Gset_comment (hs.file_id, "/", comment_string.c_str ());
20962 3aa293be0e8d maint: Invert simple conditionals in if/else/error paradigm. Rik <rik@octave.org> parents: 20956 diff changeset	895 }
3aa293be0e8d maint: Invert simple conditionals in if/else/error paradigm. Rik <rik@octave.org> parents: 20956 diff changeset	896 else
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	897 #endif
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	898 os << comment_string << "\n";
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	899 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	900 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	901 break;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	902
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	903 default:
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	904 break;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	905 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	906 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	907
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	908 // Save variables with names matching PATTERN on stream OS in the
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	909 // format specified by FMT.
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	910
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	911 size_t load_save_system::save_vars (std::ostream& os,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	912 const std::string& pattern,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	913 const load_save_format& fmt,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	914 bool save_as_floats)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	915 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	916 symbol_scope scope
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	917 = m_interpreter.require_current_scope ("load_save_system::save_vars");
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	918
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	919 symbol_record::context_id context = scope.current_context ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	920
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	921 std::list<symbol_record> vars = scope.glob (pattern);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	922
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	923 size_t saved = 0;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	924
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	925 for (const auto& var : vars)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	926 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	927 do_save (os, var, context, fmt, save_as_floats);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	928
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	929 saved++;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	930 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	931
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	932 return saved;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	933 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	934
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	935 void load_save_system::do_save (std::ostream& os, const octave_value& tc,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	936 const std::string& name,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	937 const std::string& help,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	938 bool global, const load_save_format& fmt,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	939 bool save_as_floats)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	940 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	941 switch (fmt.type ())
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	942 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	943 case TEXT:
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	944 save_text_data (os, tc, name, global, 0);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	945 break;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	946
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	947 case BINARY:
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	948 save_binary_data (os, tc, name, help, global, save_as_floats);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	949 break;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	950
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	951 case MAT_ASCII:
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	952 if (! save_mat_ascii_data (os, tc,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	953 fmt.options () & MAT_ASCII_LONG ? 16 : 8,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	954 fmt.options () & MAT_ASCII_TABS))
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	955 warning ("save: unable to save %s in ASCII format", name.c_str ());
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	956 break;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	957
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	958 case MAT_BINARY:
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	959 save_mat_binary_data (os, tc, name);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	960 break;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	961
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	962 #if defined (HAVE_HDF5)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	963 case HDF5:
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	964 save_hdf5_data (os, tc, name, help, global, save_as_floats);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	965 break;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	966 #endif
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	967
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	968 case MAT5_BINARY:
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	969 save_mat5_binary_element (os, tc, name, global, false, save_as_floats);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	970 break;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	971
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	972 case MAT7_BINARY:
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	973 save_mat5_binary_element (os, tc, name, global, true, save_as_floats);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	974 break;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	975
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	976 default:
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	977 err_unrecognized_data_fmt ("save");
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	978 break;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	979 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	980 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	981
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	982 // Save the info from SR on stream OS in the format specified by FMT.
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	983
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	984 void load_save_system::do_save (std::ostream& os,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	985 const symbol_record& sr,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	986 symbol_record::context_id context,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	987 const load_save_format& fmt,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	988 bool save_as_floats)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	989 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	990 octave_value val = sr.varval (context);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	991
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	992 if (val.is_defined ())
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	993 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	994 std::string name = sr.name ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	995 std::string help;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	996 bool global = sr.is_global ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	997
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	998 do_save (os, val, name, help, global, fmt, save_as_floats);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	999 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1000 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1001
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1002 // save fields of a scalar structure STR matching PATTERN on stream OS
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1003 // in the format specified by FMT.
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1004
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1005 size_t load_save_system::save_fields (std::ostream& os,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1006 const octave_scalar_map& m,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1007 const std::string& pattern,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1008 const load_save_format& fmt,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1009 bool save_as_floats)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1010 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1011 glob_match pat (pattern);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1012
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1013 size_t saved = 0;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1014
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1015 for (auto it = m.begin (); it != m.end (); it++)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1016 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1017 std::string empty_str;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1018
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1019 if (pat.match (m.key (it)))
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1020 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1021 do_save (os, m.contents (it), m.key (it), empty_str,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1022 0, fmt, save_as_floats);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1023
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1024 saved++;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1025 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1026 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1027
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1028 return saved;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1029 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1030
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1031 void load_save_system::dump_octave_core (std::ostream& os,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1032 const char *fname,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1033 const load_save_format& fmt,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1034 bool save_as_floats)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1035 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1036 write_header (os, fmt);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1037
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1038 symbol_table& symtab = m_interpreter.get_symbol_table ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1039
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1040 symbol_scope top_scope = symtab.top_scope ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1041
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1042 symbol_record::context_id context = top_scope.current_context ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1043
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1044 std::list<symbol_record> vars = top_scope.all_variables ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1045
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1046 double save_mem_size = 0;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1047
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1048 for (const auto& var : vars)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1049 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1050 octave_value val = var.varval (context);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1051
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1052 if (val.is_defined ())
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1053 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1054 std::string name = var.name ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1055 std::string help;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1056 bool global = var.is_global ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1057
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1058 double val_size = val.byte_size () / 1024;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1059
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1060 // FIXME: maybe we should try to throw out the largest first...
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1061
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1062 if (m_octave_core_file_limit < 0
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1063 \|\| save_mem_size + val_size < m_octave_core_file_limit)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1064 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1065 save_mem_size += val_size;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1066
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1067 do_save (os, val, name, help, global, fmt, save_as_floats);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1068 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1069 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1070 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1071
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1072 message (nullptr, "save to '%s' complete", fname);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1073 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1074
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1075 // Install a variable with name NAME and the value VAL in the
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1076 // symbol table. If GLOBAL is TRUE, make the variable global.
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1077
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1078 void load_save_system::install_loaded_variable (const std::string& name,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1079 const octave_value& val,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1080 bool global,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1081 const std::string& /doc/)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1082 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1083 symbol_table& symtab = m_interpreter.get_symbol_table ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1084
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1085 symbol_scope scope = symtab.require_current_scope ("load_save_system::install_loaded_variable");
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1086
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1087 if (global)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1088 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1089 symbol_record sym = scope.find_symbol (name);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1090
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1091 if (! sym.is_global ())
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1092 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1093 symbol_scope global_scope = symtab.global_scope ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1094 symbol_record global_sym = global_scope.find_symbol (name);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1095
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1096 sym.bind_fwd_rep (global_scope.get_rep (), global_sym);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1097 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1098 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1099
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1100 scope.assign (name, val);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1101 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1102
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1103 std::string load_save_system::init_save_header_format (void)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1104 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1105 return
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1106 (std::string ("# Created by Octave " OCTAVE_VERSION
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1107 ", %a %b %d %H:%M:%S %Y %Z <")
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1108 + sys::env::get_user_name ()
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1109 + '@'
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1110 + sys::env::get_host_name ()
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1111 + '>');
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1112 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1113
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1114 load_save_format
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1115 load_save_system::get_file_format (std::istream& file,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1116 const std::string& filename)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1117 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1118 load_save_format retval = load_save_system::UNKNOWN;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1119
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1120 mach_info::float_format flt_fmt
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1121 = mach_info::flt_fmt_unknown;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1122
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1123 bool swap = false;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1124
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1125 if (read_binary_file_header (file, swap, flt_fmt, true) == 0)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1126 retval = BINARY;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1127 else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1128 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1129 file.clear ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1130 file.seekg (0, std::ios::beg);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1131
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1132 int32_t mopt, nr, nc, imag, len;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1133
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1134 int err = read_mat_file_header (file, swap, mopt, nr, nc, imag, len,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1135 true);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1136
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1137 if (! err)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1138 retval = MAT_BINARY;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1139 else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1140 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1141 file.clear ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1142 file.seekg (0, std::ios::beg);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1143
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1144 err = read_mat5_binary_file_header (file, swap, true, filename);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1145
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1146 if (! err)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1147 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1148 file.clear ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1149 file.seekg (0, std::ios::beg);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1150 retval = MAT5_BINARY;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1151 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1152 else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1153 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1154 file.clear ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1155 file.seekg (0, std::ios::beg);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1156
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1157 std::string name_val = extract_keyword (file, "name");
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1158 std::string type_val = extract_keyword (file, "type");
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1159
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1160 if (name_val.empty () != true && type_val.empty () != true)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1161 retval = TEXT;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1162 else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1163 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1164 file.clear ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1165 file.seekg (0, std::ios::beg);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1166
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1167 // FIXME: looks_like_mat_ascii_file does not check
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1168 // to see whether the file contains numbers. It
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1169 // just skips comments and checks for the same
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1170 // number of words on each line. We may need a
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1171 // better check here. The best way to do that might
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1172 // be just to try to read the file and see if it
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1173 // works.
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1174
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1175 if (looks_like_mat_ascii_file (file, filename))
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1176 retval = MAT_ASCII;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1177 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1178 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1179 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1180 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1181
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1182 return retval;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1183 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1184
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1185 octave_value_list
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1186 load_save_system::load (const octave_value_list& args, int nargout)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1187 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1188 octave_value_list retval;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1189
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1190 int argc = args.length () + 1;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1191
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1192 string_vector argv = args.make_argv ("load");
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1193
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1194 int i = 1;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1195 std::string orig_fname = "";
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1196
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1197 // Function called with Matlab-style ["filename", options] syntax
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1198 if (argc > 1 && ! argv[1].empty () && argv[1].at (0) != '-')
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1199 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1200 orig_fname = argv[1];
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1201 i++;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1202 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1203
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1204 // It isn't necessary to have the default load format stored in a
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1205 // user preference variable since we can determine the type of file
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1206 // as we are reading.
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1207
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1208 load_save_format format = UNKNOWN;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1209
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1210 bool list_only = false;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1211 bool verbose = false;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1212
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1213 for (; i < argc; i++)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1214 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1215 if (argv[i] == "-force" \|\| argv[i] == "-f")
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1216 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1217 // Silently ignore this
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1218 // warning ("load: -force ignored");
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1219 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1220 else if (argv[i] == "-list" \|\| argv[i] == "-l")
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1221 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1222 list_only = true;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1223 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1224 else if (argv[i] == "-verbose" \|\| argv[i] == "-v")
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1225 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1226 verbose = true;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1227 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1228 else if (argv[i] == "-ascii" \|\| argv[i] == "-a")
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1229 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1230 format = MAT_ASCII;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1231 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1232 else if (argv[i] == "-binary" \|\| argv[i] == "-b")
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1233 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1234 format = BINARY;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1235 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1236 else if (argv[i] == "-mat-binary" \|\| argv[i] == "-mat"
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1237 \|\| argv[i] == "-m" \|\| argv[i] == "-6" \|\| argv[i] == "-v6")
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1238 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1239 format = MAT5_BINARY;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1240 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1241 else if (argv[i] == "-7" \|\| argv[i] == "-v7")
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1242 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1243 format = MAT7_BINARY;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1244 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1245 else if (argv[i] == "-mat4-binary" \|\| argv[i] == "-V4"
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1246 \|\| argv[i] == "-v4" \|\| argv[i] == "-4")
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1247 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1248 format = MAT_BINARY;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1249 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1250 else if (argv[i] == "-hdf5" \|\| argv[i] == "-h")
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1251 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1252 #if defined (HAVE_HDF5)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1253 format = HDF5;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1254 #else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1255 err_disabled_feature ("load", "HDF5");
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1256 #endif
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1257 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1258 else if (argv[i] == "-import" \|\| argv[i] == "-i")
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1259 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1260 warning ("load: -import ignored");
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1261 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1262 else if (argv[i] == "-text" \|\| argv[i] == "-t")
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1263 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1264 format = TEXT;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1265 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1266 else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1267 break;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1268 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1269
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1270 if (orig_fname == "")
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1271 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1272 if (i == argc)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1273 print_usage ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1274
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1275 orig_fname = argv[i];
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1276 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1277 else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1278 i--;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1279
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1280 mach_info::float_format flt_fmt = mach_info::flt_fmt_unknown;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1281
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1282 bool swap = false;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1283
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1284 if (orig_fname == "-")
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1285 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1286 i++;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1287
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1288 #if defined (HAVE_HDF5)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1289 if (format.type () == HDF5)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1290 error ("load: cannot read HDF5 format from stdin");
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1291 else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1292 #endif
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1293 if (format.type () != UNKNOWN)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1294 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1295 // FIXME: if we have already seen EOF on a previous call,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1296 // how do we fix up the state of std::cin so that we can get
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1297 // additional input? I'm afraid that we can't fix this
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1298 // using std::cin only.
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1299
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1300 retval = load_vars (std::cin, orig_fname, format, flt_fmt,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1301 list_only, swap, verbose, argv, i,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1302 argc, nargout);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1303 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1304 else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1305 error ("load: must specify file format if reading from stdin");
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1306 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1307 else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1308 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1309 std::string fname = sys::file_ops::tilde_expand (orig_fname);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1310
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1311 fname = find_file_to_load (fname, orig_fname);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1312
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1313 bool use_zlib = false;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1314
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1315 if (format.type () == UNKNOWN)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1316 format = get_file_format (fname, orig_fname, use_zlib);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1317
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1318 #if defined (HAVE_HDF5)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1319 if (format.type () == HDF5)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1320 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1321 i++;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1322
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1323 hdf5_ifstream hdf5_file (fname.c_str ());
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1324
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1325 if (hdf5_file.file_id < 0)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1326 err_file_open ("load", orig_fname);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1327
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1328 retval = load_vars (hdf5_file, orig_fname, format, flt_fmt,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1329 list_only, swap, verbose, argv, i,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1330 argc, nargout);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1331
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1332 hdf5_file.close ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1333 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1334 else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1335 #endif
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1336 // don't insert any statements here; the "else" above has to
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1337 // go with the "if" below!!!!!
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1338 if (format.type () != UNKNOWN)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1339 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1340 i++;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1341
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1342 // Always open in binary mode and handle various
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1343 // line-endings explicitly.
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1344 std::ios::openmode mode = std::ios::in \| std::ios::binary;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1345
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1346 #if defined (HAVE_ZLIB)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1347 if (use_zlib)
20962 3aa293be0e8d maint: Invert simple conditionals in if/else/error paradigm. Rik <rik@octave.org> parents: 20956 diff changeset	1348 {
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1349 gzifstream file (fname.c_str (), mode);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1350
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1351 if (! file)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1352 err_file_open ("load", orig_fname);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1353
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1354 if (format.type () == BINARY)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10309 diff changeset	1355 {
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1356 if (read_binary_file_header (file, swap, flt_fmt) < 0)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1357 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1358 if (file) file.close ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1359 return retval;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1360 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1361 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1362 else if (format.type () == MAT5_BINARY
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1363 \|\| format.type () == MAT7_BINARY)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1364 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1365 if (read_mat5_binary_file_header (file, swap, false,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1366 orig_fname) < 0)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1367 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1368 if (file) file.close ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1369 return retval;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1370 }
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10309 diff changeset	1371 }
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1372
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1373 retval = load_vars (file, orig_fname, format, flt_fmt,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1374 list_only, swap, verbose, argv, i,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1375 argc, nargout);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1376
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1377 file.close ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1378 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1379 else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1380 #endif
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1381 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1382 std::string ascii_fname = sys::get_ASCII_filename (fname);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1383
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1384 std::ifstream file (ascii_fname.c_str (), mode);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1385
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1386 if (! file)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1387 error ("load: unable to open input file '%s'",
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1388 orig_fname.c_str ());
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1389
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1390 if (format.type () == BINARY)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1391 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1392 if (read_binary_file_header (file, swap, flt_fmt) < 0)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1393 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1394 if (file) file.close ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1395 return retval;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1396 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1397 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1398 else if (format.type () == MAT5_BINARY
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1399 \|\| format.type () == MAT7_BINARY)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1400 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1401 if (read_mat5_binary_file_header (file, swap, false,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1402 orig_fname) < 0)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1403 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1404 if (file) file.close ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1405 return retval;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1406 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1407 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1408
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1409 retval = load_vars (file, orig_fname, format, flt_fmt,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1410 list_only, swap, verbose, argv, i,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1411 argc, nargout);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1412
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1413 file.close ();
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10309 diff changeset	1414 }
20962 3aa293be0e8d maint: Invert simple conditionals in if/else/error paradigm. Rik <rik@octave.org> parents: 20956 diff changeset	1415 }
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1416 else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1417 error ("load: unable to determine file format of '%s'",
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1418 orig_fname.c_str ());
2511 9b0dd36714eb [project @ 1996-11-14 02:57:33 by jwe] jwe parents: 2499 diff changeset	1419
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1420 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1421
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1422 return retval;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1423 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1424
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1425 octave_value_list
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1426 load_save_system::save (const octave_value_list& args, int nargout)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1427 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1428 // Here is where we would get the default save format if it were
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1429 // stored in a user preference variable.
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1430 load_save_format format = TEXT;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1431 bool save_as_floats = false;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1432 bool append = false;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1433 bool use_zlib = false;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1434
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1435
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1436 // get default options
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1437 parse_save_options (save_default_options (), format, append,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1438 save_as_floats, use_zlib);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1439
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1440 // override from command line
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1441 string_vector argv = args.make_argv ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1442
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1443 argv = parse_save_options (argv, format, append, save_as_floats, use_zlib);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1444
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1445 int argc = argv.numel ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1446 int i = 0;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1447
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1448 if (i == argc)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1449 print_usage ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1450
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1451 if (save_as_floats && format.type () == TEXT)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1452 error ("save: cannot specify both -text and -float-binary");
2511 9b0dd36714eb [project @ 1996-11-14 02:57:33 by jwe] jwe parents: 2499 diff changeset	1453
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1454 octave_value_list retval;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1455
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1456 if (argv[i] == "-")
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1457 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1458 i++;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1459
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1460 #if defined (HAVE_HDF5)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1461 if (format.type () == HDF5)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1462 error ("save: cannot write HDF5 format to stdout");
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1463 else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1464 #endif
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1465 // don't insert any commands here! the brace below must go
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1466 // with the "else" above!
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1467 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1468 if (append)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1469 warning ("save: ignoring -append option for output to stdout");
604 1acdc9e50cd2 [project @ 1994-08-13 20:10:39 by jwe] jwe parents: diff changeset	1470
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1471 if (nargout == 0)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1472 save_vars (argv, i, argc, std::cout, format,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1473 save_as_floats, true);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1474 else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1475 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1476 std::ostringstream output_buf;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1477 save_vars (argv, i, argc, output_buf, format,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1478 save_as_floats, true);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1479 retval = octave_value (output_buf.str());
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1480 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1481 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1482 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1483
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1484 // Guard against things like 'save a*', which are probably mistakes...
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1485
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1486 else if (i == argc - 1 && glob_pattern_p (argv[i]))
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1487 print_usage ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1488 else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1489 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1490 std::string fname = sys::file_ops::tilde_expand (argv[i]);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1491
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1492 i++;
2095 36903d507b0e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: 2086 diff changeset	1493
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1494 // Matlab v7 files are always compressed
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1495 if (format.type () == MAT7_BINARY)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1496 use_zlib = false;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1497
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1498 std::ios::openmode mode
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1499 = (append ? (std::ios::app \| std::ios::ate) : std::ios::out);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1500
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1501 if (format.type () == BINARY
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1502 #if defined (HAVE_HDF5)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1503 \|\| format.type () == HDF5
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1504 #endif
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1505 \|\| format.type () == MAT_BINARY
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1506 \|\| format.type () == MAT5_BINARY
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1507 \|\| format.type () == MAT7_BINARY)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1508 mode \|= std::ios::binary;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1509
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1510 #if defined (HAVE_HDF5)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1511 if (format.type () == HDF5)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1512 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1513 // FIXME: It should be possible to append to HDF5 files.
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1514 if (append)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1515 error ("save: appending to HDF5 files is not implemented");
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1516
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1517 std::string ascii_fname = sys::get_ASCII_filename (fname);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1518
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1519 bool write_header_info
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1520 = ! (append && H5Fis_hdf5 (ascii_fname.c_str ()) > 0);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1521
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1522 hdf5_ofstream hdf5_file (fname.c_str (), mode);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1523
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1524 if (hdf5_file.file_id == -1)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1525 err_file_open ("save", fname);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1526
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1527 save_vars (argv, i, argc, hdf5_file, format, save_as_floats,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1528 write_header_info);
7779 791231dac333 Add regexp matching to Fwho and Fclear David Bateman <dbateman@free.fr> parents: 7767 diff changeset	1529
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1530 hdf5_file.close ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1531 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1532 else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1533 #endif
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1534 // don't insert any statements here! The brace below must go
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1535 // with the "else" above!
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1536 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1537 #if defined (HAVE_ZLIB)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1538 if (use_zlib)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1539 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1540 gzofstream file (fname.c_str (), mode);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1541
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1542 if (! file)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1543 err_file_open ("save", fname);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1544
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1545 bool write_header_info = ! file.tellp ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1546
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1547 save_vars (argv, i, argc, file, format, save_as_floats,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1548 write_header_info);
7779 791231dac333 Add regexp matching to Fwho and Fclear David Bateman <dbateman@free.fr> parents: 7767 diff changeset	1549
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1550 file.close ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1551 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1552 else
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1553 #endif
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1554 {
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1555 std::ofstream file (fname.c_str (), mode);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1556
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1557 if (! file)
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1558 err_file_open ("save", fname);
621 9e90d4df19e2 [project @ 1994-08-16 14:55:18 by jwe] jwe parents: 620 diff changeset	1559
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1560 bool write_header_info = ! file.tellp ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1561
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1562 save_vars (argv, i, argc, file, format, save_as_floats,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1563 write_header_info);
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1564
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1565 file.close ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1566 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1567 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1568 }
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1569
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1570 return retval;
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1571 }
863 a2e030473d6d [project @ 1994-10-31 23:41:05 by jwe] jwe parents: 777 diff changeset	1572 }
a2e030473d6d [project @ 1994-10-31 23:41:05 by jwe] jwe parents: 777 diff changeset	1573
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1574 void
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1575 dump_octave_core (void)
6159 645605133a6f [project @ 2006-11-14 02:55:05 by jwe] jwe parents: 5977 diff changeset	1576 {
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1577 octave::load_save_system& load_save_sys
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1578 = octave::__get_load_save_system__ ("dump_octave_core");
6159 645605133a6f [project @ 2006-11-14 02:55:05 by jwe] jwe parents: 5977 diff changeset	1579
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1580 load_save_sys.dump_octave_core ();
6159 645605133a6f [project @ 2006-11-14 02:55:05 by jwe] jwe parents: 5977 diff changeset	1581 }
645605133a6f [project @ 2006-11-14 02:55:05 by jwe] jwe parents: 5977 diff changeset	1582
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1583 DEFMETHOD (load, interp, args, nargout,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1584 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1585 @deftypefn {} {} load file
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1586 @deftypefnx {} {} load options file
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1587 @deftypefnx {} {} load options file v1 v2 @dots{}
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1588 @deftypefnx {} {S =} load ("options", "file", "v1", "v2", @dots{})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1589 @deftypefnx {} {} load file options
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1590 @deftypefnx {} {} load file options v1 v2 @dots{}
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1591 @deftypefnx {} {S =} load ("file", "options", "v1", "v2", @dots{})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1592 Load the named variables @var{v1}, @var{v2}, @dots{}, from the file
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1593 @var{file}.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1594
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1595 If no variables are specified then all variables found in the
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1596 file will be loaded. As with @code{save}, the list of variables to extract
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1597 can be full names or use a pattern syntax. The format of the file is
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1598 automatically detected but may be overridden by supplying the appropriate
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1599 option.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1600
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1601 If load is invoked using the functional form
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1602
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1603 @example
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1604 load ("-option1", @dots{}, "file", "v1", @dots{})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1605 @end example
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1606
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1607 @noindent
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1608 then the @var{options}, @var{file}, and variable name arguments
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1609 (@var{v1}, @dots{}) must be specified as character strings.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1610
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1611 If a variable that is not marked as global is loaded from a file when a
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1612 global symbol with the same name already exists, it is loaded in the
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1613 global symbol table. Also, if a variable is marked as global in a file
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1614 and a local symbol exists, the local symbol is moved to the global
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1615 symbol table and given the value from the file.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1616
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1617 If invoked with a single output argument, Octave returns data instead
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1618 of inserting variables in the symbol table. If the data file contains
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1619 only numbers (TAB- or space-delimited columns), a matrix of values is
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1620 returned. Otherwise, @code{load} returns a structure with members
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1621 corresponding to the names of the variables in the file.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1622
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1623 The @code{load} command can read data stored in Octave's text and
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1624 binary formats, and @sc{matlab}'s binary format. If compiled with zlib
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1625 support, it can also load gzip-compressed files. It will automatically
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1626 detect the type of file and do conversion from different floating point
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1627 formats (currently only IEEE big and little endian, though other formats
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1628 may be added in the future).
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1629
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1630 Valid options for @code{load} are listed in the following table.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1631
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1632 @table @code
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1633 @item -force
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1634 This option is accepted for backward compatibility but is ignored.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1635 Octave now overwrites variables currently in memory with
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1636 those of the same name found in the file.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1637
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1638 @item -ascii
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1639 Force Octave to assume the file contains columns of numbers in text format
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1640 without any header or other information. Data in the file will be loaded
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1641 as a single numeric matrix with the name of the variable derived from the
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1642 name of the file.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1643
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1644 @item -binary
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1645 Force Octave to assume the file is in Octave's binary format.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1646
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1647 @item -hdf5
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1648 Force Octave to assume the file is in @sc{hdf5} format.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1649 (@sc{hdf5} is a free, portable binary format developed by the National
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1650 Center for Supercomputing Applications at the University of Illinois.)
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1651 Note that Octave can read @sc{hdf5} files not created by itself, but may
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1652 skip some datasets in formats that it cannot support. This format is
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1653 only available if Octave was built with a link to the @sc{hdf5} libraries.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1654
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1655 @item -import
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1656 This option is accepted for backward compatibility but is ignored.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1657 Octave can now support multi-dimensional HDF data and automatically
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1658 modifies variable names if they are invalid Octave identifiers.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1659
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1660 @item -mat
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1661 @itemx -mat-binary
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1662 @itemx -6
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1663 @itemx -v6
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1664 @itemx -7
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1665 @itemx -v7
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1666 Force Octave to assume the file is in @sc{matlab}'s version 6 or 7 binary
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1667 format.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1668
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1669 @item -mat4-binary
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1670 @itemx -4
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1671 @itemx -v4
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1672 @itemx -V4
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1673 Force Octave to assume the file is in the binary format written by
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1674 @sc{matlab} version 4.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1675
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1676 @item -text
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1677 Force Octave to assume the file is in Octave's text format.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1678 @end table
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1679 @seealso{save, dlmwrite, csvwrite, fwrite}
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1680 @end deftypefn */)
863 a2e030473d6d [project @ 1994-10-31 23:41:05 by jwe] jwe parents: 777 diff changeset	1681 {
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1682 octave::load_save_system& load_save_sys = interp.get_load_save_system ();
25604 ca413f326224 Fix lifetime issues with temporary char arrays returned by get_ASCII_filename (bug #54299). Markus Mützel <markus.muetzel@gmx.de> parents: 25580 diff changeset	1683
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1684 return load_save_sys.load (args, nargout);
604 1acdc9e50cd2 [project @ 1994-08-13 20:10:39 by jwe] jwe parents: diff changeset	1685 }
1acdc9e50cd2 [project @ 1994-08-13 20:10:39 by jwe] jwe parents: diff changeset	1686
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1687 DEFMETHOD (save, interp, args, nargout,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1688 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1689 @deftypefn {} {} save file
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1690 @deftypefnx {} {} save options file
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1691 @deftypefnx {} {} save options file @var{v1} @var{v2} @dots{}
23985 aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1692 @deftypefnx {} {} save options file -struct @var{STRUCT}
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1693 @deftypefnx {} {} save options file -struct @var{STRUCT} @var{f1} @var{f2} @dots{}
23047 97a9fd0af57b doc: Don't use @code in @deftypefn because it expands badly in plain text format. Rik <rik@octave.org> parents: 22407 diff changeset	1694 @deftypefnx {} {} save - @var{v1} @var{v2} @dots{}
97a9fd0af57b doc: Don't use @code in @deftypefn because it expands badly in plain text format. Rik <rik@octave.org> parents: 22407 diff changeset	1695 @deftypefnx {} {@var{str} =} save ("-", @qcode{"@var{v1}"}, @qcode{"@var{v2}"}, @dots{})
23985 aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1696 Save the named variables @var{v1}, @var{v2}, @dots{}, in the file @var{file}.
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1697
23985 aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1698 The special filename @samp{-} may be used to return the content of the
aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1699 variables as a string. If no variable names are listed, Octave saves all the
aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1700 variables in the current scope. Otherwise, full variable names or pattern
aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1701 syntax can be used to specify the variables to save. If the @option{-struct}
aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1702 modifier is used then the fields of the @strong{scalar} struct are saved as if
aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1703 they were variables with the corresponding field names. The @option{-struct}
aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1704 option can be combined with specific field names @var{f1}, @var{f2}, @dots{} to
aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1705 write only certain fields to the file.
aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1706
aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1707 Valid options for the @code{save} command are listed in the following table.
aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1708 Options that modify the output format override the format specified by
aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1709 @code{save_default_options}.
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1710
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1711 If save is invoked using the functional form
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1712
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1713 @example
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1714 save ("-option1", @dots{}, "file", "v1", @dots{})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1715 @end example
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1716
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1717 @noindent
23985 aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1718 then the @var{options}, @var{file}, and variable name arguments (@var{v1},
aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1719 @dots{}) must be specified as character strings.
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1720
23985 aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1721 If called with a filename of @qcode{"-"}, write the output to stdout if nargout
aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1722 is 0, otherwise return the output in a character string.
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1723
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1724 @table @code
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1725 @item -append
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1726 Append to the destination instead of overwriting.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1727
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1728 @item -ascii
23985 aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1729 Save a matrix in a text file without a header or any other information. The
aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1730 matrix must be 2-D and only the real part of any complex value is written to
aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1731 the file. Numbers are stored in single-precision format and separated by
24986 0b9e7fcaab91 doc: grammarcheck docstrings in C++ files ahead of 4.4 release. Rik <rik@octave.org> parents: 24534 diff changeset	1732 spaces. Additional options for the @option{-ascii} format are
23985 aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1733
aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1734 @table @code
aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1735 @item -double
aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1736 Store numbers in double-precision format.
aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1737
aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1738 @item -tabs
aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1739 Separate numbers with tabs.
aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1740 @end table
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1741
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1742 @item -binary
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1743 Save the data in Octave's binary data format.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1744
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1745 @item -float-binary
23985 aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1746 Save the data in Octave's binary data format but using only single precision.
aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1747 Use this format @strong{only} if you know that all the values to be saved can
aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1748 be represented in single precision.
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1749
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1750 @item -hdf5
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1751 Save the data in @sc{hdf5} format.
23985 aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1752 (HDF5 is a free, portable, binary format developed by the National Center for
aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1753 Supercomputing Applications at the University of Illinois.) This format is only
aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1754 available if Octave was built with a link to the @sc{hdf5} libraries.
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1755
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1756 @item -float-hdf5
23985 aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1757 Save the data in @sc{hdf5} format but using only single precision. Use this
aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1758 format @strong{only} if you know that all the values to be saved can be
aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1759 represented in single precision.
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1760
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1761 @item -V7
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1762 @itemx -v7
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1763 @itemx -7
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1764 @itemx -mat7-binary
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1765 Save the data in @sc{matlab}'s v7 binary data format.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1766
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1767 @item -V6
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1768 @itemx -v6
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1769 @itemx -6
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1770 @itemx -mat
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1771 @itemx -mat-binary
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1772 Save the data in @sc{matlab}'s v6 binary data format.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1773
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1774 @item -V4
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1775 @itemx -v4
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1776 @itemx -4
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1777 @itemx -mat4-binary
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1778 Save the data in the binary format written by @sc{matlab} version 4.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1779
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1780 @item -text
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1781 Save the data in Octave's text data format. (default).
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1782
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1783 @item -zip
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1784 @itemx -z
23985 aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1785 Use the gzip algorithm to compress the file. This works on files that are
aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1786 compressed with gzip outside of Octave, and gzip can also be used to convert
aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1787 the files for backward compatibility. This option is only available if Octave
aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1788 was built with a link to the zlib libraries.
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1789 @end table
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1790
23985 aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1791 The list of variables to save may use wildcard patterns containing the
aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1792 following special characters:
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1793
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1794 @table @code
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1795 @item ?
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1796 Match any single character.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1797
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1798 @item *
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1799 Match zero or more characters.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1800
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1801 @item [ @var{list} ]
23985 aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1802 Match the list of characters specified by @var{list}. If the first character
aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1803 is @code{!} or @code{^}, match all characters except those specified by
aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1804 @var{list}. For example, the pattern @code{[a-zA-Z]} will match all lower and
aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1805 uppercase alphabetic characters.
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1806
23985 aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1807 Wildcards may also be used in the field name specifications when using the
aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1808 @option{-struct} modifier (but not in the struct name itself).
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1809
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1810 @end table
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1811
23985 aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1812 Except when using the @sc{matlab} binary data file format or the @samp{-ascii}
aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1813 format, saving global variables also saves the global status of the variable.
aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1814 If the variable is restored at a later time using @samp{load}, it will be
aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1815 restored as a global variable.
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1816
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1817 The command
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1818
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1819 @example
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1820 save -binary data a b*
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1821 @end example
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1822
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1823 @noindent
23985 aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1824 saves the variable @samp{a} and all variables beginning with @samp{b} to the
aa127fce67e4 doc: Document extra save options for -ascii format (bug #51898). Rik <rik@octave.org> parents: 23807 diff changeset	1825 file @file{data} in Octave's binary format.
23557 00b11cee2100 doc: Improve documentation for Octave's save-related functions. Rik <rik@octave.org> parents: 23455 diff changeset	1826 @seealso{load, save_default_options, save_header_format_string, save_precision, dlmread, csvread, fread}
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1827 @end deftypefn */)
604 1acdc9e50cd2 [project @ 1994-08-13 20:10:39 by jwe] jwe parents: diff changeset	1828 {
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1829 octave::load_save_system& load_save_sys = interp.get_load_save_system ();
6759 dd8cef76043d [project @ 2007-06-26 15:54:40 by jwe] jwe parents: 6653 diff changeset	1830
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1831 return load_save_sys.save (args, nargout);
604 1acdc9e50cd2 [project @ 1994-08-13 20:10:39 by jwe] jwe parents: diff changeset	1832 }
1acdc9e50cd2 [project @ 1994-08-13 20:10:39 by jwe] jwe parents: diff changeset	1833
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1834 DEFMETHOD (crash_dumps_octave_core, interp, args, nargout,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1835 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1836 @deftypefn {} {@var{val} =} crash_dumps_octave_core ()
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1837 @deftypefnx {} {@var{old_val} =} crash_dumps_octave_core (@var{new_val})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1838 @deftypefnx {} {} crash_dumps_octave_core (@var{new_val}, "local")
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1839 Query or set the internal variable that controls whether Octave tries
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1840 to save all current variables to the file @file{octave-workspace} if it
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1841 crashes or receives a hangup, terminate or similar signal.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1842
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1843 When called from inside a function with the @qcode{"local"} option, the
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1844 variable is changed locally for the function and any subroutines it calls.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1845 The original variable value is restored when exiting the function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1846 @seealso{octave_core_file_limit, octave_core_file_name, octave_core_file_options}
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1847 @end deftypefn */)
2194 c04b563fb768 [project @ 1996-05-14 08:50:17 by jwe] jwe parents: 2181 diff changeset	1848 {
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1849 octave::load_save_system& load_save_sys = interp.get_load_save_system ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1850
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1851 return load_save_sys.crash_dumps_octave_core (args, nargout);
2194 c04b563fb768 [project @ 1996-05-14 08:50:17 by jwe] jwe parents: 2181 diff changeset	1852 }
c04b563fb768 [project @ 1996-05-14 08:50:17 by jwe] jwe parents: 2181 diff changeset	1853
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1854 DEFMETHOD (save_default_options, interp, args, nargout,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1855 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1856 @deftypefn {} {@var{val} =} save_default_options ()
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1857 @deftypefnx {} {@var{old_val} =} save_default_options (@var{new_val})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1858 @deftypefnx {} {} save_default_options (@var{new_val}, "local")
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1859 Query or set the internal variable that specifies the default options
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1860 for the @code{save} command, and defines the default format.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1861
23557 00b11cee2100 doc: Improve documentation for Octave's save-related functions. Rik <rik@octave.org> parents: 23455 diff changeset	1862 The default value is @qcode{"-text"} (Octave's own text-based file format).
00b11cee2100 doc: Improve documentation for Octave's save-related functions. Rik <rik@octave.org> parents: 23455 diff changeset	1863 See the documentation of the @code{save} command for other choices.
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1864
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1865 When called from inside a function with the @qcode{"local"} option, the
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1866 variable is changed locally for the function and any subroutines it calls.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1867 The original variable value is restored when exiting the function.
23557 00b11cee2100 doc: Improve documentation for Octave's save-related functions. Rik <rik@octave.org> parents: 23455 diff changeset	1868 @seealso{save, save_header_format_string, save_precision}
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1869 @end deftypefn */)
4788 82a558043db9 [project @ 2004-02-18 22:31:57 by jwe] jwe parents: 4726 diff changeset	1870 {
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1871 octave::load_save_system& load_save_sys = interp.get_load_save_system ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1872
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1873 return load_save_sys.save_default_options (args, nargout);
4788 82a558043db9 [project @ 2004-02-18 22:31:57 by jwe] jwe parents: 4726 diff changeset	1874 }
82a558043db9 [project @ 2004-02-18 22:31:57 by jwe] jwe parents: 4726 diff changeset	1875
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1876 DEFMETHOD (octave_core_file_limit, interp, args, nargout,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1877 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1878 @deftypefn {} {@var{val} =} octave_core_file_limit ()
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1879 @deftypefnx {} {@var{old_val} =} octave_core_file_limit (@var{new_val})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1880 @deftypefnx {} {} octave_core_file_limit (@var{new_val}, "local")
25106 d7ad543255c5 doc: Shorten very long first sentences of docstrings (bug #53388). Rik <rik@octave.org> parents: 25103 diff changeset	1881 Query or set the internal variable that specifies the maximum amount of memory
d7ad543255c5 doc: Shorten very long first sentences of docstrings (bug #53388). Rik <rik@octave.org> parents: 25103 diff changeset	1882 that Octave will save when writing a crash dump file.
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1883
25106 d7ad543255c5 doc: Shorten very long first sentences of docstrings (bug #53388). Rik <rik@octave.org> parents: 25103 diff changeset	1884 The limit is measured in kilobytes and is applied to the top-level workspace.
25579 07c2c42f457e doc: Miscellaneous documentation fixes all over the manual (bug #54288). Rik <rik@octave.org> parents: 25201 diff changeset	1885 The name of the crash dump file is specified by
07c2c42f457e doc: Miscellaneous documentation fixes all over the manual (bug #54288). Rik <rik@octave.org> parents: 25201 diff changeset	1886 @var{octave_core_file_name}.
25106 d7ad543255c5 doc: Shorten very long first sentences of docstrings (bug #53388). Rik <rik@octave.org> parents: 25103 diff changeset	1887
d7ad543255c5 doc: Shorten very long first sentences of docstrings (bug #53388). Rik <rik@octave.org> parents: 25103 diff changeset	1888 If @var{octave_core_file_options} flags specify a binary format, then
d7ad543255c5 doc: Shorten very long first sentences of docstrings (bug #53388). Rik <rik@octave.org> parents: 25103 diff changeset	1889 @var{octave_core_file_limit} will be approximately the maximum size of the
d7ad543255c5 doc: Shorten very long first sentences of docstrings (bug #53388). Rik <rik@octave.org> parents: 25103 diff changeset	1890 file. If a text file format is used, then the file could be much larger than
d7ad543255c5 doc: Shorten very long first sentences of docstrings (bug #53388). Rik <rik@octave.org> parents: 25103 diff changeset	1891 the limit. The default value is -1 (unlimited).
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1892
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1893 When called from inside a function with the @qcode{"local"} option, the
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1894 variable is changed locally for the function and any subroutines it calls.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1895 The original variable value is restored when exiting the function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1896 @seealso{crash_dumps_octave_core, octave_core_file_name, octave_core_file_options}
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1897 @end deftypefn */)
3709 c73bea82af94 [project @ 2000-08-02 02:23:26 by jwe] jwe parents: 3697 diff changeset	1898 {
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1899 octave::load_save_system& load_save_sys = interp.get_load_save_system ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1900
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1901 return load_save_sys.octave_core_file_limit (args, nargout);
3709 c73bea82af94 [project @ 2000-08-02 02:23:26 by jwe] jwe parents: 3697 diff changeset	1902 }
c73bea82af94 [project @ 2000-08-02 02:23:26 by jwe] jwe parents: 3697 diff changeset	1903
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1904 DEFMETHOD (octave_core_file_name, interp, args, nargout,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1905 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1906 @deftypefn {} {@var{val} =} octave_core_file_name ()
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1907 @deftypefnx {} {@var{old_val} =} octave_core_file_name (@var{new_val})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1908 @deftypefnx {} {} octave_core_file_name (@var{new_val}, "local")
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1909 Query or set the internal variable that specifies the name of the file
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1910 used for saving data from the top-level workspace if Octave aborts.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1911
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1912 The default value is @qcode{"octave-workspace"}
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1913
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1914 When called from inside a function with the @qcode{"local"} option, the
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1915 variable is changed locally for the function and any subroutines it calls.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1916 The original variable value is restored when exiting the function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1917 @seealso{crash_dumps_octave_core, octave_core_file_name, octave_core_file_options}
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1918 @end deftypefn */)
2194 c04b563fb768 [project @ 1996-05-14 08:50:17 by jwe] jwe parents: 2181 diff changeset	1919 {
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1920 octave::load_save_system& load_save_sys = interp.get_load_save_system ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1921
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1922 return load_save_sys.octave_core_file_name (args, nargout);
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1923 }
4791 62f2fb593455 [project @ 2004-02-20 18:02:59 by jwe] jwe parents: 4788 diff changeset	1924
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1925 DEFMETHOD (octave_core_file_options, interp, args, nargout,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1926 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1927 @deftypefn {} {@var{val} =} octave_core_file_options ()
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1928 @deftypefnx {} {@var{old_val} =} octave_core_file_options (@var{new_val})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1929 @deftypefnx {} {} octave_core_file_options (@var{new_val}, "local")
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1930 Query or set the internal variable that specifies the options used for
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1931 saving the workspace data if Octave aborts.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1932
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1933 The value of @code{octave_core_file_options} should follow the same format
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1934 as the options for the @code{save} function. The default value is Octave's
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1935 binary format.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1936
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1937 When called from inside a function with the @qcode{"local"} option, the
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1938 variable is changed locally for the function and any subroutines it calls.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1939 The original variable value is restored when exiting the function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1940 @seealso{crash_dumps_octave_core, octave_core_file_name, octave_core_file_limit}
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1941 @end deftypefn */)
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1942 {
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1943 octave::load_save_system& load_save_sys = interp.get_load_save_system ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1944
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1945 return load_save_sys.octave_core_file_options (args, nargout);
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1946 }
2194 c04b563fb768 [project @ 1996-05-14 08:50:17 by jwe] jwe parents: 2181 diff changeset	1947
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1948 DEFMETHOD (save_header_format_string, interp, args, nargout,
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1949 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1950 @deftypefn {} {@var{val} =} save_header_format_string ()
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1951 @deftypefnx {} {@var{old_val} =} save_header_format_string (@var{new_val})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1952 @deftypefnx {} {} save_header_format_string (@var{new_val}, "local")
23557 00b11cee2100 doc: Improve documentation for Octave's save-related functions. Rik <rik@octave.org> parents: 23455 diff changeset	1953 Query or set the internal variable that specifies the format string used for
00b11cee2100 doc: Improve documentation for Octave's save-related functions. Rik <rik@octave.org> parents: 23455 diff changeset	1954 the comment line written at the beginning of text-format data files saved by
00b11cee2100 doc: Improve documentation for Octave's save-related functions. Rik <rik@octave.org> parents: 23455 diff changeset	1955 Octave.
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1956
23557 00b11cee2100 doc: Improve documentation for Octave's save-related functions. Rik <rik@octave.org> parents: 23455 diff changeset	1957 The format string is passed to @code{strftime} and must begin with the
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1958 character @samp{#} and contain no newline characters. If the value of
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1959 @code{save_header_format_string} is the empty string, the header comment is
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1960 omitted from text-format data files. The default value is
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1961 @c Set example in small font to prevent overfull line
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1962
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1963 @smallexample
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1964 "# Created by Octave VERSION, %a %b %d %H:%M:%S %Y %Z <USER@@HOST>"
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1965 @end smallexample
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1966
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1967 When called from inside a function with the @qcode{"local"} option, the
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1968 variable is changed locally for the function and any subroutines it calls.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1969 The original variable value is restored when exiting the function.
23557 00b11cee2100 doc: Improve documentation for Octave's save-related functions. Rik <rik@octave.org> parents: 23455 diff changeset	1970 @seealso{strftime, save_default_options}
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	1971 @end deftypefn */)
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1972 {
25993 f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1973 octave::load_save_system& load_save_sys = interp.get_load_save_system ();
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1974
f75bb9d659e0 eliminate global and file-scope static variables from load-save.cc (bug #54571) John W. Eaton <jwe@octave.org> parents: 25697 diff changeset	1975 return load_save_sys.save_header_format_string (args, nargout);
2194 c04b563fb768 [project @ 1996-05-14 08:50:17 by jwe] jwe parents: 2181 diff changeset	1976 }

Mercurial > octave

annotate libinterp/corefcn/load-save.cc @ 25993:f75bb9d659e0