+void print_warning(lua_State* L, const char *format, ...)
+{
+ char buf[4096];
+ va_list ap;
+ va_start(ap, format);
+ vsnprintf(buf, sizeof(buf), format, ap);
+ va_end(ap);
+
+ lua_Debug ar;
+ lua_getstack(L, 1, &ar);
+ lua_getinfo(L, "nSl", &ar);
+ fprintf(stderr, "WARNING: %s:%d: %s", ar.source, ar.currentline, buf);
+}
+