2759
2760
2761
2762
2763
2764
2765
2766
2767
2768
2769
2770
2771
2772
2773
|
2759
2760
2761
2762
2763
2764
2765
2766
2767
2768
2769
2770
2771
2772
2773
|
-
+
|
Tcl_Channel chan;
const Tcl_ChannelType *chanTypePtr;
PipeInfo *pipePtr;
TCL_HASH_TYPE i;
Tcl_Obj *resultPtr, *elemPtr;
if (objc > 2) {
Tcl_WrongNumArgs(interp, 1, objv, "?channelId?");
Tcl_WrongNumArgs(interp, 1, objv, "?channel?");
return TCL_ERROR;
}
if (objc == 1) {
TclNewIntObj(elemPtr, getpid());
Tcl_SetObjResult(interp, elemPtr);
} else {
chan = Tcl_GetChannel(interp, TclGetString(objv[1]),
|