source: src/SynTree/TupleExpr.cc @ e994912

ADTaaron-thesisarm-ehast-experimentalcleanup-dtorsdeferred_resndemanglerenumforall-pointer-decayjacob/cs343-translationjenkins-sandboxnew-astnew-ast-unique-exprnew-envno_listpersistent-indexerpthread-emulationqualifiedEnumresolv-newwith_gc
Last change on this file since e994912 was 6c3a988f, checked in by Rob Schluntz <rschlunt@…>, 7 years ago

fix inferred parameter data structures to correctly associate parameters with the entity that requested them, modify tuple specialization and unification to work with self-recursive assertions

  • Property mode set to 100644
File size: 4.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// TupleExpr.cc --
8//
9// Author           : Richard C. Bilson
10// Created On       : Mon May 18 07:44:20 2015
11// Last Modified By : Peter A. Buhr
12// Last Modified On : Mon May 18 10:59:19 2015
13// Update Count     : 1
14//
15
16#include "Expression.h"
17#include "Common/utility.h"
18#include "Type.h"
19#include "Declaration.h"
20#include "Tuples/Tuples.h"
21#include "VarExprReplacer.h"
22
23UntypedTupleExpr::UntypedTupleExpr( const std::list< Expression * > & exprs, Expression *_aname ) : Expression( _aname ), exprs( exprs ) {
24}
25
26UntypedTupleExpr::UntypedTupleExpr( const UntypedTupleExpr &other ) : Expression( other ) {
27        cloneAll( other.exprs, exprs );
28}
29
30UntypedTupleExpr::~UntypedTupleExpr() {
31        deleteAll( exprs );
32}
33
34void UntypedTupleExpr::print( std::ostream &os, int indent ) const {
35        os << "Untyped Tuple:" << std::endl;
36        printAll( exprs, os, indent+2 );
37        Expression::print( os, indent );
38}
39
40TupleExpr::TupleExpr( const std::list< Expression * > & exprs, Expression *_aname ) : Expression( _aname ), exprs( exprs ) {
41        set_result( Tuples::makeTupleType( exprs ) );
42}
43
44TupleExpr::TupleExpr( const TupleExpr &other ) : Expression( other ) {
45        cloneAll( other.exprs, exprs );
46}
47
48TupleExpr::~TupleExpr() {
49        deleteAll( exprs );
50}
51
52void TupleExpr::print( std::ostream &os, int indent ) const {
53        os << "Tuple:" << std::endl;
54        printAll( exprs, os, indent+2 );
55        Expression::print( os, indent );
56}
57
58TupleIndexExpr::TupleIndexExpr( Expression * tuple, unsigned int index ) : tuple( tuple ), index( index )  {
59        TupleType * type = safe_dynamic_cast< TupleType * >( tuple->get_result() );
60        assertf( type->size() > index, "TupleIndexExpr index out of bounds: tuple size %d, requested index %d in expr %s", type->size(), index, toString( tuple ).c_str() );
61        set_result( (*std::next( type->get_types().begin(), index ))->clone() );
62        get_result()->set_isLvalue( type->get_isLvalue() );
63}
64
65TupleIndexExpr::TupleIndexExpr( const TupleIndexExpr &other ) : Expression( other ), tuple( other.tuple->clone() ), index( other.index ) {
66}
67
68TupleIndexExpr::~TupleIndexExpr() {
69        delete tuple;
70}
71
72void TupleIndexExpr::print( std::ostream &os, int indent ) const {
73        os << "Tuple Index Expression, with tuple:" << std::endl;
74        os << std::string( indent+2, ' ' );
75        tuple->print( os, indent+2 );
76        os << std::string( indent+2, ' ' ) << "with index: " << index << std::endl;
77        Expression::print( os, indent );
78}
79
80MemberTupleExpr::MemberTupleExpr( Expression * member, Expression * aggregate, Expression * _aname ) : Expression( _aname ) {
81        set_result( maybeClone( member->get_result() ) ); // xxx - ???
82}
83
84MemberTupleExpr::MemberTupleExpr( const MemberTupleExpr &other ) : Expression( other ), member( other.member->clone() ), aggregate( other.aggregate->clone() ) {
85}
86
87MemberTupleExpr::~MemberTupleExpr() {
88        delete member;
89        delete aggregate;
90}
91
92void MemberTupleExpr::print( std::ostream &os, int indent ) const {
93        os << "Member Tuple Expression, with aggregate:" << std::endl;
94        os << std::string( indent+2, ' ' );
95        aggregate->print( os, indent+2 );
96        os << std::string( indent+2, ' ' ) << "with member: " << std::endl;
97        os << std::string( indent+2, ' ' );
98        member->print( os, indent+2 );
99        Expression::print( os, indent );
100}
101
102TupleAssignExpr::TupleAssignExpr( const std::list< Expression * > & assigns, const std::list< ObjectDecl * > & tempDecls, Expression * _aname ) : Expression( _aname ) {
103        // convert internally into a StmtExpr which contains the declarations and produces the tuple of the assignments
104        set_result( Tuples::makeTupleType( assigns ) );
105        CompoundStmt * compoundStmt = new CompoundStmt( noLabels );
106        std::list< Statement * > & stmts = compoundStmt->get_kids();
107        for ( ObjectDecl * obj : tempDecls ) {
108                stmts.push_back( new DeclStmt( noLabels, obj ) );
109        }
110        TupleExpr * tupleExpr = new TupleExpr( assigns );
111        assert( tupleExpr->get_result() );
112        stmts.push_back( new ExprStmt( noLabels, tupleExpr ) );
113        stmtExpr = new StmtExpr( compoundStmt );
114}
115
116TupleAssignExpr::TupleAssignExpr( const TupleAssignExpr &other ) : Expression( other ) {
117        assert( other.stmtExpr );
118        stmtExpr = other.stmtExpr->clone();
119}
120
121TupleAssignExpr::~TupleAssignExpr() {
122        delete stmtExpr;
123}
124
125void TupleAssignExpr::print( std::ostream &os, int indent ) const {
126        os << "Tuple Assignment Expression, with stmt expr:" << std::endl;
127        os << std::string( indent+2, ' ' );
128        stmtExpr->print( os, indent+4 );
129        Expression::print( os, indent );
130}
131
132
133
134// Local Variables: //
135// tab-width: 4 //
136// mode: c++ //
137// compile-command: "make install" //
138// End: //
Note: See TracBrowser for help on using the repository browser.