How To Convert Lua To Cpp
Lua Function Call

Jun 17th, 2010

Never

Convert lua txt. Online converter. Converting a file lua. Online converter. Transform a file lua.

Library for Converting Data to and from C Structs for Lua 5.1/5.2. This library offers basic facilities to convert Lua values to and from C structs. Its main functions are struct.pack, which packs multiple Lua values into a struct-like string; and struct.unpack, which unpacks multiple Lua values from a given struct-like string.
And this morning i found that u have written such a good tool for converting lua code to C. I think this will help me a lot, atleast it will show me a way, for my interface to lua from C. I think tools like lua2c and jlua will help lua's proliferation.

Not a member of Pastebin yet?Sign Up, it unlocks many cool features!

----- lua 5.1 script to convert a lua file into a C file
----- Usage: lua2c foo.lua > lfoo.c # compiled, so not portable
----- lua2c -s foo.lua > lfoo.c # source, and so portable
---------------- general utility functions -------------
functionio.contents(filename)
ifnot f thenreturn f, msg end
f:close()
end
functionos.capture(cmd, raw)
local s =assert(f:read('*a'))
if raw thenreturn s end
s =string.gsub(s,'%s+$',')
return s
-- easier to complement what doesn't need quotes
ifstrfind(s, quote_me)or s 'then
else
end
function os.runf(...) return os.execute(string.format(...)) end
-------------------------------------------------------
local lua -- program to be loaded (source or binary)
local libname
if arg[1]:find '^-lib' and arg[2] then
table.remove(arg, 1)
end
if arg[1] '-a' or arg[1] '-s' then -- don't compile;
table.remove(arg,1)
lua =io.contents(arg[1]):gsub('^#!.-n',')
assert(#arg 1)
assert(os.runf('luac -o %s %s',os.quote(bin),os.quote(arg[1]))0)
os.remove(bin)
libname = libname or arg[1]:gsub('.*/','):gsub('%.lua$',')
outfile =io.stdout
------------------------
outfile:write[[
#include <lauxlib.h>
static unsigned char program[]={
localfunction printf(...)return outfile:write(string.format(...))end
local last = lua:len()
for i =1, last do
printf('%3d%s', n, i < last and', 'or')
end
printf 'n};nn'
outfile:write((([[
int luaload_$lib(lua_State *L){
return luaL_loadbuffer(L,(const char*)program, sizeof(program),'@$source');
if(luaL_loadbuffer(L,(const char*)program, sizeof(program),'@$source'))
return luaL_error(L,'Internal library '%s' failed to parse','$lib');
return luaL_error(L,'Internal library '%s' failed to run: %s','$lib',
if(lua_isnil(L,-1)){
lua_pushboolean(L,1);
lua_getglobal(L,'package');// s: lib package
lua_getfield(L,-1,'loaded');// s: lib package loaded
lua_pushstring(L,'$lib');// s: lib loaded libname
lua_settable(L,-3);// s: lib loaded
return1;
]]):gsub('$(%a+)',{ lib = libname, source = arg[1]:gsub('.*/',')})))

RAW Paste Data