Remove unused TLI ("STREAMSCONN") code from xtrans

Has never been converted to build in modular builds, so has been unusable
since X11R7.0 release in 2005.  All known platforms with TLI/XTI support
that X11R7 & later releases run on also have (and mostly prefer) BSD
socket support for their networking API.

Signed-off-by: Alan Coopersmith <alan.coopersmith@oracle.com>

1 files changed, 0 insertions, 1407 deletions

diff --git a/Xtranstli.c b/Xtranstli.c
deleted file mode 100644
index 397c946..0000000
--- a/Xtranstli.c
+++ /dev/null
@@ -1,1407 +0,0 @@
-/*
-
-Copyright 1993, 1994, 1998  The Open Group
-
-Permission to use, copy, modify, distribute, and sell this software and its
-documentation for any purpose is hereby granted without fee, provided that
-the above copyright notice appear in all copies and that both that
-copyright notice and this permission notice appear in supporting
-documentation.
-
-The above copyright notice and this permission notice shall be included
-in all copies or substantial portions of the Software.
-
-THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
-OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
-MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
-IN NO EVENT SHALL THE OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR
-OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
-ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
-OTHER DEALINGS IN THE SOFTWARE.
-
-Except as contained in this notice, the name of The Open Group shall
-not be used in advertising or otherwise to promote the sale, use or
-other dealings in this Software without prior written authorization
-from The Open Group.
-
- * Copyright 1993, 1994 NCR Corporation - Dayton, Ohio, USA
- *
- * All Rights Reserved
- *
- * Permission to use, copy, modify, and distribute this software and its
- * documentation for any purpose and without fee is hereby granted, provided
- * that the above copyright notice appear in all copies and that both that
- * copyright notice and this permission notice appear in supporting
- * documentation, and that the name NCR not be used in advertising
- * or publicity pertaining to distribution of the software without specific,
- * written prior permission.  NCR makes no representations about the
- * suitability of this software for any purpose.  It is provided "as is"
- * without express or implied warranty.
- *
- * NCR DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
- * INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN
- * NO EVENT SHALL NCR BE LIABLE FOR ANY SPECIAL, INDIRECT OR
- * CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS
- * OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT,
- * NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
- * CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
- */
-
-#include <sys/un.h>
-#include <stropts.h>
-#include <poll.h>
-#include <tiuser.h>
-
-#include <netdir.h>
-#include <netconfig.h>
-
-
-/*
- * This is the TLI implementation of the X Transport service layer
- */
-
-typedef struct _TLItrans2dev {
-    char	*transname;
-    char	*protofamily;
-    char	*devcotsname;
-    char	*devcltsname;
-    int	family;
-} TLItrans2dev;
-
-static TLItrans2dev TLItrans2devtab[] = {
-	{"inet","inet","/dev/tcp","/dev/udp",AF_INET},
-	{"tcp","inet","/dev/tcp","/dev/udp",AF_INET},
-	{"tli","loopback","/dev/ticots","/dev/ticlts",AF_UNIX},
-};
-
-#define NUMTLIFAMILIES (sizeof(TLItrans2devtab)/sizeof(TLItrans2dev))
-
-/*
- * The local TLI connection, is a form of a local connection, so use a
- * sockaddr_un for the address so that it will be treated just like the other
- * local transports such as UNIX domain sockets, pts, and named.
- */
-
-#if defined(X11_t)
-#define TLINODENAME	"TLI:xserver"
-#endif
-
-#if defined(XIM_t)
-#define TLINODENAME	"TLI:xim"
-#endif
-
-#if defined(FS_t) || defined(FONT_t)
-#define TLINODENAME	"TLI:fontserver"
-#endif
-
-#if defined(ICE_t)
-#define TLINODENAME	"TLI:ICE"
-#endif
-
-#if defined(TEST_t)
-#define TLINODENAME	"TLI:test"
-#endif
-
-#ifndef PORTBUFSIZE
-#ifdef TRANS_SERVER
-#define PORTBUFSIZE	64
-#else
-#ifdef TRANS_CLIENT
-#define PORTBUFSIZE	64
-#endif
-#endif
-#endif
-
-
-/*
- * These are some utility function used by the real interface function below.
- */
-
-static int
-TRANS(TLISelectFamily)(char *family)
-
-{
-    int     i;
-
-    prmsg(3,"TLISelectFamily(%s)\n", family);
-
-    for(i=0;i<NUMTLIFAMILIES;i++)
-    {
-	if( !strcmp(family,TLItrans2devtab[i].transname) )
-	    return i;
-    }
-    return -1;
-}
-
-
-/*
- * This function gets the local address of the transport and stores it in the
- * XtransConnInfo structure for the connection.
- */
-
-static int
-TRANS(TLIGetAddr)(XtransConnInfo ciptr)
-
-{
-    Xtransaddr		sockname;
-    struct netbuf	netbuf;
-
-    prmsg(3,"TLIGetAddr(%x)\n", ciptr);
-
-    netbuf.buf=(char *)&sockname;
-    netbuf.len=sizeof(sockname);
-    netbuf.maxlen=sizeof(sockname);
-
-    if( t_getname(ciptr->fd,&netbuf,LOCALNAME) < 0 )
-    {
-	prmsg(1,"TLIGetAddr: t_getname(LOCALNAME) failed: %d\n",
-	      errno);
-	return -1;
-    }
-
-    prmsg(4,"TLIGetAddr: got family %d len %d\n",
-	  ((struct sockaddr *) &sockname)->sa_family ,netbuf.len);
-
-    /*
-     * Everything looks good: fill in the XtransConnInfo structure.
-     */
-
-    if( ciptr->addr )
-	free(ciptr->addr);
-
-    if( (ciptr->addr = malloc(netbuf.len)) == NULL )
-    {
-	prmsg(1, "TLIGetAddr: Can't allocate space for the addr\n");
-	return -1;
-    }
-
-    ciptr->family=((struct sockaddr *) &sockname)->sa_family;
-    ciptr->addrlen=netbuf.len;
-    memcpy(ciptr->addr,&sockname,ciptr->addrlen);
-
-    return 0;
-}
-
-
-/*
- * This function gets the remote address of the socket and stores it in the
- * XtransConnInfo structure for the connection.
- */
-
-static int
-TRANS(TLIGetPeerAddr)(XtransConnInfo ciptr)
-
-{
-    Xtransaddr		sockname;
-    struct netbuf	netbuf;
-
-    prmsg(3,"TLIGetPeerAddr(%x)\n", ciptr);
-
-    netbuf.buf=(char *)&sockname;
-    netbuf.len=sizeof(sockname);
-    netbuf.maxlen=sizeof(sockname);
-
-    if( t_getname(ciptr->fd,&netbuf,REMOTENAME) < 0 )
-    {
-	prmsg(1,"TLIGetPeerAddr: t_getname(REMOTENAME) failed: %d\n",
-	      errno);
-	return -1;
-    }
-
-    prmsg(4,"TLIGetPeerAddr: got family %d len %d\n",
-	  ((struct sockaddr *) &sockname)->sa_family ,netbuf.len);
-
-    /*
-     * Everything looks good: fill in the XtransConnInfo structure.
-     */
-
-    if( ciptr->peeraddr )
-	free(ciptr->peeraddr);
-
-    if( (ciptr->peeraddr = malloc(netbuf.len)) == NULL )
-    {
-	prmsg(1,
-	      "TLIGetPeerAddr: Can't allocate space for the addr\n");
-	return -1;
-    }
-
-    ciptr->peeraddrlen=netbuf.len;
-    memcpy(ciptr->peeraddr,&sockname,ciptr->peeraddrlen);
-
-    return 0;
-}
-
-
-/*
- * This function will establish a local name for the transport. This function
- * do extra work for the local tli connection. It must create a sockaddr_un
- * format address so that it will look like an AF_UNIX connection to the
- * higher layer.
- *
- * This function will only be called by the OPENC?TSClient() functions since
- * the local address is set up in the CreateListner() for the server ends.
- */
-
-static int
-TRANS(TLITLIBindLocal)(int fd, int family, char *port)
-
-{
-    struct sockaddr_un	*sunaddr=NULL;
-    struct t_bind	*req=NULL;
-
-    prmsg(2, "TLITLIBindLocal(%d,%d,%s)\n", fd, family, port);
-
-    if( family == AF_UNIX )
-    {
-	if( (req=(struct t_bind *)t_alloc(fd,T_BIND,0)) == NULL )
-	{
-	    prmsg(1,
-		  "TLITLIBindLocal() failed to allocate a t_bind\n");
-	    return -1;
-	}
-
-	if( (sunaddr=(struct sockaddr_un *)
-	     malloc(sizeof(struct sockaddr_un))) == NULL )
-	{
-	    prmsg(1,
-		  "TLITLIBindLocal: failed to allocate a sockaddr_un\n");
-	    t_free((char *)req,T_BIND);
-	    return -1;
-	}
-
-	sunaddr->sun_family=AF_UNIX;
-
-#ifdef nuke
-	if( *port == '/' ) { /* A full pathname */
-	    (void) strcpy(sunaddr->sun_path, port);
-	} else {
-	    (void) sprintf(sunaddr->sun_path,"%s%s", TLINODENAME, port );
-	}
-#endif /*NUKE*/
-
-	(void) sprintf(sunaddr->sun_path,"%s%d",
-		       TLINODENAME, getpid()^time(NULL) );
-
-	prmsg(4, "TLITLIBindLocal: binding to %s\n",
-	      sunaddr->sun_path);
-
-	req->addr.buf=(char *)sunaddr;
-	req->addr.len=sizeof(*sunaddr);
-	req->addr.maxlen=sizeof(*sunaddr);
-    }
-
-    if( t_bind(fd, req, NULL) < 0 )
-    {
-	prmsg(1,
-	      "TLIBindLocal: Unable to bind TLI device to %s\n",
-	      port);
-	if (sunaddr)
-	    free((char *) sunaddr);
-	if (req)
-	    t_free((char *)req,T_BIND);
-	return -1;
-    }
-    return 0;
-}
-
-static XtransConnInfo
-TRANS(TLIOpen)(char *device)
-
-{
-    XtransConnInfo	ciptr;
-
-    prmsg(3,"TLIOpen(%s)\n", device);
-
-    if( (ciptr = calloc(1,sizeof(struct _XtransConnInfo))) == NULL )
-    {
-	prmsg(1, "TLIOpen: calloc failed\n");
-	return NULL;
-    }
-
-    if( (ciptr->fd=t_open( device, O_RDWR, NULL )) < 0 )
-    {
-	prmsg(1, "TLIOpen: t_open failed for %s\n", device);
-	free(ciptr);
-	return NULL;
-    }
-
-    return ciptr;
-}
-
-
-#ifdef TRANS_REOPEN
-
-static XtransConnInfo
-TRANS(TLIReopen)(char *device, int fd, char *port)
-
-{
-    XtransConnInfo	ciptr;
-
-    prmsg(3,"TLIReopen(%s,%d, %s)\n", device, fd, port );
-
-    if (t_sync (fd) < 0)
-    {
-	prmsg(1, "TLIReopen: t_sync failed\n");
-	return NULL;
-    }
-
-    if( (ciptr = calloc(1,sizeof(struct _XtransConnInfo))) == NULL )
-    {
-	prmsg(1, "TLIReopen: calloc failed\n");
-	return NULL;
-    }
-
-    ciptr->fd = fd;
-
-    return ciptr;
-}
-
-#endif /* TRANS_REOPEN */
-
-
-static	int
-TRANS(TLIAddrToNetbuf)(int tlifamily, char *host, char *port,
-		       struct netbuf *netbufp)
-
-{
-    struct netconfig *netconfigp;
-    struct nd_hostserv	nd_hostserv;
-    struct nd_addrlist *nd_addrlistp = NULL;
-    void *handlep;
-    long lport;
-
-    prmsg(3,"TLIAddrToNetbuf(%d,%s,%s)\n", tlifamily, host, port );
-
-    if( (handlep=setnetconfig()) == NULL )
-	return -1;
-
-    lport = strtol (port, (char**)NULL, 10);
-    if (lport < 1024 || lport > USHRT_MAX)
-	return -1;
-
-    nd_hostserv.h_host = host;
-    if( port && *port ) {
-	nd_hostserv.h_serv = port;
-    } else {
-	nd_hostserv.h_serv = NULL;
-    }
-
-    while( (netconfigp=getnetconfig(handlep)) != NULL )
-    {
-	if( strcmp(netconfigp->nc_protofmly,
-		   TLItrans2devtab[tlifamily].protofamily) != 0 )
-	    continue;
-	prmsg(5,"TLIAddrToNetbuf: Trying to resolve %s.%s for %s\n",
-	      host, port, TLItrans2devtab[tlifamily].protofamily );
-	if( netdir_getbyname(netconfigp,&nd_hostserv, &nd_addrlistp) == 0 )
-	{
-	    /* we have at least one address to use */
-
-	    prmsg(5, "TLIAddrToNetbuf: found address for %s.%s\n", host, port);
-	    prmsg(5, "TLIAddrToNetbuf: %s\n",taddr2uaddr(netconfigp,nd_addrlistp->n_addrs));
-
-	    memcpy(netbufp->buf,nd_addrlistp->n_addrs->buf,
-		   nd_addrlistp->n_addrs->len);
-	    netbufp->len=nd_addrlistp->n_addrs->len;
-	    endnetconfig(handlep);
-	    return 0;
-	}
-    }
-    endnetconfig(handlep);
-
-    return -1;
-}
-
-/*
- * These functions are the interface supplied in the Xtransport structure
- */
-
-#ifdef TRANS_CLIENT
-
-static XtransConnInfo
-TRANS(TLIOpenCOTSClient)(Xtransport *thistrans, char *protocol,
-			 char *host, char *port)
-
-{
-    XtransConnInfo	ciptr;
-    int 		i;
-
-    prmsg(2,"TLIOpenCOTSClient(%s,%s,%s)\n", protocol, host, port );
-
-    if( (i=TRANS(TLISelectFamily)(thistrans->TransName)) < 0 )
-    {
-	prmsg(1,"TLIOpenCOTSClient: Unable to determine device for %s\n",
-	      thistrans->TransName);
-	return NULL;
-    }
-
-    if( (ciptr=TRANS(TLIOpen)(TLItrans2devtab[i].devcotsname)) == NULL )
-    {
-	prmsg(1,"TLIOpenCOTSClient: Unable to open device for %s\n",
-	      thistrans->TransName);
-	return NULL;
-    }
-
-    if( TRANS(TLITLIBindLocal)(ciptr->fd,TLItrans2devtab[i].family,port) < 0 )
-    {
-	prmsg(1,
-	      "TLIOpenCOTSClient: ...TLITLIBindLocal() failed: %d\n",
-	      errno);
-	t_close(ciptr->fd);
-	free(ciptr);
-	return NULL;
-    }
-
-    if( TRANS(TLIGetAddr)(ciptr) < 0 )
-    {
-	prmsg(1,
-	      "TLIOpenCOTSClient: ...TLIGetAddr() failed: %d\n",
-	      errno);
-	t_close(ciptr->fd);
-	free(ciptr);
-	return NULL;
-    }
-
-    /* Save the TLIFamily for later use in TLIAddrToNetbuf() lookups */
-    ciptr->index = i;
-
-    return ciptr;
-}
-
-#endif /* TRANS_CLIENT */
-
-
-#ifdef TRANS_SERVER
-
-static XtransConnInfo
-TRANS(TLIOpenCOTSServer)(Xtransport *thistrans, char *protocol,
-			 char *host, char *port)
-
-{
-    XtransConnInfo	ciptr;
-    int 		i;
-
-    prmsg(2,"TLIOpenCOTSServer(%s,%s,%s)\n", protocol, host, port );
-
-    if( (i=TRANS(TLISelectFamily)(thistrans->TransName)) < 0 )
-    {
-	prmsg(1,
-	      "TLIOpenCOTSServer: Unable to determine device for %s\n",
-	      thistrans->TransName);
-	return NULL;
-    }
-
-    if( (ciptr=TRANS(TLIOpen)(TLItrans2devtab[i].devcotsname)) == NULL )
-    {
-	prmsg(1,
-	      "TLIOpenCOTSServer: Unable to open device for %s\n",
-	      thistrans->TransName);
-	return NULL;
-    }
-
-    /* Set the family type */
-
-    ciptr->family = TLItrans2devtab[i].family;
-
-
-    /* Save the TLIFamily for later use in TLIAddrToNetbuf() lookups */
-
-    ciptr->index = i;
-
-    return ciptr;
-}
-
-#endif /* TRANS_SERVER */
-
-
-#ifdef TRANS_CLIENT
-
-static XtransConnInfo
-TRANS(TLIOpenCLTSClient)(Xtransport *thistrans, char *protocol,
-			 char *host, char *port)
-
-{
-    XtransConnInfo	ciptr;
-    int 		i;
-
-    prmsg(2,"TLIOpenCLTSClient(%s,%s,%s)\n", protocol, host, port );
-
-    if( (i=TRANS(TLISelectFamily)(thistrans->TransName)) < 0 )
-    {
-	prmsg(1,
-	      "TLIOpenCLTSClient: Unable to determine device for %s\n",
-	      thistrans->TransName);
-	return NULL;
-    }
-
-    if( (ciptr=TRANS(TLIOpen)(TLItrans2devtab[i].devcltsname)) == NULL )
-    {
-	prmsg(1,
-	      "TLIOpenCLTSClient: Unable to open device for %s\n",
-	      thistrans->TransName);
-	return NULL;
-    }
-
-    if( TRANS(TLITLIBindLocal)(ciptr->fd,TLItrans2devtab[i].family,port) < 0 )
-    {
-	prmsg(1,
-	      "TLIOpenCLTSClient: ...TLITLIBindLocal() failed: %d\n",
-	      errno);
-	t_close(ciptr->fd);
-	free(ciptr);
-	return NULL;
-    }
-
-    if( TRANS(TLIGetAddr)(ciptr) < 0 )
-    {
-	prmsg(1,
-	      "TLIOpenCLTSClient: ...TLIGetPeerAddr() failed: %d\n",
-	      errno);
-	t_close(ciptr->fd);
-	free(ciptr);
-	return NULL;
-    }
-
-    return ciptr;
-}
-
-#endif /* TRANS_CLIENT */
-
-
-#ifdef TRANS_SERVER
-
-static XtransConnInfo
-TRANS(TLIOpenCLTSServer)(Xtransport *thistrans, char *protocol,
-			 char *host, char *port)
-
-{
-    XtransConnInfo	ciptr;
-    int 		i;
-
-    prmsg(2,"TLIOpenCLTSServer(%s,%s,%s)\n", protocol, host, port );
-
-    if( (i=TRANS(TLISelectFamily)(thistrans->TransName)) < 0 )
-    {
-	prmsg(1,
-	      "TLIOpenCLTSServer: Unable to determine device for %s\n",
-	      thistrans->TransName);
-	return NULL;
-    }
-
-    if( (ciptr=TRANS(TLIOpen)(TLItrans2devtab[i].devcltsname)) == NULL )
-    {
-	prmsg(1,
-	      "TLIOpenCLTSServer: Unable to open device for %s\n",
-	      thistrans->TransName);
-	return NULL;
-    }
-
-    return ciptr;
-}
-
-#endif /* TRANS_SERVER */
-
-
-#ifdef TRANS_REOPEN
-
-static XtransConnInfo
-TRANS(TLIReopenCOTSServer)(Xtransport *thistrans, int fd, char *port)
-
-{
-    XtransConnInfo	ciptr;
-    int			i;
-
-    prmsg(2,"TLIReopenCOTSServer(%d, %s)\n", fd, port);
-
-    if( (i=TRANS(TLISelectFamily)(thistrans->TransName)) < 0 )
-    {
-	prmsg(1,
-	      "TLIReopenCOTSServer: Unable to determine device for %s\n",
-	      thistrans->TransName);
-	return NULL;
-    }
-
-    if( (ciptr=TRANS(TLIReopen)(
-	TLItrans2devtab[i].devcotsname, fd, port)) == NULL )
-    {
-	prmsg(1,
-	      "TLIReopenCOTSServer: Unable to open device for %s\n",
-	      thistrans->TransName);
-	return NULL;
-    }
-
-    /* Save the TLIFamily for later use in TLIAddrToNetbuf() lookups */
-
-    ciptr->index = i;
-
-    return ciptr;
-}
-
-
-static XtransConnInfo
-TRANS(TLIReopenCLTSServer)(Xtransport *thistrans, int fd, char *port)
-
-{
-    XtransConnInfo	ciptr;
-    int 		i;
-
-    prmsg(2,"TLIReopenCLTSServer(%d, %s)\n", fd, port);
-
-    if( (i=TRANS(TLISelectFamily)(thistrans->TransName)) < 0 )
-    {
-	prmsg(1,
-	      "TLIReopenCLTSServer: Unable to determine device for %s\n",
-	      thistrans->TransName);
-	return NULL;
-    }
-
-    if( (ciptr=TRANS(TLIReopen)(
-	TLItrans2devtab[i].devcltsname, fd, port)) == NULL )
-    {
-	prmsg(1,
-	      "TLIReopenCLTSServer: Unable to open device for %s\n",
-	      thistrans->TransName);
-	return NULL;
-    }
-
-    ciptr->index = i;
-
-    return ciptr;
-}
-
-#endif /* TRANS_REOPEN */
-
-
-static int
-TRANS(TLISetOption)(XtransConnInfo ciptr, int option, int arg)
-
-{
-    prmsg(2,"TLISetOption(%d,%d,%d)\n", ciptr->fd, option, arg );
-
-    return -1;
-}
-
-
-#ifdef TRANS_SERVER
-
-static int
-TRANS(TLICreateListener)(XtransConnInfo ciptr, struct t_bind *req)
-
-{
-    struct t_bind	*ret;
-
-    prmsg(2,"TLICreateListener(%x->%d,%x)\n", ciptr, ciptr->fd, req );
-
-    if( (ret=(struct t_bind *)t_alloc(ciptr->fd,T_BIND,T_ALL)) == NULL )
-    {
-	prmsg(1, "TLICreateListener: failed to allocate a t_bind\n");
-	t_free((char *)req,T_BIND);
-	return TRANS_CREATE_LISTENER_FAILED;
-    }
-
-    if( t_bind(ciptr->fd, req, ret) < 0 )
-    {
-	prmsg(1, "TLICreateListener: t_bind failed\n");
-	t_free((char *)req,T_BIND);
-	t_free((char *)ret,T_BIND);
-	return TRANS_CREATE_LISTENER_FAILED;
-    }
-
-    if( memcmp(req->addr.buf,ret->addr.buf,req->addr.len) != 0 )
-    {
-	prmsg(1, "TLICreateListener: unable to bind to %x\n",
-	      req);
-	t_free((char *)req,T_BIND);
-	t_free((char *)ret,T_BIND);
-	return TRANS_ADDR_IN_USE;
-    }
-
-    /*
-     * Everything looks good: fill in the XtransConnInfo structure.
-     */
-
-    if( (ciptr->addr = malloc(ret->addr.len)) == NULL )
-    {
-	prmsg(1,
-	      "TLICreateListener: Unable to allocate space for the address\n");
-	t_free((char *)req,T_BIND);
-	t_free((char *)ret, T_BIND);
-	return TRANS_CREATE_LISTENER_FAILED;
-    }
-
-    ciptr->addrlen=ret->addr.len;
-    memcpy(ciptr->addr,ret->addr.buf,ret->addr.len);
-
-    t_free((char *)req,T_BIND);
-    t_free((char *)ret, T_BIND);
-
-    return 0;
-}
-
-
-static int
-TRANS(TLIINETCreateListener)(XtransConnInfo ciptr, char *port, unsigned int flags)
-
-{
-    char    portbuf[PORTBUFSIZE];
-    struct t_bind	*req;
-    struct sockaddr_in	*sinaddr;
-    long		tmpport;
-
-    prmsg(2,"TLIINETCreateListener(%x->%d,%s)\n", ciptr,
-	ciptr->fd, port ? port : "NULL" );
-
-#ifdef X11_t
-    /*
-     * X has a well known port, that is transport dependent. It is easier
-     * to handle it here, than try and come up with a transport independent
-     * representation that can be passed in and resolved the usual way.
-     *
-     * The port that is passed here is really a string containing the idisplay
-     * from ConnectDisplay().
-     */
-
-    if (is_numeric (port))
-    {
-	tmpport = X_TCP_PORT + strtol (port, (char**)NULL, 10);
-	sprintf(portbuf,"%u", tmpport);
-	port = portbuf;
-    }
-#endif
-
-    if( (req=(struct t_bind *)t_alloc(ciptr->fd,T_BIND,T_ALL)) == NULL )
-    {
-	prmsg(1,
-	    "TLIINETCreateListener: failed to allocate a t_bind\n");
-	return TRANS_CREATE_LISTENER_FAILED;
-    }
-
-    if( port && *port ) {
-	if(TRANS(TLIAddrToNetbuf)(ciptr->index,HOST_SELF,port,&(req->addr)) < 0)
-	{
-	    prmsg(1,
-		  "TLIINETCreateListener: can't resolve name:HOST_SELF.%s\n",
-		  port);
-	    t_free((char *)req,T_BIND);
-	    return TRANS_CREATE_LISTENER_FAILED;
-	}
-    } else {
-	sinaddr=(struct sockaddr_in *) req->addr.buf;
-	sinaddr->sin_family=AF_INET;
-	sinaddr->sin_port=htons(0);
-	sinaddr->sin_addr.s_addr=0;
-    }
-
-    /* Set the qlen */
-
-    req->qlen=1;
-
-    return TRANS(TLICreateListener)(ciptr, req);
-}
-
-
-static int
-TRANS(TLITLICreateListener)(XtransConnInfo ciptr, char *port, unsigned int flags)
-
-{
-    struct t_bind	*req;
-    struct sockaddr_un	*sunaddr;
-    int 		ret_value;
-
-    prmsg(2,"TLITLICreateListener(%x->%d,%s)\n", ciptr, ciptr->fd,
-	port ? port : "NULL");
-
-    if( (req=(struct t_bind *)t_alloc(ciptr->fd,T_BIND,0)) == NULL )
-    {
-	prmsg(1,
-	      "TLITLICreateListener: failed to allocate a t_bind\n");
-	return TRANS_CREATE_LISTENER_FAILED;
-    }
-
-    if( (sunaddr=(struct sockaddr_un *)
-	 malloc(sizeof(struct sockaddr_un))) == NULL )
-    {
-	prmsg(1,
-	      "TLITLICreateListener: failed to allocate a sockaddr_un\n");
-	t_free((char *)req,T_BIND);
-	return TRANS_CREATE_LISTENER_FAILED;
-    }
-
-    sunaddr->sun_family=AF_UNIX;
-    if( port && *port ) {
-	if( *port == '/' ) { /* A full pathname */
-	    (void) strcpy(sunaddr->sun_path, port);
-	} else {
-	    (void) sprintf(sunaddr->sun_path,"%s%s", TLINODENAME, port );
-	}
-    } else {
-	(void) sprintf(sunaddr->sun_path,"%s%d", TLINODENAME, getpid());
-    }
-
-    req->addr.buf=(char *)sunaddr;
-    req->addr.len=sizeof(*sunaddr);
-    req->addr.maxlen=sizeof(*sunaddr);
-
-    /* Set the qlen */
-
-    req->qlen=1;
-
-    ret_value = TRANS(TLICreateListener)(ciptr, req);
-
-    free((char *) sunaddr);
-
-    return ret_value;
-}
-
-
-static XtransConnInfo
-TRANS(TLIAccept)(XtransConnInfo ciptr, int *status)
-
-{
-    struct t_call	*call;
-    XtransConnInfo	newciptr;
-    int	i;
-
-    prmsg(2,"TLIAccept(%x->%d)\n", ciptr, ciptr->fd);
-
-    if( (call=(struct t_call *)t_alloc(ciptr->fd,T_CALL,T_ALL)) == NULL )
-    {
-	prmsg(1, "TLIAccept() failed to allocate a t_call\n");
-	*status = TRANS_ACCEPT_BAD_MALLOC;
-	return NULL;
-    }
-
-    if( t_listen(ciptr->fd,call) < 0 )
-    {
-	extern char *t_errlist[];
-	extern int t_errno;
-	prmsg(1, "TLIAccept() t_listen() failed\n");
-	prmsg(1, "TLIAccept: %s\n", t_errlist[t_errno]);
-	t_free((char *)call,T_CALL);
-	*status = TRANS_ACCEPT_MISC_ERROR;
-	return NULL;
-    }
-
-    /*
-     * Now we need to set up the new endpoint for the incoming connection.
-     */
-
-    i=ciptr->index; /* Makes the next line more readable */
-
-    if( (newciptr=TRANS(TLIOpen)(TLItrans2devtab[i].devcotsname)) == NULL )
-    {
-	prmsg(1, "TLIAccept() failed to open a new endpoint\n");
-	t_free((char *)call,T_CALL);
-	*status = TRANS_ACCEPT_MISC_ERROR;
-	return NULL;
-    }
-
-    if( TRANS(TLITLIBindLocal)(newciptr->fd,TLItrans2devtab[i].family,"") < 0 )
-    {
-	prmsg(1,
-	      "TLIAccept: TRANS(TLITLIBindLocal)() failed: %d\n",
-	      errno);
-	t_free((char *)call,T_CALL);
-	t_close(newciptr->fd);
-	free(newciptr);
-	*status = TRANS_ACCEPT_MISC_ERROR;
-	return NULL;
-    }
-
-
-    if( t_accept(ciptr->fd,newciptr->fd,call) < 0 )
-    {
-	extern char *t_errlist[];
-	extern int t_errno;
-	prmsg(1, "TLIAccept() t_accept() failed\n");
-	prmsg(1, "TLIAccept: %s\n", t_errlist[t_errno]);
-	if( t_errno == TLOOK )
-	{
-	    int evtype = t_look(ciptr->fd);
-	    prmsg(1, "TLIAccept() t_look() returned %d\n", evtype);
-	    switch( evtype )
-	    {
-		case T_DISCONNECT:
-		    if( t_rcvdis(ciptr->fd, NULL) < 0 )
-		    {
-			prmsg(1, "TLIAccept() t_rcvdis() failed\n");
-			prmsg(1, "TLIAccept: %s\n", t_errlist[t_errno]);
-		    }
-		    break;
-		default:
-		    break;
-	    }
-	}
-	t_free((char *)call,T_CALL);
-	t_close(newciptr->fd);
-	free(newciptr);
-	*status = TRANS_ACCEPT_FAILED;
-	return NULL;
-    }
-
-    t_free((char *)call,T_CALL);
-
-    if( TRANS(TLIGetAddr)(newciptr) < 0 )
-    {
-	prmsg(1,
-	      "TLIAccept: TRANS(TLIGetPeerAddr)() failed: %d\n",
-	      errno);
-	t_close(newciptr->fd);
-	free(newciptr);
-	*status = TRANS_ACCEPT_MISC_ERROR;
-	return NULL;
-    }
-
-    if( TRANS(TLIGetPeerAddr)(newciptr) < 0 )
-    {
-	prmsg(1,
-	      "TLIAccept: TRANS(TLIGetPeerAddr)() failed: %d\n",
-	      errno);
-	t_close(newciptr->fd);
-	free(newciptr->addr);
-	free(newciptr);
-	*status = TRANS_ACCEPT_MISC_ERROR;
-	return NULL;
-    }
-
-    if( ioctl(newciptr->fd, I_POP,"timod") < 0 )
-    {
-	prmsg(1, "TLIAccept() ioctl(I_POP, \"timod\") failed %d\n",
-	      errno);
-	t_close(newciptr->fd);
-	free(newciptr->addr);
-	free(newciptr);
-	*status = TRANS_ACCEPT_MISC_ERROR;
-	return NULL;
-    }
-
-    if( ioctl(newciptr->fd, I_PUSH,"tirdwr") < 0 )
-    {
-	prmsg(1, "TLIAccept() ioctl(I_PUSH,\"tirdwr\") failed %d\n",
-	      errno);
-	t_close(newciptr->fd);
-	free(newciptr->addr);
-	free(newciptr);
-	*status = TRANS_ACCEPT_MISC_ERROR;
-	return NULL;
-    }
-
-    *status = 0;
-
-    return newciptr;
-}
-
-#endif /* TRANS_SERVER */
-
-
-#ifdef TRANS_CLIENT
-
-static int
-TRANS(TLIConnect)(XtransConnInfo ciptr, struct t_call *sndcall )
-
-{
-    prmsg(2, "TLIConnect(%x->%d,%x)\n", ciptr, ciptr->fd, sndcall);
-
-    if( t_connect(ciptr->fd,sndcall,NULL) < 0 )
-    {
-	extern char *t_errlist[];
-	extern int t_errno;
-	prmsg(1, "TLIConnect() t_connect() failed\n");
-	prmsg(1, "TLIConnect: %s\n", t_errlist[t_errno]);
-	t_free((char *)sndcall,T_CALL);
-	if (t_errno == TLOOK && t_look(ciptr->fd) == T_DISCONNECT)
-	{
-	    t_rcvdis(ciptr->fd,NULL);
-	    return TRANS_TRY_CONNECT_AGAIN;
-	}
-	else
-	    return TRANS_CONNECT_FAILED;
-    }
-
-    t_free((char *)sndcall,T_CALL);
-
-    /*
-     * Sync up the address fields of ciptr.
-     */
-
-    if( TRANS(TLIGetAddr)(ciptr) < 0 )
-    {
-	prmsg(1,
-	      "TLIConnect: ...TLIGetAddr() failed: %d\n",
-	      errno);
-	return TRANS_CONNECT_FAILED;
-    }
-
-    if( TRANS(TLIGetPeerAddr)(ciptr) < 0 )
-    {
-	prmsg(1,
-	      "TLIConnect: ...TLIGetPeerAddr() failed: %d\n",
-	      errno);
-	return TRANS_CONNECT_FAILED;
-    }
-
-    if( ioctl(ciptr->fd, I_POP,"timod") < 0 )
-    {
-	prmsg(1, "TLIConnect() ioctl(I_POP,\"timod\") failed %d\n",
-	      errno);
-	return TRANS_CONNECT_FAILED;
-    }
-
-    if( ioctl(ciptr->fd, I_PUSH,"tirdwr") < 0 )
-    {
-	prmsg(1, "TLIConnect() ioctl(I_PUSH,\"tirdwr\") failed %d\n",
-	      errno);
-	return TRANS_CONNECT_FAILED;
-    }
-
-    return 0;
-}
-
-
-static int
-TRANS(TLIINETConnect)(XtransConnInfo ciptr, char *host, char *port)
-
-{
-    char	portbuf[PORTBUFSIZE];
-    struct	t_call	*sndcall;
-    long	tmpport;
-
-    prmsg(2, "TLIINETConnect(%s,%s)\n", host, port);
-
-#ifdef X11_t
-    /*
-     * X has a well known port, that is transport dependant. It is easier
-     * to handle it here, than try and come up with a transport independent
-     * representation that can be passed in and resolved the usual way.
-     *
-     * The port that is passed here is really a string containing the idisplay
-     * from ConnectDisplay().
-     */
-
-    if (is_numeric (port))
-    {
-	tmpport = X_TCP_PORT + strtol (port, (char**)NULL, 10);
-	sprintf(portbuf,"%u", tmpport );
-	port = portbuf;
-    }
-#endif
-
-    if( (sndcall=(struct t_call *)t_alloc(ciptr->fd,T_CALL,T_ALL)) == NULL )
-    {
-	prmsg(1, "TLIINETConnect() failed to allocate a t_call\n");
-	return TRANS_CONNECT_FAILED;
-    }
-
-    if( TRANS(TLIAddrToNetbuf)(ciptr->index, host, port, &(sndcall->addr) ) < 0 )
-    {
-	prmsg(1, "TLIINETConnect() unable to resolve name:%s.%s\n",
-	      host, port);
-	t_free((char *)sndcall,T_CALL);
-	return TRANS_CONNECT_FAILED;
-    }
-
-    return TRANS(TLIConnect)(ciptr, sndcall );
-}
-
-
-static int
-TRANS(TLITLIConnect)(XtransConnInfo ciptr, char *host, char *port)
-
-{
-    struct t_call	*sndcall;
-    struct sockaddr_un	*sunaddr;
-    int			ret_value;
-
-    prmsg(2, "TLITLIConnect(%s,%s)\n", host, port);
-
-    if( (sndcall=(struct t_call *)t_alloc(ciptr->fd,T_CALL,T_OPT|T_UDATA)) == NULL )
-    {
-	prmsg(1, "TLITLIConnect() failed to allocate a t_call\n");
-	return TRANS_CONNECT_FAILED;
-    }
-
-    if( (sunaddr=(struct sockaddr_un *)
-	 malloc(sizeof(struct sockaddr_un))) == NULL )
-    {
-	prmsg(1,
-	      "TLITLIConnect: failed to allocate a sockaddr_un\n");
-	t_free((char *)sndcall,T_CALL);
-	return TRANS_CONNECT_FAILED;
-    }
-
-    sunaddr->sun_family=AF_UNIX;
-    if( *port == '/' ||
-	strncmp (port, TLINODENAME, strlen (TLINODENAME)) == 0) {
-	/* Use the port as is */
-	(void) strcpy(sunaddr->sun_path, port);
-    } else {
-	(void) sprintf(sunaddr->sun_path,"%s%s", TLINODENAME, port );
-    }
-
-    sndcall->addr.buf=(char *)sunaddr;
-    sndcall->addr.len=sizeof(*sunaddr);
-    sndcall->addr.maxlen=sizeof(*sunaddr);
-
-    ret_value = TRANS(TLIConnect)(ciptr, sndcall );
-
-    free((char *) sunaddr);
-
-    return ret_value;
-}
-
-#endif /* TRANS_CLIENT */
-
-
-static int
-TRANS(TLIBytesReadable)(XtransConnInfo ciptr, BytesReadable_t *pend)
-
-{
-    int ret;
-    struct pollfd filedes;
-
-    prmsg(2, "TLIByteReadable(%x->%d,%x)\n", ciptr, ciptr->fd, pend );
-
-    /*
-     * This function should detect hangup conditions. Use poll to check
-     * if no data is present. On SVR4, the M_HANGUP message sits on the
-     * streams head, and ioctl(N_READ) keeps returning 0 because there is
-     * no data available. The hangup goes undetected, and the client hangs.
-     */
-
-    ret=ioctl(ciptr->fd, I_NREAD, (char *)pend);
-
-    if( ret != 0 )
-	return ret; /* Data present or error */
-
-
-    /* Zero data, or POLLHUP message */
-
-    filedes.fd=ciptr->fd;
-    filedes.events=POLLIN;
-
-    ret=poll(&filedes, 1, 0);
-
-    if( ret == 0 ) {
-	*pend=0;
-	return 0; /* Really, no data */
-	}
-
-    if( ret < 0 )
-	return -1; /* just pass back the error */
-
-    if( filedes.revents & (POLLHUP|POLLERR) ) /* check for hangup */
-	return -1;
-
-    /* Should only get here if data arrived after the first ioctl() */
-    return ioctl(ciptr->fd, I_NREAD, (char *)pend);
-}
-
-
-static int
-TRANS(TLIRead)(XtransConnInfo ciptr, char *buf, int size)
-
-{
-    prmsg(2, "TLIRead(%d,%x,%d)\n", ciptr->fd, buf, size );
-
-    return read(ciptr->fd,buf,size);
-}
-
-
-static int
-TRANS(TLIWrite)(XtransConnInfo ciptr, char *buf, int size)
-
-{
-    prmsg(2, "TLIWrite(%d,%x,%d)\n", ciptr->fd, buf, size );
-
-    return write(ciptr->fd,buf,size);
-}
-
-
-static int
-TRANS(TLIReadv)(XtransConnInfo ciptr, struct iovec *buf, int size)
-
-{
-    prmsg(2, "TLIReadv(%d,%x,%d)\n", ciptr->fd, buf, size );
-
-    return READV(ciptr,buf,size);
-}
-
-
-static int
-TRANS(TLIWritev)(XtransConnInfo ciptr, struct iovec *buf, int size)
-
-{
-    prmsg(2, "TLIWritev(%d,%x,%d)\n", ciptr->fd, buf, size );
-
-    return WRITEV(ciptr,buf,size);
-}
-
-
-static int
-TRANS(TLIDisconnect)(XtransConnInfo ciptr)
-
-{
-    prmsg(2, "TLIDisconnect(%x->%d)\n", ciptr, ciptr->fd);
-
-    /*
-     * Restore the TLI modules so that the connection can be properly shutdown.
-     * This avoids the situation where a connection goes into the TIME_WAIT
-     * state, and the address remains unavailable for a while.
-     */
-    ioctl(ciptr->fd, I_POP,"tirdwr");
-    ioctl(ciptr->fd, I_PUSH,"timod");
-
-    t_snddis(ciptr->fd,NULL);
-
-    return 0;
-}
-
-
-static int
-TRANS(TLIClose)(XtransConnInfo ciptr)
-
-{
-    prmsg(2, "TLIClose(%x->%d)\n", ciptr, ciptr->fd);
-
-    t_unbind(ciptr->fd);
-
-    return (t_close(ciptr->fd));
-}
-
-
-static int
-TRANS(TLICloseForCloning)(XtransConnInfo ciptr)
-
-{
-    /*
-     * Don't unbind.
-     */
-
-    prmsg(2, "TLICloseForCloning(%x->%d)\n", ciptr, ciptr->fd);
-
-    return (t_close(ciptr->fd));
-}
-
-
-Xtransport	TRANS(TLITCPFuncs) = {
-	/* TLI Interface */
-	"tcp",
-	0,
-#ifdef TRANS_CLIENT
-	TRANS(TLIOpenCOTSClient),
-#endif /* TRANS_CLIENT */
-#ifdef TRANS_SERVER
-	NULL,
-	TRANS(TLIOpenCOTSServer),
-#endif /* TRANS_SERVER */
-#ifdef TRANS_CLIENT
-	TRANS(TLIOpenCLTSClient),
-#endif /* TRANS_CLIENT */
-#ifdef TRANS_SERVER
-	TRANS(TLIOpenCLTSServer),
-#endif /* TRANS_SERVER */
-#ifdef TRANS_REOPEN
-	TRANS(TLIReopenCOTSServer),
-	TRANS(TLIReopenCLTSServer),
-#endif
-	TRANS(TLISetOption),
-#ifdef TRANS_SERVER
-	TRANS(TLIINETCreateListener),
-	NULL,		       			/* ResetListener */
-	TRANS(TLIAccept),
-#endif /* TRANS_SERVER */
-#ifdef TRANS_CLIENT
-	TRANS(TLIINETConnect),
-#endif /* TRANS_CLIENT */
-	TRANS(TLIBytesReadable),
-	TRANS(TLIRead),
-	TRANS(TLIWrite),
-	TRANS(TLIReadv),
-	TRANS(TLIWritev),
-	TRANS(TLIDisconnect),
-	TRANS(TLIClose),
-	TRANS(TLICloseForCloning),
-};
-
-#ifdef TRANS_SERVER
-static char * inet_aliases[] = { "tcp", NULL };
-#endif
-Xtransport	TRANS(TLIINETFuncs) = {
-	/* TLI Interface */
-	"inet",
-	TRANS_ALIAS,
-#ifdef TRANS_CLIENT
-	TRANS(TLIOpenCOTSClient),
-#endif /* TRANS_CLIENT */
-#ifdef TRANS_SERVER
-	inet_aliases,
-	TRANS(TLIOpenCOTSServer),
-#endif /* TRANS_SERVER */
-#ifdef TRANS_CLIENT
-	TRANS(TLIOpenCLTSClient),
-#endif /* TRANS_CLIENT */
-#ifdef TRANS_SERVER
-	TRANS(TLIOpenCLTSServer),
-#endif /* TRANS_SERVER */
-#ifdef TRANS_REOPEN
-	TRANS(TLIReopenCOTSServer),
-	TRANS(TLIReopenCLTSServer),
-#endif
-	TRANS(TLISetOption),
-#ifdef TRANS_SERVER
-	TRANS(TLIINETCreateListener),
-	NULL,		       			/* ResetListener */
-	TRANS(TLIAccept),
-#endif /* TRANS_SERVER */
-#ifdef TRANS_CLIENT
-	TRANS(TLIINETConnect),
-#endif /* TRANS_CLIENT */
-	TRANS(TLIBytesReadable),
-	TRANS(TLIRead),
-	TRANS(TLIWrite),
-	TRANS(TLIReadv),
-	TRANS(TLIWritev),
-	TRANS(TLIDisconnect),
-	TRANS(TLIClose),
-	TRANS(TLICloseForCloning),
-};
-
-Xtransport	TRANS(TLITLIFuncs) = {
-	/* TLI Interface */
-	"tli",
-	0,
-#ifdef TRANS_CLIENT
-	TRANS(TLIOpenCOTSClient),
-#endif /* TRANS_CLIENT */
-#ifdef TRANS_SERVER
-	NULL,
-	TRANS(TLIOpenCOTSServer),
-#endif /* TRANS_SERVER */
-#ifdef TRANS_CLIENT
-	TRANS(TLIOpenCLTSClient),
-#endif /* TRANS_CLIENT */
-#ifdef TRANS_SERVER
-	TRANS(TLIOpenCLTSServer),
-#endif /* TRANS_SERVER */
-#ifdef TRANS_REOPEN
-	TRANS(TLIReopenCOTSServer),
-	TRANS(TLIReopenCLTSServer),
-#endif
-	TRANS(TLISetOption),
-#ifdef TRANS_SERVER
-	TRANS(TLITLICreateListener),
-	NULL,		       			/* ResetListener */
-	TRANS(TLIAccept),
-#endif /* TRANS_SERVER */
-#ifdef TRANS_CLIENT
-	TRANS(TLITLIConnect),
-#endif /* TRANS_CLIENT */
-	TRANS(TLIBytesReadable),
-	TRANS(TLIRead),
-	TRANS(TLIWrite),
-	TRANS(TLIReadv),
-	TRANS(TLIWritev),
-	TRANS(TLIDisconnect),
-	TRANS(TLIClose),
-	TRANS(TLICloseForCloning),
-};