stack.write()        -- this code hasn't been updated - it doesn't contain all the information needed to resume a run!        local stackcrypt = ""        for i = stack.top, 1, -1 do        	table.insert(outtable, table.concat(stack[i].text))                stackcrypt = stackcrypt .. stack[i].feature                stack[i] = {}        end        stack.top = 0        stackcrypt=string.gsub(stackcrypt,"{","<")        stackcrypt=string.gsub(stackcrypt,"%[","(")        stackcrypt=string.gsub(stackcrypt,"}",">")        stackcrypt=string.gsub(stackcrypt,"%]",")")        if string.len(text) >= MAXPOSN then -- didn't complete the run, making false promises to the user now:            stack[stack.top].out = stack[stack.top].out .. "
''Note: due to restrictions on Lua time usage, runs are truncated at MAXPOSN characters''"

            stack[stack.top].out = stack[stack.top].out .. "
''To continue this run, preview or enter {{#invoke:FormatTemplate|toModule|page="..template.."|stack="..stackcrypt.."|position="..#text.."}}"        else stack[stack.top].out = stack[stack.top].out .. "<br />''If you have an additional segment of template to process, preview or enter <nowiki>{{#invoke:FormatTemplate|toModule|page="..template.."|stack="..stackcrypt.."|position=0}}"        end    end    stack.write()    -- var table is the variable declarations; outtable is the statements (if t_1 == "" then t_1 = "stuff"); stack[0] is the return statement    output=table.concat(vartable) .. table.concat(outtable, "
") .. "
 -- end parser function translations

return frame:preprocess(" .. table.concat(stack[0].text, "
") .. ")
end
return p
 ---- end of module ----
"    return outputendfunction p._toModule(stackcrypt, posn)	-- none of this stack/posn stuff actually works any more, it's tremendously out of date!    stackcrypt=mw.ustring.gsub(stackcrypt,"<","{")    stackcrypt=mw.ustring.gsub(stackcrypt,"%(","[")    stackcrypt=mw.ustring.gsub(stackcrypt,">","}")    stackcrypt=mw.ustring.gsub(stackcrypt,"%)","]")    local stack={}    local prowl=mw.ustring.gmatch(stackcrypt,"[^,%s]+")    repeat        local x=prowl()        if x then table.insert(stack,x) end    until not x    local nowikisafehouse={}    local nowikielementnumber=0    local prowl=mw.ustring.gmatch(text,"(<nowiki>.-<%/nowiki>)")    repeat        local nowikimatch=prowl()        if not(nowikimatch) then break end        nowikimatch = mw.ustring.gsub(nowikimatch, "<", "<") -- I want these inactive on display        nowikielementnumber=nowikielementnumber+1        table.insert(nowikisafehouse,nowikimatch)    until false    local nowikicount    text, nowikicount = mw.ustring.gsub(text,"(<nowiki>.-<%/nowiki>)","<Module:FormatTemplate internal nowiki token>")    debuglog = debuglog .. "-- " .. tostring(nowikicount) .. " nowiki segments treated as plain text"    text = mw.ustring.gsub(text, "\", '\\\') -- trying preserving ALL newlines     -- this is the meat of the formatting    text=translateModule(text,stack,posn,page)     -- unprotect the nowikis from the template itself - but inactivate them on first display!    for nw = 1,nowikielementnumber do        text=mw.ustring.gsub(text,"<Module:FormatTemplate internal nowiki token>", nowikisafehouse[nw], 1)    end    text = "<nowiki>" .. text .. ""    -- returns global changes in text, debuglog

end

function nextquote(posn)

-- starting from a position that we know is not in a string, comment, etc.!

local quotes = {['(")'] = function() return '"' end,

["(')"] = function() return "'" end,

["(%[=+%[)"] = function(q) return "]" .. string.sub(q, 2, -2) .. "]" end}

    local startquoteposn = #text    local loc, xxx, startquotetype, endquotetype, endquoteposn

for k,v in pairs(quotes) do

loc, xxx, startquotetype = string.find(text, k, posn)

if (loc and loc < startquoteposn) then

startquoteposn = loc

endquotetype = v(startquotetype)

end

    end    if (startquoteposn == #text) then return nil end -- no more quotes!    xxx, endquoteposn = string.find(text, endquotetype, startquoteposn + 1)    return startquoteposn, endquoteposn, endquotetype

end

function p._fixIfs()

-- receives global 'text'

-- if a parser variable will only be used within "a few" if statements, only calculate it there.

-- (in theory this applies to params, but it's nicer to have a full table up front)

text = string.gsub(text, "\[^\]-%[TOKEN: DELETE LINE%][^\]-\", "\") -- finally clear up those delete line tokens. Might move to earlier pass...

local pdec = string.match(text, "local (p_.-)\")

assert(pdec, "failed to find 'local p_nnn...' variable list")

pdec = mw.text.split(pdec, ", ") -- pdec is now a sequence of all the p_nnn variables in the order they are first mentioned in the first pass code

local xxx, parssegstart, parssegend -- xxx = throwaway value. This function only messes with the scope of parser function evaluations.

xxx, parssegstart = string.find(text, "\%s%-%- begin parser function translations\")

parssegend = string.find(text, "\%s%-%- end parser function translations\", parssegstart)

debuglog = debuglog .. tostring(parssegstart) .. "FFF" .. tostring(parssegend)

local parsseg = string.sub(text, parssegstart, parssegend)

local parsarray = mw.text.split(parsseg, "\\")

-- parsarray is now made up of individual popped stack entries from the first pass. #if, #ifeq, #switch, for example.

local parsusages = {} -- which variables appear in one parsseg (dictionary)

local varusages = {} -- which parssegs a variable appears in (sequence)

for i = 1, #pdec do

varusages[pdec[i]] = {}

end

for i = 1, #parsarray do

local getvar = string.gmatch(parsarray[i], "(p_%d*)")

parsusages[i] = {}

repeat

var = getvar()

if not var then break end

debuglog = debuglog .. "-" .. var

parsusages[i][var] = true

table.insert(varusages[var], i)

until false

end

-- Now we go through the variables last to first. If a p_variable is used only in DUPLICATECASES or fewer "then XXX" statements, insert the code setting it after 'then'

for i = #pdec, 1, -1 do

local var = pdec[i]

if #varusages[var] <= DUPLICATECASES then

-- OK, now each variable ought to be assigned only the first time it is mentioned, used all the others

-- first, for now we're not trying to do anything with variables called in the decision making logic (the if, or assignment of p_nnn_in

local predicate = false

for c = 2, #varusages[var] do

                local xxx, predend = string.find(parsarray[i], "then\")                if not predend or string.find(string.sub(parsarray[i], 1, predend), var) then                	predicate = true                -- now figure out where/which line to substitute, but don't do it until all pass the test            end            if not predicate then            	-- substitute these segments, blank out the entries for the moved segment            end

end

end

end

text = mw.text.nowiki(text) -- just to mark for now

    debuglog = "\Debug data:\" .. mw.text.nowiki(debuglog)    -- returns global 'text', 'debuglog'

end

function p._fixConcats()

-- receives global 'text'

-- tokenize comments to avoid getting fouled

local outarray = {}

posn = 1

quote1 = {nextquote(1)}

repeat

quote2 = {nextquote(quote1[2]+1)}

if not quote2[1] then break end

-- do something with the concat if it's just a concat

if (mw.text.trim(string.sub(text, quote1[2] + 1, quote2[1] - 1)) == "..") then

if (quote1[3] == quote2[3]) then

table.insert(outarray, string.sub(text, posn, quote1[2] - 1))

posn = quote2[1] + 1

end

end

quote1 = quote2

until false

table.insert(outarray, string.sub(text, posn, -1))

text = "

" .. mw.text.nowiki(table.concat(outarray)) .. "

end

function p.main(frame,fcn)

    local args=frame.args    local parent=frame.getParent(frame)    if parent then pargs=parent.args else pargs={} end    page=args.page or pargs.page    text = getContent(page)    local stackcrypt=args.stack or pargs.stack or ""    local posn=args.position or pargs.position or 0     -- decide on a function    fcn=fcn or args["function"] or pargs["function"] or ""    fcn=mw.ustring.match(fcn,"%S+")    if (fcn == "toModule") then    	p._toModule(stackcrypt, posn) -- passing text, debuglog globally    elseif (fcn == "fixConcats") then    	p._fixConcats()    elseif (fcn == "fixIfs") then    	p._fixIfs()    end     -- preprocess as nowiki-bounded text    return frame:preprocess(text .. "\" .. debuglog)

end

function p.toModule(frame)

end

return p