914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
|
TclNewLiteralStringObj(msg, "invalid character \"$\"");
errCode = "BADCHAR";
goto error;
}
scanned = tokenPtr->size;
break;
case SCRIPT: {
#if 0
TclParseScript(interp, start, numBytes, PARSE_NESTED,
#else
Tcl_Parse *nestedPtr =
TclStackAlloc(interp, sizeof(Tcl_Parse));
tokenPtr = parsePtr->tokenPtr + parsePtr->numTokens;
tokenPtr->type = TCL_TOKEN_COMMAND;
tokenPtr->start = start;
tokenPtr->numComponents = 0;
|
|
|
<
<
|
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
|
TclNewLiteralStringObj(msg, "invalid character \"$\"");
errCode = "BADCHAR";
goto error;
}
scanned = tokenPtr->size;
break;
case SCRIPT:
if (parseOnly) {
Tcl_Parse *nestedPtr =
TclStackAlloc(interp, sizeof(Tcl_Parse));
tokenPtr = parsePtr->tokenPtr + parsePtr->numTokens;
tokenPtr->type = TCL_TOKEN_COMMAND;
tokenPtr->start = start;
tokenPtr->numComponents = 0;
|
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
|
}
TclStackFree(interp, nestedPtr);
end = start;
start = tokenPtr->start;
scanned = end - start;
tokenPtr->size = scanned;
parsePtr->numTokens++;
#endif
} /* SCRIPT case */
|
|
>
>
>
<
|
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
|
}
TclStackFree(interp, nestedPtr);
end = start;
start = tokenPtr->start;
scanned = end - start;
tokenPtr->size = scanned;
parsePtr->numTokens++;
break;
}
code = TclParseScriptSubst(start, numBytes, parsePtr, 0);
scanned = parsePtr->term + 1 - start;
break;
}
if (code != TCL_OK) {
/*
* Here we handle all the syntax errors generated by the
* Tcl_Token generating parsing routines called in the switch
* just above. If the value of parsePtr->incomplete is 1, then
* the error was an unbalanced '[', '(', '{', or '"' and
|