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

annotate src/ov-builtin.cc @ 14138:72c96de7a403 stable

maint: update copyright notices for 2012

author	John W. Eaton <jwe@octave.org>
date	Mon, 02 Jan 2012 14:25:41 -0500
parents	43d78e103984
children	2960f1b2d6ea

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
14138 72c96de7a403 maint: update copyright notices for 2012 John W. Eaton <jwe@octave.org> parents: 12960 diff changeset	3 Copyright (C) 1996-2012 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"
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: 11523 diff changeset	32 #include "profiler.h"
4748 7b145222fea3 [project @ 2004-02-07 06:27:27 by jwe] jwe parents: 4612 diff changeset	33 #include "toplev.h"
7b145222fea3 [project @ 2004-02-07 06:27:27 by jwe] jwe parents: 4612 diff changeset	34 #include "unwind-prot.h"
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	35
3219 30770ba4457a [project @ 1998-11-13 03:44:31 by jwe] jwe parents: 2974 diff changeset	36 DEFINE_OCTAVE_ALLOCATOR (octave_builtin);
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	37
4612 d44675070f1a [project @ 2003-11-14 19:49:56 by jwe] jwe parents: 4247 diff changeset	38 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	39 "built-in function",
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10184 diff changeset	40 "built-in function");
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	41
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	42 octave_value_list
4247 fc9a075d10fb [project @ 2002-12-30 23:05:27 by jwe] jwe parents: 4219 diff changeset	43 octave_builtin::subsref (const std::string& type,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10184 diff changeset	44 const std::list<octave_value_list>& idx,
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10184 diff changeset	45 int nargout)
3933 f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	46 {
10887 f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	47 return octave_builtin::subsref (type, idx, nargout, 0);
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
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	50 octave_value_list
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	51 octave_builtin::subsref (const std::string& type,
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	52 const std::list<octave_value_list>& idx,
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	53 int nargout, const std::list<octave_lvalue>* lvalue_list)
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	54 {
3933 f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	55 octave_value_list retval;
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	56
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	57 switch (type[0])
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	58 {
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	59 case '(':
5154 9cb38bfb04ea [project @ 2005-02-21 21:23:28 by jwe] jwe parents: 5105 diff changeset	60 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10184 diff changeset	61 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	62
10887 f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	63 retval = do_multi_index_op (tmp_nargout, idx.front (),
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	64 idx.size () == 1 ? lvalue_list : 0);
5154 9cb38bfb04ea [project @ 2005-02-21 21:23:28 by jwe] jwe parents: 5105 diff changeset	65 }
3933 f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	66 break;
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	67
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 case '.':
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	70 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10184 diff changeset	71 std::string nm = type_name ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10184 diff changeset	72 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	73 }
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	74 break;
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	75
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	76 default:
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	77 panic_impossible ();
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	78 }
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	79
5775 ace8d8d26933 [project @ 2006-04-24 19:13:06 by jwe] jwe parents: 5743 diff changeset	80 // FIXME -- perhaps there should be an
4059 db58c1a1e6ce [project @ 2002-09-18 07:21:12 by jwe] jwe parents: 3933 diff changeset	81 // octave_value_list::next_subsref member function? See also
db58c1a1e6ce [project @ 2002-09-18 07:21:12 by jwe] jwe parents: 3933 diff changeset	82 // octave_user_function::subsref.
db58c1a1e6ce [project @ 2002-09-18 07:21:12 by jwe] jwe parents: 3933 diff changeset	83 //
5775 ace8d8d26933 [project @ 2006-04-24 19:13:06 by jwe] jwe parents: 5743 diff changeset	84 // 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	85 // 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	86 // 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	87 // 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	88 // for exmaple?
3933 f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	89
4219 23d06c9e1edd [project @ 2002-12-06 21:29:17 by jwe] jwe parents: 4192 diff changeset	90 if (idx.size () > 1)
4994 48d0defe9445 [project @ 2004-09-15 20:31:31 by jwe] jwe parents: 4987 diff changeset	91 retval = retval(0).next_subsref (nargout, type, idx);
4059 db58c1a1e6ce [project @ 2002-09-18 07:21:12 by jwe] jwe parents: 3933 diff changeset	92
db58c1a1e6ce [project @ 2002-09-18 07:21:12 by jwe] jwe parents: 3933 diff changeset	93 return retval;
3933 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
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	96 octave_value_list
3544 71bd2d124119 [project @ 2000-02-02 21:02:31 by jwe] jwe parents: 3325 diff changeset	97 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	98 {
10887 f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	99 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	100 }
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	101
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	102 octave_value_list
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	103 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	104 const std::list<octave_lvalue> *lvalue_list)
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	105 {
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	106 octave_value_list retval;
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	107
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	108 if (error_state)
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	109 return retval;
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	110
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: 5775 diff changeset	111 if (args.has_magic_colon ())
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	112 ::error ("invalid use of colon in function argument list");
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	113 else
4748 7b145222fea3 [project @ 2004-02-07 06:27:27 by jwe] jwe parents: 4612 diff changeset	114 {
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9396 diff changeset	115 unwind_protect frame;
4987 bad4898b468e [project @ 2004-09-10 20:24:05 by jwe] jwe parents: 4975 diff changeset	116
5743 a527e0f77aa5 [project @ 2006-04-06 08:20:21 by jwe] jwe parents: 5307 diff changeset	117 octave_call_stack::push (this);
4975 80842ad3f85c [project @ 2004-09-08 18:37:58 by jwe] jwe parents: 4748 diff changeset	118
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9396 diff changeset	119 frame.add_fcn (octave_call_stack::pop);
4748 7b145222fea3 [project @ 2004-02-07 06:27:27 by jwe] jwe parents: 4612 diff changeset	120
10887 f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	121 if (lvalue_list \|\| curr_lvalue_list)
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	122 {
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	123 frame.protect_var (curr_lvalue_list);
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	124 curr_lvalue_list = lvalue_list;
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	125 }
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	126
7487 1e01db14700b catch octave_execution_exception for built-in and mex functions John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	127 try
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10184 diff changeset	128 {
12960 43d78e103984 Use macro to start profiler blocks. Daniel Kraft <d@domob.eu> parents: 12920 diff changeset	129 BEGIN_PROFILER_BLOCK (profiler_name ())
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: 11523 diff changeset	130
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10184 diff changeset	131 retval = (*f) (args, nargout);
10184 b39bd23019eb partially revert a668fbd32e34 Jaroslav Hajek <highegg@gmail.com> parents: 10181 diff changeset	132 // Do not allow null values to be returned from functions.
b39bd23019eb partially revert a668fbd32e34 Jaroslav Hajek <highegg@gmail.com> parents: 10181 diff changeset	133 // FIXME -- perhaps true builtins should be allowed?
b39bd23019eb partially revert a668fbd32e34 Jaroslav Hajek <highegg@gmail.com> parents: 10181 diff changeset	134 retval.make_storable_values ();
10181 a668fbd32e34 improve cellfun & avoid undefined values from builtins Jaroslav Hajek <highegg@gmail.com> parents: 10160 diff changeset	135 // 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	136 // This happens when a compiled function uses
a668fbd32e34 improve cellfun & avoid undefined values from builtins Jaroslav Hajek <highegg@gmail.com> parents: 10160 diff changeset	137 // octave_value retval;
a668fbd32e34 improve cellfun & avoid undefined values from builtins Jaroslav Hajek <highegg@gmail.com> parents: 10160 diff changeset	138 // instead of
a668fbd32e34 improve cellfun & avoid undefined values from builtins Jaroslav Hajek <highegg@gmail.com> parents: 10160 diff changeset	139 // octave_value_list retval;
a668fbd32e34 improve cellfun & avoid undefined values from builtins Jaroslav Hajek <highegg@gmail.com> parents: 10160 diff changeset	140 // 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	141 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	142 retval.clear ();
12960 43d78e103984 Use macro to start profiler blocks. Daniel Kraft <d@domob.eu> parents: 12920 diff changeset	143
43d78e103984 Use macro to start profiler blocks. Daniel Kraft <d@domob.eu> parents: 12920 diff changeset	144 END_PROFILER_BLOCK
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10184 diff changeset	145 }
7487 1e01db14700b catch octave_execution_exception for built-in and mex functions John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	146 catch (octave_execution_exception)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10184 diff changeset	147 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10184 diff changeset	148 gripe_library_execution_error ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10184 diff changeset	149 }
4748 7b145222fea3 [project @ 2004-02-07 06:27:27 by jwe] jwe parents: 4612 diff changeset	150 }
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	151
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	152 return retval;
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	153 }
10887 f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	154
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	155
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	156 const std::list<octave_lvalue> *octave_builtin::curr_lvalue_list = 0;

Mercurial > octave-nkf

annotate src/ov-builtin.cc @ 14138:72c96de7a403 stable