Mercurial > octave-nkf
annotate src/ov-usr-fcn.h @ 13241:2a8dcb5b3a00
improve default indexing for objects
* ov-class.cc (octave_class::is_class_method): Also return true for
anonymous functions executing in the context of a class method or
constructor.
* ov-class.h (octave_class:do_multi_index_op): New function.
* ov-fcn.h (octave_function::is_private_function_of_class): Now const.
(octave_function::is_anonymous_function_of_class): New virtual function.
* ov-usr-fcn.h (octave_function::anonymous_function): New data member.
(octave_user_function::mark_as_anonymous_function): New function.
(octave_user_function::is_anonymous_function): New function.
(octave_user_function::is_anonymous_function_of_class): New function.
* ov-usr-fcn.cc (octave_user_function::octave_user_function):
Initialize anonymous_function data member.
(octave_user_function::profiler_name): Distinguish between inline and
anonymous functions.
(octave_user_function::do_multi_index_op): Use is_anonymous_function
instead of checking whether cmd_list is marked as an anonymous
function body.
* pt-fcn-handle.cc (tree_anon_fcn_handle::rvalue1): If parent function
is a class method or constructor, stash the dispatch type in the new
function. Mark the new function as anonymous, not inline.
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Wed, 28 Sep 2011 16:45:21 -0400 |
| parents | ad9263d965dc |
| children | 72c96de7a403 |
| rev | line source |
|---|---|
| 2974 | 1 /* |
| 2 | |
| 11523 | 3 Copyright (C) 1996-2011 John W. Eaton |
| 2974 | 4 |
| 5 This file is part of Octave. | |
| 6 | |
| 7 Octave is free software; you can redistribute it and/or modify it | |
| 8 under the terms of the GNU General Public License as published by the | |
| 7016 | 9 Free Software Foundation; either version 3 of the License, or (at your |
| 10 option) any later version. | |
| 2974 | 11 |
| 12 Octave is distributed in the hope that it will be useful, but WITHOUT | |
| 13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 15 for more details. | |
| 16 | |
| 17 You should have received a copy of the GNU General Public License | |
| 7016 | 18 along with Octave; see the file COPYING. If not, see |
| 19 <http://www.gnu.org/licenses/>. | |
| 2974 | 20 |
| 21 */ | |
| 22 | |
| 23 #if !defined (octave_user_function_h) | |
| 24 #define octave_user_function_h 1 | |
| 25 | |
| 26 #include <ctime> | |
| 27 | |
| 28 #include <string> | |
| 4214 | 29 #include <stack> |
| 2974 | 30 |
| 3665 | 31 #include "comment-list.h" |
| 2974 | 32 #include "oct-obj.h" |
| 33 #include "ov-fcn.h" | |
| 34 #include "ov-typeinfo.h" | |
| 7336 | 35 #include "symtab.h" |
|
10637
9cd5aa83fa62
implement 'local' parameter to pseudo-variables
Jaroslav Hajek <highegg@gmail.com>
parents:
10313
diff
changeset
|
36 #include "unwind-prot.h" |
| 2974 | 37 |
| 38 class string_vector; | |
| 39 | |
| 40 class octave_value; | |
| 41 class tree_parameter_list; | |
| 42 class tree_statement_list; | |
| 43 class tree_va_return_list; | |
| 44 class tree_walker; | |
| 45 | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
46 class |
|
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
|
47 octave_user_code : public octave_function |
|
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
|
48 { |
|
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
|
49 public: |
|
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
|
50 octave_user_code (void) |
|
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
|
51 : octave_function () { } |
|
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
|
52 |
|
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
|
53 ~octave_user_code (void) { } |
|
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
|
54 |
|
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
|
55 bool is_user_code (void) const { return true; } |
|
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
|
56 |
|
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
|
57 virtual tree_statement_list *body (void) = 0; |
|
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
|
58 |
|
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
|
59 protected: |
|
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
|
60 |
|
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
|
61 octave_user_code (const std::string& nm, |
| 10313 | 62 const std::string& ds = std::string ()) |
|
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
|
63 : octave_function (nm, ds) { } |
|
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
|
64 |
|
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
|
65 private: |
|
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
|
66 |
|
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
|
67 // No copying! |
|
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
|
68 |
|
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
|
69 octave_user_code (const octave_user_code& f); |
|
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
|
70 |
|
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
|
71 octave_user_code& operator = (const octave_user_code& f); |
|
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
|
72 }; |
|
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
|
73 |
| 5744 | 74 // Scripts. |
| 75 | |
| 76 class | |
|
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
|
77 octave_user_script : public octave_user_code |
| 5744 | 78 { |
| 79 public: | |
| 80 | |
|
7731
2d2a969c731c
fix max_recursion_limit exceeded at startup with Intel C++
Jaroslav Hajek <highegg@gmail.com>
parents:
7719
diff
changeset
|
81 octave_user_script (void); |
|
7715
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
82 |
|
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
83 octave_user_script (const std::string& fnm, const std::string& nm, |
| 10313 | 84 tree_statement_list *cmds, |
| 85 const std::string& ds = std::string ()); | |
| 5744 | 86 |
| 87 octave_user_script (const std::string& fnm, const std::string& nm, | |
| 10313 | 88 const std::string& ds = std::string ()); |
|
7715
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
89 |
|
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
90 ~octave_user_script (void); |
| 5744 | 91 |
|
7715
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
92 octave_function *function_value (bool = false) { return this; } |
|
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
93 |
|
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
94 octave_user_script *user_script_value (bool = false) { return this; } |
| 5744 | 95 |
|
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
|
96 octave_user_code *user_code_value (bool = false) { return this; } |
|
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
|
97 |
| 5744 | 98 // Scripts and user functions are both considered "scripts" because |
| 99 // they are written in Octave's scripting language. | |
| 100 | |
| 101 bool is_user_script (void) const { return true; } | |
| 102 | |
| 103 void stash_fcn_file_name (const std::string& nm) { file_name = nm; } | |
| 104 | |
|
7715
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
105 void mark_fcn_file_up_to_date (const octave_time& t) { t_checked = t; } |
|
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
106 |
|
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
107 void stash_fcn_file_time (const octave_time& t) |
|
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
108 { |
|
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
109 t_parsed = t; |
|
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
110 mark_fcn_file_up_to_date (t); |
|
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
111 } |
|
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
112 |
| 5744 | 113 std::string fcn_file_name (void) const { return file_name; } |
| 114 | |
|
7715
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
115 octave_time time_parsed (void) const { return t_parsed; } |
|
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
116 |
|
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
117 octave_time time_checked (void) const { return t_checked; } |
|
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
118 |
|
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
119 octave_value subsref (const std::string& type, |
| 10313 | 120 const std::list<octave_value_list>& idx) |
|
7715
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
121 { |
|
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
122 octave_value_list tmp = subsref (type, idx, 1); |
|
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
123 return tmp.length () > 0 ? tmp(0) : octave_value (); |
|
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
124 } |
|
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
125 |
|
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
126 octave_value_list subsref (const std::string& type, |
| 10313 | 127 const std::list<octave_value_list>& idx, |
| 128 int nargout); | |
|
7715
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
129 |
| 7336 | 130 octave_value_list |
| 131 do_multi_index_op (int nargout, const octave_value_list& args); | |
| 132 | |
|
7715
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
133 tree_statement_list *body (void) { return cmd_list; } |
|
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
134 |
|
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
135 void accept (tree_walker& tw); |
|
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
136 |
| 5744 | 137 private: |
| 138 | |
|
7715
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
139 // The list of commands that make up the body of this function. |
|
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
140 tree_statement_list *cmd_list; |
|
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
141 |
|
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
142 // The name of the file we parsed. |
| 5744 | 143 std::string file_name; |
| 144 | |
|
7715
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
145 // The time the file was parsed. |
|
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
146 octave_time t_parsed; |
|
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
147 |
|
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
148 // The time the file was last checked to see if it needs to be |
|
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
149 // parsed again. |
|
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
150 octave_time t_checked; |
|
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
151 |
|
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
152 // Used to keep track of recursion depth. |
|
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
153 int call_depth; |
|
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7651
diff
changeset
|
154 |
| 5744 | 155 // No copying! |
| 156 | |
| 157 octave_user_script (const octave_user_script& f); | |
| 158 | |
| 159 octave_user_script& operator = (const octave_user_script& f); | |
| 160 | |
| 161 DECLARE_OCTAVE_ALLOCATOR | |
| 162 | |
| 163 DECLARE_OV_TYPEID_FUNCTIONS_AND_DATA | |
| 164 }; | |
| 165 | |
| 166 // User-defined functions. | |
| 2974 | 167 |
| 168 class | |
|
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
|
169 octave_user_function : public octave_user_code |
| 2974 | 170 { |
| 171 public: | |
| 172 | |
| 7336 | 173 octave_user_function (symbol_table::scope_id sid = -1, |
| 10313 | 174 tree_parameter_list *pl = 0, |
| 175 tree_parameter_list *rl = 0, | |
| 176 tree_statement_list *cl = 0); | |
| 2974 | 177 |
| 178 ~octave_user_function (void); | |
| 179 | |
| 4654 | 180 octave_function *function_value (bool = false) { return this; } |
| 2974 | 181 |
| 4700 | 182 octave_user_function *user_function_value (bool = false) { return this; } |
| 183 | |
|
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
|
184 octave_user_code *user_code_value (bool = false) { return this; } |
|
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
|
185 |
| 2974 | 186 octave_user_function *define_param_list (tree_parameter_list *t); |
| 187 | |
| 188 octave_user_function *define_ret_list (tree_parameter_list *t); | |
| 189 | |
| 4343 | 190 void stash_fcn_file_name (const std::string& nm); |
| 2974 | 191 |
|
12783
ad9263d965dc
First experimental profiler implementation with flat profile.
Daniel Kraft <d@domob.eu>
parents:
11586
diff
changeset
|
192 void stash_fcn_location (int line, int col) |
|
ad9263d965dc
First experimental profiler implementation with flat profile.
Daniel Kraft <d@domob.eu>
parents:
11586
diff
changeset
|
193 { |
|
ad9263d965dc
First experimental profiler implementation with flat profile.
Daniel Kraft <d@domob.eu>
parents:
11586
diff
changeset
|
194 location_line = line; |
|
ad9263d965dc
First experimental profiler implementation with flat profile.
Daniel Kraft <d@domob.eu>
parents:
11586
diff
changeset
|
195 location_column = col; |
|
ad9263d965dc
First experimental profiler implementation with flat profile.
Daniel Kraft <d@domob.eu>
parents:
11586
diff
changeset
|
196 } |
|
ad9263d965dc
First experimental profiler implementation with flat profile.
Daniel Kraft <d@domob.eu>
parents:
11586
diff
changeset
|
197 |
| 6323 | 198 void stash_parent_fcn_name (const std::string& p) { parent_name = p; } |
| 199 | |
|
7968
0d607e8dbbfa
eliminate curr_parent_function; fix subfunction lookup
John W. Eaton <jwe@octave.org>
parents:
7876
diff
changeset
|
200 void stash_parent_fcn_scope (symbol_table::scope_id ps) { parent_scope = ps; } |
|
0d607e8dbbfa
eliminate curr_parent_function; fix subfunction lookup
John W. Eaton <jwe@octave.org>
parents:
7876
diff
changeset
|
201 |
| 3665 | 202 void stash_leading_comment (octave_comment_list *lc) { lead_comm = lc; } |
| 203 | |
| 204 void stash_trailing_comment (octave_comment_list *tc) { trail_comm = tc; } | |
| 205 | |
| 3325 | 206 void mark_fcn_file_up_to_date (const octave_time& t) { t_checked = t; } |
| 3165 | 207 |
| 3255 | 208 void stash_fcn_file_time (const octave_time& t) |
| 3165 | 209 { |
| 210 t_parsed = t; | |
| 211 mark_fcn_file_up_to_date (t); | |
| 212 } | |
| 2974 | 213 |
| 4346 | 214 std::string fcn_file_name (void) const { return file_name; } |
| 2974 | 215 |
|
12783
ad9263d965dc
First experimental profiler implementation with flat profile.
Daniel Kraft <d@domob.eu>
parents:
11586
diff
changeset
|
216 std::string profiler_name (void) const; |
|
ad9263d965dc
First experimental profiler implementation with flat profile.
Daniel Kraft <d@domob.eu>
parents:
11586
diff
changeset
|
217 |
| 6323 | 218 std::string parent_fcn_name (void) const { return parent_name; } |
| 219 | |
|
7968
0d607e8dbbfa
eliminate curr_parent_function; fix subfunction lookup
John W. Eaton <jwe@octave.org>
parents:
7876
diff
changeset
|
220 symbol_table::scope_id parent_fcn_scope (void) const { return parent_scope; } |
|
0d607e8dbbfa
eliminate curr_parent_function; fix subfunction lookup
John W. Eaton <jwe@octave.org>
parents:
7876
diff
changeset
|
221 |
| 7336 | 222 symbol_table::scope_id scope (void) { return local_scope; } |
| 223 | |
| 4346 | 224 octave_time time_parsed (void) const { return t_parsed; } |
| 2974 | 225 |
| 4346 | 226 octave_time time_checked (void) const { return t_checked; } |
| 3165 | 227 |
| 2974 | 228 void mark_as_system_fcn_file (void); |
| 229 | |
| 4346 | 230 bool is_system_fcn_file (void) const { return system_fcn_file; } |
| 2974 | 231 |
| 4748 | 232 bool is_user_function (void) const { return true; } |
| 233 | |
|
7876
8447a5024650
clear subfunctions when clearing parent function
John W. Eaton <jwe@octave.org>
parents:
7761
diff
changeset
|
234 void erase_subfunctions (void) |
|
8447a5024650
clear subfunctions when clearing parent function
John W. Eaton <jwe@octave.org>
parents:
7761
diff
changeset
|
235 { |
|
8447a5024650
clear subfunctions when clearing parent function
John W. Eaton <jwe@octave.org>
parents:
7761
diff
changeset
|
236 symbol_table::erase_subfunctions_in_scope (local_scope); |
|
8447a5024650
clear subfunctions when clearing parent function
John W. Eaton <jwe@octave.org>
parents:
7761
diff
changeset
|
237 } |
|
8447a5024650
clear subfunctions when clearing parent function
John W. Eaton <jwe@octave.org>
parents:
7761
diff
changeset
|
238 |
| 2974 | 239 bool takes_varargs (void) const; |
| 240 | |
| 5848 | 241 bool takes_var_return (void) const; |
| 2974 | 242 |
|
11445
40f311a69417
fix OO field access in subfunctions of private functions
John W. Eaton <jwe@octave.org>
parents:
11220
diff
changeset
|
243 void mark_as_private_function (const std::string& cname = std::string ()) |
|
40f311a69417
fix OO field access in subfunctions of private functions
John W. Eaton <jwe@octave.org>
parents:
11220
diff
changeset
|
244 { |
|
40f311a69417
fix OO field access in subfunctions of private functions
John W. Eaton <jwe@octave.org>
parents:
11220
diff
changeset
|
245 symbol_table::mark_subfunctions_in_scope_as_private (local_scope, cname); |
|
40f311a69417
fix OO field access in subfunctions of private functions
John W. Eaton <jwe@octave.org>
parents:
11220
diff
changeset
|
246 |
|
40f311a69417
fix OO field access in subfunctions of private functions
John W. Eaton <jwe@octave.org>
parents:
11220
diff
changeset
|
247 octave_function::mark_as_private_function (cname); |
|
40f311a69417
fix OO field access in subfunctions of private functions
John W. Eaton <jwe@octave.org>
parents:
11220
diff
changeset
|
248 } |
|
40f311a69417
fix OO field access in subfunctions of private functions
John W. Eaton <jwe@octave.org>
parents:
11220
diff
changeset
|
249 |
|
7761
5adeea5de26c
symbol table reporting functions
John W. Eaton <jwe@octave.org>
parents:
7752
diff
changeset
|
250 void lock_subfunctions (void); |
|
5adeea5de26c
symbol table reporting functions
John W. Eaton <jwe@octave.org>
parents:
7752
diff
changeset
|
251 |
|
5adeea5de26c
symbol table reporting functions
John W. Eaton <jwe@octave.org>
parents:
7752
diff
changeset
|
252 void unlock_subfunctions (void); |
|
5adeea5de26c
symbol table reporting functions
John W. Eaton <jwe@octave.org>
parents:
7752
diff
changeset
|
253 |
|
9522
e79470be3ecb
implement subsasgn this-arg optimization
Jaroslav Hajek <highegg@gmail.com>
parents:
8920
diff
changeset
|
254 octave_value_list all_va_args (const octave_value_list& args); |
| 2974 | 255 |
| 4748 | 256 void stash_function_name (const std::string& s) { my_name = s; } |
| 2974 | 257 |
|
11461
2b8531a6a3c9
Change mentions of "nested function" to the less misleading "subfunction"
David Grundberg <individ@acc.umu.se>
parents:
11445
diff
changeset
|
258 void mark_as_subfunction (void) { subfunction = true; } |
| 4238 | 259 |
|
11461
2b8531a6a3c9
Change mentions of "nested function" to the less misleading "subfunction"
David Grundberg <individ@acc.umu.se>
parents:
11445
diff
changeset
|
260 bool is_subfunction (void) const { return subfunction; } |
| 4238 | 261 |
| 6149 | 262 void mark_as_inline_function (void) { inline_function = true; } |
| 263 | |
| 264 bool is_inline_function (void) const { return inline_function; } | |
| 265 | |
|
13241
2a8dcb5b3a00
improve default indexing for objects
John W. Eaton <jwe@octave.org>
parents:
12783
diff
changeset
|
266 void mark_as_anonymous_function (void) { anonymous_function = true; } |
|
2a8dcb5b3a00
improve default indexing for objects
John W. Eaton <jwe@octave.org>
parents:
12783
diff
changeset
|
267 |
|
2a8dcb5b3a00
improve default indexing for objects
John W. Eaton <jwe@octave.org>
parents:
12783
diff
changeset
|
268 bool is_anonymous_function (void) const { return anonymous_function; } |
|
2a8dcb5b3a00
improve default indexing for objects
John W. Eaton <jwe@octave.org>
parents:
12783
diff
changeset
|
269 |
|
2a8dcb5b3a00
improve default indexing for objects
John W. Eaton <jwe@octave.org>
parents:
12783
diff
changeset
|
270 bool is_anonymous_function_of_class |
|
2a8dcb5b3a00
improve default indexing for objects
John W. Eaton <jwe@octave.org>
parents:
12783
diff
changeset
|
271 (const std::string& cname = std::string ()) const |
|
2a8dcb5b3a00
improve default indexing for objects
John W. Eaton <jwe@octave.org>
parents:
12783
diff
changeset
|
272 { |
|
2a8dcb5b3a00
improve default indexing for objects
John W. Eaton <jwe@octave.org>
parents:
12783
diff
changeset
|
273 return anonymous_function |
|
2a8dcb5b3a00
improve default indexing for objects
John W. Eaton <jwe@octave.org>
parents:
12783
diff
changeset
|
274 ? (cname.empty () |
|
2a8dcb5b3a00
improve default indexing for objects
John W. Eaton <jwe@octave.org>
parents:
12783
diff
changeset
|
275 ? (! dispatch_class().empty ()) |
|
2a8dcb5b3a00
improve default indexing for objects
John W. Eaton <jwe@octave.org>
parents:
12783
diff
changeset
|
276 : cname == dispatch_class ()) |
|
2a8dcb5b3a00
improve default indexing for objects
John W. Eaton <jwe@octave.org>
parents:
12783
diff
changeset
|
277 : false; |
|
2a8dcb5b3a00
improve default indexing for objects
John W. Eaton <jwe@octave.org>
parents:
12783
diff
changeset
|
278 } |
|
2a8dcb5b3a00
improve default indexing for objects
John W. Eaton <jwe@octave.org>
parents:
12783
diff
changeset
|
279 |
| 7336 | 280 void mark_as_class_constructor (void) { class_constructor = true; } |
| 281 | |
|
11220
883b9308353c
allow class function to be called from methods as well as constructors
John W. Eaton <jwe@octave.org>
parents:
10832
diff
changeset
|
282 bool is_class_constructor (const std::string& cname = std::string ()) const |
|
883b9308353c
allow class function to be called from methods as well as constructors
John W. Eaton <jwe@octave.org>
parents:
10832
diff
changeset
|
283 { |
|
883b9308353c
allow class function to be called from methods as well as constructors
John W. Eaton <jwe@octave.org>
parents:
10832
diff
changeset
|
284 return class_constructor |
|
883b9308353c
allow class function to be called from methods as well as constructors
John W. Eaton <jwe@octave.org>
parents:
10832
diff
changeset
|
285 ? (cname.empty () ? true : cname == dispatch_class ()) : false; |
|
883b9308353c
allow class function to be called from methods as well as constructors
John W. Eaton <jwe@octave.org>
parents:
10832
diff
changeset
|
286 } |
| 7336 | 287 |
| 288 void mark_as_class_method (void) { class_method = true; } | |
| 289 | |
|
11220
883b9308353c
allow class function to be called from methods as well as constructors
John W. Eaton <jwe@octave.org>
parents:
10832
diff
changeset
|
290 bool is_class_method (const std::string& cname = std::string ()) const |
|
883b9308353c
allow class function to be called from methods as well as constructors
John W. Eaton <jwe@octave.org>
parents:
10832
diff
changeset
|
291 { |
|
883b9308353c
allow class function to be called from methods as well as constructors
John W. Eaton <jwe@octave.org>
parents:
10832
diff
changeset
|
292 return class_method |
|
883b9308353c
allow class function to be called from methods as well as constructors
John W. Eaton <jwe@octave.org>
parents:
10832
diff
changeset
|
293 ? (cname.empty () ? true : cname == dispatch_class ()) : false; |
|
883b9308353c
allow class function to be called from methods as well as constructors
John W. Eaton <jwe@octave.org>
parents:
10832
diff
changeset
|
294 } |
| 7336 | 295 |
|
7651
443a8f5a50fd
require both subsref variants to be defined in octave_value subclasses
John W. Eaton <jwe@octave.org>
parents:
7336
diff
changeset
|
296 octave_value subsref (const std::string& type, |
| 10313 | 297 const std::list<octave_value_list>& idx) |
| 4271 | 298 { |
|
7651
443a8f5a50fd
require both subsref variants to be defined in octave_value subclasses
John W. Eaton <jwe@octave.org>
parents:
7336
diff
changeset
|
299 octave_value_list tmp = subsref (type, idx, 1); |
|
443a8f5a50fd
require both subsref variants to be defined in octave_value subclasses
John W. Eaton <jwe@octave.org>
parents:
7336
diff
changeset
|
300 return tmp.length () > 0 ? tmp(0) : octave_value (); |
| 4271 | 301 } |
| 302 | |
| 4247 | 303 octave_value_list subsref (const std::string& type, |
| 10313 | 304 const std::list<octave_value_list>& idx, |
| 305 int nargout); | |
| 3933 | 306 |
|
10832
1b2fcd122c6a
allow user detect ignored outputs in m-functions
Jaroslav Hajek <highegg@gmail.com>
parents:
10637
diff
changeset
|
307 octave_value_list subsref (const std::string& type, |
|
1b2fcd122c6a
allow user detect ignored outputs in m-functions
Jaroslav Hajek <highegg@gmail.com>
parents:
10637
diff
changeset
|
308 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
|
309 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
|
310 |
| 3544 | 311 octave_value_list |
| 312 do_multi_index_op (int nargout, const octave_value_list& args); | |
| 2974 | 313 |
|
10832
1b2fcd122c6a
allow user detect ignored outputs in m-functions
Jaroslav Hajek <highegg@gmail.com>
parents:
10637
diff
changeset
|
314 octave_value_list |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
315 do_multi_index_op (int nargout, const octave_value_list& args, |
|
10832
1b2fcd122c6a
allow user detect ignored outputs in m-functions
Jaroslav Hajek <highegg@gmail.com>
parents:
10637
diff
changeset
|
316 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
|
317 |
| 2974 | 318 tree_parameter_list *parameter_list (void) { return param_list; } |
| 319 | |
| 320 tree_parameter_list *return_list (void) { return ret_list; } | |
| 321 | |
| 322 tree_statement_list *body (void) { return cmd_list; } | |
| 323 | |
| 3665 | 324 octave_comment_list *leading_comment (void) { return lead_comm; } |
| 325 | |
| 326 octave_comment_list *trailing_comment (void) { return trail_comm; } | |
| 327 | |
|
9522
e79470be3ecb
implement subsasgn this-arg optimization
Jaroslav Hajek <highegg@gmail.com>
parents:
8920
diff
changeset
|
328 bool subsasgn_optimization_ok (void); |
|
e79470be3ecb
implement subsasgn this-arg optimization
Jaroslav Hajek <highegg@gmail.com>
parents:
8920
diff
changeset
|
329 |
| 2974 | 330 void accept (tree_walker& tw); |
| 331 | |
|
10637
9cd5aa83fa62
implement 'local' parameter to pseudo-variables
Jaroslav Hajek <highegg@gmail.com>
parents:
10313
diff
changeset
|
332 template <class T> |
|
9cd5aa83fa62
implement 'local' parameter to pseudo-variables
Jaroslav Hajek <highegg@gmail.com>
parents:
10313
diff
changeset
|
333 bool local_protect (T& variable) |
|
9cd5aa83fa62
implement 'local' parameter to pseudo-variables
Jaroslav Hajek <highegg@gmail.com>
parents:
10313
diff
changeset
|
334 { |
|
9cd5aa83fa62
implement 'local' parameter to pseudo-variables
Jaroslav Hajek <highegg@gmail.com>
parents:
10313
diff
changeset
|
335 if (curr_unwind_protect_frame) |
|
9cd5aa83fa62
implement 'local' parameter to pseudo-variables
Jaroslav Hajek <highegg@gmail.com>
parents:
10313
diff
changeset
|
336 { |
|
9cd5aa83fa62
implement 'local' parameter to pseudo-variables
Jaroslav Hajek <highegg@gmail.com>
parents:
10313
diff
changeset
|
337 curr_unwind_protect_frame->protect_var (variable); |
|
9cd5aa83fa62
implement 'local' parameter to pseudo-variables
Jaroslav Hajek <highegg@gmail.com>
parents:
10313
diff
changeset
|
338 return true; |
|
9cd5aa83fa62
implement 'local' parameter to pseudo-variables
Jaroslav Hajek <highegg@gmail.com>
parents:
10313
diff
changeset
|
339 } |
|
9cd5aa83fa62
implement 'local' parameter to pseudo-variables
Jaroslav Hajek <highegg@gmail.com>
parents:
10313
diff
changeset
|
340 else |
|
9cd5aa83fa62
implement 'local' parameter to pseudo-variables
Jaroslav Hajek <highegg@gmail.com>
parents:
10313
diff
changeset
|
341 return false; |
|
9cd5aa83fa62
implement 'local' parameter to pseudo-variables
Jaroslav Hajek <highegg@gmail.com>
parents:
10313
diff
changeset
|
342 } |
|
9cd5aa83fa62
implement 'local' parameter to pseudo-variables
Jaroslav Hajek <highegg@gmail.com>
parents:
10313
diff
changeset
|
343 |
| 7336 | 344 #if 0 |
| 3933 | 345 void print_symtab_info (std::ostream& os) const; |
| 7336 | 346 #endif |
| 3933 | 347 |
| 2974 | 348 private: |
| 349 | |
| 350 // List of arguments for this function. These are local variables. | |
| 351 tree_parameter_list *param_list; | |
| 352 | |
| 353 // List of parameters we return. These are also local variables in | |
| 354 // this function. | |
| 355 tree_parameter_list *ret_list; | |
| 356 | |
| 357 // The list of commands that make up the body of this function. | |
| 358 tree_statement_list *cmd_list; | |
| 359 | |
| 3665 | 360 // The comments preceding the FUNCTION token. |
| 361 octave_comment_list *lead_comm; | |
| 362 | |
| 363 // The comments preceding the ENDFUNCTION token. | |
| 364 octave_comment_list *trail_comm; | |
| 365 | |
| 6323 | 366 // The name of the file we parsed. |
| 3523 | 367 std::string file_name; |
| 2974 | 368 |
|
12783
ad9263d965dc
First experimental profiler implementation with flat profile.
Daniel Kraft <d@domob.eu>
parents:
11586
diff
changeset
|
369 // Location where this function was defined. |
|
ad9263d965dc
First experimental profiler implementation with flat profile.
Daniel Kraft <d@domob.eu>
parents:
11586
diff
changeset
|
370 int location_line; |
|
ad9263d965dc
First experimental profiler implementation with flat profile.
Daniel Kraft <d@domob.eu>
parents:
11586
diff
changeset
|
371 int location_column; |
|
ad9263d965dc
First experimental profiler implementation with flat profile.
Daniel Kraft <d@domob.eu>
parents:
11586
diff
changeset
|
372 |
| 6323 | 373 // The name of the parent function, if any. |
| 374 std::string parent_name; | |
| 375 | |
| 2974 | 376 // The time the file was parsed. |
| 3255 | 377 octave_time t_parsed; |
| 2974 | 378 |
| 3165 | 379 // The time the file was last checked to see if it needs to be |
| 380 // parsed again. | |
| 3255 | 381 octave_time t_checked; |
| 3165 | 382 |
| 2974 | 383 // True if this function came from a file that is considered to be a |
| 384 // system function. This affects whether we check the time stamp | |
| 385 // on the file to see if it has changed. | |
| 386 bool system_fcn_file; | |
| 387 | |
| 388 // Used to keep track of recursion depth. | |
| 389 int call_depth; | |
| 390 | |
| 391 // The number of arguments that have names. | |
| 392 int num_named_args; | |
| 393 | |
|
11461
2b8531a6a3c9
Change mentions of "nested function" to the less misleading "subfunction"
David Grundberg <individ@acc.umu.se>
parents:
11445
diff
changeset
|
394 // TRUE means this subfunction of a primary function. |
|
2b8531a6a3c9
Change mentions of "nested function" to the less misleading "subfunction"
David Grundberg <individ@acc.umu.se>
parents:
11445
diff
changeset
|
395 bool subfunction; |
| 4238 | 396 |
| 6149 | 397 // TRUE means this is an inline function. |
| 398 bool inline_function; | |
| 399 | |
|
13241
2a8dcb5b3a00
improve default indexing for objects
John W. Eaton <jwe@octave.org>
parents:
12783
diff
changeset
|
400 // TRUE means this is an anonymous function. |
|
2a8dcb5b3a00
improve default indexing for objects
John W. Eaton <jwe@octave.org>
parents:
12783
diff
changeset
|
401 bool anonymous_function; |
|
2a8dcb5b3a00
improve default indexing for objects
John W. Eaton <jwe@octave.org>
parents:
12783
diff
changeset
|
402 |
| 7336 | 403 // TRUE means this function is the constructor for class object. |
| 404 bool class_constructor; | |
| 405 | |
| 406 // TRUE means this function is a method for a class. | |
| 407 bool class_method; | |
| 408 | |
|
7968
0d607e8dbbfa
eliminate curr_parent_function; fix subfunction lookup
John W. Eaton <jwe@octave.org>
parents:
7876
diff
changeset
|
409 // The scope of the parent function, if any. |
|
0d607e8dbbfa
eliminate curr_parent_function; fix subfunction lookup
John W. Eaton <jwe@octave.org>
parents:
7876
diff
changeset
|
410 symbol_table::scope_id parent_scope; |
|
0d607e8dbbfa
eliminate curr_parent_function; fix subfunction lookup
John W. Eaton <jwe@octave.org>
parents:
7876
diff
changeset
|
411 |
| 7336 | 412 symbol_table::scope_id local_scope; |
| 2974 | 413 |
|
10637
9cd5aa83fa62
implement 'local' parameter to pseudo-variables
Jaroslav Hajek <highegg@gmail.com>
parents:
10313
diff
changeset
|
414 // pointer to the current unwind_protect frame of this function. |
|
9cd5aa83fa62
implement 'local' parameter to pseudo-variables
Jaroslav Hajek <highegg@gmail.com>
parents:
10313
diff
changeset
|
415 unwind_protect *curr_unwind_protect_frame; |
|
9cd5aa83fa62
implement 'local' parameter to pseudo-variables
Jaroslav Hajek <highegg@gmail.com>
parents:
10313
diff
changeset
|
416 |
| 7336 | 417 #if 0 |
| 2974 | 418 // The symbol record for argn in the local symbol table. |
| 7336 | 419 octave_value& argn_varref; |
| 2974 | 420 |
| 421 // The symbol record for nargin in the local symbol table. | |
| 7336 | 422 octave_value& nargin_varref; |
| 2974 | 423 |
| 424 // The symbol record for nargout in the local symbol table. | |
| 7336 | 425 octave_value& nargout_varref; |
| 2974 | 426 |
| 3974 | 427 // The symbol record for varargin in the local symbol table. |
| 7336 | 428 octave_value& varargin_varref; |
| 429 #endif | |
| 3974 | 430 |
| 2974 | 431 void print_code_function_header (void); |
| 432 | |
| 433 void print_code_function_trailer (void); | |
| 434 | |
| 435 void bind_automatic_vars (const string_vector& arg_names, int nargin, | |
|
10832
1b2fcd122c6a
allow user detect ignored outputs in m-functions
Jaroslav Hajek <highegg@gmail.com>
parents:
10637
diff
changeset
|
436 int nargout, const octave_value_list& va_args, |
|
1b2fcd122c6a
allow user detect ignored outputs in m-functions
Jaroslav Hajek <highegg@gmail.com>
parents:
10637
diff
changeset
|
437 const std::list<octave_lvalue> *lvalue_list); |
| 3219 | 438 |
| 4645 | 439 // No copying! |
| 440 | |
| 441 octave_user_function (const octave_user_function& fn); | |
| 442 | |
| 443 octave_user_function& operator = (const octave_user_function& fn); | |
| 444 | |
| 4612 | 445 DECLARE_OCTAVE_ALLOCATOR |
| 3219 | 446 |
| 4612 | 447 DECLARE_OV_TYPEID_FUNCTIONS_AND_DATA |
| 2974 | 448 }; |
| 449 | |
| 450 #endif |