41 lines
854 B
Lua
Executable File
41 lines
854 B
Lua
Executable File
#!/usr/bin/env lua
|
|
|
|
local lfs = require("lfs")
|
|
|
|
function procLine(ln)
|
|
ln = ln:gsub('\\', "\\\\")
|
|
ln = ln:gsub('\"', "\\\"")
|
|
return ln
|
|
end
|
|
|
|
function procFile(out, dir, fname)
|
|
out:write("\"" .. dir .. '/' .. fname .. "\" =")
|
|
for ln in io.lines(dir .. '/' .. fname) do
|
|
out:write("\n \"" .. procLine(ln) .. "\\n\"")
|
|
end
|
|
out:write(";\n");
|
|
end
|
|
|
|
function procDir(out, dir)
|
|
for fname in lfs.dir(dir) do
|
|
local attr = lfs.attributes(dir .. '/' .. fname)
|
|
|
|
if fname:sub(1, 1) ~= '.' then
|
|
if attr.mode == "directory" then
|
|
procDir(out, dir .. '/' .. fname)
|
|
elseif attr.mode == "file" then
|
|
procFile(out, dir, fname)
|
|
end
|
|
end
|
|
end
|
|
end
|
|
|
|
function main(out)
|
|
out:write("[default]\n\n")
|
|
procDir(out, "lithos_fs")
|
|
end
|
|
|
|
main(io.open("language.fs.txt", "w"))
|
|
|
|
-- EOF
|