add Lua 5.4.6 patches

This commit is contained in:
Jeremy Baxter 2023-12-27 23:16:49 +00:00
parent 787820e82f
commit 55b40a17cd
6 changed files with 188 additions and 3 deletions

View file

@ -0,0 +1,57 @@
--- liolib.c
+++ liolib.c
@@ -4,6 +4,12 @@
** See Copyright Notice in lua.h
*/
+/***
+ * Input and output facilities.
+ *
+ * @module io
+ */
+
#define liolib_c
#define LUA_LIB
@@ -16,6 +22,7 @@
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
+#include <unistd.h>
#include "lua.h"
@@ -723,8 +730,25 @@
return luaL_fileresult(L, res == 0, NULL);
}
+/***
+ * Returns whether the stream points to a valid TTY device.
+ *
+ * @function file:istty
+ * @usage
+local f = io.open("/etc/fstab", 'r');
+-- a regular file will never be a TTY device
+assert(not f:istty())
+-- stdin, stdout and stderr can often be TTYs
+print(io.stdout:istty())
+ */
+static int f_istty (lua_State *L) {
+ int fd = fileno(tofile(L));
+ lua_pushboolean(L, isatty(fd));
+ return 1;
+}
+
static int io_flush (lua_State *L) {
return luaL_fileresult(L, fflush(getiofile(L, IO_OUTPUT)) == 0, NULL);
}
@@ -765,6 +789,7 @@
{"seek", f_seek},
{"close", f_close},
{"setvbuf", f_setvbuf},
+ {"istty", f_istty},
{NULL, NULL}
};

View file

@ -0,0 +1,18 @@
--- Makefile
+++ Makefile
@@ -6,12 +6,12 @@
# Your platform. See PLATS for possible values.
PLAT= guess
-CC= gcc -std=gnu99
-CFLAGS= -O2 -Wall -Wextra -DLUA_COMPAT_5_3 $(SYSCFLAGS) $(MYCFLAGS)
+CC= cc -std=c99
+CFLAGS= -O2 $(SYSCFLAGS) $(MYCFLAGS)
LDFLAGS= $(SYSLDFLAGS) $(MYLDFLAGS)
LIBS= -lm $(SYSLIBS) $(MYLIBS)
-AR= ar rcu
+AR= ar cr
RANLIB= ranlib
RM= rm -f
UNAME= uname

View file

@ -0,0 +1,58 @@
--- loslib.c
+++ loslib.c
@@ -4,6 +4,12 @@
** See Copyright Notice in lua.h
*/
+/***
+ * Operating system related facilities.
+ *
+ * @module os
+ */
+
#define loslib_c
#define LUA_LIB
@@ -14,6 +20,7 @@
#include <locale.h>
#include <stdlib.h>
#include <string.h>
+#include <unistd.h>
#include <time.h>
#include "lua.h"
@@ -401,7 +408,26 @@
return 0;
}
+#define HOST_NAME_MAX 256 /* according to POSIX */
+/***
+ * Returns the system hostname.
+ *
+ * @function hostname
+ * @usage local hostname = os.hostname()
+ */
+static int
+os_hostname(lua_State *L)
+{
+ char buffer[HOST_NAME_MAX];
+
+ gethostname(buffer, HOST_NAME_MAX); /* get hostname */
+ lua_pushstring(L, buffer);
+
+ return 1;
+}
+
+
static const luaL_Reg syslib[] = {
{"clock", os_clock},
{"date", os_date},
@@ -409,6 +435,7 @@
{"execute", os_execute},
{"exit", os_exit},
{"getenv", os_getenv},
+ {"hostname", os_hostname},
{"remove", os_remove},
{"rename", os_rename},
{"setlocale", os_setlocale},