diff options
| author | dgp <dgp@users.sourceforge.net> | 2002-01-23 20:46:00 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2002-01-23 20:46:00 (GMT) |
| commit | fe36337ab48292e97cc3cae11a8efe99c1143bde (patch) | |
| tree | 8b7ee1b7505a49478958828584bb52e02c1a3a8b /mac/tclMacSock.c | |
| parent | 0575def9cda1df361ad97091ee969acbcc827ce3 (diff) | |
| download | tcl-fe36337ab48292e97cc3cae11a8efe99c1143bde.zip tcl-fe36337ab48292e97cc3cae11a8efe99c1143bde.tar.gz tcl-fe36337ab48292e97cc3cae11a8efe99c1143bde.tar.bz2 | |
* Updated socket interfaces according to TIP 27. Updated callers.
Diffstat (limited to 'mac/tclMacSock.c')
| -rw-r--r-- | mac/tclMacSock.c | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/mac/tclMacSock.c b/mac/tclMacSock.c index 5239cfc..7112ee3 100644 --- a/mac/tclMacSock.c +++ b/mac/tclMacSock.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: tclMacSock.c,v 1.10 2002/01/15 17:55:30 dgp Exp $ + * RCS: @(#) $Id: tclMacSock.c,v 1.11 2002/01/23 20:46:01 dgp Exp $ */ #include "tclInt.h" @@ -138,14 +138,14 @@ static pascal void CleanUpExitProc _ANSI_ARGS_((void)); static void ClearZombieSockets _ANSI_ARGS_((void)); static void CloseCompletionRoutine _ANSI_ARGS_((TCPiopb *pb)); static TcpState * CreateSocket _ANSI_ARGS_((Tcl_Interp *interp, - int port, char *host, char *myAddr, int myPort, - int server, int async)); + int port, CONST char *host, CONST char *myAddr, + int myPort, int server, int async)); static pascal void DNRCompletionRoutine _ANSI_ARGS_(( struct hostInfo *hostinfoPtr, DNRState *dnrStatePtr)); static void FreeSocketInfo _ANSI_ARGS_((TcpState *statePtr)); static long GetBufferSize _ANSI_ARGS_((void)); -static OSErr GetHostFromString _ANSI_ARGS_((char *name, +static OSErr GetHostFromString _ANSI_ARGS_((CONST char *name, ip_addr *address)); static OSErr GetLocalAddress _ANSI_ARGS_((unsigned long *addr)); static void IOCompletionRoutine _ANSI_ARGS_((TCPiopb *pb)); @@ -1654,8 +1654,8 @@ static TcpState * CreateSocket( Tcl_Interp *interp, /* For error reporting; can be NULL. */ int port, /* Port number to open. */ - char *host, /* Name of host on which to open port. */ - char *myaddr, /* Optional client-side address */ + CONST char *host, /* Name of host on which to open port. */ + CONST char *myaddr, /* Optional client-side address */ int myport, /* Optional client-side port */ int server, /* 1 if socket should be a server socket, * else 0 for a client socket. */ @@ -1844,8 +1844,8 @@ Tcl_Channel Tcl_OpenTcpClient( Tcl_Interp *interp, /* For error reporting; can be NULL. */ int port, /* Port number to open. */ - char *host, /* Host on which to open port. */ - char *myaddr, /* Client-side address */ + CONST char *host, /* Host on which to open port. */ + CONST char *myaddr, /* Client-side address */ int myport, /* Client-side port */ int async) /* If nonzero, attempt to do an * asynchronous connect. Otherwise @@ -1898,7 +1898,7 @@ Tcl_OpenTcpServer( Tcl_Interp *interp, /* For error reporting - may be * NULL. */ int port, /* Port number to open. */ - char *host, /* Name of local host. */ + CONST char *host, /* Name of local host. */ Tcl_TcpAcceptProc *acceptProc, /* Callback for accepting connections * from new clients. */ ClientData acceptProcData) /* Data for the callback. */ @@ -2225,7 +2225,7 @@ TcpAccept( *---------------------------------------------------------------------- */ -char * +CONST char * Tcl_GetHostName() { static int hostnameInited = 0; @@ -2426,7 +2426,7 @@ CleanUpExitProc() static OSErr GetHostFromString( - char *name, /* Host in string form. */ + CONST char *name, /* Host in string form. */ ip_addr *address) /* Returned IP address. */ { OSErr err; |