#include "../BasicCompiler_Common/common.h"

void KillSpaces(char *str1,char *str2){
	int i,i2,i3,IsStr;
	for(i=0,i2=0,IsStr=0;;i++,i2++){
		if((str1[i]==' '||str1[i]=='\t')&&IsStr==0){
			i3=i+1;
			while(str1[i3]==' '||str1[i3]=='\t') i3++;
			if(i!=0){
				if(i==1){
					if(IsVariableChar(str1[i-1])&&
						IsVariableChar(str1[i3])){
						//識別子間にある省略すべきでない空白
						str2[i2++]=' ';
					}
				}
				else{
					if(str1[i-2]!=1&&IsVariableChar(str1[i-1])&&
						IsVariableChar(str1[i3])){
						//識別子間にある省略すべきでない空白
						str2[i2++]=' ';
					}
				}
			}
			i=i3;
		}
		if(str1[i]=='\"') IsStr^=1;
		str2[i2]=str1[i];
		if(str1[i]=='\0') break;
	}
}
void KillStringSpaces(char *str){
	char *s2;

	extern HANDLE hHeap;
	s2=(char *)HeapAlloc(hHeap,0,lstrlen(str)+1);
	lstrcpy(s2,str);
	KillSpaces(s2,str);
	HeapDefaultFree(s2);
	return;
}
BOOL RemoveStringQuotes(char *str){
	int i;
	if(str[0]!='\"') return 0;
	for(i=0;;i++){
		str[i]=str[i+1];
		if(str[i]=='\"') break;
	}
	str[i]=0;
	if(str[i+2]!='\0') return 0;
	return 1;
}
void RemoveStringPare(char *str){
	int i;
	i=lstrlen(str);
	if(str[0]!='('||str[i-1]!=')') return;
	SlideString(str+1,-1);
	str[i-2]=0;
}
void RemoveStringBracket(char *str){
	int i;
	i=lstrlen(str);
	if(str[0]!='['||str[i-1]!=']') return;
	SlideString(str+1,-1);
	str[i-2]=0;
}
void SetStringQuotes(char *str){
	int i;
	if(str[0]=='\"') return;
	i=lstrlen(str);
	SlideString(str,1);
	str[0]='\"';
	str[i+1]='\"';
	str[i+2]=0;
}
int FormatString_EscapeSequence(char *buffer){
	int i2,i3,i4;

	for(i2=0,i3=0;;i2++,i3++){
		if(IsDBCSLeadByte(buffer[i3])){
			buffer[i2++]=buffer[i3++];
			buffer[i2]=buffer[i3];
			if(buffer[i3]=='\0') break;
			continue;
		}
		if(buffer[i3]=='\\'){
			switch(buffer[i3+1]){
				case '\\':
					buffer[i2]='\\';
					i3++;
					break;
				case '0':
					buffer[i2]='\0';
					i3++;
					break;
				case 'n':
					buffer[i2]='\n';
					i3++;
					break;
				case 'q':
					buffer[i2]='\"';
					i3++;
					break;
				case 'r':
					buffer[i2]='\r';
					i3++;
					break;
				case 't':
					buffer[i2]='\t';
					i3++;
					break;
				case 'x':
					//16進表記
					char temporary[8];
					temporary[0]=buffer[i3+2];
					temporary[1]=buffer[i3+3];
					temporary[2]=0;
					CharUpper(temporary);

					i4=temporary[0]-0x30;
					if(i4<0||9<i4){
						i4=temporary[0]-0x41+10;
						if(i4<0xA||0xF<i4){
							buffer[i2]=buffer[i3];
							break;
						}
					}
					temporary[0]=i4;

					i4=temporary[1]-0x30;
					if(i4<0||9<i4){
						i4=temporary[1]-0x41+10;
						if(i4<0xA||0xF<i4){
							buffer[i2]=buffer[i3];
							break;
						}
					}
					temporary[1]=i4;

					buffer[i2]=temporary[0]*0x10+temporary[1];
					i3+=3;
					break;
				default:
					buffer[i2]=buffer[i3];
					break;
			}
		}
		else{
			buffer[i2]=buffer[i3];
			if(buffer[i3]=='\0') break;
		}
	}
	return i2;
}
void SlideString(char *buffer, int slide){
	char *temp;
	temp=(char *)malloc(lstrlen(buffer)+1);
	lstrcpy(temp,buffer);
	lstrcpy(buffer+slide,temp);
	free(temp);
}
void SlideBuffer(char *buffer,int length,int slide){
	void *temp;
	temp=malloc(length+1);
	memcpy(temp,buffer,length);
	memcpy(buffer+slide,temp,length);
	free(temp);
}
_int8 IsCommandDelimitation(char c){
	if(c=='\n'||c==':'||c=='\0') return 1;
	return 0;
}
BOOL IsBlank(char c){
	if(c==' '||c=='\t') return 1;
	return 0;
}
int GetOneParameter(char *Parameter,int pos,char *retAns){
	int i,i2,i3,IsStr;
	for(i=pos,i2=0,IsStr=0;;i++,i2++){
		if(Parameter[i]=='\"') IsStr^=1;
		else if(Parameter[i]=='('&&IsStr==0){
			i3=GetStringInPare(retAns+i2,Parameter+i);
			i+=i3-1;
			i2+=i3-1;
			continue;
		}
		else if(Parameter[i]=='['&&IsStr==0){
			i3=GetStringInBracket(retAns+i2,Parameter+i);
			i+=i3-1;
			i2+=i3-1;
			continue;
		}
		else if(Parameter[i]==','&&IsStr==0){
			retAns[i2]=0;
			i++;
			break;
		}
		retAns[i2]=Parameter[i];
		if(IsCommandDelimitation(Parameter[i])&&IsStr==0){
			retAns[i2]=0;
			break;
		}
	}
	return i;
}
int JumpOneParameter(char *Parameter,int i){
	int i2,IsStr;
	for(i2=0,IsStr=0;;i++,i2++){
		if(Parameter[i]=='\"') IsStr^=1;
		else if(Parameter[i]=='('&&IsStr==0){
			i=JumpStringInPare(Parameter,i+1);
			continue;
		}
		else if(Parameter[i]=='['&&IsStr==0){
			i=JumpStringInBracket(Parameter,i+1);
			continue;
		}
		else if(Parameter[i]==','&&IsStr==0){
			i++;
			break;
		}
		if(IsCommandDelimitation(Parameter[i])) break;
	}
	return i;
}
int GetStringInQuotation(char *buffer,char *ReadBuffer){
	int i;

	if(ReadBuffer[0]=='\"'){
		buffer[0]=ReadBuffer[0];
		i=1;
	}
	else i=0;

	for(;;i++){
		buffer[i]=ReadBuffer[i];
		if(IsDBCSLeadByte(ReadBuffer[i])){
			i++;
			buffer[i]=ReadBuffer[i];
			continue;
		}
		if(ReadBuffer[i]=='\"'){
			i++;
			buffer[i]=0;
			break;
		}
		if(ReadBuffer[i]=='\0') return 0;
	}
	return i;
}
int GetStringInPare(char *buffer,const char *ReadBuffer){
	int i,IsStr,PareNum;
	for(i=0,IsStr=0,PareNum=0;;i++){
		buffer[i]=ReadBuffer[i];
		if(IsDBCSLeadByte(ReadBuffer[i])){
			i++;
			buffer[i]=ReadBuffer[i];
			continue;
		}
		if(ReadBuffer[i]=='\"') IsStr^=1;
		else if(ReadBuffer[i]=='('&&IsStr==0) PareNum++;
		else if(ReadBuffer[i]==')'&&IsStr==0){
			PareNum--;
			if(PareNum==0){
				i++;
				buffer[i]=0;
				break;
			}
		}
		else if(ReadBuffer[i]=='\0') return 0;
	}
	return i;
}
int GetStringInPare_RemovePare(char *buffer,char *ReadBuffer){
	int i,IsStr,PareNum;
	for(i=0,IsStr=0,PareNum=1;;i++){
		buffer[i]=ReadBuffer[i];
		if(IsDBCSLeadByte(ReadBuffer[i])){
			i++;
			buffer[i]=ReadBuffer[i];
			continue;
		}
		if(ReadBuffer[i]=='\"') IsStr^=1;
		else if(ReadBuffer[i]=='('&&IsStr==0) PareNum++;
		else if(ReadBuffer[i]==')'&&IsStr==0){
			PareNum--;
			if(PareNum==0){
				buffer[i]=0;
				break;
			}
		}
		else if(ReadBuffer[i]=='\0') return 0;
	}
	return i;
}
int GetStringInBracket(char *buffer,const char *ReadBuffer){
	int i,IsStr,PareNum;
	for(i=0,IsStr=0,PareNum=0;;i++){
		buffer[i]=ReadBuffer[i];
		if(IsDBCSLeadByte(ReadBuffer[i])){
			i++;
			buffer[i]=ReadBuffer[i];
			continue;
		}
		if(ReadBuffer[i]=='\"') IsStr^=1;
		else if(ReadBuffer[i]=='['&&IsStr==0) PareNum++;
		else if(ReadBuffer[i]==']'&&IsStr==0){
			PareNum--;
			if(PareNum==0){
				i++;
				buffer[i]=0;
				break;
			}
		}
		else if(ReadBuffer[i]=='\0') return 0;
	}
	return i;
}
int JumpStringInPare(char *buffer,int pos){
	int PareNum;
	for(PareNum=1;;pos++){
		if(buffer[pos]=='\"'){
			for(pos++;;pos++){
				if(buffer[pos]=='\"') break;
			}
			continue;
		}
		else if(buffer[pos]=='(') PareNum++;
		else if(buffer[pos]==')'){
			PareNum--;
			if(PareNum==0) return pos;
		}
		else if(buffer[pos]=='\0') break;
	}
	return 0;
}
int JumpStringInBracket(char *buffer,int pos){
	int PareNum;
	for(PareNum=1;;pos++){
		if(buffer[pos]=='\"'){
			for(pos++;;pos++){
				if(buffer[pos]=='\"') break;
			}
			continue;
		}
		else if(buffer[pos]=='[') PareNum++;
		else if(buffer[pos]==']'){
			PareNum--;
			if(PareNum==0) return pos;
		}
		else if(buffer[pos]=='\0') break;
	}
	return 0;
}

int GetCpFromLine(int LineNum){
	extern char *basbuf;

	int i,nCount=0;
	for(i=0;;i++){
		if(basbuf[i]=='\n'){
			nCount++;
			if(LineNum==nCount){
				for(i++;;i++){
					if(IsCommandDelimitation(basbuf[i])) break;
				}
				return i;
			}
		}
	}
}
BOOL GetLineNum(int pos,int *pLine,char *FileName){
	extern INCLUDEFILEINFO IncludeFileInfo;
	extern char *basbuf;
	int i,i2,i3,i4,i5;

	i=pos;
	if(basbuf[i]=='\n') i--;
	for(i3=0,i2=0;i3<i;i3++){
		if(basbuf[i3]=='\n') i2++;
		if(basbuf[i3]=='\0') return 0;
	}
	i4=0;
	while(IncludeFileInfo.LineOfFile[i2]!=IncludeFileInfo.LineOfFile[i4]) i4++;
	for(i3=0,i5=0;i5<i4;i3++){
		if(basbuf[i3]=='\n') i5++;
		if(basbuf[i3]=='\0') return 0;
	}
	for(i5=0;i4<i2;i3++){
		if(basbuf[i3]=='\n'){
			i4++;
			i5++;
			if(IncludeFileInfo.LineOfFile[i2]<IncludeFileInfo.LineOfFile[i4]){
				for(;IncludeFileInfo.LineOfFile[i2]!=IncludeFileInfo.LineOfFile[i4];i3++){
					if(basbuf[i3]=='\n') i4++;
				}
			}
		}
		if(basbuf[i3]=='\0') return 0;
	}

	if(IncludeFileInfo.LineOfFile[i2]==-1){
		//ファイル・行番号を特定できなかった場合
		*pLine=-1;
		FileName[0]=0;
	}
	else{
		//行番号をセット
		*pLine=i5;

		//ファイル名をセット
		lstrcpy(FileName,IncludeFileInfo.ppFileNames[IncludeFileInfo.LineOfFile[i2]]);
	}

	return 1;
}

char GetEndXXXCommand(char es){
	switch(es){
		case ESC_SUB:
			return ESC_ENDSUB;
		case ESC_FUNCTION:
			return ESC_ENDFUNCTION;
		case ESC_MACRO:
			return ESC_ENDMACRO;
		case ESC_TYPE:
			return ESC_ENDTYPE;
		case ESC_CLASS:
			return ESC_ENDCLASS;
		case ESC_INTERFACE:
			return ESC_ENDINTERFACE;
		case ESC_ENUM:
			return ESC_ENDENUM;
	}
	return 0;
}
void GetDefaultNameFromES(char es,char *name){
	name[0]=0;
	switch(es){
		case ESC_PSMEM:
			lstrcpy(name,"->");
			break;
		case ESC_MOD:
			lstrcpy(name,"Mod");
			break;
		case ESC_AND:
			lstrcpy(name,"And");
			break;
		case ESC_OR:
			lstrcpy(name,"Or");
			break;
		case ESC_XOR:
			lstrcpy(name,"Xor");
			break;
		case ESC_NOT:
			lstrcpy(name,"Not");
			break;
		case ESC_AS:
			lstrcpy(name,"As");
			break;
		case ESC_THEN:
			lstrcpy(name,"Then");
			break;
		case ESC_ELSE:
			lstrcpy(name,"Else");
			break;
		case ESC_IF:
			lstrcpy(name,"If");
			break;
		case ESC_ELSEIF:
			lstrcpy(name,"ElseIf");
			break;
		case ESC_ENDIF:
			lstrcpy(name,"End If");
			break;
		case ESC_DEF:
			lstrcpy(name,"Def");
			break;
		case ESC_DECLARE:
			lstrcpy(name,"Declare");
			break;
		case ESC_ABSTRACT:
			lstrcpy(name,"Abstract");
			break;
		case ESC_VIRTUAL:
			lstrcpy(name,"Virtual");
			break;
		case ESC_OVERRIDE:
			lstrcpy(name,"Override");
			break;
		case ESC_SUB:
			lstrcpy(name,"Sub");
			break;
		case ESC_ENDSUB:
			lstrcpy(name,"End Sub");
			break;
		case ESC_EXITSUB:
			lstrcpy(name,"Exit Sub");
			break;
		case ESC_FUNCTION:
			lstrcpy(name,"Function");
			break;
		case ESC_ENDFUNCTION:
			lstrcpy(name,"End Function");
			break;
		case ESC_EXITFUNCTION:
			lstrcpy(name,"Exit Function");
			break;
		case ESC_BYVAL:
			lstrcpy(name,"ByVal ");
			break;
		case ESC_BYREF:
			lstrcpy(name,"ByRef ");
			break;
		case ESC_TYPE:
			lstrcpy(name,"Type");
			break;
		case ESC_ENDTYPE:
			lstrcpy(name,"End Type");
			break;
		case ESC_EXITFOR:
			lstrcpy(name,"Exit For");
			break;
		case ESC_EXITWHILE:
			lstrcpy(name,"Exit While");
			break;
		case ESC_EXITDO:
			lstrcpy(name,"Exit Do");
			break;
		case ESC_SELECTCASE:
			lstrcpy(name,"Select Case");
			break;
		case ESC_CASE:
			lstrcpy(name,"Case");
			break;
		case ESC_CASEELSE:
			lstrcpy(name,"Case Else");
			break;
		case ESC_ENDSELECT:
			lstrcpy(name,"End Select");
			break;
		case ESC_CONST:
			lstrcpy(name,"Const");
			break;
		case ESC_TYPEDEF:
			lstrcpy(name,"TypeDef");
			break;
		case ESC_WITH:
			lstrcpy(name,"With");
			break;
		case ESC_ENDWITH:
			lstrcpy(name,"End With");
			break;
		case ESC_CDECL:
			lstrcpy(name,"cdecl");
			break;
		case ESC_MACRO:
			lstrcpy(name,"Macro");
			break;
		case ESC_ENDMACRO:
			lstrcpy(name,"End Macro");
			break;
		case ESC_EXITMACRO:
			lstrcpy(name,"Exit Macro");
			break;
		case ESC_EXPORT:
			lstrcpy(name,"Export");
			break;
		case ESC_CONTINUE:
			lstrcpy(name,"Continue");
			break;
		case ESC_CLASS:
			lstrcpy(name,"Class");
			break;
		case ESC_ENDCLASS:
			lstrcpy(name,"End Class");
			break;
		case ESC_INTERFACE:
			lstrcpy(name,"Interface");
			break;
		case ESC_ENDINTERFACE:
			lstrcpy(name,"End Interface");
			break;
		case ESC_ENUM:
			lstrcpy(name,"Enum");
			break;
		case ESC_ENDENUM:
			lstrcpy(name,"End Enum");
			break;
	}
}
void GetCalcName(int idCalc,char *name){
	switch(idCalc){
		case CALC_XOR:
			lstrcpy(name,"xor");
			break;
		case CALC_OR:
			lstrcpy(name,"or");
			break;
		case CALC_AND:
			lstrcpy(name,"and");
			break;
		case CALC_NOT:
			lstrcpy(name,"Not");
			break;

		case CALC_PE:
			lstrcpy(name,"<=");
			break;
		case CALC_QE:
			lstrcpy(name,">=");
			break;
		case CALC_NOTEQUAL:
			lstrcpy(name,"<>");
			break;
		case CALC_SUBSITUATION:
		case CALC_EQUAL:
			lstrcpy(name,"=");
			break;
		case CALC_P:
			lstrcpy(name,"<");
			break;
		case CALC_Q:
			lstrcpy(name,">");
			break;

		case CALC_SHL:
			lstrcpy(name,"<<");
			break;
		case CALC_SHR:
			lstrcpy(name,">>");
			break;
		case CALC_ADDITION:
			lstrcpy(name,"+");
			break;
		case CALC_SUBTRACTION:
			lstrcpy(name,"-");
			break;
		case CALC_MOD:
			lstrcpy(name,"mod");
			break;
		case CALC_PRODUCT:
			lstrcpy(name,"*");
			break;
		case CALC_QUOTIENT:
			lstrcpy(name,"/");
			break;
		case CALC_INTQUOTIENT:
			lstrcpy(name,"\\");
			break;
		case CALC_AS:
			lstrcpy(name,"As");
			break;
		case CALC_MINUSMARK:
			lstrcpy(name,"-");
			break;
		case CALC_POWER:
			lstrcpy(name,"^");
			break;

		case CALC_ARRAY_GET:
			lstrcpy(name,"[]");
			break;
		case CALC_ARRAY_SET:
			lstrcpy(name,"[]=");
			break;
	}
}

BOOL IsFile(char *path){
	WIN32_FIND_DATA wfd;
	HANDLE hFind;

	hFind=FindFirstFile(path,&wfd);
	if(hFind==INVALID_HANDLE_VALUE){
		return 0;
	}
	FindClose(hFind);

	return 1;
}
BOOL GetFolder(HWND hWnd,char *folder,char *OpenFolderTitle){
	BROWSEINFO BrowseInfo;
	LPITEMIDLIST pidlBrowse;
	LPMALLOC g_pMalloc;
	char temporary[MAX_PATH];

	BrowseInfo.hwndOwner=hWnd;
	BrowseInfo.pszDisplayName=temporary;
	BrowseInfo.pidlRoot=NULL;
	BrowseInfo.lpszTitle=OpenFolderTitle;
	BrowseInfo.ulFlags=BIF_RETURNONLYFSDIRS;
	BrowseInfo.lpfn=NULL;
	BrowseInfo.lParam=(LPARAM)0;
	BrowseInfo.iImage=0;
	pidlBrowse=SHBrowseForFolder(&BrowseInfo);
	if(pidlBrowse){
		if(SHGetMalloc(&g_pMalloc)!=0) return 0;
		SHGetPathFromIDList(pidlBrowse,folder);
		g_pMalloc->Free(pidlBrowse);
		g_pMalloc->Release();
		return 1;
	}
	return 0;
}

void ShortPathToLongPath(const char *ShortPath,char *LongPath){
	HANDLE hFind;
	WIN32_FIND_DATA wfd;
	int i;
	char dummy[MAX_PATH];
	for(i=0;i<MAX_PATH;i++){
		LongPath[i]=ShortPath[i];
		if((ShortPath[i-1]==':'&&ShortPath[i]=='\\')||(ShortPath[i-1]=='\\'&&ShortPath[i]=='\\')){
			LongPath[i+1]=0;
			break;
		}
	}
	if(ShortPath[i-1]=='\\'&&ShortPath[i]=='\\'){
		for(i++;i<MAX_PATH;i++){
			if(IsDBCSLeadByte(ShortPath[i])){
				i++;
				continue;
			}
			LongPath[i]=ShortPath[i];
			if(ShortPath[i]=='\\'){
				LongPath[i+1]=0;
				break;
			}
		}
		for(i++;i<MAX_PATH;i++){
			if(IsDBCSLeadByte(ShortPath[i])){
				i++;
				continue;
			}
			LongPath[i]=ShortPath[i];
			if(ShortPath[i]=='\\'){
				LongPath[i+1]=0;
				break;
			}
		}
	}
	for(i++;i<MAX_PATH;i++){
		if(IsDBCSLeadByte(ShortPath[i])){
			i++;
			continue;
		}
		if(ShortPath[i]=='\\'||ShortPath[i]=='\0'){
			strncpy(dummy,ShortPath,i);
			dummy[i]=0;
			if((hFind=FindFirstFile(dummy,&wfd))!=INVALID_HANDLE_VALUE) FindClose(hFind);
			lstrcat(LongPath,wfd.cFileName);

			if(ShortPath[i]=='\0') break;
			lstrcat(LongPath,"\\");

			if(ShortPath[i]=='\\'&&ShortPath[i+1]=='\0'){
				break;
			}
		}
	}
}