1407
1408
1409
1410
1411
1412
1413
1414
1415
1416
1417
1418
1419
1420
1421
|
Tcl_Close(NULL, infoPtr->channel);
return NULL;
} else if (TCL_ERROR == Tcl_SetChannelOption(NULL, infoPtr->channel,
"-eofchar", "")) {
Tcl_Close(NULL, infoPtr->channel);
return NULL;
}
return infoPtr->channel
}
/*
*----------------------------------------------------------------------
*
* Tcl_MakeTcpClientChannel --
*
|
|
|
1407
1408
1409
1410
1411
1412
1413
1414
1415
1416
1417
1418
1419
1420
1421
|
Tcl_Close(NULL, infoPtr->channel);
return NULL;
} else if (TCL_ERROR == Tcl_SetChannelOption(NULL, infoPtr->channel,
"-eofchar", "")) {
Tcl_Close(NULL, infoPtr->channel);
return NULL;
}
return infoPtr->channel;
}
/*
*----------------------------------------------------------------------
*
* Tcl_MakeTcpClientChannel --
*
|