root/luci/branches/luci-0.9/libs/nixio/src/splice.c @ 5506

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

#ifdef __linux__
#define _GNU_SOURCE
#endif

#include "nixio.h"
#include <fcntl.h>
#include <string.h>
#include <errno.h>
#include <unistd.h>
#include <sys/param.h>


#ifndef __WINNT__

#ifndef BSD
#include <sys/sendfile.h>
#else
#include <sys/types.h>
#include <sys/socket.h>
#include <sys/uio.h>
#endif

#ifdef _GNU_SOURCE

/* guess what sucks... */
#ifdef __UCLIBC__
#include <unistd.h>
#include <sys/syscall.h>
ssize_t splice(int __fdin, __off64_t *__offin, int __fdout,
        __off64_t *__offout, size_t __len, unsigned int __flags) {
#ifdef __NR_splice
    return syscall(__NR_splice, __fdin, __offin, __fdout, __offout, __len, __flags);
#else
    (void)__fdin;
    (void)__offin;
    (void)__fdout;
    (void)__offout;
    (void)__len;
    (void)__flags;
    errno = ENOSYS;
    return -1;
#endif
}

#undef SPLICE_F_MOVE
#undef SPLICE_F_NONBLOCK
#undef SPLICE_F_MORE

#define SPLICE_F_MOVE 1
#define SPLICE_F_NONBLOCK 2
#define SPLICE_F_MORE 4

#endif /* __UCLIBC__ */

/**
 * splice(fd_in, fd_out, length, flags)
 */
static int nixio_splice(lua_State *L) {
    int fd_in = nixio__checkfd(L, 1);
    int fd_out = nixio__checkfd(L, 2);
    size_t len = luaL_checkinteger(L, 3);
    int flags = luaL_optinteger(L, 4, 0);
    long spliced;

    do {
        spliced = splice(fd_in, NULL, fd_out, NULL, len, flags);
    } while (spliced == -1 && errno == EINTR);

    if (spliced < 0) {
        return nixio__perror(L);
    }

    lua_pushinteger(L, spliced);
    return 1;
}

/**
 * Translate splice flags to integer
 */
static int nixio_splice_flags(lua_State *L) {
    const int j = lua_gettop(L);
    int flags = 0;
    for (int i=1; i<=j; i++) {
        const char *flag = luaL_checkstring(L, i);
        if (!strcmp(flag, "move")) {
            flags |= SPLICE_F_MOVE;
        } else if (!strcmp(flag, "nonblock")) {
            flags |= SPLICE_F_NONBLOCK;
        } else if (!strcmp(flag, "more")) {
            flags |= SPLICE_F_MORE;
        } else {
            return luaL_argerror(L, i, "supported values: "
             "move, nonblock, more");
        }
    }
    lua_pushinteger(L, flags);

    return 1;
}

#endif /* _GNU_SOURCE */

/**
 * sendfile(outfd, infd, length)
 */
static int nixio_sendfile(lua_State *L) {
    int sock = nixio__checksockfd(L);
    int infd = nixio__checkfd(L, 2);
    size_t len = luaL_checkinteger(L, 3);
    off_t spliced;

#ifndef BSD
    do {
        spliced = sendfile(sock, infd, NULL, len);
    } while (spliced == -1 && errno == EINTR);

    if (spliced == -1) {
        return nixio__perror(L);
    }
#else
    int r;
    const off_t offset = lseek(infd, 0, SEEK_CUR);

    do {
        r = sendfile(infd, sock, offset, len, NULL, &spliced, 0);
    } while (r == -1 && errno == EINTR);

    if (r == -1) {
        return nixio__perror(L);
    }
#endif

    lua_pushinteger(L, spliced);
    return 1;
}

/* module table */
static const luaL_reg R[] = {
#ifdef _GNU_SOURCE
    {"splice",          nixio_splice},
    {"splice_flags",    nixio_splice_flags},
#endif
    {"sendfile",        nixio_sendfile},
    {NULL,          NULL}
};


void nixio_open_splice(lua_State *L) {
    luaL_register(L, NULL, R);
}

#else /* __WINNT__ */

void nixio_open_splice(lua_State *L) {
}

#endif /* !__WINNT__ */