diff options
Diffstat (limited to 'Build/source/texk/web2c/luatexdir/luasocket/src/serial.c')
-rw-r--r-- | Build/source/texk/web2c/luatexdir/luasocket/src/serial.c | 180 |
1 files changed, 0 insertions, 180 deletions
diff --git a/Build/source/texk/web2c/luatexdir/luasocket/src/serial.c b/Build/source/texk/web2c/luatexdir/luasocket/src/serial.c deleted file mode 100644 index b666e61f939..00000000000 --- a/Build/source/texk/web2c/luatexdir/luasocket/src/serial.c +++ /dev/null @@ -1,180 +0,0 @@ -/*=========================================================================*\ -* Serial stream -* LuaSocket toolkit -\*=========================================================================*/ -#include <string.h> - -#include "lua.h" -#include "lauxlib.h" - -#include "auxiliar.h" -#include "socket.h" -#include "options.h" -#include "unix.h" -#ifndef _WIN32 -#include <sys/un.h> -#endif -#include <sys/types.h> -#include <sys/stat.h> -#include <fcntl.h> -/* -Reuses userdata definition from unix.h, since it is useful for all -stream-like objects. - -If we stored the serial path for use in error messages or userdata -printing, we might need our own userdata definition. - -Group usage is semi-inherited from unix.c, but unnecessary since we -have only one object type. -*/ - -/*=========================================================================*\ -* Internal function prototypes -\*=========================================================================*/ -/*static int global_create(lua_State *L);*/ -/* static int meth_send(lua_State *L); */ -/* static int meth_receive(lua_State *L); */ -/* static int meth_close(lua_State *L); */ -/* static int meth_settimeout(lua_State *L); */ -/* static int meth_getfd(lua_State *L); */ -/* static int meth_setfd(lua_State *L); */ -/* static int meth_dirty(lua_State *L); */ -/* static int meth_getstats(lua_State *L); */ -/* static int meth_setstats(lua_State *L); */ - -/* serial object methods */ -/* static luaL_Reg serial_methods[] = { */ -/* {"__gc", meth_close}, */ -/* {"__tostring", auxiliar_tostring}, */ -/* {"close", meth_close}, */ -/* {"dirty", meth_dirty}, */ -/* {"getfd", meth_getfd}, */ -/* {"getstats", meth_getstats}, */ -/* {"setstats", meth_setstats}, */ -/* {"receive", meth_receive}, */ -/* {"send", meth_send}, */ -/* {"setfd", meth_setfd}, */ -/* {"settimeout", meth_settimeout}, */ -/* {NULL, NULL} */ -/* }; */ - -/*-------------------------------------------------------------------------*\ -* Initializes module (luatex extension, unused ) -\*-------------------------------------------------------------------------*/ -/* LUASOCKET_API int luaopen_socket_serial(lua_State *L) { */ -/* /\* create classes *\/ */ -/* auxiliar_newclass(L, "serial{client}", serial_methods); */ -/* /\* create class groups *\/ */ -/* auxiliar_add2group(L, "serial{client}", "serial{any}"); */ -/* lua_pushcfunction(L, global_create); */ -/* return 1; */ -/* } */ - -/*=========================================================================*\ -* Lua methods -\*=========================================================================*/ -/*-------------------------------------------------------------------------*\ -* Just call buffered IO methods -\*-------------------------------------------------------------------------*/ -/* static int meth_send(lua_State *L) { */ -/* p_unix un = (p_unix) auxiliar_checkclass(L, "serial{client}", 1); */ -/* return buffer_meth_send(L, &un->buf); */ -/* } */ - -/* static int meth_receive(lua_State *L) { */ -/* p_unix un = (p_unix) auxiliar_checkclass(L, "serial{client}", 1); */ -/* return buffer_meth_receive(L, &un->buf); */ -/* } */ - -/* static int meth_getstats(lua_State *L) { */ -/* p_unix un = (p_unix) auxiliar_checkclass(L, "serial{client}", 1); */ -/* return buffer_meth_getstats(L, &un->buf); */ -/* } */ - -/* static int meth_setstats(lua_State *L) { */ -/* p_unix un = (p_unix) auxiliar_checkclass(L, "serial{client}", 1); */ -/* return buffer_meth_setstats(L, &un->buf); */ -/* } */ - -/*-------------------------------------------------------------------------*\ -* Select support methods -\*-------------------------------------------------------------------------*/ -/* static int meth_getfd(lua_State *L) { */ -/* p_unix un = (p_unix) auxiliar_checkgroup(L, "serial{any}", 1); */ -/* lua_pushnumber(L, (int) un->sock); */ -/* return 1; */ -/* } */ - -/* /\* this is very dangerous, but can be handy for those that are brave enough *\/ */ -/* static int meth_setfd(lua_State *L) { */ -/* p_unix un = (p_unix) auxiliar_checkgroup(L, "serial{any}", 1); */ -/* un->sock = (t_socket) luaL_checknumber(L, 2); */ -/* return 0; */ -/* } */ - -/* static int meth_dirty(lua_State *L) { */ -/* p_unix un = (p_unix) auxiliar_checkgroup(L, "serial{any}", 1); */ -/* lua_pushboolean(L, !buffer_isempty(&un->buf)); */ -/* return 1; */ -/* } */ - -/*-------------------------------------------------------------------------*\ -* Closes socket used by object -\*-------------------------------------------------------------------------*/ -/* static int meth_close(lua_State *L) */ -/* { */ -/* p_unix un = (p_unix) auxiliar_checkgroup(L, "serial{any}", 1); */ -/* socket_destroy(&un->sock); */ -/* lua_pushnumber(L, 1); */ -/* return 1; */ -/* } */ - - -/*-------------------------------------------------------------------------*\ -* Just call tm methods -\*-------------------------------------------------------------------------*/ -/* static int meth_settimeout(lua_State *L) { */ -/* p_unix un = (p_unix) auxiliar_checkgroup(L, "serial{any}", 1); */ -/* return timeout_meth_settimeout(L, &un->tm); */ -/* } */ - -/*=========================================================================*\ -* Library functions -\*=========================================================================*/ - - -/*-------------------------------------------------------------------------*\ -* Creates a serial object -\*-------------------------------------------------------------------------*/ -/* static int global_create(lua_State *L) { */ -/* const char* path = luaL_checkstring(L, 1); */ - -/* /\* allocate unix object *\/ */ -/* p_unix un = (p_unix) lua_newuserdata(L, sizeof(t_unix)); */ - -/* /\* open serial device *\/ */ -/* #if defined(_WIN32) */ -/* t_socket sock = open(path, O_RDWR); */ -/* #else */ -/* t_socket sock = open(path, O_NOCTTY|O_RDWR); */ -/* #endif */ - -/* /\*printf("open %s on %d\n", path, sock);*\/ */ - -/* if (sock < 0) { */ -/* lua_pushnil(L); */ -/* lua_pushstring(L, socket_strerror(errno)); */ -/* lua_pushnumber(L, errno); */ -/* return 3; */ -/* } */ -/* /\* set its type as client object *\/ */ -/* auxiliar_setclass(L, "serial{client}", -1); */ -/* /\* initialize remaining structure fields *\/ */ -/* socket_setnonblocking(&sock); */ -/* un->sock = sock; */ -/* io_init(&un->io, (p_send) socket_write, (p_recv) socket_read, */ -/* (p_error) socket_ioerror, &un->sock); */ -/* timeout_init(&un->tm, -1, -1); */ -/* buffer_init(&un->buf, &un->io, &un->tm); */ -/* return 1; */ -/* } */ |