diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-04-10 11:01:52 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-04-10 11:01:52 (GMT) |
| commit | bb7cd71c99b02286373e20ac3cc35538f9a26799 (patch) | |
| tree | da3ddd5544fa58d0283d7de291c19156e1b52de3 /generic/tcl.decls | |
| parent | 211801be532da7c72b73cf0311dc07eaef32aac5 (diff) | |
| parent | 1d506e42aefb665e5243f2ca4cbaeb86c4c4036e (diff) | |
| download | tcl-bb7cd71c99b02286373e20ac3cc35538f9a26799.zip tcl-bb7cd71c99b02286373e20ac3cc35538f9a26799.tar.gz tcl-bb7cd71c99b02286373e20ac3cc35538f9a26799.tar.bz2 | |
Merge "tip-468" branch. Add new function Tcl_OpenTcpClientEx() with same change as Tcl_OpenTcpServerEx(): in stead of a port number, supplie a "service" string.tip_468_bis
Diffstat (limited to 'generic/tcl.decls')
| -rw-r--r-- | generic/tcl.decls | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/generic/tcl.decls b/generic/tcl.decls index ba047a0..f37d4d1 100644 --- a/generic/tcl.decls +++ b/generic/tcl.decls @@ -1059,7 +1059,7 @@ declare 293 { int Tcl_EvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr, int flags) } declare 294 { - void Tcl_ExitThread(int status) + TCL_NORETURN void Tcl_ExitThread(int status) } declare 295 { int Tcl_ExternalToUtf(Tcl_Interp *interp, Tcl_Encoding encoding, @@ -2329,8 +2329,13 @@ declare 630 { # TIP #456 declare 631 { Tcl_Channel Tcl_OpenTcpServerEx(Tcl_Interp *interp, const char *service, - const char *host, unsigned int flags, Tcl_TcpAcceptProc *acceptProc, - ClientData callbackData) + const char *host, unsigned int flags, int backlog, + Tcl_TcpAcceptProc *acceptProc, ClientData callbackData) +} +declare 632 { + Tcl_Channel Tcl_OpenTcpClientEx(Tcl_Interp *interp, const char *service, + const char *host, const char *myaddr, const char *myservice, + unsigned int flags) } # ----- BASELINE -- FOR -- 8.7.0 ----- # |