octave-nkf: src/ov-fcn-inline.cc annotate

annotate src/ov-fcn-inline.cc @ 10454:79a56d0a6a0d ss-3-3-51

version is now 3.3.51

author	John W. Eaton <jwe@octave.org>
date	Wed, 24 Mar 2010 16:27:05 -0400
parents	57a59eae83cc
children	604e13a89c7f

rev	line source
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	1 /*
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	2
8920 eb63fbe60fab update copyright notices John W. Eaton <jwe@octave.org> parents: 8503 diff changeset	3 Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009 David Bateman
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	4
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 7001 diff changeset	5 This file is part of Octave.
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	6
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 7001 diff changeset	7 Octave is free software; you can redistribute it and/or modify it
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 7001 diff changeset	8 under the terms of the GNU General Public License as published by the
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 7001 diff changeset	9 Free Software Foundation; either version 3 of the License, or (at your
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 7001 diff changeset	10 option) any later version.
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 7001 diff changeset	11
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 7001 diff changeset	12 Octave is distributed in the hope that it will be useful, but WITHOUT
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 7001 diff changeset	13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 7001 diff changeset	14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 7001 diff changeset	15 for more details.
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	16
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	17 You should have received a copy of the GNU General Public License
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 7001 diff changeset	18 along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 7001 diff changeset	19 <http://www.gnu.org/licenses/>.
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	20
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	21 In addition to the terms of the GPL, you are permitted to link
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	22 this program with any Open Source program, as defined by the
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	23 Open Source Initiative (www.opensource.org)
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	24
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	25 */
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	26
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	27 #ifdef HAVE_CONFIG_H
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	28 #include <config.h>
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	29 #endif
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	30
4988 352d228d409b [project @ 2004-09-11 13:05:38 by jwe] jwe parents: 4973 diff changeset	31 #include <istream>
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	32 #include <iostream>
5765 7ba9ad1fec11 [project @ 2006-04-17 05:05:15 by jwe] jwe parents: 5760 diff changeset	33 #include <sstream>
5164 57077d0ddc8e [project @ 2005-02-25 19:55:24 by jwe] jwe parents: 5105 diff changeset	34 #include <vector>
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	35
8377 25bc2d31e1bf improve OCTAVE_LOCAL_BUFFER Jaroslav Hajek <highegg@gmail.com> parents: 8045 diff changeset	36 #include "oct-locbuf.h"
25bc2d31e1bf improve OCTAVE_LOCAL_BUFFER Jaroslav Hajek <highegg@gmail.com> parents: 8045 diff changeset	37
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	38 #include "defun.h"
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	39 #include "error.h"
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	40 #include "gripes.h"
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	41 #include "oct-map.h"
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	42 #include "ov-base.h"
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	43 #include "ov-fcn-inline.h"
8032 2fd4a5ef6b59 stash parent function scope for inline functions and anonymous function handles. John W. Eaton <jwe@octave.org> parents: 7908 diff changeset	44 #include "ov-usr-fcn.h"
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	45 #include "pr-output.h"
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	46 #include "variables.h"
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	47 #include "parse.h"
8032 2fd4a5ef6b59 stash parent function scope for inline functions and anonymous function handles. John W. Eaton <jwe@octave.org> parents: 7908 diff changeset	48 #include "toplev.h"
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	49
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	50 #include "byte-swap.h"
8946 e7e928088e90 fix CRLF issues with text-mode reading in windows when loading ascii data Benjamin Lindner <lindnerb@users.sourceforge.net> parents: 8920 diff changeset	51 #include "ls-ascii-helper.h"
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	52 #include "ls-oct-ascii.h"
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	53 #include "ls-hdf5.h"
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	54 #include "ls-utils.h"
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	55
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	56 DEFINE_OCTAVE_ALLOCATOR (octave_fcn_inline);
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	57
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	58 DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (octave_fcn_inline,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	59 "inline function",
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	60 "function_handle");
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	61
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	62 octave_fcn_inline::octave_fcn_inline (const std::string& f,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	63 const string_vector& a,
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	64 const std::string& n)
5007 f8c27dad3643 [project @ 2004-09-17 11:42:04 by jwe] jwe parents: 4988 diff changeset	65 : octave_fcn_handle (n), iftext (f), ifargs (a)
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	66 {
4973 c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	67 // Form a string representing the function.
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	68
5765 7ba9ad1fec11 [project @ 2006-04-17 05:05:15 by jwe] jwe parents: 5760 diff changeset	69 std::ostringstream buf;
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	70
5007 f8c27dad3643 [project @ 2004-09-17 11:42:04 by jwe] jwe parents: 4988 diff changeset	71 buf << "@(";
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	72
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	73 for (int i = 0; i < ifargs.length (); i++)
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	74 {
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	75 if (i > 0)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	76 buf << ", ";
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	77
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	78 buf << ifargs(i);
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	79 }
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	80
5765 7ba9ad1fec11 [project @ 2006-04-17 05:05:15 by jwe] jwe parents: 5760 diff changeset	81 buf << ") " << iftext;
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	82
5007 f8c27dad3643 [project @ 2004-09-17 11:42:04 by jwe] jwe parents: 4988 diff changeset	83 int parse_status;
5765 7ba9ad1fec11 [project @ 2006-04-17 05:05:15 by jwe] jwe parents: 5760 diff changeset	84 octave_value anon_fcn_handle = eval_string (buf.str (), true, parse_status);
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	85
5007 f8c27dad3643 [project @ 2004-09-17 11:42:04 by jwe] jwe parents: 4988 diff changeset	86 if (parse_status == 0)
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	87 {
5007 f8c27dad3643 [project @ 2004-09-17 11:42:04 by jwe] jwe parents: 4988 diff changeset	88 octave_fcn_handle *fh = anon_fcn_handle.fcn_handle_value ();
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	89
5007 f8c27dad3643 [project @ 2004-09-17 11:42:04 by jwe] jwe parents: 4988 diff changeset	90 if (fh)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	91 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	92 fcn = fh->fcn_val ();
8032 2fd4a5ef6b59 stash parent function scope for inline functions and anonymous function handles. John W. Eaton <jwe@octave.org> parents: 7908 diff changeset	93
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	94 octave_user_function *uf = fcn.user_function_value ();
8032 2fd4a5ef6b59 stash parent function scope for inline functions and anonymous function handles. John W. Eaton <jwe@octave.org> parents: 7908 diff changeset	95
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	96 if (uf)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	97 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	98 octave_function *curr_fcn = octave_call_stack::current ();
8045 24701aa75ecb scope fixes for anonymous and inline functions that appear inside subfunctions John W. Eaton <jwe@octave.org> parents: 8032 diff changeset	99
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	100 if (curr_fcn)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	101 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	102 symbol_table::scope_id parent_scope
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	103 = curr_fcn->parent_fcn_scope ();
8045 24701aa75ecb scope fixes for anonymous and inline functions that appear inside subfunctions John W. Eaton <jwe@octave.org> parents: 8032 diff changeset	104
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	105 if (parent_scope < 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	106 parent_scope = curr_fcn->scope ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	107
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	108 uf->stash_parent_fcn_scope (parent_scope);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	109 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	110 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	111 }
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	112 }
5007 f8c27dad3643 [project @ 2004-09-17 11:42:04 by jwe] jwe parents: 4988 diff changeset	113
f8c27dad3643 [project @ 2004-09-17 11:42:04 by jwe] jwe parents: 4988 diff changeset	114 if (fcn.is_undefined ())
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	115 error ("inline: unable to define function");
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	116 }
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	117
6625 5d02dfacfc9e [project @ 2007-05-16 08:49:47 by dbateman] dbateman parents: 6547 diff changeset	118 // This function is supplied to allow a Matlab style class structure
5d02dfacfc9e [project @ 2007-05-16 08:49:47 by dbateman] dbateman parents: 6547 diff changeset	119 // to be returned..
5d02dfacfc9e [project @ 2007-05-16 08:49:47 by dbateman] dbateman parents: 6547 diff changeset	120 Octave_map
5d02dfacfc9e [project @ 2007-05-16 08:49:47 by dbateman] dbateman parents: 6547 diff changeset	121 octave_fcn_inline::map_value (void) const
5d02dfacfc9e [project @ 2007-05-16 08:49:47 by dbateman] dbateman parents: 6547 diff changeset	122 {
5d02dfacfc9e [project @ 2007-05-16 08:49:47 by dbateman] dbateman parents: 6547 diff changeset	123 Octave_map m;
5d02dfacfc9e [project @ 2007-05-16 08:49:47 by dbateman] dbateman parents: 6547 diff changeset	124 string_vector args = fcn_arg_names ();
5d02dfacfc9e [project @ 2007-05-16 08:49:47 by dbateman] dbateman parents: 6547 diff changeset	125 m.assign ("version", octave_value (1.0));
5d02dfacfc9e [project @ 2007-05-16 08:49:47 by dbateman] dbateman parents: 6547 diff changeset	126 m.assign ("isEmpty", octave_value (0.0));
5d02dfacfc9e [project @ 2007-05-16 08:49:47 by dbateman] dbateman parents: 6547 diff changeset	127 m.assign ("expr", octave_value (fcn_text ()));
5d02dfacfc9e [project @ 2007-05-16 08:49:47 by dbateman] dbateman parents: 6547 diff changeset	128 m.assign ("numArgs", octave_value (args.length ()));
5d02dfacfc9e [project @ 2007-05-16 08:49:47 by dbateman] dbateman parents: 6547 diff changeset	129 m.assign ("args", octave_value (args));
5d02dfacfc9e [project @ 2007-05-16 08:49:47 by dbateman] dbateman parents: 6547 diff changeset	130 std::ostringstream buf;
5d02dfacfc9e [project @ 2007-05-16 08:49:47 by dbateman] dbateman parents: 6547 diff changeset	131 for (int i = 0; i < args.length (); i++)
5d02dfacfc9e [project @ 2007-05-16 08:49:47 by dbateman] dbateman parents: 6547 diff changeset	132 buf << args(i) << " = INLINE_INPUTS_{" << i + 1 << "}; ";
5d02dfacfc9e [project @ 2007-05-16 08:49:47 by dbateman] dbateman parents: 6547 diff changeset	133 m.assign ("inputExpr", octave_value (buf.str ()));
5d02dfacfc9e [project @ 2007-05-16 08:49:47 by dbateman] dbateman parents: 6547 diff changeset	134
5d02dfacfc9e [project @ 2007-05-16 08:49:47 by dbateman] dbateman parents: 6547 diff changeset	135 return m;
5d02dfacfc9e [project @ 2007-05-16 08:49:47 by dbateman] dbateman parents: 6547 diff changeset	136 }
5d02dfacfc9e [project @ 2007-05-16 08:49:47 by dbateman] dbateman parents: 6547 diff changeset	137
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	138 bool
6974 9e32bb109980 [project @ 2007-10-08 11:06:47 by jwe] jwe parents: 6973 diff changeset	139 octave_fcn_inline::save_ascii (std::ostream& os)
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	140 {
4973 c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	141 os << "# nargs: " << ifargs.length () << "\n";
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	142 for (int i = 0; i < ifargs.length (); i++)
4973 c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	143 os << ifargs(i) << "\n";
c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	144 if (nm.length () < 1)
c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	145 // Write an invalid value to flag empty fcn handle name.
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	146 os << "0\n";
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	147 else
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	148 os << nm << "\n";
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	149 os << iftext << "\n";
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	150 return true;
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	151 }
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	152
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	153 bool
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	154 octave_fcn_inline::load_ascii (std::istream& is)
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	155 {
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	156 int nargs;
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	157 if (extract_keyword (is, "nargs", nargs, true))
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	158 {
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	159 ifargs.resize (nargs);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	160 for (int i = 0; i < nargs; i++)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	161 is >> ifargs(i);
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	162 is >> nm;
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	163 if (nm == "0")
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	164 nm = "";
4988 352d228d409b [project @ 2004-09-11 13:05:38 by jwe] jwe parents: 4973 diff changeset	165
8946 e7e928088e90 fix CRLF issues with text-mode reading in windows when loading ascii data Benjamin Lindner <lindnerb@users.sourceforge.net> parents: 8920 diff changeset	166 skip_preceeding_newline (is);
4988 352d228d409b [project @ 2004-09-11 13:05:38 by jwe] jwe parents: 4973 diff changeset	167
8946 e7e928088e90 fix CRLF issues with text-mode reading in windows when loading ascii data Benjamin Lindner <lindnerb@users.sourceforge.net> parents: 8920 diff changeset	168 std::string buf;
4988 352d228d409b [project @ 2004-09-11 13:05:38 by jwe] jwe parents: 4973 diff changeset	169
352d228d409b [project @ 2004-09-11 13:05:38 by jwe] jwe parents: 4973 diff changeset	170 if (is)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	171 {
4988 352d228d409b [project @ 2004-09-11 13:05:38 by jwe] jwe parents: 4973 diff changeset	172
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	173 // Get a line of text whitespace characters included,
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	174 // leaving newline in the stream.
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	175 buf = read_until_newline (is, true);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	176 }
4988 352d228d409b [project @ 2004-09-11 13:05:38 by jwe] jwe parents: 4973 diff changeset	177
8946 e7e928088e90 fix CRLF issues with text-mode reading in windows when loading ascii data Benjamin Lindner <lindnerb@users.sourceforge.net> parents: 8920 diff changeset	178 iftext = buf;
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	179
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	180 octave_fcn_inline tmp (iftext, ifargs, nm);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	181 fcn = tmp.fcn;
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	182
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	183 return true;
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	184 }
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	185 else
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	186 return false;
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	187 }
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	188
4973 c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	189 bool
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	190 octave_fcn_inline::save_binary (std::ostream& os, bool&)
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	191 {
5828 22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe] jwe parents: 5823 diff changeset	192 int32_t tmp = ifargs.length ();
5760 8d7162924bd3 [project @ 2006-04-14 04:01:37 by jwe] jwe parents: 5642 diff changeset	193 os.write (reinterpret_cast<char *> (&tmp), 4);
4973 c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	194 for (int i = 0; i < ifargs.length (); i++)
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	195 {
4973 c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	196 tmp = ifargs(i).length ();
5760 8d7162924bd3 [project @ 2006-04-14 04:01:37 by jwe] jwe parents: 5642 diff changeset	197 os.write (reinterpret_cast<char *> (&tmp), 4);
4973 c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	198 os.write (ifargs(i).c_str (), ifargs(i).length ());
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	199 }
4973 c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	200 tmp = nm.length ();
5760 8d7162924bd3 [project @ 2006-04-14 04:01:37 by jwe] jwe parents: 5642 diff changeset	201 os.write (reinterpret_cast<char *> (&tmp), 4);
4973 c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	202 os.write (nm.c_str (), nm.length ());
c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	203 tmp = iftext.length ();
5760 8d7162924bd3 [project @ 2006-04-14 04:01:37 by jwe] jwe parents: 5642 diff changeset	204 os.write (reinterpret_cast<char *> (&tmp), 4);
4973 c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	205 os.write (iftext.c_str (), iftext.length ());
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	206 return true;
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	207 }
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	208
4973 c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	209 bool
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	210 octave_fcn_inline::load_binary (std::istream& is, bool swap,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	211 oct_mach_info::float_format)
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	212 {
5828 22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe] jwe parents: 5823 diff changeset	213 int32_t nargs;
5760 8d7162924bd3 [project @ 2006-04-14 04:01:37 by jwe] jwe parents: 5642 diff changeset	214 if (! is.read (reinterpret_cast<char *> (&nargs), 4))
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	215 return false;
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	216 if (swap)
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	217 swap_bytes<4> (&nargs);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	218
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	219 if (nargs < 1)
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	220 return false;
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	221 else
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	222 {
5828 22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe] jwe parents: 5823 diff changeset	223 int32_t tmp;
4973 c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	224 ifargs.resize (nargs);
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	225 for (int i = 0; i < nargs; i++)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	226 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	227 if (! is.read (reinterpret_cast<char *> (&tmp), 4))
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	228 return false;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	229 if (swap)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	230 swap_bytes<4> (&tmp);
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	231
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	232 OCTAVE_LOCAL_BUFFER (char, ctmp, tmp+1);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	233 is.read (ctmp, tmp);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	234 ifargs(i) = std::string (ctmp);
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	235
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	236 if (! is)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	237 return false;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	238 }
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	239
5760 8d7162924bd3 [project @ 2006-04-14 04:01:37 by jwe] jwe parents: 5642 diff changeset	240 if (! is.read (reinterpret_cast<char *> (&tmp), 4))
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	241 return false;
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	242 if (swap)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	243 swap_bytes<4> (&tmp);
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	244
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	245 OCTAVE_LOCAL_BUFFER (char, ctmp1, tmp+1);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	246 is.read (ctmp1, tmp);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	247 nm = std::string (ctmp1);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	248
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	249 if (! is)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	250 return false;
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	251
5760 8d7162924bd3 [project @ 2006-04-14 04:01:37 by jwe] jwe parents: 5642 diff changeset	252 if (! is.read (reinterpret_cast<char *> (&tmp), 4))
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	253 return false;
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	254 if (swap)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	255 swap_bytes<4> (&tmp);
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	256
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	257 OCTAVE_LOCAL_BUFFER (char, ctmp2, tmp+1);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	258 is.read (ctmp2, tmp);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	259 iftext = std::string (ctmp2);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	260
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	261 if (! is)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	262 return false;
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	263
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	264 octave_fcn_inline ftmp (iftext, ifargs, nm);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	265 fcn = ftmp.fcn;
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	266 }
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	267 return true;
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	268 }
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	269
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	270 #if defined (HAVE_HDF5)
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	271 bool
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	272 octave_fcn_inline::save_hdf5 (hid_t loc_id, const char *name,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	273 bool /* save_as_floats */)
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	274 {
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	275 hid_t group_hid = -1;
9892 ac69e6f4b33d Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions Kacper Kowalik <xarthisius.kk@gmail.com> parents: 9881 diff changeset	276 #if HAVE_HDF5_18
ac69e6f4b33d Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions Kacper Kowalik <xarthisius.kk@gmail.com> parents: 9881 diff changeset	277 group_hid = H5Gcreate (loc_id, name, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
ac69e6f4b33d Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions Kacper Kowalik <xarthisius.kk@gmail.com> parents: 9881 diff changeset	278 #else
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	279 group_hid = H5Gcreate (loc_id, name, 0);
9892 ac69e6f4b33d Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions Kacper Kowalik <xarthisius.kk@gmail.com> parents: 9881 diff changeset	280 #endif
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	281 if (group_hid < 0 ) return false;
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	282
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	283 size_t len = 0;
4973 c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	284 for (int i = 0; i < ifargs.length (); i++)
c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	285 if (len < ifargs(i).length ())
c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	286 len = ifargs(i).length ();
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	287
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	288 hid_t space_hid = -1, data_hid = -1, type_hid = -1;;
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	289 bool retval = true;
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	290
5775 ace8d8d26933 [project @ 2006-04-24 19:13:06 by jwe] jwe parents: 5765 diff changeset	291 // FIXME Is there a better way of saving string vectors, than a
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	292 // null padded matrix?
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	293
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	294 OCTAVE_LOCAL_BUFFER (hsize_t, hdims, 2);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	295
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	296 // Octave uses column-major, while HDF5 uses row-major ordering
4973 c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	297 hdims[1] = ifargs.length ();
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	298 hdims[0] = len + 1;
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	299
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	300 space_hid = H5Screate_simple (2, hdims, 0);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	301 if (space_hid < 0)
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	302 {
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	303 H5Gclose (group_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	304 return false;
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	305 }
9892 ac69e6f4b33d Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions Kacper Kowalik <xarthisius.kk@gmail.com> parents: 9881 diff changeset	306 #if HAVE_HDF5_18
ac69e6f4b33d Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions Kacper Kowalik <xarthisius.kk@gmail.com> parents: 9881 diff changeset	307 data_hid = H5Dcreate (group_hid, "args", H5T_NATIVE_CHAR, space_hid,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	308 H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
9892 ac69e6f4b33d Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions Kacper Kowalik <xarthisius.kk@gmail.com> parents: 9881 diff changeset	309 #else
4973 c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	310 data_hid = H5Dcreate (group_hid, "args", H5T_NATIVE_CHAR, space_hid,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	311 H5P_DEFAULT);
9892 ac69e6f4b33d Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions Kacper Kowalik <xarthisius.kk@gmail.com> parents: 9881 diff changeset	312 #endif
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	313 if (data_hid < 0)
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	314 {
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	315 H5Sclose (space_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	316 H5Gclose (group_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	317 return false;
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	318 }
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	319
4973 c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	320 OCTAVE_LOCAL_BUFFER (char, s, ifargs.length () * (len + 1));
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	321
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	322 // Save the args as a null teminated list
4973 c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	323 for (int i = 0; i < ifargs.length (); i++)
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	324 {
4973 c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	325 const char * cptr = ifargs(i).c_str ();
c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	326 for (size_t j = 0; j < ifargs(i).length (); j++)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	327 s[i(len+1)+j] = cptr++;
4973 c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	328 s[ifargs(i).length ()] = '\0';
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	329 }
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	330
4973 c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	331 retval = H5Dwrite (data_hid, H5T_NATIVE_CHAR, H5S_ALL, H5S_ALL,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	332 H5P_DEFAULT, s) >= 0;
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	333
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	334 H5Dclose (data_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	335 H5Sclose (space_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	336
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	337 if (!retval)
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	338 {
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	339 H5Gclose (group_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	340 return false;
4973 c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	341 }
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	342
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	343 // attach the type of the variable
4973 c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	344 type_hid = H5Tcopy (H5T_C_S1);
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	345 H5Tset_size (type_hid, nm.length () + 1);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	346 if (type_hid < 0)
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	347 {
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	348 H5Gclose (group_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	349 return false;
4973 c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	350 }
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	351
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	352 hdims[0] = 0;
5760 8d7162924bd3 [project @ 2006-04-14 04:01:37 by jwe] jwe parents: 5642 diff changeset	353 space_hid = H5Screate_simple (0 , hdims, 0);
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	354 if (space_hid < 0)
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	355 {
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	356 H5Tclose (type_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	357 H5Gclose (group_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	358 return false;
4973 c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	359 }
9892 ac69e6f4b33d Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions Kacper Kowalik <xarthisius.kk@gmail.com> parents: 9881 diff changeset	360 #if HAVE_HDF5_18
ac69e6f4b33d Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions Kacper Kowalik <xarthisius.kk@gmail.com> parents: 9881 diff changeset	361 data_hid = H5Dcreate (group_hid, "nm", type_hid, space_hid,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	362 H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
9892 ac69e6f4b33d Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions Kacper Kowalik <xarthisius.kk@gmail.com> parents: 9881 diff changeset	363 #else
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	364 data_hid = H5Dcreate (group_hid, "nm", type_hid, space_hid, H5P_DEFAULT);
9892 ac69e6f4b33d Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions Kacper Kowalik <xarthisius.kk@gmail.com> parents: 9881 diff changeset	365 #endif
4973 c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	366 if (data_hid < 0 \|\| H5Dwrite (data_hid, type_hid, H5S_ALL, H5S_ALL,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	367 H5P_DEFAULT, nm.c_str ()) < 0)
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	368 {
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	369 H5Sclose (space_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	370 H5Tclose (type_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	371 H5Gclose (group_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	372 return false;
4973 c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	373 }
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	374 H5Dclose (data_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	375
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	376 // attach the type of the variable
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	377 H5Tset_size (type_hid, iftext.length () + 1);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	378 if (type_hid < 0)
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	379 {
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	380 H5Gclose (group_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	381 return false;
4973 c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	382 }
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	383
9892 ac69e6f4b33d Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions Kacper Kowalik <xarthisius.kk@gmail.com> parents: 9881 diff changeset	384 #if HAVE_HDF5_18
ac69e6f4b33d Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions Kacper Kowalik <xarthisius.kk@gmail.com> parents: 9881 diff changeset	385 data_hid = H5Dcreate (group_hid, "iftext", type_hid, space_hid,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	386 H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
9892 ac69e6f4b33d Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions Kacper Kowalik <xarthisius.kk@gmail.com> parents: 9881 diff changeset	387 #else
4973 c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	388 data_hid = H5Dcreate (group_hid, "iftext", type_hid, space_hid,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	389 H5P_DEFAULT);
9892 ac69e6f4b33d Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions Kacper Kowalik <xarthisius.kk@gmail.com> parents: 9881 diff changeset	390 #endif
4973 c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	391 if (data_hid < 0 \|\| H5Dwrite (data_hid, type_hid, H5S_ALL, H5S_ALL,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	392 H5P_DEFAULT, iftext.c_str ()) < 0)
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	393 {
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	394 H5Sclose (space_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	395 H5Tclose (type_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	396 H5Gclose (group_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	397 return false;
4973 c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	398 }
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	399
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	400 H5Dclose (data_hid);
4988 352d228d409b [project @ 2004-09-11 13:05:38 by jwe] jwe parents: 4973 diff changeset	401 H5Sclose (space_hid);
352d228d409b [project @ 2004-09-11 13:05:38 by jwe] jwe parents: 4973 diff changeset	402 H5Tclose (type_hid);
352d228d409b [project @ 2004-09-11 13:05:38 by jwe] jwe parents: 4973 diff changeset	403 H5Gclose (group_hid);
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	404
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	405 return retval;
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	406 }
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	407
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	408 bool
9881 b3089dba88bf Remove HDF5 cruft for older versions of HDF5 Kacper Kowalik parents: 9038 diff changeset	409 octave_fcn_inline::load_hdf5 (hid_t loc_id, const char *name)
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	410 {
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	411 hid_t group_hid, data_hid, space_hid, type_hid, type_class_hid, st_id;
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	412 hsize_t rank;
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	413 int slen;
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	414
9892 ac69e6f4b33d Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions Kacper Kowalik <xarthisius.kk@gmail.com> parents: 9881 diff changeset	415 #if HAVE_HDF5_18
ac69e6f4b33d Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions Kacper Kowalik <xarthisius.kk@gmail.com> parents: 9881 diff changeset	416 group_hid = H5Gopen (loc_id, name, H5P_DEFAULT);
ac69e6f4b33d Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions Kacper Kowalik <xarthisius.kk@gmail.com> parents: 9881 diff changeset	417 #else
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	418 group_hid = H5Gopen (loc_id, name);
9892 ac69e6f4b33d Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions Kacper Kowalik <xarthisius.kk@gmail.com> parents: 9881 diff changeset	419 #endif
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	420 if (group_hid < 0 ) return false;
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	421
9892 ac69e6f4b33d Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions Kacper Kowalik <xarthisius.kk@gmail.com> parents: 9881 diff changeset	422 #if HAVE_HDF5_18
ac69e6f4b33d Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions Kacper Kowalik <xarthisius.kk@gmail.com> parents: 9881 diff changeset	423 data_hid = H5Dopen (group_hid, "args", H5P_DEFAULT);
ac69e6f4b33d Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions Kacper Kowalik <xarthisius.kk@gmail.com> parents: 9881 diff changeset	424 #else
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	425 data_hid = H5Dopen (group_hid, "args");
9892 ac69e6f4b33d Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions Kacper Kowalik <xarthisius.kk@gmail.com> parents: 9881 diff changeset	426 #endif
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	427 space_hid = H5Dget_space (data_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	428 rank = H5Sget_simple_extent_ndims (space_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	429
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	430 if (rank != 2)
4973 c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	431 {
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	432 H5Dclose (data_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	433 H5Sclose (space_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	434 H5Gclose (group_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	435 return false;
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	436 }
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	437
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	438 OCTAVE_LOCAL_BUFFER (hsize_t, hdims, rank);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	439 OCTAVE_LOCAL_BUFFER (hsize_t, maxdims, rank);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	440
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	441 H5Sget_simple_extent_dims (space_hid, hdims, maxdims);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	442
4973 c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	443 ifargs.resize (hdims[1]);
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	444
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	445 OCTAVE_LOCAL_BUFFER (char, s1, hdims[0] * hdims[1]);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	446
4973 c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	447 if (H5Dread (data_hid, H5T_NATIVE_UCHAR, H5S_ALL, H5S_ALL,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	448 H5P_DEFAULT, s1) < 0)
4973 c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	449 {
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	450 H5Dclose (data_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	451 H5Sclose (space_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	452 H5Gclose (group_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	453 return false;
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	454 }
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	455
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	456 H5Dclose (data_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	457 H5Sclose (space_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	458
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	459 for (size_t i = 0; i < hdims[1]; i++)
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	460 ifargs(i) = std::string (s1 + i*hdims[0]);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	461
9892 ac69e6f4b33d Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions Kacper Kowalik <xarthisius.kk@gmail.com> parents: 9881 diff changeset	462 #if HAVE_HDF5_18
ac69e6f4b33d Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions Kacper Kowalik <xarthisius.kk@gmail.com> parents: 9881 diff changeset	463 data_hid = H5Dopen (group_hid, "nm", H5P_DEFAULT);
ac69e6f4b33d Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions Kacper Kowalik <xarthisius.kk@gmail.com> parents: 9881 diff changeset	464 #else
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	465 data_hid = H5Dopen (group_hid, "nm");
9892 ac69e6f4b33d Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions Kacper Kowalik <xarthisius.kk@gmail.com> parents: 9881 diff changeset	466 #endif
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	467
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	468 if (data_hid < 0)
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	469 {
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	470 H5Gclose (group_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	471 return false;
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	472 }
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	473
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	474 type_hid = H5Dget_type (data_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	475 type_class_hid = H5Tget_class (type_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	476
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	477 if (type_class_hid != H5T_STRING)
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	478 {
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	479 H5Tclose (type_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	480 H5Dclose (data_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	481 H5Gclose (group_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	482 return false;
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	483 }
4973 c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	484
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	485 space_hid = H5Dget_space (data_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	486 rank = H5Sget_simple_extent_ndims (space_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	487
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	488 if (rank != 0)
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	489 {
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	490 H5Sclose (space_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	491 H5Tclose (type_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	492 H5Dclose (data_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	493 H5Gclose (group_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	494 return false;
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	495 }
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	496
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	497 slen = H5Tget_size (type_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	498 if (slen < 0)
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	499 {
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	500 H5Sclose (space_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	501 H5Tclose (type_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	502 H5Dclose (data_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	503 H5Gclose (group_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	504 return false;
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	505 }
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	506
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	507 OCTAVE_LOCAL_BUFFER (char, nm_tmp, slen);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	508
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	509 // create datatype for (null-terminated) string to read into:
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	510 st_id = H5Tcopy (H5T_C_S1);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	511 H5Tset_size (st_id, slen);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	512
5760 8d7162924bd3 [project @ 2006-04-14 04:01:37 by jwe] jwe parents: 5642 diff changeset	513 if (H5Dread (data_hid, st_id, H5S_ALL, H5S_ALL, H5P_DEFAULT, nm_tmp) < 0)
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	514 {
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	515 H5Sclose (space_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	516 H5Tclose (type_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	517 H5Gclose (group_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	518 return false;
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	519 }
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	520 H5Tclose (st_id);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	521 H5Dclose (data_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	522 nm = nm_tmp;
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	523
9892 ac69e6f4b33d Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions Kacper Kowalik <xarthisius.kk@gmail.com> parents: 9881 diff changeset	524 #if HAVE_HDF5_18
ac69e6f4b33d Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions Kacper Kowalik <xarthisius.kk@gmail.com> parents: 9881 diff changeset	525 data_hid = H5Dopen (group_hid, "iftext", H5P_DEFAULT);
ac69e6f4b33d Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions Kacper Kowalik <xarthisius.kk@gmail.com> parents: 9881 diff changeset	526 #else
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	527 data_hid = H5Dopen (group_hid, "iftext");
9892 ac69e6f4b33d Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions Kacper Kowalik <xarthisius.kk@gmail.com> parents: 9881 diff changeset	528 #endif
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	529
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	530 if (data_hid < 0)
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	531 {
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	532 H5Gclose (group_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	533 return false;
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	534 }
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	535
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	536 type_hid = H5Dget_type (data_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	537 type_class_hid = H5Tget_class (type_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	538
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	539 if (type_class_hid != H5T_STRING)
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	540 {
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	541 H5Tclose (type_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	542 H5Dclose (data_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	543 H5Gclose (group_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	544 return false;
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	545 }
4973 c969a018c928 [project @ 2004-09-08 17:07:11 by jwe] jwe parents: 4972 diff changeset	546
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	547 space_hid = H5Dget_space (data_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	548 rank = H5Sget_simple_extent_ndims (space_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	549
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	550 if (rank != 0)
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	551 {
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	552 H5Sclose (space_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	553 H5Tclose (type_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	554 H5Dclose (data_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	555 H5Gclose (group_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	556 return false;
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	557 }
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	558
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	559 slen = H5Tget_size (type_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	560 if (slen < 0)
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	561 {
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	562 H5Sclose (space_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	563 H5Tclose (type_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	564 H5Dclose (data_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	565 H5Gclose (group_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	566 return false;
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	567 }
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	568
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	569 OCTAVE_LOCAL_BUFFER (char, iftext_tmp, slen);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	570
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	571 // create datatype for (null-terminated) string to read into:
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	572 st_id = H5Tcopy (H5T_C_S1);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	573 H5Tset_size (st_id, slen);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	574
5760 8d7162924bd3 [project @ 2006-04-14 04:01:37 by jwe] jwe parents: 5642 diff changeset	575 if (H5Dread (data_hid, st_id, H5S_ALL, H5S_ALL, H5P_DEFAULT, iftext_tmp) < 0)
4972 724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	576 {
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	577 H5Sclose (space_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	578 H5Tclose (type_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	579 H5Gclose (group_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	580 return false;
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	581 }
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	582 H5Tclose (st_id);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	583 H5Dclose (data_hid);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	584 iftext = iftext_tmp;
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	585
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	586 octave_fcn_inline ftmp (iftext, ifargs, nm);
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	587 fcn = ftmp.fcn;
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	588
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	589 return true;
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	590 }
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	591 #endif
724675f7f7cb [project @ 2004-09-08 17:00:20 by jwe] jwe parents: 4966 diff changeset	592
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	593 void
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	594 octave_fcn_inline::print (std::ostream& os, bool pr_as_read_syntax) const
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	595 {
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	596 print_raw (os, pr_as_read_syntax);
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	597 newline (os);
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	598 }
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	599
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	600 void
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	601 octave_fcn_inline::print_raw (std::ostream& os, bool pr_as_read_syntax) const
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	602 {
5765 7ba9ad1fec11 [project @ 2006-04-17 05:05:15 by jwe] jwe parents: 5760 diff changeset	603 std::ostringstream buf;
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	604
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	605 if (nm.empty ())
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	606 buf << "f(";
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	607 else
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	608 buf << nm << "(";
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	609
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	610 for (int i = 0; i < ifargs.length (); i++)
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	611 {
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	612 if (i)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	613 buf << ", ";
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	614
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	615 buf << ifargs(i);
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	616 }
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	617
5765 7ba9ad1fec11 [project @ 2006-04-17 05:05:15 by jwe] jwe parents: 5760 diff changeset	618 buf << ") = " << iftext;
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	619
5765 7ba9ad1fec11 [project @ 2006-04-17 05:05:15 by jwe] jwe parents: 5760 diff changeset	620 octave_print_internal (os, buf.str (), pr_as_read_syntax,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	621 current_print_indent_level ());
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	622 }
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	623
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	624 octave_value
5279 bd32f770c09a [project @ 2005-04-12 21:55:31 by jwe] jwe parents: 5164 diff changeset	625 octave_fcn_inline::convert_to_str_internal (bool, bool, char type) const
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	626 {
5279 bd32f770c09a [project @ 2005-04-12 21:55:31 by jwe] jwe parents: 5164 diff changeset	627 return octave_value (fcn_text (), type);
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	628 }
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	629
6973 6fcc2f5b2c7d [project @ 2007-10-08 10:22:17 by jwe] jwe parents: 6635 diff changeset	630 DEFUNX ("inline", Finline, args, ,
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	631 "-- texinfo --\n\
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	632 @deftypefn {Built-in Function} {} inline (@var{str})\n\
6547 4fb053f24fd6 [project @ 2007-04-19 21:47:40 by jwe] jwe parents: 6529 diff changeset	633 @deftypefnx {Built-in Function} {} inline (@var{str}, @var{arg1}, @dots{})\n\
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	634 @deftypefnx {Built-in Function} {} inline (@var{str}, @var{n})\n\
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	635 Create an inline function from the character string @var{str}.\n\
5034 49827f6892f4 [project @ 2004-09-24 13:28:56 by jwe] jwe parents: 5025 diff changeset	636 If called with a single argument, the arguments of the generated\n\
9038 fca0dc2fb042 Cleanup documentation files stmt.texi and func.texi Rik <rdrider0-list@yahoo.com> parents: 8946 diff changeset	637 function are extracted from the function itself. The generated\n\
fca0dc2fb042 Cleanup documentation files stmt.texi and func.texi Rik <rdrider0-list@yahoo.com> parents: 8946 diff changeset	638 function arguments will then be in alphabetical order. It should\n\
5034 49827f6892f4 [project @ 2004-09-24 13:28:56 by jwe] jwe parents: 5025 diff changeset	639 be noted that i, and j are ignored as arguments due to the\n\
49827f6892f4 [project @ 2004-09-24 13:28:56 by jwe] jwe parents: 5025 diff changeset	640 ambiguity between their use as a variable or their use as an inbuilt\n\
9038 fca0dc2fb042 Cleanup documentation files stmt.texi and func.texi Rik <rdrider0-list@yahoo.com> parents: 8946 diff changeset	641 constant. All arguments followed by a parenthesis are considered\n\
5034 49827f6892f4 [project @ 2004-09-24 13:28:56 by jwe] jwe parents: 5025 diff changeset	642 to be functions.\n\
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	643 \n\
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	644 If the second and subsequent arguments are character strings,\n\
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	645 they are the names of the arguments of the function.\n\
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	646 \n\
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	647 If the second argument is an integer @var{n}, the arguments are\n\
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	648 @code{\"x\"}, @code{\"P1\"}, @dots{}, @code{\"P@var{N}\"}.\n\
5642 2618a0750ae6 [project @ 2006-03-06 21:26:48 by jwe] jwe parents: 5409 diff changeset	649 @seealso{argnames, formula, vectorize}\n\
2618a0750ae6 [project @ 2006-03-06 21:26:48 by jwe] jwe parents: 5409 diff changeset	650 @end deftypefn")
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	651 {
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	652 octave_value retval;
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	653
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	654 int nargin = args.length ();
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	655
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	656 if (nargin > 0)
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	657 {
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	658 std::string fun = args(0).string_value ();
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	659
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	660 if (! error_state)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	661 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	662 string_vector fargs;
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	663
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	664 if (nargin == 1)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	665 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	666 bool is_arg = false;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	667 bool in_string = false;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	668 std::string tmp_arg;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	669 size_t i = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	670
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	671 while (i < fun.length ())
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	672 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	673 bool terminate_arg = false;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	674 char c = fun[i++];
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	675
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	676 if (in_string)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	677 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	678 if (c == '\'' \|\| c == '\"')
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	679 in_string = false;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	680 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	681 else if (c == '\'' \|\| c == '\"')
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	682 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	683 in_string = true;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	684 if (is_arg)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	685 terminate_arg = true;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	686 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	687 else if (! isalpha (c) && c != '_')
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	688 if (! is_arg)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	689 continue;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	690 else if (isdigit (c))
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	691 tmp_arg.append (1, c);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	692 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	693 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	694 // Before we do anything remove trailing whitespaces.
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	695 while (i < fun.length () && isspace (c))
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	696 c = fun[i++];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	697
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	698 // Do we have a variable or a function?
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	699 if (c != '(')
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	700 terminate_arg = true;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	701 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	702 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	703 tmp_arg = std::string ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	704 is_arg = false;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	705 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	706 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	707 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	708 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	709 tmp_arg.append (1, c);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	710 is_arg = true;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	711 }
5034 49827f6892f4 [project @ 2004-09-24 13:28:56 by jwe] jwe parents: 5025 diff changeset	712
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	713 if (terminate_arg \|\| (i == fun.length () && is_arg))
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	714 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	715 bool have_arg = false;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	716
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	717 for (int j = 0; j < fargs.length (); j++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	718 if (tmp_arg == fargs (j))
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	719 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	720 have_arg = true;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	721 break;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	722 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	723
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	724 if (! have_arg && tmp_arg != "i" && tmp_arg != "j" &&
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	725 tmp_arg != "NaN" && tmp_arg != "nan" &&
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	726 tmp_arg != "Inf" && tmp_arg != "inf" &&
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	727 tmp_arg != "NA" && tmp_arg != "pi" &&
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	728 tmp_arg != "eps")
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	729 fargs.append (tmp_arg);
5037 70be065b8201 [project @ 2004-09-24 14:59:24 by jwe] jwe parents: 5034 diff changeset	730
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	731 tmp_arg = std::string ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	732 is_arg = false;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	733 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	734 }
5034 49827f6892f4 [project @ 2004-09-24 13:28:56 by jwe] jwe parents: 5025 diff changeset	735
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	736 // Sort the arguments into ascii order.
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	737 fargs.sort ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	738 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	739 else if (nargin == 2 && args(1).is_numeric_type ())
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	740 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	741 int n = args(1).int_value ();
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	742
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	743 if (! error_state)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	744 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	745 if (n >= 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	746 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	747 fargs.resize (n+1);
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	748
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	749 fargs(0) = "x";
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	750
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	751 for (int i = 1; i < n+1; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	752 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	753 std::ostringstream buf;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	754 buf << "P" << i;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	755 fargs(i) = buf.str ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	756 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	757 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	758 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	759 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	760 error ("inline: numeric argument must be nonnegative");
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	761 return retval;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	762 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	763 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	764 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	765 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	766 error ("inline: expecting second argument to be an integer");
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	767 return retval;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	768 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	769 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	770 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	771 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	772 fargs.resize (nargin - 1);
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	773
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	774 for (int i = 1; i < nargin; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	775 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	776 std::string s = args(i).string_value ();
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	777
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	778 if (! error_state)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	779 fargs(i-1) = s;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	780 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	781 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	782 error ("inline: expecting string arguments");
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	783 return retval;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	784 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	785 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	786 }
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	787
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	788 retval = octave_value (new octave_fcn_inline (fun, fargs));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	789 }
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	790 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	791 error ("inline: first argument must be a string");
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	792 }
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	793 else
5823 080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe] jwe parents: 5775 diff changeset	794 print_usage ();
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	795
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	796 return retval;
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	797 }
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	798
7394 872b263b7e62 [project @ 2008-01-17 10:16:15 by dbateman] dbateman parents: 7017 diff changeset	799 /*
872b263b7e62 [project @ 2008-01-17 10:16:15 by dbateman] dbateman parents: 7017 diff changeset	800 %!shared fn
872b263b7e62 [project @ 2008-01-17 10:16:15 by dbateman] dbateman parents: 7017 diff changeset	801 %! fn = inline ("x.^2 + 1","x");
872b263b7e62 [project @ 2008-01-17 10:16:15 by dbateman] dbateman parents: 7017 diff changeset	802 %!assert (feval (fn, 6), 37)
872b263b7e62 [project @ 2008-01-17 10:16:15 by dbateman] dbateman parents: 7017 diff changeset	803 %!assert (fn (6), 37)
872b263b7e62 [project @ 2008-01-17 10:16:15 by dbateman] dbateman parents: 7017 diff changeset	804 */
872b263b7e62 [project @ 2008-01-17 10:16:15 by dbateman] dbateman parents: 7017 diff changeset	805
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	806 DEFUN (formula, args, ,
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	807 "-- texinfo --\n\
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	808 @deftypefn {Built-in Function} {} formula (@var{fun})\n\
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	809 Return a character string representing the inline function @var{fun}.\n\
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	810 Note that @code{char (@var{fun})} is equivalent to\n\
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	811 @code{formula (@var{fun})}.\n\
5642 2618a0750ae6 [project @ 2006-03-06 21:26:48 by jwe] jwe parents: 5409 diff changeset	812 @seealso{argnames, inline, vectorize}\n\
2618a0750ae6 [project @ 2006-03-06 21:26:48 by jwe] jwe parents: 5409 diff changeset	813 @end deftypefn")
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	814 {
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	815 octave_value retval;
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	816
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	817 int nargin = args.length ();
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	818
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	819 if (nargin == 1)
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	820 {
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	821 octave_fcn_inline* fn = args(0).fcn_inline_value (true);
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	822
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	823 if (fn)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	824 retval = octave_value (fn->fcn_text ());
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	825 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	826 error ("formula: must be an inline function");
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	827 }
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	828 else
5823 080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe] jwe parents: 5775 diff changeset	829 print_usage ();
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	830
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	831 return retval;
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	832 }
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	833
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	834 DEFUN (argnames, args, ,
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	835 "-- texinfo --\n\
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	836 @deftypefn {Built-in Function} {} argnames (@var{fun})\n\
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	837 Return a cell array of character strings containing the names of\n\
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	838 the arguments of the inline function @var{fun}.\n\
6529 853f99e292ec [project @ 2007-04-16 21:29:03 by jwe] jwe parents: 6220 diff changeset	839 @seealso{inline, formula, vectorize}\n\
5642 2618a0750ae6 [project @ 2006-03-06 21:26:48 by jwe] jwe parents: 5409 diff changeset	840 @end deftypefn")
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	841 {
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	842 octave_value retval;
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	843
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	844 int nargin = args.length ();
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	845
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	846 if (nargin == 1)
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	847 {
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	848 octave_fcn_inline *fn = args(0).fcn_inline_value (true);
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	849
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	850 if (fn)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	851 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	852 string_vector t1 = fn->fcn_arg_names ();
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	853
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	854 Cell t2 (dim_vector (t1.length (), 1));
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	855
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	856 for (int i = 0; i < t1.length (); i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	857 t2(i) = t1(i);
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	858
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	859 retval = t2;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	860 }
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	861 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	862 error ("argnames: argument must be an inline function");
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	863 }
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	864 else
5823 080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe] jwe parents: 5775 diff changeset	865 print_usage ();
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	866
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	867 return retval;
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	868 }
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	869
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	870 DEFUN (vectorize, args, ,
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	871 "-- texinfo --\n\
6635 c9c504d939c5 [project @ 2007-05-19 10:36:56 by dbateman] dbateman parents: 6625 diff changeset	872 @deftypefn {Built-in Function} {} vectorize (@var{fun})\n\
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	873 Create a vectorized version of the inline function @var{fun}\n\
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	874 by replacing all occurrences of @code{*}, @code{/}, etc., with\n\
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	875 @code{.*}, @code{./}, etc.\n\
5642 2618a0750ae6 [project @ 2006-03-06 21:26:48 by jwe] jwe parents: 5409 diff changeset	876 @end deftypefn")
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	877 {
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	878 octave_value retval;
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	879
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	880 int nargin = args.length ();
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	881
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	882 if (nargin == 1)
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	883 {
5409 fda074a55b5c [project @ 2005-07-11 08:41:16 by dbateman] dbateman parents: 5307 diff changeset	884 std::string old_func;
fda074a55b5c [project @ 2005-07-11 08:41:16 by dbateman] dbateman parents: 5307 diff changeset	885 octave_fcn_inline* old = 0;
fda074a55b5c [project @ 2005-07-11 08:41:16 by dbateman] dbateman parents: 5307 diff changeset	886 bool func_is_string = true;
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	887
5409 fda074a55b5c [project @ 2005-07-11 08:41:16 by dbateman] dbateman parents: 5307 diff changeset	888 if (args(0).is_string ())
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	889 old_func = args(0).string_value ();
5409 fda074a55b5c [project @ 2005-07-11 08:41:16 by dbateman] dbateman parents: 5307 diff changeset	890 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	891 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	892 old = args(0).fcn_inline_value (true);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	893 func_is_string = false;
5409 fda074a55b5c [project @ 2005-07-11 08:41:16 by dbateman] dbateman parents: 5307 diff changeset	894
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	895 if (old)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	896 old_func = old->fcn_text ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	897 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	898 error ("vectorize: must be a string or inline function");
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	899 }
5409 fda074a55b5c [project @ 2005-07-11 08:41:16 by dbateman] dbateman parents: 5307 diff changeset	900
fda074a55b5c [project @ 2005-07-11 08:41:16 by dbateman] dbateman parents: 5307 diff changeset	901 if (! error_state)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	902 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	903 std::string new_func;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	904 size_t i = 0;
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	905
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	906 while (i < old_func.length ())
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	907 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	908 std::string t1 = old_func.substr (i, 1);
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	909
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	910 if (t1 == "*" \|\| t1 == "/" \|\| t1 == "\\" \|\| t1 == "^")
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	911 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	912 if (i && old_func.substr (i-1, 1) != ".")
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	913 new_func.append (".");
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	914
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	915 // Special case for ** operator.
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	916 if (t1 == "*" && i < (old_func.length () - 1)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	917 && old_func.substr (i+1, 1) == "*")
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	918 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	919 new_func.append ("*");
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	920 i++;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	921 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	922 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	923 new_func.append (t1);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	924 i++;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	925 }
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	926
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	927 if (func_is_string)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	928 retval = octave_value (new_func);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	929 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	930 retval = octave_value (new octave_fcn_inline
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	931 (new_func, old->fcn_arg_names ()));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	932 }
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	933 }
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	934 else
5823 080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe] jwe parents: 5775 diff changeset	935 print_usage ();
4933 cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	936
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	937 return retval;
cd58733c326b [project @ 2004-08-05 16:08:28 by jwe] jwe parents: diff changeset	938 }

Mercurial > hg > octave-nkf

annotate src/ov-fcn-inline.cc @ 10454:79a56d0a6a0d ss-3-3-51