source: src/Parser/StatementNode.cc @ 321f55d

ADTaaron-thesisarm-ehast-experimentalcleanup-dtorsctordeferred_resndemanglerenumforall-pointer-decayjacob/cs343-translationjenkins-sandboxmemorynew-astnew-ast-unique-exprnew-envno_listpersistent-indexerpthread-emulationqualifiedEnumresolv-newwith_gc
Last change on this file since 321f55d was 321f55d, checked in by Peter A. Buhr <pabuhr@…>, 8 years ago

more refactoring of parser code
  • Property mode set to 100644
File size: 14.6 KB
Line 
1//
2// Cforall Version 1.0.0 Copyright (C) 2015 University of Waterloo
3//
4// The contents of this file are covered under the licence agreement in the
5// file "LICENCE" distributed with Cforall.
6//
7// StatementNode.cc --
8//
9// Author           : Rodolfo G. Esteves
10// Created On       : Sat May 16 14:59:41 2015
11// Last Modified By : Peter A. Buhr
12// Last Modified On : Wed Aug 10 22:08:38 2016
13// Update Count     : 173
14//
15
16#include <list>
17#include <algorithm>
18#include <cassert>
19
20#include "ParseNode.h"
21#include "SynTree/Statement.h"
22#include "SynTree/Expression.h"
23#include "parseutility.h"
24#include "Common/utility.h"
25
26using namespace std;
27
28const char *StatementNode::StType[] = {
29        "Exp",   "If",       "Switch", "Case",    "Default",  "Choose",   "Fallthru",
30        "While", "Do",       "For",
31        "Goto",  "Continue", "Break",  "Return",  "Throw",
32        "Try",   "Catch",    "Finally", "Asm",
33        "Decl"
34};
35
36StatementNode::StatementNode() : ParseNode(), control( 0 ), block( 0 ), labels( 0 ), target( 0 ), decl( 0 ), isCatchRest ( false ) {}
37
38StatementNode::StatementNode( const string *name ) : ParseNode( name ), control( 0 ), block( 0 ), labels( 0 ), target( 0 ), decl( 0 ), isCatchRest ( false ) {}
39
40StatementNode::StatementNode( DeclarationNode *decl ) : type( Decl ), control( 0 ), block( 0 ), labels( 0 ), target( 0 ), isCatchRest ( false ) {
41        if ( decl ) {
42                if ( DeclarationNode *agg = decl->extractAggregate() ) {
43                        this->decl = agg;
44                        StatementNode *nextStmt = new StatementNode;
45                        nextStmt->type = Decl;
46                        nextStmt->decl = decl;
47                        next = nextStmt;
48                        if ( decl->get_link() ) {
49                                next->set_next( new StatementNode( dynamic_cast< DeclarationNode* >( decl->get_link() ) ) );
50                                decl->set_next( 0 );
51                        } // if
52                } else {
53                        if ( decl->get_link() ) {
54                                next = new StatementNode( dynamic_cast< DeclarationNode* >( decl->get_link() ) );
55                                decl->set_next( 0 );
56                        } // if
57                        this->decl = decl;
58                } // if
59        } // if
60}
61
62StatementNode::StatementNode( Type t, ExpressionNode *ctrl_label, StatementNode *block ) : type( t ), control( ctrl_label ), block( block ), labels( 0 ), target( 0 ), decl( 0 ), isCatchRest ( false ) {
63        this->control = ( t == Default ) ? 0 : control;
64}
65
66StatementNode::StatementNode( Type t, string *target ) : type( t ), control( 0 ), block( 0 ), labels( 0 ), target( target ), decl( 0 ), isCatchRest ( false ) {}
67
68StatementNode::~StatementNode() {
69        delete control;
70        delete block;
71        delete target;
72        delete decl;
73}
74
75StatementNode * StatementNode::newCatchStmt( DeclarationNode *d, StatementNode *s, bool catchRestP ) {
76        StatementNode *ret = new StatementNode( StatementNode::Catch, 0, s );
77        ret->addDeclaration( d );
78        ret->setCatchRest( catchRestP );
79
80        return ret;
81}
82
83std::string StatementNode::get_target() const{
84        if ( target )
85                return *target;
86
87        return string("");
88}
89
90StatementNode * StatementNode::clone() const {
91        StatementNode *newnode = new StatementNode( type, maybeClone( control ), maybeClone( block ) );
92        if ( target ) {
93                newnode->target = new string( *target );
94        } else {
95                newnode->target = 0;
96        } // if
97        newnode->decl = maybeClone( decl );
98        return newnode;
99}
100
101StatementNode *StatementNode::add_label( const std::string *l ) {
102        if ( l != 0 ) {
103                labels.push_front( *l );
104                delete l;
105        } // if
106        return this;
107}
108
109StatementNode *StatementNode::append_block( StatementNode *stmt ) {
110        if ( stmt != 0 ) {
111                if ( block == 0 )
112                        block = stmt;
113                else
114                        block->set_link( stmt );
115        } // if
116        return this;
117}
118
119StatementNode *StatementNode::append_last_case( StatementNode *stmt ) {
120        if ( stmt != 0 ) {
121                StatementNode *next = ( StatementNode *)get_link();
122                if ( next && ( next->get_type() == StatementNode::Case || next->get_type() == StatementNode::Default ) )
123                        next->append_last_case ( stmt );
124                else
125                        if ( block == 0 )
126                                block = stmt;
127                        else
128                                block->set_link( stmt );
129        } // if
130        return this;
131}
132
133void StatementNode::print( std::ostream &os, int indent ) const {
134        if ( ! labels.empty() ) {
135                std::list<std::string>::const_iterator i;
136
137                os << string( indent, ' ' );
138                for ( i = labels.begin(); i != labels.end(); i++ )
139                        os << *i << ":";
140                os << endl;
141        } // if
142
143        switch ( type ) {
144          case Decl:
145                decl->print( os, indent );
146                break;
147          case Exp:
148                if ( control ) {
149                        os << string( indent, ' ' );
150                        control->print( os, indent );
151                        os << endl;
152                } else
153                        os << string( indent, ' ' ) << "Null Statement" << endl;
154                break;
155          default:
156                os << string( indent, ' ' ) << StatementNode::StType[type] << endl;
157                if ( type == Catch ) {
158                        if ( decl ) {
159                                os << string( indent + ParseNode::indent_by, ' ' ) << "Declaration: " << endl;
160                                decl->print( os, indent + 2 * ParseNode::indent_by );
161                        } else if ( isCatchRest ) {
162                                os << string( indent + ParseNode::indent_by, ' ' ) << "Catches the rest " << endl;
163                        } else {
164                                ; // should never reach here
165                        } // if
166                } // if
167                if ( control ) {
168                        os << string( indent + ParseNode::indent_by, ' ' ) << "Control: " << endl;
169                        control->printList( os, indent + 2 * ParseNode::indent_by );
170                } // if
171                if ( block ) {
172                        os << string( indent + ParseNode::indent_by, ' ' ) << "Cases: " << endl;
173                        block->printList( os, indent + 2 * ParseNode::indent_by );
174                } // if
175                if ( target ) {
176                        os << string( indent + ParseNode::indent_by, ' ' ) << "Target: " << get_target() << endl;
177                } // if
178                break;
179        } // switch
180}
181
182Statement *StatementNode::build() const {
183        std::list<Statement *> branches;
184        std::list<Expression *> exps;
185        std::list<Label> labs;
186
187        if ( ! labels.empty() ) {
188                std::back_insert_iterator< std::list<Label> > lab_it( labs );
189                copy( labels.begin(), labels.end(), lab_it );
190        } // if
191
192        // try {
193        buildList<Statement, StatementNode>( get_block(), branches );
194
195        switch ( type ) {
196          case Decl:
197                return new DeclStmt( labs, maybeBuild< Declaration >( decl ) );
198          case Exp:
199                {
200                        Expression *e = maybeBuild< Expression >( get_control() );
201
202                        if ( e )
203                                return new ExprStmt( labs, e );
204                        else
205                                return new NullStmt( labs );
206                }
207          case If:
208                // {
209                //      Statement *thenb = 0, *elseb = 0;
210                //      assert( branches.size() >= 1 );
211
212                //      thenb = branches.front();
213                //      branches.pop_front();
214                //      if ( ! branches.empty() ) {
215                //              elseb = branches.front();
216                //              branches.pop_front();
217                //      } // if
218                //      return new IfStmt( labs, notZeroExpr( maybeBuild<Expression>(get_control()) ), thenb, elseb );
219                // }
220                assert( false );
221          case Switch:
222                //return new SwitchStmt( labs, maybeBuild<Expression>(get_control()), branches );
223                assert( false );
224          case Case:
225                return new CaseStmt( labs, maybeBuild<Expression>(get_control() ), branches );
226                assert( false );
227          case Default:
228                return new CaseStmt( labs, 0, branches, true );
229                assert( false );
230          case While:
231                // assert( branches.size() == 1 );
232                // return new WhileStmt( labs, notZeroExpr( maybeBuild<Expression>(get_control()) ), branches.front() );
233                assert( false );
234          case Do:
235                // assert( branches.size() == 1 );
236                // return new WhileStmt( labs, notZeroExpr( maybeBuild<Expression>(get_control()) ), branches.front(), true );
237                assert( false );
238          case For:
239                // {
240                //      assert( branches.size() == 1 );
241
242                //      ForCtlExprNode *ctl = dynamic_cast<ForCtlExprNode *>( get_control() );
243                //      assert( ctl != 0 );
244
245                //      std::list<Statement *> init;
246                //      if ( ctl->get_init() != 0 ) {
247                //              buildList( ctl->get_init(), init );
248                //      } // if
249
250                //      Expression *cond = 0;
251                //      if ( ctl->get_condition() != 0 )
252                //              cond = notZeroExpr( maybeBuild<Expression>(ctl->get_condition()) );
253
254                //      Expression *incr = 0;
255                //      if ( ctl->get_change() != 0 )
256                //              incr = maybeBuild<Expression>(ctl->get_change());
257
258                //      return new ForStmt( labs, init, cond, incr, branches.front() );
259                // }
260                assert( false );
261          case Goto:
262                {
263                        if ( get_target() == "" ) {                                     // computed goto
264                                assert( get_control() != 0 );
265                                return new BranchStmt( labs, maybeBuild<Expression>(get_control()), BranchStmt::Goto );
266                        } // if
267
268                        return new BranchStmt( labs, get_target(), BranchStmt::Goto );
269                }
270          case Break:
271                return new BranchStmt( labs, get_target(), BranchStmt::Break );
272                assert( false );
273          case Continue:
274                return new BranchStmt( labs, get_target(), BranchStmt::Continue );
275                assert( false );
276          case Return:
277          case Throw :
278                buildList( get_control(), exps );
279                if ( exps.size() ==0 )
280                        return new ReturnStmt( labs, 0, type == Throw );
281                if ( exps.size() > 0 )
282                        return new ReturnStmt( labs, exps.back(), type == Throw );
283          case Try:
284                {
285                        assert( branches.size() >= 0 );
286                        CompoundStmt *tryBlock = dynamic_cast<CompoundStmt *>( branches.front());
287                        branches.pop_front();
288                        FinallyStmt *finallyBlock = 0;
289                        if ( ( finallyBlock = dynamic_cast<FinallyStmt *>( branches.back())) ) {
290                                branches.pop_back();
291                        } // if
292                        return new TryStmt( labs, tryBlock, branches, finallyBlock );
293                }
294          case Catch:
295                {
296                        assert( branches.size() == 1 );
297
298                        return new CatchStmt( labs, maybeBuild< Declaration >( decl ), branches.front(), isCatchRest );
299                }
300          case Finally:
301                {
302                        assert( branches.size() == 1 );
303                        CompoundStmt *block = dynamic_cast<CompoundStmt *>( branches.front() );
304                        assert( block != 0 );
305
306                        return new FinallyStmt( labs, block );
307                }
308          case Asm:
309                assert( false );
310          default:
311                // shouldn't be here
312                return 0;
313        } // switch
314}
315
316Statement *build_if( ExpressionNode *ctl, StatementNode *then_stmt, StatementNode *else_stmt ) {
317        Statement *thenb, *elseb = 0;
318        std::list<Statement *> branches;
319        buildList<Statement, StatementNode>( then_stmt, branches );
320        assert( branches.size() == 1 );
321        thenb = branches.front();
322
323        if ( else_stmt ) {
324                std::list<Statement *> branches;
325                buildList<Statement, StatementNode>( else_stmt, branches );
326                assert( branches.size() == 1 );
327                elseb = branches.front();
328        } // if
329        return new IfStmt( noLabels, notZeroExpr( maybeBuild<Expression>(ctl) ), thenb, elseb );
330}
331
332Statement *build_switch( ExpressionNode *ctl, StatementNode *stmt ) {
333        std::list<Statement *> branches;
334        buildList<Statement, StatementNode>( stmt, branches );
335        assert( branches.size() >= 0 );                                         // size == 0 for switch (...) {}, i.e., no declaration or statements
336        return new SwitchStmt( noLabels, maybeBuild<Expression>(ctl), branches );
337}
338Statement *build_case( ExpressionNode *ctl ) {
339        std::list<Statement *> branches;
340        buildList<Statement, StatementNode>( nullptr, branches );
341        return new CaseStmt( noLabels, maybeBuild<Expression>(ctl), branches );
342}
343Statement *build_default() {
344        std::list<Statement *> branches;
345        return new CaseStmt( noLabels, nullptr, branches, true );
346}
347
348Statement *build_while( ExpressionNode *ctl, StatementNode *stmt, bool kind ) {
349        std::list<Statement *> branches;
350        buildList<Statement, StatementNode>( stmt, branches );
351        assert( branches.size() == 1 );
352        return new WhileStmt( noLabels, notZeroExpr( maybeBuild<Expression>(ctl) ), branches.front(), kind );
353}
354
355Statement *build_for( ForCtl *forctl, StatementNode *stmt ) {
356        std::list<Statement *> branches;
357        buildList<Statement, StatementNode>( stmt, branches );
358        assert( branches.size() == 1 );
359
360        std::list<Statement *> init;
361        if ( forctl->init != 0 ) {
362                buildList( forctl->init, init );
363        } // if
364
365        Expression *cond = 0;
366        if ( forctl->condition != 0 )
367                cond = notZeroExpr( maybeBuild<Expression>(forctl->condition) );
368
369        Expression *incr = 0;
370        if ( forctl->change != 0 )
371                incr = maybeBuild<Expression>(forctl->change);
372
373        delete forctl;
374        return new ForStmt( noLabels, init, cond, incr, branches.front() );
375}
376
377Statement *build_branch( std::string identifier, BranchStmt::Type kind ) {
378        return new BranchStmt( noLabels, identifier, kind );
379}
380
381
382CompoundStmtNode::CompoundStmtNode() : first( 0 ), last( 0 ) {}
383
384CompoundStmtNode::CompoundStmtNode( const string *name_ ) : StatementNode( name_ ), first( 0 ), last( 0 ) {}
385
386CompoundStmtNode::CompoundStmtNode( StatementNode *stmt ) : first( stmt ) {
387        if ( first ) {
388                last = ( StatementNode *)( stmt->get_last());
389        } else {
390                last = 0;
391        } // if
392}
393
394CompoundStmtNode::~CompoundStmtNode() {
395        delete first;
396}
397
398void CompoundStmtNode::add_statement( StatementNode *stmt ) {
399        if ( stmt != 0 ) {
400                last->set_link( stmt );
401                last = ( StatementNode *)( stmt->get_link());
402        } // if
403}
404
405void CompoundStmtNode::print( ostream &os, int indent ) const {
406        if ( first ) {
407                first->printList( os, indent+2 );
408        } // if
409}
410
411Statement *CompoundStmtNode::build() const {
412        std::list<Label> labs;
413        const std::list<std::string> &labels = get_labels();
414
415        if ( ! labels.empty() ) {
416                std::back_insert_iterator< std::list<Label> > lab_it( labs );
417                copy( labels.begin(), labels.end(), lab_it );
418        } // if
419
420        CompoundStmt *cs = new CompoundStmt( labs );
421        buildList( first, cs->get_kids() );
422        return cs;
423}
424
425
426AsmStmtNode::AsmStmtNode( Type t, bool voltile, ConstantExpr *instruction, ExpressionNode *output, ExpressionNode *input, ExpressionNode *clobber, LabelNode *gotolabels ) :
427        StatementNode( t ), voltile( voltile ), instruction( instruction ), output( output ), input( input ), clobber( clobber ) {
428        if ( gotolabels ) {
429                this->gotolabels = gotolabels->get_labels();
430                delete gotolabels;
431        } // if
432}
433
434AsmStmtNode::~AsmStmtNode() {
435        delete output; delete input; delete clobber;
436}
437
438void AsmStmtNode::print( std::ostream &os, int indent ) const {
439        StatementNode::print( os, indent );                                     // print statement labels
440        os << string( indent + ParseNode::indent_by, ' ' ) << "volatile:" << voltile << endl;
441        if ( instruction ) {
442                os << string( indent + ParseNode::indent_by, ' ' ) << "Instruction:" << endl;
443//              instruction->printList( os, indent + 2 * ParseNode::indent_by );
444        } // if
445        if ( output ) {
446                os << string( indent + ParseNode::indent_by, ' ' ) << "Output:" << endl;
447                output->printList( os, indent + 2 * ParseNode::indent_by );
448        } // if
449        if ( input ) {
450                os << string( indent + ParseNode::indent_by, ' ' ) << "Input:" << endl;
451                input->printList( os, indent + 2 * ParseNode::indent_by );
452        } // if
453        if ( clobber ) {
454                os << string( indent + ParseNode::indent_by, ' ' ) << "Clobber:" << endl;
455//              clobber->printList( os, indent + 2 * ParseNode::indent_by );
456        } // if
457        if ( ! gotolabels.empty() ) {
458                os << string( indent + ParseNode::indent_by, ' ' ) << "Goto Labels:" << endl;
459                os << string( indent + 2 * ParseNode::indent_by, ' ' );
460                for ( std::list<Label>::const_iterator i = gotolabels.begin();; ) {
461                        os << *i;
462                        i++;
463                  if ( i == gotolabels.end() ) break;
464                        os << ", ";
465                }
466                os << endl;
467        } // if
468}
469
470Statement *AsmStmtNode::build() const {
471        std::list<Label> labs;
472
473        if ( ! get_labels().empty() ) {
474                std::back_insert_iterator< std::list<Label> > lab_it( labs );
475                copy( get_labels().begin(), get_labels().end(), lab_it );
476        } // if
477
478        std::list< Expression * > out, in;
479        std::list< ConstantExpr * > clob;
480        buildList( output, out );
481        buildList( input, in );
482        buildList( clobber, clob );
483        std::list< Label > gotolabs = gotolabels;
484        return new AsmStmt( labs, voltile, instruction, out, in, clob, gotolabs );
485}
486
487// Local Variables: //
488// tab-width: 4 //
489// mode: c++ //
490// compile-command: "make install" //
491// End: //
Note: See TracBrowser for help on using the repository browser.