_EXPORT void ColorLine(CLanguageProxy& proxy, int32& state) { const char *text = proxy.Text(); int32 size = proxy.Size(); int32 i = 0, s = 0, kws = 0, esc = 0; char c = 0; bool leave = false; if (state == LCOMMENT) proxy.SetColor(0, kColorComment1); else proxy.SetColor(0, kColorText); if (size <= 0) return; while (!leave) { char b = c; GETCHAR; switch (state) { case START: if (c == '#' && (!b || isspace(b))) state = LCOMMENT; else if (isalpha(c) || c == '_') { kws = proxy.Move(c, 1); state = IDENT; } else if (c == '"') state = STRING1; else if (c == '\'') state = STRING2; else if (c == '\n' || c == 0) leave = true; if (leave || (state != START && s < i)) { proxy.SetColor(s, kColorText); s = i - 1; } break; case LCOMMENT: proxy.SetColor(s, kColorComment1); leave = true; if (text[size - 1] == '\n') state = START; break; case IDENT: if (!isalnum(c) && c != '_') { int kwc; if (i >= s + 1 && (kwc = proxy.IsKeyword(kws)) != 0) { switch (kwc) { case 1: proxy.SetColor(s, kColorKeyword1); break; case 2: proxy.SetColor(s, kColorUserSet1); break; case 3: proxy.SetColor(s, kColorUserSet2); break; case 4: proxy.SetColor(s, kColorUserSet3); break; case 5: proxy.SetColor(s, kColorUserSet4); break; // default:ASSERT(false); } } else { proxy.SetColor(s, kColorText); } s = --i; state = START; } else if (kws) kws = proxy.Move((int)(unsigned char)c, kws); break; case STRING1: if (c == '"' && !esc) { proxy.SetColor(s, kColorString1); s = i; state = START; } else if (c == '\n' || c == 0) { if (text[i - 2] == '\\' && text[i - 3] != '\\') { proxy.SetColor(s, kColorString1); } else { proxy.SetColor(s, kColorText); state = START; } s = size; leave = true; } else esc = !esc && (c == '\\'); break; case STRING2: if (c == '\'' && !esc) { proxy.SetColor(s, kColorString1); s = i; state = START; } else if (c == '\n' || c == 0) { if (text[i - 2] == '\\' && text[i - 3] != '\\') { proxy.SetColor(s, kColorString1); } else { proxy.SetColor(s, kColorText); state = START; } s = size; leave = true; } else esc = !esc && (c == '\\'); break; default: // error condition, gracefully leave the loop leave = true; break; } } } /* CshellIntf::ColorLine */
_EXPORT void ColorLine(CLanguageProxy& proxy, int32& state) { const char *text = proxy.Text(); int32 size = proxy.Size(); int32 i = 0, s = 0, kws = 0, cc_cnt = 0, esc = 0; char c; bool leave = false; if (state == COMMENT || state == LCOMMENT) proxy.SetColor(0, kColorComment1); else proxy.SetColor(0, kColorText); if (size <= 0) return; while (!leave) { GETCHAR; switch (state) { case START: if (isalpha(c) || c == '_') { kws = proxy.Move(c, 1); state = IDENT; } else if (c == '/' && text[i] == '*') state = COMMENT; else if (c == '/' && text[i] == '/') state = LCOMMENT; else if (c == '"') state = STRING; else if (c == '\'') { state = CHAR_CONST; cc_cnt = 0; } else if (c == '\n' || c == 0) leave = true; if (leave || (state != START && s < i)) { proxy.SetColor(s, kColorText); s = i - 1; } break; case COMMENT: if ((s == 0 || i > s + 1) && c == '*' && text[i] == '/') { proxy.SetColor(s, kColorComment1); s = i + 1; state = START; } else if (c == 0 || c == '\n') { proxy.SetColor(s, kColorComment1); leave = true; } break; case LCOMMENT: proxy.SetColor(s, kColorComment1); leave = true; if (text[size - 1] == '\n') state = START; break; case IDENT: if (!isalnum(c) && c != '_' && c != '.') { int32 kwc; if (i > s + 1 && (kwc = proxy.IsKeyword(kws)) != 0) { switch (kwc) { case 1: proxy.SetColor(s, kColorKeyword1); break; case 2: proxy.SetColor(s, kColorUserSet1); break; case 3: proxy.SetColor(s, kColorUserSet2); break; case 4: proxy.SetColor(s, kColorUserSet3); break; case 5: proxy.SetColor(s, kColorUserSet4); break; // default: ASSERT(false); } } else { proxy.SetColor(s, kColorText); } s = --i; state = START; } else if (kws) kws = proxy.Move((int)(unsigned char)c, kws); break; case STRING: if (c == '"' && !esc) { proxy.SetColor(s, kColorString1); s = i; state = START; } else if (c == '\n' || c == 0) { if (text[i - 2] == '\\' && text[i - 3] != '\\') { proxy.SetColor(s, kColorString1); } else { proxy.SetColor(s, kColorText); state = START; } s = size; leave = true; } else esc = !esc && (c == '\\'); break; case CHAR_CONST: if (c == '\t' || c == '\n' || c == 0) // don't like this { proxy.SetColor(s, kColorText); s = i; state = START; } else if (c == '\'' && !esc) { if (cc_cnt != 1 && cc_cnt != 2 && cc_cnt != 4) { proxy.SetColor(s, kColorText); s = --i; state = START; } else { proxy.SetColor(s, kColorCharConst); s = i; state = START; } } else { if (!esc) cc_cnt++; esc = !esc && (c == '\\'); } break; default: // error condition, gracefully leave the loop leave = true; break; } } } /* ColorLine */
_EXPORT void ColorLine(CLanguageProxy& proxy, int32& state) { const char *text = proxy.Text(); int32 size = proxy.Size(); int32 i = 0, s = 0, kws = 0, esc = 0; char c; bool leave = false; if (state == LCOMMENT) proxy.SetColor(0, kColorComment1); else proxy.SetColor(0, kColorText); if (size <= 0) return; while (!leave) { GETCHAR; if (c == '`') { GETCHAR; c = ' '; } switch (state) { case START: if (c == '\\') state = COMMAND1; else if (c == '%') state = LCOMMENT; else if (c == '$') state = MATH; else if (c == '\n' || c == 0) leave = true; else if (isalnum(c)) state = WORD; /* This is a bit strange to have some of the characters covered above, but who cares?*/ else if (c == '#' || c == '&' || c == '~' || c == '_' || c == '^' || c == '{' || c == '}' || c == '[' || c == ']' ) state = CONSTCHAR; if ((leave || state != START) && s < i) { proxy.SetColor(s, kColorText); s = i - 1; } break; case CONSTCHAR: proxy.SetColor(s, kColorCharConst); s = --i; state = START; break; case WORD: if (!isalnum(c)) { proxy.SetColor(s, kColorText); s = --i; state = START; } break; case LCOMMENT: proxy.SetColor(s, kColorComment1); leave = true; if (text[size - 1] == '\n') state = START; break; case COMMAND1: if (c=='('){ state = MATH; } else if ((isalnum(c)) || (c=='@')) /* a generic command has been found. */ /* Note that commands with "@" in their name only appear in .cls or .sty files */ { kws = proxy.Move(c, 1); state = COMMAND2; } else /* we are escaping a special text character such as \# or \$*/ { proxy.SetColor(s, kColorText); s = i; state = START; } break; case COMMAND2: /* Inside the name of a generic command */ if (!(isalnum(c)) && !(c=='@')) /* found end of command name */ { /* now check the command name against a keyword list */ int kwc; if (i > s + 1 && (kwc = proxy.IsKeyword(kws)) != 0) { switch (kwc) { /* use a specific keyword category color */ case 1: proxy.SetColor(s, kColorKeyword1); break; case 2: proxy.SetColor(s, kColorUserSet1); break; case 3: proxy.SetColor(s, kColorUserSet2); break; case 4: proxy.SetColor(s, kColorUserSet3); break; case 5: proxy.SetColor(s, kColorUserSet4); break; // default: ASSERT(false); } } else /* use a generic keyword color */ { proxy.SetColor(s, kColorKeyword1); } s = --i; state = START; } else if (kws) /* still in command name */ kws = proxy.Move((int)(unsigned char)c, kws); break; case MATH: /* both "$" and "\)" will end math mode */ if ( (c == '$' && !esc) || (c == ')' && esc) ) { proxy.SetColor(s, kColorString1); s = i; state = START; } else if (c == '\n' || c == 0) { proxy.SetColor(s, kColorString1); leave = true; } else esc = !esc && (c == '\\'); break; default: // error condition, gracefully leave the loop leave = true; break; } } } /* ColorLine */
_EXPORT void ColorLine(CLanguageProxy& proxy, int32& state) { const char *text = proxy.Text(); int32 size = proxy.Size(); char c; // Current character int32 nxt = 0, // Position after current character in text (i) beg = 0, // (s) kws = 0, // forceState = START, // color, // kwc; // Keywordcode bool leave = false, esc = false, script = false, percent = false, style = false; proxy.SetColor(0, kColorText); if (size <= 0) return; script = (state >= JAVASCRIPT); percent = false; #if DEBUG_PHP printf("#############################################################################\nColorLine(%s:%s)\n%s\n", DEB_StateName(state), script ? "IsScript" : "NoScript", text); #endif while (!leave) { c = get_char(nxt, size, text); switch (state) { case START: DEB_PrintState(state, c); if (c == '<') state = TAG_START; else if (c == '&') state = SPECIAL; else if (c == 0 || c == '\n') leave = true; if ((leave || state != START) && beg < nxt) { proxy.SetColor(beg, kColorText); beg = nxt-1; } break; case TAG_START: DEB_PrintState(state, c); if (c == '/') state = TAG_KEYWORD_END; else if (c == '!') { state = COMMENT_DTD; forceState = START; } else if (c == '?' || c == '%') { proxy.SetColor(beg, kColorTag); beg = nxt; if (strncasecmp(text+beg, "php", 3) == 0) { proxy.SetColor(beg, kColorTag); beg = (nxt += 3); } state = PHP_SCRIPT; percent = (c == '%'); } else if (isalpha(c)) { proxy.SetColor(beg, kColorTag); beg = nxt-1; kws = proxy.Move(CASE_SENSITIVE_TAG ? c : tolower(c), 1); state = TAG_KEYWORD_START; } else if (c == 0 || c == '\n') { proxy.SetColor(beg, kColorTag); leave = true; } else if (!isspace(c)) { nxt--; state = TAG; } break; case TAG_KEYWORD_END: DEB_PrintState(state, c); if (isalpha(c)) { proxy.SetColor(beg, kColorTag); beg = nxt-1; kws = proxy.Move(CASE_SENSITIVE_TAG ? c : tolower(c), 1); state = TAG_KEYWORD_START; } else if (c == 0 || c == '\n') { proxy.SetColor(beg, kColorTag); leave = true; } else if (!isspace(c)) { nxt--; state = TAG; } break; case TAG_KEYWORD_START: DEB_PrintState(state, c); if (!isalnum(c) && c != '-') { switch (kwc = proxy.IsKeyword(kws, kKwHtmlTag|kKwUsersets)) { case kKwHtmlTag: color = kColorTag; break; case kKwUserset1: color = kColorUserSet1; break; case kKwUserset2: color = kColorUserSet2; break; case kKwUserset3: color = kColorUserSet3; break; case kKwUserset4: color = kColorUserSet4; break; default: color = kColorText; break; } proxy.SetColor(beg, color); DEB_PrintSetKw(state, kwc); if (text[beg-1] != '/') { if (strncasecmp(text+beg, "script", 6) == 0) script = true; else if (strncasecmp(text+beg, "style", 5) == 0) style = true; } state = TAG; beg = --nxt; } else if (kws) kws = proxy.Move(CASE_SENSITIVE_TAG ? c : tolower(c), kws); break; case TAG: DEB_PrintState(state, c); switch (c) { case 0: case '\n': proxy.SetColor(beg, kColorTag); leave = true; break; case '>': proxy.SetColor(beg, kColorTag); beg = nxt; proxy.SetColor(beg, kColorText); if (script) state = JAVASCRIPT; else if (style) state = STYLESHEET; else state = START; break; case '"': proxy.SetColor(beg, kColorTag); beg = nxt-1; state = TAG_STRING_DOUBLE_QUOTES; break; case '\'': proxy.SetColor(beg, kColorTag); beg = nxt-1; state = TAG_STRING_SINGLE_QUOTES; break; case '!': if (nxt == beg+2) { proxy.SetColor(beg, kColorTag); state = COMMENT_DTD; forceState = START; } break; default: if (isalpha(c)) { proxy.SetColor(beg, kColorTag); beg = nxt-1; kws = proxy.Move(CASE_SENSITIVE_ATTR ? c : tolower(c), 1); state = TAG_ATTRIBUTE; } break; } break; case TAG_STRING_DOUBLE_QUOTES: DEB_PrintState(state, c); if (c == '"') { proxy.SetColor(beg, kColHtmlTagStringDoubleQuotes); beg = nxt; state = TAG; } else if (c == '\n' || c == 0) { proxy.SetColor(beg, kColHtmlTagStringDoubleQuotes); leave = true; } break; case TAG_STRING_SINGLE_QUOTES: DEB_PrintState(state, c); if (c == '\'') { proxy.SetColor(beg, kColHtmlTagStringSingleQuotes); beg = nxt; state = TAG; } else if (c == '\n' || c == 0) { proxy.SetColor(beg, kColHtmlTagStringSingleQuotes); leave = true; } break; case TAG_ATTRIBUTE: DEB_PrintState(state, c); if (!isalnum(c) && c != '-') { switch (kwc = proxy.IsKeyword(kws, kKwHtmlAttribute|kKwUsersets)) { case kKwHtmlAttribute: color = kColHtmlAttribute; break; case kKwUserset1: color = kColorUserSet1; break; case kKwUserset2: color = kColorUserSet2; break; case kKwUserset3: color = kColorUserSet3; break; case kKwUserset4: color = kColorUserSet4; break; default: color = kColorText; break; } proxy.SetColor(beg, color); DEB_PrintSetKw(state, kwc); beg = --nxt; state = TAG; } else if (kws) kws = proxy.Move(CASE_SENSITIVE_ATTR ? c : tolower(c), kws); break; case SPECIAL: DEB_PrintState(state, c); if (c == 0 || c == '\n') { proxy.SetColor(beg, kColorText); state = START; leave = true; } else if (c == ';') { proxy.SetColor(beg, kColHtmlEntity); beg = nxt; state = START; } else if (isspace(c)) state = START; break; case COMMENT_DTD: DEB_PrintState(state, c); if (c == '-' && text[nxt] == '-' && nxt == beg+3 && text[nxt-2] == '!' && text[nxt-3] == '<') { proxy.SetColor(beg, kColHtmlDtd); beg = nxt-1; state = COMMENT; } else if (c == '>') { proxy.SetColor(beg, kColHtmlDtd); beg = nxt; state = forceState; } else if (c == 0 || c == '\n') { proxy.SetColor(beg, kColHtmlDtd); leave = true; } break; case COMMENT: DEB_PrintState(state, c); if (beg == 0 && c == ':') { if (strncasecmp(text+nxt, "javascript", 10) == 0) forceState = JAVASCRIPT; else if (strncasecmp(text+nxt, "php", 3) == 0) forceState = PHP_SCRIPT; } else if (c == '-' && text[nxt] == '-') { proxy.SetColor(beg, kColHtmlComment); beg = ++nxt; state = COMMENT_DTD; } else if (c == 0 || c == '\n') { proxy.SetColor(beg, kColHtmlComment); leave = true; } break; case STYLESHEET: DEB_PrintState(state, c); if (c == '<' && text[nxt] == '/') { if (strncasecmp(text+nxt+1, "style", 5) == 0) { nxt++; state = TAG_START; } } else if (c == '/' && text[nxt] == '*') state = CSS_COMMENT; // else if (isalpha(c)) // { // kws = proxy.Move(CASE_SENSITIVE_JS ? c : tolower(c), 1); // state = JS_IDENTIFIER; // } else if (c == '{') state = CSS_DEFINITION; else if (c == 0 || c == '\n') leave = true; if ((leave || state != STYLESHEET) && beg < nxt) { proxy.SetColor(beg, kColCssText); beg = nxt-1; } break; case CSS_COMMENT: DEB_PrintState(state, c); if ((beg == 0 || nxt > beg+1) && c == '*' && text[nxt] == '/') { proxy.SetColor(beg, kColJsComment); beg = nxt+1; state = STYLESHEET; } else if (c == 0 || c == '\n') { proxy.SetColor(beg, kColJsComment); leave = true; } break; case CSS_DEFINITION: DEB_PrintState(state, c); if (c == '}') { state = STYLESHEET; } else if (c == 0 || c == '\n') leave = true; break; case JAVASCRIPT: DEB_PrintState(state, c); script = false; if (c == '<' && strncasecmp(text+nxt, "!--", 3) == 0) { proxy.SetColor(beg, kColorTag); proxy.SetColor(nxt+1, kColorComment1); nxt += 3; beg = nxt; } else if (c == '<' && text[nxt] == '/') { if (strncasecmp(text+nxt+1, "script", 6) == 0) { nxt++; state = TAG_START; } } else if (c == '/' && text[nxt] == '*') state = JS_COMMENT_MULTI_LINE; else if (c == '/' && text[nxt] == '/') state = JS_COMMENT_SINGLE_LINE; else if (isalpha(c)) { kws = proxy.Move(CASE_SENSITIVE_JS ? c : tolower(c), 1); state = JS_IDENTIFIER; } else if (c == '\'') state = JS_STRING_SINGLE_QUOTES; else if (c == '"') state = JS_STRING_DOUBLE_QUOTES; else if (c == 0 || c == '\n') leave = true; if ((leave || state != JAVASCRIPT) && beg < nxt) { proxy.SetColor(beg, kColorText); beg = nxt-1; } break; case JS_COMMENT_MULTI_LINE: DEB_PrintState(state, c); if ((beg == 0 || nxt > beg+1) && c == '*' && text[nxt] == '/') { proxy.SetColor(beg, kColJsComment); beg = nxt+1; state = JAVASCRIPT; } else if (c == 0 || c == '\n') { proxy.SetColor(beg, kColJsComment); leave = true; } break; case JS_COMMENT_SINGLE_LINE: DEB_PrintState(state, c); if (c == '-' && text[nxt] == '-') { proxy.SetColor(beg, kColJsCommentL); beg = nxt+1; state = TAG; } else if (c == '\n' || c == 0) { proxy.SetColor(beg, kColJsCommentL); state = JAVASCRIPT; leave = true; } break; case JS_IDENTIFIER: DEB_PrintState(state, c); if (!isalnum(c) && c != '_') { if (nxt > beg+1 && (kwc = proxy.IsKeyword(kws, kKwJs|kKwUsersets)) != 0) { switch (kwc) { case kKwJsLanguage: color = kColorKeyword1; break; case kKwJsConstants: color = kColorCharConst; break; case kKwUserset1: color = kColorUserSet1; break; case kKwUserset2: color = kColorUserSet2; break; case kKwUserset3: color = kColorUserSet3; break; case kKwUserset4: color = kColorUserSet4; break; default: color = kColorText; break; } proxy.SetColor(beg, color); DEB_PrintSetKw(state, kwc); } else { proxy.SetColor(beg, kColorText); } beg = --nxt; state = JAVASCRIPT; } else if (kws) kws = proxy.Move(CASE_SENSITIVE_JS ? c : tolower(c), kws); break; case JS_STRING_SINGLE_QUOTES: case JS_STRING_DOUBLE_QUOTES: DEB_PrintState(state, c); if (!esc && ((state == JS_STRING_SINGLE_QUOTES && c == '\'') || (state == JS_STRING_DOUBLE_QUOTES && c == '"'))) { proxy.SetColor(beg, (state == JS_STRING_SINGLE_QUOTES) ? kColJsStringSingleQuotes : kColJsStringDoubleQuotes); beg = nxt; state = JAVASCRIPT; } else if (c == '\n' || c == 0) { if (text[nxt-2] == '\\' && text[nxt-3] != '\\') { proxy.SetColor(beg, (state == JS_STRING_SINGLE_QUOTES) ? kColJsStringSingleQuotes : kColJsStringDoubleQuotes); } else { proxy.SetColor(beg, kColorText); state = JAVASCRIPT; } beg = size; leave = true; } else esc = !esc && (c == '\\'); break; case PHP_SCRIPT: DEB_PrintState(state, c); if (((c == '?' && !percent) || (c == '%' && percent)) && text[nxt] == '>') { proxy.SetColor(beg, kColorTag); beg = ++nxt; state = START; } else if (isalpha(c)) { kws = proxy.Move(CASE_SENSITIVE_PHP ? c : tolower(c), 1); state = PHP_IDENTIFIER; } else if (c == '"') state = PHP_STRING_DOUBLE_QUOTES; else if (c == '\'') state = PHP_STRING_SINGLE_QUOTES; else if (c == '#' || (c == '/' && text[nxt] == '/')) state = PHP_COMMENT_SINGLE_LINE; else if (c == '/' && text[nxt] == '*') state = PHP_COMMENT_MULTI_LINE; else if (c == 0 || c == '\n') leave = true; if ((leave || state != START) && beg < nxt) { proxy.SetColor(beg, kColorText); beg = nxt-1; } break; case PHP_IDENTIFIER: if (!isalnum(c) && c != '_') { if (nxt > beg+1 && (kwc = proxy.IsKeyword(kws, kKwPhp|kKwUsersets))) { DEB_PrintState(state, c, "KWD"); switch (kwc) { case kKwPhpLanguage: color = kColPhpLanguage; break; case kKwPhpFunctions: color = kColPhpFunction; break; case kKwPhpConstants: color = kColPhpConstants; break; case kKwUserset1: color = kColorUserSet1; break; case kKwUserset2: color = kColorUserSet2; break; case kKwUserset3: color = kColorUserSet3; break; case kKwUserset4: color = kColorUserSet4; break; default: color = kColorText; break; } proxy.SetColor(beg, color); DEB_PrintSetKw(state, kwc); } else { DEB_PrintState(state, c, "TXT"); proxy.SetColor(beg, kColorText); } beg = --nxt; state = PHP_SCRIPT; } else if (kws) DEB_PrintState(state, c, "MOV"); kws = proxy.Move(CASE_SENSITIVE_PHP ? c : tolower(c), kws); break; case PHP_STRING_DOUBLE_QUOTES: DEB_PrintState(state, c); if (!esc && c == '"') { proxy.SetColor(beg, kColPhpStringDoubleQuotes); beg = nxt; state = PHP_SCRIPT; } else if (c == '\n' || c == 0) { proxy.SetColor(beg, kColPhpStringDoubleQuotes); beg = size; leave = true; } else esc = !esc && (c == '\\'); break; case PHP_STRING_SINGLE_QUOTES: DEB_PrintState(state, c); if (!esc && c == '\'') { proxy.SetColor(beg, kColPhpStringSingleQuotes); beg = nxt; state = PHP_SCRIPT; } else if (c == '\n' || c == 0) { proxy.SetColor(beg, kColPhpStringSingleQuotes); beg = size; leave = true; } else esc = !esc && (c == '\\'); break; case PHP_COMMENT_MULTI_LINE: DEB_PrintState(state, c); if ((beg == 0 || nxt > beg+1) && c == '*' && text[nxt] == '/') { proxy.SetColor(beg, kColPhpComment); beg = nxt+1; state = PHP_SCRIPT; } else if (c == 0 || c == '\n') { proxy.SetColor(beg, kColPhpComment); leave = true; } else if (((percent && c == '%') || (!percent && c == '?')) && text[nxt] == '>') { proxy.SetColor(beg, kColPhpComment); beg = nxt-1; proxy.SetColor(beg, kColorTag); beg = ++nxt; state = START; } break; case PHP_COMMENT_SINGLE_LINE: DEB_PrintState(state, c); if (c == 0 || c == '\n') { proxy.SetColor(beg, kColPhpCommentL); state = PHP_SCRIPT; leave = true; } else if (((percent && c == '%') || (!percent && c == '?')) && text[nxt] == '>') { proxy.SetColor(beg, kColPhpCommentL); beg = nxt-1; proxy.SetColor(beg, kColorTag); beg = ++nxt; state = START; } break; default: // error condition, gracefully leave the loop leave = true; break; } } #if DEBUG_PHP printf("--> (%s:%s)\n", DEB_StateName(state), script ? "IsScript" : "NoScript"); #endif // if (script) // state |= 0x8000; // // if (percent) // state |= 0x4000; } /* ColorLine */
_EXPORT void ColorLine(CLanguageProxy& proxy, int32& state) { const char *text = proxy.Text(); int32 size = proxy.Size(); char c; int32 i = 0, s = 0, kws = 0; bool leave = false, esc = false; proxy.SetColor(0, kColorText); if (size <= 0) return; while (!leave) { GETCHAR; switch (state) { case START: if (c == '<') state = TAG; else if (c == '&') state = SPECIAL; else if (c == 0 || c == '\n') leave = true; if ((leave || state != START) && s < i) { proxy.SetColor(s, kColorText); s = i - 1; } break; case TAG: case JSTAG: switch (c) { case 0: case '\n': proxy.SetColor(s, kColorTag); leave = true; break; case '>': proxy.SetColor(s, kColorTag); s = i; proxy.SetColor(s, kColorText); state--; // START break; case '"': proxy.SetColor(s, kColorTag); s = i - 1; state++; // TAGSTRING1 break; case '\'': proxy.SetColor(s, kColorTag); s = i - 1; state += 2; // TAGSTRING2 break; case '!': if (i == s + 2) { proxy.SetColor(s, kColorTag); state += 5; // COMMENT_DTD } break; default: if (isalpha(c)) { proxy.SetColor(s, kColorTag); s = i - 1; kws = proxy.Move(tolower(c), 1); state += 3; // TAGKEYWORD } break; } break; case TAGSTRING1: case JSTAGSTRING1: if (c == '"') { proxy.SetColor(s, kColorString2); s = i; state--; // TAG } else if (c == '\n' || c == 0) { proxy.SetColor(s, kColorString2); leave = true; } break; case TAGSTRING2: case JSTAGSTRING2: if (c == '\'') { proxy.SetColor(s, kColorString2); s = i; state -= 2; // TAG } else if (c == '\n' || c == 0) { proxy.SetColor(s, kColorString2); leave = true; } break; case TAGKEYWORD: case JSTAGKEYWORD: if (! isalnum(c)) { switch (proxy.IsKeyword(kws)) { case 1: proxy.SetColor(s, kColorKeyword1); break; case 2: proxy.SetColor(s, kColorUserSet1); break; case 3: proxy.SetColor(s, kColorUserSet2); break; case 4: proxy.SetColor(s, kColorUserSet3); break; case 5: proxy.SetColor(s, kColorUserSet4); break; default: proxy.SetColor(s, kColorTag); break; } if (strncasecmp(text + s, "SCRIPT", 6) == 0) { if (state == TAGKEYWORD) state += JAVASCRIPT; else state -= JAVASCRIPT; } s = --i; state -= 3; // TAG } else if (kws) kws = proxy.Move(tolower(c), kws); break; case SPECIAL: case JSSPECIAL: if (c == 0 || c == '\n') { proxy.SetColor(s, kColorText); state = START; leave = true; } else if (c == ';') { proxy.SetColor(s, kColorCharConst); s = i; state = START; } else if (isspace(c)) state = START; break; case COMMENT_DTD: case JSCOMMENT_DTD: if (c == '-' && text[i] == '-' && i == s + 3 && text[i - 2] == '!' && text[i - 3] == '<') { proxy.SetColor(s, kColorTag); s = i - 1; state++; } else if (c == '>') { proxy.SetColor(s, kColorTag); s = i; state -= 5; } else if (c == 0 || c == '\n') { proxy.SetColor(s, kColorTag); leave = true; } break; case COMMENT: if (c == '-' && text[i] == '-') { proxy.SetColor(s, kColorComment1); s = ++i; state = COMMENT_DTD; } else if (c == 0 || c == '\n') { proxy.SetColor(s, kColorComment1); leave = true; } break; case JSCOMMENT: state = JAVASCRIPT; i--; break; case JAVASCRIPT: if (c == '<') { if (strncasecmp(text + i, "/script", 7) == 0) state = JSTAG; } // { // if (strncmp(text + i, "!--", 3)) // state = JSTAG; // } else if (c == '/' && text[i] == '*') state = JS_COMMENT; else if (c == '/' && text[i] == '/') state = JS_LCOMMENT; else if (isalpha(c)) { kws = proxy.Move(tolower(c), 1); state = JS_IDENT; } else if (c == '\'') state = JS_STRING1; else if (c == '"') state = JS_STRING2; else if (c == 0 || c == '\n') leave = true; if ((leave || state != JAVASCRIPT) && s < i) { proxy.SetColor(s, kColorText); s = i - 1; } break; case JS_COMMENT: if ((s == 0 || i > s + 1) && c == '*' && text[i] == '/') { proxy.SetColor(s, kColorComment1); s = i + 1; state = JAVASCRIPT; } else if (c == 0 || c == '\n') { proxy.SetColor(s, kColorComment1); leave = true; } break; case JS_LCOMMENT: proxy.SetColor(s, kColorComment1); leave = true; if (text[size - 1] == '\n') state = JAVASCRIPT; break; case JS_IDENT: if (!isalnum(c) && c != '_' && c != '.') { int32 kwc; if (i > s + 1 && (kwc = proxy.IsKeyword(kws)) != 0) { switch (kwc) { case 1: case 6: proxy.SetColor(s, kColorKeyword1); break; case 2: proxy.SetColor(s, kColorUserSet1); break; case 3: proxy.SetColor(s, kColorUserSet2); break; case 4: proxy.SetColor(s, kColorUserSet3); break; case 5: proxy.SetColor(s, kColorUserSet4); break; // default: ASSERT(false); } } else { proxy.SetColor(s, kColorText); } s = --i; state = JAVASCRIPT; } else if (kws) kws = proxy.Move((int)(unsigned char)c, kws); break; case JS_STRING1: case JS_STRING2: if (!esc && ((state == JS_STRING1 && c == '\'') || (state == JS_STRING2 && c == '"'))) { proxy.SetColor(s, kColorString1); s = i; state = JAVASCRIPT; } else if (c == '\n' || c == 0) { if (text[i - 2] == '\\' && text[i - 3] != '\\') { proxy.SetColor(s, kColorString1); } else { proxy.SetColor(s, kColorText); state = JAVASCRIPT; } s = size; leave = true; } else esc = !esc && (c == '\\'); break; default: // error condition, gracefully leave the loop leave = true; break; } } } /* ColorLine */
_EXPORT void ColorLine(CLanguageProxy& proxy, int& state) { const char *text = proxy.Text(); int size = proxy.Size(); int i = 0, s = 0, kws = 0, esc = 0; char c, mc = 0; bool leave = false; if (state == COMMENT || state == LCOMMENT) proxy.SetColor(0, kColorComment1); else proxy.SetColor(0, kColorText); if (size <= 0) return; while (!leave) { GETCHAR; switch (state) { case START: if (c == '#' && text[i - 2] != '$') state = LCOMMENT; else if (isalpha(c) || c == '_') { kws = proxy.Move(c, 1); state = IDENT; } else if (c == '"') state = STRING1; else if (c == '\'') state = STRING2; else if (c == '&') state = SCOPE; else if (c == '$') { if (isalpha(text[i]) || text[i] == '#') { i++; state = VAR; } else { i++; proxy.SetColor(s, kColorText); s = i; } } else if (c == '@' || c == '*') state = VAR; else if (c == '/') { mc = '/'; state = REGEX1; } else if (c == '\n' || c == 0) leave = true; if (leave || (state != START && s < i)) { proxy.SetColor(s, kColorText); s = i - 1; } break; case LCOMMENT: proxy.SetColor(s, kColorComment1); leave = true; if (text[size - 1] == '\n') state = START; break; case IDENT: if (!isalnum(c) && c != '_') { int kwc; if (i >= s + 1 && (kwc = proxy.IsKeyword(kws)) != 0) { switch (kwc) { case 1: proxy.SetColor(s, kColorKeyword1); break; case 2: proxy.SetColor(s, kColorUserSet1); break; case 3: proxy.SetColor(s, kColorUserSet2); break; case 4: proxy.SetColor(s, kColorUserSet3); break; case 5: proxy.SetColor(s, kColorUserSet4); break; // default:ASSERT(false); } } else { proxy.SetColor(s, kColorText); } if (i == s + 2) { switch (*(text + s)) { case 'm': state = REGEX1; break; case 's': state = REGEX2; break; case 'q': state = REGEX1; break; case 'y': state = REGEX2; break; default: state = START; break; } } else if (i == s + 3) { if (strncmp(text + s, "qq", 2) == 0) state = REGEX1; else if (strncmp(text + s, "qx", 2) == 0) state = REGEX1; else if (strncmp(text + s, "qw", 2) == 0) state = REGEX1; else if (strncmp(text + s, "tr", 2) == 0) state = REGEX2; else state = START; } else if (i == s + 4 && strncmp(text + s, "sub", 3) == 0)// && ci < 2) state = SUB1; else state = START; if (state == START || state == SUB1) s = --i; else { switch (c) { case '(': mc = ')'; break; case '{': mc = '}'; break; case '[': mc = ']'; break; case '<': mc = '>'; break; case ' ': state = START; s = --i; break; default: mc = c; break; } if (state != START) s = i - 1; } } else if (kws) kws = proxy.Move((int)(unsigned char)c, kws); break; case SUB1: if (isalpha(c)) state = SUB2; else if (!isspace(c)) { state = START; s = --i; } break; case SUB2: if (!isalnum(c) && c != '\'' && c != '_') { proxy.SetColor(s, kColorText); state = START; s = --i; } break; case STRING1: if (c == '"' && !esc) { proxy.SetColor(s, kColorString1); s = i; state = START; } else if (c == '\n' || c == 0) { if (text[i - 2] == '\\' && text[i - 3] != '\\') { proxy.SetColor(s, kColorString1); } else { proxy.SetColor(s, kColorText); state = START; } s = size; leave = true; } else esc = !esc && (c == '\\'); break; case STRING2: if (c == '\'' && !esc) { proxy.SetColor(s, kColorString1); s = i; state = START; } else if (c == '\n' || c == 0) { if (text[i - 2] == '\\' && text[i - 3] != '\\') { proxy.SetColor(s, kColorString1); } else { proxy.SetColor(s, kColorText); state = START; } s = size; leave = true; } else esc = !esc && (c == '\\'); break; case REGEX1: if (c == 0) // don't like this { proxy.SetColor(s, kColorText); s = i; state = START; } else if (c == mc && !esc) { proxy.SetColor(s, kColorCharConst); s = i; state = START; } else esc = !esc && (c == '\\'); break; case REGEX2: if (c == 0) // don't like this { proxy.SetColor(s, kColorText); s = i; state = START; } else if (c == mc && !esc) { if (mc == ')' || mc == '}' || mc == ']' || mc == '>') { switch (text[i]) { case '(': mc = ')'; break; case '{': mc = '}'; break; case '[': mc = ']'; break; case '<': mc = '>'; break; case ' ': state = START; s = --i; break; default: mc = text[i]; break; } i++; } if (state != START) state = REGEX1; } else esc = !esc && (c == '\\'); break; case SCOPE: if (c == '\'' || (!isalnum(c) && c != '_')) { proxy.SetColor(s, kColorText); state = START; } break; case VAR: if (!isalnum(c) && c != '_') { proxy.SetColor(s, kColorText); state = START; } break; default: // error condition, gracefully leave the loop leave = true; break; } } } /* CperlIntf::ColorLine */
_EXPORT void ColorLine(CLanguageProxy& proxy, int& state) { const char *text = proxy.Text(); int size = proxy.Size(); int i = 0, s = 0, kws = 0, cc_cnt = 0, esc = 0; char c; bool leave = false; // floating point flag, true when the NUMERIC: label finds a . inside a number, and checks to make sure that a number with two '.' is invalid. (and not highlighted as numeric) bool floating_point = false; // same flag, only for hex numbers. allows proper highlighting only for 1 x per number. (0x21 is ok. 0x023x31 is not. will look wierd.) bool hex_num = false; int ifZeroCounter = state >> STATE_SHIFT; state = state & STATE_MASK; if (state == COMMENT || state == LCOMMENT) proxy.SetColor(0, kColorComment1); else proxy.SetColor(0, kColorText); if (size <= 0) return; while (!leave) { GETCHAR; switch (state) { case START: s = i - 1; proxy.SetColor(s, kColorText); if (c == '#') { kws = proxy.Move(c, 1); state = PRAGMA1; } else if (isalpha(c) || c == '_') { kws = proxy.Move(c, 1); state = IDENT; } else if (c == '/' && text[i] == '*') { i++; state = COMMENT; } else if (c == '/' && text[i] == '/') { i++; state = LCOMMENT; } else if (c == '"') state = STRING; else if (c == '\'') { state = CHAR_CONST; cc_cnt = 0; } // m7m: here are the 3 magic IFs. else if (isNumeric(c)) { state = NUMERIC; } else if (isOperator(c)) { state = OPERATOR; } else if (isSymbol(c)) { state = SYMBOL; } else if (c == '\n' || c == 0) leave = true; break; case COMMENT: if ((s == 0 || i > s + 1) && c == '*' && text[i] == '/') { proxy.SetColor(s, kColorComment1); i++; state = START; } else if (c == 0 || c == '\n') { proxy.SetColor(s, kColorComment1); leave = true; } break; case LCOMMENT: proxy.SetColor(s, kColorComment1); leave = true; if (text[size - 1] == '\n') state = START; break; case IDENT: if (!isalnum(c) && c != '_') { int kwc; if (i > s + 1 && (kwc = proxy.IsKeyword(kws)) != 0) { switch (kwc) { case 1: proxy.SetColor(s, kColorKeyword1); break; case 2: proxy.SetColor(s, kColorUserSet1); break; case 3: proxy.SetColor(s, kColorUserSet2); break; case 4: proxy.SetColor(s, kColorUserSet3); break; case 5: proxy.SetColor(s, kColorUserSet4); break; // default: ASSERT(false); } } else proxy.SetColor(s, kColorText); i--; state = START; } else if (kws) kws = proxy.Move((int)(unsigned char)c, kws); break; case PRAGMA1: if (c == ' ' || c == '\t') ; else if (islower(c)) { kws = proxy.Move((int)(unsigned char)c, kws); state = PRAGMA2; } else { proxy.SetColor(s, kColorText); i--; state = START; } break; case PRAGMA2: if (!islower(c)) { int kwc; if (i > s + 2 && (kwc = proxy.IsKeyword(kws)) != 0) { switch (kwc) { case 1: proxy.SetColor(s, kColorKeyword1); break; case 2: proxy.SetColor(s, kColorUserSet1); break; case 3: proxy.SetColor(s, kColorUserSet2); break; case 4: proxy.SetColor(s, kColorUserSet3); break; case 5: proxy.SetColor(s, kColorUserSet4); break; // default: ASSERT(false); } // check for "#if 0" or "elif 0" bool ifZero = false; int k = s + 1; while (text[k] == ' ' || text[k] == '\t') k++; int len = i - 1 - k; if (strings_equal(text + k, "if", len, 2) || strings_equal(text + k, "elif", len, 4)) { k = i - 1; while (text[k] == ' ' || text[k] == '\t') k++; if (text[k] == '0' && (k + 1 == size || text[k + 1] == 0 || isspace(text[k + 1]))) { proxy.SetColor(s, kColorComment1); state = IF_ZERO; ifZeroCounter = 1; leave = true; } } } else { proxy.SetColor(s, kColorText); } if (state != IF_ZERO) { state = strncmp(text+i-8, "include", 7) ? START : INCL1; s = --i; } } else if (kws) kws = proxy.Move((int)(unsigned char)c, kws); break; case INCL1: if (c == '"') state = INCL2; else if (c == '<') state = INCL3; else if (c != ' ' && c != '\t') { state = START; i--; } break; case INCL2: if (c == '"') { proxy.SetColor(s, kColorString1); state = START; } else if (c == '\n' || c == 0) { proxy.SetColor(s, kColorText); leave = true; state = START; } break; case INCL3: if (c == '>') { proxy.SetColor(s, kColorString1); state = START; } else if (c == '\n' || c == 0) { proxy.SetColor(s, kColorText); leave = true; state = START; } break; case STRING: if (c == '"' && !esc) { proxy.SetColor(s, kColorString1); state = START; } else if (c == '\n' || c == 0) { if (text[i - 2] == '\\' && text[i - 3] != '\\') { proxy.SetColor(s, kColorString1); } else { proxy.SetColor(s, kColorText); state = START; } leave = true; } else esc = !esc && (c == '\\'); break; case CHAR_CONST: if (c == '\t' || c == '\n' || c == 0 || (c == '\'' && !esc && (cc_cnt == 0 || cc_cnt > 5))) { // invalid char constant - either invalid char or too short/long proxy.SetColor(s, kColorText); state = START; } else if (c == '\'' && !esc) { proxy.SetColor(s, kColorCharConst); state = START; } else { if (!esc) cc_cnt++; esc = !esc && (c == '\\'); } break; case NUMERIC: { proxy.SetColor(s, kColorNumber1); if (isNumeric(text[i-1]) || (hex_num && isHexNum(text[i - 1]))) ; else if (text[i-1]=='.' && floating_point==false && hex_num==false) floating_point = true; else if (text[i-1]=='x' && hex_num==false && floating_point==false) hex_num = true; else { i--; hex_num = false; state = START; } } break; case OPERATOR: { proxy.SetColor(s, kColorOperator1); if (isOperator(text[i-1])) ; else { i--; state = START; } } break; case SYMBOL: { proxy.SetColor(s, kColorSeparator1); if (isSymbol(text[i-1])) ; else { i--; state = START; } } break; case IF_ZERO: { if (isspace(c)) break; proxy.SetColor(i - 1, kColorComment1); if (c == '#') { // get the preprocessor keyword while (isspace(GETCHAR)); int s = i - 1; int end = s; while (end < size && text[end] != 0 && !isspace(text[end])) end++; int len = end - s; // on "#if", "#ifdef", "#ifndef" increment the nesting // counter if (strings_equal(text + s, "if", len, 2) || strings_equal(text + s, "ifdef", len, 5) || strings_equal(text + s, "ifndef", len, 6)) { ifZeroCounter++; i = end + 1; } // on "endif" decrement the nesting counter else if (strings_equal(text + s, "endif", len, 5)) { ifZeroCounter--; i = end + 1; // if the counter drops to zero, we fall be to normal // parsing if (ifZeroCounter == 0) { state = START; leave = true; break; } } // on "else" or "elif" and nest count 1, fall back to normal // parsing: else if (ifZeroCounter == 1 && (strings_equal(text + s, "else", len, 4) || strings_equal(text + s, "elif", len, 4))) { i = end + 1; ifZeroCounter == 0; state = START; leave = true; break; } } // we need to check for C style comments int commentOffset; if (find_comment_start(text + i - 1, size - i + 1, commentOffset)) { state = IF_ZERO_COMMENT; i += commentOffset + 1; } else leave = true; } break; case IF_ZERO_COMMENT: { proxy.SetColor(i - 1, kColorComment1); int commentEnd; if (find_comment_end(text + i - 1, size - i + 1, commentEnd)) { i += commentEnd + 1; state = IF_ZERO; } else leave = true; } break; default: // error condition, gracefully leave the loop leave = true; break; } } state |= ifZeroCounter << STATE_SHIFT; } /* ColorLine */
_EXPORT void ColorLine(CLanguageProxy& proxy, int32& state) { const char *text = proxy.Text(); int32 size = proxy.Size(); int32 i = 0, s = 0, kws = 0, esc = 0; char c; bool leave = false; bool floating_point = false; bool hex_num = false; // int sqrBraquetStrCount = 0; if (state == LCOMMENT) proxy.SetColor(0, kColorComment1); else proxy.SetColor(0, kColorText); if (size <= 0) return; while (!leave) { GETCHAR; switch (state) { case START: if (isalpha(c) || c == '_') { kws = proxy.Move(tolower(c), 1); state = IDENT; } else if (c == '-' && text[i] == '-') { i++; state = LCOMMENT; } else if (c == '"') state = STRING; else if (c == '\'') state = STRING2; /* else if (c == '[' && text[i] == '[') { sqrBraquetStrCount++; state = STRING3; } */ else if (isNumeric(c) || (c == '$' && isHexNum(text[i]))) { state = NUMERIC; } else if (isOperator(c)) { state = OPERATOR; } else if (isSymbol(c)) { state = SYMBOL; } else if (c == '\n' || c == 0) leave = true; if (leave || (state != START && s < i)) { proxy.SetColor(s, kColorText); s = i - 1; } break; // -- format comments case LCOMMENT: proxy.SetColor(s - 1, kColorComment1); leave = true; if (text[size - 1] == '\n') state = START; break; case IDENT: if (!isalnum(c) && c != '_') { int32 kwc; if (i > s + 1 && (kwc = proxy.IsKeyword(kws)) != 0) { switch (kwc) { case 1: proxy.SetColor(s, kColorKeyword1); break; case 2: proxy.SetColor(s, kColorUserSet1); break; case 3: proxy.SetColor(s, kColorUserSet2); break; case 4: proxy.SetColor(s, kColorUserSet3); break; case 5: proxy.SetColor(s, kColorUserSet4); break; } s = --i; state = START; } else { proxy.SetColor(s, kColorText); s = --i; state = START; } } else if (kws) kws = proxy.Move((int)(unsigned char) c, kws); break; case STRING: if (c == '"' && !esc) { proxy.SetColor(s, kColorString1); s = i; state = START; } else if (c == '\n' || c == 0) { if (text[i - 2] == '\\' && text[i - 3] != '\\') { proxy.SetColor(s, kColorString1); } else { proxy.SetColor(s, kColorText); state = START; } s = size; leave = true; } else esc = !esc && (c == '\\'); break; case STRING2: if (c == '\'' && !esc) { proxy.SetColor(s, kColorString1); s = i; state = START; } else if (c == '\n' || c == 0) { if (text[i - 2] == '\\' && text[i - 3] != '\\') { proxy.SetColor(s, kColorString1); } else { proxy.SetColor(s, kColorText); state = START; } s = size; leave = true; } else esc = !esc && (c == '\\'); break; /* case STRING3: break; */ case NUMERIC: proxy.SetColor(s, kColorNumber1); if (isNumeric(text[i - 1]) || (hex_num && isHexNum(text[i - 1]))) ; else if (text[i - 1] == '.' && floating_point == false) floating_point = true; else if (isHexNum(text[i - 1]) && hex_num == false) hex_num = true; else { s = i - 1; i--; state = START; } break; case OPERATOR: proxy.SetColor(s, kColorOperator1); if (isOperator(text[i - 1])) ; else { s = i - 1; i--; state = START; } break; case SYMBOL: proxy.SetColor(s, kColorSeparator1); if (isSymbol(text[i - 1])) ; else { s = i - 1; i--; state = START; } break; default: leave = true; break; } } }