octave: libinterp/octave-value/ov-builtin.cc annotate

annotate libinterp/octave-value/ov-builtin.cc @ 22897:4090c32fccf8

store set of dispatch classes in built-in function objects * ov-fcn.h (octave_function::push_dispatch_class, octave_function::handles_dispatch_class): New virtual functions. * ov-builtin.h, ov-builtin.cc (octave_builtin::push_dispatch_class, octave_builtin::handles_dispatch_class): New functions. * symtab.h, symtab.cc (symbol_table::fcn_info::fcn_info_rep::install_built_in_dispatch): Define in .cc file. Store class names in built-in function object instead of class_methods. (symbol_table::fcn_info::fcn_info_rep::load_class_method): Also search for built-in functions that are declared to handle specific types.

author	John W. Eaton <jwe@octave.org>
date	Thu, 15 Dec 2016 22:04:11 -0500
parents	3a2b891d0b33
children	f97e22a9012a

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
22323 bac0d6f07a3e maint: Update copyright notices for 2016. John W. Eaton <jwe@octave.org> parents: 22094 diff changeset	3 Copyright (C) 1996-2016 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
22755 3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22407 diff changeset	8 under the terms of the GNU General Public License as published by
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22407 diff changeset	9 the Free Software Foundation; either version 3 of the License, or
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22407 diff changeset	10 (at your option) any later version.
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	11
22755 3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22407 diff changeset	12 Octave is distributed in the hope that it will be useful, but
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22407 diff changeset	13 WITHOUT ANY WARRANTY; without even the implied warranty of
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22407 diff changeset	14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22407 diff changeset	15 GNU General Public License for more details.
2974 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
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21301 diff changeset	23 #if defined (HAVE_CONFIG_H)
21301 40de9f8f23a6 Use '#include "config.h"' rather than <config.h>. Rik <rik@octave.org> parents: 21200 diff changeset	24 # include "config.h"
2974 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
22091 0f6fc2ec3b1a move call_stack class to a separate file John W. Eaton <jwe@octave.org> parents: 21743 diff changeset	27 #include "call-stack.h"
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	28 #include "error.h"
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21055 diff changeset	29 #include "errwarn.h"
20940 48b2ad5ee801 maint: Rename oct-obj.[cc\|h] to ovl.[cc\|h] for clarity. Rik <rik@octave.org> parents: 20555 diff changeset	30 #include "ovl.h"
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	31 #include "ov-builtin.h"
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	32 #include "ov.h"
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: 11523 diff changeset	33 #include "profiler.h"
22094 9203833cab7d move new interpreter class to separate file John W. Eaton <jwe@octave.org> parents: 22091 diff changeset	34 #include "interpreter.h"
4748 7b145222fea3 [project @ 2004-02-07 06:27:27 by jwe] jwe parents: 4612 diff changeset	35 #include "unwind-prot.h"
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	36
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,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	53 int nargout,
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	54 const std::list<octave_lvalue>* lvalue_list)
10887 f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	55 {
3933 f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	56 octave_value_list retval;
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 switch (type[0])
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	59 {
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	60 case '(':
5154 9cb38bfb04ea [project @ 2005-02-21 21:23:28 by jwe] jwe parents: 5105 diff changeset	61 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10184 diff changeset	62 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	63
10887 f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	64 retval = do_multi_index_op (tmp_nargout, idx.front (),
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	65 idx.size () == 1 ? lvalue_list : 0);
5154 9cb38bfb04ea [project @ 2005-02-21 21:23:28 by jwe] jwe parents: 5105 diff changeset	66 }
3933 f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	67 break;
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	68
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 case '.':
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	71 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10184 diff changeset	72 std::string nm = type_name ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10184 diff changeset	73 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	74 }
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	75 break;
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	76
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	77 default:
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	78 panic_impossible ();
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	79 }
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	80
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	81 // FIXME: perhaps there should be an
4059 db58c1a1e6ce [project @ 2002-09-18 07:21:12 by jwe] jwe parents: 3933 diff changeset	82 // octave_value_list::next_subsref member function? See also
db58c1a1e6ce [project @ 2002-09-18 07:21:12 by jwe] jwe parents: 3933 diff changeset	83 // octave_user_function::subsref.
db58c1a1e6ce [project @ 2002-09-18 07:21:12 by jwe] jwe parents: 3933 diff changeset	84 //
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	85 // 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	86 // 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	87 // 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	88 // 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	89 // for exmaple?
3933 f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	90
4219 23d06c9e1edd [project @ 2002-12-06 21:29:17 by jwe] jwe parents: 4192 diff changeset	91 if (idx.size () > 1)
4994 48d0defe9445 [project @ 2004-09-15 20:31:31 by jwe] jwe parents: 4987 diff changeset	92 retval = retval(0).next_subsref (nargout, type, idx);
4059 db58c1a1e6ce [project @ 2002-09-18 07:21:12 by jwe] jwe parents: 3933 diff changeset	93
db58c1a1e6ce [project @ 2002-09-18 07:21:12 by jwe] jwe parents: 3933 diff changeset	94 return retval;
3933 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
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3544 diff changeset	97 octave_value_list
3544 71bd2d124119 [project @ 2000-02-02 21:02:31 by jwe] jwe parents: 3325 diff changeset	98 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	99 {
10887 f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	100 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	101 }
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	102
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	103 octave_value_list
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	104 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	105 const std::list<octave_lvalue> *lvalue_list)
f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	106 {
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	107 octave_value_list retval;
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	108
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: 5775 diff changeset	109 if (args.has_magic_colon ())
20428 7ac907da9fba Use error() rather than ::error() unless explicitly required. Rik <rik@octave.org> parents: 19697 diff changeset	110 error ("invalid use of colon in function argument list");
21055 5e00ed38a58b maint: Replace if/error/else paradigm with just if/error. Rik <rik@octave.org> parents: 20940 diff changeset	111
21743 f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21724 diff changeset	112 octave::unwind_protect frame;
4987 bad4898b468e [project @ 2004-09-10 20:24:05 by jwe] jwe parents: 4975 diff changeset	113
21055 5e00ed38a58b maint: Replace if/error/else paradigm with just if/error. Rik <rik@octave.org> parents: 20940 diff changeset	114 octave_call_stack::push (this);
4975 80842ad3f85c [project @ 2004-09-08 18:37:58 by jwe] jwe parents: 4748 diff changeset	115
21055 5e00ed38a58b maint: Replace if/error/else paradigm with just if/error. Rik <rik@octave.org> parents: 20940 diff changeset	116 frame.add_fcn (octave_call_stack::pop);
4748 7b145222fea3 [project @ 2004-02-07 06:27:27 by jwe] jwe parents: 4612 diff changeset	117
21055 5e00ed38a58b maint: Replace if/error/else paradigm with just if/error. Rik <rik@octave.org> parents: 20940 diff changeset	118 if (lvalue_list \|\| curr_lvalue_list)
5e00ed38a58b maint: Replace if/error/else paradigm with just if/error. Rik <rik@octave.org> parents: 20940 diff changeset	119 {
5e00ed38a58b maint: Replace if/error/else paradigm with just if/error. Rik <rik@octave.org> parents: 20940 diff changeset	120 frame.protect_var (curr_lvalue_list);
5e00ed38a58b maint: Replace if/error/else paradigm with just if/error. Rik <rik@octave.org> parents: 20940 diff changeset	121 curr_lvalue_list = lvalue_list;
5e00ed38a58b maint: Replace if/error/else paradigm with just if/error. Rik <rik@octave.org> parents: 20940 diff changeset	122 }
10887 f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	123
21055 5e00ed38a58b maint: Replace if/error/else paradigm with just if/error. Rik <rik@octave.org> parents: 20940 diff changeset	124 BEGIN_PROFILER_BLOCK (octave_builtin)
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: 11523 diff changeset	125
22407 34ce5be04942 maint: Style check C++ code in libinterp/. Rik <rik@octave.org> parents: 22323 diff changeset	126 retval = (*f) (args, nargout);
21055 5e00ed38a58b maint: Replace if/error/else paradigm with just if/error. Rik <rik@octave.org> parents: 20940 diff changeset	127 // Do not allow null values to be returned from functions.
5e00ed38a58b maint: Replace if/error/else paradigm with just if/error. Rik <rik@octave.org> parents: 20940 diff changeset	128 // FIXME: perhaps true builtins should be allowed?
5e00ed38a58b maint: Replace if/error/else paradigm with just if/error. Rik <rik@octave.org> parents: 20940 diff changeset	129 retval.make_storable_values ();
5e00ed38a58b maint: Replace if/error/else paradigm with just if/error. Rik <rik@octave.org> parents: 20940 diff changeset	130 // Fix the case of a single undefined value.
5e00ed38a58b maint: Replace if/error/else paradigm with just if/error. Rik <rik@octave.org> parents: 20940 diff changeset	131 // This happens when a compiled function uses
5e00ed38a58b maint: Replace if/error/else paradigm with just if/error. Rik <rik@octave.org> parents: 20940 diff changeset	132 // octave_value retval;
5e00ed38a58b maint: Replace if/error/else paradigm with just if/error. Rik <rik@octave.org> parents: 20940 diff changeset	133 // instead of
5e00ed38a58b maint: Replace if/error/else paradigm with just if/error. Rik <rik@octave.org> parents: 20940 diff changeset	134 // octave_value_list retval;
5e00ed38a58b maint: Replace if/error/else paradigm with just if/error. Rik <rik@octave.org> parents: 20940 diff changeset	135 // the idiom is very common, so we solve that here.
5e00ed38a58b maint: Replace if/error/else paradigm with just if/error. Rik <rik@octave.org> parents: 20940 diff changeset	136 if (retval.length () == 1 && retval.xelem (0).is_undefined ())
5e00ed38a58b maint: Replace if/error/else paradigm with just if/error. Rik <rik@octave.org> parents: 20940 diff changeset	137 retval.clear ();
12960 43d78e103984 Use macro to start profiler blocks. Daniel Kraft <d@domob.eu> parents: 12920 diff changeset	138
21055 5e00ed38a58b maint: Replace if/error/else paradigm with just if/error. Rik <rik@octave.org> parents: 20940 diff changeset	139 END_PROFILER_BLOCK
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	140
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	141 return retval;
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	142 }
10887 f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	143
14973 2960f1b2d6ea Add sin to JIT Max Brister <max@2bass.com> parents: 14138 diff changeset	144 jit_type *
2960f1b2d6ea Add sin to JIT Max Brister <max@2bass.com> parents: 14138 diff changeset	145 octave_builtin::to_jit (void) const
2960f1b2d6ea Add sin to JIT Max Brister <max@2bass.com> parents: 14138 diff changeset	146 {
2960f1b2d6ea Add sin to JIT Max Brister <max@2bass.com> parents: 14138 diff changeset	147 return jtype;
2960f1b2d6ea Add sin to JIT Max Brister <max@2bass.com> parents: 14138 diff changeset	148 }
2960f1b2d6ea Add sin to JIT Max Brister <max@2bass.com> parents: 14138 diff changeset	149
2960f1b2d6ea Add sin to JIT Max Brister <max@2bass.com> parents: 14138 diff changeset	150 void
2960f1b2d6ea Add sin to JIT Max Brister <max@2bass.com> parents: 14138 diff changeset	151 octave_builtin::stash_jit (jit_type &type)
2960f1b2d6ea Add sin to JIT Max Brister <max@2bass.com> parents: 14138 diff changeset	152 {
2960f1b2d6ea Add sin to JIT Max Brister <max@2bass.com> parents: 14138 diff changeset	153 jtype = &type;
2960f1b2d6ea Add sin to JIT Max Brister <max@2bass.com> parents: 14138 diff changeset	154 }
10887 f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	155
14974 e3cd4c9d7ccc Generalize builtin specification in JIT and add support for cos and exp Max Brister <max@2bass.com> parents: 14973 diff changeset	156 octave_builtin::fcn
e3cd4c9d7ccc Generalize builtin specification in JIT and add support for cos and exp Max Brister <max@2bass.com> parents: 14973 diff changeset	157 octave_builtin::function (void) const
e3cd4c9d7ccc Generalize builtin specification in JIT and add support for cos and exp Max Brister <max@2bass.com> parents: 14973 diff changeset	158 {
e3cd4c9d7ccc Generalize builtin specification in JIT and add support for cos and exp Max Brister <max@2bass.com> parents: 14973 diff changeset	159 return f;
e3cd4c9d7ccc Generalize builtin specification in JIT and add support for cos and exp Max Brister <max@2bass.com> parents: 14973 diff changeset	160 }
e3cd4c9d7ccc Generalize builtin specification in JIT and add support for cos and exp Max Brister <max@2bass.com> parents: 14973 diff changeset	161
22897 4090c32fccf8 store set of dispatch classes in built-in function objects John W. Eaton <jwe@octave.org> parents: 22755 diff changeset	162 void
4090c32fccf8 store set of dispatch classes in built-in function objects John W. Eaton <jwe@octave.org> parents: 22755 diff changeset	163 octave_builtin::push_dispatch_class (const std::string& dispatch_type)
4090c32fccf8 store set of dispatch classes in built-in function objects John W. Eaton <jwe@octave.org> parents: 22755 diff changeset	164 {
4090c32fccf8 store set of dispatch classes in built-in function objects John W. Eaton <jwe@octave.org> parents: 22755 diff changeset	165 dispatch_classes.insert (dispatch_type);
4090c32fccf8 store set of dispatch classes in built-in function objects John W. Eaton <jwe@octave.org> parents: 22755 diff changeset	166 }
4090c32fccf8 store set of dispatch classes in built-in function objects John W. Eaton <jwe@octave.org> parents: 22755 diff changeset	167
4090c32fccf8 store set of dispatch classes in built-in function objects John W. Eaton <jwe@octave.org> parents: 22755 diff changeset	168 bool
4090c32fccf8 store set of dispatch classes in built-in function objects John W. Eaton <jwe@octave.org> parents: 22755 diff changeset	169 octave_builtin::handles_dispatch_class (const std::string& dispatch_type) const
4090c32fccf8 store set of dispatch classes in built-in function objects John W. Eaton <jwe@octave.org> parents: 22755 diff changeset	170 {
4090c32fccf8 store set of dispatch classes in built-in function objects John W. Eaton <jwe@octave.org> parents: 22755 diff changeset	171 return dispatch_classes.find (dispatch_type) != dispatch_classes.end ();
4090c32fccf8 store set of dispatch classes in built-in function objects John W. Eaton <jwe@octave.org> parents: 22755 diff changeset	172 }
4090c32fccf8 store set of dispatch classes in built-in function objects John W. Eaton <jwe@octave.org> parents: 22755 diff changeset	173
10887 f10d0bc8f9cc make isargout available to DEFUNs Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	174 const std::list<octave_lvalue> *octave_builtin::curr_lvalue_list = 0;
22407 34ce5be04942 maint: Style check C++ code in libinterp/. Rik <rik@octave.org> parents: 22323 diff changeset	175

Mercurial > octave

annotate libinterp/octave-value/ov-builtin.cc @ 22897:4090c32fccf8