Module:Tennis performance timeline/calendar

Documentation for this module may be created at Module:Tennis performance timeline/calendar/doc

local calendar = {}

calendar["2017"] = {
	men = {
		{"250 Brisbane", "250 Doha", "250 Chennai"},
		{"250 Sydney", "250 Auckland"},
		{"GS Australian Open"},
		{"Davis Cup 1R"},
		{"250 Quito", "250 Sofia", "250 Montpellier"},
		{"500 Rotterdam", "250 Memphis", "250 Buenos Aires"},
		{"500 Rio de Janeiro", "250 Marseille", "250 Delray Beach"},
		{"500 Dubai", "500 Acapulco", "250 Sao Paulo"},
		{"1000 Indian Wells"},
		{"1000 Miami"},
		{"Davis Cup QF"},
		{"250 Houston", "250 Marrakech"},
		{"1000 Monte Carlo"},
		{"500 Barcelona", "250 Budapest"},
		{"250 Munich", "250 Estoril", "250 Istanbul"},
		{"1000 Madrid"},
		{"1000 Rome"},
		{"250 Geneva", "250 Lyon"},
		{"GS Roland Garros"},
		{"250 Stuttgart", "250 s-Hertogenbosch"},
		{"500 Queen's Club", "500 Halle"},
		{"250 Eastbourne", "250 Antalya"},
		{"GS Wimbledon"},
		{"250 Newport", "250 Umag", "250 Bastad"},
		{"500 Hamburg", "250 Atlanta", "250 Gstaad"},
		{"500 Washington", "250 Los Cabos", "250 Kitzbuhel"},
		{"1000 Canada"},
		{"1000 Cincinnati"},
		{"250 Winston-Salem"},
		{"GS US Open"},
		{"Davis Cup SF"},
		{"250 St. Petersburg", "250 Metz"},
		{"250 Chengdu", "250 Shenzhen"},
		{"500 Beijing", "500 Tokyo"},
		{"1000 Shanghai"},
		{"250 Moscow", "250 Antwerp", "250 Stockholm"},
		{"500 Vienna", "500 Basel"},
		{"1000 Paris"},
		{"Next Gen Finals"},
		{"World Tour Finals"},
		{"Davis Cup F"}
	},
	women = {
		{"P Brisbane", "Intl Shenzhen", "Intl Auckland"},
		{"Intl Hobart", "P Sydney"},
		{"GS Australian Open"},
		{"Intl Taipei City", "P St. Petersburg"},
		{"Fed Cup QF"},
		{"P Doha"},
		{"P5 Dubai", "Intl Budapest"},
		{"Intl Kuala Lumpur", "Intl Acapulco"},
		{"PM Indian Wells"},
		{"PM Miami"},
		{"Intl Monterrey", "P Charleston"},
		{"Intl Biel", "Intl Bogota"},
		{"125K Zhengzhou", "Fed Cup SF"},
		{"P Stuttgart", "Intl Istanbul"},
		{"Intl Prague", "Intl Rabat"},
		{"PM Madrid"},
		{"P5 Rome"},
		{"Intl Nurnberg", "Intl Strasbourg"},
		{"GS Roland Garros", "125K Bol"},
		{"Intl Nottingham", "Intl s-Hertogenbosch"},
		{"P Birmingham", "Intl Mallorca"},
		{"P Eastbourne"	},
		{"GS Wimbledon"},
		{"Intl Gstaad", "Intl Bucharest"},
		{"Intl Bastad", "Intl Nanchang"},
		{"P Stanford", "Intl Washington"},
		{"P5 Canada"},
		{"P5 Cincinnati"},
		{"P New Haven"},
		{"GS US Open", "125K Dalian"},
		{"Intl Quebec City", "Intl Tokyo"},
		{"Intl Seoul", "P Tokyo", "Intl Guangzhou"},
		{"P5 Wuhan", "Intl Tashkent"},
		{"PM Beijing"},
		{"Intl Linz", "Intl Tianjin", "Intl Hong Kong"},
		{"Intl Luxembourg", "P Moscow"},
		{"WTA Finals"},
		{"WTA Elite Trophy"},
		{"125K Hua Hin", "125K Limoges", "Fed Cup F"},
		{"125K Taipei"},
		{"125K Honolulu"}
	}
}

for year,cal in pairs(calendar) do
	for gender,entry in pairs(cal) do
		entry.week = {}
		for week,tournaments in ipairs(entry) do
			for _,tournament in ipairs(tournaments) do
				entry.week[tournament] = week
			end
		end
	end
end

return calendar