Lua Proxy Dll Three

wiki

Below are two Lua script to create a proxy dll for Lua 5.1. They is similar to what you can find on LuaProxyDllTwo (and to some extent on LuaProxyDll). However they have several advantages:

Output dll contains absolutely no code (even generated code), thanks to the /NOENTRY and /NODEFAULTLIB linker flags (-nostartfiles for gcc).
It just declares aliases in a format understood by the dynamic loader of the Windows kernel (I think the real name for these things is export forwarder). When you open the generated dll with depends.exe you can see the entry points as special forwarding entry points.
It is smaller (6-7kB against 14kB).
It has fewer dependencies: you only need the compiler, you don't need the import library, you don't need the headers.

The first one, mkforwardlib.lua, requires Visual C++. It has been tested with Visual C++ 2005 Express, and with the free Visual C++ for AMD64 and IA64 platforms available with the Microsoft Platform SDK. If you use another version of Visual C++ you will have to put the path to link.exe in the VCPATH environment variable.

The second one, mkforwardlib-gcc.lua, requires GCC. It has been tested with MinGW 5.0.2 for x86.

mkforwardlib.lua:

local reallib

local fakelib

local machine

local extrasymbols = {}



local args = {...}

local errmsg

if args[1] then reallib = args[1] end

if args[2] then fakelib = args[2] end

if args[3] then machine = args[3] end

for i=4,#args do

	table.insert(extrasymbols, args[i])

end



if #args<3 then

	errmsg = "not enough parameters"

elseif not ({X86=true, AMD64=true, IA64=true})[machine] then

	errmsg = "'"..machine.."' is not a recognized machine architecture"

end

if errmsg then

	if errmsg then io.stderr:write("Error: "..errmsg.."\n") end

	io.stderr:write[[

Usage: mkforwardlib <reallib> <fakelib> <machine> [<extrasymbols>...]



    reallib         The name of the existing dll that you want to use.

    fakelib         The name of the fake dll that you want to create and that

                    will call the reallib instead.

    machine         The hardware architecture of your windows version among:

                    X86, AMD64, IA64

    extrasymbols    Additionnal symbols to export beyond standard Lua symbols

                    (if you have a very custom Lua dll).



Example: mkforwardlib lua51.dll lua5.1.dll X86

]]

	-- :TODO: add support for AM33, ARM, CEE, EBC, M32R, MIPS, MIPS16, MIPSFPU, MIPSFPU16, MIPSR41XX, SH4, SH5, THUMB

	os.exit(0)

end



local VisualC = os.getenv('VCPATH')

if not VisualC then

	if machine=='AMD64' then

		local PlatformSDK = assert(os.getenv"MSSDK", "MSSDK environment variable is not set, please set it to the path to your Platform SDK")

		VisualC = PlatformSDK.."\\Bin\\win64\\x86\\AMD64"

	elseif machine=='IA64' then

		local PlatformSDK = assert(os.getenv"MSSDK", "MSSDK environment variable is not set, please set it to the path to your Platform SDK")

		VisualC = PlatformSDK.."\\Bin\\win64"

	else

	--	local VisualCRoot = (os.getenv"PROGRAMFILES(X86)" or os.getenv"PROGRAMFILES").."\\Microsoft Visual Studio .NET 2003\\Vc7"

		local VisualCRoot = (os.getenv"PROGRAMFILES(X86)" or os.getenv"PROGRAMFILES").."\\Microsoft Visual Studio 8\\VC"

		VisualC = VisualCRoot.."\\bin"

	end

end



local symbols = {

	"luaL_addlstring",

	"luaL_addstring",

	"luaL_addvalue",

	"luaL_argerror",

	"luaL_buffinit",

	"luaL_callmeta",

	"luaL_checkany",

	"luaL_checkinteger",

	"luaL_checklstring",

	"luaL_checknumber",

	"luaL_checkoption",

	"luaL_checkstack",

	"luaL_checktype",

	"luaL_checkudata",

	"luaL_error",

	"luaL_findtable",

	"luaL_getmetafield",

	"luaL_gsub",

	"luaL_loadbuffer",

	"luaL_loadfile",

	"luaL_loadstring",

	"luaL_newmetatable",

	"luaL_newstate",

	"luaL_openlib",

	"luaL_openlibs",

	"luaL_optinteger",

	"luaL_optlstring",

	"luaL_optnumber",

	"luaL_prepbuffer",

	"luaL_pushresult",

	"luaL_ref",

	"luaL_register",

	"luaL_typerror",

	"luaL_unref",

	"luaL_where",

	"lua_atpanic",

	"lua_call",

	"lua_checkstack",

	"lua_close",

	"lua_concat",

	"lua_cpcall",

	"lua_createtable",

	"lua_dump",

	"lua_equal",

	"lua_error",

	"lua_gc",

	"lua_getallocf",

	"lua_getfenv",

	"lua_getfield",

	"lua_gethook",

	"lua_gethookcount",

	"lua_gethookmask",

	"lua_getinfo",

	"lua_getlocal",

	"lua_getmetatable",

	"lua_getstack",

	"lua_gettable",

	"lua_gettop",

	"lua_getupvalue",

	"lua_insert",

	"lua_iscfunction",

	"lua_isnumber",

	"lua_isstring",

	"lua_isuserdata",

	"lua_lessthan",

	"lua_load",

	"lua_newstate",

	"lua_newthread",

	"lua_newuserdata",

	"lua_next",

	"lua_objlen",

	"lua_pcall",

	"lua_pushboolean",

	"lua_pushcclosure",

	"lua_pushfstring",

	"lua_pushinteger",

	"lua_pushlightuserdata",

	"lua_pushlstring",

	"lua_pushnil",

	"lua_pushnumber",

	"lua_pushstring",

	"lua_pushthread",

	"lua_pushvalue",

	"lua_pushvfstring",

	"lua_rawequal",

	"lua_rawget",

	"lua_rawgeti",

	"lua_rawset",

	"lua_rawseti",

	"lua_remove",

	"lua_replace",

	"lua_resume",

	"lua_setallocf",

	"lua_setfenv",

	"lua_setfield",

	"lua_sethook",

	"lua_setlocal",

	"lua_setmetatable",

	"lua_settable",

	"lua_settop",

	"lua_setupvalue",

	"lua_status",

	"lua_toboolean",

	"lua_tocfunction",

	"lua_tointeger",

	"lua_tolstring",

	"lua_tonumber",

	"lua_topointer",

	"lua_tothread",

	"lua_touserdata",

	"lua_type",

	"lua_typename",

	"lua_xmove",

	"lua_yield",

--	"luaopen_base",

--	"luaopen_debug",

--	"luaopen_io",

--	"luaopen_math",

--	"luaopen_os",

--	"luaopen_package",

--	"luaopen_string",

--	"luaopen_table",

}



local command = {

	'"'..VisualC..'\\link.exe"',

	" -dll",

	" -nologo",

	" -noentry",

	" -machine:"..machine,

	" -incremental:no",

	" -nodefaultlib",

	" -out:"..fakelib..".dll",

	" -implib:"..fakelib..".lib",

}



for _,symbol in ipairs(symbols) do

	table.insert(command," /export:"..symbol.."="..reallib.."."..symbol)

end

for _,symbol in ipairs(extrasymbols) do

	table.insert(command," /export:"..symbol.."="..reallib.."."..symbol)

end



os.execute('"'..table.concat(command)..'"')

mkforwardlib-gcc.lua:

local reallib

local fakelib

local machine

local extrasymbols = {}



local args = {...}

local errmsg

if args[1] then reallib = args[1] end

if args[2] then fakelib = args[2] end

if args[3] then machine = args[3] end

for i=4,#args do

	table.insert(extrasymbols, args[i])

end



if #args<3 then errmsg = "not enough parameters" end

if not ({X86=true})[machine] then errmsg = "'"..machine.."' is not a recognized machine architecture" end

if errmsg then

	if errmsg then io.stderr:write("Error: "..errmsg.."\n") end

	io.stderr:write[[

Usage: mkforwardlib-gcc <reallib> <fakelib> <machine> [<extrasymbols>...]



    reallib         The name of the existing dll that you want to use.

    fakelib         The name of the fake dll that you want to create and that

                    will call the reallib instead.

    machine         The hardware architecture of your windows version among:

                    X86

    extrasymbols    Additionnal symbols to export beyond standard Lua symbols

                    (if you have a very custom Lua dll).



Example: mkforwardlib lua51.dll lua5.1.dll X86

]]

	-- :TODO: add support for AMD64, IA64, AM33, ARM, CEE, EBC, M32R, MIPS, MIPS16, MIPSFPU, MIPSFPU16, MIPSR41XX, SH4, SH5, THUMB

	os.exit(0)

end



local symbols = {

	"luaL_addlstring",

	"luaL_addstring",

	"luaL_addvalue",

	"luaL_argerror",

	"luaL_buffinit",

	"luaL_callmeta",

	"luaL_checkany",

	"luaL_checkinteger",

	"luaL_checklstring",

	"luaL_checknumber",

	"luaL_checkoption",

	"luaL_checkstack",

	"luaL_checktype",

	"luaL_checkudata",

	"luaL_error",

	"luaL_findtable",

	"luaL_getmetafield",

	"luaL_gsub",

	"luaL_loadbuffer",

	"luaL_loadfile",

	"luaL_loadstring",

	"luaL_newmetatable",

	"luaL_newstate",

	"luaL_openlib",

	"luaL_openlibs",

	"luaL_optinteger",

	"luaL_optlstring",

	"luaL_optnumber",

	"luaL_prepbuffer",

	"luaL_pushresult",

	"luaL_ref",

	"luaL_register",

	"luaL_typerror",

	"luaL_unref",

	"luaL_where",

	"lua_atpanic",

	"lua_call",

	"lua_checkstack",

	"lua_close",

	"lua_concat",

	"lua_cpcall",

	"lua_createtable",

	"lua_dump",

	"lua_equal",

	"lua_error",

	"lua_gc",

	"lua_getallocf",

	"lua_getfenv",

	"lua_getfield",

	"lua_gethook",

	"lua_gethookcount",

	"lua_gethookmask",

	"lua_getinfo",

	"lua_getlocal",

	"lua_getmetatable",

	"lua_getstack",

	"lua_gettable",

	"lua_gettop",

	"lua_getupvalue",

	"lua_insert",

	"lua_iscfunction",

	"lua_isnumber",

	"lua_isstring",

	"lua_isuserdata",

	"lua_lessthan",

	"lua_load",

	"lua_newstate",

	"lua_newthread",

	"lua_newuserdata",

	"lua_next",

	"lua_objlen",

	"lua_pcall",

	"lua_pushboolean",

	"lua_pushcclosure",

	"lua_pushfstring",

	"lua_pushinteger",

	"lua_pushlightuserdata",

	"lua_pushlstring",

	"lua_pushnil",

	"lua_pushnumber",

	"lua_pushstring",

	"lua_pushthread",

	"lua_pushvalue",

	"lua_pushvfstring",

	"lua_rawequal",

	"lua_rawget",

	"lua_rawgeti",

	"lua_rawset",

	"lua_rawseti",

	"lua_remove",

	"lua_replace",

	"lua_resume",

	"lua_setallocf",

	"lua_setfenv",

	"lua_setfield",

	"lua_sethook",

	"lua_setlocal",

	"lua_setmetatable",

	"lua_settable",

	"lua_settop",

	"lua_setupvalue",

	"lua_status",

	"lua_toboolean",

	"lua_tocfunction",

	"lua_tointeger",

	"lua_tolstring",

	"lua_tonumber",

	"lua_topointer",

	"lua_tothread",

	"lua_touserdata",

	"lua_type",

	"lua_typename",

	"lua_xmove",

	"lua_yield",

--	"luaopen_base",

--	"luaopen_debug",

--	"luaopen_io",

--	"luaopen_math",

--	"luaopen_os",

--	"luaopen_package",

--	"luaopen_string",

--	"luaopen_table",

}



local def = io.open("lib"..fakelib..".def", "wb")

def:write("EXPORTS\n")

if reallib:find("%.") then

	reallib = '"'..reallib..'"'

end

for _,symbol in ipairs(symbols) do

	def:write(""..symbol.."="..reallib.."."..symbol.."\n")

end

for _,symbol in ipairs(extrasymbols) do

	def:write(""..symbol.."="..reallib.."."..symbol.."\n")

end

def:close()



os.execute('"'..table.concat({

	'gcc',

--	" -shared", -- this option seem to be incompatible with -nostartfiles

	" -o "..fakelib..".dll",

	" -nostartfiles",

	" lib"..fakelib..".def",

})..'"')



os.execute('"'..table.concat({

	'strip',

	" --strip-unneeded",

	" "..fakelib..".dll",

})..'"')

-- JeromeVuarand

This is the same script as above with few modifications to make it work with Lua 5.2:

mkforwardlib-gcc-52.lua:

local reallib

local fakelib

local machine

local extrasymbols = {}



local args = {...}

local errmsg

if args[1] then reallib = args[1] end

if args[2] then fakelib = args[2] end

if args[3] then machine = args[3] end

for i=4,#args do

	table.insert(extrasymbols, args[i])

end



if #args<3 then errmsg = "not enough parameters" end

if not ({X86=true})[machine] then errmsg = "'"..machine.."' is not a recognized machine architecture" end

if errmsg then

	if errmsg then io.stderr:write("Error: "..errmsg.."\n") end

	io.stderr:write[[

Usage: mkforwardlib-gcc <reallib> <fakelib> <machine> [<extrasymbols>...]



    reallib         The name of the existing dll that you want to use.

    fakelib         The name of the fake dll that you want to create and that

                    will call the reallib instead.

    machine         The hardware architecture of your windows version among:

                    X86

    extrasymbols    Additionnal symbols to export beyond standard Lua symbols

                    (if you have a very custom Lua dll).



Example: mkforwardlib lua52 lua5.2 X86

]]

	-- :TODO: add support for AMD64, IA64, AM33, ARM, CEE, EBC, M32R, MIPS, MIPS16, MIPSFPU, MIPSFPU16, MIPSR41XX, SH4, SH5, THUMB

	os.exit(0)

end



local symbols = {

        'luaL_addlstring',

        'luaL_addstring',

        'luaL_addvalue',

        'luaL_argerror',

        'luaL_buffinit',

        'luaL_buffinitsize',

        'luaL_callmeta',

        'luaL_checkany',

        'luaL_checkinteger',

        'luaL_checklstring',

        'luaL_checknumber',

        'luaL_checkoption',

        'luaL_checkstack',

        'luaL_checktype',

        'luaL_checkudata',

        'luaL_checkunsigned',

        'luaL_checkversion_',

        'luaL_error',

        'luaL_execresult',

        'luaL_fileresult',

        'luaL_getmetafield',

        'luaL_getsubtable',

        'luaL_gsub',

        'luaL_len',

        'luaL_loadbufferx',

        'luaL_loadfilex',

        'luaL_loadstring',

        'luaL_newmetatable',

        'luaL_newstate',

        'luaL_openlib',

        'luaL_openlibs',

        'luaL_optinteger',

        'luaL_optlstring',

        'luaL_optnumber',

        'luaL_optunsigned',

        'luaL_prepbuffsize',

        'luaL_pushmodule',

        'luaL_pushresult',

        'luaL_pushresultsize',

        'luaL_ref',

        'luaL_requiref',

        'luaL_setfuncs',

        'luaL_setmetatable',

        'luaL_testudata',

        'luaL_tolstring',

        'luaL_traceback',

        'luaL_unref',

        'luaL_where',

        'lua_absindex',

        'lua_arith',

        'lua_atpanic',

        'lua_callk',

        'lua_checkstack',

        'lua_close',

        'lua_compare',

        'lua_concat',

        'lua_copy',

        'lua_createtable',

        'lua_dump',

        'lua_error',

        'lua_gc',

        'lua_getallocf',

        'lua_getctx',

        'lua_getfield',

        'lua_getglobal',

        'lua_gethook',

        'lua_gethookcount',

        'lua_gethookmask',

        'lua_getinfo',

        'lua_getlocal',

        'lua_getmetatable',

        'lua_getstack',

        'lua_gettable',

        'lua_gettop',

        'lua_getupvalue',

        'lua_getuservalue',

        'lua_insert',

        'lua_iscfunction',

        'lua_isnumber',

        'lua_isstring',

        'lua_isuserdata',

        'lua_len',

        'lua_load',

        'lua_newstate',

        'lua_newthread',

        'lua_newuserdata',

        'lua_next',

        'lua_pcallk',

        'lua_pushboolean',

        'lua_pushcclosure',

        'lua_pushfstring',

        'lua_pushinteger',

        'lua_pushlightuserdata',

        'lua_pushlstring',

        'lua_pushnil',

        'lua_pushnumber',

        'lua_pushstring',

        'lua_pushthread',

        'lua_pushunsigned',

        'lua_pushvalue',

        'lua_pushvfstring',

        'lua_rawequal',

        'lua_rawget',

        'lua_rawgeti',

        'lua_rawgetp',

        'lua_rawlen',

        'lua_rawset',

        'lua_rawseti',

        'lua_rawsetp',

        'lua_remove',

        'lua_replace',

        'lua_resume',

        'lua_setallocf',

        'lua_setfield',

        'lua_setglobal',

        'lua_sethook',

        'lua_setlocal',

        'lua_setmetatable',

        'lua_settable',

        'lua_settop',

        'lua_setupvalue',

        'lua_setuservalue',

        'lua_status',

        'lua_toboolean',

        'lua_tocfunction',

        'lua_tointegerx',

        'lua_tolstring',

        'lua_tonumberx',

        'lua_topointer',

        'lua_tothread',

        'lua_tounsignedx',

        'lua_touserdata',

        'lua_type',

        'lua_typename',

        'lua_upvalueid',

        'lua_upvaluejoin',

        'lua_version',

        'lua_xmove',

        'lua_yieldk',

--      'luaopen_base',

--      'luaopen_bit32',

--      'luaopen_coroutine',

--      'luaopen_debug',

--      'luaopen_io',

--      'luaopen_math',

--      'luaopen_os',

--      'luaopen_package',

--      'luaopen_string',

--      'luaopen_table',

}



local def = io.open(fakelib..".def", "wb")

def:write("EXPORTS\n")

if reallib:find("%.") then

	reallib = '"'..reallib..'"'

end

for _,symbol in ipairs(symbols) do

--	def:write(""..reallib.."."..symbol.."="..reallib.."."..symbol.."\n")

	def:write(""..symbol.."="..reallib.."."..symbol.."\n")

end

for _,symbol in ipairs(extrasymbols) do

--	def:write(""..reallib.."."..symbol.."="..reallib.."."..symbol.."\n")

	def:write(""..symbol.."="..reallib.."."..symbol.."\n")

end

def:close()



os.execute('"'..table.concat({

	'gcc',

--	" -shared", -- this option seem to be incompatible with -nostartfiles

	" -o "..fakelib..".dll",

	" -nostartfiles",

	" "..fakelib..".def",

})..'"')



os.execute('"'..table.concat({

	'strip',

	" --strip-unneeded",

	" "..fakelib..".dll",

})..'"')

-- PaulKulchenko?

Lua Proxy Dll Three

See Also