net.c - platform/external/strace - Gitiles

 /*
  * Copyright (c) 1991, 1992 Paul Kranenburg <pk@cs.few.eur.nl>
  * Copyright (c) 1993 Branko Lankester <branko@hacktic.nl>
  * Copyright (c) 1993, 1994, 1995, 1996 Rick Sladkey <jrs@world.std.com>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
  * modification, are permitted provided that the following conditions
  * are met:
  * 1. Redistributions of source code must retain the above copyright
  *    notice, this list of conditions and the following disclaimer.
  * 2. Redistributions in binary form must reproduce the above copyright
  *    notice, this list of conditions and the following disclaimer in the
  *    documentation and/or other materials provided with the distribution.
  * 3. The name of the author may not be used to endorse or promote products
  *    derived from this software without specific prior written permission.
  *
  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  *
  *	$Id$
  */

 #include "defs.h"

 #include <sys/stat.h>
 #include <sys/socket.h>
 #include <sys/un.h>
 #include <netinet/in.h>
 #include <arpa/inet.h>
 #if defined(LINUX)
 #include <asm/types.h>
 #if defined(__GLIBC__) && (__GLIBC__ >= 2) && (__GLIBC__ + __GLIBC_MINOR__ >= 3)
 #  include <netipx/ipx.h>
 #else
 #  include <linux/ipx.h>
 #endif
 #endif /* LINUX */

 #if defined(LINUX) && defined(MIPS)
 #if defined( HAVE_LINUX_IN6_H)
 #include <linux/in6.h>
 #endif
 #endif

 #ifndef PF_UNSPEC
 #define PF_UNSPEC AF_UNSPEC
 #endif

 #ifdef LINUX
 /* Under Linux these are enums so we can't test for them with ifdef. */
 #define IPPROTO_EGP IPPROTO_EGP
 #define IPPROTO_PUP IPPROTO_PUP
 #define IPPROTO_IDP IPPROTO_IDP
 #define IPPROTO_IGMP IPPROTO_IGMP
 #define IPPROTO_RAW IPPROTO_RAW
 #define IPPROTO_MAX IPPROTO_MAX
 #endif

 static struct xlat domains[] = {
 	{ PF_UNSPEC,	"PF_UNSPEC"	},
 	{ PF_UNIX,	"PF_UNIX"	},
 	{ PF_INET,	"PF_INET"	},
 #ifdef PF_LOCAL
 	{ PF_LOCAL,	"PS_LOCAL"	},
 #endif
 #ifdef PF_ISO
 	{ PF_ISO,	"PF_ISO"	},
 #endif
 #ifdef PF_AX25
 	{ PF_AX25,	"PF_AX25"	},
 #endif
 #ifdef PF_IPX
 	{ PF_IPX,	"PF_IPX"	},
 #endif
 #ifdef PF_APPLETALK
 	{ PF_APPLETALK,	"PF_APPLETALK"	},
 #endif
 #ifdef PF_NETROM
 	{ PF_NETROM,	"PF_NETROM"	},
 #endif
 #ifdef PF_BRIDGE
 	{ PF_BRIDGE,	"PF_BRIDGE"	},
 #endif
 #ifdef PF_AAL5
 	{ PF_AAL5,	"PF_AAL5"	},
 #endif
 #ifdef PF_X25
 	{ PF_X25,	"PF_X25"	},
 #endif
 #ifdef PF_INET6
 	{ PF_INET6,	"PF_INET6"	},
 #endif
 #ifdef PF_ROSE
 	{ PF_ROSE,	"PF_ROSE"	},
 #endif
 #ifdef PF_DECNET
 	{ PF_DECNET,	"PF_DECNET"	},
 #endif
 #ifdef PF_NETBEUI
 	{ PF_NETBEUI,	"PF_NETBEUI"	},
 #endif
 #ifdef PF_IMPLINK
 	{ PF_IMPLINK,	"PF_IMPLINK"	},
 #endif
 	{ 0,		NULL		},
 };
 static struct xlat socktypes[] = {
 	{ SOCK_STREAM,	"SOCK_STREAM"	},
 	{ SOCK_DGRAM,	"SOCK_DGRAM"	},
 #ifdef SOCK_RAW
 	{ SOCK_RAW,	"SOCK_RAW"	},
 #endif
 #ifdef SOCK_SEQPACKET
 	{ SOCK_SEQPACKET,"SOCK_SEQPACKET"},
 #endif
 #ifdef SOCK_RDM
 	{ SOCK_RDM,	"SOCK_RDM"	},
 #endif
 #ifdef SOCK_PACKET
 	{ SOCK_PACKET,	"SOCK_PACKET"	},
 #endif
 	{ 0,		NULL		},
 };
 static struct xlat protocols[] = {
 	{ IPPROTO_IP,	"IPPROTO_IP"	},
 	{ IPPROTO_ICMP,	"IPPROTO_ICMP"	},
 	{ IPPROTO_TCP,	"IPPROTO_TCP"	},
 	{ IPPROTO_UDP,	"IPPROTO_UDP"	},
 #ifdef IPPROTO_GGP
 	{ IPPROTO_GGP,	"IPPROTO_GGP"	},
 #endif
 #ifdef IPPROTO_EGP
 	{ IPPROTO_EGP,	"IPPROTO_EGP"	},
 #endif
 #ifdef IPPROTO_PUP
 	{ IPPROTO_PUP,	"IPPROTO_PUP"	},
 #endif
 #ifdef IPPROTO_IDP
 	{ IPPROTO_IDP,	"IPPROTO_IDP"	},
 #endif
 #ifdef IPPROTO_IPV6
 	{ IPPROTO_IPV6,	"IPPROTO_IPV6"	},
 #endif
 #ifdef IPPROTO_ICMPV6
 	{ IPPROTO_ICMPV6,"IPPROTO_ICMPV6"},
 #endif
 #ifdef IPPROTO_IGMP
 	{ IPPROTO_IGMP,	"IPPROTO_IGMP"	},
 #endif
 #ifdef IPPROTO_HELLO
 	{ IPPROTO_HELLO,"IPPROTO_HELLO"	},
 #endif
 #ifdef IPPROTO_ND
 	{ IPPROTO_ND,	"IPPROTO_ND"	},
 #endif
 #ifdef IPPROTO_RAW
 	{ IPPROTO_RAW,	"IPPROTO_RAW"	},
 #endif
 #ifdef IPPROTO_MAX
 	{ IPPROTO_MAX,	"IPPROTO_MAX"	},
 #endif
 #ifdef IPPROTO_IPIP
 	{ IPPROTO_IPIP,	"IPPROTO_IPIP"	},
 #endif
 	{ 0,		NULL		},
 };
 static struct xlat msg_flags[] = {
 	{ MSG_OOB,	"MSG_OOB"	},
 #ifdef MSG_DONTROUTE
 	{ MSG_DONTROUTE,"MSG_DONTROUTE"	},
 #endif
 #ifdef MSG_PEEK
 	{ MSG_PEEK,	"MSG_PEEK"	},
 #endif
 #ifdef MSG_CTRUNC
 	{ MSG_CTRUNC,	"MSG_CTRUNC"	},
 #endif
 #ifdef MSG_PROXY
 	{ MSG_PROXY,	"MSG_PROXY"	},
 #endif
 #ifdef MSG_EOR
 	{ MSG_EOR,	"MSG_EOR"	},
 #endif
 #ifdef MSG_WAITALL
 	{ MSG_WAITALL,	"MSG_WAITALL"	},
 #endif
 	{ 0,		NULL		},
 };

 static struct xlat sockoptions[] = {
 #ifdef SO_DEBUG
 	{ SO_DEBUG,	"SO_DEBUG"	},
 #endif
 #ifdef SO_REUSEADDR
 	{ SO_REUSEADDR,	"SO_REUSEADDR"	},
 #endif
 #ifdef SO_KEEPALIVE
 	{ SO_KEEPALIVE,	"SO_KEEPALIVE"	},
 #endif
 #ifdef SO_DONTROUTE
 	{ SO_DONTROUTE,	"SO_DONTROUTE"	},
 #endif
 #ifdef SO_BROADCAST
 	{ SO_BROADCAST,	"SO_BROADCAST"	},
 #endif
 #ifdef SO_LINGER
 	{ SO_LINGER,	"SO_LINGER"	},
 #endif
 #ifdef SO_OOBINLINE
 	{ SO_OOBINLINE,	"SO_OOBINLINE"	},
 #endif
 #ifdef SO_TYPE
 	{ SO_TYPE,	"SO_TYPE"	},
 #endif
 #ifdef SO_ERROR
 	{ SO_ERROR,	"SO_ERROR"	},
 #endif
 #ifdef SO_SNDBUF
 	{ SO_SNDBUF,	"SO_SNDBUF"	},
 #endif
 #ifdef SO_RCVBUF
 	{ SO_RCVBUF,	"SO_RCVBUF"	},
 #endif
 #ifdef SO_NO_CHECK
 	{ SO_NO_CHECK,	"SO_NO_CHECK"	},
 #endif
 #ifdef SO_PRIORITY
 	{ SO_PRIORITY,	"SO_PRIORITY"	},
 #endif
 #ifdef SO_ACCEPTCONN
 	{ SO_ACCEPTCONN,"SO_ACCEPTCONN"	},
 #endif
 #ifdef SO_USELOOPBACK
 	{ SO_USELOOPBACK,"SO_USELOOPBACK"},
 #endif
 #ifdef SO_SNDLOWAT
 	{ SO_SNDLOWAT,	"SO_SNDLOWAT"	},
 #endif
 #ifdef SO_RCVLOWAT
 	{ SO_RCVLOWAT,	"SO_RCVLOWAT"	},
 #endif
 #ifdef SO_SNDTIMEO
 	{ SO_SNDTIMEO,	"SO_SNDTIMEO"	},
 #endif
 #ifdef SO_RCVTIMEO
 	{ SO_RCVTIMEO,	"SO_RCVTIMEO"	},
 #endif
 #ifdef SO_BSDCOMPAT
 	{ SO_BSDCOMPAT,	"SO_BSDCOMPAT"	},
 #endif
 #ifdef SO_REUSEPORT
 	{ SO_REUSEPORT,	"SO_REUSEPORT"	},
 #endif
 #ifdef SO_RCVLOWAT
 	{ SO_RCVLOWAT, "SO_RCVLOWAT"	},
 #endif
 #ifdef SO_SNDLOWAT
 	{ SO_SNDLOWAT, "SO_SNDLOWAT"	},
 #endif
 #ifdef SO_RCVTIMEO
 	{ SO_RCVTIMEO, "SO_RCVTIMEO"	},
 #endif
 #ifdef SO_SNDTIMEO
 	{ SO_SNDTIMEO, "SO_SNDTIMEO"	},
 #endif
 	{ 0,		NULL		},
 };

 #ifdef SOL_IP
 static struct xlat sockipoptions[] = {
 	{ IP_TOS,       "IP_TOS"        },
 	{ IP_TTL,       "IP_TTL"        },
 #if defined(IP_HDRINCL)
 	{ IP_HDRINCL,   "IP_HDRINCL"    },
 #endif
 #if defined(IP_OPTIONS)
 	{ IP_OPTIONS,   "IP_OPTIONS"    },
 #endif
 	{ IP_MULTICAST_IF,      "IP_MULTICAST_IF"       },
 	{ IP_MULTICAST_TTL,     "IP_MULTICAST_TTL"      },
 	{ IP_MULTICAST_LOOP,    "IP_MULTICAST_LOOP"     },
 	{ IP_ADD_MEMBERSHIP,    "IP_ADD_MEMBERSHIP"     },
 	{ IP_DROP_MEMBERSHIP,   "IP_DROP_MEMBERSHIP"    },
 	{ 0,            NULL            },
 };
 #endif /* SOL_IP */

 #ifdef SOL_IPX
 static struct xlat sockipxoptions[] = {
 	{ IPX_TYPE,     "IPX_TYPE"      },
 	{ 0,            NULL            },
 };
 #endif /* SOL_IPX */

 #ifdef SOL_TCP
 static struct xlat socktcpoptions[] = {
 	{ TCP_NODELAY,  "TCP_NODELAY"   },
 	{ TCP_MAXSEG,   "TCP_MAXSEG"    },
 	{ 0,            NULL            },
 };
 #endif /* SOL_TCP */

 void
 printsock(tcp, addr)
 struct tcb *tcp;
 long addr;
 {
 	struct sockaddr sa;
 	struct sockaddr_in *sin = (struct sockaddr_in *) &sa;
 	struct sockaddr_un sau;
 #ifdef HAVE_INET_NTOP
 	struct sockaddr_in6 sa6;
 	char string_addr[100];
 #endif
 #ifdef LINUX
 	struct sockaddr_ipx sipx;
 #endif

 	if (addr == 0) {
 		tprintf("NULL");
 		return;
 	}
 	if (!verbose(tcp)) {
 		tprintf("%#lx", addr);
 		return;
 	}
 	if (umove(tcp, addr, &sa) < 0) {
 		tprintf("{...}");
 		return;
 	}
 	switch (sa.sa_family) {
 	case AF_UNIX:
 		if (umove(tcp, addr, &sau) < 0)
 			tprintf("{sun_family=AF_UNIX, ...}");
 		else
 			tprintf("{sun_family=AF_UNIX, sun_path=\"%s\"}",
 				sau.sun_path);
 		break;
 	case AF_INET:
 		tprintf("{sin_family=AF_INET, ");
 		tprintf("sin_port=htons(%u), sin_addr=inet_addr(\"%s\")}",
 			ntohs(sin->sin_port), inet_ntoa(sin->sin_addr));
 		break;
 #ifdef HAVE_INET_NTOP
 	case AF_INET6:
 		if (umove(tcp, addr, &sa6) < 0)
 			tprintf("{sin6_family=AF_INET6, ...}");
 		else
 		{
 			tprintf("{sin6_family=AF_INET6, ");
 			inet_ntop(AF_INET6, &sa6.sin6_addr, string_addr, sizeof(string_addr));
 			tprintf("sin6_port=htons(%u), inet_pton(AF_INET6, \"%s\", &sin6_addr), sin6_flowinfo=htonl(%u)}",
 				ntohs(sa6.sin6_port), string_addr, ntohl(sa6.sin6_flowinfo));
 		}
 		break;
 #endif
 #if defined(AF_IPX) && defined(linux)
 	case AF_IPX:
 		if (umove(tcp, addr, &sipx)<0)
 			tprintf("{sipx_family=AF_IPX, ...}");
 		else {
 			int i;
 			tprintf("{sipx_family=AF_IPX, ");
 			tprintf("{sipx_port=htons(%u), ",
 				ntohs(sipx.sipx_port));
 			/* Yes, I know, this does not look too
 			 * strace-ish, but otherwise the IPX
 			 * addresses just look monstrous...
 			 * Anyways, feel free if you don't like
 			 * this way.. :)
 			 */
 			tprintf("%08lx:", (unsigned long)ntohl(sipx.sipx_network));
 			for (i = 0; i<IPX_NODE_LEN; i++)
 				tprintf("%02x", sipx.sipx_node[i]);
 			tprintf("/[%02x]", sipx.sipx_type);
 			tprintf("}");
 		}
 		break;
 #endif /* AF_IPX  && linux */
 	/* AF_AX25 AF_APPLETALK AF_NETROM AF_BRIDGE AF_AAL5
 	AF_X25 AF_INET6 AF_ROSE still need to be done */

 	default:
 		tprintf("{sa_family=%u, sa_data=", sa.sa_family);
 		printstr(tcp, (long) &((struct sockaddr *) addr)->sa_data,
 			sizeof sa.sa_data);
 		tprintf("}");
 		break;
 	}
 }

 #if HAVE_SENDMSG

 static void
 printmsghdr(tcp, addr)
 struct tcb *tcp;
 long addr;
 {
 	struct msghdr msg;

 	if (umove(tcp, addr, &msg) < 0) {
 		tprintf("%#lx", addr);
 		return;
 	}
 	tprintf("{msg_name=");
 	printstr(tcp, (long) msg.msg_name, msg.msg_namelen);
 	tprintf(", msg_namelen=%u, msg_iov=%#lx, msg_iovlen=%u, ",
 		msg.msg_namelen,
 		(unsigned long) msg.msg_iov, msg.msg_iovlen);
 #ifdef HAVE_MSG_CONTROL
 	tprintf("msg_control=%#lx, msg_controllen=%u, msg_flags=%#x}",
 		(unsigned long) msg.msg_control, msg.msg_controllen,
 		msg.msg_flags);
 #else /* !HAVE_MSG_CONTROL */
 	tprintf("msg_accrights=%#lx, msg_accrightslen=%u}",
 		(unsigned long) msg.msg_accrights, msg.msg_accrightslen);
 #endif /* !HAVE_MSG_CONTROL */
 }

 #endif /* HAVE_SENDMSG */

 int
 sys_socket(tcp)
 struct tcb *tcp;
 {
 	if (entering(tcp)) {
 		printxval(domains, tcp->u_arg[0], "PF_???");
 		tprintf(", ");
 		printxval(socktypes, tcp->u_arg[1], "SOCK_???");
 		tprintf(", ");
 		switch (tcp->u_arg[0]) {
 		case PF_INET:
 			printxval(protocols, tcp->u_arg[2], "IPPROTO_???");
 			break;
 #ifdef PF_IPX
 		case PF_IPX:
 			/* BTW: I don't believe this.. */
 			tprintf("[");
 			printxval(domains, tcp->u_arg[2], "PF_???");
 			tprintf("]");
 			break;
 #endif /* PF_IPX */
 		default:
 			tprintf("%lu", tcp->u_arg[2]);
 			break;
 		}
 	}
 	return 0;
 }

 int
 sys_bind(tcp)
 struct tcb *tcp;
 {
 	if (entering(tcp)) {
 		tprintf("%ld, ", tcp->u_arg[0]);
 		printsock(tcp, tcp->u_arg[1]);
 		tprintf(", %lu", tcp->u_arg[2]);
 	}
 	return 0;
 }

 int
 sys_connect(tcp)
 struct tcb *tcp;
 {
 	return sys_bind(tcp);
 }

 int
 sys_listen(tcp)
 struct tcb *tcp;
 {
 	if (entering(tcp)) {
 		tprintf("%ld, %lu", tcp->u_arg[0], tcp->u_arg[1]);
 	}
 	return 0;
 }

 int
 sys_accept(tcp)
 struct tcb *tcp;
 {
 	if (entering(tcp)) {
 		tprintf("%ld, ", tcp->u_arg[0]);
 	} else if (!tcp->u_arg[2])
 		tprintf("%#lx, NULL", tcp->u_arg[1]);
 	else {
 		if (tcp->u_arg[1] == 0 || syserror(tcp)) {
 			tprintf("%#lx", tcp->u_arg[1]);
 		} else {
 			printsock(tcp, tcp->u_arg[1]);
 		}
 		tprintf(", ");
 		printnum(tcp, tcp->u_arg[2], "%lu");
 	}
 	return 0;
 }

 int
 sys_send(tcp)
 struct tcb *tcp;
 {
 	if (entering(tcp)) {
 		tprintf("%ld, ", tcp->u_arg[0]);
 		printstr(tcp, tcp->u_arg[1], tcp->u_arg[2]);
 		tprintf(", %lu, ", tcp->u_arg[2]);
 		/* flags */
 		if (printflags(msg_flags, tcp->u_arg[3]) == 0)
 			tprintf("0");
 	}
 	return 0;
 }

 int
 sys_sendto(tcp)
 struct tcb *tcp;
 {
 	if (entering(tcp)) {
 		tprintf("%ld, ", tcp->u_arg[0]);
 		printstr(tcp, tcp->u_arg[1], tcp->u_arg[2]);
 		tprintf(", %lu, ", tcp->u_arg[2]);
 		/* flags */
 		if (printflags(msg_flags, tcp->u_arg[3]) == 0)
 			tprintf("0");
 		/* to address */
 		tprintf(", ");
 		printsock(tcp, tcp->u_arg[4]);
 		/* to length */
 		tprintf(", %lu", tcp->u_arg[5]);
 	}
 	return 0;
 }

 #ifdef HAVE_SENDMSG

 int
 sys_sendmsg(tcp)
 struct tcb *tcp;
 {
 	if (entering(tcp)) {
 		tprintf("%ld, ", tcp->u_arg[0]);
 		printmsghdr(tcp, tcp->u_arg[1]);
 		/* flags */
 		tprintf(", ");
 		if (printflags(msg_flags, tcp->u_arg[2]) == 0)
 			tprintf("0");
 	}
 	return 0;
 }

 #endif /* HAVE_SENDMSG */

 int
 sys_recv(tcp)
 struct tcb *tcp;
 {
 	if (entering(tcp)) {
 		tprintf("%ld, ", tcp->u_arg[0]);
 	} else {
 		if (syserror(tcp))
 			tprintf("%#lx", tcp->u_arg[1]);
 		else
 			printstr(tcp, tcp->u_arg[1], tcp->u_rval);

 		tprintf(", %lu, ", tcp->u_arg[2]);
 		if (printflags(msg_flags, tcp->u_arg[3]) == 0)
 			tprintf("0");
 	}
 	return 0;
 }

 int
 sys_recvfrom(tcp)
 struct tcb *tcp;
 {
 	int fromlen;

 	if (entering(tcp)) {
 		tprintf("%ld, ", tcp->u_arg[0]);
 	} else {
 		if (syserror(tcp)) {
 			tprintf("%#lx, %lu, %lu, %#lx, %#lx",
 				tcp->u_arg[1], tcp->u_arg[2], tcp->u_arg[3],
 				tcp->u_arg[4], tcp->u_arg[5]);
 			return 0;
 		}
 		/* buf */
 		printstr(tcp, tcp->u_arg[1], tcp->u_rval);
 		/* len */
 		tprintf(", %lu, ", tcp->u_arg[2]);
 		/* flags */
 		if (printflags(msg_flags, tcp->u_arg[3]) == 0)
 			tprintf("0");
 		/* from address, len */
 		if (!tcp->u_arg[4] || !tcp->u_arg[5]) {
 			if (tcp->u_arg[4] == 0)
 				tprintf(", NULL");
 			else
 				tprintf(", %#lx", tcp->u_arg[4]);
 			if (tcp->u_arg[5] == 0)
 				tprintf(", NULL");
 			else
 				tprintf(", %#lx", tcp->u_arg[5]);
 			return 0;
 		}
 		if (umove(tcp, tcp->u_arg[5], &fromlen) < 0) {
 			tprintf(", {...}, [?]");
 			return 0;
 		}
 		tprintf(", ");
 		printsock(tcp, tcp->u_arg[4]);
 		/* from length */
 		tprintf(", [%u]", fromlen);
 	}
 	return 0;
 }

 #ifdef HAVE_SENDMSG

 int
 sys_recvmsg(tcp)
 struct tcb *tcp;
 {
 	if (entering(tcp)) {
 		tprintf("%ld, ", tcp->u_arg[0]);
 	} else {
 		if (syserror(tcp) || !verbose(tcp))
 			tprintf("%#lx", tcp->u_arg[1]);
 		else
 			printmsghdr(tcp, tcp->u_arg[1]);
 		/* flags */
 		tprintf(", ");
 		if (printflags(msg_flags, tcp->u_arg[2]) == 0)
 			tprintf("0");
 	}
 	return 0;
 }

 #endif /* HAVE_SENDMSG */

 int
 sys_shutdown(tcp)
 struct tcb *tcp;
 {
 	if (entering(tcp)) {
 		tprintf("%ld, %ld", tcp->u_arg[0], tcp->u_arg[1]);
 		switch (tcp->u_arg[1]) {
 		case 0:
 			tprintf("%s", " /* receive */");
 			break;
 		case 1:
 			tprintf("%s", " /* send */");
 			break;
 		case 2:
 			tprintf("%s", " /* send and receive */");
 			break;
 		}
 	}
 	return 0;
 }

 int
 sys_getsockname(tcp)
 struct tcb *tcp;
 {
 	return sys_accept(tcp);
 }

 int
 sys_getpeername(tcp)
 struct tcb *tcp;
 {
 	return sys_accept(tcp);
 }

 int
 sys_pipe(tcp)
 struct tcb *tcp;
 {

 #if defined(LINUX) && !defined(SPARC)
 	int fds[2];

 	if (exiting(tcp)) {
 		if (syserror(tcp)) {
 			tprintf("%#lx", tcp->u_arg[0]);
 			return 0;
 		}
 		if (umoven(tcp, tcp->u_arg[0], sizeof fds, (char *) fds) < 0)
 			tprintf("[...]");
 		else
 			tprintf("[%u, %u]", fds[0], fds[1]);
 	}
 #elif defined(SPARC) || defined(SVR4)
 	if (exiting(tcp))
 		tprintf("[%lu, %lu]", tcp->u_rval, getrval2(tcp));
 #endif
 	return 0;
 }

 int
 sys_socketpair(tcp)
 struct tcb *tcp;
 {
 #ifdef LINUX
 	int fds[2];
 #endif

 	if (entering(tcp)) {
 		printxval(domains, tcp->u_arg[0], "PF_???");
 		tprintf(", ");
 		printxval(socktypes, tcp->u_arg[1], "SOCK_???");
 		tprintf(", ");
 		switch (tcp->u_arg[0]) {
 		case PF_INET:
 			printxval(protocols, tcp->u_arg[2], "IPPROTO_???");
 			break;
 #ifdef PF_IPX
 		case PF_IPX:
 			/* BTW: I don't believe this.. */
 			tprintf("[");
 			printxval(domains, tcp->u_arg[2], "PF_???");
 			tprintf("]");
 			break;
 #endif /* PF_IPX */
 		default:
 			tprintf("%lu", tcp->u_arg[2]);
 			break;
 		}
 	} else {
 		if (syserror(tcp)) {
 			tprintf(", %#lx", tcp->u_arg[3]);
 			return 0;
 		}
 #ifdef LINUX
 		if (umoven(tcp, tcp->u_arg[3], sizeof fds, (char *) fds) < 0)
 			tprintf(", [...]");
 		else
 			tprintf(", [%u, %u]", fds[0], fds[1]);
 #endif /* LINUX */
 #ifdef SUNOS4
 		tprintf(", [%lu, %lu]", tcp->u_rval, getrval2(tcp));
 #endif /* SUNOS4 */
 #ifdef SVR4
 		tprintf(", [%lu, %lu]", tcp->u_rval, getrval2(tcp));
 #endif /* SVR4 */
 	}
 	return 0;
 }

 int
 sys_getsockopt(tcp)
 struct tcb *tcp;
 {
 	if (entering(tcp)) {
 		tprintf("%ld, ", tcp->u_arg[0]);
 		switch (tcp->u_arg[1]) {
 		case SOL_SOCKET:
 			tprintf("SOL_SOCKET, ");
 			printxval(sockoptions, tcp->u_arg[2], "SO_???");
 			tprintf(", ");
 			break;
 #ifdef SOL_IP
 		case SOL_IP:
 			tprintf("SOL_IP, ");
 			printxval(sockipoptions, tcp->u_arg[2], "IP_???");
 			tprintf(", ");
 			break;
 #endif
 #ifdef SOL_IPX
 		case SOL_IPX:
 			tprintf("SOL_IPX, ");
 			printxval(sockipxoptions, tcp->u_arg[2], "IPX_???");
 			tprintf(", ");
 			break;
 #endif
 #ifdef SOL_TCP
 		case SOL_TCP:
 			tprintf("SOL_TCP, ");
 			printxval(socktcpoptions, tcp->u_arg[2], "TCP_???");
 			tprintf(", ");
 			break;
 #endif

 		/* SOL_AX25 SOL_ROSE SOL_ATALK SOL_NETROM SOL_UDP SOL_DECNET SOL_X25
 		 * etc. still need work */
 		default:
 			/* XXX - should know socket family here */
 			printxval(protocols, tcp->u_arg[1], "IPPROTO_???");
 			tprintf("%lu, ", tcp->u_arg[2]);
 			break;
 		}
 	} else {
 		if (syserror(tcp)) {
 			tprintf("%#lx, %#lx",
 				tcp->u_arg[3], tcp->u_arg[4]);
 			return 0;
 		}
 		printnum(tcp, tcp->u_arg[3], "%ld");
 		tprintf(", ");
 		printnum(tcp, tcp->u_arg[4], "%ld");
 	}
 	return 0;
 }

 int
 sys_setsockopt(tcp)
 struct tcb *tcp;
 {
 	if (entering(tcp)) {
 		tprintf("%ld, ", tcp->u_arg[0]);
 		switch (tcp->u_arg[1]) {
 		case SOL_SOCKET:
 			tprintf("SOL_SOCKET, ");
 			printxval(sockoptions, tcp->u_arg[2], "SO_???");
 			tprintf(", ");
 			break;
 #ifdef SOL_IP
 		case SOL_IP:
 			tprintf("SOL_IP, ");
 			printxval(sockipoptions, tcp->u_arg[2], "IP_???");
 			tprintf(", ");
 			break;
 #endif
 #ifdef SOL_IPX
 		case SOL_IPX:
 			tprintf("SOL_IPX, ");
 			printxval(sockipxoptions, tcp->u_arg[2], "IPX_???");
 			tprintf(", ");
 			break;
 #endif
 #ifdef SOL_TCP
 		case SOL_TCP:
 			tprintf("SOL_TCP, ");
 			printxval(socktcpoptions, tcp->u_arg[2], "TCP_???");
 			tprintf(", ");
 			break;
 #endif

 		/* SOL_AX25 SOL_ATALK SOL_NETROM SOL_UDP SOL_DECNET SOL_X25
 		 * etc. still need work  */
 		default:
 			/* XXX - should know socket family here */
 			printxval(protocols, tcp->u_arg[1], "IPPROTO_???");
 			tprintf("%lu, ", tcp->u_arg[2]);
 			break;
 		}
 		printnum(tcp, tcp->u_arg[3], "%ld");
 		tprintf(", %lu", tcp->u_arg[4]);
 	}
 	return 0;
 }
	/*
	* Copyright (c) 1991, 1992 Paul Kranenburg <pk@cs.few.eur.nl>
	* Copyright (c) 1993 Branko Lankester <branko@hacktic.nl>
	* Copyright (c) 1993, 1994, 1995, 1996 Rick Sladkey <jrs@world.std.com>
	* All rights reserved.
	*
	* Redistribution and use in source and binary forms, with or without
	* modification, are permitted provided that the following conditions
	* are met:
	* 1. Redistributions of source code must retain the above copyright
	* notice, this list of conditions and the following disclaimer.
	* 2. Redistributions in binary form must reproduce the above copyright
	* notice, this list of conditions and the following disclaimer in the
	* documentation and/or other materials provided with the distribution.
	* 3. The name of the author may not be used to endorse or promote products
	* derived from this software without specific prior written permission.
	*
	* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
	* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
	* OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
	* IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
	* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
	* NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
	* DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
	* THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
	* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
	* THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
	*
	* $Id$
	*/

	#include "defs.h"

	#include <sys/stat.h>
	#include <sys/socket.h>
	#include <sys/un.h>
	#include <netinet/in.h>
	#include <arpa/inet.h>
	#if defined(LINUX)
	#include <asm/types.h>
	#if defined(__GLIBC__) && (__GLIBC__ >= 2) && (__GLIBC__ + __GLIBC_MINOR__ >= 3)
	# include <netipx/ipx.h>
	#else
	# include <linux/ipx.h>
	#endif
	#endif /* LINUX */

	#if defined(LINUX) && defined(MIPS)
	#if defined( HAVE_LINUX_IN6_H)
	#include <linux/in6.h>
	#endif
	#endif

	#ifndef PF_UNSPEC
	#define PF_UNSPEC AF_UNSPEC
	#endif

	#ifdef LINUX
	/* Under Linux these are enums so we can't test for them with ifdef. */
	#define IPPROTO_EGP IPPROTO_EGP
	#define IPPROTO_PUP IPPROTO_PUP
	#define IPPROTO_IDP IPPROTO_IDP
	#define IPPROTO_IGMP IPPROTO_IGMP
	#define IPPROTO_RAW IPPROTO_RAW
	#define IPPROTO_MAX IPPROTO_MAX
	#endif

	static struct xlat domains[] = {
	{ PF_UNSPEC, "PF_UNSPEC" },
	{ PF_UNIX, "PF_UNIX" },
	{ PF_INET, "PF_INET" },
	#ifdef PF_LOCAL
	{ PF_LOCAL, "PS_LOCAL" },
	#endif
	#ifdef PF_ISO
	{ PF_ISO, "PF_ISO" },
	#endif
	#ifdef PF_AX25
	{ PF_AX25, "PF_AX25" },
	#endif
	#ifdef PF_IPX
	{ PF_IPX, "PF_IPX" },
	#endif
	#ifdef PF_APPLETALK
	{ PF_APPLETALK, "PF_APPLETALK" },
	#endif
	#ifdef PF_NETROM
	{ PF_NETROM, "PF_NETROM" },
	#endif
	#ifdef PF_BRIDGE
	{ PF_BRIDGE, "PF_BRIDGE" },
	#endif
	#ifdef PF_AAL5
	{ PF_AAL5, "PF_AAL5" },
	#endif
	#ifdef PF_X25
	{ PF_X25, "PF_X25" },
	#endif
	#ifdef PF_INET6
	{ PF_INET6, "PF_INET6" },
	#endif
	#ifdef PF_ROSE
	{ PF_ROSE, "PF_ROSE" },
	#endif
	#ifdef PF_DECNET
	{ PF_DECNET, "PF_DECNET" },
	#endif
	#ifdef PF_NETBEUI
	{ PF_NETBEUI, "PF_NETBEUI" },
	#endif
	#ifdef PF_IMPLINK
	{ PF_IMPLINK, "PF_IMPLINK" },
	#endif
	{ 0, NULL },
	};
	static struct xlat socktypes[] = {
	{ SOCK_STREAM, "SOCK_STREAM" },
	{ SOCK_DGRAM, "SOCK_DGRAM" },
	#ifdef SOCK_RAW
	{ SOCK_RAW, "SOCK_RAW" },
	#endif
	#ifdef SOCK_SEQPACKET
	{ SOCK_SEQPACKET,"SOCK_SEQPACKET"},
	#endif
	#ifdef SOCK_RDM
	{ SOCK_RDM, "SOCK_RDM" },
	#endif
	#ifdef SOCK_PACKET
	{ SOCK_PACKET, "SOCK_PACKET" },
	#endif
	{ 0, NULL },
	};
	static struct xlat protocols[] = {
	{ IPPROTO_IP, "IPPROTO_IP" },
	{ IPPROTO_ICMP, "IPPROTO_ICMP" },
	{ IPPROTO_TCP, "IPPROTO_TCP" },
	{ IPPROTO_UDP, "IPPROTO_UDP" },
	#ifdef IPPROTO_GGP
	{ IPPROTO_GGP, "IPPROTO_GGP" },
	#endif
	#ifdef IPPROTO_EGP
	{ IPPROTO_EGP, "IPPROTO_EGP" },
	#endif
	#ifdef IPPROTO_PUP
	{ IPPROTO_PUP, "IPPROTO_PUP" },
	#endif
	#ifdef IPPROTO_IDP
	{ IPPROTO_IDP, "IPPROTO_IDP" },
	#endif
	#ifdef IPPROTO_IPV6
	{ IPPROTO_IPV6, "IPPROTO_IPV6" },
	#endif
	#ifdef IPPROTO_ICMPV6
	{ IPPROTO_ICMPV6,"IPPROTO_ICMPV6"},
	#endif
	#ifdef IPPROTO_IGMP
	{ IPPROTO_IGMP, "IPPROTO_IGMP" },
	#endif
	#ifdef IPPROTO_HELLO
	{ IPPROTO_HELLO,"IPPROTO_HELLO" },
	#endif
	#ifdef IPPROTO_ND
	{ IPPROTO_ND, "IPPROTO_ND" },
	#endif
	#ifdef IPPROTO_RAW
	{ IPPROTO_RAW, "IPPROTO_RAW" },
	#endif
	#ifdef IPPROTO_MAX
	{ IPPROTO_MAX, "IPPROTO_MAX" },
	#endif
	#ifdef IPPROTO_IPIP
	{ IPPROTO_IPIP, "IPPROTO_IPIP" },
	#endif
	{ 0, NULL },
	};
	static struct xlat msg_flags[] = {
	{ MSG_OOB, "MSG_OOB" },
	#ifdef MSG_DONTROUTE
	{ MSG_DONTROUTE,"MSG_DONTROUTE" },
	#endif
	#ifdef MSG_PEEK
	{ MSG_PEEK, "MSG_PEEK" },
	#endif
	#ifdef MSG_CTRUNC
	{ MSG_CTRUNC, "MSG_CTRUNC" },
	#endif
	#ifdef MSG_PROXY
	{ MSG_PROXY, "MSG_PROXY" },
	#endif
	#ifdef MSG_EOR
	{ MSG_EOR, "MSG_EOR" },
	#endif
	#ifdef MSG_WAITALL
	{ MSG_WAITALL, "MSG_WAITALL" },
	#endif
	{ 0, NULL },
	};

	static struct xlat sockoptions[] = {
	#ifdef SO_DEBUG
	{ SO_DEBUG, "SO_DEBUG" },
	#endif
	#ifdef SO_REUSEADDR
	{ SO_REUSEADDR, "SO_REUSEADDR" },
	#endif
	#ifdef SO_KEEPALIVE
	{ SO_KEEPALIVE, "SO_KEEPALIVE" },
	#endif
	#ifdef SO_DONTROUTE
	{ SO_DONTROUTE, "SO_DONTROUTE" },
	#endif
	#ifdef SO_BROADCAST
	{ SO_BROADCAST, "SO_BROADCAST" },
	#endif
	#ifdef SO_LINGER
	{ SO_LINGER, "SO_LINGER" },
	#endif
	#ifdef SO_OOBINLINE
	{ SO_OOBINLINE, "SO_OOBINLINE" },
	#endif
	#ifdef SO_TYPE
	{ SO_TYPE, "SO_TYPE" },
	#endif
	#ifdef SO_ERROR
	{ SO_ERROR, "SO_ERROR" },
	#endif
	#ifdef SO_SNDBUF
	{ SO_SNDBUF, "SO_SNDBUF" },
	#endif
	#ifdef SO_RCVBUF
	{ SO_RCVBUF, "SO_RCVBUF" },
	#endif
	#ifdef SO_NO_CHECK
	{ SO_NO_CHECK, "SO_NO_CHECK" },
	#endif
	#ifdef SO_PRIORITY
	{ SO_PRIORITY, "SO_PRIORITY" },
	#endif
	#ifdef SO_ACCEPTCONN
	{ SO_ACCEPTCONN,"SO_ACCEPTCONN" },
	#endif
	#ifdef SO_USELOOPBACK
	{ SO_USELOOPBACK,"SO_USELOOPBACK"},
	#endif
	#ifdef SO_SNDLOWAT
	{ SO_SNDLOWAT, "SO_SNDLOWAT" },
	#endif
	#ifdef SO_RCVLOWAT
	{ SO_RCVLOWAT, "SO_RCVLOWAT" },
	#endif
	#ifdef SO_SNDTIMEO
	{ SO_SNDTIMEO, "SO_SNDTIMEO" },
	#endif
	#ifdef SO_RCVTIMEO
	{ SO_RCVTIMEO, "SO_RCVTIMEO" },
	#endif
	#ifdef SO_BSDCOMPAT
	{ SO_BSDCOMPAT, "SO_BSDCOMPAT" },
	#endif
	#ifdef SO_REUSEPORT
	{ SO_REUSEPORT, "SO_REUSEPORT" },
	#endif
	#ifdef SO_RCVLOWAT
	{ SO_RCVLOWAT, "SO_RCVLOWAT" },
	#endif
	#ifdef SO_SNDLOWAT
	{ SO_SNDLOWAT, "SO_SNDLOWAT" },
	#endif
	#ifdef SO_RCVTIMEO
	{ SO_RCVTIMEO, "SO_RCVTIMEO" },
	#endif
	#ifdef SO_SNDTIMEO
	{ SO_SNDTIMEO, "SO_SNDTIMEO" },
	#endif
	{ 0, NULL },
	};

	#ifdef SOL_IP
	static struct xlat sockipoptions[] = {
	{ IP_TOS, "IP_TOS" },
	{ IP_TTL, "IP_TTL" },
	#if defined(IP_HDRINCL)
	{ IP_HDRINCL, "IP_HDRINCL" },
	#endif
	#if defined(IP_OPTIONS)
	{ IP_OPTIONS, "IP_OPTIONS" },
	#endif
	{ IP_MULTICAST_IF, "IP_MULTICAST_IF" },
	{ IP_MULTICAST_TTL, "IP_MULTICAST_TTL" },
	{ IP_MULTICAST_LOOP, "IP_MULTICAST_LOOP" },
	{ IP_ADD_MEMBERSHIP, "IP_ADD_MEMBERSHIP" },
	{ IP_DROP_MEMBERSHIP, "IP_DROP_MEMBERSHIP" },
	{ 0, NULL },
	};
	#endif /* SOL_IP */

	#ifdef SOL_IPX
	static struct xlat sockipxoptions[] = {
	{ IPX_TYPE, "IPX_TYPE" },
	{ 0, NULL },
	};
	#endif /* SOL_IPX */

	#ifdef SOL_TCP
	static struct xlat socktcpoptions[] = {
	{ TCP_NODELAY, "TCP_NODELAY" },
	{ TCP_MAXSEG, "TCP_MAXSEG" },
	{ 0, NULL },
	};
	#endif /* SOL_TCP */

	void
	printsock(tcp, addr)
	struct tcb *tcp;
	long addr;
	{
	struct sockaddr sa;
	struct sockaddr_in sin = (struct sockaddr_in ) &sa;
	struct sockaddr_un sau;
	#ifdef HAVE_INET_NTOP
	struct sockaddr_in6 sa6;
	char string_addr[100];
	#endif
	#ifdef LINUX
	struct sockaddr_ipx sipx;
	#endif

	if (addr == 0) {
	tprintf("NULL");
	return;
	}
	if (!verbose(tcp)) {
	tprintf("%#lx", addr);
	return;
	}
	if (umove(tcp, addr, &sa) < 0) {
	tprintf("{...}");
	return;
	}
	switch (sa.sa_family) {
	case AF_UNIX:
	if (umove(tcp, addr, &sau) < 0)
	tprintf("{sun_family=AF_UNIX, ...}");
	else
	tprintf("{sun_family=AF_UNIX, sun_path=\"%s\"}",
	sau.sun_path);
	break;
	case AF_INET:
	tprintf("{sin_family=AF_INET, ");
	tprintf("sin_port=htons(%u), sin_addr=inet_addr(\"%s\")}",
	ntohs(sin->sin_port), inet_ntoa(sin->sin_addr));
	break;
	#ifdef HAVE_INET_NTOP
	case AF_INET6:
	if (umove(tcp, addr, &sa6) < 0)
	tprintf("{sin6_family=AF_INET6, ...}");
	else
	{
	tprintf("{sin6_family=AF_INET6, ");
	inet_ntop(AF_INET6, &sa6.sin6_addr, string_addr, sizeof(string_addr));
	tprintf("sin6_port=htons(%u), inet_pton(AF_INET6, \"%s\", &sin6_addr), sin6_flowinfo=htonl(%u)}",
	ntohs(sa6.sin6_port), string_addr, ntohl(sa6.sin6_flowinfo));
	}
	break;
	#endif
	#if defined(AF_IPX) && defined(linux)
	case AF_IPX:
	if (umove(tcp, addr, &sipx)<0)
	tprintf("{sipx_family=AF_IPX, ...}");
	else {
	int i;
	tprintf("{sipx_family=AF_IPX, ");
	tprintf("{sipx_port=htons(%u), ",
	ntohs(sipx.sipx_port));
	/* Yes, I know, this does not look too
	* strace-ish, but otherwise the IPX
	* addresses just look monstrous...
	* Anyways, feel free if you don't like
	* this way.. :)
	*/
	tprintf("%08lx:", (unsigned long)ntohl(sipx.sipx_network));
	for (i = 0; i<IPX_NODE_LEN; i++)
	tprintf("%02x", sipx.sipx_node[i]);
	tprintf("/[%02x]", sipx.sipx_type);
	tprintf("}");
	}
	break;
	#endif /* AF_IPX && linux */
	/* AF_AX25 AF_APPLETALK AF_NETROM AF_BRIDGE AF_AAL5
	AF_X25 AF_INET6 AF_ROSE still need to be done */

	default:
	tprintf("{sa_family=%u, sa_data=", sa.sa_family);
	printstr(tcp, (long) &((struct sockaddr *) addr)->sa_data,
	sizeof sa.sa_data);
	tprintf("}");
	break;
	}
	}

	#if HAVE_SENDMSG

	static void
	printmsghdr(tcp, addr)
	struct tcb *tcp;
	long addr;
	{
	struct msghdr msg;

	if (umove(tcp, addr, &msg) < 0) {
	tprintf("%#lx", addr);
	return;
	}
	tprintf("{msg_name=");
	printstr(tcp, (long) msg.msg_name, msg.msg_namelen);
	tprintf(", msg_namelen=%u, msg_iov=%#lx, msg_iovlen=%u, ",
	msg.msg_namelen,
	(unsigned long) msg.msg_iov, msg.msg_iovlen);
	#ifdef HAVE_MSG_CONTROL
	tprintf("msg_control=%#lx, msg_controllen=%u, msg_flags=%#x}",
	(unsigned long) msg.msg_control, msg.msg_controllen,
	msg.msg_flags);
	#else /* !HAVE_MSG_CONTROL */
	tprintf("msg_accrights=%#lx, msg_accrightslen=%u}",
	(unsigned long) msg.msg_accrights, msg.msg_accrightslen);
	#endif /* !HAVE_MSG_CONTROL */
	}

	#endif /* HAVE_SENDMSG */

	int
	sys_socket(tcp)
	struct tcb *tcp;
	{
	if (entering(tcp)) {
	printxval(domains, tcp->u_arg[0], "PF_???");
	tprintf(", ");
	printxval(socktypes, tcp->u_arg[1], "SOCK_???");
	tprintf(", ");
	switch (tcp->u_arg[0]) {
	case PF_INET:
	printxval(protocols, tcp->u_arg[2], "IPPROTO_???");
	break;
	#ifdef PF_IPX
	case PF_IPX:
	/* BTW: I don't believe this.. */
	tprintf("[");
	printxval(domains, tcp->u_arg[2], "PF_???");
	tprintf("]");
	break;
	#endif /* PF_IPX */
	default:
	tprintf("%lu", tcp->u_arg[2]);
	break;
	}
	}
	return 0;
	}

	int
	sys_bind(tcp)
	struct tcb *tcp;
	{
	if (entering(tcp)) {
	tprintf("%ld, ", tcp->u_arg[0]);
	printsock(tcp, tcp->u_arg[1]);
	tprintf(", %lu", tcp->u_arg[2]);
	}
	return 0;
	}

	int
	sys_connect(tcp)
	struct tcb *tcp;
	{
	return sys_bind(tcp);
	}

	int
	sys_listen(tcp)
	struct tcb *tcp;
	{
	if (entering(tcp)) {
	tprintf("%ld, %lu", tcp->u_arg[0], tcp->u_arg[1]);
	}
	return 0;
	}

	int
	sys_accept(tcp)
	struct tcb *tcp;
	{
	if (entering(tcp)) {
	tprintf("%ld, ", tcp->u_arg[0]);
	} else if (!tcp->u_arg[2])
	tprintf("%#lx, NULL", tcp->u_arg[1]);
	else {
	if (tcp->u_arg[1] == 0 \|\| syserror(tcp)) {
	tprintf("%#lx", tcp->u_arg[1]);
	} else {
	printsock(tcp, tcp->u_arg[1]);
	}
	tprintf(", ");
	printnum(tcp, tcp->u_arg[2], "%lu");
	}
	return 0;
	}

	int
	sys_send(tcp)
	struct tcb *tcp;
	{
	if (entering(tcp)) {
	tprintf("%ld, ", tcp->u_arg[0]);
	printstr(tcp, tcp->u_arg[1], tcp->u_arg[2]);
	tprintf(", %lu, ", tcp->u_arg[2]);
	/* flags */
	if (printflags(msg_flags, tcp->u_arg[3]) == 0)
	tprintf("0");
	}
	return 0;
	}

	int
	sys_sendto(tcp)
	struct tcb *tcp;
	{
	if (entering(tcp)) {
	tprintf("%ld, ", tcp->u_arg[0]);
	printstr(tcp, tcp->u_arg[1], tcp->u_arg[2]);
	tprintf(", %lu, ", tcp->u_arg[2]);
	/* flags */
	if (printflags(msg_flags, tcp->u_arg[3]) == 0)
	tprintf("0");
	/* to address */
	tprintf(", ");
	printsock(tcp, tcp->u_arg[4]);
	/* to length */
	tprintf(", %lu", tcp->u_arg[5]);
	}
	return 0;
	}

	#ifdef HAVE_SENDMSG

	int
	sys_sendmsg(tcp)
	struct tcb *tcp;
	{
	if (entering(tcp)) {
	tprintf("%ld, ", tcp->u_arg[0]);
	printmsghdr(tcp, tcp->u_arg[1]);
	/* flags */
	tprintf(", ");
	if (printflags(msg_flags, tcp->u_arg[2]) == 0)
	tprintf("0");
	}
	return 0;
	}

	#endif /* HAVE_SENDMSG */

	int
	sys_recv(tcp)
	struct tcb *tcp;
	{
	if (entering(tcp)) {
	tprintf("%ld, ", tcp->u_arg[0]);
	} else {
	if (syserror(tcp))
	tprintf("%#lx", tcp->u_arg[1]);
	else
	printstr(tcp, tcp->u_arg[1], tcp->u_rval);

	tprintf(", %lu, ", tcp->u_arg[2]);
	if (printflags(msg_flags, tcp->u_arg[3]) == 0)
	tprintf("0");
	}
	return 0;
	}

	int
	sys_recvfrom(tcp)
	struct tcb *tcp;
	{
	int fromlen;

	if (entering(tcp)) {
	tprintf("%ld, ", tcp->u_arg[0]);
	} else {
	if (syserror(tcp)) {
	tprintf("%#lx, %lu, %lu, %#lx, %#lx",
	tcp->u_arg[1], tcp->u_arg[2], tcp->u_arg[3],
	tcp->u_arg[4], tcp->u_arg[5]);
	return 0;
	}
	/* buf */
	printstr(tcp, tcp->u_arg[1], tcp->u_rval);
	/* len */
	tprintf(", %lu, ", tcp->u_arg[2]);
	/* flags */
	if (printflags(msg_flags, tcp->u_arg[3]) == 0)
	tprintf("0");
	/* from address, len */
	if (!tcp->u_arg[4] \|\| !tcp->u_arg[5]) {
	if (tcp->u_arg[4] == 0)
	tprintf(", NULL");
	else
	tprintf(", %#lx", tcp->u_arg[4]);
	if (tcp->u_arg[5] == 0)
	tprintf(", NULL");
	else
	tprintf(", %#lx", tcp->u_arg[5]);
	return 0;
	}
	if (umove(tcp, tcp->u_arg[5], &fromlen) < 0) {
	tprintf(", {...}, [?]");
	return 0;
	}
	tprintf(", ");
	printsock(tcp, tcp->u_arg[4]);
	/* from length */
	tprintf(", [%u]", fromlen);
	}
	return 0;
	}

	#ifdef HAVE_SENDMSG

	int
	sys_recvmsg(tcp)
	struct tcb *tcp;
	{
	if (entering(tcp)) {
	tprintf("%ld, ", tcp->u_arg[0]);
	} else {
	if (syserror(tcp) \|\| !verbose(tcp))
	tprintf("%#lx", tcp->u_arg[1]);
	else
	printmsghdr(tcp, tcp->u_arg[1]);
	/* flags */
	tprintf(", ");
	if (printflags(msg_flags, tcp->u_arg[2]) == 0)
	tprintf("0");
	}
	return 0;
	}

	#endif /* HAVE_SENDMSG */

	int
	sys_shutdown(tcp)
	struct tcb *tcp;
	{
	if (entering(tcp)) {
	tprintf("%ld, %ld", tcp->u_arg[0], tcp->u_arg[1]);
	switch (tcp->u_arg[1]) {
	case 0:
	tprintf("%s", " /* receive */");
	break;
	case 1:
	tprintf("%s", " /* send */");
	break;
	case 2:
	tprintf("%s", " /* send and receive */");
	break;
	}
	}
	return 0;
	}

	int
	sys_getsockname(tcp)
	struct tcb *tcp;
	{
	return sys_accept(tcp);
	}

	int
	sys_getpeername(tcp)
	struct tcb *tcp;
	{
	return sys_accept(tcp);
	}

	int
	sys_pipe(tcp)
	struct tcb *tcp;
	{

	#if defined(LINUX) && !defined(SPARC)
	int fds[2];

	if (exiting(tcp)) {
	if (syserror(tcp)) {
	tprintf("%#lx", tcp->u_arg[0]);
	return 0;
	}
	if (umoven(tcp, tcp->u_arg[0], sizeof fds, (char *) fds) < 0)
	tprintf("[...]");
	else
	tprintf("[%u, %u]", fds[0], fds[1]);
	}
	#elif defined(SPARC) \|\| defined(SVR4)
	if (exiting(tcp))
	tprintf("[%lu, %lu]", tcp->u_rval, getrval2(tcp));
	#endif
	return 0;
	}

	int
	sys_socketpair(tcp)
	struct tcb *tcp;
	{
	#ifdef LINUX
	int fds[2];
	#endif

	if (entering(tcp)) {
	printxval(domains, tcp->u_arg[0], "PF_???");
	tprintf(", ");
	printxval(socktypes, tcp->u_arg[1], "SOCK_???");
	tprintf(", ");
	switch (tcp->u_arg[0]) {
	case PF_INET:
	printxval(protocols, tcp->u_arg[2], "IPPROTO_???");
	break;
	#ifdef PF_IPX
	case PF_IPX:
	/* BTW: I don't believe this.. */
	tprintf("[");
	printxval(domains, tcp->u_arg[2], "PF_???");
	tprintf("]");
	break;
	#endif /* PF_IPX */
	default:
	tprintf("%lu", tcp->u_arg[2]);
	break;
	}
	} else {
	if (syserror(tcp)) {
	tprintf(", %#lx", tcp->u_arg[3]);
	return 0;
	}
	#ifdef LINUX
	if (umoven(tcp, tcp->u_arg[3], sizeof fds, (char *) fds) < 0)
	tprintf(", [...]");
	else
	tprintf(", [%u, %u]", fds[0], fds[1]);
	#endif /* LINUX */
	#ifdef SUNOS4
	tprintf(", [%lu, %lu]", tcp->u_rval, getrval2(tcp));
	#endif /* SUNOS4 */
	#ifdef SVR4
	tprintf(", [%lu, %lu]", tcp->u_rval, getrval2(tcp));
	#endif /* SVR4 */
	}
	return 0;
	}

	int
	sys_getsockopt(tcp)
	struct tcb *tcp;
	{
	if (entering(tcp)) {
	tprintf("%ld, ", tcp->u_arg[0]);
	switch (tcp->u_arg[1]) {
	case SOL_SOCKET:
	tprintf("SOL_SOCKET, ");
	printxval(sockoptions, tcp->u_arg[2], "SO_???");
	tprintf(", ");
	break;
	#ifdef SOL_IP
	case SOL_IP:
	tprintf("SOL_IP, ");
	printxval(sockipoptions, tcp->u_arg[2], "IP_???");
	tprintf(", ");
	break;
	#endif
	#ifdef SOL_IPX
	case SOL_IPX:
	tprintf("SOL_IPX, ");
	printxval(sockipxoptions, tcp->u_arg[2], "IPX_???");
	tprintf(", ");
	break;
	#endif
	#ifdef SOL_TCP
	case SOL_TCP:
	tprintf("SOL_TCP, ");
	printxval(socktcpoptions, tcp->u_arg[2], "TCP_???");
	tprintf(", ");
	break;
	#endif

	/* SOL_AX25 SOL_ROSE SOL_ATALK SOL_NETROM SOL_UDP SOL_DECNET SOL_X25
	* etc. still need work */
	default:
	/* XXX - should know socket family here */
	printxval(protocols, tcp->u_arg[1], "IPPROTO_???");
	tprintf("%lu, ", tcp->u_arg[2]);
	break;
	}
	} else {
	if (syserror(tcp)) {
	tprintf("%#lx, %#lx",
	tcp->u_arg[3], tcp->u_arg[4]);
	return 0;
	}
	printnum(tcp, tcp->u_arg[3], "%ld");
	tprintf(", ");
	printnum(tcp, tcp->u_arg[4], "%ld");
	}
	return 0;
	}

	int
	sys_setsockopt(tcp)
	struct tcb *tcp;
	{
	if (entering(tcp)) {
	tprintf("%ld, ", tcp->u_arg[0]);
	switch (tcp->u_arg[1]) {
	case SOL_SOCKET:
	tprintf("SOL_SOCKET, ");
	printxval(sockoptions, tcp->u_arg[2], "SO_???");
	tprintf(", ");
	break;
	#ifdef SOL_IP
	case SOL_IP:
	tprintf("SOL_IP, ");
	printxval(sockipoptions, tcp->u_arg[2], "IP_???");
	tprintf(", ");
	break;
	#endif
	#ifdef SOL_IPX
	case SOL_IPX:
	tprintf("SOL_IPX, ");
	printxval(sockipxoptions, tcp->u_arg[2], "IPX_???");
	tprintf(", ");
	break;
	#endif
	#ifdef SOL_TCP
	case SOL_TCP:
	tprintf("SOL_TCP, ");
	printxval(socktcpoptions, tcp->u_arg[2], "TCP_???");
	tprintf(", ");
	break;
	#endif

	/* SOL_AX25 SOL_ATALK SOL_NETROM SOL_UDP SOL_DECNET SOL_X25
	* etc. still need work */
	default:
	/* XXX - should know socket family here */
	printxval(protocols, tcp->u_arg[1], "IPPROTO_???");
	tprintf("%lu, ", tcp->u_arg[2]);
	break;
	}
	printnum(tcp, tcp->u_arg[3], "%ld");
	tprintf(", %lu", tcp->u_arg[4]);
	}
	return 0;
	}