LDoc2tl/ldoc/prettify.lua

-- Making Lua source code look pretty.
-- A simple scanner based prettifier, which scans comments for @{ref} and code
-- for known modules and functions.
-- A module reference to an example `test-fun.lua` would look like
-- `@{example:test-fun}`.
require 'pl'
local lexer = require 'ldoc.lexer'
local markup = require 'ldoc.markup'
local tnext = lexer.skipws
local prettify = {}

local escaped_chars = {
   ['&'] = '&',
   ['<'] = '&lt;',
   ['>'] = '&gt;',
}
local escape_pat = '[&<>]'

local function escape(str)
   return (str:gsub(escape_pat,escaped_chars))
end

local function span(t,val)
   return ('<span class="%s">%s</span>'):format(t,val)
end

local function link(file,ref,text)
   text = text or ref
   return ('<a class="L" href="%s.html#%s">%s</a>'):format(file,ref,text)
end

local spans = {keyword=true,number=true,string=true,comment=true}

function prettify.lua (code)
   local res = List()
   res:append(header)
   res:append '<pre>\n'

   local tok = lexer.lua(code,{},{})
   local t,val = tok()
   if not t then return nil,"empty file" end
   while t do
      val = escape(val)
      if spans[t] then
         if t == 'comment' then -- may contain @{ref}
            val = markup.resolve_inline_references(val)
         end
         res:append(span(t,val))
      else
         res:append(val)
      end
      t,val = tok()
   end
   res:append(footer)
   return res:join ()
end

return prettify

--[[
         if t == 'iden' then
            local tn,vn = tnext(tok)
            if tn == '.' then

            else
               res:append(tn)
               res:append(val)
            end
         else
            res:append(val)
         end
]]