blob: a2d0f1876e90998e9727e2c46aa803dc9775d8bd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
-- shows how replacing '@see module' in the Markdown documentation
-- can be done more elegantly using PL.
-- We either have something like 'pl.config' (a module reference)
-- or 'pl.seq.map' (a function reference); these cases must be distinguished
-- and a Markdown link generated pointing to the LuaDoc file.
local sip = require 'pl.sip'
local stringx = require 'pl.stringx'
local res = {}
local s = [[
(@see pl.bonzo.dog)
remember about @see pl.bonzo
]]
local _gsub_patterns = {}
local function gsub (s,pat,subst,start)
local fpat = _gsub_patterns[pat]
if not fpat then
-- use SIP to generate a proper string pattern.
-- the _whole thing_ is a capture, to get the whole match
-- and the unnamed capture.
fpat = '('..sip.create_pattern(pat)..')'
_gsub_patterns[pat] = fpat
end
return s:gsub(fpat,subst,start)
end
local mod = sip.compile '$v.$v'
local fun = sip.compile '$v.$v.$v'
for line in stringx.lines(s) do
line = gsub(line,'@see $p',function(see,path)
if fun(path,res) or mod(path,res) then
local ret = ('[see %s](%s.%s.html'):format(path,res[1],res[2])
if res[3] then
return ret..'#'..res[3]..')'
else
return ret..')'
end
end
end)
print(line)
end
|
