/ast/src/lib/libtk/unix/ |
H A D | tkUnixInit.c | 94 libDir = Tcl_GetVar(interp, "tk_library", TCL_GLOBAL_ONLY); 99 Tcl_SetVar(interp, "tk_library", defaultLibraryDir, TCL_GLOBAL_ONLY);
|
H A D | tkAppInit.c | 120 Tcl_SetVar(interp, "tcl_rcFileName", "~/.wishrc", TCL_GLOBAL_ONLY);
|
H A D | tkUnix.c | 78 screenName = Tcl_GetVar2(interp, "env", "DISPLAY", TCL_GLOBAL_ONLY);
|
/ast/src/lib/libtksh/src/ |
H A D | tclMain.c | 40 Tcl_SetVar(interp, "argv", args, TCL_GLOBAL_ONLY); 43 Tcl_SetVar(interp, "argc", buffer, TCL_GLOBAL_ONLY); 45 TCL_GLOBAL_ONLY); 53 ((fileName == NULL) && tty) ? "1" : "0", TCL_GLOBAL_ONLY); 86 Tcl_GetVar(interp, "errorInfo", TCL_GLOBAL_ONLY), -1); 108 Tcl_SetVar(interp, "tcl_rcFileName", "~/.tclshrc", TCL_GLOBAL_ONLY);
|
H A D | init.c | 66 Tcl_SetVar(interp, "tcl_pkgPath", pkgPath, TCL_GLOBAL_ONLY); 67 Tcl_SetVar2(interp,"tcl_platform", "platform", "unix", TCL_GLOBAL_ONLY); 68 Tcl_SetVar2(interp,"tcl_platform", "os", "", TCL_GLOBAL_ONLY); 69 Tcl_SetVar2(interp,"tcl_platform", "osVersion", "", TCL_GLOBAL_ONLY); 70 Tcl_SetVar2(interp,"tcl_platform", "machine", "", TCL_GLOBAL_ONLY); 108 Tcl_SetVar(interp, "tcl_library", libDir, TCL_GLOBAL_ONLY); 109 Tcl_SetVar(interp, "tcl_patchLevel", TCL_PATCH_LEVEL, TCL_GLOBAL_ONLY); 110 Tcl_SetVar(interp, "tcl_version", TCL_VERSION, TCL_GLOBAL_ONLY); 111 Tcl_SetVar(interp, "tksh_version", TCL_VERSION, TCL_GLOBAL_ONLY); 113 TCL_GLOBAL_ONLY|TCL_TRACE_WRITE [all...] |
H A D | basic.c | 846 TCL_GLOBAL_ONLY); 856 TCL_GLOBAL_ONLY); 860 TCL_GLOBAL_ONLY|TCL_APPEND_VALUE);
|
H A D | tcleval.c | 60 TCL_GLOBAL_ONLY); 64 iPtr->errorInfo, TCL_GLOBAL_ONLY);
|
H A D | tclproc.c | 356 TCL_GLOBAL_ONLY); 360 iPtr->errorInfo, TCL_GLOBAL_ONLY);
|
H A D | var.c | 92 * Opens a ksh variable. Handles the tcl flags TCL_GLOBAL_ONLY and 105 if (flags & TCL_GLOBAL_ONLY) 583 traceFlags = (traceinfo->flags & TCL_GLOBAL_ONLY) 661 traceFlags = (trace.flags & TCL_GLOBAL_ONLY) | TCL_TRACE_READS; 789 share_flag(traceinfo->flags, flags, TCL_GLOBAL_ONLY) && 846 share_flag(traceinfo->flags, flags, TCL_GLOBAL_ONLY))
|
H A D | commands.c | 612 interp->result = Tcl_GetVar(interp, "tcl_library", TCL_GLOBAL_ONLY); 686 TCL_GLOBAL_ONLY|TCL_LEAVE_ERR_MSG); 755 TCL_GLOBAL_ONLY|TCL_LEAVE_ERR_MSG);
|
/ast/src/lib/libtksh/tcl/ |
H A D | tclLink.c | 114 TCL_GLOBAL_ONLY|TCL_LEAVE_ERR_MSG) == NULL) { 119 code = Tcl_TraceVar(interp, varName, TCL_GLOBAL_ONLY|TCL_TRACE_READS 155 linkPtr = (Link *) Tcl_VarTraceInfo(interp, varName, TCL_GLOBAL_ONLY, 161 TCL_GLOBAL_ONLY|TCL_TRACE_READS|TCL_TRACE_WRITES|TCL_TRACE_UNSETS, 196 linkPtr = (Link *) Tcl_VarTraceInfo(interp, varName, TCL_GLOBAL_ONLY, 204 TCL_GLOBAL_ONLY); 255 TCL_GLOBAL_ONLY); 256 Tcl_TraceVar(interp, linkPtr->varName, TCL_GLOBAL_ONLY 296 TCL_GLOBAL_ONLY); 312 TCL_GLOBAL_ONLY); [all...] |
H A D | tclClock.c | 309 varValue = Tcl_GetVar2(interp, "env", "TZ", TCL_GLOBAL_ONLY); 315 Tcl_SetVar2(interp, "env", "TZ", "GMT", TCL_GLOBAL_ONLY); 349 Tcl_SetVar2(interp, "env", "TZ", savedTZEnv, TCL_GLOBAL_ONLY); 352 Tcl_UnsetVar2(interp, "env", "TZ", TCL_GLOBAL_ONLY);
|
H A D | tclLoad.c | 374 "errorInfo", (char *) NULL, TCL_GLOBAL_ONLY)); 377 TCL_GLOBAL_ONLY), TCL_GLOBAL_ONLY);
|
H A D | tclInterp.c | 526 Tcl_SetVar(slaveInterp, "tcl_interactive", "0", TCL_GLOBAL_ONLY); 532 NULL, TCL_GLOBAL_ONLY)); 535 TCL_GLOBAL_ONLY), 536 TCL_GLOBAL_ONLY); 1377 "errorInfo", (char *) NULL, TCL_GLOBAL_ONLY)); 1380 NULL, TCL_GLOBAL_ONLY), 1381 TCL_GLOBAL_ONLY); 1691 "errorInfo", (char *) NULL, TCL_GLOBAL_ONLY)); 1694 (char *) NULL, TCL_GLOBAL_ONLY), 1695 TCL_GLOBAL_ONLY); [all...] |
H A D | tclEvent.c | 1290 varValue = Tcl_GetVar(interp, "errorInfo", TCL_GLOBAL_ONLY); 1296 varValue = Tcl_GetVar(interp, "errorCode", TCL_GLOBAL_ONLY); 1372 TCL_GLOBAL_ONLY); 1374 TCL_GLOBAL_ONLY); 2062 TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS, 2072 TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
|
H A D | tclUtil.c | 1299 flags = TCL_GLOBAL_ONLY | TCL_LIST_ELEMENT; 2080 TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS, 2088 value = Tcl_GetVar2(interp, name1, name2, flags & TCL_GLOBAL_ONLY); 2098 Tcl_SetVar2(interp, name1, name2, oldValue, flags & TCL_GLOBAL_ONLY);
|
/ast/src/lib/libtk/generic/ |
H A D | tkMain.c | 136 Tcl_SetVar(interp, "argv", args, TCL_GLOBAL_ONLY); 139 Tcl_SetVar(interp, "argc", buf, TCL_GLOBAL_ONLY); 141 TCL_GLOBAL_ONLY); 160 ((fileName == NULL) && tty) ? "1" : "0", TCL_GLOBAL_ONLY); 234 Tcl_Write(errChannel, Tcl_GetVar(interp, "errorInfo", TCL_GLOBAL_ONLY), 369 partial ? "tcl_prompt2" : "tcl_prompt1", TCL_GLOBAL_ONLY);
|
H A D | tkButton.c | 672 TCL_GLOBAL_ONLY|TCL_LEAVE_ERR_MSG) == NULL) { 677 TCL_GLOBAL_ONLY|TCL_LEAVE_ERR_MSG) == NULL) { 731 TCL_GLOBAL_ONLY|TCL_LEAVE_ERR_MSG) == NULL) { 744 TCL_GLOBAL_ONLY) == NULL) { 749 TCL_GLOBAL_ONLY) == NULL) { 798 TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS, 824 TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS, 874 TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS, 879 TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS, 995 value = Tcl_GetVar(interp, butPtr->selVarName, TCL_GLOBAL_ONLY); [all...] |
H A D | tkMessage.c | 372 TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS, 422 TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS, 440 value = Tcl_GetVar(interp, msgPtr->textVarName, TCL_GLOBAL_ONLY); 443 TCL_GLOBAL_ONLY); 452 TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS, 881 TCL_GLOBAL_ONLY); 883 TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS, 889 value = Tcl_GetVar(interp, msgPtr->textVarName, TCL_GLOBAL_ONLY);
|
H A D | tkMenubutton.c | 514 TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS, 579 TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS, 700 value = Tcl_GetVar(interp, mbPtr->textVarName, TCL_GLOBAL_ONLY); 703 TCL_GLOBAL_ONLY); 712 TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS, 1182 TCL_GLOBAL_ONLY); 1184 TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS, 1190 value = Tcl_GetVar(interp, mbPtr->textVarName, TCL_GLOBAL_ONLY);
|
H A D | tkSend.c | 990 "errorInfo", (char *) NULL, TCL_GLOBAL_ONLY)); 993 TCL_GLOBAL_ONLY), TCL_GLOBAL_ONLY); 1127 TCL_GLOBAL_ONLY); 1472 (char *) NULL, TCL_GLOBAL_ONLY); 1478 (char *) NULL, TCL_GLOBAL_ONLY);
|
H A D | tkEntry.c | 823 TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS, 881 TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS, 900 value = Tcl_GetVar(interp, entryPtr->textVarName, TCL_GLOBAL_ONLY); 907 TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS, 1496 entryPtr->string, TCL_GLOBAL_ONLY); 2255 TCL_GLOBAL_ONLY); 2257 TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS, 2270 value = Tcl_GetVar(interp, entryPtr->textVarName, TCL_GLOBAL_ONLY);
|
H A D | tkWindow.c | 780 Tcl_SetVar(interp, "tk_patchLevel", TK_PATCH_LEVEL, TCL_GLOBAL_ONLY); 781 Tcl_SetVar(interp, "tk_version", TK_VERSION, TCL_GLOBAL_ONLY); 2347 p = Tcl_GetVar2(interp, "argv", (char *) NULL, TCL_GLOBAL_ONLY); 2363 Tcl_SetVar2(interp, "argv", (char *) NULL, p, TCL_GLOBAL_ONLY); 2365 Tcl_SetVar2(interp, "argc", (char *) NULL, buffer, TCL_GLOBAL_ONLY); 2374 name = Tcl_GetVar(interp, "argv0", TCL_GLOBAL_ONLY); 2413 Tcl_SetVar2(interp, "env", "DISPLAY", display, TCL_GLOBAL_ONLY); 2443 Tcl_SetVar(interp, "geometry", geometry, TCL_GLOBAL_ONLY);
|
H A D | tkTest.c | 935 TCL_GLOBAL_ONLY|TCL_APPEND_VALUE|TCL_LIST_ELEMENT); 983 TCL_GLOBAL_ONLY|TCL_APPEND_VALUE|TCL_LIST_ELEMENT); 1027 TCL_GLOBAL_ONLY|TCL_APPEND_VALUE|TCL_LIST_ELEMENT); 1062 TCL_GLOBAL_ONLY|TCL_APPEND_VALUE|TCL_LIST_ELEMENT);
|
/ast/src/cmd/tksh/ |
H A D | tkMain.c | 141 Tcl_SetVar(interp, "argv", args, TCL_GLOBAL_ONLY); 144 Tcl_SetVar(interp, "argc", buf, TCL_GLOBAL_ONLY); 146 TCL_GLOBAL_ONLY); 165 ((fileName == NULL) && tty) ? "1" : "0", TCL_GLOBAL_ONLY); 202 fileName = Tcl_GetVar(interp, "tcl_rcFileName", TCL_GLOBAL_ONLY); 285 Tcl_Write(errChannel, Tcl_GetVar(interp, "errorInfo", TCL_GLOBAL_ONLY), 421 partial ? "tcl_prompt2" : "tcl_prompt1", TCL_GLOBAL_ONLY); 591 Tcl_SetVar(interp, "tcl_rcFileName", "~/.wishrc", TCL_GLOBAL_ONLY);
|