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

annotate libinterp/corefcn/load-save.cc @ 20939:b17fda023ca6

maint: Use new C++ archetype in more files. Place input validation first in files. Move declaration of retval down in function to be closer to point of usage. Eliminate else clause after if () error. Use "return ovl()" where it makes sense. * find.cc, gammainc.cc, gcd.cc, getgrent.cc, getpwent.cc, givens.cc, graphics.cc, help.cc, hess.cc, hex2num.cc, input.cc, kron.cc, load-path.cc, load-save.cc, lookup.cc, mappers.cc, matrix_type.cc, mgorth.cc, nproc.cc, ordschur.cc, pager.cc, pinv.cc, pr-output.cc, profiler.cc, psi.cc, quad.cc, rcond.cc, regexp.cc, schur.cc, sighandlers.cc, sparse.cc, str2double.cc, strfind.cc, strfns.cc, sub2ind.cc, svd.cc, sylvester.cc, symtab.cc, syscalls.cc, sysdep.cc, time.cc, toplev.cc, tril.cc, tsearch.cc, typecast.cc, urlwrite.cc, utils.cc, variables.cc, __delaunayn__.cc, __eigs__.cc, __glpk__.cc, __magick_read__.cc, __osmesa_print__.cc, __voronoi__.cc, amd.cc, audiodevinfo.cc, audioread.cc, chol.cc, colamd.cc, dmperm.cc, fftw.cc, qr.cc, symbfact.cc, symrcm.cc, ov-bool-mat.cc, ov-cell.cc, ov-class.cc, ov-classdef.cc, ov-fcn-handle.cc, ov-fcn-inline.cc, ov-flt-re-mat.cc, ov-java.cc, ov-null-mat.cc, ov-oncleanup.cc, ov-re-mat.cc, ov-struct.cc, ov-typeinfo.cc, ov-usr-fcn.cc, ov.cc, octave.cc: Use new C++ archetype in more files.

author	Rik <rik@octave.org>
date	Fri, 18 Dec 2015 15:37:22 -0800
parents	1142cf6abc0d
children	48b2ad5ee801

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

Mercurial > octave

annotate libinterp/corefcn/load-save.cc @ 20939:b17fda023ca6