* 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>
+ * Copyright (c) 1996-2000 Wichert Akkerman <wichert@cistron.nl>
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
#include <sys/stat.h>
#include <sys/socket.h>
#include <sys/un.h>
+
+#if defined(HAVE_SIN6_SCOPE_ID_LINUX)
+#define in6_addr in6_addr_libc
+#define ipv6_mreq ipv6_mreq_libc
+#define sockaddr_in6 sockaddr_in6_libc
+#endif
+
#include <netinet/in.h>
+#ifdef HAVE_NETINET_TCP_H
+#include <netinet/tcp.h>
+#endif
+#ifdef HAVE_NETINET_UDP_H
+#include <netinet/udp.h>
+#endif
#include <arpa/inet.h>
+#include <net/if.h>
#if defined(LINUX)
#include <asm/types.h>
#if defined(__GLIBC__) && (__GLIBC__ >= 2) && (__GLIBC__ + __GLIBC_MINOR__ >= 3)
#endif
#endif /* LINUX */
-#if defined(LINUX) && defined(MIPS)
+#if defined (__GLIBC__) && (((__GLIBC__ < 2) || (__GLIBC__ == 2 && __GLIBC_MINOR__ < 1)) || defined(HAVE_SIN6_SCOPE_ID_LINUX))
#if defined(HAVE_LINUX_IN6_H)
+#if defined(HAVE_SIN6_SCOPE_ID_LINUX)
+#undef in6_addr
+#undef ipv6_mreq
+#undef sockaddr_in6
+#define in6_addr in6_addr_kernel
+#define ipv6_mreq ipv6_mreq_kernel
+#define sockaddr_in6 sockaddr_in6_kernel
+#endif
#include <linux/in6.h>
+#if defined(HAVE_SIN6_SCOPE_ID_LINUX)
+#undef in6_addr
+#undef ipv6_mreq
+#undef sockaddr_in6
+#define in6_addr in6_addr_libc
+#define ipv6_mreq ipv6_mreq_libc
+#define sockaddr_in6 sockaddr_in6_kernel
+#endif
#endif
#endif
#include <linux/if_packet.h>
#endif
+#if defined(HAVE_LINUX_ICMP_H)
+#include <linux/icmp.h>
+#endif
+
#ifndef PF_UNSPEC
#define PF_UNSPEC AF_UNSPEC
#endif
+#if UNIXWARE >= 7
+#define HAVE_SENDMSG 1 /* HACK - *FIXME* */
+#endif
+
#ifdef LINUX
/* Under Linux these are enums so we can't test for them with ifdef. */
#define IPPROTO_EGP IPPROTO_EGP
#endif
{ 0, NULL },
};
+static struct xlat socketlayers[] = {
+#if defined(SOL_IP)
+ { SOL_IP, "SOL_IP" },
+#endif
+#if defined(SOL_ICMP)
+ { SOL_ICMP, "SOL_ICMP" },
+#endif
+#if defined(SOL_TCP)
+ { SOL_TCP, "SOL_TCP" },
+#endif
+#if defined(SOL_UDP)
+ { SOL_UDP, "SOL_UDP" },
+#endif
+#if defined(SOL_IPV6)
+ { SOL_IPV6, "SOL_IPV6" },
+#endif
+#if defined(SOL_ICMPV6)
+ { SOL_ICMPV6, "SOL_ICMPV6" },
+#endif
+#if defined(SOL_RAW)
+ { SOL_RAW, "SOL_RAW" },
+#endif
+#if defined(SOL_IPX)
+ { SOL_IPX, "SOL_IPX" },
+#endif
+#if defined(SOL_IPX)
+ { SOL_IPX, "SOL_IPX" },
+#endif
+#if defined(SOL_AX25)
+ { SOL_AX25, "SOL_AX25" },
+#endif
+#if defined(SOL_ATALK)
+ { SOL_ATALK, "SOL_ATALK" },
+#endif
+#if defined(SOL_NETROM)
+ { SOL_NETROM, "SOL_NETROM" },
+#endif
+#if defined(SOL_ROSE)
+ { SOL_ROSE, "SOL_ROSE" },
+#endif
+#if defined(SOL_DECNET)
+ { SOL_DECNET, "SOL_DECNET" },
+#endif
+#if defined(SOL_X25)
+ { SOL_X25, "SOL_X25" },
+#endif
+#if defined(SOL_PACKET)
+ { SOL_PACKET, "SOL_PACKET" },
+#endif
+#if defined(SOL_ATM)
+ { SOL_ATM, "SOL_ATM" },
+#endif
+#if defined(SOL_AAL)
+ { SOL_AAL, "SOL_AAL" },
+#endif
+#if defined(SOL_IRDA)
+ { SOL_IRDA, "SOL_IRDA" },
+#endif
+ { SOL_SOCKET, "SOL_SOCKET" }, /* Never used! */
+};
+/*** WARNING: DANGER WILL ROBINSON: NOTE "socketlayers" array above
+ falls into "protocols" array below!!!! This is intended!!! ***/
static struct xlat protocols[] = {
{ IPPROTO_IP, "IPPROTO_IP" },
{ IPPROTO_ICMP, "IPPROTO_ICMP" },
#ifdef SO_REUSEPORT
{ SO_REUSEPORT, "SO_REUSEPORT" },
#endif
-#ifdef SO_RCVLOWAT
- { SO_RCVLOWAT, "SO_RCVLOWAT" },
+#ifdef SO_ORDREL
+ { SO_ORDREL, "SO_ORDREL" },
#endif
-#ifdef SO_SNDLOWAT
- { SO_SNDLOWAT, "SO_SNDLOWAT" },
+#ifdef SO_IMASOCKET
+ { SO_IMASOCKET, "SO_IMASOCKET" },
#endif
-#ifdef SO_RCVTIMEO
- { SO_RCVTIMEO, "SO_RCVTIMEO" },
+#ifdef SO_MGMT
+ { SO_MGMT, "SO_MGMT" },
#endif
-#ifdef SO_SNDTIMEO
- { SO_SNDTIMEO, "SO_SNDTIMEO" },
+#ifdef SO_LISTENING
+ { SO_LISTENING, "SO_LISTENING" },
+#endif
+#ifdef SO_RDWR
+ { SO_RDWR, "SO_RDWR" },
+#endif
+#ifdef SO_SEMA
+ { SO_SEMA, "SO_SEMA" },
+#endif
+#ifdef SO_PARALLELSVR
+ { SO_PARALLELSVR,"SO_PARALLELSVR"},
+#endif
+#ifdef SO_PROTOTYPE
+ { SO_PROTOTYPE, "SO_PROTOTYPE" },
+#endif
+#ifdef SO_ALLRAW
+ { SO_ALLRAW, "SO_ALLRAW" },
+#endif
+#ifdef SO_ICS
+ { SO_ICS, "SO_ICS" },
#endif
{ 0, NULL },
};
+#if !defined (SOL_IP) && defined (IPPROTO_IP)
+#define SOL_IP IPPROTO_IP
+#endif
+
#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 },
+#ifdef IP_TOS
+ { IP_TOS, "IP_TOS" },
+#endif
+#ifdef IP_TTL
+ { IP_TTL, "IP_TTL" },
+#endif
+#ifdef IP_HDRINCL
+ { IP_HDRINCL, "IP_HDRINCL" },
+#endif
+#ifdef IP_OPTIONS
+ { IP_OPTIONS, "IP_OPTIONS" },
+#endif
+#ifdef IP_ROUTER_ALERT
+ { IP_ROUTER_ALERT, "IP_ROUTER_ALERT" },
+#endif
+#ifdef IP_RECVOPTIONS
+ { IP_RECVOPTIONS, "IP_RECVOPTIONS" },
+#endif
+#ifdef IP_RECVOPTS
+ { IP_RECVOPTS, "IP_RECVOPTS" },
+#endif
+#ifdef IP_RECVRETOPTS
+ { IP_RECVRETOPTS, "IP_RECVRETOPTS" },
+#endif
+#ifdef IP_RECVDSTADDR
+ { IP_RECVDSTADDR, "IP_RECVDSTADDR" },
+#endif
+#ifdef IP_RETOPTS
+ { IP_RETOPTS, "IP_RETOPTS" },
+#endif
+#ifdef IP_PKTINFO
+ { IP_PKTINFO, "IP_PKTINFO" },
+#endif
+#ifdef IP_PKTOPTIONS
+ { IP_PKTOPTIONS, "IP_PKTOPTIONS" },
+#endif
+#ifdef IP_MTU_DISCOVER
+ { IP_MTU_DISCOVER, "IP_MTU_DISCOVER" },
+#endif
+#ifdef IP_RECVERR
+ { IP_RECVERR, "IP_RECVERR" },
+#endif
+#ifdef IP_RECVTTL
+ { IP_RECVTTL, "IP_RECRECVTTL" },
+#endif
+#ifdef IP_RECVTOS
+ { IP_RECVTOS, "IP_RECRECVTOS" },
+#endif
+#ifdef IP_MTU
+ { IP_MTU, "IP_MTU" },
+#endif
+#ifdef IP_MULTICAST_IF
+ { IP_MULTICAST_IF, "IP_MULTICAST_IF" },
+#endif
+#ifdef IP_MULTICAST_TTL
+ { IP_MULTICAST_TTL, "IP_MULTICAST_TTL" },
+#endif
+#ifdef IP_MULTICAST_LOOP
+ { IP_MULTICAST_LOOP, "IP_MULTICAST_LOOP" },
+#endif
+#ifdef IP_ADD_MEMBERSHIP
+ { IP_ADD_MEMBERSHIP, "IP_ADD_MEMBERSHIP" },
+#endif
+#ifdef IP_DROP_MEMBERSHIP
+ { IP_DROP_MEMBERSHIP, "IP_DROP_MEMBERSHIP" },
+#endif
+#ifdef IP_BROADCAST_IF
+ { IP_BROADCAST_IF, "IP_BROADCAST_IF" },
+#endif
+#ifdef IP_RECVIFINDEX
+ { IP_RECVIFINDEX, "IP_RECVIFINDEX" },
+#endif
+ { 0, NULL },
};
#endif /* SOL_IP */
};
#endif /* SOL_IPX */
+#ifdef SOL_RAW
+static struct xlat sockrawoptions[] = {
+#if defined(ICMP_FILTER)
+ { ICMP_FILTER, "ICMP_FILTER" },
+#endif
+ { 0, NULL },
+};
+#endif /* SOL_RAW */
+
+#ifdef SOL_PACKET
+static struct xlat sockpacketoptions[] = {
+ { PACKET_ADD_MEMBERSHIP, "PACKET_ADD_MEMBERSHIP" },
+ { PACKET_DROP_MEMBERSHIP, "PACKET_DROP_MEMBERSHIP"},
+#if defined(PACKET_RECV_OUTPUT)
+ { PACKET_RECV_OUTPUT, "PACKET_RECV_OUTPUT" },
+#endif
+#if defined(PACKET_RX_RING)
+ { PACKET_RX_RING, "PACKET_RX_RING" },
+#endif
+#if defined(PACKET_STATISTICS)
+ { PACKET_STATISTICS, "PACKET_STATISTICS" },
+#endif
+ { 0, NULL },
+};
+#endif /* SOL_PACKET */
+
+#if !defined (SOL_TCP) && defined (IPPROTO_TCP)
+#define SOL_TCP IPPROTO_TCP
+#endif
+
#ifdef SOL_TCP
static struct xlat socktcpoptions[] = {
- { TCP_NODELAY, "TCP_NODELAY" },
- { TCP_MAXSEG, "TCP_MAXSEG" },
- { 0, NULL },
+ { TCP_NODELAY, "TCP_NODELAY" },
+ { TCP_MAXSEG, "TCP_MAXSEG" },
+#if defined(TCP_CORK)
+ { TCP_CORK, "TCP_CORK" },
+#endif
+#if defined(TCP_KEEPIDLE)
+ { TCP_KEEPIDLE, "TCP_KEEPIDLE" },
+#endif
+#if defined(TCP_KEEPINTVL)
+ { TCP_KEEPINTVL, "TCP_KEEPINTVL" },
+#endif
+#if defined(TCP_KEEPCNT)
+ { TCP_KEEPCNT, "TCP_KEEPCNT" },
+#endif
+#if defined(TCP_NKEEP)
+ { TCP_NKEEP, "TCP_NKEEP" },
+#endif
+#if defined(TCP_SYNCNT)
+ { TCP_SYNCNT, "TCP_SYNCNT" },
+#endif
+#if defined(TCP_LINGER2)
+ { TCP_LINGER2, "TCP_LINGER2" },
+#endif
+#if defined(TCP_DEFER_ACCEPT)
+ { TCP_DEFER_ACCEPT, "TCP_DEFER_ACCEPT" },
+#endif
+#if defined(TCP_WINDOW_CLAMP)
+ { TCP_WINDOW_CLAMP, "TCP_WINDOW_CLAMP" },
+#endif
+#if defined(TCP_INFO)
+ { TCP_INFO, "TCP_INFO" },
+#endif
+#if defined(TCP_QUICKACK)
+ { TCP_QUICKACK, "TCP_QUICKACK" },
+#endif
+ { 0, NULL },
};
#endif /* SOL_TCP */
+#ifdef SOL_RAW
+static struct xlat icmpfilterflags[] = {
+#if defined(ICMP_ECHOREPLY)
+ { (1<<ICMP_ECHOREPLY), "ICMP_ECHOREPLY" },
+#endif
+#if defined(ICMP_DEST_UNREACH)
+ { (1<<ICMP_DEST_UNREACH), "ICMP_DEST_UNREACH" },
+#endif
+#if defined(ICMP_SOURCE_QUENCH)
+ { (1<<ICMP_SOURCE_QUENCH), "ICMP_SOURCE_QUENCH" },
+#endif
+#if defined(ICMP_REDIRECT)
+ { (1<<ICMP_REDIRECT), "ICMP_REDIRECT" },
+#endif
+#if defined(ICMP_ECHO)
+ { (1<<ICMP_ECHO), "ICMP_ECHO" },
+#endif
+#if defined(ICMP_TIME_EXCEEDED)
+ { (1<<ICMP_TIME_EXCEEDED), "ICMP_TIME_EXCEEDED" },
+#endif
+#if defined(ICMP_PARAMETERPROB)
+ { (1<<ICMP_PARAMETERPROB), "ICMP_PARAMETERPROB" },
+#endif
+#if defined(ICMP_TIMESTAMP)
+ { (1<<ICMP_TIMESTAMP), "ICMP_TIMESTAMP" },
+#endif
+#if defined(ICMP_TIMESTAMPREPLY)
+ { (1<<ICMP_TIMESTAMPREPLY), "ICMP_TIMESTAMPREPLY" },
+#endif
+#if defined(ICMP_INFO_REQUEST)
+ { (1<<ICMP_INFO_REQUEST), "ICMP_INFO_REQUEST" },
+#endif
+#if defined(ICMP_INFO_REPLY)
+ { (1<<ICMP_INFO_REPLY), "ICMP_INFO_REPLY" },
+#endif
+#if defined(ICMP_ADDRESS)
+ { (1<<ICMP_ADDRESS), "ICMP_ADDRESS" },
+#endif
+#if defined(ICMP_ADDRESSREPLY)
+ { (1<<ICMP_ADDRESSREPLY), "ICMP_ADDRESSREPLY" },
+#endif
+ { 0, NULL },
+};
+#endif /* SOL_RAW */
+
+#if defined(AF_PACKET) /* from e.g. linux/if_packet.h */
+static struct xlat af_packet_types[] = {
+#if defined(PACKET_HOST)
+ { PACKET_HOST, "PACKET_HOST" },
+#endif
+#if defined(PACKET_BROADCAST)
+ { PACKET_BROADCAST, "PACKET_BROADCAST" },
+#endif
+#if defined(PACKET_MULTICAST)
+ { PACKET_MULTICAST, "PACKET_MULTICAST" },
+#endif
+#if defined(PACKET_OTHERHOST)
+ { PACKET_OTHERHOST, "PACKET_OTHERHOST" },
+#endif
+#if defined(PACKET_OUTGOING)
+ { PACKET_OUTGOING, "PACKET_OUTGOING" },
+#endif
+#if defined(PACKET_LOOPBACK)
+ { PACKET_LOOPBACK, "PACKET_LOOPBACK" },
+#endif
+#if defined(PACKET_FASTROUTE)
+ { PACKET_FASTROUTE, "PACKET_FASTROUTE" },
+#endif
+ { 0, NULL },
+};
+#endif /* defined(AF_PACKET) */
+
+
void
printsock(tcp, addr, addrlen)
struct tcb *tcp;
return;
}
- tprintf("{sin_family=");
+ tprintf("{sa_family=");
printxval(addrfams, addrbuf.sa.sa_family, "AF_???");
tprintf(", ");
if (addrlen==2) {
tprintf("<nil>");
} else if (addrbuf.sau.sun_path[0]) {
- tprintf("path=\"%*.*s\"", addrlen-2, addrlen-2, addrbuf.sau.sun_path);
+ tprintf("path=\"%-.*s\"", addrlen-2, addrbuf.sau.sun_path);
} else {
- tprintf("path=@%*.*s", addrlen-3, addrlen-3, addrbuf.sau.sun_path+1);
+ tprintf("path=@%-.*s", addrlen-3, addrbuf.sau.sun_path+1);
}
break;
case AF_INET:
- tprintf("sin_port=htons(%u), sin_addr=inet_addr(\"%s\")}",
+ tprintf("sin_port=htons(%u), sin_addr=inet_addr(\"%s\")",
ntohs(addrbuf.sin.sin_port), inet_ntoa(addrbuf.sin.sin_addr));
break;
#ifdef HAVE_INET_NTOP
case AF_INET6:
inet_ntop(AF_INET6, &addrbuf.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(addrbuf.sa6.sin6_port), string_addr, ntohl(addrbuf.sa6.sin6_flowinfo));
- break;
+ tprintf("sin6_port=htons(%u), inet_pton(AF_INET6, \"%s\", &sin6_addr), sin6_flowinfo=%u",
+ ntohs(addrbuf.sa6.sin6_port), string_addr,
+ addrbuf.sa6.sin6_flowinfo);
+#ifdef HAVE_STRUCT_SOCKADDR_IN6_SIN6_SCOPE_ID
+ {
+#if defined(HAVE_IF_INDEXTONAME) && defined(IN6_IS_ADDR_LINKLOCAL) && defined(IN6_IS_ADDR_MC_LINKLOCAL)
+ int numericscope = 0;
+ if (IN6_IS_ADDR_LINKLOCAL (&addrbuf.sa6.sin6_addr)
+ || IN6_IS_ADDR_MC_LINKLOCAL (&addrbuf.sa6.sin6_addr)) {
+ char scopebuf[IFNAMSIZ + 1];
+
+ if (if_indextoname (addrbuf.sa6.sin6_scope_id, scopebuf) == NULL)
+ numericscope++;
+ else
+ tprintf(", sin6_scope_id=if_nametoindex(\"%s\")", scopebuf);
+ } else
+ numericscope++;
+
+ if (numericscope)
+#endif
+ tprintf(", sin6_scope_id=%u", addrbuf.sa6.sin6_scope_id);
+ }
+#endif
+ break;
#endif
#if defined(AF_IPX) && defined(linux)
case AF_IPX:
{
int i;
- tprintf("{sipx_port=htons(%u), ",
+ tprintf("sipx_port=htons(%u), ",
ntohs(addrbuf.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.. :)
+ * this way.. :)
*/
tprintf("%08lx:", (unsigned long)ntohl(addrbuf.sipx.sipx_network));
for (i = 0; i<IPX_NODE_LEN; i++)
case AF_PACKET:
{
int i;
- tprintf("proto=%#04x, if%d, pkttype=%d, addr(%d)={%d, ",
+ tprintf("proto=%#04x, if%d, pkttype=",
ntohs(addrbuf.ll.sll_protocol),
- addrbuf.ll.sll_ifindex,
- addrbuf.ll.sll_pkttype,
+ addrbuf.ll.sll_ifindex);
+ printxval(af_packet_types, addrbuf.ll.sll_pkttype, "?");
+ tprintf(", addr(%d)={%d, ",
addrbuf.ll.sll_halen,
addrbuf.ll.sll_hatype);
- for (i=0; i<addrbuf.ll.sll_addr[i]; i++)
+ for (i=0; i<addrbuf.ll.sll_halen; i++)
tprintf("%02x", addrbuf.ll.sll_addr[i]);
}
break;
AF_X25 AF_ROSE etc. still need to be done */
default:
- tprintf("{sa_family=%u, sa_data=", addrbuf.sa.sa_family);
+ tprintf("sa_data=");
printstr(tcp, (long) &((struct sockaddr *) addr)->sa_data,
sizeof addrbuf.sa.sa_data);
break;
#if HAVE_SENDMSG
-static void
-printiovec(tcp, iovec, len)
-struct tcb *tcp;
-struct iovec *iovec;
-long len;
-{
- struct iovec *iov;
- int i;
-
- iov = (struct iovec *) malloc(len * sizeof *iov);
- if (iov == NULL) {
- fprintf(stderr, "No memory");
- return;
- }
- if (umoven(tcp, (long)iovec,
- len * sizeof *iov, (char *) iov) < 0) {
- tprintf("%#lx", (unsigned long)iovec);
- } else {
- tprintf("[");
- for (i = 0; i < len; i++) {
- if (i)
- tprintf(", ");
- tprintf("{");
- printstr(tcp, (long) iov[i].iov_base,
- iov[i].iov_len);
- tprintf(", %lu}", (unsigned long)iov[i].iov_len);
- }
- tprintf("]");
- }
- free((char *) iov);
-}
-
static void
printmsghdr(tcp, addr)
struct tcb *tcp;
printsock(tcp, (long)msg.msg_name, msg.msg_namelen);
tprintf(", msg_iov(%lu)=", (unsigned long)msg.msg_iovlen);
- printiovec(tcp, msg.msg_iov, msg.msg_iovlen);
+ tprint_iov(tcp, msg.msg_iovlen, (long) msg.msg_iov);
-#ifdef HAVE_MSG_CONTROL
+#ifdef HAVE_STRUCT_MSGHDR_MSG_CONTROL
tprintf(", msg_controllen=%lu", (unsigned long)msg.msg_controllen);
- if (msg.msg_controllen)
+ if (msg.msg_controllen)
tprintf(", msg_control=%#lx, ", (unsigned long) msg.msg_control);
tprintf(", msg_flags=");
if (printflags(msg_flags, msg.msg_flags)==0)
tprintf("0");
-#else /* !HAVE_MSG_CONTROL */
+#else /* !HAVE_STRUCT_MSGHDR_MSG_CONTROL */
tprintf("msg_accrights=%#lx, msg_accrightslen=%u",
(unsigned long) msg.msg_accrights, msg.msg_accrightslen);
-#endif /* !HAVE_MSG_CONTROL */
+#endif /* !HAVE_STRUCT_MSGHDR_MSG_CONTROL */
tprintf("}");
}
return 0;
}
+int
+sys_so_socket(tcp)
+struct tcb *tcp;
+{
+ if (entering(tcp)) {
+ /* not sure really what these args are... but this
+ * is how truss prints it
+ */
+ tprintf("%ld, %ld, %ld, ",
+ tcp->u_arg[0], tcp->u_arg[1], tcp->u_arg[2]);
+ printpath(tcp, tcp->u_arg[3]);
+ tprintf(", %ld", tcp->u_arg[4]);
+ }
+ return 0;
+}
+
+int
+sys_so_socketpair(tcp)
+struct tcb *tcp;
+{
+ if (entering(tcp)) {
+ /* not sure what this arg is */
+ tprintf("0x%lx", tcp->u_arg[0]);
+ }
+ return 0;
+}
+
int
sys_bind(tcp)
struct tcb *tcp;
struct tcb *tcp;
{
-#if defined(LINUX) && !defined(SPARC)
+#if defined(LINUX) && !defined(SPARC) && !defined(SH)
int fds[2];
if (exiting(tcp)) {
else
tprintf("[%u, %u]", fds[0], fds[1]);
}
-#elif defined(SPARC) || defined(SVR4)
+#elif defined(SPARC) || defined(SH) || defined(SVR4) || defined(FREEBSD)
if (exiting(tcp))
tprintf("[%lu, %lu]", tcp->u_rval, getrval2(tcp));
#endif
tprintf("]");
break;
#endif /* PF_IPX */
- default:
+ default:
tprintf("%lu", tcp->u_arg[2]);
break;
}
else
tprintf(", [%u, %u]", fds[0], fds[1]);
#endif /* LINUX */
-#ifdef SUNOS4
+#if defined(SUNOS4) || defined(SVR4) || defined(FREEBSD)
tprintf(", [%lu, %lu]", tcp->u_rval, getrval2(tcp));
-#endif /* SUNOS4 */
-#ifdef SVR4
- tprintf(", [%lu, %lu]", tcp->u_rval, getrval2(tcp));
-#endif /* SVR4 */
+#endif /* SUNOS4 || SVR4 || FREEBSD */
}
return 0;
}
{
if (entering(tcp)) {
tprintf("%ld, ", tcp->u_arg[0]);
+ printxval(socketlayers, tcp->u_arg[1], "SOL_???");
+ tprintf (", ");
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_PACKET
+ case SOL_PACKET:
+ printxval(sockpacketoptions, tcp->u_arg[2], "PACKET_???");
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]);
+ default:
+ tprintf("%lu", tcp->u_arg[2]);
break;
}
} else {
- if (syserror(tcp)) {
- tprintf("%#lx, %#lx",
+ long len;
+ if (syserror(tcp) || umove (tcp, tcp->u_arg[4], &len) < 0) {
+ 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");
+
+ switch (tcp->u_arg[1]) {
+ case SOL_SOCKET:
+ switch (tcp->u_arg[2]) {
+#ifdef SO_LINGER
+ case SO_LINGER:
+ if (len == sizeof (struct linger)) {
+ struct linger linger;
+ if (umove (tcp,
+ tcp->u_arg[3],
+ &linger) < 0)
+ break;
+ tprintf(", {onoff=%d, linger=%d}, "
+ "[%ld]",
+ linger.l_onoff,
+ linger.l_linger,
+ len);
+ return 0;
+ }
+ break;
+#endif
+ }
+ break;
+ }
+
+ tprintf (", ");
+ if (len == sizeof (int)) {
+ printnum(tcp, tcp->u_arg[3], "%ld");
+ }
+ else {
+ printstr (tcp, tcp->u_arg[3], len);
+ }
+ tprintf(", [%ld]", len);
}
return 0;
}
-int
-sys_setsockopt(tcp)
+#if defined(ICMP_FILTER)
+static void printicmpfilter(tcp, addr)
struct tcb *tcp;
+long addr;
{
- 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(", ");
+ struct icmp_filter filter;
+
+ if (!addr) {
+ tprintf("NULL");
+ return;
+ }
+ if (syserror(tcp) || !verbose(tcp)) {
+ tprintf("%#lx", addr);
+ return;
+ }
+ if (umove(tcp, addr, &filter) < 0) {
+ tprintf("{...}");
+ return;
+ }
+
+ tprintf("~(");
+ if (printflags(icmpfilterflags, ~filter.data) == 0)
+ tprintf("0");
+ tprintf(")");
+}
+#endif /* ICMP_FILTER */
+
+static int
+printsockopt (tcp, level, name, addr, len)
+struct tcb *tcp;
+int level;
+int name;
+long addr;
+int len;
+{
+ printxval(socketlayers, level, "SOL_??");
+ tprintf (", ");
+ switch (level) {
+ case SOL_SOCKET:
+ printxval(sockoptions, name, "SO_???");
+ switch (name) {
+#if defined(SO_LINGER)
+ case SO_LINGER:
+ if (len == sizeof (struct linger)) {
+ struct linger linger;
+ if (umove (tcp, addr, &linger) < 0)
+ break;
+ tprintf(", {onoff=%d, linger=%d}",
+ linger.l_onoff,
+ linger.l_linger);
+ return 0;
+ }
break;
+#endif
+ }
+ break;
#ifdef SOL_IP
- case SOL_IP:
- tprintf("SOL_IP, ");
- printxval(sockipoptions, tcp->u_arg[2], "IP_???");
- tprintf(", ");
- break;
+ case SOL_IP:
+ printxval(sockipoptions, name, "IP_???");
+ break;
#endif
#ifdef SOL_IPX
- case SOL_IPX:
- tprintf("SOL_IPX, ");
- printxval(sockipxoptions, tcp->u_arg[2], "IPX_???");
- tprintf(", ");
- break;
+ case SOL_IPX:
+ printxval(sockipxoptions, name, "IPX_???");
+ break;
+#endif
+#ifdef SOL_PACKET
+ case SOL_PACKET:
+ printxval(sockpacketoptions, name, "PACKET_???");
+ /* TODO: decode packate_mreq for PACKET_*_MEMBERSHIP */
+ break;
#endif
#ifdef SOL_TCP
- case SOL_TCP:
- tprintf("SOL_TCP, ");
- printxval(socktcpoptions, tcp->u_arg[2], "TCP_???");
+ case SOL_TCP:
+ printxval(socktcpoptions, name, "TCP_???");
+ break;
+#endif
+#ifdef SOL_RAW
+ case SOL_RAW:
+ printxval(sockrawoptions, name, "RAW_???");
+ switch (name) {
+#if defined(ICMP_FILTER)
+ case ICMP_FILTER:
tprintf(", ");
- break;
+ printicmpfilter(tcp, addr);
+ return 0;
+#endif
+ }
+ break;
#endif
- /* SOL_AX25 SOL_ATALK SOL_NETROM SOL_UDP SOL_DECNET SOL_X25
+ /* 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;
+
+ default:
+ tprintf("%u", name);
+ }
+
+ /* default arg printing */
+
+ tprintf (", ");
+
+ if (len == sizeof (int)) {
+ printnum(tcp, addr, "%ld");
+ }
+ else {
+ printstr (tcp, addr, len);
+ }
+ return 0;
+}
+
+
+#ifdef HAVE_STRUCT_OPTHDR
+
+void
+print_sock_optmgmt (tcp, addr, len)
+struct tcb *tcp;
+long addr;
+int len;
+{
+ int c = 0;
+ struct opthdr hdr;
+
+ while (len >= (int) sizeof hdr) {
+ if (umove(tcp, addr, &hdr) < 0) break;
+ if (c++) {
+ tprintf (", ");
+ }
+ else if (len > hdr.len + sizeof hdr) {
+ tprintf ("[");
}
- printnum(tcp, tcp->u_arg[3], "%ld");
+ tprintf ("{");
+ addr += sizeof hdr;
+ len -= sizeof hdr;
+ printsockopt (tcp, hdr.level, hdr.name, addr, hdr.len);
+ if (hdr.len > 0) {
+ addr += hdr.len;
+ len -= hdr.len;
+ }
+ tprintf ("}");
+ }
+ if (len > 0) {
+ if (c++) tprintf (", ");
+ printstr (tcp, addr, len);
+ }
+ if (c > 1) tprintf ("]");
+}
+
+#endif
+
+int
+sys_setsockopt(tcp)
+struct tcb *tcp;
+{
+ if (entering(tcp)) {
+ tprintf("%ld, ", tcp->u_arg[0]);
+ printsockopt (tcp, tcp->u_arg[1], tcp->u_arg[2],
+ tcp->u_arg[3], tcp->u_arg[4]);
tprintf(", %lu", tcp->u_arg[4]);
}
return 0;
}
+
+#if UNIXWARE >= 7
+
+static struct xlat sock_version[] = {
+ { __NETLIB_UW211_SVR4, "UW211_SVR4" },
+ { __NETLIB_UW211_XPG4, "UW211_XPG4" },
+ { __NETLIB_GEMINI_SVR4, "GEMINI_SVR4" },
+ { __NETLIB_GEMINI_XPG4, "GEMINI_XPG4" },
+ { __NETLIB_FP1_SVR4, "FP1_SVR4" },
+ { __NETLIB_FP1_XPG4, "FP1_XPG4" },
+ { 0, NULL },
+};
+
+
+int
+netlib_call(tcp, func)
+struct tcb *tcp;
+int (*func) ();
+{
+ if (entering(tcp)) {
+ int i;
+ printxval (sock_version, tcp->u_arg[0], "__NETLIB_???");
+ tprintf(", ");
+ --tcp->u_nargs;
+ for (i = 0; i < tcp->u_nargs; i++)
+ tcp->u_arg[i] = tcp->u_arg[i + 1];
+ return func (tcp);
+
+ }
+
+ return func (tcp);
+}
+
+int
+sys_xsocket(tcp)
+struct tcb *tcp;
+{
+ return netlib_call (tcp, sys_socket);
+}
+
+int
+sys_xsocketpair(tcp)
+struct tcb *tcp;
+{
+ return netlib_call (tcp, sys_socketpair);
+}
+
+int
+sys_xbind(tcp)
+struct tcb *tcp;
+{
+ return netlib_call (tcp, sys_bind);
+}
+
+int
+sys_xconnect(tcp)
+struct tcb *tcp;
+{
+ return netlib_call (tcp, sys_connect);
+}
+
+int
+sys_xlisten(tcp)
+struct tcb *tcp;
+{
+ return netlib_call (tcp, sys_listen);
+}
+
+int
+sys_xaccept(tcp)
+struct tcb *tcp;
+{
+ return netlib_call (tcp, sys_accept);
+}
+
+int
+sys_xsendmsg(tcp)
+struct tcb *tcp;
+{
+ return netlib_call (tcp, sys_sendmsg);
+}
+
+int
+sys_xrecvmsg(tcp)
+struct tcb *tcp;
+{
+ return netlib_call (tcp, sys_recvmsg);
+}
+
+int
+sys_xgetsockaddr(tcp)
+struct tcb *tcp;
+{
+ if (entering(tcp)) {
+ printxval (sock_version, tcp->u_arg[0], "__NETLIB_???");
+ tprintf(", ");
+ if (tcp->u_arg[1] == 0) {
+ tprintf ("LOCALNAME, ");
+ }
+ else if (tcp->u_arg[1] == 1) {
+ tprintf ("REMOTENAME, ");
+ }
+ else {
+ tprintf ("%ld, ", tcp->u_arg [1]);
+ }
+ tprintf ("%ld, ", tcp->u_arg [2]);
+ }
+ else {
+ if (tcp->u_arg[3] == 0 || syserror(tcp)) {
+ tprintf("%#lx", tcp->u_arg[3]);
+ } else {
+ printsock(tcp, tcp->u_arg[3], tcp->u_arg[4]);
+ }
+ tprintf(", ");
+ printnum(tcp, tcp->u_arg[4], "%lu");
+ }
+
+ return 0;
+
+}
+
+#if 0
+
+int
+sys_xsetsockaddr(tcp)
+struct tcb *tcp;
+{
+ return netlib_call (tcp, sys_setsockaddr);
+}
+
+#endif
+
+int
+sys_xgetsockopt(tcp)
+struct tcb *tcp;
+{
+ return netlib_call (tcp, sys_getsockopt);
+}
+
+int
+sys_xsetsockopt(tcp)
+struct tcb *tcp;
+{
+ return netlib_call (tcp, sys_setsockopt);
+}
+
+int
+sys_xshutdown(tcp)
+struct tcb *tcp;
+{
+ return netlib_call (tcp, sys_shutdown);
+}
+
+#endif