diff options
| author | pixel <pixel> | 2003-11-20 09:07:24 +0000 |
|---|---|---|
| committer | pixel <pixel> | 2003-11-20 09:07:24 +0000 |
| commit | e995cb29c210d8d946c889a6a65dd0e90403e767 (patch) | |
| tree | 29cace8a313c1e9d9968f54350ff810cb65da99f /lib/lua/src | |
| parent | ebac9899fe2ef7a672d3728071b3a4179ec5a2df (diff) | |
Added LUA "compiler" to the code.
Diffstat (limited to 'lib/lua/src')
| -rw-r--r-- | lib/lua/src/luacomp.c | 78 |
1 files changed, 78 insertions, 0 deletions
diff --git a/lib/lua/src/luacomp.c b/lib/lua/src/luacomp.c new file mode 100644 index 0000000..8d13ee5 --- /dev/null +++ b/lib/lua/src/luacomp.c @@ -0,0 +1,78 @@ +/*
+** $Id: luacomp.c,v 1.1 2003-11-20 09:07:25 pixel Exp $
+** Lua compiler (saves bytecodes to files; also list bytecodes)
+** See Copyright Notice in lua.h
+*/
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+#include "lua.h"
+#include "lauxlib.h"
+
+#include "lfunc.h"
+#include "lmem.h"
+#include "lobject.h"
+#include "lopcodes.h"
+#include "lstring.h"
+#include "lundump.h"
+
+#ifndef PROGNAME
+#define PROGNAME "luacomp" /* program name */
+#endif
+
+static const char* progname=PROGNAME; /* actual program name */
+
+static Proto* toproto(lua_State* L, int i)
+{
+ const Closure* c=(const Closure*)lua_topointer(L,i);
+ return c->l.p;
+}
+
+static Proto* combine(lua_State* L, int n)
+{
+ if (n==1)
+ return toproto(L,-1);
+ else
+ {
+ int i,pc=0;
+ Proto* f=luaF_newproto(L);
+ f->source=luaS_newliteral(L,"=(" PROGNAME ")");
+ f->maxstacksize=1;
+ f->p=luaM_newvector(L,n,Proto*);
+ f->sizep=n;
+ f->sizecode=2*n+1;
+ f->code=luaM_newvector(L,f->sizecode,Instruction);
+ for (i=0; i<n; i++)
+ {
+ f->p[i]=toproto(L,i-n);
+ f->code[pc++]=CREATE_ABx(OP_CLOSURE,0,i);
+ f->code[pc++]=CREATE_ABC(OP_CALL,0,1,1);
+ }
+ f->code[pc++]=CREATE_ABC(OP_RETURN,0,1,0);
+ return f;
+ }
+}
+
+static void strip(lua_State* L, Proto* f)
+{
+ int i,n=f->sizep;
+ luaM_freearray(L, f->lineinfo, f->sizelineinfo, int);
+ luaM_freearray(L, f->locvars, f->sizelocvars, struct LocVar);
+ luaM_freearray(L, f->upvalues, f->sizeupvalues, TString *);
+ f->lineinfo=NULL; f->sizelineinfo=0;
+ f->locvars=NULL; f->sizelocvars=0;
+ f->upvalues=NULL; f->sizeupvalues=0;
+ f->source=luaS_newliteral(L,"=(none)");
+ for (i=0; i<n; i++) strip(L,f->p[i]);
+}
+
+void luacmain(lua_State * L, int stripping, lua_Chunkwriter w, void * uD) {
+ Proto * f;
+ int i;
+ f = combine(L, 1);
+ if (stripping)
+ strip(L, f);
+ luaU_dump(L, f, w, uD);
+}
|