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 | // InitModel.h -- |
---|
8 | // |
---|
9 | // Author : Rodolfo G. Esteves |
---|
10 | // Created On : Mon May 18 07:44:20 2015 |
---|
11 | // Last Modified By : Peter A. Buhr |
---|
12 | // Last Modified On : Tue May 19 16:37:52 2015 |
---|
13 | // Update Count : 2 |
---|
14 | // |
---|
15 | |
---|
16 | #ifndef _INITTWEAK_MODEL_H_ |
---|
17 | #define _INITTWEAK_MODEL_H_ |
---|
18 | |
---|
19 | #include "Association.h" |
---|
20 | #include "SemanticError.h" |
---|
21 | #include "SynTree/Visitor.h" |
---|
22 | |
---|
23 | #include "SynTree/Initializer.h" |
---|
24 | #include "SynTree/Declaration.h" |
---|
25 | #include "SynTree/Expression.h" |
---|
26 | #include "SynTree/Type.h" |
---|
27 | |
---|
28 | namespace InitTweak { |
---|
29 | class InitModelBuilder : public AssociationBuilder, public Visitor { |
---|
30 | public: |
---|
31 | InitModelBuilder( Declaration * ); |
---|
32 | ~InitModelBuilder(); |
---|
33 | |
---|
34 | virtual Association *grab_assoc() { taken = true; return building; } |
---|
35 | virtual Association *get_assoc() { return building; } |
---|
36 | void set_assoc( Association *newAssoc ) { building = newAssoc; } |
---|
37 | |
---|
38 | void init(); |
---|
39 | static int interpretDimension( Expression *exp ) { |
---|
40 | ConstantFolder folder( exp ); |
---|
41 | try { |
---|
42 | return folder.get_constant(); |
---|
43 | } catch (...) { |
---|
44 | throw SemanticError("Invalid array dimension"); |
---|
45 | } |
---|
46 | } |
---|
47 | |
---|
48 | // types |
---|
49 | virtual void visit( ArrayType * ); |
---|
50 | virtual void visit( StructInstType * ); |
---|
51 | virtual void visit( UnionInstType * ); |
---|
52 | virtual void visit( EnumInstType * ); |
---|
53 | virtual void visit( ContextInstType * ) { throw 0; } |
---|
54 | virtual void visit( TypeInstType * ) { throw 0; } |
---|
55 | // virtual void visit( TupleType *tupleType ); |
---|
56 | // declarations |
---|
57 | virtual void visit( StructDecl *); |
---|
58 | virtual void visit( UnionDecl *); |
---|
59 | virtual void visit( EnumDecl *); |
---|
60 | private: |
---|
61 | class ConstantFolder : public Visitor { |
---|
62 | public: |
---|
63 | ConstantFolder( Expression *_expr = 0 ): expr(_expr) {} |
---|
64 | int get_constant() throw() { expr->accept( *this ); return value; } |
---|
65 | void set_constant( Expression *newExp ) { expr = newExp; } |
---|
66 | // Visitor interface |
---|
67 | void visit( Expression * ) { throw 0; } |
---|
68 | void visit( NameExpr * ) { throw 0; } |
---|
69 | void visit( CastExpr * ) { throw 0; } |
---|
70 | void visit( UntypedMemberExpr * ) { throw 0; } |
---|
71 | void visit( VariableExpr * ) { throw 0; } |
---|
72 | void visit( ConstantExpr * ); |
---|
73 | void visit( SizeofExpr * ) { throw 0; } |
---|
74 | void visit( AlignofExpr * ) { throw 0; } |
---|
75 | void visit( AttrExpr * ) { throw 0; } |
---|
76 | void visit( LogicalExpr * ) { throw 0; } |
---|
77 | void visit( ConditionalExpr * ) { throw 0; } |
---|
78 | void visit( CommaExpr * ) { throw 0; } |
---|
79 | private: |
---|
80 | Expression *expr; |
---|
81 | int value; |
---|
82 | }; |
---|
83 | |
---|
84 | bool taken; |
---|
85 | Declaration *decl; // ? |
---|
86 | Association *building; |
---|
87 | }; |
---|
88 | |
---|
89 | class InitModelFiller : public AssociationFiller, public Visitor { |
---|
90 | public: |
---|
91 | InitModelFiller( Association *, Initializer *, bool _topLevel = false ); |
---|
92 | ~InitModelFiller() { /* pointers in here are not owned by object (never created by object either) */ } |
---|
93 | virtual Association *get_assoc() { return model; } |
---|
94 | virtual void set_assoc( Association *newAssoc ) { model = newAssoc; } |
---|
95 | |
---|
96 | void init(); |
---|
97 | // Visitor interface |
---|
98 | virtual void visit( SingleInit *singleInit ); |
---|
99 | virtual void visit( ListInit *listInit ); |
---|
100 | private: |
---|
101 | Association *model; |
---|
102 | Initializer *orgInit; |
---|
103 | bool topLevel; |
---|
104 | long int next; |
---|
105 | }; |
---|
106 | |
---|
107 | class InitUnspooler : public AssociationVisitor { |
---|
108 | public: |
---|
109 | InitUnspooler() : init(0), taken( false ) {} |
---|
110 | virtual ~InitUnspooler() { if ( ! taken && (init != 0)) { delete init; init = 0; } } |
---|
111 | Initializer *get_initializer() { return init; } |
---|
112 | Initializer *grab_initializer() { taken = true; return init; } |
---|
113 | |
---|
114 | virtual void visit( SingleName * ); |
---|
115 | virtual void visit( PointAssociation * ); |
---|
116 | virtual void visit( RangeAssociation * ) { std::cerr << "InitUnspooler - In a range assoc" << std::endl; return; } |
---|
117 | private: |
---|
118 | Initializer *init; |
---|
119 | bool taken; |
---|
120 | }; |
---|
121 | } // namespace InitTweak |
---|
122 | |
---|
123 | #endif // _INITTWEAK_MODEL_H_ |
---|
124 | |
---|
125 | // Local Variables: // |
---|
126 | // tab-width: 4 // |
---|
127 | // mode: c++ // |
---|
128 | // compile-command: "make install" // |
---|
129 | // End: // |
---|