|
|
@ -186,18 +186,17 @@ int idoline(interpreter *interp, const char *line)
|
|
|
|
loop:
|
|
|
|
loop:
|
|
|
|
ooffset = 0;
|
|
|
|
ooffset = 0;
|
|
|
|
offset = 0;
|
|
|
|
offset = 0;
|
|
|
|
|
|
|
|
skipblank(line, eol, &offset);
|
|
|
|
|
|
|
|
|
|
|
|
if (line[0] == '#') {
|
|
|
|
if (line[offset] == '#') {
|
|
|
|
goto norun;
|
|
|
|
goto norun;
|
|
|
|
} else if (interp->indent > 0) {
|
|
|
|
} else if (interp->indent > 0) {
|
|
|
|
skipblank(line, eol, &offset);
|
|
|
|
|
|
|
|
if (!strcmp(line + offset, "end"))
|
|
|
|
if (!strcmp(line + offset, "end"))
|
|
|
|
interp->indent--;
|
|
|
|
interp->indent--;
|
|
|
|
goto norun;
|
|
|
|
goto norun;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
// step 1 - convert to tokens
|
|
|
|
// step 1 - convert to tokens
|
|
|
|
skipblank(line, eol, &offset);
|
|
|
|
|
|
|
|
while (!eol(line[offset])) {
|
|
|
|
while (!eol(line[offset])) {
|
|
|
|
if (offset > 0 && line[offset] == '>') {
|
|
|
|
if (offset > 0 && line[offset] == '>') {
|
|
|
|
offset++;
|
|
|
|
offset++;
|
|
|
|