Cross Reference: /ast/src/lib/libtksh/tcl/tclUtil.c

Lines Matching defs:iPtr
44 static void		SetupAppendBuffer _ANSI_ARGS_((Interp *iPtr,
980     register Interp *iPtr = (Interp *) interp;
982     Tcl_FreeProc *oldFreeProc = iPtr->freeProc;
983     char *oldResult = iPtr->result;
986 	iPtr->resultSpace[0] = 0;
987 	iPtr->result = iPtr->resultSpace;
988 	iPtr->freeProc = 0;
992 	    iPtr->result = (char *) ckalloc((unsigned) length+1);
993 	    iPtr->freeProc = TCL_DYNAMIC;
995 	    iPtr->result = iPtr->resultSpace;
996 	    iPtr->freeProc = 0;
998 	strcpy(iPtr->result, string);
1000 	iPtr->result = string;
1001 	iPtr->freeProc = freeProc;
1045     register Interp *iPtr;
1054     iPtr = (Interp *) TCL_VARARGS_START(Tcl_Interp *,arg1,argList);
1070     if ((iPtr->result != iPtr->appendResult)
1071 	    || (iPtr->appendResult[iPtr->appendUsed] != 0)
1072 	    || ((newSpace + iPtr->appendUsed) >= iPtr->appendAvl)) {
1073        SetupAppendBuffer(iPtr, newSpace);
1087 	strcpy(iPtr->appendResult + iPtr->appendUsed, string);
1088 	iPtr->appendUsed += strlen(string);
1122     register Interp *iPtr = (Interp *) interp;
1132     if ((iPtr->result != iPtr->appendResult)
1133 	    || (iPtr->appendResult[iPtr->appendUsed] != 0)
1134 	    || ((size + iPtr->appendUsed) >= iPtr->appendAvl)) {
1135        SetupAppendBuffer(iPtr, size+iPtr->appendUsed);
1143     dst = iPtr->appendResult + iPtr->appendUsed;
1144     if (TclNeedSpace(iPtr->appendResult, dst)) {
1145 	iPtr->appendUsed++;
1149     iPtr->appendUsed += Tcl_ConvertElement(string, dst, flags);
1172 SetupAppendBuffer(iPtr, newSpace)
1173     register Interp *iPtr;	/* Interpreter whose result is being set up. */
1185     if (iPtr->result != iPtr->appendResult) {
1192 	if (iPtr->appendAvl > 500) {
1193 	    ckfree(iPtr->appendResult);
1194 	    iPtr->appendResult = NULL;
1195 	    iPtr->appendAvl = 0;
1197 	iPtr->appendUsed = strlen(iPtr->result);
1198     } else if (iPtr->result[iPtr->appendUsed] != 0) {
1205 	iPtr->appendUsed = strlen(iPtr->result);
1207     totalSpace = newSpace + iPtr->appendUsed;
1208     if (totalSpace >= iPtr->appendAvl) {
1217 	strcpy(new, iPtr->result);
1218 	if (iPtr->appendResult != NULL) {
1219 	    ckfree(iPtr->appendResult);
1221 	iPtr->appendResult = new;
1222 	iPtr->appendAvl = totalSpace;
1223     } else if (iPtr->result != iPtr->appendResult) {
1224 	strcpy(iPtr->appendResult, iPtr->result);
1226     Tcl_FreeResult(iPtr);
1227     iPtr->result = iPtr->appendResult;
1254     register Interp *iPtr = (Interp *) interp;
1256     Tcl_FreeResult(iPtr);
1257     iPtr->result = iPtr->resultSpace;
1258     iPtr->resultSpace[0] = 0;
1259     iPtr->flags &=
1291     Interp *iPtr;
1298     iPtr = (Interp *) TCL_VARARGS_START(Tcl_Interp *,arg1,argList);
1305 	(void) Tcl_SetVar2((Tcl_Interp *) iPtr, "errorCode",
1310     iPtr->flags |= ERROR_CODE_SET;
1393     register Interp *iPtr = (Interp *) interp;
1399 	if ((length == iPtr->patLengths[i])
1400 		&& (strcmp(string, iPtr->patterns[i]) == 0)) {
1410 		cachedString = iPtr->patterns[i];
1411 		result = iPtr->regexps[i];
1413 		    iPtr->patterns[j+1] = iPtr->patterns[j];
1414 		    iPtr->patLengths[j+1] = iPtr->patLengths[j];
1415 		    iPtr->regexps[j+1] = iPtr->regexps[j];
1417 		iPtr->patterns[0] = cachedString;
1418 		iPtr->patLengths[0] = length;
1419 		iPtr->regexps[0] = result;
1421 	    return (Tcl_RegExp) iPtr->regexps[0];
1438     if (iPtr->patterns[NUM_REGEXPS-1] != NULL) {
1439 	ckfree(iPtr->patterns[NUM_REGEXPS-1]);
1440 	ckfree((char *) iPtr->regexps[NUM_REGEXPS-1]);
1443 	iPtr->patterns[i+1] = iPtr->patterns[i];
1444 	iPtr->patLengths[i+1] = iPtr->patLengths[i];
1445 	iPtr->regexps[i+1] = iPtr->regexps[i];
1447     iPtr->patterns[0] = (char *) ckalloc((unsigned) (length+1));
1448     strcpy(iPtr->patterns[0], string);
1449     iPtr->patLengths[0] = length;
1450     iPtr->regexps[0] = result;
1901     Interp *iPtr = (Interp *) interp;
1905     dsPtr->length = strlen(iPtr->result);
1906     if (iPtr->freeProc != NULL) {
1907 	if ((iPtr->freeProc == TCL_DYNAMIC)
1908 		|| (iPtr->freeProc == (Tcl_FreeProc *) free)) {
1909 	    dsPtr->string = iPtr->result;
1913 	    strcpy(dsPtr->string, iPtr->result);
1914 	    (*iPtr->freeProc)(iPtr->result);
1917 	iPtr->freeProc = NULL;
1926 	strcpy(dsPtr->string, iPtr->result);
1928     iPtr->result = iPtr->resultSpace;
1929     iPtr->resultSpace[0] = 0;
2068     register Interp *iPtr = (Interp *) interp;
2083 	strcpy(iPtr->pdFormat, DEFAULT_PD_FORMAT);
2084 	iPtr->pdPrec = DEFAULT_PD_PREC;
2097 	sprintf(oldValue, "%d", iPtr->pdPrec);
2101     sprintf(iPtr->pdFormat, "%%.%dg", prec);
2102     iPtr->pdPrec = prec;