Searched refs:result (Results 1 - 25 of 101) sorted by relevance

12345

/ast/src/lib/libtksh/src/
H A Deval.c17 int result, commandType, oldInterpType; local
30 result = commandData->info.proc(commandData->info.clientData,
37 if (result == TCL_ERROR)
39 fprintf(stderr, "%s\n", commandData->interp->result);
45 if (commandData->interp->result &&
46 (*commandData->interp->result) &&
49 if (commandData->interp->result &&
50 (*commandData->interp->result) &&
57 commandData->interp->result);
67 return result;
232 int result, oldInterpType = iPtr->interpType; local
270 int result; local
301 int result, oldInterpType, oldListMode; local
352 int result; local
376 int result, jmpval; local
393 int result; local
407 int result; local
431 int result = TCL_OK; local
[all...]
H A Dvarcmd.c29 * A standard Tcl result value.
52 interp->result = value;
55 char *result; local
57 result = Tcl_SetVar(interp, argv[1], argv[2], TCL_LEAVE_ERR_MSG);
58 if (result == NULL) {
61 interp->result = result;
102 * A standard Tcl result value.
143 * A standard Tcl result value.
160 char *result
158 char *result = NULL; /* (Initialization only needed to keep local
220 char *result = NULL; /* (Initialization only needed to keep local
256 int level, mode = 0, result = 1; local
320 int result; local
410 int result; local
517 int result; local
588 int result; local
806 int valueArgc, i, result; local
[all...]
H A Dtcleval.c80 * (such as TCL_OK), and interp->result contains a string value
81 * to supplement the return code. The value of interp->result
129 int result; /* Return value. */ local
154 * Initialize the result to an empty string and clear out any
156 * result if there are no commands in the command string.
160 iPtr->result = iPtr->resultSpace;
162 result = TCL_OK;
192 iPtr->result = "too many nested calls to Tcl_Eval (infinite loop?)";
255 result = TclParseWords((Tcl_Interp *) iPtr, src, flags,
258 if (result !
[all...]
H A Dtclproc.c22 * A standard Tcl result value.
40 int result, argCount, i; local
64 result = Tcl_SplitList(interp, argv[2], &argCount, &argArray);
65 if (result != TCL_OK) {
77 result = Tcl_SplitList(interp, argArray[i], &fieldCount,
79 if (result != TCL_OK) {
87 result = TCL_ERROR;
94 result = TCL_ERROR;
139 return result;
204 * A standard Tcl result valu
224 int result; local
288 int result; local
[all...]
H A Dfilecmd.c26 * A standard Tcl result.
43 int c, statOp, result; local
57 result = TCL_OK;
65 result = TCL_ERROR;
74 result = TCL_ERROR;
79 interp->result = ".";
81 interp->result = "/";
141 result = TCL_ERROR;
153 interp->result = "0";
155 interp->result
652 int oldInterpType = iPtr->interpType, result = TCL_ERROR; local
833 int result; local
[all...]
H A Dlist.c78 char *result, **argv; local
80 result = NULL;
85 result = Tcl_Merge(argc, argv);
88 return result;
93 int result = TCL_ERROR; local
123 result = Tksh_OkOrErr();
128 return result;
187 char *result; local
211 * Pass two: copy into the result area.
214 result
[all...]
H A Dcommands.c15 interp->result = "wrong # args";
42 * A standard Tcl result.
75 sprintf(interp->result, "%d", listArgc);
89 * A standard Tcl result.
284 * A standard Tcl result.
348 iPtr->result = procPtr->command;
357 sprintf(iPtr->result, "%d", iPtr->cmdCount);
388 interp->result = "1";
390 interp->result = "0";
421 iPtr->result
[all...]
H A DtclIO.c365 Channel *chanPtr, char *result, int space));
416 int result, nRead; local
428 buf, size, &result);
430 if ((result == EWOULDBLOCK) || (result == EAGAIN)) {
432 result = EAGAIN;
434 Tcl_SetErrno(result);
439 buf, size, &result);
599 int result; char *p, *start = buf; local
604 result
656 sfsizeret_t result; local
747 int result, curPos; local
2309 int result; local
2340 int result = 0; /* Of calling driver close local
2491 int result; /* Of calling FlushChannel. */ local
2843 int result; /* Of calling FlushChannel. */ local
3849 int result; /* Of device driver operations. */ local
4554 int result; /* Result of channel type operation. */ local
5696 int result; /* Result of call to eval script. */ local
[all...]
/ast/src/lib/libtksh/tcl/
H A DtclCmdAH.c38 * A standard Tcl result.
72 * A standard Tcl result.
88 int i, result;
117 result = Tcl_SplitList(interp, caseArgv[0], &caseArgc, &caseArgv);
118 if (result != TCL_OK) {
119 return result;
130 interp->result = "extra case pattern with no body";
131 result = TCL_ERROR;
162 result = Tcl_SplitList(interp, caseArgv[i], &patArgc, &patArgv);
163 if (result !
86 int i, result; local
226 int result; local
273 int result; local
430 int result; local
527 int i, result; local
575 int c, statOp, result; local
1142 int result, value; local
1218 int result = TCL_OK; local
[all...]
H A DtclExpr.c368 * interp->result, so we have to clear the result before
373 interp->result = "integer value too large to represent";
375 interp->result, (char *) NULL);
428 * standard Tcl error is returned, using interp->result to hold
453 int result;
477 interp->result = "integer value too large to represent";
479 interp->result, (char *) NULL);
527 result = Tcl_Eval(interp, p+1);
529 if (result !
451 int result; local
738 int result; local
1378 int result; local
1454 int result; local
1481 int result; local
1508 int result; local
1552 int result; local
1671 int i, result; local
[all...]
H A DtclCmdIL.c73 * A standard Tcl result.
89 int i, result, value;
106 result = Tcl_ExprBoolean(interp, argv[i], &value);
107 if (result != TCL_OK) {
108 return result;
167 * A standard Tcl result.
184 char *oldString, *result;
215 result = Tcl_SetVar(interp, argv[1], newString, TCL_LEAVE_ERR_MSG);
216 if (result == NULL) {
219 interp->result
88 int i, result, value; local
182 char *oldString, *result; local
300 int index, size, parenthesized, result, returnLast; local
372 int i, index, count, result, size; local
490 int count, result; local
537 int first, last, result; local
644 int i, first, last, count, result, size, firstIsEnd; local
[all...]
H A DtclGlob.c39 * The return value is a standard Tcl result indicating whether
41 * result in interp will be set to hold all of the file names
43 * result in interp will hold an error message.
77 int result = TCL_OK;
134 interp->result = "unmatched open-brace in file name";
135 result = TCL_ERROR;
147 result = DoGlob(interp, dir, newName.string);
148 if (result != TCL_OK) {
182 result = TCL_ERROR;
214 result
76 int result = TCL_OK; local
359 int i, result, noComplain, firstArg; local
[all...]
H A DtclCmdMZ.c56 * A standard Tcl result.
84 interp->result = dirName;
98 * A standard Tcl result.
196 interp->result = "0";
207 char *result, info[50];
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);
228 result = Tcl_SetVar(interp, argPtr[i+2], first, 0);
232 if (result
205 char *result, info[50]; local
1452 Tcl_DString result; local
1745 int count, i, result; local
1988 char *result; local
2082 int result, value; local
[all...]
H A DtclUtil.c60 * interp->result contains a more detailed error message.
168 sprintf(interp->result,
227 sprintf(interp->result,
329 * structure; interp->result will contain a more detailed
360 int size, i, result, elSize, brace;
380 result = TclFindElement(interp, list, &element, &list, &elSize, &brace);
381 if (result != TCL_OK) {
383 return result;
477 * the result (actually, it overestimates). It also collects information
700 char *result;
357 int size, i, result, elSize, brace; local
694 char *result; local
762 char *result; local
1379 regexp *result; local
[all...]
H A DtclParse.c180 char result;
191 * could result in non-portable Tcl scripts.
195 result = 0x7;
198 result = 0x8;
201 result = 0xc;
204 result = 0xa;
207 result = 0xd;
210 result = 0x9;
213 result = 0xb;
219 result
179 char result; local
356 int result; local
424 int result, length, shortfall; local
625 int type, result, argc; local
1258 char *name1, *name1End, c, *result; local
[all...]
H A DtclUnixNotfy.c169 int index, result, type, fd;
179 result = 0;
181 result |= TCL_READABLE;
184 result |= TCL_WRITABLE;
187 result |= TCL_EXCEPTION;
189 return result;
166 int index, result, type, fd; local
H A DtclUnixFile.c66 int result;
71 result = (int) waitpid(real_pid, statPtr, options);
72 if ((result != -1) || (errno != EINTR)) {
73 return result;
146 * The result is a standard Tcl result. If an error occurs and
147 * interp isn't NULL, an error message is left in interp->result.
185 * The result is the full path name of the current working
189 * isn't NULL, an error message is left in interp->result.
213 interp->result
65 int result; local
276 int result; local
[all...]
H A DtclIOCmd.c56 * A standard Tcl result.
76 int result; /* Result of puts operation. */
120 result = Tcl_Write(chan, argv[i], -1);
121 if (result < 0) {
125 result = Tcl_Write(chan, "\n", 1);
126 if (result < 0) {
147 * A standard Tcl result.
164 int result; /* Result of call to channel
183 result = Tcl_Flush(chan);
184 if (result !
75 int result; /* Result of puts operation. */ local
162 int result; /* Result of call to channel local
543 int result; /* Of calling Tcl_Seek. */ local
719 int result; /* Of Tcl_Set/GetChannelOption. */ local
[all...]
/ast/src/cmd/pax/
H A Dtestpax.sh150 00) result= ;;
151 *) result=" FAILED"; ((errors++)) ;;
154 print -u2 "$TEST base $fmt$result"
155 case $bail:$result in
205 00) result= ;;
206 *) result=" FAILED"; ((errors++)) ;;
209 print -u2 "$TEST delta $fmt$result"
210 case $bail:$result in
230 00) result= ;;
231 *) result
[all...]
/ast/src/lib/libtk/generic/
H A DtkCmds.c44 * A standard Tcl result.
96 * A standard Tcl result.
157 interp->result = command;
260 * A standard Tcl result.
396 * A standard Tcl result.
436 * A standard Tcl result.
492 * A standard Tcl result.
548 * A standard Tcl result.
587 interp->result = winPtr->nameUid;
606 * A standard Tcl result
[all...]
H A DtkConfig.c58 * interp->result will hold an error message.
219 * in interp->result.
550 sprintf(interp->result, "bad config table: unknown type %d",
570 * Always returns TCL_OK. Interp->result will be modified
573 * options available. In the "all" case, the result will
574 * available for "widgRec" via "specs". The result will
629 interp->result = FormatConfigInfo(interp, tkwin, specPtr, widgRec);
687 char *argv[6], *result;
712 result = Tcl_Merge(5, argv);
720 return result;
682 char *argv[6], *result; local
754 char *ptr, *result; local
[all...]
H A DtkConsole.c188 printf("Eval error: %s", consoleInterp->result);
410 int result;
421 result = TCL_OK;
444 result = TCL_ERROR;
447 return result;
478 int result;
489 result = TCL_OK;
493 result = Tcl_GlobalEval(otherInterp, argv[2]);
494 Tcl_AppendResult(interp, otherInterp->result, (char *) NULL);
497 result
401 int result; local
468 int result; local
592 int result; local
[all...]
H A DtkSend.c76 * When a result is being awaited from a sent command, one of
79 * process the result when it arrives. You're probably wondering
87 * result. */
96 char *result; /* String result for command (malloc'ed), member in struct:PendingCommand
120 * when a result is returned from a sent command, it is also appended
123 * Each command and each result takes the form of ASCII text. For a
151 * A result also consists of a zero character followed by several null-
158 * Identifies the command for which this is the result. It is the
167 * -r result
276 int result, actualFormat; local
579 int result, actualFormat, argc, i; local
879 int result, c, async, i, firstArg; local
1292 int result, actualFormat; local
[all...]
/ast/src/lib/libtk/unix/
H A DtkUnixSelect.c102 * then an error message is left in interp->result.
136 int result;
138 result = TkClipInit(interp, dispPtr);
139 if (result != TCL_OK) {
140 return result;
149 retr.result = -1;
173 while (retr.result == -1) {
196 return retr.result;
382 int format, result;
392 && (retrPtr->result
135 int result; local
379 int format, result; local
630 int format, result; local
865 int format, result; local
1142 char *result; local
[all...]
/ast/src/cmd/tksh/
H A DtkMain.c176 Tcl_Write(errChannel, interp->result, -1);
212 Tcl_Write(errChannel, interp->result, -1);
227 Tcl_Write(errChannel, interp->result, -1);
364 if (*interp->result != 0) {
368 * in core dumps under Solaris 2.3 if the result was very long.
373 puts(interp->result);
450 Tcl_Write(errChannel, interp->result, -1);
474 int result;
495 result = Tk_BindCmd(clientData, interp, argc, argv);
498 return result;
471 int result; local
626 int tFlag = 0, result = 1; local
[all...]

Completed in 162 milliseconds

12345