octave-nkf: libinterp/octave-value/ov-usr-fcn.cc annotate

annotate libinterp/octave-value/ov-usr-fcn.cc @ 16856:787de2f144d9

Use string_fill_char when creating argn automatic variable (bug #34183). * libinterp/octave-value/ov-usr-fcn.cc(bind_automatic_vars): Call charMatrix constructor with Vstring_fill_char as default fill character. Use extern declaration to bring in Vstring_fill_char from pt-mat.cc.

author	Rik <rik@octave.org>
date	Wed, 26 Jun 2013 20:28:52 -0700
parents	de91b1621260
children	498b2dd1bd56 bc924baa2c4e

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: 13951 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: 6657 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: 6657 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: 6657 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: 6657 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
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: 12546 diff changeset	27 #include <sstream>
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: 12546 diff changeset	28
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	29 #include "str-vec.h"
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	30
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	31 #include <defaults.h>
3974 e2290bf911f0 [project @ 2002-07-04 17:38:22 by jwe] jwe parents: 3933 diff changeset	32 #include "Cell.h"
15427 6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15337 diff changeset	33 #include "builtins.h"
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	34 #include "defun.h"
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	35 #include "error.h"
10832 1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	36 #include "gripes.h"
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	37 #include "input.h"
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	38 #include "oct-obj.h"
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	39 #include "ov-usr-fcn.h"
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	40 #include "ov.h"
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	41 #include "pager.h"
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: 8580 diff changeset	42 #include "pt-eval.h"
15337 3f43e9d6d86e JIT compile anonymous functions Max Brister <max@2bass.com> parents: 15236 diff changeset	43 #include "pt-jit.h"
2985 aa9d0c0e0458 [project @ 1997-05-16 06:54:18 by jwe] jwe parents: 2982 diff changeset	44 #include "pt-jump.h"
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	45 #include "pt-misc.h"
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	46 #include "pt-pr-code.h"
2982 20f5cec4f11c [project @ 1997-05-16 03:29:26 by jwe] jwe parents: 2974 diff changeset	47 #include "pt-stmt.h"
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	48 #include "pt-walk.h"
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	49 #include "symtab.h"
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	50 #include "toplev.h"
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	51 #include "unwind-prot.h"
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	52 #include "utils.h"
3489 cbee5fbb696d [project @ 2000-01-28 09:14:32 by jwe] jwe parents: 3445 diff changeset	53 #include "parse.h"
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: 12546 diff changeset	54 #include "profiler.h"
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	55 #include "variables.h"
14136 20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	56 #include "ov-fcn-handle.h"
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	57
9522 e79470be3ecb implement subsasgn this-arg optimization Jaroslav Hajek <highegg@gmail.com> parents: 9396 diff changeset	58 // Whether to optimize subsasgn method calls.
9529 8e5009334661 partially revert e79470be3ecb Jaroslav Hajek <highegg@gmail.com> parents: 9522 diff changeset	59 static bool Voptimize_subsasgn_calls = true;
9522 e79470be3ecb implement subsasgn this-arg optimization Jaroslav Hajek <highegg@gmail.com> parents: 9396 diff changeset	60
16856 787de2f144d9 Use string_fill_char when creating argn automatic variable (bug #34183). Rik <rik@octave.org> parents: 16627 diff changeset	61 // The character to fill with when creating string arrays.
787de2f144d9 Use string_fill_char when creating argn automatic variable (bug #34183). Rik <rik@octave.org> parents: 16627 diff changeset	62 extern char Vstring_fill_char; // see pt-mat.cc
16596 645672f1c873 handle setting breakpoints in subfunctions in GUI editor John W. Eaton <jwe@octave.org> parents: 16530 diff changeset	63
645672f1c873 handle setting breakpoints in subfunctions in GUI editor John W. Eaton <jwe@octave.org> parents: 16530 diff changeset	64 std::map<std::string, octave_value>
645672f1c873 handle setting breakpoints in subfunctions in GUI editor John W. Eaton <jwe@octave.org> parents: 16530 diff changeset	65 octave_user_code::subfunctions (void) const
645672f1c873 handle setting breakpoints in subfunctions in GUI editor John W. Eaton <jwe@octave.org> parents: 16530 diff changeset	66 {
645672f1c873 handle setting breakpoints in subfunctions in GUI editor John W. Eaton <jwe@octave.org> parents: 16530 diff changeset	67 return std::map<std::string, octave_value> ();
645672f1c873 handle setting breakpoints in subfunctions in GUI editor John W. Eaton <jwe@octave.org> parents: 16530 diff changeset	68 }
645672f1c873 handle setting breakpoints in subfunctions in GUI editor John W. Eaton <jwe@octave.org> parents: 16530 diff changeset	69
7715 5b4d278ec828 parse scripts completely before executing John W. Eaton <jwe@octave.org> parents: 7589 diff changeset	70 // User defined scripts.
5b4d278ec828 parse scripts completely before executing John W. Eaton <jwe@octave.org> parents: 7589 diff changeset	71
5b4d278ec828 parse scripts completely before executing John W. Eaton <jwe@octave.org> parents: 7589 diff changeset	72 DEFINE_OCTAVE_ALLOCATOR (octave_user_script);
5b4d278ec828 parse scripts completely before executing John W. Eaton <jwe@octave.org> parents: 7589 diff changeset	73
5b4d278ec828 parse scripts completely before executing John W. Eaton <jwe@octave.org> parents: 7589 diff changeset	74 DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (octave_user_script,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	75 "user-defined script",
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	76 "user-defined script");
7715 5b4d278ec828 parse scripts completely before executing John W. Eaton <jwe@octave.org> parents: 7589 diff changeset	77
7731 2d2a969c731c fix max_recursion_limit exceeded at startup with Intel C++ Jaroslav Hajek <highegg@gmail.com> parents: 7719 diff changeset	78 octave_user_script::octave_user_script (void)
2d2a969c731c fix max_recursion_limit exceeded at startup with Intel C++ Jaroslav Hajek <highegg@gmail.com> parents: 7719 diff changeset	79 : octave_user_code (), cmd_list (0), file_name (),
2d2a969c731c fix max_recursion_limit exceeded at startup with Intel C++ Jaroslav Hajek <highegg@gmail.com> parents: 7719 diff changeset	80 t_parsed (static_cast<time_t> (0)),
2d2a969c731c fix max_recursion_limit exceeded at startup with Intel C++ Jaroslav Hajek <highegg@gmail.com> parents: 7719 diff changeset	81 t_checked (static_cast<time_t> (0)),
7752 40c428ea3408 initial implementation of dbup and dbdown John W. Eaton <jwe@octave.org> parents: 7736 diff changeset	82 call_depth (-1)
7731 2d2a969c731c fix max_recursion_limit exceeded at startup with Intel C++ Jaroslav Hajek <highegg@gmail.com> parents: 7719 diff changeset	83 { }
2d2a969c731c fix max_recursion_limit exceeded at startup with Intel C++ Jaroslav Hajek <highegg@gmail.com> parents: 7719 diff changeset	84
2d2a969c731c fix max_recursion_limit exceeded at startup with Intel C++ Jaroslav Hajek <highegg@gmail.com> parents: 7719 diff changeset	85 octave_user_script::octave_user_script (const std::string& fnm,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	86 const std::string& nm,
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	87 tree_statement_list *cmds,
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	88 const std::string& ds)
7731 2d2a969c731c fix max_recursion_limit exceeded at startup with Intel C++ Jaroslav Hajek <highegg@gmail.com> parents: 7719 diff changeset	89 : octave_user_code (nm, ds), cmd_list (cmds), file_name (fnm),
2d2a969c731c fix max_recursion_limit exceeded at startup with Intel C++ Jaroslav Hajek <highegg@gmail.com> parents: 7719 diff changeset	90 t_parsed (static_cast<time_t> (0)),
2d2a969c731c fix max_recursion_limit exceeded at startup with Intel C++ Jaroslav Hajek <highegg@gmail.com> parents: 7719 diff changeset	91 t_checked (static_cast<time_t> (0)),
7752 40c428ea3408 initial implementation of dbup and dbdown John W. Eaton <jwe@octave.org> parents: 7736 diff changeset	92 call_depth (-1)
7736 a059b5679fbb implement dbstack John W. Eaton <jwe@octave.org> parents: 7731 diff changeset	93 {
a059b5679fbb implement dbstack John W. Eaton <jwe@octave.org> parents: 7731 diff changeset	94 if (cmd_list)
a059b5679fbb implement dbstack John W. Eaton <jwe@octave.org> parents: 7731 diff changeset	95 cmd_list->mark_as_script_body ();
a059b5679fbb implement dbstack John W. Eaton <jwe@octave.org> parents: 7731 diff changeset	96 }
7731 2d2a969c731c fix max_recursion_limit exceeded at startup with Intel C++ Jaroslav Hajek <highegg@gmail.com> parents: 7719 diff changeset	97
2d2a969c731c fix max_recursion_limit exceeded at startup with Intel C++ Jaroslav Hajek <highegg@gmail.com> parents: 7719 diff changeset	98 octave_user_script::octave_user_script (const std::string& fnm,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	99 const std::string& nm,
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	100 const std::string& ds)
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11558 diff changeset	101 : octave_user_code (nm, ds), cmd_list (0), file_name (fnm),
7731 2d2a969c731c fix max_recursion_limit exceeded at startup with Intel C++ Jaroslav Hajek <highegg@gmail.com> parents: 7719 diff changeset	102 t_parsed (static_cast<time_t> (0)),
2d2a969c731c fix max_recursion_limit exceeded at startup with Intel C++ Jaroslav Hajek <highegg@gmail.com> parents: 7719 diff changeset	103 t_checked (static_cast<time_t> (0)),
7752 40c428ea3408 initial implementation of dbup and dbdown John W. Eaton <jwe@octave.org> parents: 7736 diff changeset	104 call_depth (-1)
7731 2d2a969c731c fix max_recursion_limit exceeded at startup with Intel C++ Jaroslav Hajek <highegg@gmail.com> parents: 7719 diff changeset	105 { }
2d2a969c731c fix max_recursion_limit exceeded at startup with Intel C++ Jaroslav Hajek <highegg@gmail.com> parents: 7719 diff changeset	106
7715 5b4d278ec828 parse scripts completely before executing John W. Eaton <jwe@octave.org> parents: 7589 diff changeset	107 octave_user_script::~octave_user_script (void)
5b4d278ec828 parse scripts completely before executing John W. Eaton <jwe@octave.org> parents: 7589 diff changeset	108 {
16530 7ca7e7d5eb91 remove breakpoints when clearing function John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	109 if (cmd_list)
7ca7e7d5eb91 remove breakpoints when clearing function John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	110 cmd_list->remove_all_breakpoints (file_name);
7ca7e7d5eb91 remove breakpoints when clearing function John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	111
7715 5b4d278ec828 parse scripts completely before executing John W. Eaton <jwe@octave.org> parents: 7589 diff changeset	112 delete cmd_list;
5b4d278ec828 parse scripts completely before executing John W. Eaton <jwe@octave.org> parents: 7589 diff changeset	113 }
5b4d278ec828 parse scripts completely before executing John W. Eaton <jwe@octave.org> parents: 7589 diff changeset	114
5b4d278ec828 parse scripts completely before executing John W. Eaton <jwe@octave.org> parents: 7589 diff changeset	115 octave_value_list
5b4d278ec828 parse scripts completely before executing John W. Eaton <jwe@octave.org> parents: 7589 diff changeset	116 octave_user_script::subsref (const std::string&,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	117 const std::list<octave_value_list>&, int)
7715 5b4d278ec828 parse scripts completely before executing John W. Eaton <jwe@octave.org> parents: 7589 diff changeset	118 {
5b4d278ec828 parse scripts completely before executing John W. Eaton <jwe@octave.org> parents: 7589 diff changeset	119 octave_value_list retval;
5b4d278ec828 parse scripts completely before executing John W. Eaton <jwe@octave.org> parents: 7589 diff changeset	120
10001 6918d86add73 Print script filename in script indexing errors David Grundberg <davidg@cs.umu.se> parents: 9646 diff changeset	121 ::error ("invalid use of script %s in index expression", file_name.c_str ());
7715 5b4d278ec828 parse scripts completely before executing John W. Eaton <jwe@octave.org> parents: 7589 diff changeset	122
5b4d278ec828 parse scripts completely before executing John W. Eaton <jwe@octave.org> parents: 7589 diff changeset	123 return retval;
5b4d278ec828 parse scripts completely before executing John W. Eaton <jwe@octave.org> parents: 7589 diff changeset	124 }
7336 745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7017 diff changeset	125
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7017 diff changeset	126 octave_value_list
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7017 diff changeset	127 octave_user_script::do_multi_index_op (int nargout,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	128 const octave_value_list& args)
7336 745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7017 diff changeset	129 {
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7017 diff changeset	130 octave_value_list retval;
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7017 diff changeset	131
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	132 unwind_protect frame;
8011 3100283874d7 improve backtrace error messages John W. Eaton <jwe@octave.org> parents: 7968 diff changeset	133
7336 745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7017 diff changeset	134 if (! error_state)
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7017 diff changeset	135 {
7715 5b4d278ec828 parse scripts completely before executing John W. Eaton <jwe@octave.org> parents: 7589 diff changeset	136 if (args.length () == 0 && nargout == 0)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	137 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	138 if (cmd_list)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	139 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	140 frame.protect_var (call_depth);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	141 call_depth++;
7715 5b4d278ec828 parse scripts completely before executing John W. Eaton <jwe@octave.org> parents: 7589 diff changeset	142
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	143 if (call_depth < Vmax_recursion_depth)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	144 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	145 octave_call_stack::push (this);
7715 5b4d278ec828 parse scripts completely before executing John W. Eaton <jwe@octave.org> parents: 7589 diff changeset	146
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	147 frame.add_fcn (octave_call_stack::pop);
7715 5b4d278ec828 parse scripts completely before executing John W. Eaton <jwe@octave.org> parents: 7589 diff changeset	148
11304 c9fefa096ce2 echo commands in scripts John W. Eaton <jwe@octave.org> parents: 10848 diff changeset	149 frame.protect_var (tree_evaluator::statement_context);
c9fefa096ce2 echo commands in scripts John W. Eaton <jwe@octave.org> parents: 10848 diff changeset	150 tree_evaluator::statement_context = tree_evaluator::script;
8669 33783e94fb16 line number fixes and other evaluator tweaks John W. Eaton <jwe@octave.org> parents: 8658 diff changeset	151
12960 43d78e103984 Use macro to start profiler blocks. Daniel Kraft <d@domob.eu> parents: 12920 diff changeset	152 BEGIN_PROFILER_BLOCK (profiler_name ())
43d78e103984 Use macro to start profiler blocks. Daniel Kraft <d@domob.eu> parents: 12920 diff changeset	153 cmd_list->accept (*current_evaluator);
43d78e103984 Use macro to start profiler blocks. Daniel Kraft <d@domob.eu> parents: 12920 diff changeset	154 END_PROFILER_BLOCK
7336 745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7017 diff changeset	155
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	156 if (tree_return_command::returning)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	157 tree_return_command::returning = 0;
7715 5b4d278ec828 parse scripts completely before executing John W. Eaton <jwe@octave.org> parents: 7589 diff changeset	158
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	159 if (tree_break_command::breaking)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	160 tree_break_command::breaking--;
8013 b3e667f1ab4c call backtrace_error_message in eval functions, not when popping stack John W. Eaton <jwe@octave.org> parents: 8011 diff changeset	161
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	162 if (error_state)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	163 octave_call_stack::backtrace_error_message ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	164 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	165 else
10578 cb0883127251 limit on recursion via calls to source function John W. Eaton <jwe@octave.org> parents: 10315 diff changeset	166 ::error ("max_recursion_depth exceeded");
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	167 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	168 }
7336 745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7017 diff changeset	169 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	170 error ("invalid call to script %s", file_name.c_str ());
7336 745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7017 diff changeset	171 }
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7017 diff changeset	172
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7017 diff changeset	173 return retval;
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7017 diff changeset	174 }
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7017 diff changeset	175
7715 5b4d278ec828 parse scripts completely before executing John W. Eaton <jwe@octave.org> parents: 7589 diff changeset	176 void
5b4d278ec828 parse scripts completely before executing John W. Eaton <jwe@octave.org> parents: 7589 diff changeset	177 octave_user_script::accept (tree_walker& tw)
5b4d278ec828 parse scripts completely before executing John W. Eaton <jwe@octave.org> parents: 7589 diff changeset	178 {
5b4d278ec828 parse scripts completely before executing John W. Eaton <jwe@octave.org> parents: 7589 diff changeset	179 tw.visit_octave_user_script (*this);
5b4d278ec828 parse scripts completely before executing John W. Eaton <jwe@octave.org> parents: 7589 diff changeset	180 }
5b4d278ec828 parse scripts completely before executing John W. Eaton <jwe@octave.org> parents: 7589 diff changeset	181
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	182 // User defined functions.
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	183
3219 30770ba4457a [project @ 1998-11-13 03:44:31 by jwe] jwe parents: 3178 diff changeset	184 DEFINE_OCTAVE_ALLOCATOR (octave_user_function);
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	185
3219 30770ba4457a [project @ 1998-11-13 03:44:31 by jwe] jwe parents: 3178 diff changeset	186 DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (octave_user_function,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	187 "user-defined function",
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	188 "user-defined function");
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	189
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	190 // Ugh. This really needs to be simplified (code/data?
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	191 // extrinsic/intrinsic state?).
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	192
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	193 octave_user_function::octave_user_function
7336 745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7017 diff changeset	194 (symbol_table::scope_id sid, tree_parameter_list *pl,
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7017 diff changeset	195 tree_parameter_list rl, tree_statement_list cl)
7719 87eda1f8faaa octave_user_code: new base class for octave_user_script and octave_user_function John W. Eaton <jwe@octave.org> parents: 7715 diff changeset	196 : octave_user_code (std::string (), std::string ()),
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	197 param_list (pl), ret_list (rl), cmd_list (cl),
7336 745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7017 diff changeset	198 lead_comm (), trail_comm (), file_name (),
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: 12546 diff changeset	199 location_line (0), location_column (0),
6323 ea65de49e18e [project @ 2007-02-17 02:51:02 by jwe] jwe parents: 6149 diff changeset	200 parent_name (), t_parsed (static_cast<time_t> (0)),
3255 4d33b1e56bff [project @ 1999-07-15 20:54:14 by jwe] jwe parents: 3239 diff changeset	201 t_checked (static_cast<time_t> (0)),
7752 40c428ea3408 initial implementation of dbup and dbdown John W. Eaton <jwe@octave.org> parents: 7736 diff changeset	202 system_fcn_file (false), call_depth (-1),
7589 90fb25a5a3fa minor cleanup in octave_user_function constructor John W. Eaton <jwe@octave.org> parents: 7552 diff changeset	203 num_named_args (param_list ? param_list->length () : 0),
11461 2b8531a6a3c9 Change mentions of "nested function" to the less misleading "subfunction" David Grundberg <individ@acc.umu.se> parents: 11431 diff changeset	204 subfunction (false), inline_function (false),
14861 f7afecdd87ef maint: Use Octave coding conventions for cuddling parentheses in src/ directory Rik <octave@nomad.inbox5.com> parents: 14573 diff changeset	205 anonymous_function (false), nested_function (false),
14544 be18c9e359bf Nested function support (bug #35772) Max Brister <max@2bass.com> parents: 14366 diff changeset	206 class_constructor (false), class_method (false),
be18c9e359bf Nested function support (bug #35772) Max Brister <max@2bass.com> parents: 14366 diff changeset	207 parent_scope (-1), local_scope (sid),
10637 9cd5aa83fa62 implement 'local' parameter to pseudo-variables Jaroslav Hajek <highegg@gmail.com> parents: 10578 diff changeset	208 curr_unwind_protect_frame (0)
15337 3f43e9d6d86e JIT compile anonymous functions Max Brister <max@2bass.com> parents: 15236 diff changeset	209 #ifdef HAVE_LLVM
3f43e9d6d86e JIT compile anonymous functions Max Brister <max@2bass.com> parents: 15236 diff changeset	210 , jit_info (0)
3f43e9d6d86e JIT compile anonymous functions Max Brister <max@2bass.com> parents: 15236 diff changeset	211 #endif
7736 a059b5679fbb implement dbstack John W. Eaton <jwe@octave.org> parents: 7731 diff changeset	212 {
a059b5679fbb implement dbstack John W. Eaton <jwe@octave.org> parents: 7731 diff changeset	213 if (cmd_list)
a059b5679fbb implement dbstack John W. Eaton <jwe@octave.org> parents: 7731 diff changeset	214 cmd_list->mark_as_function_body ();
9639 8d79f36ebdde store scope->function pointer Jaroslav Hajek <highegg@gmail.com> parents: 9529 diff changeset	215
8d79f36ebdde store scope->function pointer Jaroslav Hajek <highegg@gmail.com> parents: 9529 diff changeset	216 if (local_scope >= 0)
8d79f36ebdde store scope->function pointer Jaroslav Hajek <highegg@gmail.com> parents: 9529 diff changeset	217 symbol_table::set_curr_fcn (this, local_scope);
7736 a059b5679fbb implement dbstack John W. Eaton <jwe@octave.org> parents: 7731 diff changeset	218 }
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	219
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	220 octave_user_function::~octave_user_function (void)
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	221 {
16530 7ca7e7d5eb91 remove breakpoints when clearing function John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	222 if (cmd_list)
7ca7e7d5eb91 remove breakpoints when clearing function John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	223 cmd_list->remove_all_breakpoints (file_name);
7ca7e7d5eb91 remove breakpoints when clearing function John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	224
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	225 delete param_list;
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	226 delete ret_list;
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	227 delete cmd_list;
3665 0689afb1d001 [project @ 2000-05-11 19:07:56 by jwe] jwe parents: 3565 diff changeset	228 delete lead_comm;
0689afb1d001 [project @ 2000-05-11 19:07:56 by jwe] jwe parents: 3565 diff changeset	229 delete trail_comm;
7336 745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7017 diff changeset	230
15337 3f43e9d6d86e JIT compile anonymous functions Max Brister <max@2bass.com> parents: 15236 diff changeset	231 #ifdef HAVE_LLVM
3f43e9d6d86e JIT compile anonymous functions Max Brister <max@2bass.com> parents: 15236 diff changeset	232 delete jit_info;
3f43e9d6d86e JIT compile anonymous functions Max Brister <max@2bass.com> parents: 15236 diff changeset	233 #endif
3f43e9d6d86e JIT compile anonymous functions Max Brister <max@2bass.com> parents: 15236 diff changeset	234
16605 2f8fb02a6c31 erase subfunctions when primary function scope is deleted (bug #38691) John W. Eaton <jwe@octave.org> parents: 16596 diff changeset	235 // FIXME -- this is really playing with fire.
7336 745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7017 diff changeset	236 symbol_table::erase_scope (local_scope);
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	237 }
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	238
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	239 octave_user_function *
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	240 octave_user_function::define_ret_list (tree_parameter_list *t)
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	241 {
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	242 ret_list = t;
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	243
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	244 return this;
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	245 }
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	246
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	247 void
4343 db5e0814277a [project @ 2003-02-20 16:44:16 by jwe] jwe parents: 4280 diff changeset	248 octave_user_function::stash_fcn_file_name (const std::string& nm)
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	249 {
4343 db5e0814277a [project @ 2003-02-20 16:44:16 by jwe] jwe parents: 4280 diff changeset	250 file_name = nm;
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	251 }
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	252
16627 de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	253 // If there is no explicit end statement at the end of the function,
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	254 // relocate the no_op that was generated for the end of file condition
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	255 // to appear on the next line after the last statement in the file, or
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	256 // the next line after the function keyword if there are no statements.
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	257 // More precisely, the new location should probably be on the next line
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	258 // after the end of the parameter list, but we aren't tracking that
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	259 // information (yet).
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	260
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	261 void
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	262 octave_user_function::maybe_relocate_end_internal (void)
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	263 {
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	264 if (cmd_list && ! cmd_list->empty ())
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	265 {
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	266 tree_statement *last_stmt = cmd_list->back ();
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	267
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	268 if (last_stmt && last_stmt->is_end_of_fcn_or_script ()
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	269 && last_stmt->is_end_of_file ())
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	270 {
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	271 tree_statement_list::reverse_iterator
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	272 next_to_last_elt = cmd_list->rbegin ();
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	273
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	274 next_to_last_elt++;
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	275
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	276 int new_eof_line;
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	277 int new_eof_col;
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	278
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	279 if (next_to_last_elt == cmd_list->rend ())
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	280 {
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	281 new_eof_line = beginning_line ();
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	282 new_eof_col = beginning_column ();
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	283 }
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	284 else
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	285 {
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	286 tree_statement next_to_last_stmt = next_to_last_elt;
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	287
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	288 new_eof_line = next_to_last_stmt->line ();
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	289 new_eof_col = next_to_last_stmt->column ();
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	290 }
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	291
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	292 last_stmt->set_location (new_eof_line + 1, new_eof_col);
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	293 }
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	294 }
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	295 }
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	296
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	297 void
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	298 octave_user_function::maybe_relocate_end (void)
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	299 {
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	300 std::map<std::string, octave_value> fcns = subfunctions ();
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	301
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	302 if (! fcns.empty ())
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	303 {
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	304 for (std::map<std::string, octave_value>::iterator p = fcns.begin ();
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	305 p != fcns.end (); p++)
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	306 {
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	307 octave_user_function *f = (p->second).user_function_value ();
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	308
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	309 if (f)
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	310 f->maybe_relocate_end_internal ();
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	311 }
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	312 }
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	313
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	314 maybe_relocate_end_internal ();
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	315 }
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	316
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: 12546 diff changeset	317 std::string
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: 12546 diff changeset	318 octave_user_function::profiler_name (void) const
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: 12546 diff changeset	319 {
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: 12546 diff changeset	320 std::ostringstream result;
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: 12546 diff changeset	321
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: 12546 diff changeset	322 if (is_inline_function ())
13241 2a8dcb5b3a00 improve default indexing for objects John W. Eaton <jwe@octave.org> parents: 12960 diff changeset	323 result << "inline@" << fcn_file_name ()
2a8dcb5b3a00 improve default indexing for objects John W. Eaton <jwe@octave.org> parents: 12960 diff changeset	324 << ":" << location_line << ":" << location_column;
2a8dcb5b3a00 improve default indexing for objects John W. Eaton <jwe@octave.org> parents: 12960 diff changeset	325 else if (is_anonymous_function ())
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: 12546 diff changeset	326 result << "anonymous@" << fcn_file_name ()
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: 12546 diff changeset	327 << ":" << location_line << ":" << location_column;
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: 12546 diff changeset	328 else if (is_subfunction ())
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: 12546 diff changeset	329 result << parent_fcn_name () << ">" << name ();
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: 12546 diff changeset	330 else
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: 12546 diff changeset	331 result << name ();
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: 12546 diff changeset	332
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: 12546 diff changeset	333 return result.str ();
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: 12546 diff changeset	334 }
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: 12546 diff changeset	335
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	336 void
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	337 octave_user_function::mark_as_system_fcn_file (void)
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	338 {
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	339 if (! file_name.empty ())
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	340 {
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	341 // We really should stash the whole path to the file we found,
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	342 // when we looked it up, to avoid possible race conditions...
5775 ace8d8d26933 [project @ 2006-04-24 19:13:06 by jwe] jwe parents: 5744 diff changeset	343 // FIXME
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	344 //
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	345 // We probably also don't need to get the library directory
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	346 // every time, but since this function is only called when the
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	347 // function file is parsed, it probably doesn't matter that
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	348 // much.
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	349
3523 b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3489 diff changeset	350 std::string ff_name = fcn_file_in_path (file_name);
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	351
3565 4290f11c8d3b [project @ 2000-02-03 08:32:41 by jwe] jwe parents: 3544 diff changeset	352 if (Vfcn_file_dir == ff_name.substr (0, Vfcn_file_dir.length ()))
14866 2309812f428e Use explicit false and true instead of 0 and 1 Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: 14861 diff changeset	353 system_fcn_file = true;
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	354 }
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	355 else
14866 2309812f428e Use explicit false and true instead of 0 and 1 Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: 14861 diff changeset	356 system_fcn_file = false;
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	357 }
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	358
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	359 bool
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	360 octave_user_function::takes_varargs (void) const
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	361 {
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	362 return (param_list && param_list->takes_varargs ());
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	363 }
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	364
5848 415ae81d331b [project @ 2006-06-08 20:37:29 by jwe] jwe parents: 5823 diff changeset	365 bool
415ae81d331b [project @ 2006-06-08 20:37:29 by jwe] jwe parents: 5823 diff changeset	366 octave_user_function::takes_var_return (void) const
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	367 {
5848 415ae81d331b [project @ 2006-06-08 20:37:29 by jwe] jwe parents: 5823 diff changeset	368 return (ret_list && ret_list->takes_varargs ());
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	369 }
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	370
7761 5adeea5de26c symbol table reporting functions John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	371 void
5adeea5de26c symbol table reporting functions John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	372 octave_user_function::lock_subfunctions (void)
5adeea5de26c symbol table reporting functions John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	373 {
5adeea5de26c symbol table reporting functions John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	374 symbol_table::lock_subfunctions (local_scope);
5adeea5de26c symbol table reporting functions John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	375 }
5adeea5de26c symbol table reporting functions John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	376
5adeea5de26c symbol table reporting functions John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	377 void
5adeea5de26c symbol table reporting functions John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	378 octave_user_function::unlock_subfunctions (void)
5adeea5de26c symbol table reporting functions John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	379 {
5adeea5de26c symbol table reporting functions John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	380 symbol_table::unlock_subfunctions (local_scope);
5adeea5de26c symbol table reporting functions John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	381 }
5adeea5de26c symbol table reporting functions John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	382
16596 645672f1c873 handle setting breakpoints in subfunctions in GUI editor John W. Eaton <jwe@octave.org> parents: 16530 diff changeset	383 std::map<std::string, octave_value>
645672f1c873 handle setting breakpoints in subfunctions in GUI editor John W. Eaton <jwe@octave.org> parents: 16530 diff changeset	384 octave_user_function::subfunctions (void) const
645672f1c873 handle setting breakpoints in subfunctions in GUI editor John W. Eaton <jwe@octave.org> parents: 16530 diff changeset	385 {
645672f1c873 handle setting breakpoints in subfunctions in GUI editor John W. Eaton <jwe@octave.org> parents: 16530 diff changeset	386 return symbol_table::subfunctions_defined_in_scope (local_scope);
645672f1c873 handle setting breakpoints in subfunctions in GUI editor John W. Eaton <jwe@octave.org> parents: 16530 diff changeset	387 }
645672f1c873 handle setting breakpoints in subfunctions in GUI editor John W. Eaton <jwe@octave.org> parents: 16530 diff changeset	388
16627 de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	389 bool
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	390 octave_user_function::has_subfunctions (void) const
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	391 {
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	392 return ! subfcn_names.empty ();
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	393 }
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	394
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	395 void
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	396 octave_user_function::stash_subfunction_names
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	397 (const std::list<std::string>& names)
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	398 {
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	399 subfcn_names = names;
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	400 }
de91b1621260 adjust location of eof marker for files with subfunctions but no explicit end statements John W. Eaton <jwe@octave.org> parents: 16605 diff changeset	401
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	402 octave_value_list
9522 e79470be3ecb implement subsasgn this-arg optimization Jaroslav Hajek <highegg@gmail.com> parents: 9396 diff changeset	403 octave_user_function::all_va_args (const octave_value_list& args)
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	404 {
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	405 octave_value_list retval;
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	406
9522 e79470be3ecb implement subsasgn this-arg optimization Jaroslav Hajek <highegg@gmail.com> parents: 9396 diff changeset	407 octave_idx_type n = args.length () - num_named_args;
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	408
3178 09a3064a3a17 [project @ 1998-06-23 03:46:42 by jwe] jwe parents: 3165 diff changeset	409 if (n > 0)
9522 e79470be3ecb implement subsasgn this-arg optimization Jaroslav Hajek <highegg@gmail.com> parents: 9396 diff changeset	410 retval = args.slice (num_named_args, n);
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	411
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	412 return retval;
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	413 }
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	414
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	415 octave_value_list
4247 fc9a075d10fb [project @ 2002-12-30 23:05:27 by jwe] jwe parents: 4245 diff changeset	416 octave_user_function::subsref (const std::string& type,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	417 const std::list<octave_value_list>& idx,
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	418 int nargout)
3933 f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3876 diff changeset	419 {
10832 1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	420 return octave_user_function::subsref (type, idx, nargout, 0);
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	421 }
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	422
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	423 octave_value_list
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	424 octave_user_function::subsref (const std::string& type,
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	425 const std::list<octave_value_list>& idx,
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	426 int nargout, const std::list<octave_lvalue>* lvalue_list)
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	427 {
3933 f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3876 diff changeset	428 octave_value_list retval;
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3876 diff changeset	429
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3876 diff changeset	430 switch (type[0])
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3876 diff changeset	431 {
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3876 diff changeset	432 case '(':
5154 9cb38bfb04ea [project @ 2005-02-21 21:23:28 by jwe] jwe parents: 5105 diff changeset	433 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	434 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	435
10832 1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	436 retval = do_multi_index_op (tmp_nargout, idx.front (),
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	437 idx.size () == 1 ? lvalue_list : 0);
5154 9cb38bfb04ea [project @ 2005-02-21 21:23:28 by jwe] jwe parents: 5105 diff changeset	438 }
3933 f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3876 diff changeset	439 break;
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3876 diff changeset	440
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3876 diff changeset	441 case '{':
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3876 diff changeset	442 case '.':
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3876 diff changeset	443 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	444 std::string nm = type_name ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	445 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: 3876 diff changeset	446 }
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3876 diff changeset	447 break;
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3876 diff changeset	448
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3876 diff changeset	449 default:
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3876 diff changeset	450 panic_impossible ();
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3876 diff changeset	451 }
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3876 diff changeset	452
5775 ace8d8d26933 [project @ 2006-04-24 19:13:06 by jwe] jwe parents: 5744 diff changeset	453 // FIXME -- perhaps there should be an
4059 db58c1a1e6ce [project @ 2002-09-18 07:21:12 by jwe] jwe parents: 3975 diff changeset	454 // octave_value_list::next_subsref member function? See also
db58c1a1e6ce [project @ 2002-09-18 07:21:12 by jwe] jwe parents: 3975 diff changeset	455 // octave_builtin::subsref.
3933 f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3876 diff changeset	456
4219 23d06c9e1edd [project @ 2002-12-06 21:29:17 by jwe] jwe parents: 4207 diff changeset	457 if (idx.size () > 1)
4994 48d0defe9445 [project @ 2004-09-15 20:31:31 by jwe] jwe parents: 4987 diff changeset	458 retval = retval(0).next_subsref (nargout, type, idx);
4059 db58c1a1e6ce [project @ 2002-09-18 07:21:12 by jwe] jwe parents: 3975 diff changeset	459
db58c1a1e6ce [project @ 2002-09-18 07:21:12 by jwe] jwe parents: 3975 diff changeset	460 return retval;
3933 f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3876 diff changeset	461 }
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3876 diff changeset	462
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3876 diff changeset	463 octave_value_list
3544 71bd2d124119 [project @ 2000-02-02 21:02:31 by jwe] jwe parents: 3523 diff changeset	464 octave_user_function::do_multi_index_op (int nargout,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	465 const octave_value_list& args)
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	466 {
10832 1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	467 return do_multi_index_op (nargout, args, 0);
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	468 }
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	469
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	470 octave_value_list
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	471 octave_user_function::do_multi_index_op (int nargout,
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	472 const octave_value_list& args,
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	473 const std::list<octave_lvalue>* lvalue_list)
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	474 {
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	475 octave_value_list retval;
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	476
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	477 if (error_state)
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	478 return retval;
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	479
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	480 if (! cmd_list)
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	481 return retval;
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	482
15337 3f43e9d6d86e JIT compile anonymous functions Max Brister <max@2bass.com> parents: 15236 diff changeset	483 #ifdef HAVE_LLVM
15582 52df2e7baabe Disable JIT when breakpoints are present Max Brister <max@2bass.com> parents: 15427 diff changeset	484 if (is_special_expr ()
15337 3f43e9d6d86e JIT compile anonymous functions Max Brister <max@2bass.com> parents: 15236 diff changeset	485 && tree_jit::execute (*this, args, retval))
3f43e9d6d86e JIT compile anonymous functions Max Brister <max@2bass.com> parents: 15236 diff changeset	486 return retval;
3f43e9d6d86e JIT compile anonymous functions Max Brister <max@2bass.com> parents: 15236 diff changeset	487 #endif
3f43e9d6d86e JIT compile anonymous functions Max Brister <max@2bass.com> parents: 15236 diff changeset	488
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	489 int nargin = args.length ();
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	490
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	491 unwind_protect frame;
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	492
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	493 frame.protect_var (call_depth);
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	494 call_depth++;
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	495
7752 40c428ea3408 initial implementation of dbup and dbdown John W. Eaton <jwe@octave.org> parents: 7736 diff changeset	496 if (call_depth >= Vmax_recursion_depth)
3131 9c5160c83bd2 [project @ 1998-01-29 04:46:33 by jwe] jwe parents: 3014 diff changeset	497 {
10578 cb0883127251 limit on recursion via calls to source function John W. Eaton <jwe@octave.org> parents: 10315 diff changeset	498 ::error ("max_recursion_depth exceeded");
3131 9c5160c83bd2 [project @ 1998-01-29 04:46:33 by jwe] jwe parents: 3014 diff changeset	499 return retval;
9c5160c83bd2 [project @ 1998-01-29 04:46:33 by jwe] jwe parents: 3014 diff changeset	500 }
9c5160c83bd2 [project @ 1998-01-29 04:46:33 by jwe] jwe parents: 3014 diff changeset	501
7336 745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7017 diff changeset	502 // Save old and set current symbol table context, for
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7017 diff changeset	503 // eval_undefined_error().
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7017 diff changeset	504
14544 be18c9e359bf Nested function support (bug #35772) Max Brister <max@2bass.com> parents: 14366 diff changeset	505 int context = active_context ();
14328 19078011cdc3 fix problem with recursion and anonymous functions (bug #31371) John W. Eaton <jwe@octave.org> parents: 14139 diff changeset	506
19078011cdc3 fix problem with recursion and anonymous functions (bug #31371) John W. Eaton <jwe@octave.org> parents: 14139 diff changeset	507 octave_call_stack::push (this, local_scope, context);
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	508 frame.add_fcn (octave_call_stack::pop);
7901 3e4c9b69069d call stack changes John W. Eaton <jwe@octave.org> parents: 7761 diff changeset	509
14328 19078011cdc3 fix problem with recursion and anonymous functions (bug #31371) John W. Eaton <jwe@octave.org> parents: 14139 diff changeset	510 if (call_depth > 0 && ! is_anonymous_function ())
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	511 {
7336 745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7017 diff changeset	512 symbol_table::push_context ();
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	513
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	514 frame.add_fcn (symbol_table::pop_context);
7336 745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7017 diff changeset	515 }
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	516
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	517 string_vector arg_names = args.name_tags ();
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	518
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	519 if (param_list && ! param_list->varargs_only ())
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	520 {
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	521 param_list->define_from_arg_vector (args);
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	522 if (error_state)
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	523 return retval;
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	524 }
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	525
3239 d54ef0aa6e82 [project @ 1999-03-27 17:40:45 by jwe] jwe parents: 3219 diff changeset	526 // Force parameter list to be undefined when this function exits.
d54ef0aa6e82 [project @ 1999-03-27 17:40:45 by jwe] jwe parents: 3219 diff changeset	527 // Doing so decrements the reference counts on the values of local
d54ef0aa6e82 [project @ 1999-03-27 17:40:45 by jwe] jwe parents: 3219 diff changeset	528 // variables that are also named function parameters.
d54ef0aa6e82 [project @ 1999-03-27 17:40:45 by jwe] jwe parents: 3219 diff changeset	529
9396 17af7cce7d1b yet more unwind_protect improvements Jaroslav Hajek <highegg@gmail.com> parents: 9377 diff changeset	530 if (param_list)
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	531 frame.add_method (param_list, &tree_parameter_list::undefine);
3239 d54ef0aa6e82 [project @ 1999-03-27 17:40:45 by jwe] jwe parents: 3219 diff changeset	532
d54ef0aa6e82 [project @ 1999-03-27 17:40:45 by jwe] jwe parents: 3219 diff changeset	533 // Force return list to be undefined when this function exits.
d54ef0aa6e82 [project @ 1999-03-27 17:40:45 by jwe] jwe parents: 3219 diff changeset	534 // Doing so decrements the reference counts on the values of local
d54ef0aa6e82 [project @ 1999-03-27 17:40:45 by jwe] jwe parents: 3219 diff changeset	535 // variables that are also named values returned by this function.
d54ef0aa6e82 [project @ 1999-03-27 17:40:45 by jwe] jwe parents: 3219 diff changeset	536
9396 17af7cce7d1b yet more unwind_protect improvements Jaroslav Hajek <highegg@gmail.com> parents: 9377 diff changeset	537 if (ret_list)
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	538 frame.add_method (ret_list, &tree_parameter_list::undefine);
3239 d54ef0aa6e82 [project @ 1999-03-27 17:40:45 by jwe] jwe parents: 3219 diff changeset	539
8142 54b41376e381 ov-usr-fcn.cc (octave_user_function::do_multi_index_op): add symbol_table::clear_variables cleanup function to the unwind_protect stack after the parameter list cleanup functions John W. Eaton <jwe@octave.org> parents: 8013 diff changeset	540 if (call_depth == 0)
54b41376e381 ov-usr-fcn.cc (octave_user_function::do_multi_index_op): add symbol_table::clear_variables cleanup function to the unwind_protect stack after the parameter list cleanup functions John W. Eaton <jwe@octave.org> parents: 8013 diff changeset	541 {
54b41376e381 ov-usr-fcn.cc (octave_user_function::do_multi_index_op): add symbol_table::clear_variables cleanup function to the unwind_protect stack after the parameter list cleanup functions John W. Eaton <jwe@octave.org> parents: 8013 diff changeset	542 // Force symbols to be undefined again when this function
54b41376e381 ov-usr-fcn.cc (octave_user_function::do_multi_index_op): add symbol_table::clear_variables cleanup function to the unwind_protect stack after the parameter list cleanup functions John W. Eaton <jwe@octave.org> parents: 8013 diff changeset	543 // exits.
54b41376e381 ov-usr-fcn.cc (octave_user_function::do_multi_index_op): add symbol_table::clear_variables cleanup function to the unwind_protect stack after the parameter list cleanup functions John W. Eaton <jwe@octave.org> parents: 8013 diff changeset	544 //
54b41376e381 ov-usr-fcn.cc (octave_user_function::do_multi_index_op): add symbol_table::clear_variables cleanup function to the unwind_protect stack after the parameter list cleanup functions John W. Eaton <jwe@octave.org> parents: 8013 diff changeset	545 // This cleanup function is added to the unwind_protect stack
54b41376e381 ov-usr-fcn.cc (octave_user_function::do_multi_index_op): add symbol_table::clear_variables cleanup function to the unwind_protect stack after the parameter list cleanup functions John W. Eaton <jwe@octave.org> parents: 8013 diff changeset	546 // after the calls to clear the parameter lists so that local
54b41376e381 ov-usr-fcn.cc (octave_user_function::do_multi_index_op): add symbol_table::clear_variables cleanup function to the unwind_protect stack after the parameter list cleanup functions John W. Eaton <jwe@octave.org> parents: 8013 diff changeset	547 // variables will be cleared before the parameter lists are
54b41376e381 ov-usr-fcn.cc (octave_user_function::do_multi_index_op): add symbol_table::clear_variables cleanup function to the unwind_protect stack after the parameter list cleanup functions John W. Eaton <jwe@octave.org> parents: 8013 diff changeset	548 // cleared. That way, any function parameters that have been
54b41376e381 ov-usr-fcn.cc (octave_user_function::do_multi_index_op): add symbol_table::clear_variables cleanup function to the unwind_protect stack after the parameter list cleanup functions John W. Eaton <jwe@octave.org> parents: 8013 diff changeset	549 // declared global will be unmarked as global before they are
54b41376e381 ov-usr-fcn.cc (octave_user_function::do_multi_index_op): add symbol_table::clear_variables cleanup function to the unwind_protect stack after the parameter list cleanup functions John W. Eaton <jwe@octave.org> parents: 8013 diff changeset	550 // undefined by the clear_param_list cleanup function.
54b41376e381 ov-usr-fcn.cc (octave_user_function::do_multi_index_op): add symbol_table::clear_variables cleanup function to the unwind_protect stack after the parameter list cleanup functions John W. Eaton <jwe@octave.org> parents: 8013 diff changeset	551
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	552 frame.add_fcn (symbol_table::clear_variables);
8142 54b41376e381 ov-usr-fcn.cc (octave_user_function::do_multi_index_op): add symbol_table::clear_variables cleanup function to the unwind_protect stack after the parameter list cleanup functions John W. Eaton <jwe@octave.org> parents: 8013 diff changeset	553 }
54b41376e381 ov-usr-fcn.cc (octave_user_function::do_multi_index_op): add symbol_table::clear_variables cleanup function to the unwind_protect stack after the parameter list cleanup functions John W. Eaton <jwe@octave.org> parents: 8013 diff changeset	554
10832 1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	555 bind_automatic_vars (arg_names, nargin, nargout, all_va_args (args),
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	556 lvalue_list);
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	557
15427 6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15337 diff changeset	558 frame.add_method (this, &octave_user_function::restore_warning_states);
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15337 diff changeset	559
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	560 bool echo_commands = (Vecho_executing_commands & ECHO_FUNCTIONS);
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	561
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	562 if (echo_commands)
2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	563 print_code_function_header ();
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	564
10637 9cd5aa83fa62 implement 'local' parameter to pseudo-variables Jaroslav Hajek <highegg@gmail.com> parents: 10578 diff changeset	565 // Set pointer to the current unwind_protect frame to allow
9cd5aa83fa62 implement 'local' parameter to pseudo-variables Jaroslav Hajek <highegg@gmail.com> parents: 10578 diff changeset	566 // certain builtins register simple cleanup in a very optimized manner.
9cd5aa83fa62 implement 'local' parameter to pseudo-variables Jaroslav Hajek <highegg@gmail.com> parents: 10578 diff changeset	567 // This is not intended as a general-purpose on-cleanup mechanism,
9cd5aa83fa62 implement 'local' parameter to pseudo-variables Jaroslav Hajek <highegg@gmail.com> parents: 10578 diff changeset	568 frame.protect_var (curr_unwind_protect_frame);
9cd5aa83fa62 implement 'local' parameter to pseudo-variables Jaroslav Hajek <highegg@gmail.com> parents: 10578 diff changeset	569 curr_unwind_protect_frame = &frame;
9cd5aa83fa62 implement 'local' parameter to pseudo-variables Jaroslav Hajek <highegg@gmail.com> parents: 10578 diff changeset	570
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	571 // Evaluate the commands that make up the function.
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	572
11304 c9fefa096ce2 echo commands in scripts John W. Eaton <jwe@octave.org> parents: 10848 diff changeset	573 frame.protect_var (tree_evaluator::statement_context);
c9fefa096ce2 echo commands in scripts John W. Eaton <jwe@octave.org> parents: 10848 diff changeset	574 tree_evaluator::statement_context = tree_evaluator::function;
3489 cbee5fbb696d [project @ 2000-01-28 09:14:32 by jwe] jwe parents: 3445 diff changeset	575
12960 43d78e103984 Use macro to start profiler blocks. Daniel Kraft <d@domob.eu> parents: 12920 diff changeset	576 BEGIN_PROFILER_BLOCK (profiler_name ())
6657 86354a8cd6a7 [project @ 2007-05-23 04:35:04 by jwe] jwe parents: 6591 diff changeset	577
15337 3f43e9d6d86e JIT compile anonymous functions Max Brister <max@2bass.com> parents: 15236 diff changeset	578 if (is_special_expr ())
12960 43d78e103984 Use macro to start profiler blocks. Daniel Kraft <d@domob.eu> parents: 12920 diff changeset	579 {
15337 3f43e9d6d86e JIT compile anonymous functions Max Brister <max@2bass.com> parents: 15236 diff changeset	580 tree_expression *expr = special_expr ();
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: 8580 diff changeset	581
15337 3f43e9d6d86e JIT compile anonymous functions Max Brister <max@2bass.com> parents: 15236 diff changeset	582 if (expr)
16091 1785493171ac pass lvalue_list to more subsref calls (bug #38374) John W. Eaton <jwe@octave.org> parents: 15582 diff changeset	583 retval = (lvalue_list
1785493171ac pass lvalue_list to more subsref calls (bug #38374) John W. Eaton <jwe@octave.org> parents: 15582 diff changeset	584 ? expr->rvalue (nargout, lvalue_list)
1785493171ac pass lvalue_list to more subsref calls (bug #38374) John W. Eaton <jwe@octave.org> parents: 15582 diff changeset	585 : expr->rvalue (nargout));
12960 43d78e103984 Use macro to start profiler blocks. Daniel Kraft <d@domob.eu> parents: 12920 diff changeset	586 }
43d78e103984 Use macro to start profiler blocks. Daniel Kraft <d@domob.eu> parents: 12920 diff changeset	587 else
43d78e103984 Use macro to start profiler blocks. Daniel Kraft <d@domob.eu> parents: 12920 diff changeset	588 cmd_list->accept (*current_evaluator);
43d78e103984 Use macro to start profiler blocks. Daniel Kraft <d@domob.eu> parents: 12920 diff changeset	589
43d78e103984 Use macro to start profiler blocks. Daniel Kraft <d@domob.eu> parents: 12920 diff changeset	590 END_PROFILER_BLOCK
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	591
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	592 if (echo_commands)
2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	593 print_code_function_trailer ();
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	594
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	595 if (tree_return_command::returning)
2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	596 tree_return_command::returning = 0;
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	597
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	598 if (tree_break_command::breaking)
2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	599 tree_break_command::breaking--;
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	600
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	601 if (error_state)
2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	602 {
2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	603 octave_call_stack::backtrace_error_message ();
2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	604 return retval;
2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	605 }
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11558 diff changeset	606
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	607 // Copy return values out.
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	608
15337 3f43e9d6d86e JIT compile anonymous functions Max Brister <max@2bass.com> parents: 15236 diff changeset	609 if (ret_list && ! is_special_expr ())
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	610 {
2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	611 ret_list->initialize_undefined_elements (my_name, nargout, Matrix ());
5848 415ae81d331b [project @ 2006-06-08 20:37:29 by jwe] jwe parents: 5823 diff changeset	612
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	613 Cell varargout;
6591 fc0218995ee7 [project @ 2007-04-27 02:17:34 by jwe] jwe parents: 6505 diff changeset	614
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	615 if (ret_list->takes_varargs ())
2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	616 {
2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	617 octave_value varargout_varval = symbol_table::varval ("varargout");
5848 415ae81d331b [project @ 2006-06-08 20:37:29 by jwe] jwe parents: 5823 diff changeset	618
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	619 if (varargout_varval.is_defined ())
2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	620 {
2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	621 varargout = varargout_varval.cell_value ();
5848 415ae81d331b [project @ 2006-06-08 20:37:29 by jwe] jwe parents: 5823 diff changeset	622
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	623 if (error_state)
2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	624 error ("expecting varargout to be a cell array object");
2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	625 }
2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	626 }
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	627
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	628 if (! error_state)
2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	629 retval = ret_list->convert_to_const_vector (nargout, varargout);
2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 10001 diff changeset	630 }
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	631
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	632 return retval;
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	633 }
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	634
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	635 void
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	636 octave_user_function::accept (tree_walker& tw)
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	637 {
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	638 tw.visit_octave_user_function (*this);
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	639 }
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	640
15337 3f43e9d6d86e JIT compile anonymous functions Max Brister <max@2bass.com> parents: 15236 diff changeset	641 tree_expression *
3f43e9d6d86e JIT compile anonymous functions Max Brister <max@2bass.com> parents: 15236 diff changeset	642 octave_user_function::special_expr (void)
3f43e9d6d86e JIT compile anonymous functions Max Brister <max@2bass.com> parents: 15236 diff changeset	643 {
3f43e9d6d86e JIT compile anonymous functions Max Brister <max@2bass.com> parents: 15236 diff changeset	644 assert (is_special_expr ());
3f43e9d6d86e JIT compile anonymous functions Max Brister <max@2bass.com> parents: 15236 diff changeset	645 assert (cmd_list->length () == 1);
3f43e9d6d86e JIT compile anonymous functions Max Brister <max@2bass.com> parents: 15236 diff changeset	646
3f43e9d6d86e JIT compile anonymous functions Max Brister <max@2bass.com> parents: 15236 diff changeset	647 tree_statement *stmt = cmd_list->front ();
3f43e9d6d86e JIT compile anonymous functions Max Brister <max@2bass.com> parents: 15236 diff changeset	648 return stmt->expression ();
3f43e9d6d86e JIT compile anonymous functions Max Brister <max@2bass.com> parents: 15236 diff changeset	649 }
3f43e9d6d86e JIT compile anonymous functions Max Brister <max@2bass.com> parents: 15236 diff changeset	650
9522 e79470be3ecb implement subsasgn this-arg optimization Jaroslav Hajek <highegg@gmail.com> parents: 9396 diff changeset	651 bool
e79470be3ecb implement subsasgn this-arg optimization Jaroslav Hajek <highegg@gmail.com> parents: 9396 diff changeset	652 octave_user_function::subsasgn_optimization_ok (void)
e79470be3ecb implement subsasgn this-arg optimization Jaroslav Hajek <highegg@gmail.com> parents: 9396 diff changeset	653 {
e79470be3ecb implement subsasgn this-arg optimization Jaroslav Hajek <highegg@gmail.com> parents: 9396 diff changeset	654 bool retval = false;
e79470be3ecb implement subsasgn this-arg optimization Jaroslav Hajek <highegg@gmail.com> parents: 9396 diff changeset	655 if (Voptimize_subsasgn_calls
e79470be3ecb implement subsasgn this-arg optimization Jaroslav Hajek <highegg@gmail.com> parents: 9396 diff changeset	656 && param_list->length () > 0 && ! param_list->varargs_only ()
e79470be3ecb implement subsasgn this-arg optimization Jaroslav Hajek <highegg@gmail.com> parents: 9396 diff changeset	657 && ret_list->length () == 1 && ! ret_list->takes_varargs ())
e79470be3ecb implement subsasgn this-arg optimization Jaroslav Hajek <highegg@gmail.com> parents: 9396 diff changeset	658 {
e79470be3ecb implement subsasgn this-arg optimization Jaroslav Hajek <highegg@gmail.com> parents: 9396 diff changeset	659 tree_identifier *par1 = param_list->front ()->ident ();
e79470be3ecb implement subsasgn this-arg optimization Jaroslav Hajek <highegg@gmail.com> parents: 9396 diff changeset	660 tree_identifier *ret1 = ret_list->front ()->ident ();
e79470be3ecb implement subsasgn this-arg optimization Jaroslav Hajek <highegg@gmail.com> parents: 9396 diff changeset	661 retval = par1->name () == ret1->name ();
e79470be3ecb implement subsasgn this-arg optimization Jaroslav Hajek <highegg@gmail.com> parents: 9396 diff changeset	662 }
e79470be3ecb implement subsasgn this-arg optimization Jaroslav Hajek <highegg@gmail.com> parents: 9396 diff changeset	663
e79470be3ecb implement subsasgn this-arg optimization Jaroslav Hajek <highegg@gmail.com> parents: 9396 diff changeset	664 return retval;
e79470be3ecb implement subsasgn this-arg optimization Jaroslav Hajek <highegg@gmail.com> parents: 9396 diff changeset	665 }
e79470be3ecb implement subsasgn this-arg optimization Jaroslav Hajek <highegg@gmail.com> parents: 9396 diff changeset	666
7336 745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7017 diff changeset	667 #if 0
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	668 void
3933 f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3876 diff changeset	669 octave_user_function::print_symtab_info (std::ostream& os) const
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3876 diff changeset	670 {
7336 745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7017 diff changeset	671 symbol_table::print_info (os, local_scope);
3933 f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3876 diff changeset	672 }
7336 745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7017 diff changeset	673 #endif
3933 f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3876 diff changeset	674
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3876 diff changeset	675 void
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	676 octave_user_function::print_code_function_header (void)
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	677 {
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	678 tree_print_code tpc (octave_stdout, VPS4);
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	679
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	680 tpc.visit_octave_user_function_header (*this);
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	681 }
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	682
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	683 void
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	684 octave_user_function::print_code_function_trailer (void)
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	685 {
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	686 tree_print_code tpc (octave_stdout, VPS4);
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	687
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	688 tpc.visit_octave_user_function_trailer (*this);
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	689 }
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	690
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	691 void
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	692 octave_user_function::bind_automatic_vars
3974 e2290bf911f0 [project @ 2002-07-04 17:38:22 by jwe] jwe parents: 3933 diff changeset	693 (const string_vector& arg_names, int nargin, int nargout,
10832 1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	694 const octave_value_list& va_args, const std::list<octave_lvalue> *lvalue_list)
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	695 {
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	696 if (! arg_names.empty ())
11557 e9d72a3caa46 mark automatic variables as automatic John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	697 {
11558 1e4dfc7a9487 use .argn. to store argument names for inputname function John W. Eaton <jwe@octave.org> parents: 11557 diff changeset	698 // It is better to save this in the hidden variable .argn. and
1e4dfc7a9487 use .argn. to store argument names for inputname function John W. Eaton <jwe@octave.org> parents: 11557 diff changeset	699 // then use that in the inputname function instead of using argn,
1e4dfc7a9487 use .argn. to store argument names for inputname function John W. Eaton <jwe@octave.org> parents: 11557 diff changeset	700 // which might be redefined in a function. Keep the old argn name
1e4dfc7a9487 use .argn. to store argument names for inputname function John W. Eaton <jwe@octave.org> parents: 11557 diff changeset	701 // for backward compatibility of functions that use it directly.
1e4dfc7a9487 use .argn. to store argument names for inputname function John W. Eaton <jwe@octave.org> parents: 11557 diff changeset	702
16856 787de2f144d9 Use string_fill_char when creating argn automatic variable (bug #34183). Rik <rik@octave.org> parents: 16627 diff changeset	703 symbol_table::force_assign ("argn", charMatrix (arg_names, Vstring_fill_char));
16442 302157614308 deprecate symbol_table::varref functions John W. Eaton <jwe@octave.org> parents: 16091 diff changeset	704 symbol_table::force_assign (".argn.", Cell (arg_names));
11558 1e4dfc7a9487 use .argn. to store argument names for inputname function John W. Eaton <jwe@octave.org> parents: 11557 diff changeset	705
1e4dfc7a9487 use .argn. to store argument names for inputname function John W. Eaton <jwe@octave.org> parents: 11557 diff changeset	706 symbol_table::mark_hidden (".argn.");
11557 e9d72a3caa46 mark automatic variables as automatic John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	707
e9d72a3caa46 mark automatic variables as automatic John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	708 symbol_table::mark_automatic ("argn");
11558 1e4dfc7a9487 use .argn. to store argument names for inputname function John W. Eaton <jwe@octave.org> parents: 11557 diff changeset	709 symbol_table::mark_automatic (".argn.");
11557 e9d72a3caa46 mark automatic variables as automatic John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	710 }
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	711
16442 302157614308 deprecate symbol_table::varref functions John W. Eaton <jwe@octave.org> parents: 16091 diff changeset	712 symbol_table::force_assign (".nargin.", nargin);
302157614308 deprecate symbol_table::varref functions John W. Eaton <jwe@octave.org> parents: 16091 diff changeset	713 symbol_table::force_assign (".nargout.", nargout);
7336 745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7017 diff changeset	714
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7017 diff changeset	715 symbol_table::mark_hidden (".nargin.");
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7017 diff changeset	716 symbol_table::mark_hidden (".nargout.");
3974 e2290bf911f0 [project @ 2002-07-04 17:38:22 by jwe] jwe parents: 3933 diff changeset	717
11557 e9d72a3caa46 mark automatic variables as automatic John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	718 symbol_table::mark_automatic (".nargin.");
e9d72a3caa46 mark automatic variables as automatic John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	719 symbol_table::mark_automatic (".nargout.");
e9d72a3caa46 mark automatic variables as automatic John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	720
16442 302157614308 deprecate symbol_table::varref functions John W. Eaton <jwe@octave.org> parents: 16091 diff changeset	721 symbol_table::assign (".saved_warning_states.");
15427 6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15337 diff changeset	722
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15337 diff changeset	723 symbol_table::mark_automatic (".saved_warning_states.");
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15337 diff changeset	724 symbol_table::mark_automatic (".saved_warning_states.");
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15337 diff changeset	725
3974 e2290bf911f0 [project @ 2002-07-04 17:38:22 by jwe] jwe parents: 3933 diff changeset	726 if (takes_varargs ())
16442 302157614308 deprecate symbol_table::varref functions John W. Eaton <jwe@octave.org> parents: 16091 diff changeset	727 symbol_table::assign ("varargin", va_args.cell_value ());
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11558 diff changeset	728
14571 6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	729 // Force .ignored. variable to be undefined by default.
16442 302157614308 deprecate symbol_table::varref functions John W. Eaton <jwe@octave.org> parents: 16091 diff changeset	730 symbol_table::assign (".ignored.");
14571 6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	731
10832 1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	732 if (lvalue_list)
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	733 {
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	734 octave_idx_type nbh = 0;
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	735 for (std::list<octave_lvalue>::const_iterator p = lvalue_list->begin ();
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	736 p != lvalue_list->end (); p++)
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	737 nbh += p->is_black_hole ();
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	738
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	739 if (nbh > 0)
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	740 {
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	741 // Only assign the hidden variable if black holes actually present.
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	742 Matrix bh (1, nbh);
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	743 octave_idx_type k = 0, l = 0;
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	744 for (std::list<octave_lvalue>::const_iterator p = lvalue_list->begin ();
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	745 p != lvalue_list->end (); p++)
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	746 {
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	747 if (p->is_black_hole ())
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	748 bh(l++) = k+1;
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	749 k += p->numel ();
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	750 }
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	751
16442 302157614308 deprecate symbol_table::varref functions John W. Eaton <jwe@octave.org> parents: 16091 diff changeset	752 symbol_table::assign (".ignored.", bh);
10832 1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	753 }
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	754 }
14571 6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	755
6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	756 symbol_table::mark_hidden (".ignored.");
6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	757 symbol_table::mark_automatic (".ignored.");
2974 ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	758 }
ebbc34ff7f66 [project @ 1997-05-15 19:36:16 by jwe] jwe parents: diff changeset	759
15427 6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15337 diff changeset	760 void
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15337 diff changeset	761 octave_user_function::restore_warning_states (void)
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15337 diff changeset	762 {
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15337 diff changeset	763 octave_value val = symbol_table::varval (".saved_warning_states.");
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15337 diff changeset	764
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15337 diff changeset	765 if (val.is_defined ())
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15337 diff changeset	766 {
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15337 diff changeset	767 octave_map m = val.map_value ();
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15337 diff changeset	768
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15337 diff changeset	769 if (error_state)
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15337 diff changeset	770 panic_impossible ();
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15337 diff changeset	771
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15337 diff changeset	772 Cell ids = m.contents ("identifier");
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15337 diff changeset	773 Cell states = m.contents ("state");
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15337 diff changeset	774
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15337 diff changeset	775 for (octave_idx_type i = 0; i < m.numel (); i++)
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15337 diff changeset	776 Fwarning (ovl (states(i), ids(i)));
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15337 diff changeset	777 }
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15337 diff changeset	778 }
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15337 diff changeset	779
4700 ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	780 DEFUN (nargin, args, ,
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	781 "-- texinfo --\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10832 diff changeset	782 @deftypefn {Built-in Function} {} nargin ()\n\
14136 20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	783 @deftypefnx {Built-in Function} {} nargin (@var{fcn})\n\
4700 ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	784 Within a function, return the number of arguments passed to the function.\n\
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	785 At the top level, return the number of command line arguments passed to\n\
14136 20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	786 Octave.\n\
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	787 \n\
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	788 If called with the optional argument @var{fcn}, a function name or handle,\n\
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	789 return the declared number of arguments that the function can accept.\n\
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	790 If the last argument is @var{varargin} the returned value is negative.\n\
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	791 This feature does not work on builtin functions.\n\
13749 62d1f56b0be7 New nthargout function Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: 13241 diff changeset	792 @seealso{nargout, varargin, isargout, varargout, nthargout}\n\
4700 ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	793 @end deftypefn")
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	794 {
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	795 octave_value retval;
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	796
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	797 int nargin = args.length ();
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	798
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	799 if (nargin == 1)
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	800 {
14136 20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	801 octave_value func = args(0);
4700 ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	802
14136 20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	803 if (func.is_string ())
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	804 {
14136 20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	805 std::string name = func.string_value ();
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	806 func = symbol_table::find_function (name);
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	807 if (func.is_undefined ())
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	808 error ("nargout: invalid function name: %s", name.c_str ());
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	809 }
13785 daf81e42960c allow nargin to work for functions that are not already loaded John W. Eaton <jwe@octave.org> parents: 13749 diff changeset	810
14136 20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	811 octave_function *fcn_val = func.function_value ();
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	812 if (fcn_val)
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	813 {
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	814 octave_user_function *fcn = fcn_val->user_function_value (true);
4700 ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	815
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	816 if (fcn)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	817 {
14136 20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	818 tree_parameter_list *param_list = fcn->parameter_list ();
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	819
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	820 retval = param_list ? param_list->length () : 0;
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	821 if (fcn->takes_varargs ())
14136 20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	822 retval = -1 - retval;
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	823 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	824 else
13785 daf81e42960c allow nargin to work for functions that are not already loaded John W. Eaton <jwe@octave.org> parents: 13749 diff changeset	825 {
14136 20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	826 // Matlab gives up for histc, so maybe it's ok we give up somtimes too.
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	827 error ("nargin: nargin information not available for builtin functions");
13785 daf81e42960c allow nargin to work for functions that are not already loaded John W. Eaton <jwe@octave.org> parents: 13749 diff changeset	828 }
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	829 }
4700 ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	830 else
14136 20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	831 error ("nargin: FCN must be a string or function handle");
4700 ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	832 }
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	833 else if (nargin == 0)
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	834 {
7336 745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7017 diff changeset	835 retval = symbol_table::varval (".nargin.");
4700 ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	836
7336 745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7017 diff changeset	837 if (retval.is_undefined ())
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	838 retval = 0;
4700 ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	839 }
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	840 else
5823 080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe] jwe parents: 5794 diff changeset	841 print_usage ();
4700 ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	842
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	843 return retval;
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	844 }
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	845
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	846 DEFUN (nargout, args, ,
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	847 "-- texinfo --\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10832 diff changeset	848 @deftypefn {Built-in Function} {} nargout ()\n\
14136 20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	849 @deftypefnx {Built-in Function} {} nargout (@var{fcn})\n\
4700 ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	850 Within a function, return the number of values the caller expects to\n\
14136 20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	851 receive. If called with the optional argument @var{fcn}, a function\n\
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	852 name or handle, return the number of declared output values that the\n\
14366 b76f0740940e doc: Periodic grammar check of documentation. Rik <octave@nomad.inbox5.com> parents: 14328 diff changeset	853 function can produce. If the final output argument is @var{varargout}\n\
14136 20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	854 the returned value is negative.\n\
4700 ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	855 \n\
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	856 For example,\n\
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	857 \n\
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	858 @example\n\
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	859 f ()\n\
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	860 @end example\n\
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	861 \n\
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	862 @noindent\n\
4704 e1b71baef20c [project @ 2004-01-22 04:03:21 by jwe] jwe parents: 4700 diff changeset	863 will cause @code{nargout} to return 0 inside the function @code{f} and\n\
4700 ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	864 \n\
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	865 @example\n\
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	866 [s, t] = f ()\n\
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	867 @end example\n\
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	868 \n\
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	869 @noindent\n\
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	870 will cause @code{nargout} to return 2 inside the function\n\
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	871 @code{f}.\n\
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	872 \n\
14136 20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	873 In the second usage,\n\
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	874 \n\
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	875 @example\n\
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	876 nargout (@@histc) \% or nargout ('histc')\n\
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	877 @end example\n\
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	878 \n\
14366 b76f0740940e doc: Periodic grammar check of documentation. Rik <octave@nomad.inbox5.com> parents: 14328 diff changeset	879 @noindent\n\
14136 20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	880 will return 2, because @code{histc} has two outputs, whereas\n\
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	881 \n\
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	882 @example\n\
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	883 nargout (@@deal)\n\
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	884 @end example\n\
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	885 \n\
14366 b76f0740940e doc: Periodic grammar check of documentation. Rik <octave@nomad.inbox5.com> parents: 14328 diff changeset	886 @noindent\n\
14136 20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	887 will return -1, because @code{deal} has a variable number of outputs.\n\
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	888 \n\
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	889 At the top level, @code{nargout} with no argument is undefined.\n\
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	890 @code{nargout} does not work on builtin functions.\n\
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	891 @code{nargout} returns -1 for all anonymous functions.\n\
13749 62d1f56b0be7 New nthargout function Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: 13241 diff changeset	892 @seealso{nargin, varargin, isargout, varargout, nthargout}\n\
4700 ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	893 @end deftypefn")
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	894 {
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	895 octave_value retval;
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	896
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	897 int nargin = args.length ();
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	898
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	899 if (nargin == 1)
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	900 {
14136 20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	901 octave_value func = args(0);
4700 ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	902
14136 20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	903 if (func.is_string ())
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	904 {
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	905 std::string name = func.string_value ();
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	906 func = symbol_table::find_function (name);
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	907 if (func.is_undefined ())
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	908 error ("nargout: invalid function name: %s", name.c_str ());
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	909 }
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	910
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	911 if (func.is_inline_function ())
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	912 {
14136 20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	913 retval = 1;
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	914 return retval;
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	915 }
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	916
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	917 if (func.is_function_handle ())
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	918 {
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	919 octave_fcn_handle *fh = func.fcn_handle_value ();
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	920 std::string fh_nm = fh->fcn_name ();
4930 bdb307dc8613 [project @ 2004-08-05 04:55:26 by jwe] jwe parents: 4929 diff changeset	921
14136 20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	922 if (fh_nm == octave_fcn_handle::anonymous)
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	923 {
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	924 retval = -1;
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	925 return retval;
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	926 }
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	927 }
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	928
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	929 octave_function *fcn_val = func.function_value ();
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	930 if (fcn_val)
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	931 {
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	932 octave_user_function *fcn = fcn_val->user_function_value (true);
4700 ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	933
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	934 if (fcn)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	935 {
14136 20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	936 tree_parameter_list *ret_list = fcn->return_list ();
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	937
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	938 retval = ret_list ? ret_list->length () : 0;
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	939
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	940 if (fcn->takes_var_return ())
14136 20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	941 retval = -1 - retval;
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	942 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	943 else
14136 20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	944 {
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	945 // JWE said this information is not available (currently, 2011-03-10)
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	946 // without making intrusive changes to Octave.
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	947 // Matlab gives up for histc, so maybe it's ok we give up somtimes too.
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	948 error ("nargout: nargout information not available for builtin functions.");
20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	949 }
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	950 }
4700 ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	951 else
14136 20cb178716ee Make nargin and nargout behave more like Matlab's (Bug #32700) Iain Murray <iain@iainmurray.net> parents: 12483 diff changeset	952 error ("nargout: FCN must be a string or function handle");
4700 ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	953 }
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	954 else if (nargin == 0)
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	955 {
7336 745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7017 diff changeset	956 if (! symbol_table::at_top_level ())
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	957 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	958 retval = symbol_table::varval (".nargout.");
4700 ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	959
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	960 if (retval.is_undefined ())
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	961 retval = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	962 }
4700 ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	963 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	964 error ("nargout: invalid call at top level");
4700 ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	965 }
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	966 else
5823 080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe] jwe parents: 5794 diff changeset	967 print_usage ();
4700 ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	968
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	969 return retval;
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	970 }
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe] jwe parents: 4645 diff changeset	971
9522 e79470be3ecb implement subsasgn this-arg optimization Jaroslav Hajek <highegg@gmail.com> parents: 9396 diff changeset	972 DEFUN (optimize_subsasgn_calls, args, nargout,
e79470be3ecb implement subsasgn this-arg optimization Jaroslav Hajek <highegg@gmail.com> parents: 9396 diff changeset	973 "-- texinfo --\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10832 diff changeset	974 @deftypefn {Built-in Function} {@var{val} =} optimize_subsasgn_calls ()\n\
89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10832 diff changeset	975 @deftypefnx {Built-in Function} {@var{old_val} =} optimize_subsasgn_calls (@var{new_val})\n\
13951 79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 13785 diff changeset	976 @deftypefnx {Built-in Function} {} optimize_subsasgn_calls (@var{new_val}, \"local\")\n\
9522 e79470be3ecb implement subsasgn this-arg optimization Jaroslav Hajek <highegg@gmail.com> parents: 9396 diff changeset	977 Query or set the internal flag for subsasgn method call optimizations.\n\
e79470be3ecb implement subsasgn this-arg optimization Jaroslav Hajek <highegg@gmail.com> parents: 9396 diff changeset	978 If true, Octave will attempt to eliminate the redundant copying when calling\n\
e79470be3ecb implement subsasgn this-arg optimization Jaroslav Hajek <highegg@gmail.com> parents: 9396 diff changeset	979 subsasgn method of a user-defined class.\n\
13951 79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 13785 diff changeset	980 \n\
79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 13785 diff changeset	981 When called from inside a function with the \"local\" option, the variable is\n\
79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 13785 diff changeset	982 changed locally for the function and any subroutines it calls. The original\n\
79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 13785 diff changeset	983 variable value is restored when exiting the function.\n\
9522 e79470be3ecb implement subsasgn this-arg optimization Jaroslav Hajek <highegg@gmail.com> parents: 9396 diff changeset	984 @end deftypefn")
e79470be3ecb implement subsasgn this-arg optimization Jaroslav Hajek <highegg@gmail.com> parents: 9396 diff changeset	985 {
e79470be3ecb implement subsasgn this-arg optimization Jaroslav Hajek <highegg@gmail.com> parents: 9396 diff changeset	986 return SET_INTERNAL_VARIABLE (optimize_subsasgn_calls);
e79470be3ecb implement subsasgn this-arg optimization Jaroslav Hajek <highegg@gmail.com> parents: 9396 diff changeset	987 }
10832 1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	988
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	989 static bool val_in_table (const Matrix& table, double val)
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	990 {
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	991 if (table.is_empty ())
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	992 return false;
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	993
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	994 octave_idx_type i = table.lookup (val, ASCENDING);
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	995 return (i > 0 && table(i-1) == val);
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	996 }
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	997
10847 7fa3c8e43357 change is_ignored_output to isargout Jaroslav Hajek <highegg@gmail.com> parents: 10846 diff changeset	998 static bool isargout1 (int nargout, const Matrix& ignored, double k)
7fa3c8e43357 change is_ignored_output to isargout Jaroslav Hajek <highegg@gmail.com> parents: 10846 diff changeset	999 {
7fa3c8e43357 change is_ignored_output to isargout Jaroslav Hajek <highegg@gmail.com> parents: 10846 diff changeset	1000 if (k != xround (k) \|\| k <= 0)
7fa3c8e43357 change is_ignored_output to isargout Jaroslav Hajek <highegg@gmail.com> parents: 10846 diff changeset	1001 {
12483 7a5aacf65f81 Rewrite error strings in src/ to use variables named in documentation. Rik <octave@nomad.inbox5.com> parents: 11586 diff changeset	1002 error ("isargout: K must be a positive integer");
10847 7fa3c8e43357 change is_ignored_output to isargout Jaroslav Hajek <highegg@gmail.com> parents: 10846 diff changeset	1003 return false;
7fa3c8e43357 change is_ignored_output to isargout Jaroslav Hajek <highegg@gmail.com> parents: 10846 diff changeset	1004 }
7fa3c8e43357 change is_ignored_output to isargout Jaroslav Hajek <highegg@gmail.com> parents: 10846 diff changeset	1005 else
7fa3c8e43357 change is_ignored_output to isargout Jaroslav Hajek <highegg@gmail.com> parents: 10846 diff changeset	1006 return (k == 1 \|\| k <= nargout) && ! val_in_table (ignored, k);
7fa3c8e43357 change is_ignored_output to isargout Jaroslav Hajek <highegg@gmail.com> parents: 10846 diff changeset	1007 }
7fa3c8e43357 change is_ignored_output to isargout Jaroslav Hajek <highegg@gmail.com> parents: 10846 diff changeset	1008
7fa3c8e43357 change is_ignored_output to isargout Jaroslav Hajek <highegg@gmail.com> parents: 10846 diff changeset	1009 DEFUN (isargout, args, ,
10832 1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	1010 "-- texinfo --\n\
10847 7fa3c8e43357 change is_ignored_output to isargout Jaroslav Hajek <highegg@gmail.com> parents: 10846 diff changeset	1011 @deftypefn {Built-in Function} {} isargout (@var{k})\n\
11431 0d9640d755b1 Improve docstrings for all isXXX functions. Rik <octave@nomad.inbox5.com> parents: 11304 diff changeset	1012 Within a function, return a logical value indicating whether the argument\n\
0d9640d755b1 Improve docstrings for all isXXX functions. Rik <octave@nomad.inbox5.com> parents: 11304 diff changeset	1013 @var{k} will be assigned on output to a variable. If the result is false,\n\
0d9640d755b1 Improve docstrings for all isXXX functions. Rik <octave@nomad.inbox5.com> parents: 11304 diff changeset	1014 the argument has been ignored during the function call through the use of\n\
0d9640d755b1 Improve docstrings for all isXXX functions. Rik <octave@nomad.inbox5.com> parents: 11304 diff changeset	1015 the tilde (~) special output argument. Functions can use @code{isargout} to\n\
0d9640d755b1 Improve docstrings for all isXXX functions. Rik <octave@nomad.inbox5.com> parents: 11304 diff changeset	1016 avoid performing unnecessary calculations for outputs which are unwanted.\n\
0d9640d755b1 Improve docstrings for all isXXX functions. Rik <octave@nomad.inbox5.com> parents: 11304 diff changeset	1017 \n\
14861 f7afecdd87ef maint: Use Octave coding conventions for cuddling parentheses in src/ directory Rik <octave@nomad.inbox5.com> parents: 14573 diff changeset	1018 If @var{k} is outside the range @code{1:max (nargout)}, the function returns\n\
11431 0d9640d755b1 Improve docstrings for all isXXX functions. Rik <octave@nomad.inbox5.com> parents: 11304 diff changeset	1019 false. @var{k} can also be an array, in which case the function works\n\
0d9640d755b1 Improve docstrings for all isXXX functions. Rik <octave@nomad.inbox5.com> parents: 11304 diff changeset	1020 element-by-element and a logical array is returned. At the top level,\n\
0d9640d755b1 Improve docstrings for all isXXX functions. Rik <octave@nomad.inbox5.com> parents: 11304 diff changeset	1021 @code{isargout} returns an error.\n\
13749 62d1f56b0be7 New nthargout function Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: 13241 diff changeset	1022 @seealso{nargout, nargin, varargin, varargout, nthargout}\n\
10832 1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	1023 @end deftypefn")
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	1024 {
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	1025 octave_value retval;
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	1026
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	1027 int nargin = args.length ();
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	1028
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	1029 if (nargin == 1)
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	1030 {
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	1031 if (! symbol_table::at_top_level ())
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	1032 {
10847 7fa3c8e43357 change is_ignored_output to isargout Jaroslav Hajek <highegg@gmail.com> parents: 10846 diff changeset	1033 int nargout1 = symbol_table::varval (".nargout.").int_value ();
7fa3c8e43357 change is_ignored_output to isargout Jaroslav Hajek <highegg@gmail.com> parents: 10846 diff changeset	1034 if (error_state)
7fa3c8e43357 change is_ignored_output to isargout Jaroslav Hajek <highegg@gmail.com> parents: 10846 diff changeset	1035 {
7fa3c8e43357 change is_ignored_output to isargout Jaroslav Hajek <highegg@gmail.com> parents: 10846 diff changeset	1036 error ("isargout: internal error");
7fa3c8e43357 change is_ignored_output to isargout Jaroslav Hajek <highegg@gmail.com> parents: 10846 diff changeset	1037 return retval;
7fa3c8e43357 change is_ignored_output to isargout Jaroslav Hajek <highegg@gmail.com> parents: 10846 diff changeset	1038 }
7fa3c8e43357 change is_ignored_output to isargout Jaroslav Hajek <highegg@gmail.com> parents: 10846 diff changeset	1039
10832 1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	1040 Matrix ignored;
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	1041 octave_value tmp = symbol_table::varval (".ignored.");
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	1042 if (tmp.is_defined ())
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	1043 ignored = tmp.matrix_value ();
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	1044
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	1045 if (args(0).is_scalar_type ())
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	1046 {
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	1047 double k = args(0).double_value ();
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	1048 if (! error_state)
10847 7fa3c8e43357 change is_ignored_output to isargout Jaroslav Hajek <highegg@gmail.com> parents: 10846 diff changeset	1049 retval = isargout1 (nargout1, ignored, k);
10832 1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	1050 }
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	1051 else if (args(0).is_numeric_type ())
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	1052 {
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	1053 const NDArray ka = args(0).array_value ();
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	1054 if (! error_state)
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	1055 {
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	1056 boolNDArray r (ka.dims ());
10847 7fa3c8e43357 change is_ignored_output to isargout Jaroslav Hajek <highegg@gmail.com> parents: 10846 diff changeset	1057 for (octave_idx_type i = 0; i < ka.numel () && ! error_state; i++)
7fa3c8e43357 change is_ignored_output to isargout Jaroslav Hajek <highegg@gmail.com> parents: 10846 diff changeset	1058 r(i) = isargout1 (nargout1, ignored, ka(i));
10832 1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	1059
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	1060 retval = r;
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	1061 }
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	1062 }
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	1063 else
10847 7fa3c8e43357 change is_ignored_output to isargout Jaroslav Hajek <highegg@gmail.com> parents: 10846 diff changeset	1064 gripe_wrong_type_arg ("isargout", args(0));
10832 1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	1065 }
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	1066 else
10847 7fa3c8e43357 change is_ignored_output to isargout Jaroslav Hajek <highegg@gmail.com> parents: 10846 diff changeset	1067 error ("isargout: invalid call at top level");
10832 1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	1068 }
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	1069 else
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	1070 print_usage ();
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	1071
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	1072 return retval;
1b2fcd122c6a allow user detect ignored outputs in m-functions Jaroslav Hajek <highegg@gmail.com> parents: 10637 diff changeset	1073 }
14571 6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1074
6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1075 /*
6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1076 %!function [x, y] = try_isargout ()
6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1077 %! if (isargout (1))
6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1078 %! if (isargout (2))
6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1079 %! x = 1; y = 2;
6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1080 %! else
6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1081 %! x = -1;
6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1082 %! endif
6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1083 %! else
6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1084 %! if (isargout (2))
6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1085 %! y = -2;
6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1086 %! else
6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1087 %! error ("no outputs requested");
6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1088 %! endif
6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1089 %! endif
6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1090 %!endfunction
6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1091 %!
6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1092 %!test
6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1093 %! [x, y] = try_isargout ();
6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1094 %! assert ([x, y], [1, 2]);
6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1095 %!
6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1096 %!test
6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1097 %! [x, ~] = try_isargout ();
6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1098 %! assert (x, -1);
6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1099 %!
6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1100 %!test
6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1101 %! [~, y] = try_isargout ();
6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1102 %! assert (y, -2);
6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1103 %!
6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1104 %!error [~, ~] = try_isargout ();
6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1105 %!
6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1106 %% Check to see that isargout isn't sticky:
6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1107 %!test
6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1108 %! [x, y] = try_isargout ();
6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1109 %! assert ([x, y], [1, 2]);
16091 1785493171ac pass lvalue_list to more subsref calls (bug #38374) John W. Eaton <jwe@octave.org> parents: 15582 diff changeset	1110 %!
1785493171ac pass lvalue_list to more subsref calls (bug #38374) John W. Eaton <jwe@octave.org> parents: 15582 diff changeset	1111 %% It should work without ():
1785493171ac pass lvalue_list to more subsref calls (bug #38374) John W. Eaton <jwe@octave.org> parents: 15582 diff changeset	1112 %!test
1785493171ac pass lvalue_list to more subsref calls (bug #38374) John W. Eaton <jwe@octave.org> parents: 15582 diff changeset	1113 %! [~, y] = try_isargout;
1785493171ac pass lvalue_list to more subsref calls (bug #38374) John W. Eaton <jwe@octave.org> parents: 15582 diff changeset	1114 %! assert (y, -2);
1785493171ac pass lvalue_list to more subsref calls (bug #38374) John W. Eaton <jwe@octave.org> parents: 15582 diff changeset	1115 %!
1785493171ac pass lvalue_list to more subsref calls (bug #38374) John W. Eaton <jwe@octave.org> parents: 15582 diff changeset	1116 %% It should work in function handles, anonymous functions, and cell
1785493171ac pass lvalue_list to more subsref calls (bug #38374) John W. Eaton <jwe@octave.org> parents: 15582 diff changeset	1117 %% arrays of handles or anonymous functions.
1785493171ac pass lvalue_list to more subsref calls (bug #38374) John W. Eaton <jwe@octave.org> parents: 15582 diff changeset	1118 %!test
1785493171ac pass lvalue_list to more subsref calls (bug #38374) John W. Eaton <jwe@octave.org> parents: 15582 diff changeset	1119 %! fh = @try_isargout;
1785493171ac pass lvalue_list to more subsref calls (bug #38374) John W. Eaton <jwe@octave.org> parents: 15582 diff changeset	1120 %! af = @() try_isargout;
1785493171ac pass lvalue_list to more subsref calls (bug #38374) John W. Eaton <jwe@octave.org> parents: 15582 diff changeset	1121 %! c = {fh, af};
1785493171ac pass lvalue_list to more subsref calls (bug #38374) John W. Eaton <jwe@octave.org> parents: 15582 diff changeset	1122 %! [~, y] = fh ();
1785493171ac pass lvalue_list to more subsref calls (bug #38374) John W. Eaton <jwe@octave.org> parents: 15582 diff changeset	1123 %! assert (y, -2);
1785493171ac pass lvalue_list to more subsref calls (bug #38374) John W. Eaton <jwe@octave.org> parents: 15582 diff changeset	1124 %! [~, y] = af ();
1785493171ac pass lvalue_list to more subsref calls (bug #38374) John W. Eaton <jwe@octave.org> parents: 15582 diff changeset	1125 %! assert (y, -2);
1785493171ac pass lvalue_list to more subsref calls (bug #38374) John W. Eaton <jwe@octave.org> parents: 15582 diff changeset	1126 %! [~, y] = c{1}();
1785493171ac pass lvalue_list to more subsref calls (bug #38374) John W. Eaton <jwe@octave.org> parents: 15582 diff changeset	1127 %! assert (y, -2);
1785493171ac pass lvalue_list to more subsref calls (bug #38374) John W. Eaton <jwe@octave.org> parents: 15582 diff changeset	1128 %! [~, y] = c{2}();
1785493171ac pass lvalue_list to more subsref calls (bug #38374) John W. Eaton <jwe@octave.org> parents: 15582 diff changeset	1129 %! assert (y, -2);
14571 6131fead3135 ensure isargout is not sticky John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1130 */

Mercurial > octave-nkf

annotate libinterp/octave-value/ov-usr-fcn.cc @ 16856:787de2f144d9