#include "common.h"

#ifdef _AMD64_
#include "../BasicCompiler64/opcode.h"
#else
#include "../BasicCompiler32/opcode.h"
#endif

CDBClass *pobj_DBClass;

const CClass *pobj_CompilingClass;

CMember *pCompilingMethod;


CClass::CClass( const NamespaceScopes &namespaceScopes, const NamespaceScopesCollection &importedNamespaces, const string &name )
	: Prototype( namespaceScopes, name )
	, importedNamespaces( importedNamespaces )
	, ConstructorMemberSubIndex( 0 )
	, DestructorMemberSubIndex( 0 )
	, classType( Class )
	, pobj_InheritsClass( NULL )
	, ppobj_Member( NULL )
	, iMemberNum( 0 )
	, vtbl_num( 0 )
	, iAlign( 0 )
	, vtbl_offset( -1 )
	, isCompilingConstructor( false )
	, isCompilingDestructor( false )
	, pobj_NextClass( NULL )
{
}
CClass::~CClass(){
	int i;

	if(ppobj_Member){
		//メンバ
		for(i=0;i<iMemberNum;i++){
			delete ppobj_Member[i];
		}
		HeapDefaultFree(ppobj_Member);
		ppobj_Member=0;
	}

	//静的メンバ
	foreach( CMember *member, staticMembers ){
		delete member;
	}
}

bool CClass::IsInheritsInterface( const CClass *pInterfaceClass ) const
{
	BOOST_FOREACH( const InheritedInterface &objInterface, interfaces ){
		if( pInterfaceClass == &objInterface.GetInterfaceClass() ){
			return true;
		}
	}
	return false;
}

bool CClass::IsClass() const
{
	return classType == CClass::Class;
}
bool CClass::IsInterface() const
{
	return classType == CClass::Interface;
}
bool CClass::IsEnum() const
{
	return classType == CClass::Enum;
}
bool CClass::IsDelegate() const
{
	return classType == CClass::Delegate;
}
bool CClass::IsStructure() const
{
	return classType == CClass::Structure;
}

bool CClass::Inherits( const char *inheritNames, int nowLine ){
	int i = 0;
	bool isInheritsClass = false;
	while( true ){

		char temporary[VN_SIZE];
		for( int i2=0;; i++, i2++ ){
			if( inheritNames[i] == '\0' || inheritNames[i] == ',' ){
				temporary[i2] = 0;
				break;
			}
			temporary[i2] = inheritNames[i];
		}

		//継承元クラスを取得
		const CClass *pInheritsClass = pobj_DBClass->Find(temporary);
		if( !pInheritsClass ){
			SetError(106,temporary,i);
			return false;
		}

		if( pInheritsClass->IsInterface() ){
			// インターフェイスを継承する
			if( !InheritsInterface( *pInheritsClass, nowLine ) ){
				return false;
			}
		}
		else if( pInheritsClass->IsClass() ){
			// クラスを継承する
			isInheritsClass = true;

			if( !InheritsClass( *pInheritsClass, nowLine ) ){
				return false;
			}
		}
		else{
			SetError(135,NULL,nowLine);
			return false;
		}

		if( inheritNames[i] == '\0' ){
			break;
		}
		i++;
	}

	if( !isInheritsClass ){
		// クラスを一つも継承していないとき
		const CClass *pObjectClass = pobj_DBClass->Find("Object");
		if( !pObjectClass ){
			SetError(106,"Object",i);
			return false;
		}

		if( !InheritsClass( *pObjectClass, i ) ){
			return false;
		}
	}

	return true;
}
bool CClass::InheritsClass( const CClass &inheritsClass, int nowLine ){

	//ループ継承でないかをチェック
	if(pobj_LoopRefCheck->check(inheritsClass)){
		SetError(123,inheritsClass.GetName(),nowLine);
		return false;
	}

	if( inheritsClass.ppobj_Member == 0 ){
		//継承先が読み取られていないとき
		pobj_LoopRefCheck->add(this->GetName().c_str());
		pobj_DBClass->GetClass_recur(inheritsClass.GetName().c_str());
		pobj_LoopRefCheck->del(this->GetName().c_str());
	}

	//メンバをコピー
	ppobj_Member=(CMember **)HeapReAlloc(
		hHeap,
		0,
		ppobj_Member,
		( iMemberNum + inheritsClass.iMemberNum )*sizeof(CMember *));
	for(int i3=0;i3<inheritsClass.iMemberNum;i3++){
		ppobj_Member[iMemberNum]=new CMember( *inheritsClass.ppobj_Member[i3] );

		//dwAccess
		if(inheritsClass.ppobj_Member[i3]->dwAccess==ACCESS_PRIVATE)
			ppobj_Member[iMemberNum]->dwAccess=ACCESS_NON;
		else ppobj_Member[iMemberNum]->dwAccess=inheritsClass.ppobj_Member[i3]->dwAccess;

		iMemberNum++;
	}

	//メソッドをコピー
	foreach( const CMethod *pBaseMethod, inheritsClass.methods ){
		CMethod *pMethod = new DynamicMethod( *pBaseMethod );

		//dwAccess
		if(pBaseMethod->dwAccess==ACCESS_PRIVATE)
			pMethod->dwAccess=ACCESS_NON;
		else pMethod->dwAccess=pBaseMethod->dwAccess;

		//pobj_Inherits
		// ※継承元のClassIndexをセット（入れ子継承を考慮する）
		if(pBaseMethod->GetInheritsClassPtr()==0){
			pMethod->SetInheritsClassPtr( &inheritsClass );
		}
		else{
			pMethod->SetInheritsClassPtr( pBaseMethod->GetInheritsClassPtr() );
		}

		methods.push_back( pMethod );
	}

	//仮想関数の数
	vtbl_num += inheritsClass.vtbl_num;

	//継承先のクラスをメンバとして保持する
	pobj_InheritsClass = &inheritsClass;

	return true;
}
bool CClass::InheritsInterface( const CClass &inheritsInterface, int nowLine ){

	//ループ継承でないかをチェック
	if(pobj_LoopRefCheck->check(inheritsInterface)){
		SetError(123,inheritsInterface.GetName(),nowLine);
		return false;
	}

	if( inheritsInterface.ppobj_Member == 0 ){
		//継承先が読み取られていないとき
		pobj_LoopRefCheck->add(this->GetName().c_str());
		pobj_DBClass->GetClass_recur(inheritsInterface.GetName().c_str());
		pobj_LoopRefCheck->del(this->GetName().c_str());
	}

	//メソッドをコピー
	foreach( const CMethod *pBaseMethod, inheritsInterface.methods ){
		CMethod *pMethod = new DynamicMethod( *pBaseMethod );

		//dwAccess
		if(pBaseMethod->dwAccess==ACCESS_PRIVATE)
			pMethod->dwAccess=ACCESS_NON;
		else pMethod->dwAccess=pBaseMethod->dwAccess;

		//pobj_Inherits
		// ※継承元のClassIndexをセット（入れ子継承を考慮する）
		if(pBaseMethod->GetInheritsClassPtr()==0){
			pMethod->SetInheritsClassPtr( &inheritsInterface );
		}
		else{
			pMethod->SetInheritsClassPtr( pBaseMethod->GetInheritsClassPtr() );
		}

		methods.push_back( pMethod );
	}

	interfaces.push_back( InheritedInterface( const_cast<CClass *>(&inheritsInterface), vtbl_num ) );

	//仮想関数の数
	vtbl_num += inheritsInterface.vtbl_num;

	return true;
}
void CClass::AddMember( DWORD dwAccess, bool isConst, bool isRef, char *buffer ){
	ppobj_Member = (CMember **)HeapReAlloc( hHeap, 0, ppobj_Member, ( iMemberNum + 1 ) * sizeof(CMember *) );
	ppobj_Member[iMemberNum] = new CMember( this, dwAccess, isConst, isRef, buffer );
	iMemberNum++;
}
void CClass::AddStaticMember( DWORD dwAccess, bool isConst, bool isRef, char *buffer, int nowLine ){
	CMember *member = new CMember( this, dwAccess, isConst, isRef, buffer, nowLine );
	staticMembers.push_back( member );
}
BOOL CClass::DupliCheckAll(const char *name){
	//重複チェック

	//メンバ
	if(DupliCheckMember(name)) return 1;

	//メソッド
	foreach( const CMethod *pMethod, methods ){
		if( lstrcmp( name, pMethod->pUserProc->GetName().c_str() ) == 0 ){
			return 1;
		}
	}

	return 0;
}
BOOL CClass::DupliCheckMember(const char *name){
	//重複チェック

	//メンバ
	for( int i=0;i<iMemberNum;i++){
		if( GetName() == ppobj_Member[i]->GetName() ){
			return 1;
		}
	}

	//静的メンバ
	foreach( CMember *member, staticMembers ){
		if( GetName() == member->GetName() ){
			return 1;
		}
	}

	return 0;
}

//デフォルト コンストラクタ メソッドを取得
const CMethod *CClass::GetConstructorMethod() const
{
	if( ConstructorMemberSubIndex == -1 ) return NULL;
	return methods[ConstructorMemberSubIndex];
}

//デストラクタ メソッドを取得
const CMethod *CClass::GetDestructorMethod() const
{
	if( DestructorMemberSubIndex == -1 ) return NULL;
	return methods[DestructorMemberSubIndex];
}

//サイズを取得
int CClass::GetSize() const
{
	return GetMemberOffset( NULL, NULL );
}

//メンバのオフセットを取得
int CClass::GetMemberOffset( const char *memberName, int *pMemberNum ) const
{
	int i,i2,offset;

	//仮想関数が存在する場合は関数リストへのポインタのサイズを追加
	if(vtbl_num) offset=PTR_SIZE;
	else offset=0;

	int alignment;
	if(iAlign) alignment=iAlign;
	else alignment=1;

	int iMaxAlign=0;
	for(i=0;i<iMemberNum;i++){
		CMember *pMember = ppobj_Member[i];

		i2 = pMember->GetSize();

		//アラインメントを算出
		int member_size;
		if( pMember->IsStruct() ){
			//メンバクラスのアラインメントを取得
			member_size=pMember->GetClass().GetAlignment();
		}
		else{
			//メンバサイズを取得
			member_size=i2;
		}
		if(iMaxAlign<member_size) iMaxAlign=member_size;

		//アラインメントを考慮
		if(iAlign&&iAlign<member_size){
			if(offset%alignment) offset+=alignment-(offset%alignment);
		}
		else{
			if(alignment<member_size) alignment=member_size;

			if(member_size==0){
				//メンバを持たないクラス
				//※何もしない（オフセットの計算をしない）
			}
			else{
				if(offset%member_size) offset+=member_size-(offset%member_size);
			}
		}

		if(memberName){
			//メンバ指定がある場合は、オフセットを返す
			if( pMember->GetName() == memberName ){
				if(pMemberNum) *pMemberNum=i;
				return offset;
			}
		}

		//配列を考慮したメンバサイズを取得
		member_size=i2 * JumpSubScripts(pMember->SubScripts);

		//メンバサイズを加算
		offset+= member_size;
	}

	if(iMaxAlign<alignment) alignment=iMaxAlign;

	//アラインメントを考慮
	if(alignment){
		if(offset%alignment) offset+=alignment-(offset%alignment);
	}

	if(pMemberNum) *pMemberNum=i;
	return offset;
}

int CClass::GetAlignment() const
{
	int i;
	int alignment,member_size;

	if(vtbl_num) alignment=PTR_SIZE;
	else alignment=0;

	for(i=0;i<iMemberNum;i++){
		CMember *pMember = ppobj_Member[i];

		if(pMember->IsStruct()){
			//メンバクラスのアラインメントを取得
			member_size=pMember->GetClass().GetAlignment();
		}
		else{
			//メンバサイズを取得
			member_size = pMember->GetSize();
		}

		//アラインメントをセット
		if(alignment<member_size) alignment=member_size;
	}

	if(alignment==0) return 0;

	if(iAlign) alignment=iAlign;

	return alignment;
}



int CClass::GetFuncNumInVtbl( const UserProc *pUserProc ) const
{
	int n = 0;
	foreach( const CMethod *pMethod, methods ){
		if( pMethod->pUserProc == pUserProc ) break;
		if( pMethod->IsVirtual() ) n++;
	}
	return n;
}
LONG_PTR CClass::GetVtblGlobalOffset(void) const
{

	//既に存在する場合はそれを返す
	if(vtbl_offset!=-1) return vtbl_offset;



	//////////////////////////////////////
	// 存在しないときは新たに生成する
	//////////////////////////////////////

	UserProc **ppsi;
	ppsi=(UserProc **)HeapAlloc(hHeap,0,vtbl_num*sizeof(GlobalProc *));

	//関数テーブルに値をセット
	int i2 = 0;
	foreach( const CMethod *pMethod, methods ){
		if(pMethod->IsVirtual()){
			pMethod->pUserProc->Using();

			if(pMethod->IsAbstract()){
				extern int cp;
				SetError(300,NULL,cp);

				ppsi[i2]=0;
			}
			else{
				ppsi[i2]=pMethod->pUserProc;
			}
			i2++;
		}
	}

	vtbl_offset=dataTable.AddBinary((void *)ppsi,vtbl_num*sizeof(LONG_PTR));

	for( int i=0; i < vtbl_num; i++ ){
		pobj_Reloc->AddSchedule_DataSection(vtbl_offset+i*sizeof(LONG_PTR));
	}

	HeapDefaultFree(ppsi);

	return vtbl_offset;
}
void CClass::ActionVtblSchedule(LONG_PTR ImageBase, LONG_PTR MemPos_CodeSection){
	if(vtbl_offset==-1) return;

	LONG_PTR *pVtbl;
	pVtbl=(LONG_PTR *)((char *)dataTable.GetPtr()+vtbl_offset);

	int i;
	for(i=0;i<vtbl_num;i++){
		GlobalProc *pUserProc;
		pUserProc=(GlobalProc *)pVtbl[i];
		if(!pUserProc) continue;
		pVtbl[i]=pUserProc->beginOpAddress+ImageBase+MemPos_CodeSection;
	}
}
bool CClass::IsAbstract() const
{
	// 未実装(abstract)の仮想関数を持つ場合はtrueを返す

	foreach( const CMethod *pMethod, methods ){
		if(pMethod->IsVirtual()){
			if(pMethod->IsAbstract()){
				return true;
			}
		}
	}

	return false;
}

// コンストラクタのコンパイルを開始
void CClass::NotifyStartConstructorCompile() const
{
	isCompilingConstructor = true;
}

//コンストラクタのコンパイルを終了
void CClass::NotifyFinishConstructorCompile() const
{
	isCompilingConstructor = false;
}

//コンストラクタをコンパイル中かどうかを判別
bool CClass::IsCompilingConstructor() const
{
	return isCompilingConstructor;
}

//デストラクタのコンパイルを開始
void CClass::NotifyStartDestructorCompile() const{
	isCompilingDestructor = true;
}

//デストラクタのコンパイルを終了
void CClass::NotifyFinishDestructorCompile() const{
	isCompilingDestructor = false;
}

//デストラクタをコンパイル中かどうかを判別
bool CClass::IsCompilingDestructor() const
{
	return isCompilingDestructor;
}

//自身の派生クラスかどうかを確認
bool CClass::IsSubClass( const CClass *pClass ) const
{
	pClass = pClass->pobj_InheritsClass;
	while( pClass ){
		if( this == pClass ) return true;
		pClass = pClass->pobj_InheritsClass;
	}
	return false;
}

//自身と等しいまたは派生クラスかどうかを確認
bool CClass::IsEqualsOrSubClass( const CClass *pClass ) const
{
	if( IsEquals( pClass ) ) return true;
	return IsSubClass( pClass );
}

// 自身と等しいまたは派生クラス、基底クラスかどうかを確認
bool CClass::IsEqualsOrSubClassOrSuperClass( const CClass &objClass ) const
{
	if( IsEquals( &objClass ) ) return true;
	if( IsSubClass( &objClass ) ) return true;
	if( objClass.IsSubClass( this ) ) return true;
	return false;
}



int CDBClass::hash(const char *name) const{
	int key;

	for(key=0;*name!='\0';name++){
		key=((key<<8)+ *name )%MAX_CLASS_HASH;
	}

	return key;
}

void CDBClass::DestroyClass(CClass *pobj_c){
	if(pobj_c->pobj_NextClass){
		DestroyClass(pobj_c->pobj_NextClass);
	}

	delete pobj_c;
}

CDBClass::CDBClass():
	pStringClass( NULL ),
	pObjectClass( NULL ),
	pCompilingClass( NULL ),
	pCompilingMethod( NULL ),
	ppobj_IteClass( NULL ),
	iIteMaxNum( 0 ),
	iIteNextNum( 0 )
{
	memset( pobj_ClassHash, 0, MAX_CLASS_HASH * sizeof(CClass *) );
}
CDBClass::~CDBClass(){
	int i;
	for(i=0;i<MAX_CLASS_HASH;i++){
		if(pobj_ClassHash[i]) DestroyClass(pobj_ClassHash[i]);
	}

	if(ppobj_IteClass) HeapDefaultFree(ppobj_IteClass);
}

void CDBClass::ActionVtblSchedule(LONG_PTR ImageBase, LONG_PTR MemPos_CodeSection){
	int i;
	for(i=0;i<MAX_CLASS_HASH;i++){
		if(pobj_ClassHash[i]){
			CClass *pobj_c;
			pobj_c=pobj_ClassHash[i];
			while(1){
				pobj_c->ActionVtblSchedule(ImageBase,MemPos_CodeSection);

				if(pobj_c->pobj_NextClass==0) break;
				pobj_c=pobj_c->pobj_NextClass;
			}
		}
	}
}

const CClass *CDBClass::Find( const NamespaceScopes &namespaceScopes, const string &name ) const
{
	int key;
	key=hash(name.c_str());

	if( namespaceScopes.size() == 0 && name == "Object" ){
		return GetObjectClassPtr();
	}
	else if( namespaceScopes.size() == 0 && name == "String" ){
		return GetStringClassPtr();
	}

	if(pobj_ClassHash[key]){
		CClass *pobj_c;
		pobj_c=pobj_ClassHash[key];
		while(1){
			if( pobj_c->IsEqualSymbol( namespaceScopes, name ) ){
				//名前空間とクラス名が一致した
				return pobj_c;
			}

			if(pobj_c->pobj_NextClass==0) break;
			pobj_c=pobj_c->pobj_NextClass;
		}
	}

	// TypeDefも見る
	int index = Smoothie::Meta::typeDefs.GetIndex( namespaceScopes, name );
	if( index != -1 ){
		Type type = Smoothie::Meta::typeDefs[index].GetBaseType();
		if( type.IsObject() ){
			return &type.GetClass();
		}
	}

	return NULL;
}
const CClass *CDBClass::Find( const string &fullName ) const
{
	char AreaName[VN_SIZE] = "";		//オブジェクト変数
	char NestName[VN_SIZE] = "";		//入れ子メンバ
	bool isNest = SplitMemberName( fullName.c_str(), AreaName, NestName );

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

CClass *CDBClass::AddClass( const NamespaceScopes &namespaceScopes, const NamespaceScopesCollection &importedNamespaces, const char *name,int nowLine){
	//////////////////////////////////////////////////////////////////////////
	// クラスを追加
	// ※名前のみを登録。その他の情報はSetClassメソッドで！
	//////////////////////////////////////////////////////////////////////////

	CClass *pobj_c;
	pobj_c=new CClass(namespaceScopes, importedNamespaces, name);

	if(lstrcmp(name,"String")==0){
		//Stringクラス
		pStringClass=pobj_c;
	}
	if( lstrcmp( name, "Object" ) == 0 ){
		pObjectClass = pobj_c;
	}


	/////////////////////////////////
	// ハッシュデータに追加
	/////////////////////////////////

	int key;
	key=hash(name);

	if(pobj_ClassHash[key]){
		CClass *pobj_c2;
		pobj_c2=pobj_ClassHash[key];
		while(1){
			if( pobj_c2->IsEqualSymbol( namespaceScopes, name ) ){
				//名前空間及びクラス名が重複した場合
				SetError(15,name,nowLine);
				return 0;
			}

			if(pobj_c2->pobj_NextClass==0) break;
			pobj_c2=pobj_c2->pobj_NextClass;
		}
		pobj_c2->pobj_NextClass=pobj_c;
	}
	else{
		pobj_ClassHash[key]=pobj_c;
	}

	return pobj_c;	
}

void CDBClass::InitNames(void){
	extern char *basbuf;
	int i, i2;
	char temporary[VN_SIZE];

	// Blittable型管理オブジェクトを初期化
	Smoothie::Meta::blittableTypes.clear();

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

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

	for(i=0;;i++){
		if(basbuf[i]=='\0') break;

		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 ){
				SetError(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];
			}
			importedNamespaces.Imports( temporary );

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

		if(basbuf[i]==1&&(
			basbuf[i+1]==ESC_CLASS||
			basbuf[i+1]==ESC_TYPE||
			basbuf[i+1]==ESC_INTERFACE
			)){
				int nowLine;
				nowLine=i;

				i+=2;
				Type blittableType;
				if(memicmp(basbuf+i,"Align(",6)==0){
					//アラインメント修飾子
					i+=6;
					i=JumpStringInPare(basbuf,i)+1;
				}
				else if( memicmp( basbuf + i, "Blittable(", 10 ) == 0 ){
					// Blittable修飾子
					i+=10;
					i+=GetStringInPare_RemovePare(temporary,basbuf+i)+1;
					Type::StringToType( temporary, blittableType );
				}

				bool isEnum = false;
				if( basbuf[i] == 1 && basbuf[i+1] == ESC_ENUM ){
					// 列挙型の場合
					isEnum = true;

					i+=2;
				}

				int i2;
				char temporary[VN_SIZE];
				for(i2=0;;i++,i2++){
					if(!IsVariableChar(basbuf[i])){
						temporary[i2]=0;
						break;
					}
					temporary[i2]=basbuf[i];
				}

				//クラスを追加
				CClass *pClass = pobj_DBClass->AddClass(namespaceScopes, importedNamespaces, temporary,nowLine);
				if( pClass ){
					if( basbuf[nowLine+1] == ESC_CLASS ){
						if( isEnum ){
							pClass->classType = CClass::Enum;
						}
						else{
							pClass->classType = CClass::Class;
						}
					}
					else if( basbuf[nowLine+1] == ESC_INTERFACE ){
						pClass->classType = CClass::Interface;
					}
					else{
						pClass->classType = CClass::Structure;
					}
				}

				// Blittable型の場合
				if( !blittableType.IsNull() ){
					pClass->SetBlittableType( blittableType );

					// Blittable型として登録
					Smoothie::Meta::blittableTypes.push_back( BlittableType( blittableType, pClass ) );
				}
		}
	}
}


void CDBClass::AddMethod(CClass *pobj_c, DWORD dwAccess, BOOL bStatic, bool isConst, bool isAbstract,
						 bool isVirtual, bool isOverride, char *buffer, int nowLine){
	int i,i2;
	char temporary[VN_SIZE];

	i=2;
	for(i2=0;;i++,i2++){
		if(buffer[i]=='('||buffer[i]=='\0'){
			temporary[i2]=0;
			break;
		}
		temporary[i2]=buffer[i];
	}


	//関数ハッシュへ登録
	GlobalProc *pUserProc;
	pUserProc=AddSubData( NamespaceScopes(), NamespaceScopesCollection(), buffer,nowLine,isVirtual,pobj_c, (bStatic!=0) );
	if(!pUserProc) return;


	////////////////////////////////////////////////////////////
	// コンストラクタ、デストラクタの場合の処理
	////////////////////////////////////////////////////////////
	BOOL fConstructor=0,bDestructor=0;

	if(lstrcmp(temporary,pobj_c->GetName().c_str())==0){
		//コンストラクタの場合

		//標準コンストラクタ（引数なし）
		if(pUserProc->Params().size()==0) fConstructor=1;

		//強制的にConst修飾子をつける
		isConst = true;
	}
	else if(temporary[0]=='~'){
		//デストラクタの場合はその名前が正しいかチェックを行う
		if(lstrcmp(temporary+1,pobj_c->GetName().c_str())!=0)
			SetError(117,NULL,nowLine);
		else
			bDestructor=1;
	}
	if(fConstructor||bDestructor){
		// コンストラクタ、デストラクタのアクセシビリティをチェック

		//強制的にConst修飾子をつける
		isConst = true;
	}

	if( fConstructor == 1 )
		pobj_c->ConstructorMemberSubIndex = (int)pobj_c->methods.size();
	else if( bDestructor )
		pobj_c->DestructorMemberSubIndex = (int)pobj_c->methods.size();



	//////////////////
	// 重複チェック
	//////////////////

	if(pobj_c->DupliCheckMember(temporary)){
		SetError(15,temporary,nowLine);
		return;
	}

	//メソッド
	foreach( const CMethod *pMethod, pobj_c->methods ){
		//基底クラスと重複する場合はオーバーライドを行う
		if( pMethod->GetInheritsClassPtr() ) continue;

		if( pMethod->pUserProc->GetName() == temporary ){
			if( pMethod->pUserProc->Params().Equals( pUserProc->Params() ) ){
				//関数名、パラメータ属性が合致したとき
				SetError(15,pUserProc->GetName().c_str(),nowLine);
				return;
			}
		}
	}

	//仮想関数の場合
	if( isAbstract ) pUserProc->CompleteCompile();

	//メソッドのオーバーライド
	foreach( CMethod *pMethod, pobj_c->methods ){
		if( pMethod->pUserProc->GetName() == temporary ){
			if( pMethod->pUserProc->Params().Equals( pUserProc->Params() ) ){

				if(pMethod->IsVirtual()){
					//メンバ関数を上書き
					pMethod->pUserProc=pUserProc;
					pMethod->Override();

					if( !isOverride ){
						SetError(127,NULL,nowLine);
					}
					if(pMethod->dwAccess!=dwAccess){
						SetError(128,NULL,nowLine);
					}

					pUserProc->SetMethod( pMethod );
					return;
				}
			}
		}
	}

	if( isVirtual ){
		pobj_c->vtbl_num++;
	}

	if( isOverride ){
		SetError(12,"Override",nowLine);
	}

	if(bStatic){
		pobj_c->staticMethods.AddStatic(pUserProc,dwAccess);
	}
	else{
		pobj_c->methods.Add(pUserProc, dwAccess, isConst, isAbstract, isVirtual);
	}
}

BOOL CDBClass::MemberVar_LoopRefCheck(const CClass &objClass){
	int i,i2,bRet=1;
	for(i=0;i<objClass.iMemberNum;i++){
		const CMember *pMember = objClass.ppobj_Member[i];
		if(pMember->IsStruct()){
			//循環参照でないかをチェック
			if(pobj_LoopRefCheck->check(pMember->GetClass())){
				extern int cp;
				SetError(124,pMember->GetClass().GetName(),cp);
				return 0;
			}

			pobj_LoopRefCheck->add(objClass.GetName().c_str());

			i2=MemberVar_LoopRefCheck(pMember->GetClass());
			if(bRet==1) bRet=i2;

			pobj_LoopRefCheck->del(objClass.GetName().c_str());
		}
	}

	return bRet;
}

void CDBClass::GetClass_recur(const char *lpszInheritsClass){
	extern char *basbuf;
	int i,i2,i3,sub_address,top_pos;
	DWORD dwAccess;
	char temporary[8192];

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

	for(i=0;;i++){
		if(basbuf[i]=='\0') break;


		// 名前空間
		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 ){
				SetError(12, "End Namespace", i );
			}
			else{
				namespaceScopes.pop_back();
			}

			i += 2;
			continue;
		}



		if(basbuf[i]==1&&basbuf[i+1]==ESC_INTERFACE){
			//////////////////////////
			// インターフェイス
			//////////////////////////

			top_pos=i;

			i+=2;

			//インターフェイス名を取得
			GetIdentifierToken( temporary, basbuf, i );

			CClass *pobj_c = const_cast<CClass *>( pobj_DBClass->Find(namespaceScopes, temporary) );
			if(!pobj_c) continue;

			if(lpszInheritsClass){
				if(lstrcmp(lpszInheritsClass,pobj_c->GetName().c_str())!=0){
					//継承先先読み用
					continue;
				}
			}

			if(pobj_c->ppobj_Member){
				//既に先読みされているとき
				continue;
			}

			//メンバ用メモリを初期化
			pobj_c->ppobj_Member=(CMember **)HeapAlloc(hHeap,0,1);
			pobj_c->iMemberNum=0;

			pobj_c->ConstructorMemberSubIndex=-1;
			pobj_c->DestructorMemberSubIndex=-1;

			if(basbuf[i+1]==1&&basbuf[i+2]==ESC_INHERITS){
				//継承を行う場合
				for(i+=3,i2=0;;i++,i2++){
					if(IsCommandDelimitation(basbuf[i])){
						temporary[i2]=0;
						break;
					}
					temporary[i2]=basbuf[i];
				}

				if(lstrcmpi(temporary,pobj_c->GetName().c_str())==0){
					SetError(105,temporary,i);
					goto Interface_InheritsError;
				}

				//継承元クラスを取得
				const CClass *pInheritsClass = Find(temporary);
				if( !pInheritsClass ){
					SetError(106,temporary,i);
					goto Interface_InheritsError;
				}

				//継承させる
				if( !pobj_c->InheritsClass( *pInheritsClass, i ) ){
					goto Interface_InheritsError;
				}
			}
			else{
				//継承無し
				pobj_c->pobj_InheritsClass=0;

				//仮想関数の数を初期化
				pobj_c->vtbl_num=0;
			}
Interface_InheritsError:

			//メンバ変数、関数を取得
			while(1){
				i++;

				//エラー
				if(basbuf[i]==1&&(basbuf[i+1]==ESC_CLASS||basbuf[i+1]==ESC_TYPE||basbuf[i+1]==ESC_INTERFACE)){
					SetError(22,"Interface",i);
					i--;
					break;
				}

				if(basbuf[i]==1&&basbuf[i+1]==ESC_INHERITS){
					SetError(111,NULL,i);
					break;
				}

				sub_address=i;

				for(i2=0;;i++,i2++){
					if(IsCommandDelimitation(basbuf[i])){
						temporary[i2]=0;
						break;
					}
					temporary[i2]=basbuf[i];
				}
				if(temporary[0]=='\0'){
					if(basbuf[i]=='\0'){
						i--;
						SetError(22,"Interface",top_pos);
						break;
					}
					continue;
				}

				//End Interface記述の場合
				if(temporary[0]==1&&temporary[1]==ESC_ENDINTERFACE) break;

				if(!(temporary[0]==1&&(
					temporary[1]==ESC_SUB||temporary[1]==ESC_FUNCTION
					))){
					SetError(1,NULL,i);
					break;
				}

				//メンバ関数を追加
				AddMethod(pobj_c,
					ACCESS_PUBLIC,		//Publicアクセス権
					0,					//Static指定なし
					false,				//Constではない
					1,					//Abstract
					1,					//Virtual
					0,
					temporary,
					sub_address
					);
			}
		}

		if(basbuf[i]==1&&(basbuf[i+1]==ESC_CLASS||basbuf[i+1]==ESC_TYPE)){
			//////////////////////////
			// クラス
			//////////////////////////

			top_pos=i;

			const DWORD dwClassType=basbuf[i+1];

			i+=2;

			int iAlign=0;
			if(memicmp(basbuf+i,"Align(",6)==0){
				//アラインメント修飾子
				i+=6;
				i+=GetStringInPare_RemovePare(temporary,basbuf+i)+1;
				iAlign=atoi(temporary);

				if(!(iAlign==1||iAlign==2||iAlign==4||iAlign==8||iAlign==16))
					SetError(51,NULL,i);
			}
			else if( memicmp( basbuf + i, "Blittable(", 10 ) == 0 ){
				// Blittable修飾子
				i+=10;
				i=JumpStringInPare(basbuf,i)+1;
			}

			if( basbuf[i] == 1 && basbuf[i+1] == ESC_ENUM ){
				// 列挙型の場合
				i+=2;
			}

			//クラス名を取得
			GetIdentifierToken( temporary, basbuf, i );

			CClass *pobj_c =  const_cast<CClass *>( pobj_DBClass->Find(namespaceScopes, temporary) );
			if(!pobj_c) continue;

			if(lpszInheritsClass){
				if( pobj_c->GetName() != lpszInheritsClass ){
					//継承先先読み用
					continue;
				}
			}

			if(pobj_c->ppobj_Member){
				//既に先読みされているとき
				continue;
			}

			pobj_c->iAlign=iAlign;

			//メンバ用メモリを初期化
			pobj_c->ppobj_Member=(CMember **)HeapAlloc(hHeap,0,1);
			pobj_c->iMemberNum=0;

			pobj_c->ConstructorMemberSubIndex=-1;
			pobj_c->DestructorMemberSubIndex=-1;

			//アクセス制限の初期値をセット
			if(dwClassType==ESC_CLASS) dwAccess=ACCESS_PRIVATE;
			else dwAccess=ACCESS_PUBLIC;

			if( pobj_c->GetName() == "Object" || dwClassType == ESC_TYPE ){
				// 継承無し
				pobj_c->pobj_InheritsClass = NULL;

				// 仮想関数の数を初期化
				pobj_c->vtbl_num = 0;
			}
			else{
				bool isInherits = false;
				if(basbuf[i+1]==1&&basbuf[i+2]==ESC_INHERITS){
					//継承を行う場合
					isInherits = true;

					for(i+=3,i2=0;;i++,i2++){
						if(IsCommandDelimitation(basbuf[i])){
							temporary[i2]=0;
							break;
						}
						temporary[i2]=basbuf[i];
					}

					if(lstrcmpi(temporary,pobj_c->GetName().c_str())==0){
						SetError(105,temporary,i);
						goto InheritsError;
					}
				}

				if( !isInherits ){
					//Objectを継承する
					lstrcpy( temporary, "Object" );
				}

				pobj_c->Inherits( temporary, i );
			}
InheritsError:

			//メンバとメソッドを取得
			while(1){
				i++;

				//エラー
				if(basbuf[i]==1&&(basbuf[i+1]==ESC_CLASS||basbuf[i+1]==ESC_TYPE)){
					SetError(22,"Class",i);
					i--;
					break;
				}

				if(basbuf[i]==1&&basbuf[i+1]==ESC_INHERITS){
					SetError(111,NULL,i);
					break;
				}

				//Static修飾子
				BOOL bStatic;
				if(basbuf[i]==1&&basbuf[i+1]==ESC_STATIC){
					bStatic=1;
					i+=2;
				}
				else bStatic=0;

				//Const修飾子
				bool isConst = false;
				if( basbuf[i] == 1 && basbuf[i + 1] == ESC_CONST ){
					isConst = true;
					i += 2;
				}

				if(basbuf[i]==1&&(
					basbuf[i+1]==ESC_ABSTRACT||basbuf[i+1]==ESC_VIRTUAL||basbuf[i+1]==ESC_OVERRIDE||
					basbuf[i+1]==ESC_SUB||basbuf[i+1]==ESC_FUNCTION
					)){
					i3=basbuf[i+1];
					sub_address=i;
				}
				else i3=0;

				bool isVirtual = false, isAbstract = false, isOverride = false;
				if(i3==ESC_ABSTRACT){
					isAbstract=1;
					isVirtual=1;
					i+=2;

					i3=basbuf[i+1];
				}
				else if(i3==ESC_VIRTUAL){
					isAbstract=0;
					isVirtual=1;
					i+=2;

					i3=basbuf[i+1];
				}
				else if(i3==ESC_OVERRIDE){
					isOverride=1;
					isVirtual=1;

					i+=2;

					i3=basbuf[i+1];
				}

				for(i2=0;;i++,i2++){
					if(IsCommandDelimitation(basbuf[i])){
						temporary[i2]=0;
						break;
					}
					temporary[i2]=basbuf[i];
				}
				if(temporary[0]=='\0'){
					if(basbuf[i]=='\0'){

						if(dwClassType==ESC_CLASS)
							SetError(22,"Class",top_pos);
						else
							SetError(22,"Type",top_pos);

						i--;
						break;
					}
					continue;
				}

				//End Class記述の場合
				if(temporary[0]==1&&temporary[1]==ESC_ENDCLASS&&dwClassType==ESC_CLASS) break;
				if(temporary[0]==1&&temporary[1]==ESC_ENDTYPE&&dwClassType==ESC_TYPE) break;

				//アクセスを変更
				if(lstrcmpi(temporary,"Private")==0){
					dwAccess=ACCESS_PRIVATE;
					continue;
				}
				if(lstrcmpi(temporary,"Public")==0){
					dwAccess=ACCESS_PUBLIC;
					continue;
				}
				if(lstrcmpi(temporary,"Protected")==0){
					dwAccess=ACCESS_PROTECTED;
					continue;
				}

				extern int cp;
				if(i3==0){
					if(bStatic){
						//静的メンバを追加
						cp=i;	//エラー用
						pobj_c->AddStaticMember( dwAccess, isConst, false, temporary, i);
					}
					else{
						//メンバを追加
						cp=i;	//エラー用
						pobj_c->AddMember( dwAccess, isConst, false, temporary );


						if(pobj_c->ppobj_Member[pobj_c->iMemberNum-1]->IsStruct()){
							if(pobj_c->ppobj_Member[pobj_c->iMemberNum-1]->GetClass().ppobj_Member==0){
								//参照先が読み取られていないとき
								GetClass_recur(pobj_c->ppobj_Member[pobj_c->iMemberNum-1]->GetClass().GetName().c_str());
							}
						}


						if(pobj_c->ppobj_Member[pobj_c->iMemberNum-1]->IsStruct()){
							//循環参照のチェック
							pobj_LoopRefCheck->add(pobj_c->GetName().c_str());
							if(!MemberVar_LoopRefCheck(pobj_c->ppobj_Member[pobj_c->iMemberNum-1]->GetClass())){
								//エラー回避
								pobj_c->ppobj_Member[pobj_c->iMemberNum-1]->SetBasicType( DEF_PTR_VOID );
							}
							pobj_LoopRefCheck->del(pobj_c->GetName().c_str());
						}
					}
				}
				else{
					//メソッドを追加
					cp=i;	//エラー用
					AddMethod(pobj_c,
						dwAccess,
						bStatic,
						isConst,
						isAbstract,
						isVirtual,
						isOverride,
						temporary,
						sub_address);

					if( isAbstract ) continue;

					for(;;i++){
						if(basbuf[i]=='\0'){
							i--;
							break;
						}
						if(basbuf[i-1]!='*'&&
							basbuf[i]==1&&(
							basbuf[i+1]==ESC_SUB||
							basbuf[i+1]==ESC_FUNCTION||
							basbuf[i+1]==ESC_MACRO||
							basbuf[i+1]==ESC_TYPE||
							basbuf[i+1]==ESC_CLASS||
							basbuf[i+1]==ESC_INTERFACE||
							basbuf[i+1]==ESC_ENUM)){
							GetDefaultNameFromES(i3,temporary);
							SetError(22,temporary,i);
						}
						if(basbuf[i]==1&&basbuf[i+1]==GetEndXXXCommand((char)i3)){
							i+=2;
							break;
						}
					}
				}
			}
		}
	}
}

void CDBClass::GetAllClassInfo(void){
	//ループ継承チェック用のクラス
	pobj_LoopRefCheck=new CLoopRefCheck();

	//クラスを取得
	GetClass_recur(0);

	delete pobj_LoopRefCheck;
	pobj_LoopRefCheck=0;

	// イテレータ用のデータを作る
	pobj_DBClass->Iterator_Init();
}

void CDBClass::Compile_System_InitializeUserTypes(){
	char temporary[VN_SIZE];

	////////////////////////////////////////////////////////////////////
	// クラス登録
	////////////////////////////////////////////////////////////////////

	// イテレータをリセット
	Iterator_Reset();

	while( Iterator_HasNext() ){
		const CClass &objClass = *Iterator_GetNext();

		if( !objClass.IsUsing() ){
			// 未使用のクラスは無視する
			continue;
		}

		char referenceOffsetsBuffer[1024] = "";
		int numOfReference = 0;
		for( int i=0; i<objClass.iMemberNum; i++ ){
			CMember &member = *objClass.ppobj_Member[i];

			if( member.IsObject() || member.IsPointer() ){
				if( referenceOffsetsBuffer[0] ){
					lstrcat( referenceOffsetsBuffer, "," );
				}

				sprintf( referenceOffsetsBuffer + lstrlen( referenceOffsetsBuffer ),
					"%d",
					objClass.GetMemberOffset( member.GetName().c_str() ) );

				numOfReference++;
			}
		}

		sprintf( temporary
			, "Add(%c%c_System_TypeForClass(\"%s\",\"%s\",[%s],%d))"
			, 1
			, ESC_NEW
			, ""							// 名前空間 (TODO: 実装)
			, objClass.GetName().c_str()	// クラス名
			, referenceOffsetsBuffer		// 参照メンバオフセット配列
			, numOfReference				// 参照メンバの個数
			);

		// コンパイル
		ChangeOpcode( temporary );

		// ネイティブコードバッファの再確保
		ReallocNativeCodeBuffer();
	}


	////////////////////////////////////////////////////////////////////
	// 基底クラスを登録
	////////////////////////////////////////////////////////////////////

	sprintf(temporary, "%c%ctempType=Nothing%c%cTypeBaseImpl"
		, HIBYTE( COM_DIM )
		, LOBYTE( COM_DIM )
		, 1
		, ESC_AS
		);
	ChangeOpcode( temporary );

	// イテレータをリセット
	Iterator_Reset();

	while( Iterator_HasNext() ){
		const CClass &objClass = *Iterator_GetNext();

		if( !objClass.IsUsing() ){
			// 未使用のクラスは無視する
			continue;
		}

		if( objClass.pobj_InheritsClass ){
			sprintf( temporary
				, "tempType=Search(\"%s\",\"%s\")"
				, ""							// 名前空間 (TODO: 実装)
				, objClass.GetName().c_str()	// クラス名
				);

			// コンパイル
			ChangeOpcode( temporary );

			sprintf( temporary
				, "tempType.SetBaseType(Search(\"%s\",\"%s\"))"
				, ""								// 名前空間 (TODO: 実装)
				, objClass.pobj_InheritsClass->GetName().c_str()	// 基底クラス名
				);

			// コンパイル
			ChangeOpcode( temporary );
		}

		// ネイティブコードバッファの再確保
		ReallocNativeCodeBuffer();
	}



	////////////////////////////////////////////////////////////////////
	// 継承関係登録
	////////////////////////////////////////////////////////////////////
	// TODO: 未完成
	/*

	// イテレータをリセット
	Iterator_Reset();

	while( Iterator_HasNext() ){
		CClass *pClass = Iterator_GetNext();

		sprintf( genBuffer + length
			, "obj.Search( \"%s\" ).SetBaseType( Search( \"%s\" ) ):"
			, ""				// クラス名
			, pClass->name		// クラス名
			);
		length += lstrlen( genBuffer + length );

		while( length + 8192 > max ){
			max += 8192;
			genBuffer = (char *)realloc( genBuffer, max );
		}
	}*/
}



CClass *CDBClass::GetStringClassPtr() const
{
	if( !pStringClass ){
		SetError();
		return NULL;
	}
	return pStringClass;
}
CClass *CDBClass::GetObjectClassPtr() const
{
	if( !pObjectClass ){
		SetError();
		return NULL;
	}
	return pObjectClass;
}

void CDBClass::StartCompile( UserProc *pUserProc ){
	pCompilingClass = pUserProc->GetParentClassPtr();
	if( pCompilingClass ){
		pCompilingClass->Using();

		pCompilingMethod = pCompilingClass->methods.GetMethodPtr( pUserProc );
		if( !pCompilingMethod ){
			pCompilingMethod = pCompilingClass->staticMethods.GetMethodPtr( pUserProc );
			if( !pCompilingMethod ){
				SetError(300,NULL,cp);
			}
		}
	}
	else{
		pCompilingMethod = NULL;
	}
}
const CClass *CDBClass::GetNowCompilingClass() const
{
	return pCompilingClass;
}
const CMethod *CDBClass::GetNowCompilingMethodInfo(){
	return pCompilingMethod;
}




//////////////////////
// イテレータ
//////////////////////

void CDBClass::Iterator_Init(void){
	if(ppobj_IteClass) HeapDefaultFree(ppobj_IteClass);

	iIteMaxNum=0;
	iIteNextNum=0;
	ppobj_IteClass=(CClass **)HeapAlloc(hHeap,0,1);

	int i;
	for(i=0;i<MAX_CLASS_HASH;i++){
		if(pobj_ClassHash[i]){
			CClass *pobj_c;
			pobj_c=pobj_ClassHash[i];
			while(1){
				ppobj_IteClass=(CClass **)HeapReAlloc(hHeap,0,ppobj_IteClass,(iIteMaxNum+1)*sizeof(CClass *));
				ppobj_IteClass[iIteMaxNum]=pobj_c;
				iIteMaxNum++;

				if(pobj_c->pobj_NextClass==0) break;
				pobj_c=pobj_c->pobj_NextClass;
			}
		}
	}
}
void CDBClass::Iterator_Reset(void){
	iIteNextNum = 0;
}
BOOL CDBClass::Iterator_HasNext(void){
	if(iIteNextNum<iIteMaxNum) return 1;
	return 0;
}
CClass *CDBClass::Iterator_GetNext(void){
	CClass *pobj_c;
	pobj_c=ppobj_IteClass[iIteNextNum];
	iIteNextNum++;
	return pobj_c;
}
int CDBClass::Iterator_GetMaxCount(void){
	return iIteMaxNum;
}