/ast/src/cmd/cs/vcs_src/ |
H A D | vcs_dir.c | 35 int result; local 64 if ((result = strcmp(dp->tag->version, tp->version)) == 0) 80 else if (result > 0)
|
/ast/src/lib/libtksh/tcl/ |
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 | 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 | tclPkg.c | 73 * message is left in interp->result. 127 * message is left in interp->result. 151 int code, satisfies, result, pass; 180 result = ComparePkgVersions(availPtr->version, version, 182 if ((result != 0) && exact) { 265 result = ComparePkgVersions(pkgPtr->version, version, &satisfies); 266 if ((satisfies && !exact) || (result == 0)) { 285 * A standard Tcl result. 361 interp->result = availPtr->script; 410 interp->result 149 int code, satisfies, result, pass; 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
|
/ast/src/lib/libtk/generic/ |
H A D | tkClipboard.c | 232 * A standard Tcl result. If an error occurs, an error message is 233 * left in interp->result. 262 int result; 264 result = TkClipInit(interp, dispPtr); 265 if (result != TCL_OK) { 266 return result; 318 * A standard Tcl result. If an error is returned, an error message 319 * is left in interp->result. 422 * A standard Tcl result. 537 sprintf(interp->result, 257 int result; local [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 | tkSelect.h | 91 int result; /* Initially -1. Set to a Tcl member in struct:TkSelRetrievalInfo
|
H A D | tkSquare.c | 113 * A standard Tcl result. 174 interp->result = Tk_PathName(squarePtr->tkwin); 189 * A standard Tcl result. 205 int result = TCL_OK; 225 result = Tk_ConfigureValue(interp, squarePtr->tkwin, configSpecs, 230 result = Tk_ConfigureInfo(interp, squarePtr->tkwin, configSpecs, 233 result = Tk_ConfigureInfo(interp, squarePtr->tkwin, configSpecs, 236 result = SquareConfigure(interp, squarePtr, argc-2, argv+2, 253 sprintf(interp->result, "%d %d", squarePtr->x, squarePtr->y); 274 sprintf(interp->result, " 203 int result = TCL_OK; local [all...] |
H A D | tkTextIndex.c | 48 * exist), and indexPtr is returned as result. 191 * The return value is a standard Tcl return result. If 194 * and an error message is left in interp->result. 215 int wantLast, result; 347 result = TkTextWindowIndex(textPtr, string, indexPtr); 349 if (result != 0) { 369 result = TkTextMarkNameToIndex(textPtr, string, indexPtr); 371 if (result == TCL_OK) { 211 int wantLast, result; local
|
H A D | tkBitmap.c | 126 * message is left in interp->result. The caller should never 179 int result; 185 result = XReadBitmapFile(Tk_Display(tkwin), 190 if (result != BitmapSuccess) { 256 * A standard Tcl result. If an error occurs then TCL_ERROR is 257 * returned and a message is left in interp->result. 453 * interp->result. The caller should never modify the bitmap that 178 int result; local
|
H A D | tkCanvPoly.c | 150 * interp->result; in this case itemPtr is 234 * Returns TCL_OK or TCL_ERROR, and sets interp->result. 321 * A standard Tcl result code. If an error occurs, then 322 * an error message is left in interp->result. 762 int numPoints, result; 791 result = TkPolygonToArea(coordPtr, numPoints, rectPtr); 798 result = TkThickPolyLineToArea(coordPtr, numPoints, 800 if (result >= 0) { 818 result = -1; 820 result 753 int numPoints, result; local [all...] |
H A D | tkEvent.c | 989 Tk_RestrictAction result; 995 result = (*restrictProc)(restrictArg, &wevPtr->event); 996 if (result != TK_PROCESS_EVENT) { 997 if (result == TK_DEFER_EVENT) { 978 Tk_RestrictAction result; local
|
H A D | tkFrame.c | 177 * A standard Tcl result. 220 * A standard Tcl result. 389 interp->result = Tk_PathName(new); 410 * A standard Tcl result. 426 int result = TCL_OK; 444 result = TCL_ERROR; 447 result = Tk_ConfigureValue(interp, framePtr->tkwin, configSpecs, 452 result = Tk_ConfigureInfo(interp, framePtr->tkwin, configSpecs, 455 result = Tk_ConfigureInfo(interp, framePtr->tkwin, configSpecs, 479 result 423 int result = TCL_OK; local [all...] |
H A D | tkPlace.c | 151 * A standard Tcl result. 473 * A standard Tcl result. If an error occurs then a message is 474 * left in interp->result. 492 int c, result; 496 result = TCL_OK; 507 result = TCL_ERROR; 514 result = TCL_ERROR; 534 result = TCL_ERROR; 543 result = TCL_ERROR; 554 result 487 int c, result; local [all...] |
H A D | tkRectOval.c | 158 * interp->result; in this case itemPtr is left uninitialized, 232 * Returns TCL_OK or TCL_ERROR, and sets interp->result. 275 sprintf(interp->result, 294 * A standard Tcl result code. If an error occurs, then 295 * an error message is left in interp->result. 817 int result; 832 result = TkOvalToArea(oval, areaPtr); 841 if ((result == 0) && (ovalPtr->outlineGC != None) 865 return result; 953 * The return value is a standard Tcl result 807 int result; local [all...] |
H A D | tkSelect.c | 439 * then an error message is left in interp->result. 465 * TCL_ERROR and leave an error message in interp->result; the 498 * result in deadlock if an INCR-style selection results). 508 int offset, result, count; 531 result = (*proc)(clientData, interp, buffer); 534 result = TCL_OK; 549 result = (*proc)(clientData, interp, buffer); 550 if ((result != TCL_OK) || (count < TK_SEL_BYTES_AT_ONCE) 558 return result; 586 * A standard Tcl result 503 int offset, result, count; local 660 int result; local [all...] |
H A D | tkTextTag.c | 96 * A standard Tcl result. 240 interp->result = command; 275 int result; 277 result = Tk_ConfigureWidget(interp, textPtr->tkwin, tagConfigSpecs, 427 return result; 833 * error message is recorded in interp->result unless interp 274 int result; local
|
/ast/src/lib/libtksh/src/ |
H A D | basic.c | 182 iPtr->result = iPtr->resultSpace; 569 * Free up the result *after* deleting variables, since variable 570 * deletion could have transferred ownership of the result string 575 interp->result = NULL; 841 * interp->result and the new message. 845 Tcl_SetVar2(interp, "errorInfo", (char *) NULL, interp->result, 870 * all together and execute the result as a Tcl command. 873 * A standard Tcl return result. An error message or other 874 * result may be left in interp->result 876 int result; local [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 | 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 | 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...] |
/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...] |