Added LUA "compiler" to the code.

1 files changed, 26 insertions, 2 deletions

diff --git a/lib/BLua.cc b/lib/BLua.cc
index 18789f7..c15e6d9 100644
--- a/lib/BLua.cc
+++ b/lib/BLua.cc
@@ -1,4 +1,5 @@
 #include <lualib.h>

+

 #include "BLua.h"

 

 #ifndef BUFFERSIZE

@@ -10,6 +11,7 @@ typedef GeneralException LuaException;
 class LuaStatics : public Base {

   public:

     static const char * getF(lua_State *, void *, size_t *);

+    static int putF(lua_State *, const void *, size_t, void *);

     static int luapanic(lua_State *) throw(GeneralException);

     static int destructor(lua_State *);

 };

@@ -219,7 +221,18 @@ const char * LuaStatics::getF(lua_State * L, void * ud, size_t * size) {
     return (*size > 0) ? lf->buff : NULL;

 }

 

-void Lua::load(Handle * h) throw (GeneralException) {

+struct DumpF {

+    Handle * f;

+};

+

+int LuaStatics::putF(lua_State * L, const void * p, size_t size, void * ud) {

+    DumpF *lf = (DumpF *)ud;

+    (void)L;

+

+    return lf->f->write(p, size) == size;

+}

+

+void Lua::load(Handle * h, bool docall) throw (GeneralException) {

     LoadF lf;

     int status;

 

@@ -232,7 +245,18 @@ void Lua::load(Handle * h) throw (GeneralException) {
 	throw LuaException("Error loading lua chunk from Handle `" + h->GetName() + "'");

     }

 

-    call();

+    if (docall)

+	call();

+}

+

+extern "C" void luacmain(lua_State * L, int stripping, lua_Chunkwriter w, void * uD);

+

+void Lua::dump(Handle * h, bool strip) {

+    DumpF lf;

+

+    lf.f = h;

+

+    luacmain(L, strip, LuaStatics::putF, &lf);

 }

 

 Lua * Lua::thread() {