static void vlclua_fd_unmap_safe( lua_State *L, unsigned idx )
{
int fd = vlclua_fd_get( L, idx );
vlclua_fd_unmap( L, idx );
if( fd != -1 )
net_Close( fd );
}
static int vlclua_net_send( lua_State *L )
{
int i_fd = luaL_checkint( L, 1 );
size_t i_len;
const char *psz_buffer = luaL_checklstring( L, 2, &i_len );
i_len = luaL_optint( L, 3, i_len );
i_len = send( vlclua_fd_get( L, i_fd ), psz_buffer, i_len, 0 );
lua_pushinteger( L, i_len );
return 1;
}
static int vlclua_fd_write( lua_State *L )
{
int fd = vlclua_fd_get( L, luaL_checkint( L, 1 ) );
size_t i_len;
const char *psz_buffer = luaL_checklstring( L, 2, &i_len );
i_len = luaL_optint( L, 3, i_len );
lua_pushinteger( L, (fd != -1) ? write( fd, psz_buffer, i_len ) : -1 );
return 1;
}
static int vlclua_fd_write( lua_State *L )
{
int i_fd = luaL_checkint( L, 1 );
size_t i_len;
ssize_t i_ret;
const char *psz_buffer = luaL_checklstring( L, 2, &i_len );
i_len = luaL_optint( L, 3, i_len );
i_ret = write( vlclua_fd_get( L, i_fd ), psz_buffer, i_len );
lua_pushinteger( L, i_ret );
return 1;
}
/* Takes a { fd : events } table as first arg and modifies it to { fd : revents } */
static int vlclua_net_poll( lua_State *L )
{
intf_thread_t *intf = (intf_thread_t *)vlclua_get_this( L );
intf_sys_t *sys = intf->p_sys;
luaL_checktype( L, 1, LUA_TTABLE );
int i_fds = 1;
lua_pushnil( L );
while( lua_next( L, 1 ) )
{
i_fds++;
lua_pop( L, 1 );
}
struct pollfd *p_fds = xmalloc( i_fds * sizeof( *p_fds ) );
int *luafds = xmalloc( i_fds * sizeof( *luafds ) );
lua_pushnil( L );
int i = 1;
p_fds[0].fd = sys->fd[0];
p_fds[0].events = POLLIN;
while( lua_next( L, 1 ) )
{
luafds[i] = luaL_checkinteger( L, -2 );
p_fds[i].fd = vlclua_fd_get( L, luafds[i] );
p_fds[i].events = luaL_checkinteger( L, -1 );
p_fds[i].events &= POLLIN | POLLOUT | POLLPRI;
lua_pop( L, 1 );
i++;
}
int i_ret;
do
i_ret = poll( p_fds, i_fds, -1 );
while( i_ret == -1 && errno == EINTR );
for( i = 1; i < i_fds; i++ )
{
lua_pushinteger( L, luafds[i] );
lua_pushinteger( L, p_fds[i].revents );
lua_settable( L, 1 );
}
lua_pushinteger( L, i_ret );
if( p_fds[0].revents )
i_ret = luaL_error( L, "Interrupted." );
else
i_ret = 1;
free( luafds );
free( p_fds );
return i_ret;
}
static int vlclua_fd_read( lua_State *L )
{
int i_fd = luaL_checkint( L, 1 );
size_t i_len = luaL_optint( L, 2, 1 );
char psz_buffer[i_len];
ssize_t i_ret = read( vlclua_fd_get( L, i_fd ), psz_buffer, i_len );
if( i_ret > 0 )
lua_pushlstring( L, psz_buffer, i_ret );
else
lua_pushnil( L );
return 1;
}
static int vlclua_fd_read( lua_State *L )
{
int fd = vlclua_fd_get( L, luaL_checkint( L, 1 ) );
size_t i_len = luaL_optint( L, 2, 1 );
char psz_buffer[i_len];
ssize_t i_ret = (fd != -1) ? read( fd, psz_buffer, i_len ) : -1;
if( i_ret > 0 )
lua_pushlstring( L, psz_buffer, i_ret );
else
lua_pushnil( L );
return 1;
}
