--
-- Simple tool to generate Markdown for functional
--
 
output = assert(io.open('functional.mkd', "w"))
 
-- First pull in README
input = assert(io.open('README'))
output:write(input:read("*a"))
input:close()
 
-- Then pull in the function reference from the source
output:write("### Function Reference {#reference}\n\n")
input = assert(io.open('functional.lua'))
for line in input:lines() do
    if in_block_comment then
        s, e, m = line:find("(.-)]]")
        if s then
            line = m .. "\n"
            in_block_comment = false
        end
 
        output:write(line .. "\n")
    elseif in_single_comment then
        s, e, m = line:find("%-%-%s?(.*)")
        if s then
            buffer = buffer .. m .. "\n"
        else
            in_single_comment = false
            _, _, name = line:find("^function%s-([%w_]+)")
            if name then
                output:write("#### " .. line .. " {#" .. name .. "}\n" .. buffer .. "\n")
            end
            buffer = ""
        end
    else
        if (line:match("%-%-%[%[%[")) then
            in_block_comment = true
        else
            match = line:match("^%-%-%s?(.*)")
            if match then
                buffer = match .. "\n"
                in_single_comment = true
            end
        end
    end
end
 
input:close()
output:close()