syntax.cpp

VC++设计语法编辑器

			else if (IsNumber(strtmp))
			{
				DEFINE_BLOCK(nIdentBegin, COLORINDEX_NUMBER);
			}
		}
	}

	return dwCookie;
}


void LoadParseRule(int nlanguage) 
{
	g_strInString = _T("");
	g_nstrInStringCount = 0;
	g_nBeginCommentExStrCount = 0; 
	g_nEndCommentExStrCount = 0; 
	g_nLineCommentStrCount = 0; 
	g_nBeginStringStrCount = 0; 
	g_nEndStringStrCount = 0; 
	g_nBeginCharStrCount = 0; 
	g_nEndCharStrCount = 0; 
	g_bControl = FALSE;
	g_bCase = FALSE;
/////////////////////////////////////////////////////////////////////////////
	if(g_BeginCommentExStr[0]!= NULL) {delete g_BeginCommentExStr[0]; g_BeginCommentExStr[0] = NULL;}
	if(g_BeginCommentExStr[1]!= NULL) {delete g_BeginCommentExStr[1]; g_BeginCommentExStr[1] = NULL;}
/////////////////////////////////////////////////////////////////////////////
	if(g_EndCommentExStr[0]!= NULL) {delete g_EndCommentExStr[0]; g_EndCommentExStr[0] = NULL;}
	if(g_EndCommentExStr[1]!= NULL) {delete g_EndCommentExStr[1]; g_EndCommentExStr[1] = NULL;}
/////////////////////////////////////////////////////////////////////////////
	if(g_LineCommentStr[0]!= NULL) {delete g_LineCommentStr[0]; g_LineCommentStr[0] = NULL;}
	if(g_LineCommentStr[1]!= NULL) {delete g_LineCommentStr[1]; g_LineCommentStr[1] = NULL;}
/////////////////////////////////////////////////////////////////////////////
	if(g_BeginStringStr[0]!= NULL) {delete g_BeginStringStr[0]; g_BeginStringStr[0] = NULL;}
/////////////////////////////////////////////////////////////////////////////
	if(g_EndStringStr[0]!= NULL) {delete g_EndStringStr[0]; g_EndStringStr[0] = NULL;}
/////////////////////////////////////////////////////////////////////////////
	if(g_BeginCharStr[0]!= NULL) {delete g_BeginCharStr[0]; g_BeginCharStr[0] = NULL;}
/////////////////////////////////////////////////////////////////////////////
	if(g_EndCharStr[0]!= NULL) {delete g_EndCharStr[0]; g_EndCharStr[0] = NULL;}

	CString strInString = _T("");
	CString BeginCommentExStr0 = _T("");
	CString EndCommentExStr0 = _T("");
	CString BeginCommentExStr1 = _T("");
	CString EndCommentExStr1 = _T("");
	CString LineCommentStr0 = _T("");
	CString LineCommentStr1 = _T("");
	CString BeginStringStr0 = _T("");
	CString EndStringStr0 = _T("");
	CString BeginCharStr0 = _T("");
	CString EndCharStr0 = _T("");

	switch ( nlanguage ) {
	case _ADA:
		LineCommentStr0=_T("--");
		break;
	case _AML:
		strInString = _T("&");
		LineCommentStr0=_T("/*");
		BeginStringStr0=_T("%");
		EndStringStr0=_T("%");
		BeginCharStr0=_T("[");
		EndCharStr0=_T("]");
		break;
	case _ASM:
		LineCommentStr0=_T(";");
		BeginCommentExStr0=_T("[");
		EndCommentExStr0=_T("]");
		break;
	case _BASIC:
		strInString = _T("&#");
		LineCommentStr0=_T("\'");
		LineCommentStr1=_T("rem");
		BeginStringStr0=_T("\"");
		EndStringStr0=_T("\"");
		break;
	case _BATCH:
		LineCommentStr0=_T("rem");
		break;
	case _BLUE:
		LineCommentStr0=_T("--");
		LineCommentStr1=_T("==");
		BeginCommentExStr0=_T("\"");
		EndCommentExStr0=_T("\"");
		break;
	case _CLIPPER:
		strInString = _T(".");
		LineCommentStr0=_T("&&");
		LineCommentStr1=_T("//");
		BeginCommentExStr0=_T("/*");
		EndCommentExStr0=_T("*/");
		break;
	case _COBOL:
		strInString = _T("-");
		LineCommentStr0=_T("*>");
		break;
	case _CPP:
		strInString = _T("#");
		BeginCommentExStr0=_T("/*");
		EndCommentExStr0=_T("*/");
		LineCommentStr0=_T("//");
		BeginStringStr0=_T("\"");
		EndStringStr0=_T("\"");
		BeginCharStr0=_T("\'");
		EndCharStr0=_T("\'");
		g_bControl = TRUE;
		g_bCase = TRUE;
		break;
	case _CSHAPE:
		strInString = _T("#");
		BeginCommentExStr0=_T("/*");
		EndCommentExStr0=_T("*/");
		LineCommentStr0=_T("//");
		BeginStringStr0=_T("\"");
		EndStringStr0=_T("\"");
		BeginCharStr0=_T("\'");
		EndCharStr0=_T("\'");
		g_bControl = TRUE;
		g_bCase = TRUE;
		break;
	case _DATAFLEX:
		strInString = _T("$");
		LineCommentStr0=_T("//");
		break;
	case _EIFFEL:
		LineCommentStr0=_T("--");
		break;
	case _FORTRAN:
		strInString = _T(".");
		LineCommentStr0=_T("!");
		break;
	case _HLBL:
		strInString = _T("#");
		BeginCommentExStr0=_T("{");
		EndCommentExStr0=_T("}");
		BeginCommentExStr1=_T("/*");
		EndCommentExStr1=_T("*/");
		BeginStringStr0=_T("[");
		EndStringStr0=_T("]");
		BeginCharStr0=_T("$$");
		EndCharStr0=_T("$$");
		break;
//*
	case _HTML:
		strInString = _T("-#");
		BeginCommentExStr0=_T("<!--");
		EndCommentExStr0=_T("-->");
		BeginStringStr0=_T("\"");
		EndStringStr0=_T("\"");
		BeginCharStr0=_T("'");
		EndCharStr0=_T("'");
		break;
//*/
	case _INI:
		LineCommentStr0=_T(";");
		BeginStringStr0=_T("[");
		EndStringStr0=_T("]");
		break;
	case _JAVA:
		LineCommentStr0=_T("//");
		BeginCommentExStr0=_T("/*");
		EndCommentExStr0=_T("*/");
		break;
	case _JSP:
		LineCommentStr0=_T("//");
		BeginCommentExStr0=_T("/*");
		EndCommentExStr0=_T("*/");
		break;
	case _LIMBO:
		LineCommentStr0=_T("#");
		break;
	case _LISP:
		LineCommentStr0=_T(";");
		break;
	case _MODULA2:
		BeginCommentExStr0=_T("(*");
		EndCommentExStr0=_T("*)");
		break;
	case _OBJECTPASCAL:
		strInString = _T("$");
		LineCommentStr0=_T("//");
		BeginCommentExStr0=_T("{");
		EndCommentExStr0=_T("}");
		BeginCommentExStr1=_T("(*");
		EndCommentExStr1=_T("*)");
		BeginStringStr0=_T("\'");
		EndStringStr0=_T("\'");
		BeginCharStr0=_T("[");
		EndCharStr0=_T("]");
		break;
	case _PARADOX:
		LineCommentStr0=_T(";");
		BeginCommentExStr0=_T("{");
		EndCommentExStr0=_T("}");
		break;
	case _PERL:
		LineCommentStr0=_T("//");
		LineCommentStr1=_T("#");
		BeginCommentExStr0=_T("/*");
		EndCommentExStr0=_T("*/");
		break;
	case _PHP:
		LineCommentStr0=_T("//");
		LineCommentStr1=_T("#");
		BeginCommentExStr0=_T("/*");
		EndCommentExStr0=_T("*/");
		break;
	case _PL1:
		strInString = _T("-");
		break;
	case _PROGRESS:
		strInString = _T("-");
		BeginCommentExStr0=_T("/*");
		EndCommentExStr0=_T("*/");
		BeginCommentExStr1=_T("{");
		EndCommentExStr1=_T("}");
		break;
	case _PYTHON:
		LineCommentStr0=_T("#");
		BeginStringStr0=_T("\"");
		EndStringStr0=_T("\"");
		break;
	case _REBOL:
		strInString = _T("!?-");
		LineCommentStr0=_T(";--");
		BeginStringStr0=_T("{");
		EndStringStr0=_T("}");
		BeginCharStr0=_T("<");
		EndCharStr0=_T(">");
		break;
	case _REXX:
		BeginCommentExStr0=_T("/*");
		EndCommentExStr0=_T("*/");
		break;
	case _RUBY:
		LineCommentStr0=_T("#");
		BeginCommentExStr0=_T("=begin");
		EndCommentExStr0=_T("=end");
		break;
	case _SMALLTALK:
		LineCommentStr0=_T("!");
		BeginCommentExStr0=_T("\"");
		EndCommentExStr0=_T("\"");
		break;
	case _SQL:
		LineCommentStr0=_T("--");
		BeginCommentExStr0=_T("/*");
		EndCommentExStr0=_T("*/");
		break;
	case _VHDL:
		LineCommentStr0=_T("--");
		break;
	case _XML:
		BeginCommentExStr0=_T("<!--");
		EndCommentExStr0=_T("-->");
		break;
	default: //is NONE
		return;
	}

	CString strLanguagePos = _T("icrEdit__ParseRule");