scopeStack.c

/*
 * scopeStack.c : Implementation to manage a stack of scopes
 * for a declaration symbol and his re-declarations
 * Part of the compiler project for LSD10 language
 * Gaudry Stéphane
 * More information on http://www.gaudry.be/langages-lex-yacc-intro.html
 * **********************************************************
 */
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#if(VERBOSE_LEVEL<=DEB_E)
	#include <errno.h>
#endif
#include "scopeStack.h"
#include "common.h"
 
 
/*
 * **********************************************************
 * Internal business
 * **********************************************************
 */
 
 
/*
 * **********************************************************
 * Implementation of the header exposed items
 * See scopeStack.h for these functions comments
 * **********************************************************
 */
 
ScopeStack* createScopeStack()
{
	ScopeStack *newScopeStack = malloc( sizeof(*newScopeStack) );
	if(newScopeStack==NULL)
	{
		#if(VERBOSE_LEVEL<=DEB_E)
		{
			printMsg(DEB_E,"Allocation Error(ScopeStack)", __FILE__, __LINE__);
			printMsg(DEB_E, (char *)strerror(errno), __FILE__, __LINE__);
		}
		#endif
		//Failure of the compiler behavior, independent of the parsed code
		exit(EXIT_FAILURE);
	}
	newScopeStack->parentPtr=NULL;
	newScopeStack->usage=VAR_USAGE_NEVER;
	newScopeStack->declarationNode = NULL;
	newScopeStack->functionNode=NULL;
	return newScopeStack;
}
 
void finalizeScopeStack(ScopeStack **scopeStackPtr)
{
	while(*scopeStackPtr)
	{
		popScopeStack(scopeStackPtr);
	}
}
 
void pushScopesStack(ScopeStack **scopeStackPtr, int scope, AstNode *declarationNode)
{
	ScopeStack *tempScopeStackPtr = createScopeStack();
 
//	char msg[1024];//todo: minimize length
//	sprintf(
//		msg,
//		"Push scope :  %d [15%p] => %s (compiler %s,%d)",
//		scope, tempScopeStackPtr, declarationNode==NULL?"node null":declarationNode->info->name,
//		__FILE__,
//		__LINE__
//		);
//	printMsg(DEB_EXEC, msg, __FILE__, __LINE__);
 
	tempScopeStackPtr->declarationNode = declarationNode;
	if(declarationNode!=NULL)
	{
		declarationNode->info->scopeId = scope;
		declarationNode->info->scopeDepth = scopeHelperGetCurrentDepth();
	}
	tempScopeStackPtr->parentPtr=*scopeStackPtr;
	*scopeStackPtr = tempScopeStackPtr;
}
 
AstNode* popScopeStack(ScopeStack **scopeStackPtr)
{
	if(!*scopeStackPtr)
	{
		return NULL;
	}
 
//	char msg[1024];//todo: minimize length
//	sprintf(
//		msg,
//		"\tBefore Pop scope :  %d [15%p] => %s (compiler %s,%d)",
//		(*scopeStackPtr)->scopeId,
//		(*scopeStackPtr),
//		returnVal==NULL?"node null":returnVal->info->name,
//		__FILE__,
//		__LINE__
//		);
//	printMsg(DEB_EXEC, msg, __FILE__, __LINE__);
 
	ScopeStack *top = *scopeStackPtr;
	AstNode *returnVal = top->declarationNode;
	*scopeStackPtr = top->parentPtr;
	free(top);
 
//	sprintf(
//		msg,
//		"\tAfter Pop scope :  %d [15%p] => %s (compiler %s,%d)",
//		(*scopeStackPtr)==NULL?INITIAL_INT:(*scopeStackPtr)->scopeId,
//		(*scopeStackPtr),
//		returnVal==NULL?"node null":returnVal->info->name,
//		__FILE__,
//		__LINE__
//		);
//	printMsg(DEB_EXEC, msg, __FILE__, __LINE__);
 
	return returnVal;
}
 
void setScopesStackDepth(ScopeStack *scopeStack, int scopeDepth)
{
	scopeStack->declarationNode->info->scopeDepth=scopeDepth;
}
int getScopeDepth(ScopeStack *scopeStack)
{
	if(scopeStack==NULL)
	{
//		printf("\n; scopeStack null (compiler %s, %d)\n", __FILE__, __LINE__);
		return ERROR_INT;
	}
	if(scopeStack->declarationNode==NULL)
	{
//		printf("\n; declaration node null (compiler %s, %d)\n", __FILE__, __LINE__);
		return ERROR_INT;
	}
	return scopeStack->declarationNode->info->scopeId;
}