[naviserver-commits] naviserver/nsd tclsock.c,1.4,1.5

[Stephen D. <sd...@us...>]

Update of /cvsroot/naviserver/naviserver/nsd
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22466/nsd

Modified Files:
	tclsock.c 
Log Message:
Removed unused static function.


Index: tclsock.c
===================================================================
RCS file: /cvsroot/naviserver/naviserver/nsd/tclsock.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** tclsock.c	10 Jun 2005 20:53:13 -0000	1.4
--- tclsock.c	13 Jun 2005 01:47:18 -0000	1.5
***************
*** 70,75 ****
  static int EnterDup(Tcl_Interp *interp, SOCKET sock);
  static int EnterDupedSocks(Tcl_Interp *interp, SOCKET sock);
- static int SockSetBlocking(char *value, Tcl_Interp *interp, int argc,
- 			   	char **argv);
  static int SockSetBlockingObj(char *value, Tcl_Interp *interp, int objc, 
  				Tcl_Obj *CONST objv[]);
--- 70,73 ----
***************
*** 824,861 ****
   *----------------------------------------------------------------------
   *
-  * SockSetBlocking --
-  *
-  *	Set a socket blocking. 
-  *
-  * Results:
-  *	Tcl result. 
-  *
-  * Side effects:
-  *	None. 
-  *
-  *----------------------------------------------------------------------
-  */
- 
- static int
- SockSetBlocking(char *value, Tcl_Interp *interp, int argc, char **argv)
- {
-     Tcl_Channel chan;
- 
-     if (argc != 2) {
-         Tcl_AppendResult(interp, "wrong # args: should be \"",
-             argv[0], " sockId\"", NULL);
-         return TCL_ERROR;
-     }
-     chan = Tcl_GetChannel(interp, argv[1], NULL);
-     if (chan == NULL) {
- 	return TCL_ERROR;
-     }
-     return Tcl_SetChannelOption(interp, chan, "-blocking", value);
- }
- 
- 
- /*
-  *----------------------------------------------------------------------
-  *
   * SockSetBlockingObj --
   *
--- 822,825 ----