balua.h

/*
 *     ____             _________                __                _
 *    / __ \___  ____ _/ /_  __(_)___ ___  ___  / /   ____  ____ _(_)____
 *   / /_/ / _ \/ __ `/ / / / / / __ `__ \/ _ \/ /   / __ \/ __ `/ / ___/
 *  / _, _/  __/ /_/ / / / / / / / / / / /  __/ /___/ /_/ / /_/ / / /__
 * /_/ |_|\___/\__,_/_/ /_/ /_/_/ /_/ /_/\___/_____/\____/\__, /_/\___/
 *                                                       /____/
 *
 *                  Barracuda Embedded Web-Server
 *
 ****************************************************************************
 *                            HEADER
 *
 *   $Id$
 *
 *   COPYRIGHT:  Real Time Logic LLC, 2008 - 2011
 *               http://www.realtimelogic.com
 *
 *   The copyright to the program herein is the property of
 *   Real Time Logic. The program may be used or copied only
 *   with the written permission from Real Time Logic LLC or
 *   in accordance with the terms and conditions stipulated in
 *   the agreement under which the program has been supplied.
 ****************************************************************************
 *
 *
 */

 
#ifndef _balua_h
#define _balua_h

#ifdef __cplusplus
extern "C" {
#endif

#include "lua.h"
#include "lauxlib.h"

#ifdef __cplusplus
}
#endif 

#include "AuthenticatedUser.h"
#include "ThreadLib.h"

#ifdef __cplusplus
extern "C" {
#endif

#define BALUA_VERSION 20
#define BA_ENV_IX lua_upvalueindex(1)
#define BA_TABLE "_BA_"
#define BA_WKTABLE "_BAWK"
#define balua_create(p) _balua_create(p, BALUA_VERSION)
#define balua_optboolean(L,narg,def) luaL_opt(L, balua_checkboolean, narg, def)
#define baluaENV_getmetatable(L,mtId) lua_rawgeti(L, BA_ENV_IX, mtId)
#define baluaENV_checkudata(L,ud,mtid) _baluaENV_isudtype(L,ud,mtid,TRUE)
#define baluaENV_isudtype(L,ud,mtid) _baluaENV_isudtype(L,ud,mtid,FALSE)
#define balua_pushbatab(L) lua_getfield(L,LUA_REGISTRYINDEX,BA_TABLE)
#define balua_pushwktab(L) lua_getfield(L,LUA_REGISTRYINDEX,BA_WKTABLE)
#define balua_newlib(L,l) \
  (luaL_newlibtable(L,l), balua_pushbatab(L), luaL_setfuncs(L,l,1))
#define baluaENV_getmutex(L) baluaENV_getparam(L)->mutex

#define GET_BAMUTEX ThreadMutex* m = baluaENV_getmutex(L)
#define balua_releasemutex(m) if(m) ThreadMutex_release(m)
#define balua_setmutex(m) if(m) ThreadMutex_set(m)

#ifdef NDEBUG
#define balua_check(x,y) x
#else
#define balua_check(x,y) baAssert(y == x)
#endif


#define dmpstk1(L,x) \
  fprintf(stderr," %s %p : %d\n", lua_typename(L,lua_type(L,(x))), \
         lua_topointer(L,x),__LINE__)

struct BaTimer;
struct LoginTracker;

typedef struct
{
      lua_State* L; /* The lua universe */
      HttpServer* server; /* Pointer to server for this vm */
      struct BaTimer* timer; /* Timer bindings activated if not NULL. */
      IoIntf* vmio; /* The required VM (Lua) IO */
      ThreadMutex* mutex; /*The mutex used by the server's socket dispatcher*/
      struct LoginTracker* tracker; /* The optional tracker */
      int errHndRef; /* Internal: The ba.seterrh(func) ref */
} BaLua_param;

BA_API lua_State* _balua_create(const BaLua_param* p, int version);

BA_API int balua_usertracker_create(
   lua_State* L, U32 noOfLoginTrackerNodes, U32 maxNumberOfLogins,
   BaTime banTime);


BA_API const char* balua_baerrorstr(int ecode);
BA_API lua_State* balua_getmainthread(lua_State* L);
BA_API int balua_typeerror(lua_State *L, int narg, const char *tname);
BA_API int balua_checkboolean(lua_State *L, int narg);
BA_API int baluaENV_newmetatable(lua_State *L, int mtid, int inheritmtid);
BA_API void baluaENV_register(
   lua_State *L, int mtid, int inheritmtid, const luaL_Reg* lib);
BA_API void* baluaENV_newuserdata(lua_State *L, int mtid, size_t size);
BA_API void* _baluaENV_isudtype(lua_State* L, int udIx, int mtid, int check);
BA_API HttpCommand* baluaENV_checkcmd(lua_State* L, int ix);
BA_API BaLua_param* balua_getparam(lua_State* L);
BA_API BaLua_param* baluaENV_getparam(lua_State* L);
BA_API int balua_errorhandler(lua_State* L);
BA_API void balua_manageerr(
   lua_State* L,const char* ewhere,const char* emsg,HttpCommand* cmd);
BA_API void balua_resumeerr(lua_State* L,const char* ewhere);
BA_API int balua_loadconfig(lua_State* L,struct IoIntf* io,const char* file);
BA_API IoIntf* baluaENV_checkIoIntf(lua_State *L, int udIx);
BA_API IoIntf* balua_iointf(
   lua_State* L, const char* name, struct IoIntf* newio);
BA_API struct IoIntf** balua_createiointf(lua_State* L);
BA_API HttpDir* baluaENV_toDir(lua_State* L, int ix);
BA_API HttpDir* baluaENV_createDir(lua_State* L,int mtId,size_t dirSize);


/* Internally used by the xrc code */

typedef int (*PushCertificate)(lua_State *L, SoDispCon* con);

enum BaUserDataTypesG {
   /* Note must be larger than src/plugins/lua/ext/lbaint.h BaUserDataTypes */
   BA_CERTFUNC=200 /* pushCertificate */
};


#ifdef __cplusplus
}
#endif

 /* LSP Plugin */

#endif