Lines Matching defs:parsePtr
54 Tcl_Parse *parsePtr; /* Points to structure to fill in with
204 * parsePtr is filled in with information about the expression that
208 * If there is insufficient space in parsePtr to hold all the
218 Tcl_ParseExpr(interp, string, numBytes, parsePtr)
224 Tcl_Parse *parsePtr; /* Structure to fill with information about
242 parsePtr->commentStart = NULL;
243 parsePtr->commentSize = 0;
244 parsePtr->commandStart = NULL;
245 parsePtr->commandSize = 0;
246 parsePtr->numWords = 0;
247 parsePtr->tokenPtr = parsePtr->staticTokens;
248 parsePtr->numTokens = 0;
249 parsePtr->tokensAvailable = NUM_STATIC_TOKENS;
250 parsePtr->string = string;
251 parsePtr->end = (string + numBytes);
252 parsePtr->interp = interp;
253 parsePtr->term = string;
254 parsePtr->incomplete = 0;
261 info.parsePtr = parsePtr;
289 if (parsePtr->tokenPtr != parsePtr->staticTokens) {
290 ckfree((char *) parsePtr->tokenPtr);
316 * If there is insufficient space in parsePtr to hold all the
328 Tcl_Parse *parsePtr = infoPtr->parsePtr;
335 firstIndex = parsePtr->numTokens;
350 if ((parsePtr->numTokens + 1) >= parsePtr->tokensAvailable) {
351 TclExpandTokenArray(parsePtr);
353 firstTokenPtr = &parsePtr->tokenPtr[firstIndex];
355 numToMove = (parsePtr->numTokens - firstIndex);
358 parsePtr->numTokens += 2;
409 condTokenPtr = &parsePtr->tokenPtr[firstIndex];
411 condTokenPtr->numComponents = parsePtr->numTokens - (firstIndex+1);
431 * If there is insufficient space in parsePtr to hold all the
443 Tcl_Parse *parsePtr = infoPtr->parsePtr;
449 firstIndex = parsePtr->numTokens;
492 * If there is insufficient space in parsePtr to hold all the
504 Tcl_Parse *parsePtr = infoPtr->parsePtr;
510 firstIndex = parsePtr->numTokens;
553 * If there is insufficient space in parsePtr to hold all the
565 Tcl_Parse *parsePtr = infoPtr->parsePtr;
571 firstIndex = parsePtr->numTokens;
615 * If there is insufficient space in parsePtr to hold all the
627 Tcl_Parse *parsePtr = infoPtr->parsePtr;
633 firstIndex = parsePtr->numTokens;
677 * If there is insufficient space in parsePtr to hold all the
689 Tcl_Parse *parsePtr = infoPtr->parsePtr;
695 firstIndex = parsePtr->numTokens;
739 * If there is insufficient space in parsePtr to hold all the
751 Tcl_Parse *parsePtr = infoPtr->parsePtr;
757 firstIndex = parsePtr->numTokens;
804 * If there is insufficient space in parsePtr to hold all the
816 Tcl_Parse *parsePtr = infoPtr->parsePtr;
822 firstIndex = parsePtr->numTokens;
873 * If there is insufficient space in parsePtr to hold all the
885 Tcl_Parse *parsePtr = infoPtr->parsePtr;
891 firstIndex = parsePtr->numTokens;
936 * If there is insufficient space in parsePtr to hold all the
948 Tcl_Parse *parsePtr = infoPtr->parsePtr;
954 firstIndex = parsePtr->numTokens;
999 * If there is insufficient space in parsePtr to hold all the
1011 Tcl_Parse *parsePtr = infoPtr->parsePtr;
1017 firstIndex = parsePtr->numTokens;
1062 * If there is insufficient space in parsePtr to hold all the
1074 Tcl_Parse *parsePtr = infoPtr->parsePtr;
1080 firstIndex = parsePtr->numTokens;
1126 * If there is insufficient space in parsePtr to hold all the
1138 Tcl_Parse *parsePtr = infoPtr->parsePtr;
1139 Tcl_Interp *interp = parsePtr->interp;
1175 if (parsePtr->numTokens == parsePtr->tokensAvailable) {
1176 TclExpandTokenArray(parsePtr);
1178 exprIndex = parsePtr->numTokens;
1179 exprTokenPtr = &parsePtr->tokenPtr[exprIndex];
1182 parsePtr->numTokens++;
1191 firstIndex = parsePtr->numTokens;
1199 if (parsePtr->numTokens == parsePtr->tokensAvailable) {
1200 TclExpandTokenArray(parsePtr);
1202 tokenPtr = &parsePtr->tokenPtr[parsePtr->numTokens];
1207 parsePtr->numTokens++;
1209 exprTokenPtr = &parsePtr->tokenPtr[exprIndex];
1221 (infoPtr->lastChar - dollarPtr), parsePtr, 1);
1225 infoPtr->next = dollarPtr + parsePtr->tokenPtr[firstIndex].size;
1227 exprTokenPtr = &parsePtr->tokenPtr[exprIndex];
1228 exprTokenPtr->size = parsePtr->tokenPtr[firstIndex].size;
1230 (parsePtr->tokenPtr[firstIndex].numComponents + 1);
1240 (infoPtr->lastChar - stringStart), parsePtr, 1, &termPtr);
1246 exprTokenPtr = &parsePtr->tokenPtr[exprIndex];
1248 exprTokenPtr->numComponents = parsePtr->numTokens - firstIndex;
1257 if (parsePtr->numTokens >= parsePtr->tokensAvailable) {
1258 TclExpandTokenArray(parsePtr);
1260 tokenPtr = &parsePtr->tokenPtr[firstIndex];
1261 numToMove = (parsePtr->numTokens - firstIndex);
1264 parsePtr->numTokens++;
1266 exprTokenPtr = &parsePtr->tokenPtr[exprIndex];
1281 if (parsePtr->numTokens == parsePtr->tokensAvailable) {
1282 TclExpandTokenArray(parsePtr);
1284 tokenPtr = &parsePtr->tokenPtr[parsePtr->numTokens];
1288 parsePtr->numTokens++;
1297 if (Tcl_ParseCommand(interp, src, (parsePtr->end - src), 1,
1299 parsePtr->term = nested.term;
1300 parsePtr->errorType = nested.errorType;
1301 parsePtr->incomplete = nested.incomplete;
1320 if ((nested.term < parsePtr->end) && (*nested.term == ']')
1324 if (src == parsePtr->end) {
1325 if (parsePtr->interp != NULL) {
1329 parsePtr->term = tokenPtr->start;
1330 parsePtr->errorType = TCL_PARSE_MISSING_BRACKET;
1331 parsePtr->incomplete = 1;
1338 exprTokenPtr = &parsePtr->tokenPtr[exprIndex];
1349 (infoPtr->lastChar - infoPtr->start), parsePtr, 1,
1356 exprTokenPtr = &parsePtr->tokenPtr[exprIndex];
1358 exprTokenPtr->numComponents = parsePtr->numTokens - firstIndex;
1367 if (parsePtr->numTokens >= parsePtr->tokensAvailable) {
1368 TclExpandTokenArray(parsePtr);
1370 tokenPtr = &parsePtr->tokenPtr[firstIndex];
1371 numToMove = (parsePtr->numTokens - firstIndex);
1374 parsePtr->numTokens++;
1376 exprTokenPtr = &parsePtr->tokenPtr[exprIndex];
1409 Interp *iPtr = (Interp *) infoPtr->parsePtr->interp;
1457 if (parsePtr->numTokens == parsePtr->tokensAvailable) {
1458 TclExpandTokenArray(parsePtr);
1460 tokenPtr = &parsePtr->tokenPtr[parsePtr->numTokens];
1465 parsePtr->numTokens++;
1490 exprTokenPtr = &parsePtr->tokenPtr[exprIndex];
1492 exprTokenPtr->numComponents = parsePtr->numTokens - firstIndex;
1536 parsePtr->term = infoPtr->next;
1551 * Tcl error code is returned and, if infoPtr->parsePtr->interp is
1562 * If there is insufficient space in parsePtr to hold all the
1577 Tcl_Parse *parsePtr = infoPtr->parsePtr;
1578 Tcl_Interp *interp = parsePtr->interp;
1594 numBytes = parsePtr->end - src;
1597 int scanned = TclParseWhiteSpace(src, numBytes, parsePtr, &type);
1600 parsePtr->term = src;
1630 parsePtr->errorType = TCL_PARSE_BAD_NUMBER;
1637 parsePtr->term = infoPtr->next;
1660 parsePtr->errorType = TCL_PARSE_BAD_NUMBER;
1677 parsePtr->term = infoPtr->next;
1691 parsePtr->term = infoPtr->next;
1766 parsePtr->term = infoPtr->next;
1785 parsePtr->term = infoPtr->next;
1795 parsePtr->term = infoPtr->next;
1805 parsePtr->term = infoPtr->next;
1815 parsePtr->term = infoPtr->next;
1829 parsePtr->term = infoPtr->next;
1841 parsePtr->term = infoPtr->next;
1852 parsePtr->term = infoPtr->next;
1886 parsePtr->term = infoPtr->next;
2014 * If there is insufficient space in parsePtr to hold the new tokens,
2034 Tcl_Parse *parsePtr = infoPtr->parsePtr;
2038 if ((parsePtr->numTokens + 1) >= parsePtr->tokensAvailable) {
2039 TclExpandTokenArray(parsePtr);
2041 firstTokenPtr = &parsePtr->tokenPtr[firstIndex];
2043 numToMove = (parsePtr->numTokens - firstIndex);
2046 parsePtr->numTokens += 2;
2052 tokenPtr->numComponents = parsePtr->numTokens - (firstIndex + 1);
2099 Tcl_ResetResult(infoPtr->parsePtr->interp);
2100 Tcl_AppendStringsToObj(Tcl_GetObjResult(infoPtr->parsePtr->interp),
2102 infoPtr->parsePtr->errorType = TCL_PARSE_SYNTAX;
2103 infoPtr->parsePtr->term = infoPtr->start;