#include "stdafx.h"

#include "Common.h"

#if defined(JPN)
//日本語
#include "pj_msg_jpn.h"
#else
//英語
#include "pj_msg_eng.h"
#endif


CClassInfo::CClassInfo(){
	pMemberInfo=(MEMBERINFO *)HeapAlloc(hHeap,0,1);
	MemberNum=0;
}
CClassInfo::~CClassInfo(){
	int i;
	for(i=0;i<MemberNum;i++){
		HeapDefaultFree(pMemberInfo[i].pName);
	}
	HeapDefaultFree(pMemberInfo);
}

int CClassInfo::Analyze(char *pBuf,int *p){
	int i,i2;
	char temporary[VN_SIZE];

	i=*p;

	DWORD dwAccess;

	//種類を取得
	DWORD dwClassType;
	if(memicmp(pBuf+i,"Class",5)==0){
		dwClassType=ESC_CLASS;
		i+=5;

		dwAccess=ACCESS_PRIVATE;
	}
	else if(memicmp(pBuf+i,"Type",4)==0){
		dwClassType=ESC_TYPE;
		i+=4;

		dwAccess=ACCESS_PUBLIC;
	}
	else if(memicmp(pBuf+i,"Interface",9)==0){
		dwClassType=ESC_INTERFACE;
		i+=9;

		dwAccess=ACCESS_PUBLIC;
	}
	else return 0;
	JumpBlank(pBuf,&i);


	//クラス名を取得
	for(i2=0;;i++,i2++){
		if(!(IsVariableChar(pBuf[i])||pBuf[i]=='~')){
			ClassName[i2]=0;
			break;
		}
		ClassName[i2]=pBuf[i];
	}
	JumpBlank(pBuf,&i);


	//メンバ変数、関数を取得
	while(1){
		if(pBuf[i]=='\0') break;
		if(memicmp(pBuf+i,"End",3)==0){
			/*	End Class
				End Type
				の検出 */
			i2=i+3;
			while(pBuf[i2]==' '||pBuf[i2]=='\t') i2++;

			if(memicmp(pBuf+i2,"Class",5)==0&&(!IsVariableChar(pBuf[i2+5]))||
				memicmp(pBuf+i2,"Interface",9)==0&&(!IsVariableChar(pBuf[i2+9]))||
				memicmp(pBuf+i2,"Type",4)==0&&(!IsVariableChar(pBuf[i2+4]))){
				while(!IsCommandDelimitation(pBuf,i2)) i2++;
				i=i2;
				break;
			}
		}

		// Static/Constを飛ばす
		if( memicmp(pBuf+i,"Static",6)==0 ){
			// Static
			i+=6;
			while(pBuf[i]==' '||pBuf[i]=='\t') i++;
		}
		if(pBuf[i]=='c'||pBuf[i]=='C'){
			// Const
			i+=5;
			while(pBuf[i]==' '||pBuf[i]=='\t') i++;
		}

		DWORD dwProc;
		if(memicmp(pBuf+i,"Abstract",8)==0&&(pBuf[i+8]==' '||pBuf[i+8]=='\t')||
			memicmp(pBuf+i,"Virtual",7)==0&&(pBuf[i+7]==' '||pBuf[i+7]=='\t')||
			memicmp(pBuf+i,"Override",8)==0&&(pBuf[i+8]==' '||pBuf[i+8]=='\t')||
			memicmp(pBuf+i,"Function",8)==0&&(pBuf[i+8]==' '||pBuf[i+8]=='\t')||
			memicmp(pBuf+i,"Sub",3)==0&&(pBuf[i+3]==' '||pBuf[i+3]=='\t')){
			//メンバ関数のとき

			if(pBuf[i]=='a'||pBuf[i]=='A'){
				i+=9;
				dwProc=ESC_ABSTRACT;

				while(pBuf[i]==' '||pBuf[i]=='\t') i++;
				if(memicmp(pBuf+i,"Function",8)==0&&(pBuf[i+8]==' '||pBuf[i+8]=='\t')) i+=9;
				else if(memicmp(pBuf+i,"Sub",3)==0&&(pBuf[i+3]==' '||pBuf[i+3]=='\t')) i+=4;
			}
			else if(pBuf[i]=='v'||pBuf[i]=='V'){
				i+=8;
				dwProc=ESC_VIRTUAL;

				while(pBuf[i]==' '||pBuf[i]=='\t') i++;
				if(memicmp(pBuf+i,"Function",8)==0&&(pBuf[i+8]==' '||pBuf[i+8]=='\t')) i+=9;
				else if(memicmp(pBuf+i,"Sub",3)==0&&(pBuf[i+3]==' '||pBuf[i+3]=='\t')) i+=4;
			}
			else if(pBuf[i]=='o'||pBuf[i]=='O'){
				i+=9;
				dwProc=ESC_OVERRIDE;

				while(pBuf[i]==' '||pBuf[i]=='\t') i++;
				if(memicmp(pBuf+i,"Function",8)==0&&(pBuf[i+8]==' '||pBuf[i+8]=='\t')) i+=9;
				else if(memicmp(pBuf+i,"Sub",3)==0&&(pBuf[i+3]==' '||pBuf[i+3]=='\t')) i+=4;
			}
			else if(pBuf[i]=='f'||pBuf[i]=='F'){
				i+=9;
				dwProc=ESC_FUNCTION;
			}
			else if(pBuf[i]=='s'||pBuf[i]=='S'){
				i+=4;
				dwProc=ESC_SUB;
			}

			while(pBuf[i]==' '||pBuf[i]=='\t') i++;
		}
		else{
			//メンバ変数のとき
			dwProc=0;
		}

		int code_pos;
		code_pos=i;

		//変数名または関数名を取得
		if(pBuf[i]=='~'){
			temporary[0]='~';
			i2=1;
			i++;
		}
		else i2=0;
		for(;;i++,i2++){
			if(!IsVariableChar(pBuf[i])){
				temporary[i2]=0;
				break;
			}
			temporary[i2]=pBuf[i];
		}

		//次の行をサーチ
		for(;;i++){
			if(pBuf[i]=='\0') break;
			if(pBuf[i]=='\''||(pBuf[i]=='/'&&pBuf[i+1]=='*')){
				//コメント中
				JumpBlank(pBuf,&i);
				break;
			}
			i2=IsCommandDelimitation(pBuf,i);
			if(i2){
				i+=i2;
				break;
			}
		}
		JumpBlank(pBuf,&i);

		if(lstrcmpi(temporary,"Inherits")==0){
			//継承指定の場合（ツリーに反映すべきデータはないので無視する）
			continue;
		}

		//アクセスを変更
		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;
		}

		//重複チェック（オーバーライド関数を考慮）
		for(i2=0;i2<MemberNum;i2++){
			if(lstrcmp(pMemberInfo[i2].pName,temporary)==0){
				lstrcat(temporary," ");
				break;
			}
		}

		pMemberInfo=
			(MEMBERINFO *)HeapReAlloc(hHeap,
				0,
				pMemberInfo,
				(MemberNum+1)*sizeof(MEMBERINFO));

		//メンバ名
		pMemberInfo[MemberNum].pName=
			(char *)HeapAlloc(hHeap,0,lstrlen(temporary)+1);
		lstrcpy(pMemberInfo[MemberNum].pName,
			temporary);

		//メンバの種類（変数、Virtual、Sub、Function）
		pMemberInfo[MemberNum].dwProc=dwProc;

		//アクセシビリティ
		pMemberInfo[MemberNum].dwAccess=dwAccess;

		//コードの位置
		pMemberInfo[MemberNum].code_pos=code_pos;

		MemberNum++;

		if(dwProc){
			//Abstract定義以外はEnd Sub、End Functionをサーチする
			if(dwProc==ESC_ABSTRACT) continue;
			if(dwClassType==ESC_INTERFACE) continue;

			while(1){
				if(pBuf[i]=='\0'){
					i2=0;
					break;
				}

				if(memicmp(pBuf+i,"End",3)==0){
					/*	End Sub
						End Function
						の検出 */
					i+=3;
					while(pBuf[i]==' '||pBuf[i]=='\t') i++;

					if(memicmp(pBuf+i,"Sub",3)==0&&(!IsVariableChar(pBuf[i+3]))||
						memicmp(pBuf+i,"Function",8)==0&&(!IsVariableChar(pBuf[i+8]))){
						i2=1;
						break;
					}

					if(memicmp(pBuf+i,"Class",5)==0&&(!IsVariableChar(pBuf[i+5]))||
						memicmp(pBuf+i,"Interface",9)==0&&(!IsVariableChar(pBuf[i+9]))||
						memicmp(pBuf+i,"Type",4)==0&&(!IsVariableChar(pBuf[i+4]))){
						i2=0;
						break;
					}
				}

				//次の行をサーチ
				for(;;i++){
					if(pBuf[i]=='\0') break;
					i2=IsCommandDelimitation(pBuf,i);
					if(i2){
						i+=i2;
						break;
					}
				}
				JumpBlank(pBuf,&i);
			}

			if(i2==0){
				//コード解析が不正に終了
				*p=i;
				return 0;
			}

			//次の行をサーチ
			for(;;i++){
				if(pBuf[i]=='\0') break;
				i2=IsCommandDelimitation(pBuf,i);
				if(i2){
					i+=i2;
					break;
				}
			}
			JumpBlank(pBuf,&i);
		}
	}

	*p=i;

	return 1;
}