new function luaL_errstr

1 files changed, 12 insertions, 0 deletions

diff --git a/lauxlib.c b/lauxlib.c
index b6903013..831d3e34 100644
--- a/lauxlib.c
+++ b/lauxlib.c
@@ -21,6 +21,18 @@
 #include "lualib.h"
 
 
+LUALIB_API const char *luaL_errstr (int errcode) {
+  static const char *const errstr[] = {
+    "ok",
+    "run-time error",
+    "cannot open file",
+    "syntax error",
+    "memory allocation error",
+    "error in error handling"
+  };
+  return errstr[errcode];
+}
+
 
 LUALIB_API int luaL_findstring (const char *name, const char *const list[]) {
   int i;