64 lines
1.8 KiB
Lua
64 lines
1.8 KiB
Lua
|
#!/usr/bin/lua
|
||
|
|
-- Generate documentation for awesome Lua functions
|
||
|
|
-- Take a .c file in stdin
|
||
|
|
|
||
|
|
function string.comment_clean(str)
|
||
|
|
local s = str:gsub("/%*%* ", " ")
|
||
|
|
s = s:gsub(" %* ", " ")
|
||
|
|
s = s:gsub("\\param", "\n\n Parameter:")
|
||
|
|
s = s:gsub("\\return", "\n\n Return:")
|
||
|
|
return s
|
||
|
|
end
|
||
|
|
|
||
|
|
-- Read all the files in lines
|
||
|
|
lines = io.read("*all")
|
||
|
|
|
||
|
|
ilines = {}
|
||
|
|
|
||
|
|
-- read the lines in table `ilines'
|
||
|
|
for line in lines:gmatch("[^\r\n]+") do
|
||
|
|
table.insert(ilines, line)
|
||
|
|
end
|
||
|
|
|
||
|
|
-- Store function documentations in an array
|
||
|
|
function_doc = {}
|
||
|
|
for i, line in ipairs(ilines) do
|
||
|
|
if line:find("^/%*%*") then
|
||
|
|
comment_start = true
|
||
|
|
comment = line
|
||
|
|
elseif line:find("%*/") then
|
||
|
|
comment_start = false
|
||
|
|
local l = ilines[i + 2]
|
||
|
|
local fctname
|
||
|
|
_, _, fctname = l:find("^(.+)%(")
|
||
|
|
if fctname then
|
||
|
|
function_doc[fctname] = comment
|
||
|
|
end
|
||
|
|
comment = nil
|
||
|
|
elseif comment_start then
|
||
|
|
comment = comment .. line
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
-- Get function list and print their documentation
|
||
|
|
capture = false
|
||
|
|
for i, line in ipairs(ilines) do
|
||
|
|
if not libname then
|
||
|
|
_, _, libname, libtype = line:find("const struct luaL_reg awesome_(%a+)_(%a+)%[%] =")
|
||
|
|
-- Special case
|
||
|
|
if not libname then _, _, libname, libtype = line:find("const struct luaL_reg (awesome)_(lib)%[%] =") end
|
||
|
|
else
|
||
|
|
if line:find("};") then
|
||
|
|
libname = nil
|
||
|
|
else
|
||
|
|
local fctname, fctdef
|
||
|
|
_, _, fctname, fctdef = line:find("\"(.+)\", (.+) },")
|
||
|
|
if fctname and function_doc[fctdef] then
|
||
|
|
if libtype == "meta" then sep = ":" else sep = "." end
|
||
|
|
print("*" .. libname .. sep .. fctname .. "*::")
|
||
|
|
print(function_doc[fctdef]:comment_clean())
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|