Mercurial > hg > octave-nkf

comparison src/pt-fcn-handle.h @ 10313:f3b65e1ae355

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
untabify src header files
author John W. Eaton <jwe@octave.org>
date Thu, 11 Feb 2010 12:16:43 -0500
parents cd96d29c5efa
children fd0a3ac60b0e
comparison
equal deleted inserted replaced
10312:cbc402e64d83 10313:f3b65e1ae355
54 ~tree_fcn_handle (void) { } 54 ~tree_fcn_handle (void) { }
55 55
56 bool has_magic_end (void) const { return false; } 56 bool has_magic_end (void) const { return false; }
57 57
58 void print (std::ostream& os, bool pr_as_read_syntax = false, 58 void print (std::ostream& os, bool pr_as_read_syntax = false,
59 bool pr_orig_txt = true); 59 bool pr_orig_txt = true);
60 60
61 void print_raw (std::ostream& os, bool pr_as_read_syntax = false, 61 void print_raw (std::ostream& os, bool pr_as_read_syntax = false,
62 bool pr_orig_txt = true); 62 bool pr_orig_txt = true);
63 63
64 std::string name (void) const { return nm; } 64 std::string name (void) const { return nm; }
65 65
66 bool rvalue_ok (void) const { return true; } 66 bool rvalue_ok (void) const { return true; }
67 67
68 octave_value rvalue1 (int nargout = 1); 68 octave_value rvalue1 (int nargout = 1);
69 69
70 octave_value_list rvalue (int nargout); 70 octave_value_list rvalue (int nargout);
71 71
72 tree_expression *dup (symbol_table::scope_id scope, 72 tree_expression *dup (symbol_table::scope_id scope,
73 symbol_table::context_id context) const; 73 symbol_table::context_id context) const;
74 74
75 void accept (tree_walker& tw); 75 void accept (tree_walker& tw);
76 76
77 private: 77 private:
78 78
93 93
94 tree_anon_fcn_handle (int l = -1, int c = -1) 94 tree_anon_fcn_handle (int l = -1, int c = -1)
95 : tree_expression (l, c), fcn (0) { } 95 : tree_expression (l, c), fcn (0) { }
96 96
97 tree_anon_fcn_handle (tree_parameter_list *pl, tree_parameter_list *rl, 97 tree_anon_fcn_handle (tree_parameter_list *pl, tree_parameter_list *rl,
98 tree_statement_list *cl, symbol_table::scope_id sid, 98 tree_statement_list *cl, symbol_table::scope_id sid,
99 int l = -1, int c = -1) 99 int l = -1, int c = -1)
100 : tree_expression (l, c), 100 : tree_expression (l, c),
101 fcn (new octave_user_function (sid, pl, rl, cl)) { } 101 fcn (new octave_user_function (sid, pl, rl, cl)) { }
102 102
103 ~tree_anon_fcn_handle (void) { delete fcn; } 103 ~tree_anon_fcn_handle (void) { delete fcn; }
104 104
129 { 129 {
130 return fcn ? fcn->scope () : -1; 130 return fcn ? fcn->scope () : -1;
131 } 131 }
132 132
133 tree_expression *dup (symbol_table::scope_id scope, 133 tree_expression *dup (symbol_table::scope_id scope,
134 symbol_table::context_id context) const; 134 symbol_table::context_id context) const;
135 135
136 void accept (tree_walker& tw); 136 void accept (tree_walker& tw);
137 137
138 private: 138 private:
139 139