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

annotate libinterp/corefcn/load-save.cc @ 25103:078b795c5219 stable

maint: style check C++ ahead of 4.4 release. * ButtonGroup.cc, Canvas.cc, Figure.cc, GLCanvas.cc, GLCanvas.h, ListBoxControl.cc, ObjectProxy.cc, QTerminal.h, dialog.cc, documentation.cc, files-dock-widget.cc, history-dock-widget.cc, file-editor-tab.cc, file-editor.h, find-dialog.cc, marker.h, octave-qscintilla.cc, octave-qscintilla.h, main-window.cc, webinfo.cc, resource-manager.h, settings-dialog.cc, shortcut-manager.cc, shortcut-manager.h, variable-editor.cc, workspace-view.cc, build-env.in.cc, __ilu__.cc, cellfun.cc, data.cc, dirfns.cc, dynamic-ld.h, environment.cc, error.cc, fcn-info.cc, gl-render.cc, gl2ps-print.cc, graphics.cc, graphics.in.h, help.cc, interpreter.cc, load-path.cc, load-save.cc, ls-mat5.cc, mex.cc, oct-stream.cc, oct-stream.h, qz.cc, sighandlers.cc, sparse-xpow.cc, svd.cc, symscope.h, symtab.cc, symtab.h, sysdep.cc, url-handle-manager.h, utils.cc, variables.cc, __init_fltk__.cc, __ode15__.cc, gzip.cc, ov-base.cc, ov-builtin.h, ov-cell.cc, ov-class.cc, ov-dld-fcn.h, ov-fcn-handle.cc, ov-java.cc, ov-re-diag.cc, op-b-sbm.cc, op-bm-b.cc, op-bm-bm.cc, op-bm-sbm.cc, op-cdm-cdm.cc, op-cell.cc, op-cm-cm.cc, op-cm-cs.cc, op-cm-m.cc, op-cm-s.cc, op-cm-scm.cc, op-cm-sm.cc, op-cs-cm.cc, op-cs-cs.cc, op-cs-m.cc, op-cs-s.cc, op-cs-scm.cc, op-cs-sm.cc, op-dm-dm.cc, op-dm-scm.cc, op-dm-sm.cc, op-fcdm-fcdm.cc, op-fcm-fcm.cc, op-fcm-fcs.cc, op-fcm-fm.cc, op-fcm-fs.cc, op-fcs-fcm.cc, op-fcs-fcs.cc, op-fcs-fm.cc, op-fcs-fs.cc, op-fdm-fdm.cc, op-fm-fcm.cc, op-fm-fcs.cc, op-fm-fm.cc, op-fm-fs.cc, op-fs-fcm.cc, op-fs-fcs.cc, op-fs-fm.cc, op-fs-fs.cc, op-m-cm.cc, op-m-cs.cc, op-m-m.cc, op-m-s.cc, op-m-scm.cc, op-m-sm.cc, op-pm-pm.cc, op-pm-scm.cc, op-pm-sm.cc, op-range.cc, op-s-cm.cc, op-s-cs.cc, op-s-m.cc, op-s-s.cc, op-s-scm.cc, op-s-sm.cc, op-sbm-b.cc, op-sbm-bm.cc, op-sbm-sbm.cc, op-scm-cm.cc, op-scm-cs.cc, op-scm-m.cc, op-scm-s.cc, op-scm-scm.cc, op-scm-sm.cc, op-sm-cm.cc, op-sm-cs.cc, op-sm-m.cc, op-sm-s.cc, op-sm-scm.cc, op-sm-sm.cc, op-str-m.cc, op-str-s.cc, op-str-str.cc, bp-table.cc, comment-list.h, jit-ir.h, jit-typeinfo.cc, jit-typeinfo.h, lex.h, parse.h, pt-binop.h, pt-decl.h, pt-eval.cc, pt-jit.cc, pt-jit.h, pt-misc.h, token.h, CMatrix.cc, CMatrix.h, CSparse.cc, CSparse.h, dMatrix.h, fCMatrix.cc, fCMatrix.h, fMatrix.h, Faddeeva.cc, gepbalance.cc, hess.cc, oct-fftw.cc, oct-fftw.h, file-stat.cc, lo-sysinfo.cc, action-container.h, f77-fcn.h, lo-regexp.cc, oct-mutex.h, oct-shlib.cc: Use Octave coding conventions in C++ files.

author	Rik <rik@octave.org>
date	Tue, 03 Apr 2018 13:52:07 -0700
parents	6652d3823428
children	d7ad543255c5

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

Mercurial > octave

annotate libinterp/corefcn/load-save.cc @ 25103:078b795c5219 stable