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 | // ReferenceToType.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 : Wed Mar 2 17:28:51 2016
|
---|
13 | // Update Count : 5
|
---|
14 | //
|
---|
15 |
|
---|
16 | #include <string>
|
---|
17 | #include <cassert>
|
---|
18 |
|
---|
19 | #include "Type.h"
|
---|
20 | #include "Declaration.h"
|
---|
21 | #include "Expression.h"
|
---|
22 | #include "TypeSubstitution.h"
|
---|
23 | #include "Common/utility.h"
|
---|
24 |
|
---|
25 | ReferenceToType::ReferenceToType( const Type::Qualifiers &tq, const std::string &name ) : Type( tq ), name( name ) {
|
---|
26 | }
|
---|
27 |
|
---|
28 | ReferenceToType::ReferenceToType( const ReferenceToType &other ) : Type( other ), name( other.name ) {
|
---|
29 | cloneAll( other.parameters, parameters );
|
---|
30 | }
|
---|
31 |
|
---|
32 | ReferenceToType::~ReferenceToType() {
|
---|
33 | deleteAll( parameters );
|
---|
34 | }
|
---|
35 |
|
---|
36 | void ReferenceToType::print( std::ostream &os, int indent ) const {
|
---|
37 | using std::endl;
|
---|
38 |
|
---|
39 | Type::print( os, indent );
|
---|
40 | os << "instance of " << typeString() << " " << name << " ";
|
---|
41 | if ( ! parameters.empty() ) {
|
---|
42 | os << endl << std::string( indent, ' ' ) << "with parameters" << endl;
|
---|
43 | printAll( parameters, os, indent+2 );
|
---|
44 | } // if
|
---|
45 | }
|
---|
46 |
|
---|
47 | namespace {
|
---|
48 | void doLookup( const std::list< Declaration* > &members, const std::list< TypeDecl* > &parms, const std::list< Expression* > &args, const std::string &name, std::list< Declaration* > &foundDecls ) {
|
---|
49 | std::list< Declaration* > found;
|
---|
50 | for ( std::list< Declaration* >::const_iterator i = members.begin(); i != members.end(); ++i ) {
|
---|
51 | if ( (*i)->get_name() == name ) {
|
---|
52 | found.push_back( *i );
|
---|
53 | } // if
|
---|
54 | } // for
|
---|
55 | applySubstitution( parms.begin(), parms.end(), args.begin(), found.begin(), found.end(), back_inserter( foundDecls ) );
|
---|
56 | }
|
---|
57 | } // namespace
|
---|
58 |
|
---|
59 | std::string StructInstType::typeString() const { return "struct"; }
|
---|
60 |
|
---|
61 | std::list<TypeDecl*>* StructInstType::get_baseParameters() {
|
---|
62 | if ( ! baseStruct ) return NULL;
|
---|
63 | return &baseStruct->get_parameters();
|
---|
64 | }
|
---|
65 |
|
---|
66 | void StructInstType::lookup( const std::string &name, std::list< Declaration* > &foundDecls ) const {
|
---|
67 | assert( baseStruct );
|
---|
68 | doLookup( baseStruct->get_members(), baseStruct->get_parameters(), parameters, name, foundDecls );
|
---|
69 | }
|
---|
70 |
|
---|
71 | std::string UnionInstType::typeString() const { return "union"; }
|
---|
72 |
|
---|
73 | std::list<TypeDecl*>* UnionInstType::get_baseParameters() {
|
---|
74 | if ( ! baseUnion ) return NULL;
|
---|
75 | return &baseUnion->get_parameters();
|
---|
76 | }
|
---|
77 |
|
---|
78 | void UnionInstType::lookup( const std::string &name, std::list< Declaration* > &foundDecls ) const {
|
---|
79 | assert( baseUnion );
|
---|
80 | doLookup( baseUnion->get_members(), baseUnion->get_parameters(), parameters, name, foundDecls );
|
---|
81 | }
|
---|
82 |
|
---|
83 | std::string EnumInstType::typeString() const { return "enum"; }
|
---|
84 |
|
---|
85 | std::string TraitInstType::typeString() const { return "context"; }
|
---|
86 |
|
---|
87 | TraitInstType::TraitInstType( const TraitInstType &other ) : Parent( other ) {
|
---|
88 | cloneAll( other.members, members );
|
---|
89 | }
|
---|
90 |
|
---|
91 | TraitInstType::~TraitInstType() {
|
---|
92 | deleteAll( members );
|
---|
93 | }
|
---|
94 |
|
---|
95 | TypeInstType::TypeInstType( const Type::Qualifiers &tq, const std::string &name, TypeDecl *baseType ) : Parent( tq, name ) {
|
---|
96 | set_baseType( baseType );
|
---|
97 | }
|
---|
98 |
|
---|
99 | TypeInstType::TypeInstType( const Type::Qualifiers &tq, const std::string &name, bool isFtype ) : Parent( tq, name ), baseType( 0 ), isFtype( isFtype ) {
|
---|
100 | }
|
---|
101 |
|
---|
102 | void TypeInstType::set_baseType( TypeDecl *newValue ) {
|
---|
103 | baseType = newValue;
|
---|
104 | isFtype = newValue->get_kind() == TypeDecl::Ftype;
|
---|
105 | }
|
---|
106 |
|
---|
107 | std::string TypeInstType::typeString() const { return "type"; }
|
---|
108 |
|
---|
109 | void TypeInstType::print( std::ostream &os, int indent ) const {
|
---|
110 | using std::endl;
|
---|
111 |
|
---|
112 | Type::print( os, indent );
|
---|
113 | os << "instance of " << typeString() << " " << get_name() << " (" << ( isFtype ? "" : "not" ) << " function type) ";
|
---|
114 | if ( ! parameters.empty() ) {
|
---|
115 | os << endl << std::string( indent, ' ' ) << "with parameters" << endl;
|
---|
116 | printAll( parameters, os, indent+2 );
|
---|
117 | } // if
|
---|
118 | }
|
---|
119 |
|
---|
120 | // Local Variables: //
|
---|
121 | // tab-width: 4 //
|
---|
122 | // mode: c++ //
|
---|
123 | // compile-command: "make install" //
|
---|
124 | // End: //
|
---|