モジュール:Dashのソースを表示

local p = {}

-- Main function that does the substitution
function p._dash(in_str, s, d, d2)
	local sp, se1, se2
	
	if s == "thin" then
    	sp = "&#x2009;"										-- U+2009 THIN SPACE
	elseif s == "hair" then
		sp = "&#x200A;"										-- U+200A HAIR SPACE
	elseif s == "space" then
		sp = " "											-- Regular space
	elseif s == "nbsp" then
	    sp = "&nbsp;"										-- U+00A0 NO-BREAK SPACE
    elseif s == "nnbsp" then
	    sp = "&#x202F;"										-- U+202F NARROW NO-BREAK SPACE
	else
		sp = ""												-- No space
	end
	
	if d == "long" then
		se1 = "&#x2014;"									-- U+2014 EM DASH
	elseif d == "med" or d == "medium" then
		se1 = "&#x2013;"									-- U+2013 EN DASH
	elseif d == "larr" or d == "oarr" then
		se1 = "&#x2190;"                                    -- U+2190 ← LEFTWARDS ARROW
	elseif d == "rarr" or d == "iarr" then
		se1 = "&#x2192;"                                    -- U+2192 → RIGHTWARDS ARROW
	else
		se1 = "-"											-- Hyphen-minus
	end
	
	if d2 == "long" then
		se2 = "&#x2014;"									-- U+2014 EM DASH
	elseif d2 == "med" or d2 == "medium" then
		se2 = "&#x2013;"									-- U+2013 EN DASH
	elseif d2 == "larr" or d == "iarr" then
		se2 = "&#x2190;"                                    -- U+2190 ← LEFTWARDS ARROW
	elseif d2 == "rarr" or d == "oarr" then
		se2 = "&#x2192;"                                    -- U+2192 → RIGHTWARDS ARROW
	elseif d2 == "short" then
		se1 = "-"											-- Hyphen-minus
	else
		se2 = ""
	end
	
	local result = ((se2 == nil or se2 == "")
		and in_str:gsub("[,|%s]*,%s+", sp .. se1 .. sp)
		or in_str:gsub(",%s*,%s+", sp .. se2 .. sp):gsub(",%s+", sp .. se1 .. sp))
	
	return result
end

-- Wrapper function for Template:Dash
function p.dashes(frame)
	local s = frame.args["s"]
	local d = frame.args["d"]
	local d2 = frame.args["d2"]
	local in_str = frame.args["input_str"]
	local debugg = frame.args["debug"]
	local result = p._dash(in_str, s, d, d2)
	
	if debugg == true then
		result = "<syntaxhighlight lang=\"wikitext\">" .. result .. "</syntaxhighlight>"
	end
	
	return frame:preprocess(result)
end

return p