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

Lines Matching refs:argPtr
117     char **argPtr, *string, *pattern, *start, *end;
130     argPtr = argv+1;
132     while ((argc > 0) && (argPtr[0][0] == '-')) {
133 	if (strcmp(argPtr[0], "-indices") == 0) {
135 	} else if (strcmp(argPtr[0], "-nocase") == 0) {
137 	} else if (strcmp(argPtr[0], "--") == 0) {
138 	    argPtr++;
142 	    Tcl_AppendResult(interp, "bad switch \"", argPtr[0],
146 	argPtr++;
162 	Tcl_DStringAppend(&patternDString, argPtr[0], -1);
170 	Tcl_DStringAppend(&stringDString, argPtr[1], -1);
178 	pattern = argPtr[0];
179 	string = argPtr[1];
212 		result = Tcl_SetVar(interp, argPtr[i+2], "-1 -1", 0);
214 		result = Tcl_SetVar(interp, argPtr[i+2], "", 0);
220 		result = Tcl_SetVar(interp, argPtr[i+2], info, 0);
224 		first = argPtr[1] + (start - string);
225 		last = argPtr[1] + (end - string);
228 		result = Tcl_SetVar(interp, argPtr[i+2], first, 0);
234 		    argPtr[i+2], "\"", (char *) NULL);
270     char *string, *pattern, *p, *firstChar, *newValue, **argPtr;
282     argPtr = argv+1;
284     while (argPtr[0][0] == '-') {
285 	if (strcmp(argPtr[0], "-nocase") == 0) {
287 	} else if (strcmp(argPtr[0], "-all") == 0) {
289 	} else if (strcmp(argPtr[0], "--") == 0) {
290 	    argPtr++;
294 	    Tcl_AppendResult(interp, "bad switch \"", argPtr[0],
298 	argPtr++;
311 	Tcl_DStringAppend(&patternDString, argPtr[0], -1);
319 	Tcl_DStringAppend(&stringDString, argPtr[1], -1);
327 	pattern = argPtr[0];
328 	string = argPtr[1];
362 	src = argPtr[1] + (start - string);
365 	newValue = Tcl_SetVar(interp, argPtr[3], argPtr[1] + (p - string),
372 		    argPtr[3], "\"", (char *) NULL);
384 	for (src = firstChar = argPtr[2], c = *src; c != 0; src++, c = *src) {
396 		    newValue = Tcl_SetVar(interp, argPtr[3], firstChar,
415 		newValue = Tcl_SetVar(interp, argPtr[3], firstChar,
426 		first = argPtr[1] + (subStart - string);
427 		last = argPtr[1] + (subEnd - string);
430 		newValue = Tcl_SetVar(interp, argPtr[3], first,
443 	    if (Tcl_SetVar(interp, argPtr[3], firstChar,
456 	    tmp[0] = argPtr[1][p - string];
458 	    newValue = Tcl_SetVar(interp, argPtr[3], tmp, flags);
477 	if (Tcl_SetVar(interp, argPtr[3], argPtr[1] + (p - string),