sock.c - fp2-dev/platform/external/strace - Gitiles

 /*
  * 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"

 #ifdef LINUX
 #include <sys/socket.h>
 #include <linux/sockios.h>
 #else
 #include <sys/socket.h>
 #include <sys/sockio.h>
 #endif
 #include <arpa/inet.h>

 #if defined (ALPHA) || defined(SH) || defined(SH64)
 #ifdef HAVE_SYS_IOCTL_H
 #include <sys/ioctl.h>
 #elif defined(HAVE_IOCTLS_H)
 #include <ioctls.h>
 #endif
 #endif
 #include <net/if.h>

 static const struct xlat iffflags[] = {
 	{ IFF_UP,		"IFF_UP"		},
 	{ IFF_BROADCAST,	"IFF_BROADCAST"		},
 	{ IFF_DEBUG,		"IFF_DEBUG"		},
 	{ IFF_LOOPBACK,		"IFF_LOOPBACK"		},
 	{ IFF_POINTOPOINT,	"IFF_POINTOPOINT"	},
 	{ IFF_NOTRAILERS,	"IFF_NOTRAILERS"	},
 	{ IFF_RUNNING,		"IFF_RUNNING"		},
 	{ IFF_NOARP,		"IFF_NOARP"		},
 	{ IFF_PROMISC,		"IFF_PROMISC"		},
 	{ IFF_ALLMULTI,		"IFF_ALLMULTI"		},
 	{ IFF_MASTER,		"IFF_MASTER"		},
 	{ IFF_SLAVE,		"IFF_SLAVE"		},
 	{ IFF_MULTICAST,	"IFF_MULTICAST"		},
 	{ IFF_PORTSEL,		"IFF_PORTSEL"		},
 	{ IFF_AUTOMEDIA,	"IFF_AUTOMEDIA"		},
 	{ 0,			NULL			}
 };


 static void
 print_addr(struct tcb *tcp, long addr, struct ifreq *ifr)
 {
 	if (ifr->ifr_addr.sa_family == AF_INET) {
 		struct sockaddr_in *sinp;
 		sinp = (struct sockaddr_in *) &ifr->ifr_addr;
 		tprintf("inet_addr(\"%s\")", inet_ntoa(sinp->sin_addr));
 	} else
 		printstr(tcp, addr, sizeof(ifr->ifr_addr.sa_data));
 }

 int
 sock_ioctl(struct tcb *tcp, long code, long arg)
 {
 	struct ifreq ifr;
 	struct ifconf ifc;
 	const char *str = NULL;
 	unsigned char *bytes;

 	if (entering(tcp)) {
 		if (code == SIOCGIFCONF) {
 			if (umove(tcp, tcp->u_arg[2], &ifc) >= 0
 			    && ifc.ifc_buf == NULL)
 				tprintf(", {%d -> ", ifc.ifc_len);
 			else
 				tprints(", {");
 		}
 		return 0;
 	}

 	switch (code) {
 #ifdef SIOCSHIWAT
 	case SIOCSHIWAT:
 #endif
 #ifdef SIOCGHIWAT
 	case SIOCGHIWAT:
 #endif
 #ifdef SIOCSLOWAT
 	case SIOCSLOWAT:
 #endif
 #ifdef SIOCGLOWAT
 	case SIOCGLOWAT:
 #endif
 #ifdef FIOSETOWN
 	case FIOSETOWN:
 #endif
 #ifdef FIOGETOWN
 	case FIOGETOWN:
 #endif
 #ifdef SIOCSPGRP
 	case SIOCSPGRP:
 #endif
 #ifdef SIOCGPGRP
 	case SIOCGPGRP:
 #endif
 #ifdef SIOCATMARK
 	case SIOCATMARK:
 #endif
 		printnum(tcp, arg, ", %#d");
 		return 1;
 #ifdef LINUX
 	case SIOCGIFNAME:
 	case SIOCSIFNAME:
 	case SIOCGIFINDEX:
 	case SIOCGIFADDR:
 	case SIOCSIFADDR:
 	case SIOCGIFDSTADDR:
 	case SIOCSIFDSTADDR:
 	case SIOCGIFBRDADDR:
 	case SIOCSIFBRDADDR:
 	case SIOCGIFNETMASK:
 	case SIOCSIFNETMASK:
 	case SIOCGIFFLAGS:
 	case SIOCSIFFLAGS:
 	case SIOCGIFMETRIC:
 	case SIOCSIFMETRIC:
 	case SIOCGIFMTU:
 	case SIOCSIFMTU:
 	case SIOCGIFSLAVE:
 	case SIOCSIFSLAVE:
 	case SIOCGIFHWADDR:
 	case SIOCSIFHWADDR:
 	case SIOCGIFTXQLEN:
 	case SIOCSIFTXQLEN:
 	case SIOCGIFMAP:
 	case SIOCSIFMAP:
 		if (umove(tcp, tcp->u_arg[2], &ifr) < 0)
 			tprintf(", %#lx", tcp->u_arg[2]);
 		else if (syserror(tcp)) {
 			if (code == SIOCGIFNAME || code == SIOCSIFNAME)
 				tprintf(", {ifr_index=%d, ifr_name=???}", ifr.ifr_ifindex);
 			else
 				tprintf(", {ifr_name=\"%s\", ???}", ifr.ifr_name);
 		} else if (code == SIOCGIFNAME || code == SIOCSIFNAME)
 			tprintf(", {ifr_index=%d, ifr_name=\"%s\"}",
 				ifr.ifr_ifindex, ifr.ifr_name);
 		else {
 			tprintf(", {ifr_name=\"%s\", ", ifr.ifr_name);
 			switch (code) {
 			case SIOCGIFINDEX:
 				tprintf("ifr_index=%d", ifr.ifr_ifindex);
 				break;
 			case SIOCGIFADDR:
 			case SIOCSIFADDR:
 				str = "ifr_addr";
 			case SIOCGIFDSTADDR:
 			case SIOCSIFDSTADDR:
 				if (!str)
 					str = "ifr_dstaddr";
 			case SIOCGIFBRDADDR:
 			case SIOCSIFBRDADDR:
 				if (!str)
 					str = "ifr_broadaddr";
 			case SIOCGIFNETMASK:
 			case SIOCSIFNETMASK:
 				if (!str)
 					str = "ifr_netmask";
 				tprintf("%s={", str);
 				printxval(addrfams,
 					  ifr.ifr_addr.sa_family,
 					  "AF_???");
 				tprints(", ");
 				print_addr(tcp, ((long) tcp->u_arg[2]
 						 + offsetof(struct ifreq,
 							     ifr_addr.sa_data)),
 					   &ifr);
 				tprints("}");
 				break;
 			case SIOCGIFHWADDR:
 			case SIOCSIFHWADDR:
 				/* XXX Are there other hardware addresses
 				   than 6-byte MACs?  */
 				bytes = (unsigned char *) &ifr.ifr_hwaddr.sa_data;
 				tprintf("ifr_hwaddr=%02x:%02x:%02x:%02x:%02x:%02x",
 					bytes[0], bytes[1], bytes[2],
 					bytes[3], bytes[4], bytes[5]);
 				break;
 			case SIOCGIFFLAGS:
 			case SIOCSIFFLAGS:
 				tprints("ifr_flags=");
 				printflags(iffflags, ifr.ifr_flags, "IFF_???");
 				break;
 			case SIOCGIFMETRIC:
 			case SIOCSIFMETRIC:
 				tprintf("ifr_metric=%d", ifr.ifr_metric);
 				break;
 			case SIOCGIFMTU:
 			case SIOCSIFMTU:
 				tprintf("ifr_mtu=%d", ifr.ifr_mtu);
 				break;
 			case SIOCGIFSLAVE:
 			case SIOCSIFSLAVE:
 				tprintf("ifr_slave=\"%s\"", ifr.ifr_slave);
 				break;
 			case SIOCGIFTXQLEN:
 			case SIOCSIFTXQLEN:
 				tprintf("ifr_qlen=%d", ifr.ifr_qlen);
 				break;
 			case SIOCGIFMAP:
 			case SIOCSIFMAP:
 				tprintf("ifr_map={mem_start=%#lx, "
 					"mem_end=%#lx, base_addr=%#x, "
 					"irq=%u, dma=%u, port=%u}",
 					ifr.ifr_map.mem_start,
 					ifr.ifr_map.mem_end,
 					(unsigned) ifr.ifr_map.base_addr,
 					(unsigned) ifr.ifr_map.irq,
 					(unsigned) ifr.ifr_map.dma,
 					(unsigned) ifr.ifr_map.port);
 				break;
 			}
 			tprints("}");
 		}
 		return 1;
 	case SIOCGIFCONF:
 		if (umove(tcp, tcp->u_arg[2], &ifc) < 0) {
 			tprints("???}");
 			return 1;
 		}
 		tprintf("%d, ", ifc.ifc_len);
 		if (syserror(tcp)) {
 			tprintf("%lx", (unsigned long) ifc.ifc_buf);
 		} else if (ifc.ifc_buf == NULL) {
 			tprints("NULL");
 		} else {
 			int i;
 			unsigned nifra = ifc.ifc_len / sizeof(struct ifreq);
 			struct ifreq ifra[nifra];

 			if (umoven(tcp, (unsigned long) ifc.ifc_buf,
 				sizeof(ifra), (char *) ifra) < 0) {
 				tprintf("%lx}", (unsigned long) ifc.ifc_buf);
 				return 1;
 			}
 			tprints("{");
 			for (i = 0; i < nifra; ++i ) {
 				if (i > 0)
 					tprints(", ");
 				tprintf("{\"%s\", {",
 					ifra[i].ifr_name);
 				if (verbose(tcp)) {
 					printxval(addrfams,
 						  ifra[i].ifr_addr.sa_family,
 						  "AF_???");
 					tprints(", ");
 					print_addr(tcp, ((long) tcp->u_arg[2]
 							 + offsetof(struct ifreq,
 								     ifr_addr.sa_data)
 							 + ((char *) &ifra[i]
 							    - (char *) &ifra[0])),
 						   &ifra[i]);
 				} else
 					tprints("...");
 				tprints("}}");
 			}
 			tprints("}");
 		}
 		tprints("}");
 		return 1;
 #endif
 	default:
 		return 0;
 	}
 }
	/*
	* 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"

	#ifdef LINUX
	#include <sys/socket.h>
	#include <linux/sockios.h>
	#else
	#include <sys/socket.h>
	#include <sys/sockio.h>
	#endif
	#include <arpa/inet.h>

	#if defined (ALPHA) \|\| defined(SH) \|\| defined(SH64)
	#ifdef HAVE_SYS_IOCTL_H
	#include <sys/ioctl.h>
	#elif defined(HAVE_IOCTLS_H)
	#include <ioctls.h>
	#endif
	#endif
	#include <net/if.h>

	static const struct xlat iffflags[] = {
	{ IFF_UP, "IFF_UP" },
	{ IFF_BROADCAST, "IFF_BROADCAST" },
	{ IFF_DEBUG, "IFF_DEBUG" },
	{ IFF_LOOPBACK, "IFF_LOOPBACK" },
	{ IFF_POINTOPOINT, "IFF_POINTOPOINT" },
	{ IFF_NOTRAILERS, "IFF_NOTRAILERS" },
	{ IFF_RUNNING, "IFF_RUNNING" },
	{ IFF_NOARP, "IFF_NOARP" },
	{ IFF_PROMISC, "IFF_PROMISC" },
	{ IFF_ALLMULTI, "IFF_ALLMULTI" },
	{ IFF_MASTER, "IFF_MASTER" },
	{ IFF_SLAVE, "IFF_SLAVE" },
	{ IFF_MULTICAST, "IFF_MULTICAST" },
	{ IFF_PORTSEL, "IFF_PORTSEL" },
	{ IFF_AUTOMEDIA, "IFF_AUTOMEDIA" },
	{ 0, NULL }
	};


	static void
	print_addr(struct tcb tcp, long addr, struct ifreq ifr)
	{
	if (ifr->ifr_addr.sa_family == AF_INET) {
	struct sockaddr_in *sinp;
	sinp = (struct sockaddr_in *) &ifr->ifr_addr;
	tprintf("inet_addr(\"%s\")", inet_ntoa(sinp->sin_addr));
	} else
	printstr(tcp, addr, sizeof(ifr->ifr_addr.sa_data));
	}

	int
	sock_ioctl(struct tcb *tcp, long code, long arg)
	{
	struct ifreq ifr;
	struct ifconf ifc;
	const char *str = NULL;
	unsigned char *bytes;

	if (entering(tcp)) {
	if (code == SIOCGIFCONF) {
	if (umove(tcp, tcp->u_arg[2], &ifc) >= 0
	&& ifc.ifc_buf == NULL)
	tprintf(", {%d -> ", ifc.ifc_len);
	else
	tprints(", {");
	}
	return 0;
	}

	switch (code) {
	#ifdef SIOCSHIWAT
	case SIOCSHIWAT:
	#endif
	#ifdef SIOCGHIWAT
	case SIOCGHIWAT:
	#endif
	#ifdef SIOCSLOWAT
	case SIOCSLOWAT:
	#endif
	#ifdef SIOCGLOWAT
	case SIOCGLOWAT:
	#endif
	#ifdef FIOSETOWN
	case FIOSETOWN:
	#endif
	#ifdef FIOGETOWN
	case FIOGETOWN:
	#endif
	#ifdef SIOCSPGRP
	case SIOCSPGRP:
	#endif
	#ifdef SIOCGPGRP
	case SIOCGPGRP:
	#endif
	#ifdef SIOCATMARK
	case SIOCATMARK:
	#endif
	printnum(tcp, arg, ", %#d");
	return 1;
	#ifdef LINUX
	case SIOCGIFNAME:
	case SIOCSIFNAME:
	case SIOCGIFINDEX:
	case SIOCGIFADDR:
	case SIOCSIFADDR:
	case SIOCGIFDSTADDR:
	case SIOCSIFDSTADDR:
	case SIOCGIFBRDADDR:
	case SIOCSIFBRDADDR:
	case SIOCGIFNETMASK:
	case SIOCSIFNETMASK:
	case SIOCGIFFLAGS:
	case SIOCSIFFLAGS:
	case SIOCGIFMETRIC:
	case SIOCSIFMETRIC:
	case SIOCGIFMTU:
	case SIOCSIFMTU:
	case SIOCGIFSLAVE:
	case SIOCSIFSLAVE:
	case SIOCGIFHWADDR:
	case SIOCSIFHWADDR:
	case SIOCGIFTXQLEN:
	case SIOCSIFTXQLEN:
	case SIOCGIFMAP:
	case SIOCSIFMAP:
	if (umove(tcp, tcp->u_arg[2], &ifr) < 0)
	tprintf(", %#lx", tcp->u_arg[2]);
	else if (syserror(tcp)) {
	if (code == SIOCGIFNAME \|\| code == SIOCSIFNAME)
	tprintf(", {ifr_index=%d, ifr_name=???}", ifr.ifr_ifindex);
	else
	tprintf(", {ifr_name=\"%s\", ???}", ifr.ifr_name);
	} else if (code == SIOCGIFNAME \|\| code == SIOCSIFNAME)
	tprintf(", {ifr_index=%d, ifr_name=\"%s\"}",
	ifr.ifr_ifindex, ifr.ifr_name);
	else {
	tprintf(", {ifr_name=\"%s\", ", ifr.ifr_name);
	switch (code) {
	case SIOCGIFINDEX:
	tprintf("ifr_index=%d", ifr.ifr_ifindex);
	break;
	case SIOCGIFADDR:
	case SIOCSIFADDR:
	str = "ifr_addr";
	case SIOCGIFDSTADDR:
	case SIOCSIFDSTADDR:
	if (!str)
	str = "ifr_dstaddr";
	case SIOCGIFBRDADDR:
	case SIOCSIFBRDADDR:
	if (!str)
	str = "ifr_broadaddr";
	case SIOCGIFNETMASK:
	case SIOCSIFNETMASK:
	if (!str)
	str = "ifr_netmask";
	tprintf("%s={", str);
	printxval(addrfams,
	ifr.ifr_addr.sa_family,
	"AF_???");
	tprints(", ");
	print_addr(tcp, ((long) tcp->u_arg[2]
	+ offsetof(struct ifreq,
	ifr_addr.sa_data)),
	&ifr);
	tprints("}");
	break;
	case SIOCGIFHWADDR:
	case SIOCSIFHWADDR:
	/* XXX Are there other hardware addresses
	than 6-byte MACs? */
	bytes = (unsigned char *) &ifr.ifr_hwaddr.sa_data;
	tprintf("ifr_hwaddr=%02x:%02x:%02x:%02x:%02x:%02x",
	bytes[0], bytes[1], bytes[2],
	bytes[3], bytes[4], bytes[5]);
	break;
	case SIOCGIFFLAGS:
	case SIOCSIFFLAGS:
	tprints("ifr_flags=");
	printflags(iffflags, ifr.ifr_flags, "IFF_???");
	break;
	case SIOCGIFMETRIC:
	case SIOCSIFMETRIC:
	tprintf("ifr_metric=%d", ifr.ifr_metric);
	break;
	case SIOCGIFMTU:
	case SIOCSIFMTU:
	tprintf("ifr_mtu=%d", ifr.ifr_mtu);
	break;
	case SIOCGIFSLAVE:
	case SIOCSIFSLAVE:
	tprintf("ifr_slave=\"%s\"", ifr.ifr_slave);
	break;
	case SIOCGIFTXQLEN:
	case SIOCSIFTXQLEN:
	tprintf("ifr_qlen=%d", ifr.ifr_qlen);
	break;
	case SIOCGIFMAP:
	case SIOCSIFMAP:
	tprintf("ifr_map={mem_start=%#lx, "
	"mem_end=%#lx, base_addr=%#x, "
	"irq=%u, dma=%u, port=%u}",
	ifr.ifr_map.mem_start,
	ifr.ifr_map.mem_end,
	(unsigned) ifr.ifr_map.base_addr,
	(unsigned) ifr.ifr_map.irq,
	(unsigned) ifr.ifr_map.dma,
	(unsigned) ifr.ifr_map.port);
	break;
	}
	tprints("}");
	}
	return 1;
	case SIOCGIFCONF:
	if (umove(tcp, tcp->u_arg[2], &ifc) < 0) {
	tprints("???}");
	return 1;
	}
	tprintf("%d, ", ifc.ifc_len);
	if (syserror(tcp)) {
	tprintf("%lx", (unsigned long) ifc.ifc_buf);
	} else if (ifc.ifc_buf == NULL) {
	tprints("NULL");
	} else {
	int i;
	unsigned nifra = ifc.ifc_len / sizeof(struct ifreq);
	struct ifreq ifra[nifra];

	if (umoven(tcp, (unsigned long) ifc.ifc_buf,
	sizeof(ifra), (char *) ifra) < 0) {
	tprintf("%lx}", (unsigned long) ifc.ifc_buf);
	return 1;
	}
	tprints("{");
	for (i = 0; i < nifra; ++i ) {
	if (i > 0)
	tprints(", ");
	tprintf("{\"%s\", {",
	ifra[i].ifr_name);
	if (verbose(tcp)) {
	printxval(addrfams,
	ifra[i].ifr_addr.sa_family,
	"AF_???");
	tprints(", ");
	print_addr(tcp, ((long) tcp->u_arg[2]
	+ offsetof(struct ifreq,
	ifr_addr.sa_data)
	+ ((char *) &ifra[i]
	- (char *) &ifra[0])),
	&ifra[i]);
	} else
	tprints("...");
	tprints("}}");
	}
	tprints("}");
	}
	tprints("}");
	return 1;
	#endif
	default:
	return 0;
	}
	}