Module:Sandbox/Jts1882/Test

pattern = "{{#tag:section||begin=Test}}(.+){{#tag:section||end=Test}}"

local value = string.match( content , pattern )

if value then

return frame:preprocess(value)

--return value

else

return "no match found"

end

return content

end

return "Hello"

end

--================================== exclude LABEL ================================================

p.xlabel = function (frame, page, ...)

local page = frame.args[1] --"User:Jts1882/sandbox/test/Passeriformes"

local label = frame.args[1] or frame.args['label'] or frame.args['label1']

-- page , target tree, subtrees to exclude ...

-- page, include clade, multple clades to exclude |

return p._xlabel (frame, page, frame.args[2], frame.args[3], frame.args[4], frame.args[5])

end

p._xlabel = function (frame, page, target, ...)

-- local page = "User:Jts1882/sandbox/test/Passeriformes"

-- local label = frame.args[1] or frame.args['label']

local args = { ... }

local output = ""

if not args[1] then return p.errormsg ("Label name not provided") end

local fullOutput = p._label(frame, page, target)

--local fullOutput = p._section(frame, page, target)

output=fullOutput

local title = mw.title.new( mw.text.trim(page)) -- , ns) -- creates object if page doesn't exist (and valid page name)

--TODO: could use mw.title.makeTitle(), but that needs ns

if title and title.exists then

local content = title:getContent()

for k,v in pairs(args) do

local section = mw.text.trim(v)

local targetType = "label%d"

local cladePrefix = "%d"

if string.upper( section) == section then

targetType = "target%u" -- by convention subtrees must be uppercase

cladePrefix = "subclade%u"

end

-- label = name |n= {...}

local pattern = "("..targetType.."=[%s%p]*"..section .. "[%s%p]*.-"..cladePrefix.."=.-)(%b{})"

-- ^^ this .- skips section tags before clade

-- ^^this .- skips |sublabel and styling following the label (but can return wrong clade when a subtree)

--for value in string.gmatch( fullOutput , pattern ) do

local value = string.match( fullOutput , pattern )

if value then

local trimmedTree, matches = string.gsub(fullOutput, pattern, "%1".."replacement string")--replaces pattern with capture %1

--output = output .. trimmedTree

--output = output .. "

" .. trimmedTree .. "

fullOutput = trimmedTree

else

output = output .. p.errormsg ("Failed to capture subclade with label "..section)

end

end

else

return 'No page title found'

end

if output ~= "" then

return frame:preprocess(fullOutput)

else

return 'Section for label not found'

end

end

--=============================== extract LABELS or SUBTREES=======================================

p.label = function (frame, page, ...)

local page = frame.args[1] --"User:Jts1882/sandbox/test/Passeriformes"

local label = frame.args[1] or frame.args['label'] or frame.args['label1']

local wrap = frame.args['wrap']

local output = p._label (frame, page, frame.args[2], frame.args[3], frame.args[4], frame.args[5] )

if wrap then

local label1 = string.lower(frame.args[2])

if wrap ~= "" then label1 = wrap end

output = "{{clade |label1=" .. p.firstToUpper(label1) .. "|1=" .. output .. "}}"

end

return frame:preprocess(output)

end

p._label = function (frame, page, ... )

-- local page = "User:Jts1882/sandbox/test/Passeriformes"

-- local label = frame.args[1] or frame.args['label']

local args = { ... }

local output = ""

if not args[1] then return p.errormsg ("Label name not provided") end

local title = mw.title.new( mw.text.trim(page)) -- , ns) -- creates object if page doesn't exist (and valid page name)

--TODO: could use mw.title.makeTitle(), but that needs ns

if title and title.exists then

local content = title:getContent()

local targetType = "label%d"

local cladePrefix = "%d"

for k,v in pairs(args) do

local section = mw.text.trim(v)

if string.upper( section) == section then

targetType = "target%u" -- by convention subtrees must be uppercase

cladePrefix = "subclade%u"

end

-- label = name |n= {...}

--local pattern = "label%d=[%s%p]*"..section .. "[%s%p]*%d=(%b{})"

-- the .- skips section tags before clade

--local pattern = "label%d=[%s%p]*"..section .. "[%s%p]*%d=.-(%b{})"

-- this .- skips |sublabel and styling following the label (but can return wrong clade when a subtree)

--local pattern = "label%d=[%s%p]*"..section .. ".-%d=.-(%b{})"

local pattern = targetType.."=[%s%p]*"..section .. "[%s%p]*.-"..cladePrefix.."=.-(%b{})"

-- for subtrees (how to capture right )

--local pattern = "[%u]=[%s%p]*"..section .. ".-%d=.-(%b{})"

local value = string.match( content , pattern )

if value then

-- what if we have something like {FABIDS} "{%u}"

local pattern = "({%u-})"

if string.find(value, pattern ) then -- if a subtree that hasn't been substituted.

--local i,j,target = string.find(value, pattern) -- only one subtree

for target in string.gmatch( value , pattern ) do

local subtree = p._label (frame, page, target)

if subtree then

value = string.gsub(value, target, subtree)

end

--return value

--value = value .. " (subtree needs transcluding)"

end

end

--if (1==1) then return "Captured pattern=" .. (value or "no match") end

section = string.lower(section)

output = output .. value

--output = output .. "{{clade |label1=" .. p.firstToUpper(section) .. "|1=" .. value .. "}}"

else

output = output .. p.errormsg ("Failed to capture subclade with label "..section)

end

end

else

return 'No page title found'

end

if output ~= "" then

--return frame:preprocess(output)

return output -- preprocess in entry function

else

return 'Section for label not found'

end

end

p.section = function (frame)

-------------------------target page ---- sections

return frame:preprocess(p._section(frame, mw.text.trim(frame.args[1]),frame.args[2],frame.args[3],frame.args[4],frame.args[5]))

end

p._section = function (frame,page,...)

local args = { ... }

local output = ""

local title = mw.title.new( page) -- , ns) -- creates object if page doesn't exist (and valid page name)

--TODO: could use mw.title.makeTitle(), but that needs ns

if title and title.exists then

local content = title:getContent()

content = string.gsub( content , "%<%!%-%-.-%-%-%>", "" ) -- strip out comments

for k,v in pairs(args) do

local section = mw.text.trim(v)

--[[ note: using the non-greedy - in (.-) to allow capture of several sections

this allows internal clade structures to be closed without capturing sisters clades

e.g. see section Tyranni in User:Jts1882/sandbox/test/Passeriformes

]]

local pattern = "

" .. trimmedTree .. "