1 files changed, 175 insertions, 0 deletions

diff --git a/lprefix.h b/lprefix.h
new file mode 100644
index 0000000..0eb149f
--- /dev/null
+++ b/lprefix.h
@@ -0,0 +1,175 @@
+/*
+** $Id: lprefix.h,v 1.2 2014/12/29 16:54:13 roberto Exp $
+** Definitions for Lua code that must come before any other header file
+** See Copyright Notice in lua.h
+*/
+
+#ifndef lprefix_h
+#define lprefix_h
+
+
+/*
+** Allows POSIX/XSI stuff
+*/
+#if !defined(LUA_USE_C89)       /* { */
+
+#if !defined(_XOPEN_SOURCE)
+#define _XOPEN_SOURCE           600
+#elif _XOPEN_SOURCE == 0
+#undef _XOPEN_SOURCE  /* use -D_XOPEN_SOURCE=0 to undefine it */
+#endif
+
+/*
+** Allows manipulation of large files in gcc and some other compilers
+*/
+#if !defined(LUA_32BITS) && !defined(_FILE_OFFSET_BITS)
+#define _LARGEFILE_SOURCE       1
+#define _FILE_OFFSET_BITS       64
+#endif
+
+#endif                          /* } */
+
+
+/*
+** Windows stuff
+*/
+#if defined(_WIN32)     /* { */
+
+#if !defined(_CRT_SECURE_NO_WARNINGS)
+#define _CRT_SECURE_NO_WARNINGS  /* avoid warnings about ISO C functions */
+#endif
+
+#endif                  /* } */
+
+
+/* COMPAT53 adaptation */
+#include "c-api/compat-5.3.h"
+
+#undef LUAMOD_API
+#define LUAMOD_API extern
+
+
+#ifdef lutf8lib_c
+#  define luaopen_utf8 luaopen_compat53_utf8
+/* we don't support the %U format string of lua_pushfstring!
+ * code below adapted from the Lua 5.3 sources:
+ */
+static const char *compat53_utf8_escape (lua_State* L, long x) {
+  if (x < 0x80) { /* ASCII */
+    char c = (char)x;
+    lua_pushlstring(L, &c, 1);
+  } else {
+    char buff[8] = { 0 };
+    unsigned int mfb = 0x3f;
+    int n = 1;
+    do {
+      buff[8 - (n++)] = (char)(0x80|(x & 0x3f));
+      x >>= 6;
+      mfb >>= 1;
+    } while (x > mfb);
+    buff[8-n] = (char)((~mfb << 1) | x);
+    lua_pushlstring(L, buff+8-n, n);
+  }
+  return lua_tostring(L, -1);
+}
+#  define lua_pushfstring(L, fmt, l) \
+  compat53_utf8_escape(L, l)
+#endif
+
+
+#ifdef ltablib_c
+#  define luaopen_table luaopen_compat53_table
+#  ifndef LUA_MAXINTEGER
+/* conservative estimate: */
+#    define LUA_MAXINTEGER INT_MAX
+#  endif
+#endif /* ltablib_c */
+
+
+#ifdef lstrlib_c
+#include <locale.h>
+#include <lualib.h>
+/* move the string library open function out of the way (we only take
+ * the string packing functions)!
+ */
+#  define luaopen_string luaopen_string_XXX
+/* used in string.format implementation, which we don't use: */
+#  ifndef LUA_INTEGER_FRMLEN
+#    define LUA_INTEGER_FRMLEN ""
+#    define LUA_NUMBER_FRMLEN ""
+#  endif
+#  ifndef LUA_MININTEGER
+#    define LUA_MININTEGER 0
+#  endif
+#  ifndef LUA_INTEGER_FMT
+#    define LUA_INTEGER_FMT "%d"
+#  endif
+#  ifndef LUAI_UACINT
+#    define LUAI_UACINT lua_Integer
+#  endif
+/* different Lua 5.3 versions have conflicting variants of this macro
+ * in luaconf.h, there's a fallback implementation in lstrlib.c, and
+ * the macro isn't used for string (un)packing anyway!
+ * */
+#  undef lua_number2strx
+#  if LUA_VERSION_NUM < 503
+/* lstrlib assumes that lua_Integer and lua_Unsigned have the same
+ * size, so we use the unsigned equivalent of ptrdiff_t! */
+#    define lua_Unsigned size_t
+#  endif
+#  ifndef l_mathlim
+#    ifdef LUA_NUMBER_DOUBLE
+#      define l_mathlim(n) (DBL_##n)
+#    else
+#      define l_mathlim(n) (FLT_##n)
+#    endif
+#  endif
+#  ifndef l_mathop
+#    ifdef LUA_NUMBER_DOUBLE
+#      define l_mathop(op) op
+#    else
+#      define l_mathop(op) op##f
+#    endif
+#  endif
+#  ifndef lua_getlocaledecpoint
+#    define lua_getlocaledecpoint() (localeconv()->decimal_point[0])
+#  endif
+#  ifndef l_sprintf
+#    if defined(__STDC_VERSION__) && __STDC_VERSION__ >= 199901L
+#      define l_sprintf(s,sz,f,i) (snprintf(s, sz, f, i))
+#    else
+#      define l_sprintf(s,sz,f,i) ((void)(sz), sprintf(s, f, i))
+#    endif
+#  endif
+
+static int str_pack (lua_State *L);
+static int str_packsize (lua_State *L);
+static int str_unpack (lua_State *L);
+LUAMOD_API int luaopen_compat53_string (lua_State *L) {
+  luaL_Reg const funcs[] = {
+    { "pack", str_pack },
+    { "packsize", str_packsize },
+    { "unpack", str_unpack },
+    { NULL, NULL }
+  };
+  luaL_newlib(L, funcs);
+  return 1;
+}
+/* fake CLANG feature detection on other compilers */
+#  ifndef __has_attribute
+#    define __has_attribute(x) 0
+#  endif
+/* make luaopen_string(_XXX) static, so it (and all other referenced
+ * string functions) won't be included in the resulting dll
+ * (hopefully).
+ */
+#  undef LUAMOD_API
+#  if defined(__GNUC__) || __has_attribute(__unused__)
+#    define LUAMOD_API __attribute__((__unused__)) static
+#  else
+#    define LUAMOD_API static
+#  endif
+#endif /* lstrlib.c */
+
+#endif
+