/ast/src/lib/libtksh/src/ |
H A D | eval.c | 17 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 D | varcmd.c | 29 * 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 D | tcleval.c | 80 * (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 D | tclproc.c | 22 * 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 D | filecmd.c | 26 * 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 D | list.c | 78 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 D | commands.c | 15 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 D | tclIO.c | 365 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 D | tclCmdAH.c | 38 * 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 D | tclExpr.c | 368 * 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 D | tclCmdIL.c | 73 * 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 D | tclGlob.c | 39 * 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 D | tclCmdMZ.c | 56 * 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 D | tclUtil.c | 60 * 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 D | tclParse.c | 180 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 D | tclUnixNotfy.c | 169 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 D | tclUnixFile.c | 66 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 D | tclIOCmd.c | 56 * 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 D | testpax.sh | 150 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 D | tkCmds.c | 44 * 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 D | tkConfig.c | 58 * 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 D | tkConsole.c | 188 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 D | tkSend.c | 76 * 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 D | tkUnixSelect.c | 102 * 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 D | tkMain.c | 176 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...] |