#include <jenga/include/smoothie/Smoothie.h>
#include <jenga/include/smoothie/Class.h>
#include <jenga/include/smoothie/SmoothieException.h>

#include <TypeDef.h>
#include <Compiler.h>

TypeDef::TypeDef( const NamespaceScopes &namespaceScopes, const string &name, const string &baseName, int nowLine )
	: namespaceScopes( namespaceScopes )
	, name( name )
	, baseName( baseName )
{
	if( !Compiler::StringToType( baseName, baseType ) ){
		SmoothieException::Throw(3, baseName, nowLine );
		return;
	}
}
TypeDef::~TypeDef(){
}

bool TypeDef::IsEqualSymbol( const NamespaceScopes &namespaceScopes, const string &name ) const
{
	if( GetName() != name ){
		return false;
	}
	return compiler.IsSameAreaNamespace( this->namespaceScopes, namespaceScopes );
}
bool TypeDef::IsEqualSymbol( const string &fullName ) const
{
	char AreaName[VN_SIZE] = "";		//オブジェクト変数
	char NestName[VN_SIZE] = "";		//入れ子メンバ
	bool isNest = CClass::SplitName( fullName.c_str(), AreaName, NestName );

	if( IsEqualSymbol( NamespaceScopes( AreaName ), NestName ) ){
		return true;
	}

	if( isNest ){
		// 静的メンバを考慮

		char AreaName2[VN_SIZE] = "";		//オブジェクト変数
		char NestName2[VN_SIZE] = "";		//入れ子メンバ
		bool isNest = CClass::SplitName( AreaName, AreaName2, NestName2 );
		lstrcat( NestName2, "." );
		lstrcat( NestName2, NestName );

		return IsEqualSymbol( NamespaceScopes( AreaName2 ), NestName2 );
	}

	return false;
}



TypeDefCollection::TypeDefCollection(){
}
TypeDefCollection::~TypeDefCollection(){
}
void TypeDefCollection::Add( const NamespaceScopes &namespaceScopes, const string &name, const string &baseName, int nowLine ){
	TypeDef typeDef( namespaceScopes, name, baseName, nowLine );
	this->push_back( typeDef );
}
int TypeDefCollection::GetIndex( const NamespaceScopes &namespaceScopes, const string &name ) const{
	int max = (int)(*this).size();
	for( int i=0; i<max; i++ ){
		if( (*this)[i].IsEqualSymbol( namespaceScopes, name ) ){
			return i;
		}
	}
	return -1;
}
int TypeDefCollection::GetIndex( const string &fullName ) const{
	char AreaName[VN_SIZE] = "";		//オブジェクト変数
	char NestName[VN_SIZE] = "";		//入れ子メンバ
	bool isNest = CClass::SplitName( fullName.c_str(), AreaName, NestName );

	return GetIndex( NamespaceScopes( AreaName ), NestName );
}

void TypeDefCollection::Add( const NamespaceScopes &namespaceScopes, const string &expression, int nowLine ){
	int i;
	char temporary[VN_SIZE];

	for(i=0;;i++){
		if(expression[i]=='='||expression[i]=='\0'){
			temporary[i]=0;
			break;
		}
		temporary[i]=expression[i];
	}

	if(expression[i]!='='){
		SmoothieException::Throw(10,"TypeDef",nowLine);
		return;
	}

	const char *pTemp=expression.c_str()+i+1;

	//識別文字のエラーチェック（新しい型）
	i=0;
	for(;;i++){
		if(temporary[i]=='\0') break;
		if(!IsVariableChar(temporary[i])){
			SmoothieException::Throw(10,"TypeDef",nowLine);
			return;
		}
	}

	//識別文字のエラーチェック（コピー元の型）
	if(pTemp[0]=='*'&&pTemp[1]==1&&(pTemp[2]==ESC_FUNCTION||pTemp[2]==ESC_SUB)){
		//関数ポインタ
		if(pTemp[3]!='('){
			SmoothieException::Throw(10,"TypeDef",nowLine);
			return;
		}
	}
	else{
		i=0;
		while(pTemp[i]=='*') i++;
		for(;;i++){
			if(pTemp[i]=='\0') break;
			if(!IsVariableChar(pTemp[i])){
				SmoothieException::Throw(10,"TypeDef",nowLine);
				return;
			}
		}
	}

	//識別子が重複している場合はエラーにする
	if(lstrcmp(temporary,pTemp)==0){
		SmoothieException::Throw(1,NULL,nowLine);
		return;
	}



	//////////////////////////
	// TypeDef情報を追加
	//////////////////////////

	Add( namespaceScopes, temporary, pTemp, nowLine );
}

void TypeDefCollection::Init(){
	// 初期化
	clear();

	// 名前空間管理
	NamespaceScopes &namespaceScopes = Smoothie::Temp::liveingNamespaceScopes;
	namespaceScopes.clear();

	// Importsされた名前空間の管理
	NamespaceScopesCollection &importedNamespaces = compiler.GetImportedNamespaces();
	importedNamespaces.clear();

	int i=-1, i2;
	char temporary[VN_SIZE];
	while(1){
		extern char *basbuf;

		i++;

		if( basbuf[i] == 1 && basbuf[i+1] == ESC_NAMESPACE ){
			for(i+=2,i2=0;;i2++,i++){
				if( IsCommandDelimitation( basbuf[i] ) ){
					temporary[i2]=0;
					break;
				}
				temporary[i2]=basbuf[i];
			}
			namespaceScopes.push_back( temporary );

			continue;
		}
		else if( basbuf[i] == 1 && basbuf[i+1] == ESC_ENDNAMESPACE ){
			if( namespaceScopes.size() <= 0 ){
				SmoothieException::Throw(12, "End Namespace", i );
			}
			else{
				namespaceScopes.pop_back();
			}

			i += 2;
			continue;
		}
		else if( basbuf[i] == 1 && basbuf[i+1] == ESC_IMPORTS ){
			for(i+=2,i2=0;;i2++,i++){
				if( IsCommandDelimitation( basbuf[i] ) ){
					temporary[i2]=0;
					break;
				}
				temporary[i2]=basbuf[i];
			}
			if( !compiler.ImportsNamespace( temporary ) )
			{
				SmoothieException::Throw(64,temporary,i );
			}

			continue;
		}
		else if( basbuf[i] == 1 && basbuf[i+1] == ESC_CLEARNAMESPACEIMPORTED ){
			importedNamespaces.clear();
			continue;
		}

		if( basbuf[i]==1 ){
			char temporary[VN_SIZE];
			if(basbuf[i+1]==ESC_TYPEDEF){
				int i2 = 0;
				for(i+=2;;i2++,i++){
					if(basbuf[i]=='\n'){
						temporary[i2]=0;
						break;
					}
					temporary[i2]=basbuf[i];
					if(basbuf[i]=='\0') break;
				}
				Add( namespaceScopes, temporary, i );

				continue;
			}
			else if( basbuf[i+1] == ESC_CONST && basbuf[i+2] == 1 && basbuf[i+3] == ESC_ENUM ){
				int i2 = 0;
				for(i+=4;;i2++,i++){
					if(!IsVariableChar(basbuf[i])){
						temporary[i2]=0;
						break;
					}
					temporary[i2]=basbuf[i];
					if(basbuf[i]=='\0') break;
				}
				Add( namespaceScopes, temporary, "Long", i );
			}
		}

		//次の行
		for(;;i++){
			if(IsCommandDelimitation(basbuf[i])) break;
		}
		if(basbuf[i]=='\0') break;
	}
}