static void ColouriseTADSHTMLString(StyleContext &sc, int &lineState) {
int endState = sc.state;
int chQuote = sc.ch;
int chString = (lineState & T3_SINGLE_QUOTE) ? '\'' : '"';
if (endState == SCE_T3_HTML_STRING) {
if (lineState&T3_SINGLE_QUOTE) {
endState = SCE_T3_S_STRING;
chString = '\'';
} else if (lineState&T3_INT_EXPRESSION) {
endState = SCE_T3_X_STRING;
chString = '"';
} else {
endState = SCE_T3_HTML_DEFAULT;
chString = '"';
}
chQuote = (lineState & T3_HTML_SQUOTE) ? '\'' : '"';
} else {
sc.SetState(SCE_T3_HTML_STRING);
sc.Forward();
}
if (chQuote == '"')
lineState &= ~T3_HTML_SQUOTE;
else
lineState |= T3_HTML_SQUOTE;
while (sc.More()) {
if (IsEOL(sc.ch, sc.chNext)) {
return;
}
if (sc.ch == chQuote) {
sc.ForwardSetState(endState);
return;
}
if (sc.Match('\\', static_cast<char>(chQuote))) {
sc.Forward(2);
sc.SetState(endState);
return;
}
if (sc.ch == chString) {
sc.SetState(SCE_T3_DEFAULT);
return;
}
if (sc.Match('<', '<')) {
lineState |= T3_INT_EXPRESSION | T3_INT_EXPRESSION_IN_TAG;
sc.SetState(SCE_T3_X_DEFAULT);
sc.Forward(2);
return;
}
if (sc.Match('\\', static_cast<char>(chQuote))
|| sc.Match('\\', static_cast<char>(chString))
|| sc.Match('\\', '\\')) {
sc.Forward(2);
} else {
sc.Forward();
}
}
}
static void ColouriseLabel(StyleContext& sc, WordList& keywords, bool& apostropheStartsAttribute) {
apostropheStartsAttribute = false;
sc.SetState(SCE_ADA_LABEL);
// Skip "<<"
sc.Forward();
sc.Forward();
std::string identifier;
while (!sc.atLineEnd && !IsSeparatorOrDelimiterCharacter(sc.ch)) {
identifier += static_cast<char>(tolower(sc.ch));
sc.Forward();
}
// Skip ">>"
if (sc.Match('>', '>')) {
sc.Forward();
sc.Forward();
} else {
sc.ChangeState(SCE_ADA_ILLEGAL);
}
// If the name is an invalid identifier or a keyword, then make it invalid label
if (!IsValidIdentifier(identifier) || keywords.InList(identifier.c_str())) {
sc.ChangeState(SCE_ADA_ILLEGAL);
}
sc.SetState(SCE_ADA_DEFAULT);
}
static void ColouriseContext(StyleContext& sc, char chEnd, int stateEOL) {
while (!sc.atLineEnd && !sc.Match(chEnd)) {
sc.Forward();
}
if (!sc.atLineEnd) {
sc.ForwardSetState(SCE_ADA_DEFAULT);
} else {
sc.ChangeState(stateEOL);
}
}
static void ColouriseTADS3Comment(StyleContext &sc, int endState) {
sc.SetState(SCE_T3_BLOCK_COMMENT);
while (sc.More()) {
if (IsEOL(sc.ch, sc.chNext)) {
return;
}
if (sc.Match('*', '/')) {
sc.Forward(2);
sc.SetState(endState);
return;
}
sc.Forward();
}
}
static void ColouriseDelimiter(StyleContext& sc, bool& apostropheStartsAttribute) {
apostropheStartsAttribute = sc.Match (')');
sc.SetState(SCE_SPICE_DELIMITER);
sc.ForwardSetState(SCE_SPICE_DEFAULT);
}
static void ColouriseTADS3String(StyleContext &sc, int &lineState) {
int chQuote = sc.ch;
int endState = sc.state;
switch (sc.state) {
case SCE_T3_DEFAULT:
case SCE_T3_X_DEFAULT:
if (chQuote == '"') {
if (sc.state == SCE_T3_DEFAULT) {
sc.SetState(SCE_T3_D_STRING);
} else {
sc.SetState(SCE_T3_X_STRING);
}
lineState &= ~T3_SINGLE_QUOTE;
} else {
sc.SetState(SCE_T3_S_STRING);
lineState |= T3_SINGLE_QUOTE;
}
sc.Forward();
break;
case SCE_T3_S_STRING:
chQuote = '\'';
endState = lineState&T3_INT_EXPRESSION ?
SCE_T3_X_DEFAULT : SCE_T3_DEFAULT;
break;
case SCE_T3_D_STRING:
chQuote = '"';
endState = SCE_T3_DEFAULT;
break;
case SCE_T3_X_STRING:
chQuote = '"';
endState = SCE_T3_X_DEFAULT;
break;
}
while (sc.More()) {
if (IsEOL(sc.ch, sc.chNext)) {
return;
}
if (sc.ch == chQuote) {
sc.ForwardSetState(endState);
return;
}
if (sc.state == SCE_T3_D_STRING && sc.Match('<', '<')) {
lineState |= T3_INT_EXPRESSION;
sc.SetState(SCE_T3_X_DEFAULT);
sc.Forward(2);
return;
}
if (sc.Match('\\', static_cast<char>(chQuote))
|| sc.Match('\\', '\\')) {
sc.Forward(2);
} else if (sc.ch == '{') {
ColouriseTADS3MsgParam(sc, lineState);
} else if (sc.Match('<', '.')) {
ColouriseTADS3LibDirective(sc, lineState);
} else if (sc.ch == '<') {
ColouriseTADS3HTMLTag(sc, lineState);
if (sc.state == SCE_T3_X_DEFAULT)
return;
} else {
sc.Forward();
}
}
}
static void ColouriseTADS3HTMLTag(StyleContext &sc, int &lineState) {
int endState = sc.state;
int chQuote = '"';
int chString = '\'';
switch (endState) {
case SCE_T3_S_STRING:
ColouriseTADS3HTMLTagStart(sc);
sc.SetState(SCE_T3_HTML_DEFAULT);
chQuote = '\'';
chString = '"';
break;
case SCE_T3_D_STRING:
case SCE_T3_X_STRING:
ColouriseTADS3HTMLTagStart(sc);
sc.SetState(SCE_T3_HTML_DEFAULT);
break;
case SCE_T3_HTML_DEFAULT:
if (lineState&T3_SINGLE_QUOTE) {
endState = SCE_T3_S_STRING;
chQuote = '\'';
chString = '"';
} else if (lineState&T3_INT_EXPRESSION) {
endState = SCE_T3_X_STRING;
} else {
endState = SCE_T3_D_STRING;
}
break;
}
while (sc.More()) {
if (IsEOL(sc.ch, sc.chNext)) {
return;
}
if (sc.Match('/', '>')) {
sc.SetState(SCE_T3_HTML_TAG);
sc.Forward(2);
sc.SetState(endState);
return;
}
if (sc.ch == '>') {
sc.SetState(SCE_T3_HTML_TAG);
sc.ForwardSetState(endState);
return;
}
if (sc.ch == chQuote) {
sc.SetState(endState);
return;
}
if (sc.Match('\\', static_cast<char>(chQuote))) {
sc.Forward();
ColouriseTADSHTMLString(sc, lineState);
if (sc.state == SCE_T3_X_DEFAULT)
break;
} else if (sc.ch == chString) {
ColouriseTADSHTMLString(sc, lineState);
} else if (sc.ch == '=') {
ColouriseTADS3Operator(sc);
} else {
sc.Forward();
}
}
}