octave-nkf: src/ov-builtin.cc annotate

annotate src/ov-builtin.cc @ 12312:b10ea6efdc58 release-3-4-x ss-3-3-91

version is now 3.3.91

author	John W. Eaton <jwe@octave.org>
date	Mon, 31 Jan 2011 08:36:58 -0500
parents	fd0a3ac60b0e
children	ad9263d965dc

rev	line source
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	1 /*
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	2
11523 fd0a3ac60b0e update copyright notices John W. Eaton <jwe@octave.org> parents: 10887 diff changeset	3 Copyright (C) 1996-2011 John W. Eaton
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	4
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	5 This file is part of Octave.
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	6
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	7 Octave is free software; you can redistribute it and/or modify it
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	8 under the terms of the GNU General Public License as published by the
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 5864 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: 5864 diff changeset	10 option) any later version.
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	11
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	12 Octave is distributed in the hope that it will be useful, but WITHOUT
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	15 for more details.
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	16
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 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: 5864 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: 5864 diff changeset	19 <http://www.gnu.org/licenses/>.
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	20
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	21 */
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	22
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	23 #ifdef HAVE_CONFIG_H
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	24 #include <config.h>
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	25 #endif
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	26
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	27 #include "error.h"
8011 3100283874d7 improve backtrace error messages John W. Eaton <jwe@octave.org> parents: 7487 diff changeset	28 #include "gripes.h"
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	29 #include "oct-obj.h"
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	30 #include "ov-builtin.h"
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	31 #include "ov.h"
4748 7b145222fea3 [project @ 2004-02-07 06:27:27 by jwe] jwe parents: 4612 diff changeset	32 #include "toplev.h"
7b145222fea3 [project @ 2004-02-07 06:27:27 by jwe] jwe parents: 4612 diff changeset	33 #include "unwind-prot.h"
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	34
3219 30770ba4457a [project @ 1998-11-13 03:44:31 by jwe] jwe parents: 2974 diff changeset	35 DEFINE_OCTAVE_ALLOCATOR (octave_builtin);
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	36
4612 d44675070f1a [project @ 2003-11-14 19:49:56 by jwe] jwe parents: 4247 diff changeset	37 DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (octave_builtin,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10184 diff changeset	38 "built-in function",
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10184 diff changeset	39 "built-in function");
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	40
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	41 octave_value_list
4247 fc9a075d10fb [project @ 2002-12-30 23:05:27 by jwe] jwe parents: 4219 diff changeset	42 octave_builtin::subsref (const std::string& type,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10184 diff changeset	43 const std::list<octave_value_list>& idx,
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10184 diff changeset	44 int nargout)
3933 f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	45 {
10887 f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	46 return octave_builtin::subsref (type, idx, nargout, 0);
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	47 }
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	48
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	49 octave_value_list
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	50 octave_builtin::subsref (const std::string& type,
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	51 const std::list<octave_value_list>& idx,
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	52 int nargout, const std::list<octave_lvalue>* lvalue_list)
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	53 {
3933 f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	54 octave_value_list retval;
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	55
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	56 switch (type[0])
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	57 {
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	58 case '(':
5154 9cb38bfb04ea [project @ 2005-02-21 21:23:28 by jwe] jwe parents: 5105 diff changeset	59 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10184 diff changeset	60 int tmp_nargout = (type.length () > 1 && nargout == 0) ? 1 : nargout;
5154 9cb38bfb04ea [project @ 2005-02-21 21:23:28 by jwe] jwe parents: 5105 diff changeset	61
10887 f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	62 retval = do_multi_index_op (tmp_nargout, idx.front (),
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	63 idx.size () == 1 ? lvalue_list : 0);
5154 9cb38bfb04ea [project @ 2005-02-21 21:23:28 by jwe] jwe parents: 5105 diff changeset	64 }
3933 f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	65 break;
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	66
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	67 case '{':
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	68 case '.':
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	69 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10184 diff changeset	70 std::string nm = type_name ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10184 diff changeset	71 error ("%s cannot be indexed with %c", nm.c_str (), type[0]);
3933 f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	72 }
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	73 break;
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	74
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	75 default:
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	76 panic_impossible ();
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	77 }
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	78
5775 ace8d8d26933 [project @ 2006-04-24 19:13:06 by jwe] jwe parents: 5743 diff changeset	79 // FIXME -- perhaps there should be an
4059 db58c1a1e6ce [project @ 2002-09-18 07:21:12 by jwe] jwe parents: 3933 diff changeset	80 // octave_value_list::next_subsref member function? See also
db58c1a1e6ce [project @ 2002-09-18 07:21:12 by jwe] jwe parents: 3933 diff changeset	81 // octave_user_function::subsref.
db58c1a1e6ce [project @ 2002-09-18 07:21:12 by jwe] jwe parents: 3933 diff changeset	82 //
5775 ace8d8d26933 [project @ 2006-04-24 19:13:06 by jwe] jwe parents: 5743 diff changeset	83 // FIXME -- Note that if a function call returns multiple
4059 db58c1a1e6ce [project @ 2002-09-18 07:21:12 by jwe] jwe parents: 3933 diff changeset	84 // values, and there is further indexing to perform, then we are
db58c1a1e6ce [project @ 2002-09-18 07:21:12 by jwe] jwe parents: 3933 diff changeset	85 // ignoring all but the first value. Is this really what we want to
db58c1a1e6ce [project @ 2002-09-18 07:21:12 by jwe] jwe parents: 3933 diff changeset	86 // do? If it is not, then what should happen for stat("file").size,
db58c1a1e6ce [project @ 2002-09-18 07:21:12 by jwe] jwe parents: 3933 diff changeset	87 // for exmaple?
3933 f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	88
4219 23d06c9e1edd [project @ 2002-12-06 21:29:17 by jwe] jwe parents: 4192 diff changeset	89 if (idx.size () > 1)
4994 48d0defe9445 [project @ 2004-09-15 20:31:31 by jwe] jwe parents: 4987 diff changeset	90 retval = retval(0).next_subsref (nargout, type, idx);
4059 db58c1a1e6ce [project @ 2002-09-18 07:21:12 by jwe] jwe parents: 3933 diff changeset	91
db58c1a1e6ce [project @ 2002-09-18 07:21:12 by jwe] jwe parents: 3933 diff changeset	92 return retval;
3933 f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	93 }
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	94
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	95 octave_value_list
3544 71bd2d124119 [project @ 2000-02-02 21:02:31 by jwe] jwe parents: 3325 diff changeset	96 octave_builtin::do_multi_index_op (int nargout, const octave_value_list& args)
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	97 {
10887 f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	98 return octave_builtin::do_multi_index_op (nargout, args, 0);
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	99 }
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	100
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	101 octave_value_list
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	102 octave_builtin::do_multi_index_op (int nargout, const octave_value_list& args,
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	103 const std::list<octave_lvalue> *lvalue_list)
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	104 {
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	105 octave_value_list retval;
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	106
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	107 if (error_state)
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	108 return retval;
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	109
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: 5775 diff changeset	110 if (args.has_magic_colon ())
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	111 ::error ("invalid use of colon in function argument list");
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	112 else
4748 7b145222fea3 [project @ 2004-02-07 06:27:27 by jwe] jwe parents: 4612 diff changeset	113 {
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9396 diff changeset	114 unwind_protect frame;
4987 bad4898b468e [project @ 2004-09-10 20:24:05 by jwe] jwe parents: 4975 diff changeset	115
5743 a527e0f77aa5 [project @ 2006-04-06 08:20:21 by jwe] jwe parents: 5307 diff changeset	116 octave_call_stack::push (this);
4975 80842ad3f85c [project @ 2004-09-08 18:37:58 by jwe] jwe parents: 4748 diff changeset	117
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9396 diff changeset	118 frame.add_fcn (octave_call_stack::pop);
4748 7b145222fea3 [project @ 2004-02-07 06:27:27 by jwe] jwe parents: 4612 diff changeset	119
10887 f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	120 if (lvalue_list \|\| curr_lvalue_list)
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	121 {
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	122 frame.protect_var (curr_lvalue_list);
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	123 curr_lvalue_list = lvalue_list;
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	124 }
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	125
7487 1e01db14700b catch octave_execution_exception for built-in and mex functions John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	126 try
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10184 diff changeset	127 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10184 diff changeset	128 retval = (*f) (args, nargout);
10184 b39bd23019eb partially revert a668fbd32e34 Jaroslav Hajek <highegg@gmail.com> parents: 10181 diff changeset	129 // Do not allow null values to be returned from functions.
b39bd23019eb partially revert a668fbd32e34 Jaroslav Hajek <highegg@gmail.com> parents: 10181 diff changeset	130 // FIXME -- perhaps true builtins should be allowed?
b39bd23019eb partially revert a668fbd32e34 Jaroslav Hajek <highegg@gmail.com> parents: 10181 diff changeset	131 retval.make_storable_values ();
10181 a668fbd32e34 improve cellfun & avoid undefined values from builtins Jaroslav Hajek <highegg@gmail.com> parents: 10160 diff changeset	132 // Fix the case of a single undefined value.
a668fbd32e34 improve cellfun & avoid undefined values from builtins Jaroslav Hajek <highegg@gmail.com> parents: 10160 diff changeset	133 // This happens when a compiled function uses
a668fbd32e34 improve cellfun & avoid undefined values from builtins Jaroslav Hajek <highegg@gmail.com> parents: 10160 diff changeset	134 // octave_value retval;
a668fbd32e34 improve cellfun & avoid undefined values from builtins Jaroslav Hajek <highegg@gmail.com> parents: 10160 diff changeset	135 // instead of
a668fbd32e34 improve cellfun & avoid undefined values from builtins Jaroslav Hajek <highegg@gmail.com> parents: 10160 diff changeset	136 // octave_value_list retval;
a668fbd32e34 improve cellfun & avoid undefined values from builtins Jaroslav Hajek <highegg@gmail.com> parents: 10160 diff changeset	137 // the idiom is very common, so we solve that here.
a668fbd32e34 improve cellfun & avoid undefined values from builtins Jaroslav Hajek <highegg@gmail.com> parents: 10160 diff changeset	138 if (retval.length () == 1 && retval.xelem (0).is_undefined ())
a668fbd32e34 improve cellfun & avoid undefined values from builtins Jaroslav Hajek <highegg@gmail.com> parents: 10160 diff changeset	139 retval.clear ();
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10184 diff changeset	140 }
7487 1e01db14700b catch octave_execution_exception for built-in and mex functions John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	141 catch (octave_execution_exception)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10184 diff changeset	142 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10184 diff changeset	143 gripe_library_execution_error ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10184 diff changeset	144 }
4748 7b145222fea3 [project @ 2004-02-07 06:27:27 by jwe] jwe parents: 4612 diff changeset	145 }
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	146
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	147 return retval;
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	148 }
10887 f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	149
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	150
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	151 const std::list<octave_lvalue> *octave_builtin::curr_lvalue_list = 0;

Mercurial > octave-nkf

annotate src/ov-builtin.cc @ 12312:b10ea6efdc58 release-3-4-x ss-3-3-91