Context Navigation

source: src/Parser/DeclarationNode.cc@ dfee306

Visit:

ADT aaron-thesis arm-eh ast-experimental cleanup-dtors ctor deferred_resn demangler enum forall-pointer-decay gc_noraii jacob/cs343-translation jenkins-sandbox memory new-ast new-ast-unique-expr new-env no_list persistent-indexer pthread-emulation qualifiedEnum resolv-new string with_gc

Last change on this file since dfee306 was 71bd8c6, checked in by Rob Schluntz <rschlunt@…>, 10 years ago
fix isVarLen in array types, fix loss of typedef when variable of aggregate type is declared, fix duplicate typedef with arrays of constant size
Property mode set to `100644`
File size: 28.9 KB

Rev	Line
[b87a5ed]	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	// DeclarationNode.cc --
	8	//
	9	// Author : Rodolfo G. Esteves
	10	// Created On : Sat May 16 12:34:05 2015
[71bd8c6]	11	// Last Modified By : Rob Schluntz
	12	// Last Modified On : Wed Jul 08 16:40:37 2015
	13	// Update Count : 121
[b87a5ed]	14	//
	15
[51b73452]	16	#include <string>
	17	#include <list>
	18	#include <iterator>
	19	#include <algorithm>
	20	#include <cassert>
	21
	22	#include "TypeData.h"
[bdd516a]	23
[68cd1ce]	24	#include "SynTree/Declaration.h"
	25	#include "SynTree/Expression.h"
[51b73452]	26
[de62360d]	27	#include "Parser.h"
	28	#include "TypedefTable.h"
	29	extern TypedefTable typedefTable;
	30
[51b73452]	31	using namespace std;
	32
[bdd516a]	33	// These must remain in the same order as the corresponding DeclarationNode enumerations.
[68cd1ce]	34	const char *DeclarationNode::storageName[] = { "extern", "static", "auto", "register", "inline", "fortran", "_Noreturn", "_Thread_local", "" };
[bdd516a]	35	const char *DeclarationNode::qualifierName[] = { "const", "restrict", "volatile", "lvalue", "_Atomic" };
[17cd4eb]	36	const char *DeclarationNode::basicTypeName[] = { "char", "int", "float", "double", "void", "_Bool", "_Complex", "_Imaginary" };
[68cd1ce]	37	const char *DeclarationNode::modifierName[] = { "signed", "unsigned", "short", "long" };
	38	const char *DeclarationNode::aggregateName[] = { "struct", "union", "context" };
[51b73452]	39	const char *DeclarationNode::typeClassName[] = { "type", "dtype", "ftype" };
	40
	41	UniqueName DeclarationNode::anonymous( "__anonymous" );
	42
	43	extern LinkageSpec::Type linkage; /* defined in cfa.y */
	44
[3848e0e]	45	DeclarationNode *DeclarationNode::clone() const {
[b87a5ed]	46	DeclarationNode *newnode = new DeclarationNode;
	47	newnode->type = maybeClone( type );
	48	newnode->name = name;
	49	newnode->storageClasses = storageClasses;
	50	newnode->bitfieldWidth = maybeClone( bitfieldWidth );
	51	newnode->hasEllipsis = hasEllipsis;
	52	newnode->initializer = initializer;
	53	newnode->next = maybeClone( next );
	54	newnode->linkage = linkage;
	55	return newnode;
[3848e0e]	56	}
	57
	58	DeclarationNode::DeclarationNode() : type( 0 ), bitfieldWidth( 0 ), initializer( 0 ), hasEllipsis( false ), linkage( ::linkage ) {
	59	}
	60
	61	DeclarationNode::~DeclarationNode() {
[b87a5ed]	62	delete type;
	63	delete bitfieldWidth;
	64	delete initializer;
[3848e0e]	65	}
	66
	67	bool DeclarationNode::get_hasEllipsis() const {
[b87a5ed]	68	return hasEllipsis;
[3848e0e]	69	}
	70
	71	void DeclarationNode::print( std::ostream &os, int indent ) const {
[59db689]	72	os << string( indent, ' ' );
[b87a5ed]	73	if ( name == "" ) {
	74	os << "unnamed: ";
	75	} else {
	76	os << name << ": ";
[68cd1ce]	77	} // if
[51b73452]	78
[b87a5ed]	79	if ( linkage != LinkageSpec::Cforall ) {
	80	os << LinkageSpec::toString( linkage ) << " ";
[68cd1ce]	81	} // if
[3848e0e]	82
[68cd1ce]	83	printEnums( storageClasses.begin(), storageClasses.end(), DeclarationNode::storageName, os );
[b87a5ed]	84	if ( type ) {
	85	type->print( os, indent );
	86	} else {
	87	os << "untyped entity ";
[68cd1ce]	88	} // if
[3848e0e]	89
[b87a5ed]	90	if ( bitfieldWidth ) {
[59db689]	91	os << endl << string( indent + 2, ' ' ) << "with bitfield width ";
[b87a5ed]	92	bitfieldWidth->printOneLine( os );
[68cd1ce]	93	} // if
[3848e0e]	94
[b87a5ed]	95	if ( initializer != 0 ) {
[59db689]	96	os << endl << string( indent + 2, ' ' ) << "with initializer ";
[b87a5ed]	97	initializer->printOneLine( os );
[68cd1ce]	98	} // if
[3848e0e]	99
[b87a5ed]	100	os << endl;
[51b73452]	101	}
	102
[3848e0e]	103	void DeclarationNode::printList( std::ostream &os, int indent ) const {
[b87a5ed]	104	ParseNode::printList( os, indent );
	105	if ( hasEllipsis ) {
	106	os << string( indent, ' ' ) << "and a variable number of other arguments" << endl;
[68cd1ce]	107	} // if
[51b73452]	108	}
	109
[d9a0e76]	110	DeclarationNode DeclarationNode::newFunction( std::string name, DeclarationNode ret, DeclarationNode param, StatementNode *body, bool newStyle ) {
[b87a5ed]	111	DeclarationNode *newnode = new DeclarationNode;
	112	newnode->name = assign_strptr( name );
[3848e0e]	113
[b87a5ed]	114	newnode->type = new TypeData( TypeData::Function );
	115	newnode->type->function->params = param;
	116	newnode->type->function->newStyle = newStyle;
	117	newnode->type->function->body = body;
[3848e0e]	118
[b87a5ed]	119	if ( body ) {
	120	newnode->type->function->hasBody = true;
[68cd1ce]	121	} // if
[51b73452]	122
[b87a5ed]	123	if ( ret ) {
	124	newnode->type->base = ret->type;
	125	ret->type = 0;
	126	delete ret;
[68cd1ce]	127	} // if
[51b73452]	128
[b87a5ed]	129	return newnode;
[3848e0e]	130	}
	131
	132	DeclarationNode *DeclarationNode::newQualifier( Qualifier q ) {
[b87a5ed]	133	DeclarationNode *newnode = new DeclarationNode;
	134	newnode->type = new TypeData();
	135	newnode->type->qualifiers.push_back( q );
	136	return newnode;
[3848e0e]	137	}
	138
[68cd1ce]	139	DeclarationNode *DeclarationNode::newStorageClass( DeclarationNode::StorageClass sc ) {
[b87a5ed]	140	DeclarationNode *newnode = new DeclarationNode;
	141	newnode->storageClasses.push_back( sc );
	142	return newnode;
[3848e0e]	143	}
	144
	145	DeclarationNode *DeclarationNode::newBasicType( BasicType bt ) {
[b87a5ed]	146	DeclarationNode *newnode = new DeclarationNode;
	147	newnode->type = new TypeData( TypeData::Basic );
	148	newnode->type->basic->typeSpec.push_back( bt );
	149	return newnode;
[3848e0e]	150	}
	151
	152	DeclarationNode *DeclarationNode::newModifier( Modifier mod ) {
[b87a5ed]	153	DeclarationNode *newnode = new DeclarationNode;
	154	newnode->type = new TypeData( TypeData::Basic );
	155	newnode->type->basic->modifiers.push_back( mod );
	156	return newnode;
[3848e0e]	157	}
	158
[59db689]	159	DeclarationNode DeclarationNode::newForall( DeclarationNode forall ) {
[b87a5ed]	160	DeclarationNode *newnode = new DeclarationNode;
	161	newnode->type = new TypeData( TypeData::Unknown );
	162	newnode->type->forall = forall;
	163	return newnode;
[3848e0e]	164	}
	165
[59db689]	166	DeclarationNode DeclarationNode::newFromTypedef( std::string name ) {
[b87a5ed]	167	DeclarationNode *newnode = new DeclarationNode;
	168	newnode->type = new TypeData( TypeData::SymbolicInst );
	169	newnode->type->symbolic->name = assign_strptr( name );
	170	newnode->type->symbolic->isTypedef = true;
	171	newnode->type->symbolic->params = 0;
	172	return newnode;
[3848e0e]	173	}
	174
[2871210]	175	DeclarationNode DeclarationNode::newAggregate( Aggregate kind, const std::string name, ExpressionNode actuals, DeclarationNode fields ) {
[b87a5ed]	176	DeclarationNode *newnode = new DeclarationNode;
	177	newnode->type = new TypeData( TypeData::Aggregate );
	178	newnode->type->aggregate->kind = kind;
	179	newnode->type->aggregate->name = assign_strptr( name );
[2871210]	180	if ( newnode->type->aggregate->name == "" ) { // anonymous aggregate ?
[b87a5ed]	181	newnode->type->aggregate->name = DeclarationNode::anonymous.newName();
[2871210]	182	} else {
	183	// SKULLDUGGERY: generate a typedef for the aggregate name so that the aggregate does not have to be qualified
	184	// by "struct"
	185	typedefTable.addToEnclosingScope( newnode->type->aggregate->name, TypedefTable::TD );
	186	DeclarationNode *typedf = new DeclarationNode;
	187	typedf->name = newnode->type->aggregate->name;
	188	newnode->appendList( typedf->addType( newnode->clone() )->addTypedef() );
[68cd1ce]	189	} // if
[b87a5ed]	190	newnode->type->aggregate->actuals = actuals;
[721f17a]	191	newnode->type->aggregate->fields = fields;
[b87a5ed]	192	return newnode;
[3848e0e]	193	}
	194
	195	DeclarationNode DeclarationNode::newEnum( std::string name, DeclarationNode *constants ) {
[b87a5ed]	196	DeclarationNode *newnode = new DeclarationNode;
	197	newnode->name = assign_strptr( name );
	198	newnode->type = new TypeData( TypeData::Enum );
	199	newnode->type->enumeration->name = newnode->name;
[2871210]	200	if ( newnode->type->enumeration->name == "" ) { // anonymous enumeration ?
[b87a5ed]	201	newnode->type->enumeration->name = DeclarationNode::anonymous.newName();
[2871210]	202	} else {
	203	// SKULLDUGGERY: generate a typedef for the enumeration name so that the enumeration does not have to be
	204	// qualified by "enum"
	205	typedefTable.addToEnclosingScope( newnode->type->enumeration->name, TypedefTable::TD );
	206	DeclarationNode *typedf = new DeclarationNode;
	207	typedf->name = newnode->type->enumeration->name;
	208	newnode->appendList( typedf->addType( newnode->clone() )->addTypedef() );
[68cd1ce]	209	} // if
[b87a5ed]	210	newnode->type->enumeration->constants = constants;
	211	return newnode;
[3848e0e]	212	}
	213
[59db689]	214	DeclarationNode DeclarationNode::newEnumConstant( std::string name, ExpressionNode *constant ) {
[b87a5ed]	215	DeclarationNode *newnode = new DeclarationNode;
	216	newnode->name = assign_strptr( name );
	217	// do something with the constant
	218	return newnode;
[3848e0e]	219	}
	220
[59db689]	221	DeclarationNode DeclarationNode::newName( std::string name ) {
[b87a5ed]	222	DeclarationNode *newnode = new DeclarationNode;
	223	newnode->name = assign_strptr( name );
	224	return newnode;
[3848e0e]	225	}
	226
[59db689]	227	DeclarationNode DeclarationNode::newFromTypeGen( std::string name, ExpressionNode *params ) {
[b87a5ed]	228	DeclarationNode *newnode = new DeclarationNode;
	229	newnode->type = new TypeData( TypeData::SymbolicInst );
	230	newnode->type->symbolic->name = assign_strptr( name );
	231	newnode->type->symbolic->isTypedef = false;
	232	newnode->type->symbolic->actuals = params;
	233	return newnode;
[3848e0e]	234	}
	235
[59db689]	236	DeclarationNode DeclarationNode::newTypeParam( TypeClass tc, std::string name ) {
[b87a5ed]	237	DeclarationNode *newnode = new DeclarationNode;
	238	newnode->name = assign_strptr( name );
	239	newnode->type = new TypeData( TypeData::Variable );
	240	newnode->type->variable->tyClass = tc;
	241	newnode->type->variable->name = newnode->name;
	242	return newnode;
[3848e0e]	243	}
	244
	245	DeclarationNode DeclarationNode::newContext( std::string name, DeclarationNode params, DeclarationNode asserts ) {
[b87a5ed]	246	DeclarationNode *newnode = new DeclarationNode;
	247	newnode->type = new TypeData( TypeData::Aggregate );
	248	newnode->type->aggregate->kind = Context;
	249	newnode->type->aggregate->params = params;
[721f17a]	250	newnode->type->aggregate->fields = asserts;
[b87a5ed]	251	newnode->type->aggregate->name = assign_strptr( name );
	252	return newnode;
[3848e0e]	253	}
	254
	255	DeclarationNode DeclarationNode::newContextUse( std::string name, ExpressionNode *params ) {
[b87a5ed]	256	DeclarationNode *newnode = new DeclarationNode;
	257	newnode->type = new TypeData( TypeData::AggregateInst );
	258	newnode->type->aggInst->aggregate = new TypeData( TypeData::Aggregate );
	259	newnode->type->aggInst->aggregate->aggregate->kind = Context;
	260	newnode->type->aggInst->aggregate->aggregate->name = assign_strptr( name );
	261	newnode->type->aggInst->params = params;
	262	return newnode;
[3848e0e]	263	}
	264
	265	DeclarationNode DeclarationNode::newTypeDecl( std::string name, DeclarationNode *typeParams ) {
[b87a5ed]	266	DeclarationNode *newnode = new DeclarationNode;
	267	newnode->name = assign_strptr( name );
	268	newnode->type = new TypeData( TypeData::Symbolic );
	269	newnode->type->symbolic->isTypedef = false;
	270	newnode->type->symbolic->params = typeParams;
	271	newnode->type->symbolic->name = newnode->name;
	272	return newnode;
[3848e0e]	273	}
	274
	275	DeclarationNode DeclarationNode::newPointer( DeclarationNode qualifiers ) {
[b87a5ed]	276	DeclarationNode *newnode = new DeclarationNode;
	277	newnode->type = new TypeData( TypeData::Pointer );
	278	return newnode->addQualifiers( qualifiers );
[3848e0e]	279	}
	280
	281	DeclarationNode DeclarationNode::newArray( ExpressionNode size, DeclarationNode *qualifiers, bool isStatic ) {
[b87a5ed]	282	DeclarationNode *newnode = new DeclarationNode;
	283	newnode->type = new TypeData( TypeData::Array );
	284	newnode->type->array->dimension = size;
	285	newnode->type->array->isStatic = isStatic;
[71bd8c6]	286	if ( newnode->type->array->dimension == 0 \|\| dynamic_cast<ConstantNode *>( newnode->type->array->dimension ) ) {
	287	newnode->type->array->isVarLen = false;
	288	} else {
	289	newnode->type->array->isVarLen = true;
	290	} // if
[b87a5ed]	291	return newnode->addQualifiers( qualifiers );
[3848e0e]	292	}
	293
	294	DeclarationNode DeclarationNode::newVarArray( DeclarationNode qualifiers ) {
[b87a5ed]	295	DeclarationNode *newnode = new DeclarationNode;
	296	newnode->type = new TypeData( TypeData::Array );
	297	newnode->type->array->dimension = 0;
	298	newnode->type->array->isStatic = false;
	299	newnode->type->array->isVarLen = true;
	300	return newnode->addQualifiers( qualifiers );
[3848e0e]	301	}
	302
	303	DeclarationNode DeclarationNode::newBitfield( ExpressionNode size ) {
[b87a5ed]	304	DeclarationNode *newnode = new DeclarationNode;
	305	newnode->bitfieldWidth = size;
	306	return newnode;
[3848e0e]	307	}
	308
	309	DeclarationNode DeclarationNode::newTuple( DeclarationNode members ) {
[b87a5ed]	310	DeclarationNode *newnode = new DeclarationNode;
	311	newnode->type = new TypeData( TypeData::Tuple );
	312	newnode->type->tuple->members = members;
	313	return newnode;
[3848e0e]	314	}
	315
	316	DeclarationNode DeclarationNode::newTypeof( ExpressionNode expr ) {
[b87a5ed]	317	DeclarationNode *newnode = new DeclarationNode;
	318	newnode->type = new TypeData( TypeData::Typeof );
	319	newnode->type->typeexpr->expr = expr;
	320	return newnode;
[3848e0e]	321	}
	322
	323	DeclarationNode DeclarationNode::newAttr( std::string name, ExpressionNode *expr ) {
[b87a5ed]	324	DeclarationNode *newnode = new DeclarationNode;
	325	newnode->type = new TypeData( TypeData::Attr );
	326	newnode->type->attr->name = assign_strptr( name );
	327	newnode->type->attr->expr = expr;
	328	return newnode;
[3848e0e]	329	}
	330
	331	DeclarationNode DeclarationNode::newAttr( std::string name, DeclarationNode *type ) {
[b87a5ed]	332	DeclarationNode *newnode = new DeclarationNode;
	333	newnode->type = new TypeData( TypeData::Attr );
	334	newnode->type->attr->name = assign_strptr( name );
	335	newnode->type->attr->type = type;
	336	return newnode;
[3848e0e]	337	}
	338
	339	static void addQualifiersToType( TypeData &src, TypeData dst ) {
[b87a5ed]	340	if ( src && dst ) {
	341	if ( src->forall && dst->kind == TypeData::Function ) {
	342	if ( dst->forall ) {
	343	dst->forall->appendList( src->forall );
	344	} else {
	345	dst->forall = src->forall;
[68cd1ce]	346	} // if
[b87a5ed]	347	src->forall = 0;
[68cd1ce]	348	} // if
[b87a5ed]	349	if ( dst->base ) {
	350	addQualifiersToType( src, dst->base );
	351	} else if ( dst->kind == TypeData::Function ) {
	352	dst->base = src;
	353	src = 0;
	354	} else {
	355	dst->qualifiers.splice( dst->qualifiers.end(), src->qualifiers );
[68cd1ce]	356	} // if
	357	} // if
[3848e0e]	358	}
[b87a5ed]	359
[3848e0e]	360	DeclarationNode DeclarationNode::addQualifiers( DeclarationNode q ) {
[b87a5ed]	361	if ( q ) {
	362	storageClasses.splice( storageClasses.end(), q->storageClasses );
	363	if ( q->type ) {
	364	if ( ! type ) {
	365	type = new TypeData;
[68cd1ce]	366	} // if
[b87a5ed]	367	addQualifiersToType( q->type, type );
	368	if ( q->type && q->type->forall ) {
	369	if ( type->forall ) {
	370	type->forall->appendList( q->type->forall );
	371	} else {
[68cd1ce]	372	if ( type->kind == TypeData::Aggregate ) {
	373	type->aggregate->params = q->type->forall;
[721f17a]	374	// change implicit typedef from TYPEDEFname to TYPEGENname
	375	typedefTable.changeKind( type->aggregate->name, TypedefTable::TG );
[68cd1ce]	376	} else {
	377	type->forall = q->type->forall;
	378	} // if
	379	} // if
[b87a5ed]	380	q->type->forall = 0;
[68cd1ce]	381	} // if
	382	} // if
	383	} // if
[b87a5ed]	384	delete q;
	385	return this;
[3848e0e]	386	}
	387
	388	DeclarationNode DeclarationNode::copyStorageClasses( DeclarationNode q ) {
[b87a5ed]	389	storageClasses = q->storageClasses;
	390	return this;
[3848e0e]	391	}
	392
	393	static void addTypeToType( TypeData &src, TypeData &dst ) {
[b87a5ed]	394	if ( src && dst ) {
	395	if ( src->forall && dst->kind == TypeData::Function ) {
	396	if ( dst->forall ) {
	397	dst->forall->appendList( src->forall );
	398	} else {
	399	dst->forall = src->forall;
[68cd1ce]	400	} // if
[b87a5ed]	401	src->forall = 0;
[68cd1ce]	402	} // if
[b87a5ed]	403	if ( dst->base ) {
	404	addTypeToType( src, dst->base );
	405	} else {
	406	switch ( dst->kind ) {
	407	case TypeData::Unknown:
	408	src->qualifiers.splice( src->qualifiers.end(), dst->qualifiers );
	409	dst = src;
	410	src = 0;
	411	break;
	412	case TypeData::Basic:
	413	dst->qualifiers.splice( dst->qualifiers.end(), src->qualifiers );
	414	if ( src->kind != TypeData::Unknown ) {
	415	assert( src->kind == TypeData::Basic );
	416	dst->basic->modifiers.splice( dst->basic->modifiers.end(), src->basic->modifiers );
	417	dst->basic->typeSpec.splice( dst->basic->typeSpec.end(), src->basic->typeSpec );
[68cd1ce]	418	} // if
[b87a5ed]	419	break;
	420	default:
	421	switch ( src->kind ) {
	422	case TypeData::Aggregate:
	423	case TypeData::Enum:
	424	dst->base = new TypeData( TypeData::AggregateInst );
	425	dst->base->aggInst->aggregate = src;
	426	if ( src->kind == TypeData::Aggregate ) {
	427	dst->base->aggInst->params = maybeClone( src->aggregate->actuals );
[68cd1ce]	428	} // if
[b87a5ed]	429	dst->base->qualifiers.splice( dst->base->qualifiers.end(), src->qualifiers );
	430	src = 0;
	431	break;
	432	default:
	433	if ( dst->forall ) {
	434	dst->forall->appendList( src->forall );
	435	} else {
	436	dst->forall = src->forall;
[68cd1ce]	437	} // if
[b87a5ed]	438	src->forall = 0;
	439	dst->base = src;
	440	src = 0;
[68cd1ce]	441	} // switch
	442	} // switch
	443	} // if
	444	} // if
[3848e0e]	445	}
	446
	447	DeclarationNode DeclarationNode::addType( DeclarationNode o ) {
[b87a5ed]	448	if ( o ) {
	449	storageClasses.splice( storageClasses.end(), o->storageClasses );
	450	if ( o->type ) {
	451	if ( ! type ) {
	452	if ( o->type->kind == TypeData::Aggregate \|\| o->type->kind == TypeData::Enum ) {
	453	type = new TypeData( TypeData::AggregateInst );
	454	type->aggInst->aggregate = o->type;
	455	if ( o->type->kind == TypeData::Aggregate ) {
	456	type->aggInst->params = maybeClone( o->type->aggregate->actuals );
[68cd1ce]	457	} // if
[b87a5ed]	458	type->qualifiers.splice( type->qualifiers.end(), o->type->qualifiers );
	459	} else {
	460	type = o->type;
[68cd1ce]	461	} // if
[b87a5ed]	462	o->type = 0;
	463	} else {
	464	addTypeToType( o->type, type );
[68cd1ce]	465	} // if
	466	} // if
[b87a5ed]	467	if ( o->bitfieldWidth ) {
	468	bitfieldWidth = o->bitfieldWidth;
[68cd1ce]	469	} // if
[71bd8c6]	470
	471	// there may be typedefs chained onto the type
	472	if ( o->get_link() ) {
	473	set_link( o->get_link()->clone() );
	474	}
	475
[68cd1ce]	476	} // if
[b87a5ed]	477	delete o;
	478	return this;
[3848e0e]	479	}
	480
	481	DeclarationNode *DeclarationNode::addTypedef() {
[b87a5ed]	482	TypeData *newtype = new TypeData( TypeData::Symbolic );
	483	newtype->symbolic->params = 0;
	484	newtype->symbolic->isTypedef = true;
	485	newtype->symbolic->name = name;
	486	newtype->base = type;
	487	type = newtype;
	488	return this;
[3848e0e]	489	}
	490
[59db689]	491	DeclarationNode DeclarationNode::addAssertions( DeclarationNode assertions ) {
[b87a5ed]	492	assert( type );
	493	switch ( type->kind ) {
	494	case TypeData::Symbolic:
	495	if ( type->symbolic->assertions ) {
	496	type->symbolic->assertions->appendList( assertions );
	497	} else {
	498	type->symbolic->assertions = assertions;
[68cd1ce]	499	} // if
[b87a5ed]	500	break;
	501	case TypeData::Variable:
	502	if ( type->variable->assertions ) {
	503	type->variable->assertions->appendList( assertions );
	504	} else {
	505	type->variable->assertions = assertions;
[68cd1ce]	506	} // if
[b87a5ed]	507	break;
	508	default:
	509	assert( false );
[68cd1ce]	510	} // switch
[b87a5ed]	511
	512	return this;
[51b73452]	513	}
	514
[59db689]	515	DeclarationNode DeclarationNode::addName( std::string newname ) {
[b87a5ed]	516	name = assign_strptr( newname );
	517	return this;
[51b73452]	518	}
	519
[3848e0e]	520	DeclarationNode DeclarationNode::addBitfield( ExpressionNode size ) {
[b87a5ed]	521	bitfieldWidth = size;
	522	return this;
[51b73452]	523	}
	524
[3848e0e]	525	DeclarationNode *DeclarationNode::addVarArgs() {
[b87a5ed]	526	assert( type );
	527	hasEllipsis = true;
	528	return this;
[51b73452]	529	}
	530
[3848e0e]	531	DeclarationNode DeclarationNode::addFunctionBody( StatementNode body ) {
[b87a5ed]	532	assert( type );
	533	assert( type->kind == TypeData::Function );
	534	assert( type->function->body == 0 );
	535	type->function->body = body;
	536	type->function->hasBody = true;
	537	return this;
[51b73452]	538	}
	539
[3848e0e]	540	DeclarationNode DeclarationNode::addOldDeclList( DeclarationNode list ) {
[b87a5ed]	541	assert( type );
	542	assert( type->kind == TypeData::Function );
	543	assert( type->function->oldDeclList == 0 );
	544	type->function->oldDeclList = list;
	545	return this;
[51b73452]	546	}
	547
[68cd1ce]	548	static void setBase( TypeData &type, TypeData newType ) {
[b87a5ed]	549	if ( type ) {
	550	TypeData *prevBase = type;
	551	TypeData *curBase = type->base;
[a32b204]	552	while ( curBase != 0 ) {
[b87a5ed]	553	prevBase = curBase;
	554	curBase = curBase->base;
[68cd1ce]	555	} // while
[b87a5ed]	556	prevBase->base = newType;
	557	} else {
	558	type = newType;
[68cd1ce]	559	} // if
[3848e0e]	560	}
	561
	562	DeclarationNode DeclarationNode::addPointer( DeclarationNode p ) {
[b87a5ed]	563	if ( p ) {
	564	assert( p->type->kind == TypeData::Pointer );
	565	setBase( type, p->type );
	566	p->type = 0;
	567	delete p;
[68cd1ce]	568	} // if
[b87a5ed]	569	return this;
[3848e0e]	570	}
	571
	572	DeclarationNode DeclarationNode::addArray( DeclarationNode a ) {
[b87a5ed]	573	if ( a ) {
	574	assert( a->type->kind == TypeData::Array );
	575	setBase( type, a->type );
	576	a->type = 0;
	577	delete a;
[68cd1ce]	578	} // if
[b87a5ed]	579	return this;
[51b73452]	580	}
	581
[3848e0e]	582	DeclarationNode DeclarationNode::addNewPointer( DeclarationNode p ) {
[b87a5ed]	583	if ( p ) {
	584	assert( p->type->kind == TypeData::Pointer );
	585	if ( type ) {
	586	switch ( type->kind ) {
	587	case TypeData::Aggregate:
	588	case TypeData::Enum:
	589	p->type->base = new TypeData( TypeData::AggregateInst );
	590	p->type->base->aggInst->aggregate = type;
	591	if ( type->kind == TypeData::Aggregate ) {
	592	p->type->base->aggInst->params = maybeClone( type->aggregate->actuals );
[68cd1ce]	593	} // if
[b87a5ed]	594	p->type->base->qualifiers.splice( p->type->base->qualifiers.end(), type->qualifiers );
	595	break;
	596
	597	default:
	598	p->type->base = type;
[68cd1ce]	599	} // switch
[b87a5ed]	600	type = 0;
[68cd1ce]	601	} // if
[b87a5ed]	602	delete this;
	603	return p;
	604	} else {
	605	return this;
[68cd1ce]	606	} // if
[51b73452]	607	}
	608
[3848e0e]	609	static TypeData findLast( TypeData a ) {
[b87a5ed]	610	assert( a );
	611	TypeData *cur = a;
[a32b204]	612	while ( cur->base ) {
[b87a5ed]	613	cur = cur->base;
[68cd1ce]	614	} // while
[b87a5ed]	615	return cur;
[3848e0e]	616	}
	617
	618	DeclarationNode DeclarationNode::addNewArray( DeclarationNode a ) {
[b87a5ed]	619	if ( a ) {
	620	assert( a->type->kind == TypeData::Array );
	621	TypeData *lastArray = findLast( a->type );
	622	if ( type ) {
	623	switch ( type->kind ) {
	624	case TypeData::Aggregate:
	625	case TypeData::Enum:
	626	lastArray->base = new TypeData( TypeData::AggregateInst );
	627	lastArray->base->aggInst->aggregate = type;
	628	if ( type->kind == TypeData::Aggregate ) {
	629	lastArray->base->aggInst->params = maybeClone( type->aggregate->actuals );
[68cd1ce]	630	} // if
[b87a5ed]	631	lastArray->base->qualifiers.splice( lastArray->base->qualifiers.end(), type->qualifiers );
	632	break;
	633	default:
	634	lastArray->base = type;
[68cd1ce]	635	} // switch
[b87a5ed]	636	type = 0;
[68cd1ce]	637	} // if
[b87a5ed]	638	delete this;
	639	return a;
	640	} else {
	641	return this;
[68cd1ce]	642	} // if
[51b73452]	643	}
[3848e0e]	644
	645	DeclarationNode DeclarationNode::addParamList( DeclarationNode params ) {
[b87a5ed]	646	TypeData *ftype = new TypeData( TypeData::Function );
	647	ftype->function->params = params;
	648	setBase( type, ftype );
	649	return this;
[3848e0e]	650	}
	651
	652	static TypeData addIdListToType( TypeData type, DeclarationNode *ids ) {
[b87a5ed]	653	if ( type ) {
	654	if ( type->kind != TypeData::Function ) {
	655	type->base = addIdListToType( type->base, ids );
	656	} else {
	657	type->function->idList = ids;
[68cd1ce]	658	} // if
[b87a5ed]	659	return type;
[3848e0e]	660	} else {
[b87a5ed]	661	TypeData *newtype = new TypeData( TypeData::Function );
	662	newtype->function->idList = ids;
	663	return newtype;
[68cd1ce]	664	} // if
[3848e0e]	665	}
[b87a5ed]	666
[3848e0e]	667	DeclarationNode DeclarationNode::addIdList( DeclarationNode ids ) {
[b87a5ed]	668	type = addIdListToType( type, ids );
	669	return this;
[3848e0e]	670	}
	671
	672	DeclarationNode DeclarationNode::addInitializer( InitializerNode init ) {
[b87a5ed]	673	//assert
	674	initializer = init;
	675	return this;
[3848e0e]	676	}
	677
	678	DeclarationNode DeclarationNode::cloneBaseType( string newName ) {
[b87a5ed]	679	DeclarationNode *newnode = new DeclarationNode;
	680	TypeData *srcType = type;
[a32b204]	681	while ( srcType->base ) {
[b87a5ed]	682	srcType = srcType->base;
[68cd1ce]	683	} // while
[b87a5ed]	684	newnode->type = maybeClone( srcType );
	685	if ( newnode->type->kind == TypeData::AggregateInst ) {
	686	// don't duplicate members
	687	if ( newnode->type->aggInst->aggregate->kind == TypeData::Enum ) {
	688	delete newnode->type->aggInst->aggregate->enumeration->constants;
	689	newnode->type->aggInst->aggregate->enumeration->constants = 0;
	690	} else {
	691	assert( newnode->type->aggInst->aggregate->kind == TypeData::Aggregate );
[721f17a]	692	delete newnode->type->aggInst->aggregate->aggregate->fields;
	693	newnode->type->aggInst->aggregate->aggregate->fields = 0;
[68cd1ce]	694	} // if
	695	} // if
[b87a5ed]	696	newnode->type->forall = maybeClone( type->forall );
	697	newnode->storageClasses = storageClasses;
	698	newnode->name = assign_strptr( newName );
	699	return newnode;
[3848e0e]	700	}
	701
	702	DeclarationNode DeclarationNode::cloneBaseType( DeclarationNode o ) {
[b87a5ed]	703	if ( o ) {
	704	o->storageClasses.insert( o->storageClasses.end(), storageClasses.begin(), storageClasses.end() );
	705	if ( type ) {
	706	TypeData *srcType = type;
[a32b204]	707	while ( srcType->base ) {
[b87a5ed]	708	srcType = srcType->base;
[68cd1ce]	709	} // while
[b87a5ed]	710	TypeData *newType = srcType->clone();
	711	if ( newType->kind == TypeData::AggregateInst ) {
	712	// don't duplicate members
	713	if ( newType->aggInst->aggregate->kind == TypeData::Enum ) {
	714	delete newType->aggInst->aggregate->enumeration->constants;
	715	newType->aggInst->aggregate->enumeration->constants = 0;
	716	} else {
	717	assert( newType->aggInst->aggregate->kind == TypeData::Aggregate );
[721f17a]	718	delete newType->aggInst->aggregate->aggregate->fields;
	719	newType->aggInst->aggregate->aggregate->fields = 0;
[68cd1ce]	720	} // if
	721	} // if
[b87a5ed]	722	newType->forall = maybeClone( type->forall );
	723	if ( ! o->type ) {
	724	o->type = newType;
	725	} else {
	726	addTypeToType( newType, o->type );
	727	delete newType;
[68cd1ce]	728	} // if
	729	} // if
	730	} // if
[b87a5ed]	731	return o;
[3848e0e]	732	}
	733
	734	DeclarationNode DeclarationNode::cloneType( string newName ) {
[b87a5ed]	735	DeclarationNode *newnode = new DeclarationNode;
	736	newnode->type = maybeClone( type );
	737	newnode->storageClasses = storageClasses;
	738	newnode->name = assign_strptr( newName );
	739	return newnode;
[3848e0e]	740	}
	741
	742	DeclarationNode DeclarationNode::cloneType( DeclarationNode o ) {
[b87a5ed]	743	if ( o ) {
	744	o->storageClasses.insert( o->storageClasses.end(), storageClasses.begin(), storageClasses.end() );
	745	if ( type ) {
	746	TypeData *newType = type->clone();
	747	if ( ! o->type ) {
	748	o->type = newType;
	749	} else {
	750	addTypeToType( newType, o->type );
	751	delete newType;
[68cd1ce]	752	} // if
	753	} // if
	754	} // if
[b87a5ed]	755	return o;
[51b73452]	756	}
	757
[3848e0e]	758	DeclarationNode DeclarationNode::appendList( DeclarationNode node ) {
[b87a5ed]	759	if ( node != 0 ) {
	760	set_link( node );
[68cd1ce]	761	} // if
[b87a5ed]	762	return this;
[51b73452]	763	}
	764
[3848e0e]	765	DeclarationNode *DeclarationNode::extractAggregate() const {
[b87a5ed]	766	if ( type ) {
	767	TypeData *ret = type->extractAggregate();
	768	if ( ret ) {
	769	DeclarationNode *newnode = new DeclarationNode;
	770	newnode->type = ret;
	771	return newnode;
[843054c2]	772	} // if
	773	} // if
	774	return 0;
[3848e0e]	775	}
	776
[a61fea9a]	777	void buildList( const DeclarationNode firstNode, std::list< Declaration > &outputList ) {
[b87a5ed]	778	SemanticError errors;
[59db689]	779	std::back_insert_iterator< std::list< Declaration *> > out( outputList );
[b87a5ed]	780	const DeclarationNode *cur = firstNode;
[a32b204]	781	while ( cur ) {
[b87a5ed]	782	try {
	783	if ( DeclarationNode *extr = cur->extractAggregate() ) {
	784	// handle the case where a structure declaration is contained within an object or type declaration
	785	Declaration *decl = extr->build();
	786	if ( decl ) {
	787	*out++ = decl;
[843054c2]	788	} // if
	789	} // if
[b87a5ed]	790	Declaration *decl = cur->build();
	791	if ( decl ) {
	792	*out++ = decl;
[843054c2]	793	} // if
[b87a5ed]	794	} catch( SemanticError &e ) {
	795	errors.append( e );
[843054c2]	796	} // try
[59db689]	797	cur = dynamic_cast< DeclarationNode *>( cur->get_link() );
[843054c2]	798	} // while
[b87a5ed]	799	if ( ! errors.isEmpty() ) {
	800	throw errors;
[843054c2]	801	} // if
[3848e0e]	802	}
	803
[59db689]	804	void buildList( const DeclarationNode firstNode, std::list< DeclarationWithType > &outputList ) {
[b87a5ed]	805	SemanticError errors;
[59db689]	806	std::back_insert_iterator< std::list< DeclarationWithType *> > out( outputList );
[b87a5ed]	807	const DeclarationNode *cur = firstNode;
[a32b204]	808	while ( cur ) {
[b87a5ed]	809	try {
[3848e0e]	810	/// if ( DeclarationNode *extr = cur->extractAggregate() ) {
[51b73452]	811	/// // handle the case where a structure declaration is contained within an object or type
	812	/// // declaration
	813	/// Declaration *decl = extr->build();
[3848e0e]	814	/// if ( decl ) {
	815	/// *out++ = decl;
[51b73452]	816	/// }
	817	/// }
[b87a5ed]	818	Declaration *decl = cur->build();
	819	if ( decl ) {
[59db689]	820	if ( DeclarationWithType dwt = dynamic_cast< DeclarationWithType >( decl ) ) {
[b87a5ed]	821	*out++ = dwt;
[59db689]	822	} else if ( StructDecl agg = dynamic_cast< StructDecl >( decl ) ) {
[b87a5ed]	823	StructInstType *inst = new StructInstType( Type::Qualifiers(), agg->get_name() );
[68cd1ce]	824	*out++ = new ObjectDecl( "", DeclarationNode::NoStorageClass, linkage, 0, inst, 0 );
[b87a5ed]	825	delete agg;
[59db689]	826	} else if ( UnionDecl agg = dynamic_cast< UnionDecl >( decl ) ) {
[b87a5ed]	827	UnionInstType *inst = new UnionInstType( Type::Qualifiers(), agg->get_name() );
[68cd1ce]	828	*out++ = new ObjectDecl( "", DeclarationNode::NoStorageClass, linkage, 0, inst, 0 );
[843054c2]	829	} // if
	830	} // if
[b87a5ed]	831	} catch( SemanticError &e ) {
	832	errors.append( e );
[843054c2]	833	} // try
[59db689]	834	cur = dynamic_cast< DeclarationNode *>( cur->get_link() );
[843054c2]	835	} // while
[b87a5ed]	836	if ( ! errors.isEmpty() ) {
	837	throw errors;
[843054c2]	838	} // if
[3848e0e]	839	}
	840
[59db689]	841	void buildTypeList( const DeclarationNode firstNode, std::list< Type > &outputList ) {
[b87a5ed]	842	SemanticError errors;
[59db689]	843	std::back_insert_iterator< std::list< Type *> > out( outputList );
[b87a5ed]	844	const DeclarationNode *cur = firstNode;
[a32b204]	845	while ( cur ) {
[b87a5ed]	846	try {
	847	*out++ = cur->buildType();
	848	} catch( SemanticError &e ) {
	849	errors.append( e );
[843054c2]	850	} // try
[59db689]	851	cur = dynamic_cast< DeclarationNode *>( cur->get_link() );
[843054c2]	852	} // while
[b87a5ed]	853	if ( ! errors.isEmpty() ) {
	854	throw errors;
[843054c2]	855	} // if
[51b73452]	856	}
	857
[3848e0e]	858	Declaration *DeclarationNode::build() const {
[843054c2]	859	if ( type ) {
[de62360d]	860	Declaration *newDecl = type->buildDecl( name, buildStorageClass(), maybeBuild< Expression >( bitfieldWidth ), buildFuncSpecifier( Inline ), buildFuncSpecifier( Noreturn ), linkage, maybeBuild< Initializer >(initializer) );
[b87a5ed]	861	return newDecl;
[843054c2]	862	} // if
[de62360d]	863	if ( ! buildFuncSpecifier( Inline ) && ! buildFuncSpecifier( Noreturn ) ) {
[843054c2]	864	return new ObjectDecl( name, buildStorageClass(), linkage, maybeBuild< Expression >( bitfieldWidth ), 0, maybeBuild< Initializer >( initializer ) );
	865	} // if
[de62360d]	866	throw SemanticError( "invalid function specifier in declaration of ", this );
[51b73452]	867	}
	868
[3848e0e]	869	Type *DeclarationNode::buildType() const {
[b87a5ed]	870	assert( type );
[51b73452]	871
[b87a5ed]	872	switch ( type->kind ) {
	873	case TypeData::Enum:
	874	return new EnumInstType( type->buildQualifiers(), type->enumeration->name );
	875	case TypeData::Aggregate: {
	876	ReferenceToType *ret;
	877	switch ( type->aggregate->kind ) {
	878	case DeclarationNode::Struct:
	879	ret = new StructInstType( type->buildQualifiers(), type->aggregate->name );
	880	break;
	881	case DeclarationNode::Union:
	882	ret = new UnionInstType( type->buildQualifiers(), type->aggregate->name );
	883	break;
	884	case DeclarationNode::Context:
	885	ret = new ContextInstType( type->buildQualifiers(), type->aggregate->name );
	886	break;
	887	default:
	888	assert( false );
	889	} // switch
	890	buildList( type->aggregate->actuals, ret->get_parameters() );
	891	return ret;
	892	}
	893	case TypeData::Symbolic: {
	894	TypeInstType *ret = new TypeInstType( type->buildQualifiers(), type->symbolic->name, false );
	895	buildList( type->symbolic->actuals, ret->get_parameters() );
	896	return ret;
	897	}
	898	default:
	899	return type->build();
	900	} // switch
[3848e0e]	901	}
	902
[68cd1ce]	903	DeclarationNode::StorageClass DeclarationNode::buildStorageClass() const {
	904	DeclarationNode::StorageClass ret = DeclarationNode::NoStorageClass;
	905	for ( std::list< DeclarationNode::StorageClass >::const_iterator i = storageClasses.begin(); i != storageClasses.end(); ++i ) {
	906	if ( i == DeclarationNode::Inline \|\| i == DeclarationNode::Noreturn ) continue; // ignore function specifiers
	907	if ( ret != DeclarationNode::NoStorageClass ) { // already have a valid storage class ?
[b87a5ed]	908	throw SemanticError( "invalid combination of storage classes in declaration of ", this );
[68cd1ce]	909	} // if
	910	ret = *i;
	911	} // for
[b87a5ed]	912	return ret;
[51b73452]	913	}
	914
[de62360d]	915	bool DeclarationNode::buildFuncSpecifier( DeclarationNode::StorageClass key ) const {
	916	std::list< DeclarationNode::StorageClass >::const_iterator first = std::find( storageClasses.begin(), storageClasses.end(), key );
	917	if ( first == storageClasses.end() ) return false; // not found
	918	first = std::find( ++first, storageClasses.end(), key ); // found
	919	if ( first == storageClasses.end() ) return true; // not found again
	920	throw SemanticError( "duplicate function specifier in declaration of ", this );
[51b73452]	921	}
[b87a5ed]	922
	923	// Local Variables: //
	924	// tab-width: 4 //
	925	// mode: c++ //
	926	// compile-command: "make install" //
	927	// End: //

Note: See TracBrowser for help on using the repository browser.

Download in other formats: