void Lex::Get(int n)
{
while(n--) {
if(term.GetCount()) {
if(body && term.Head().grounding)
throw Grounding();
int chr = term.Head().code;
if(statsCollected)
symbolStat.IncStat(chr);
if(chr == '{')
braceslevel++;
else
if(chr == '}')
braceslevel--;
term.DropHead();
}
if(term.GetCount() == 0)
Next();
if(term.GetCount() == 0)
break;
}
#ifdef LOGNEXT
Dump(0);
#endif
}
void CodeEditor::SyntaxState::ScanSyntax(const wchar *ln, const wchar *e, int tab_size)
{
Grounding(ln, e);
if(!linecont) {
linecomment = false;
string = false;
}
linecont = e > ln && e[-1] == '\\';
const wchar *p = ln;
int lindent = 0, pos = 0;
while(p < e && (*p == '\t' || *p == ' ')) {
if(*p++ == '\t' || ++pos >= tab_size) {
pos = 0;
lindent++;
}
}
int n;
Color c = GetUvsHighlight(p, n);
if(n) {
uvscolor = c;
p += n;
}
if(!comment && *p == '#') {
while(++p < e && (*p == ' ' || *p == '\t'))
p++;
const wchar *id = p;
while(p < e && iscidl(*p))
p++;
int idlen = int(p - id);
if(id[0] == 'i' && id[1] == 'f'
&& (idlen == 2 || idlen == 5 && id[2] == 'd' && id[3] == 'e' && id[4] == 'f'
|| idlen == 6 && id[2] == 'n' && id[3] == 'd' && id[4] == 'e' && id[5] == 'f')) {
IfState& ifstate = ifstack.Add();
ifstate.state = IfState::IF;
ifstate.iftext = sReadLn(ln);
ifstate.ifline = line + 1;
}
switch(idlen)
{
case 6:
if(id[0] == 'd' && id[1] == 'e' && id[2] == 'f' && id[3] == 'i' && id[4] == 'n' && id[5] == 'e')
macro = SyntaxState::MACRO_CONT;
break;
case 4:
if(id[0] == 'e' && id[1] == 'l')
if(id[2] == 'i' && id[3] == 'f')
if(ifstack.GetCount() == 0) {
IfState& ifstate = ifstack.Add();
ifstate.ifline = 0;
ifstate.state = IfState::ELSE_ERROR;
}
else {
IfState& ifstate = ifstack.Top();
if(ifstate.state == IfState::IF || ifstate.state == IfState::ELIF) {
ifstate.state = IfState::ELIF;
ifstate.iftext = WString().Cat() << sReadLn(ln) << ", " << ifstate.iftext;
}
else
ifstate.state = IfState::ELSE_ERROR;
}
else
if(id[2] == 's' && id[3] == 'e')
if(ifstack.GetCount() == 0) {
IfState& ifstate = ifstack.Add();
ifstate.ifline = 0;
ifstate.state = IfState::ELSE_ERROR;
}
else {
IfState& ifstate = ifstack.Top();
if(ifstate.state == IfState::IF || ifstate.state == IfState::ELIF) {
ifstate.state = IfState::ELSE;
ifstate.iftext = "#else, " + ifstate.iftext;
}
else
ifstate.state = IfState::ELSE_ERROR;
}
break;
case 5:
if(id[0] == 'e' && id[1] == 'n' && id[2] == 'd' && id[3] == 'i' && id[4] == 'f')
{
int itop = ifstack.GetCount() - 1;
if(itop < 0) {
IfState& ifstate = ifstack.Add();
ifstate.ifline = 0;
ifstate.state = IfState::ENDIF_ERROR;
}
else if(ifstack[itop].state != IfState::ENDIF_ERROR)
ifstack.Trim(itop);
}
break;
}
}
if(macro == SyntaxState::MACRO_CONT && !(p < e && e[-1] == '\\'))
macro = SyntaxState::MACRO_END;
for(;;) {
if(comment) {
p = strnext(p, e, '*');
if(!p) break;
if(*++p == '/') {
comment = false;
p++;
}
}
else {
int pc = 0;
for(;;) {
if(p >= e) return;
const wchar *pp;
if(!iscidl(pc) && (pp = isstmt(p)) != NULL) {
stmtline = line;
spar = 0;
pc = 0;
p = pp;
}
else
if(!iscidl(pc) && p[0] == 'n' && p[1] == 'a' && p[2] == 'm' && p[3] == 'e' &&
p[4] == 's' && p[5] == 'p' && p[6] == 'a' && p[7] == 'c' && p[8] == 'e' &&
!iscidl(p[9])) {
was_namespace = true;
p += 9;
}
else {
int c = *p++;
if(c == '/') break;
if(c == '\'' || c == '\"') {
p = eatstring(p - 1);
if(p >= e) {
string = true;
return;
}
}
else
if(c == ';' && spar == 0) {
seline = stmtline;
endstmtline = line;
stmtline = -1;
was_namespace = false;
}
else
if(c == '{') {
if(was_namespace) {
brk.Add(0);
was_namespace = false;
}
else {
cl++;
brk.Add('}');
bid.Add(lindent + 1);
}
blk.Add() = line;
stmtline = -1;
par.Clear();
}
else
if(c == '}') {
if(brk.GetCount()) {
if(brk.Top()) {
cl--;
if(bid.GetCount() > 1)
bid.Drop();
}
brk.Drop();
}
if(blk.GetCount())
blk.Drop();
stmtline = -1;
par.Clear();
}
else
if(c == '(') {
pl++;
brk.Add(')');
Isx& m = par.Add();
m.line = line;
m.pos = int(p - ln);
spar++;
}
else
if(c == '[') {
bl++;
brk.Add(']');
Isx& m = par.Add();
m.line = line;
m.pos = int(p - ln);
spar++;
}
else
if(c == ')') {
if(brk.GetCount()) {
pl--;
brk.Drop();
}
if(par.GetCount())
par.Drop();
spar--;
}
else
if(c == ']') {
if(brk.GetCount()) {
bl--;
brk.Drop();
}
if(par.GetCount())
par.Drop();
spar--;
}
pc = c;
}
}
if(*p == '/') {
linecomment = true;
return;
}
if(*p == '*') {
comment = true;
p++;
}
}
}
}
