bin2c
[
Date Prev][
Date Next][
Thread Prev][
Thread Next]
[
Date Index]
[
Thread Index]
- Subject: bin2c
- From: Asko Kauppi <asko.kauppi@...>
- Date: 2004年1月29日 03:00:33 +0200
Here's a 'lualized' version of 'etc/bin2c.c' found in the Lua 5.0.1
package.
I didn't exactly need it, but compiling bin2c.c separately for each
platform
didn't seem such a good idea.
I've also fixed a 'feature' that caused warnings when compiled on Win32,
if the filenames used had subpaths within them (s.a. "temp\whatever").
-ak
--
-- BIN2C.LUA
--
-- Convert files to byte arrays for automatic loading with lua_dobuffer
--
-- Based on 'etc/bin2c.c' of Lua 5.0.1 sources by:
-- Luiz Henrique de Figueiredo (lhf@tecgraf.puc-rio.br)
--
-- Fixed so that subdirectory names are not included in debug info:
-- Asko Kauppi (asko.kauppi@sci.fi)
--
--
local function dump( f, id )
local str= "static const unsigned char B"..id.."[]={\n"
while true do
for n=1,20 do
local c= f:read(1)
if not c then
print( str.."\n};\n" ); return -- the end
end
str= str.. string.format( "%3u,", string.byte(c) )
end
print(str)
str= ""
end
end
--
local function fdump( fn, id )
--
local f= io.open( fn, "rb" ) -- must open as binary
if not f then
error( "bin2c: cannot open "..fn )
else
print( "/* "..fn.." */" )
dump( f, id )
f:close()
end
end
--
local function emit( fn, id )
local _,_, base= string.find( fn, ".+[/\\](.-)$" ) -- remove path
print( ' lua_dobuffer(L,(const
char*)B'..id..',sizeof(B'..id..'),"'..(base or fn)..'");' )
end
--
local function main( argv )
--
print "/* code automatically generated by bin2c -- DO NOT EDIT */"
print "{"
if not argv[1] then -- use stdin (no params)
--
if os.getenv("WINDIR") then
error "using stdin not allowed on Win32!" -- it wouldn't
be binary
end
dump(io.stdin,0)
emit("=stdin",0)
else
print "/* #include'ing this file in a C program is equivalent
to calling"
for _,v in ipairs(argv) do
print( ' lua_dofile(L,"'..
string.gsub(v,'\\','\\\\')..'");' )
end
print "*/"
for i,v in ipairs(argv) do fdump(v,i) end
for i,v in ipairs(argv) do emit(v,i) end
end
print "}"
return 0
end
return main(arg)