/*
 * nixio - Linux I/O library for lua
 *
 *   Copyright (C) 2009 Steven Barth <steven@midlink.org>
 *
 *  Licensed under the Apache License, Version 2.0 (the "License");
 *  you may not use this file except in compliance with the License.
 *  You may obtain a copy of the License at
 *
 *      http://www.apache.org/licenses/LICENSE-2.0
 *
 *  Unless required by applicable law or agreed to in writing, software
 *  distributed under the License is distributed on an "AS IS" BASIS,
 *  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 *  See the License for the specific language governing permissions and
 *  limitations under the License.
 */

#include "nixio.h"
#include <errno.h>
#include <string.h>
#include <stdlib.h>
#include <stdio.h>
#include <sys/types.h>


/**
 * send() / sendto() helper
 */
static int nixio_sock__sendto(lua_State *L, int to) {
	nixio_sock *sock = nixio__checksock(L);
	struct sockaddr_storage addr_in;
#ifndef __WINNT__
	struct sockaddr_un addr_un;
#endif
	struct sockaddr *addr = NULL;
	socklen_t alen = 0;
	int argoff = 2;

	if (to) {
		argoff += 2;
		if (sock->domain == AF_INET || sock->domain == AF_INET6) {
			const char *address = luaL_checkstring(L, 3);
			addr = (struct sockaddr*)&addr_in;
			alen = sizeof(addr_in);

			nixio_addr naddr;
			memset(&naddr, 0, sizeof(naddr));
			strncpy(naddr.host, address, sizeof(naddr.host) - 1);
			naddr.port = (uint16_t)luaL_checkinteger(L, 4);
			naddr.family = sock->domain;

			if (nixio__addr_write(&naddr, addr)) {
				return nixio__perror_s(L);
			}
		}

#ifndef __WINNT__
		else if (sock->domain == AF_UNIX) {
			size_t pathlen;
			const char *path = luaL_checklstring(L, 3, &pathlen);

			addr_un.sun_family = AF_UNIX;
			luaL_argcheck(L, pathlen <= sizeof(addr_un.sun_path), 3, "out of range");
			memcpy(addr_un.sun_path, path, pathlen);

			addr = (struct sockaddr*)&addr_un;
			alen = sizeof(sa_family_t) + pathlen;
		}
#endif
	}

	size_t len;
	ssize_t sent;
	const char *data = luaL_checklstring(L, 2, &len);

	if (lua_gettop(L) > argoff) {
		int offset = luaL_optint(L, argoff + 1, 0);
		if (offset) {
			if (offset < len) {
				data += offset;
				len -= offset;
			} else {
				len = 0;
			}
		}

		unsigned int wlen = luaL_optint(L, argoff + 2, len);
		if (wlen < len) {
			len = wlen;
		}
	}

	do {
		sent = sendto(sock->fd, data, len, 0, addr, alen);
	} while(sent == -1 && errno == EINTR);
	if (sent >= 0) {
		lua_pushinteger(L, sent);
		return 1;
	} else {
		return nixio__perror_s(L);
	}
}

/**
 * send(data)
 */
static int nixio_sock_send(lua_State *L) {
	return nixio_sock__sendto(L, 0);
}

/**
 * sendto(data, address, port)
 */
static int nixio_sock_sendto(lua_State *L) {
	return nixio_sock__sendto(L, 1);
}


/**
 * recv() / recvfrom() helper
 */
static int nixio_sock__recvfrom(lua_State *L, int from) {
	nixio_sock *sock = nixio__checksock(L);
	char buffer[NIXIO_BUFFERSIZE];
	struct sockaddr_storage addr_in;
#ifndef __WINNT__
	struct sockaddr_un addr_un;
#endif
	struct sockaddr *addr = NULL;
	socklen_t alen = 0;
	uint req = luaL_checkinteger(L, 2);
	int readc;

	if (sock->domain == AF_INET || sock->domain == AF_INET6) {
		addr = (from) ? (struct sockaddr*)&addr_in : NULL;
		alen = (from) ? sizeof(addr_in) : 0;
	}
#ifndef __WINNT__
	else if (sock->domain == AF_UNIX) {
		addr = (from) ? (struct sockaddr*)&addr_un : NULL;
		alen = (from) ? sizeof(addr_un) : 0;
	}
#endif

	/* We limit the readsize to NIXIO_BUFFERSIZE */
	req = (req > NIXIO_BUFFERSIZE) ? NIXIO_BUFFERSIZE : req;

	do {
		readc = recvfrom(sock->fd, buffer, req, 0, addr, &alen);
	} while (readc == -1 && errno == EINTR);

#ifdef __WINNT__
	if (readc < 0) {
		int e = WSAGetLastError();
		if (e == WSAECONNRESET || e == WSAECONNABORTED || e == WSAESHUTDOWN) {
			readc = 0;
		}
	}
#endif

	if (readc < 0) {
		return nixio__perror_s(L);
	} else {
		lua_pushlstring(L, buffer, readc);

		if (!from) {
			return 1;
		}
		/* push address. */
		if (sock->domain == AF_INET || sock->domain == AF_INET6) {
			nixio_addr naddr;
			if (!nixio__addr_parse(&naddr, (struct sockaddr *)&addr_in)) {
				lua_pushstring(L, naddr.host);
				lua_pushinteger(L, naddr.port);
				return 3;
			} else {
				return 1;
			}
		}
#ifndef __WINNT__
		else if (sock->domain == AF_UNIX && alen > sizeof(sa_family_t)) {
			/* if first char is non-null then the path is not in the
			   abstract namespace and alen includes the trailing null */
			if (addr_un.sun_path[0])
				--alen;
			lua_pushlstring(L, addr_un.sun_path, alen - sizeof(sa_family_t));
			return 2;
		}
#endif
	}
	return 1;
}

/**
 * recv(count)
 */
static int nixio_sock_recv(lua_State *L) {
	return nixio_sock__recvfrom(L, 0);
}

/**
 * recvfrom(count)
 */
static int nixio_sock_recvfrom(lua_State *L) {
	return nixio_sock__recvfrom(L, 1);
}


/* module table */
static const luaL_reg M[] = {
	{"send",	nixio_sock_send},
	{"sendto",	nixio_sock_sendto},
	{"recv",	nixio_sock_recv},
	{"recvfrom",nixio_sock_recvfrom},
	{"write",	nixio_sock_send},
	{"read",	nixio_sock_recv},
	{NULL,			NULL}
};

void nixio_open_io(lua_State *L) {
	lua_pushvalue(L, -2);
	luaL_register(L, NULL, M);
	lua_pop(L, 1);
}