|
local s = "%1 station"
local u = "%1"
local termini = {
["a1"] = "[[Saint-Germain-en-Laye station|Saint-Germain-en-Laye]]",
["a2"] = "[[Boissy-Saint-Léger station|Boissy-Saint-Léger]]",
["a3"] = "[[Cergy-le-Haut station|Cergy-le-Haut]]",
["a4"] = "[[Marne-la-Vallée–Chessy station|Marne-la-Vallée–Chessy]]",
["a5"] = "[[Poissy station|Poissy]]",
["b2"] = "[[Robinson (Paris RER)|Robinson]]",
["b3"] = "[[Aéroport Charles de Gaulle 2 TGV]]",
["b4"] = "[[Saint-Rémy-lès-Chevreuse station|Saint-Rémy-lès-Chevreuse]]",
["b5"] = "[[Mitry–Claye station|Mitry–Claye]]",
["c1"] = "[[Pontoise station|Pontoise]]",
["c2"] = "[[Massy-Palaiseau station|Massy-Palaiseau]]",
["c3"] = "[[Montigny–Beauchamp station|Montigny–Beauchamp]]",
["c4"] = "[[Dourdan-la-Forêt station|Dourdan-la-Forêt]]",
["c5"] = "[[Versailles-Château-Rive Gauche station|Versailles-Château–Rive Gauche]]",
["c6"] = "[[Saint-Martin-d'Étampes (Paris RER)|Saint-Martin-d'Étampes]]",
["c7"] = "[[Saint-Quentin-en-Yvelines–Montigny-le-Bretonneux station|Saint-Quentin-en-Yvelines]]",
["c8"] = "[[Versailles-Chantiers station|Versailles-Chantiers]]",
["d1"] = "[[Creil station|Creil]]",
["d2"] = "[[Melun station|Melun]]",
["d3"] = "[[Gare de Lyon]]",
["d4"] = "[[Malesherbes (Paris RER)|Malesherbes]]",
["d6"] = "[[Corbeil-Essonnes (Paris RER)|Corbeil-Essonnes]]",
["d7"] = "[[Goussainville (Paris RER)|Goussainville]]",
["e1"] = "[[Haussmann–Saint-Lazare]]",
["e2"] = "[[Chelles–Gournay station|Chelles-Gournay]]",
["e4"] = "[[Tournan station|Tournan]]"
}
local multitermini = {
{"a3", "a5"},
{"b2", "b4"},
{"b3", "b5"},
{"c2", "c4"},
{"c4", "c6", "c8"},
{"c5", "c7"},
{"d2", "d4"},
{"e2", "e4"}
}
for kk, slist in ipairs(multitermini) do
local key = table.concat(slist)
for k, v in ipairs(slist) do
slist[k] = termini[v]
end
if #slist > 2 then
termini[key] = table.concat(slist, ', ', 1, #slist - 1) .. ' or ' .. slist[#slist]
else
termini[key] = table.concat(slist, ' or ')
end
end
local p = {
}
}
local function addtermini(stations, termini)
for k,v in pairs(termini) do
stations[k] = termini[k] .. '[[Category:Pages using Réseau Express Régional with deprecated syntax|' .. k ..']]'
stations[k:upper()] = termini[k] .. '[[Category:Pages using Réseau Express Régional with deprecated syntax|' .. k:upper() ..']]'
end
return stations
end
p["station format"] = addtermini(p["station format"], termini)
return p
| 