Module:Mscore

Documentation for this module may be created at Module:Mscore/doc

score_version = '"2.18.2"'
page_namespace = 104

function error( txt )
	return '<span style="color:red">Error: incorrect use of Tscore template: ' .. txt .. '</span>'
end

function getnextpage( start, name )
	local stdargs = { start='', next='0', score='', cont='', width='180', layout='' }
	local wynik = { }
	local wynik2 = { }
	local strona, kod, kod2, kod3, kod4, n
	if string.match( name, '^Page:') == 'Page:' then
		name = string.sub( name, 8 )
	end
	strona = mw.title.makeTitle( 'Page', name )
	kod = strona:getContent()
	if kod == nil then
		return nil
	end
	kod = string.match( kod, '{{[SsTt]score%s*|.*cont *= *' .. start .. '.*}}' )
	if kod == nil then
		return nil
	end
	kod = string.sub( kod, 1, string.find( kod, '[^!]}}' ) )
	for kod2 in string.gmatch( kod, '|[^|]*') do
		kod3 = mw.text.trim( string.sub( kod2, 2 ) )
		n = string.find( kod3, '=' )
		kod4 = mw.text.trim( string.sub( kod3, 1, n-1 ) )
		if stdargs[kod4] ~= nil then
			stdargs[kod4] = mw.text.trim( string.sub( kod3, n+1 ) )
		else
			wynik[kod4] = mw.text.trim( string.sub( kod3, n+1 ) )
		end
	end
	if stdargs['next'] ~= '0' then
		wynik2 = getnextpage( start, stdargs['next'] )
		if type( wynik2 ) ~= "table" then
			return wynik2
		end
	end
	for k,v in pairs( wynik ) do
		if wynik2[k] ~= nil then
			wynik[k] = wynik[k] .. ' ' .. wynik2[k]
		end
		wynik[k] = string.gsub( wynik[k], '{{!}}', '|' )
	end
	return wynik
end

function scal( frame, parsedargs )
	local stdargs = { start='', next='0', score='', cont='', width='180', layout='', debug='0' }
	local args = frame:getParent().args
	if parsedargs ~= nil then
		args = parsedargs
	end
	local kod_score = ""
	local warning = ''
	local argn = { }
	local title = mw.title.getCurrentTitle()
	local paper_size = "a2"
	for k, v in pairs( args ) do
		if type( k ) == "number" then
			return error('unnamed template parameter encountered; maybe | was used instead of {{!}}')
		elseif type( k ) == "string" and stdargs[k] ~= nil then
			stdargs[k] = v
		end
	end
	if stdargs['score'] == '' then
		return error('no score code')
	end
	if stdargs['start'] ~= '' and stdargs['next'] == '0' then
		warning = warning .. error('no next page defined') .. '<br>'
	end
	if stdargs['start'] ~= '' and stdargs['cont'] ~= '' then
		warning = warning .. error('the first page cannot be a sunbsequent page') .. '<br>'
	end
	if title.namespace ~= page_namespace and stdargs['cont'] ~= '' then
		return warning
	end
	if title.namespace ~= page_namespace and stdargs['start'] ~= '' and stdargs['next'] ~= '0' then
		argn = getnextpage( stdargs['start'], stdargs['next'] )
		if argn == nil then
			return error( 'next page not found' )
		elseif type( argn ) == "string" and argn == '' then
			return error( 'no continueing Tscore template found on the next page' )
		elseif type( argn ) ~= "table" then
			return error( 'unidentified error' )
		end
	end
	for k, v in pairs( args ) do
		if type( k ) == "string" and stdargs[k] == nil then
			kod_score = kod_score .. "\n" .. k .. ' = '
			if string.sub( k, 1, 1 ) == 'l' then
				kod_score = kod_score .. "\\lyricmode "
			end
			kod_score = kod_score .. "{ " .. v;
			if argn[k] ~= nil then
				kod_score = kod_score .. ' ' .. argn[k]
			end
			kod_score = kod_score .. " }\n"
		end
	end
-- limit width for Page ns
	if title.namespace == page_namespace and tonumber(stdargs['width']) > 140 then
		stdargs['width'] = '140'
	end
-- optimize paper size: a2 / a3 / a4 ; width in milimeters
	if tonumber(stdargs['width']) > 400 then
		stdargs['width'] = '400'
	elseif tonumber(stdargs['width']) < 190 then
		paper_size = "a4"
	elseif tonumber(stdargs['width']) < 280 then
		paper_size = "a3"
	end
	kod_score = kod_score .. "\n\\paper { #(set-paper-size \"" .. paper_size .. "\") }\n\\header { tagline = ##f }\n\\version " .. score_version
	kod_score = kod_score .. "\n\\score {\n\\midi { }\n\\layout { line-width = #" .. stdargs['width'] .. "\n" .. stdargs['layout'] .. "}\n" .. stdargs['score'] .. " }"
	if stdargs['debug'] == '1' then
		warning = warning .. "\n<code><nowiki>" .. kod_score .. "</nowiki></code>\n"
	end
	return warning .. frame:extensionTag( 'score', kod_score, { raw = "1", midi = "1", vorbis = "1" } )
end

local p = {}
function p.genscore( frame, args )
	return scal( frame, args )
end
return p