Mercurial > hg > octave-nkf

comparison libinterp/parse-tree/pt-pr-code.h @ 15195:2fc554ffbc28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
split libinterp from src * libinterp: New directory. Move all files from src directory here except Makefile.am, main.cc, main-cli.cc, mkoctfile.in.cc, mkoctfilr.in.sh, octave-config.in.cc, octave-config.in.sh. * libinterp/Makefile.am: New file, extracted from src/Makefile.am. * src/Makefile.am: Delete everything except targets and definitions needed to build and link main and utility programs. * Makefile.am (SUBDIRS): Include libinterp in the list. * autogen.sh: Run config-module.sh in libinterp/dldfcn directory, not src/dldfcn directory. * configure.ac (AC_CONFIG_SRCDIR): Use libinterp/octave.cc, not src/octave.cc. (DL_LDFLAGS, LIBOCTINTERP): Use libinterp, not src. (AC_CONFIG_FILES): Include libinterp/Makefile in the list. * find-docstring-files.sh: Look in libinterp, not src. * gui/src/Makefile.am (liboctgui_la_CPPFLAGS): Find header files in libinterp, not src.
author John W. Eaton <jwe@octave.org>
date Sat, 18 Aug 2012 16:23:39 -0400
parents src/parse-tree/pt-pr-code.h@46b19589b593
children 947cf10c94da d63878346099
comparison
equal deleted inserted replaced
15194:0f0b795044c3 15195:2fc554ffbc28
1 /*
2
3 Copyright (C) 1996-2012 John W. Eaton
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
9 Free Software Foundation; either version 3 of the License, or (at your
10 option) any later version.
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
18 along with Octave; see the file COPYING. If not, see
19 <http://www.gnu.org/licenses/>.
20
21 */
22
23 #if !defined (octave_tree_print_code_h)
24 #define octave_tree_print_code_h 1
25
26 #include <stack>
27 #include <string>
28
29 #include "comment-list.h"
30 #include "pt-walk.h"
31
32 class tree_decl_command;
33 class tree_expression;
34
35 // How to print the code that the parse trees represent.
36
37 class
38 tree_print_code : public tree_walker
39 {
40 public:
41
42 tree_print_code (std::ostream& os_arg,
43 const std::string& pfx = std::string (),
44 bool pr_orig_txt = true)
45 : os (os_arg), prefix (pfx), nesting (),
46 print_original_text (pr_orig_txt),
47 curr_print_indent_level (0), beginning_of_line (true),
48 suppress_newlines (0)
49 {
50 // For "none".
51 nesting.push ('n');
52 }
53
54 ~tree_print_code (void) { }
55
56 void visit_anon_fcn_handle (tree_anon_fcn_handle&);
57
58 void visit_argument_list (tree_argument_list&);
59
60 void visit_binary_expression (tree_binary_expression&);
61
62 void visit_break_command (tree_break_command&);
63
64 void visit_colon_expression (tree_colon_expression&);
65
66 void visit_continue_command (tree_continue_command&);
67
68 void visit_global_command (tree_global_command&);
69
70 void visit_persistent_command (tree_persistent_command&);
71
72 void visit_decl_elt (tree_decl_elt&);
73
74 void visit_decl_init_list (tree_decl_init_list&);
75
76 void visit_simple_for_command (tree_simple_for_command&);
77
78 void visit_complex_for_command (tree_complex_for_command&);
79
80 void visit_octave_user_script (octave_user_script&);
81
82 void visit_octave_user_function (octave_user_function&);
83
84 void visit_octave_user_function_header (octave_user_function&);
85
86 void visit_octave_user_function_trailer (octave_user_function&);
87
88 void visit_function_def (tree_function_def&);
89
90 void visit_identifier (tree_identifier&);
91
92 void visit_if_clause (tree_if_clause&);
93
94 void visit_if_command (tree_if_command&);
95
96 void visit_if_command_list (tree_if_command_list&);
97
98 void visit_index_expression (tree_index_expression&);
99
100 void visit_matrix (tree_matrix&);
101
102 void visit_cell (tree_cell&);
103
104 void visit_multi_assignment (tree_multi_assignment&);
105
106 void visit_no_op_command (tree_no_op_command&);
107
108 void visit_constant (tree_constant&);
109
110 void visit_fcn_handle (tree_fcn_handle&);
111
112 void visit_parameter_list (tree_parameter_list&);
113
114 void visit_postfix_expression (tree_postfix_expression&);
115
116 void visit_prefix_expression (tree_prefix_expression&);
117
118 void visit_return_command (tree_return_command&);
119
120 void visit_return_list (tree_return_list&);
121
122 void visit_simple_assignment (tree_simple_assignment&);
123
124 void visit_statement (tree_statement&);
125
126 void visit_statement_list (tree_statement_list&);
127
128 void visit_switch_case (tree_switch_case&);
129
130 void visit_switch_case_list (tree_switch_case_list&);
131
132 void visit_switch_command (tree_switch_command&);
133
134 void visit_try_catch_command (tree_try_catch_command&);
135
136 void visit_unwind_protect_command (tree_unwind_protect_command&);
137
138 void visit_while_command (tree_while_command&);
139
140 void visit_do_until_command (tree_do_until_command&);
141
142 void print_fcn_handle_body (tree_statement_list *);
143
144 private:
145
146 std::ostream& os;
147
148 std::string prefix;
149
150 std::stack<char> nesting;
151
152 bool print_original_text;
153
154 // Current indentation.
155 int curr_print_indent_level;
156
157 // TRUE means we are at the beginning of a line.
158 bool beginning_of_line;
159
160 // Nonzero means we are not printing newlines and indenting.
161 int suppress_newlines;
162
163 void do_decl_command (tree_decl_command& cmd);
164
165 void reset_indent_level (void) { curr_print_indent_level = 0; }
166
167 void increment_indent_level (void) { curr_print_indent_level += 2; }
168
169 void decrement_indent_level (void) { curr_print_indent_level -= 2; }
170
171 void newline (const char *alt_txt = ", ");
172
173 void indent (void);
174
175 void reset (void);
176
177 void print_parens (const tree_expression& expr, const char *txt);
178
179 void print_comment_list (octave_comment_list *comment_list);
180
181 void print_comment_elt (const octave_comment_elt& comment_elt);
182
183 void print_indented_comment (octave_comment_list *comment_list);
184
185 // Must create with an output stream!
186
187 tree_print_code (void);
188
189 // No copying!
190
191 tree_print_code (const tree_print_code&);
192
193 tree_print_code& operator = (const tree_print_code&);
194 };
195
196 #endif