יחידה:Chess games

מתוך ויקיפדיה, האנציקלופדיה החופשית
קפיצה לניווט קפיצה לחיפוש

ניתן ליצור תיעוד על היחידה הזאת בדף יחידה:Chess games/תיעוד

local pgn = require('module:pgn')

local fileMap = {
	a = 'א',
	b = 'ב',
	c = 'ג',
	d = 'ד',
	e = 'ה',
	f = 'ו',
	g = 'ז',
	h = 'ח',
}

local pieceMap = {
	R = 'צ',
	B = 'ר',
	N = 'פ',
	Q = 'מה',
	K = 'מ',
	x = ':'
}

local iconMap = {
	R = '♖',
	B = '♗',
	N = '♘',
	Q = '♕',
	K = '♔',
}

local function moveToIndex(move)
	if not move:match('^%d+[dl]$') then return -1 end -- not a move
	local num, color = move:match('(%d+)([dl])')
	return num * 2 + (color == 'd' and 1 or 0)
end

local function mergeArgs(frame)
	local args = {}
	for k, v in pairs(frame:getParent().args) do args[k] = v end
	for k, v in pairs(frame.args) do args[k] = v end
	return args
end

local function moveNotationToHeb(frame)
	local move = mergeArgs(frame)[1]
	move = move:gsub('l', ' של הלבן')
	move = move:gsub('d', ' של השחור')
	return move
end

local function chessNotationToHeb(frame)
	local args = mergeArgs(frame)
	local useUnicodeSymbols = args['סמליל']
	local replacement = function(c)
		return fileMap[c] or
			useUnicodeSymbols and iconMap[c] or
			pieceMap[c]
	end
	local toheb = mw.ustring.gsub(args[1] or '', '[a-hRNBQKx]', replacement)
	toheb = mw.ustring.gsub(toheb, '([1-8א-ח])([א-ח])', '%1-%2') -- note that due to rtl/ltr issues, this looks like shit. to edit, turn off "code", and use bidiOver display.
	return toheb
end

local function indexToMove(index)
	return string.format('%d%s', math.floor( index / 2), index % 2 == 0 and 'l' or 'd')
end
	
local function display_game(frame)
	local args = mergeArgs(frame) 
	local game = args['pgn']
	if not game then error('must have "pgn" parameter') end
	local moves, metadata, notations = pgn.pgn2fen(game)
	local template = args['template']
	if not template then error('must have "template" parameter') end
	local tmTable = {}
	
	local hydrate = function(index, comment) 
		local temp = template:gsub('%$fen%$', moves[index])
		temp = temp:gsub('%$comment%$', comment)
		temp = temp:gsub('%$move%$', indexToMove(index))
		temp = temp:gsub('%$notation%$', notations[index - 1])
		table.insert(tmTable,  { index, temp } )
	end
	template = mw.text.unstripNoWiki( template )
	for arg, val in pairs(args) do -- collect boards of the form "12l = comment"
		local index = moveToIndex(arg)
		if index >= 0 then hydrate(index, val) end
	end

	for arg, val in pairs(args) do -- collect boards of the form "| from1 = 7d | to1 = 8l | comments1 = { "comment", "comment" }
		if arg:match('^from%d+$') then
			local hunk = arg:match(('^from(%d+)$'))
			toMove = args['to' .. hunk]
			if not toMove then error (string.format('parameter %s exists, but no parameter to%s', arg, hunk)) end
			local fromIndex = moveToIndex(val)
			if fromIndex < 0 then error(string.format('malformed value for parameter %s', arg)) end
			local toIndex = moveToIndex(toMove)
			if toIndex < 0 then error(string.format('malformed value for parameter to%s', hunk)) end
			local comments = {}
			local commentsVal = args['comments' .. hunk] or ''
			for comment in commentsVal:gmatch('{([^}]*)}') do table.insert(comments, comment) end
			for index = fromIndex, toIndex do hydrate(index, table.remove(comments, 1) or '') end
		end
	end
	table.sort(tmTable, function(a, b) return a[1] < b[1] end)
	local res = ''
	for _, item in ipairs(tmTable) do res = res ..  frame:preprocess(item[2]) end
	return res
end

return {
	['display game'] = display_game,
	['עברות מסע'] =  moveNotationToHeb,
	['עברות רישום'] = chessNotationToHeb,
}