Import of first release of lua-term

1 files changed, 22 insertions, 0 deletions

diff --git a/core.c b/core.c
new file mode 100644
index 0000000..04ff4ef
--- /dev/null
+++ b/core.c
@@ -0,0 +1,22 @@
+#include <lua.h>
+#include <lauxlib.h>
+#include <lualib.h>
+
+static int
+lua_isatty(lua_State *L)
+{
+    FILE *fp = (FILE *) luaL_checkudata(L, -1, LUA_FILEHANDLE);
+
+    lua_pushboolean(L, isatty(fileno(fp)));
+    return 1;
+}
+
+int
+luaopen_term_core(lua_State *L)
+{
+    lua_newtable(L);
+    lua_pushcfunction(L, lua_isatty);
+    lua_setfield(L, -2, "isatty");
+
+    return 1;
+}