1999-02-19 03:21:36 +03:00
/*
* 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 */
# 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 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 AF_IPX
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: " , 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 */
/* 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 ;
umove ( tcp , addr , & msg ) ;
tprintf ( " {msg_name=%s, msg_namelen=%u, msg_iov=%#lx, msg_iovlen=%u, " ,
( char * ) msg . msg_name , 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 ] ) ;
}
1999-03-15 22:49:42 +03:00
# elif defined(SPARC) || defined(SVR4)
1999-02-19 03:21:36 +03:00
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 ;
}