*** generic/tclIOCmd.c	1998/06/01 20:15:58	1.1
--- generic/tclIOCmd.c	1998/07/20 17:24:58
***************
*** 10,15 ****
--- 10,16 ----
   *
   * SCCS: @(#) tclIOCmd.c 1.96 96/05/10 15:20:56
   */
+ static char rcsid[] = "$Header: /local/src/usr.contrib/tcl7.5/generic/RCS/tclIOCmd.c,v 1.2 1998/07/20 17:24:42 pkern Exp $";
  
  #include	"tclInt.h"
  #include	"tclPort.h"
***************
*** 1368,1373 ****
--- 1369,1375 ----
      char *myaddr = NULL;
      int myport = 0;
      int async = 0;
+     int local = 0;
      Tcl_Channel chan;
      AcceptCallback *acceptCallbackPtr;
      
***************
*** 1426,1434 ****
                      return TCL_ERROR;
                  }
                  async = 1;
  	    } else {
  		Tcl_AppendResult(interp, "bad option \"", arg,
!                         "\", must be -async, -myaddr, -myport, or -server",
                          (char *) NULL);
  		return TCL_ERROR;
  	    }
--- 1428,1438 ----
                      return TCL_ERROR;
                  }
                  async = 1;
+             } else if (strcmp(arg, "-local") == 0) {
+ 		local = 1;
  	    } else {
  		Tcl_AppendResult(interp, "bad option \"", arg,
!                         "\", must be -async, -myaddr, -myport, -local, or -server",
                          (char *) NULL);
  		return TCL_ERROR;
  	    }
***************
*** 1450,1464 ****
  wrongNumArgs:
  	Tcl_AppendResult(interp, "wrong # args: should be either:\n",
  		argv[0],
!                 " ?-myaddr addr? ?-myport myport? ?-async? host port\n",
  		argv[0],
!                 " -server command ?-myaddr addr? port",
                  (char *) NULL);
          return TCL_ERROR;
      }
  
      if (a == argc-1) {
! 	if (TclSockGetPort(interp, argv[a], "tcp", &port) != TCL_OK) {
  	    return TCL_ERROR;
  	}
      } else {
--- 1454,1472 ----
  wrongNumArgs:
  	Tcl_AppendResult(interp, "wrong # args: should be either:\n",
  		argv[0],
!                 " ?-myaddr addr? ?-myport myport? ?-async? ?-local? host port\n",
  		argv[0],
!                 " -server command ?-local? ?-myaddr addr? port",
                  (char *) NULL);
          return TCL_ERROR;
      }
  
      if (a == argc-1) {
! 	if (local) {
! 	    port = -1;
! 	    host = argv[a];
! 	}
! 	else if (TclSockGetPort(interp, argv[a], "tcp", &port) != TCL_OK) {
  	    return TCL_ERROR;
  	}
      } else {