#include <unistd.h>
#include "../lib/sstring.h"
+#include "../core/nsmalloc.h"
+
+#include "lualocal.h"
+#include "luasocket.h"
+
+#define luamalloc(x) nsmalloc(POOL_LUA, x)
+#define luarealloc(x, y) nsrealloc(POOL_LUA, x, y)
+#define luafree(x) nsfree(POOL_LUA, x)
/*** defines ************************************/
-#define LUA_BOTVERSION "1.41"
-#define LUA_CHANFIXBOT "Z"
+#define LUA_BOTVERSION "1.89"
+#define LUA_CHANFIXBOT "D"
#define LUA_OPERCHAN "#twilightzone"
+
+#ifndef LUA_PUKECHAN
#define LUA_PUKECHAN "#qnet.keepout"
+#endif
-#undef LUA_DEBUGSOCKET
#define LUA_PROFILE
-#ifdef LUA_JITLIBNAME
-
-#define LUA_USEJIT
+#define LUA_DEBUGSOCKET_ADDRESS "127.0.0.1"
+#define LUA_DEBUGSOCKET_PORT 7733
+#ifdef LUA_USEJIT
+#include <luajit.h>
+#define LUA_AUXVERSION " + " LUAJIT_VERSION
+#else
+#define LUA_AUXVERSION ""
#endif
-#define LUA_DEBUGSOCKET_ADDRESS "127.0.0.1"
-#define LUA_DEBUGSOCKET_PORT 7733
+#define LUA_SMALLVERSION "v" LUA_BOTVERSION " (" LUA_VERSION LUA_AUXVERSION ")"
+#define LUA_FULLVERSION "Lua engine " LUA_SMALLVERSION
/*** end defines ************************************/
struct timeval ru_utime, ru_stime;
struct lua_list *next;
struct lua_list *prev;
+ lua_localnick *nicks;
+ lua_socket *sockets;
} lua_list;
#define LUA_STARTLOOP(l) { lua_list *ll; for(ll=lua_head;ll;ll=ll->next) { l = ll->l
#define LUA_ENDLOOP() } }
-#define LUA_PATHLEN 1024
+#define LUA_PATHLEN 150
extern lua_list *lua_head;
extern sstring *cpath;
void lua_unloadscript(lua_list *l);
lua_list *lua_scriptloaded(char *name);
lua_list *lua_listfromstate(lua_State *l);
+int lua_listexists(lua_list *l);
+int lua_lineok(const char *data);
#define lua_toint(l, n) (int)lua_tonumber(l, n)
#define lua_isint(l, n) lua_isnumber(l, n)
#define lua_tolong(l, n) (long)lua_tonumber(l, n)
#define lua_islong(l, n) lua_isnumber(l, n)
#define lua_pushlong(l, n) lua_pushnumber(l, n)
+#define lua_pushnumeric(l, n) lua_pushlong(l, n)
+#define lua_tonumeric(l, n) lua_tolong(l, n)
+#define lua_isnumeric(l, n) lua_islong(l, n)
extern struct rusage r_usages;
extern struct rusage r_usagee;
#define ACCOUNTING_STOP(l) getrusage(RUSAGE_SELF, &r_usagee); SET_TIMEDIFF(l, r_usages, r_usagee); }
-#else
-
-#define ACCOUNTING_START(l) ;
-#define ACCOUNTING_STOP(l) ;
-
#endif
#ifdef LUA_DEBUGSOCKET
-void lua_debugoutput(char *p, ...);
+void lua_debugoutput(char *p, ...) __attribute__ ((format (printf, 1, 2)));
#define DEBUGOUT(p, ...) lua_debugoutput(p , ##__VA_ARGS__)
-#define lua_debugpcall(l, message, ...) { lua_list *l2 = lua_listfromstate(l); DEBUGOUT("%s: %s\n", l2->name->content, message); ACCOUNTING_START(l2); lua_pcall(l , ##__VA_ARGS__); ACCOUNTING_STOP(l2); }
-
-#else
-
-#define DEBUGOUT(p, ...)
-
-#ifdef LUA_PROFILE
-#define lua_debugpcall(l, message, ...) { lua_list *l2 = lua_listfromstate(l); ACCOUNTING_START(l2); lua_pcall(l , ##__VA_ARGS__); ACCOUNTING_STOP(l2); }
-#else
-#define lua_debugpcall(l, message, ...) lua_pcall(l , ##__VA_ARGS__); ACCOUNTING_STOP(l2);
-#endif
#endif
#endif /* INLINE */
+INLINE int lua_debugpcall(lua_State *l, char *message, int a, int b, int c);
+
#endif