diff options
Diffstat (limited to 'generic/tclIOSock.c')
| -rw-r--r-- | generic/tclIOSock.c | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/generic/tclIOSock.c b/generic/tclIOSock.c index 366d0ab..69e2351 100644 --- a/generic/tclIOSock.c +++ b/generic/tclIOSock.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIOSock.c,v 1.9 2005/07/19 22:45:35 dkf Exp $ + * RCS: @(#) $Id: tclIOSock.c,v 1.10 2005/11/07 15:17:25 dkf Exp $ */ #include "tclInt.h" @@ -33,11 +33,11 @@ */ int -TclSockGetPort(interp, string, proto, portPtr) - Tcl_Interp *interp; - char *string; /* Integer or service name */ - char *proto; /* "tcp" or "udp", typically */ - int *portPtr; /* Return port number */ +TclSockGetPort( + Tcl_Interp *interp, + char *string, /* Integer or service name */ + char *proto, /* "tcp" or "udp", typically */ + int *portPtr) /* Return port number */ { struct servent *sp; /* Protocol info for named services */ Tcl_DString ds; @@ -61,7 +61,7 @@ TclSockGetPort(interp, string, proto, portPtr) } if (*portPtr > 0xFFFF) { Tcl_AppendResult(interp, "couldn't open socket: port number too high", - (char *) NULL); + NULL); return TCL_ERROR; } return TCL_OK; @@ -84,9 +84,9 @@ TclSockGetPort(interp, string, proto, portPtr) */ int -TclSockMinimumBuffers(sock, size) - int sock; /* Socket file descriptor */ - int size; /* Minimum buffer size */ +TclSockMinimumBuffers( + int sock, /* Socket file descriptor */ + int size) /* Minimum buffer size */ { int current; socklen_t len; |