/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License, Version 1.0 only
 * (the "License").  You may not use this file except in compliance
 * with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */
/*
 * Copyright 1991-2003 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 *
 * udp.c, Code implementing the UDP internet protocol.
 */

#pragma ident	"%Z%%M%	%I%	%E% SMI"

#include <sys/types.h>
#include <socket_impl.h>
#include <socket_inet.h>
#include <sys/salib.h>
#include <sys/socket.h>
#include <netinet/in_systm.h>
#include <netinet/in.h>
#include <netinet/ip.h>
#include <netinet/udp.h>

#include "udp_inet.h"
#include "ipv4.h"
#include "ipv4_impl.h"
#include "mac.h"
#include "mac_impl.h"
#include "v4_sum_impl.h"
#include <sys/bootdebug.h>

/* Checksum all architectures */
static int udp_cksum_flag = TRUE;	/* checksum on if set */

/*
 * Initialize the udp-specific parts of a socket.
 */
void
udp_socket_init(struct inetboot_socket *isp)
{
	isp->type = INETBOOT_DGRAM;
	isp->proto = IPPROTO_UDP;
	isp->input[TRANSPORT_LVL] = udp_input;
	isp->output[TRANSPORT_LVL] = udp_output;
	isp->close[TRANSPORT_LVL] = NULL;
	isp->headerlen[TRANSPORT_LVL] = udp_header_len;
	isp->ports = udp_ports;
}

/*
 * Return the size of an UDP header
 */
/* ARGSUSED */
int
udp_header_len(struct inetgram *igm)
{
	return (sizeof (struct udphdr));
}

/*
 * Return the requested port number in network order.
 */
in_port_t
udp_ports(uint16_t *udphp, enum Ports request)
{
	if (request == SOURCE)
		return (((struct udphdr *)udphp)->uh_sport);
	return (((struct udphdr *)udphp)->uh_dport);
}

/*
 * Process the IPv4 datagram that IPv4 has given us. We:
 *
 *	1) Checksum the datagram if checksum is turned on.
 *	2) Strip the udp header from the inetgram.
 *	3) Return the number of TRANSPORT frames for success, -1 if a
 *		failure occurred.
 *
 * Arguments: index: index into the open socket table, ip is the inetgram
 * we got from IPv4, which will contain the udp header and all the data.
 */
int
udp_input(int index)
{
	int frames = 0, header_len;
	struct inetgram	*igp, *ugp = NULL;
	struct udphdr	*udphp;
	mblk_t *mp;

#ifdef DEBUG
	printf("udp_input(%d) ###############################\n", index);
#endif
	while ((igp = sockets[index].inq) != NULL) {
		if (igp->igm_level != TRANSPORT_LVL) {
#ifdef	DEBUG
			printf("udp_input(%d): level %d datagram discarded.\n",
			    index, igp->igm_level);
#endif	/* DEBUG */
			del_gram(&sockets[index].inq, igp, TRUE);
			continue;
		}
		mp = igp->igm_mp;
		udphp = (struct udphdr *)(mp->b_rptr +
		    IPH_HDR_LENGTH(mp->b_rptr));
		header_len = (sockets[index].headerlen[TRANSPORT_LVL])(NULL);
		mp->b_rptr = ((unsigned char *)udphp) + header_len;
		mp->b_wptr = ((unsigned char *)udphp) + ntohs(udphp->uh_ulen);

		/* generate checksum */
		if (udp_cksum_flag && udphp->uh_sum != 0) {
			if (udp_chksum(udphp, &igp->igm_saddr.sin_addr,
			    &igp->igm_target, sockets[index].proto) != 0) {
				dprintf("udp_input(%d): bad udp chksum "
				    "from %s.\n", index,
				    inet_ntoa(igp->igm_saddr.sin_addr));
				del_gram(&sockets[index].inq, igp, TRUE);
				continue;
			}
		}

		/* validate port number */
		if (sockets[index].bind.sin_port != udphp->uh_dport) {
			dprintf("udp_input(%d): Unexpected port number: "
			    "%d != %d from %s.\n", index,
			    ntohs(udphp->uh_dport), ntohs(
			    sockets[index].bind.sin_port),
			    inet_ntoa(igp->igm_saddr.sin_addr));
			del_gram(&sockets[index].inq, igp, TRUE);
			continue;
		}

		igp->igm_level = APP_LVL;
		del_gram(&sockets[index].inq, igp, FALSE);
		add_grams(&ugp, igp);
		frames++;
	}
	add_grams(&sockets[index].inq, ugp);

	return (frames);
}

/*
 * Create a UDP datagram given the data and sockaddr_in we got from sendto().
 * We will calculate the checksum if checksumming is turned on, and fill in
 * appropriate length and port fields. We convert the inetgram from a
 * block of data into a udp datagram... Returns the number of bytes contained
 * in the udp datagram (including header).
 *
 * Arguments: index: index into the open socket table, ogp is the inetgram
 * we got from sendto(), which will contain just the data and sockaddr_in.
 */
int
udp_output(int index, struct inetgram *ogp)
{
	struct udphdr	*udphp;
	mblk_t		*mp;

#ifdef	DEBUG
	printf("udp_output(%d): 0x%x, %d\n", index, ogp->igm_mp,
	    ogp->igm_mp->b_wptr - ogp->igm_mp->b_rptr);
#endif	/* DEBUG */

	mp = ogp->igm_mp;
	mp->b_rptr -= sizeof (struct udphdr);
	udphp = (struct udphdr *)(mp->b_rptr);

	udphp->uh_dport = ogp->igm_saddr.sin_port;
	if (sockets[index].bound)
		udphp->uh_sport = sockets[index].bind.sin_port;
	else
		udphp->uh_sport = ogp->igm_saddr.sin_port;
	udphp->uh_ulen = htons(mp->b_wptr - mp->b_rptr);
	udphp->uh_sum = 0;

	if (udp_cksum_flag) {
		udphp->uh_sum = udp_chksum(udphp, &sockets[index].bind.sin_addr,
		    &ogp->igm_saddr.sin_addr, sockets[index].proto);
	}

	ogp->igm_level = NETWORK_LVL;

	return (0);
}