Aller au contenu

Module:Aéroports

Ajouter des liens
Une page de Wikipédia, l'encyclopédie libre.

 Documentation[voir] [modifier] [historique] [purger]

Ce module est utilisé par le modèle {{Aéroports}}.

Data

[modifier le code]

Les nom de ville ou du lien wiki français sont renseignés dans la sous-page Module:Aéroports/data.

Bac à sable

[modifier le code]

Utiliser selon la syntaxe suivante
{{Aéroports|AZR|QMH|NBO|KZS}}==>
Adrar, Aïn Beïda (en), Kastellorizo, Nairobi-J. Kenyatta

Usage with one code

[modifier le code]

To be used with template {{Aéroports|KORD}}==>Chicago–O’Hare
To be used with template {{Aéroports|ORD}}==>Chicago–O’Hare
To be used with template {{Aéroports|AA A}}==>error: malformed parameter value: AA A
To be used with template {{Aéroports|AAA}}==>Anaa
To be used with template {{Aéroports|AHO}}==>Alghero
{{#invoke:Aéroports|count|AAA}}==> 1

Usage avec de multiples codes

[modifier le code]

{{Aéroports|AAA|NTGA|CDG|LIN|MXP|BGY}}==>
Anaa, Bergamo, Milan–Linate, Milan–Malpensa, Paris–Charles de Gaulle

Usage with multiple codes + dates

[modifier le code]

dmy format

[modifier le code]

{{Aéroports|df=dmy|PPT|NRT|MXP:beg 2018-10-01|BKK:res 2019-10-01|RUN:end 2018-08-01|TMS}}==>
error: invalid date: 2018-10-01

mdy format

[modifier le code]

{{Aéroports|df=mdy|PPT|NRT|MXP:beg 2018-10-01|BKK:res 2019-10-01|RUN:end 2018-08-01|TMS}}==>
error: invalid date: 2018-10-01

Usage avec de multiples codes + dates + références

[modifier le code]

{{Aéroports|df=dmy|PPT|NRT|MXP:beg 2018-10-01 <ref>MXP date reference</ref>|BKK:res 2019-10-01 <ref>BKK date reference</ref>|RUN:end 2018-08-01 <ref>RUN date reference</ref>|TMS}}==>
error: invalid date: 2018-10-01

Exemple pour le Portugal

[modifier le code]

Exemple pour les principaux aéroports du monde

[modifier le code]
Hartsfield–Jackson Atlanta International Airport ATL Atlanta KATL Atlanta
Beijing Capital International Airport PEK Beijing–Capital ZBAA Beijing–Capital
Dubai International Airport DXB Dubai–International OMDB Dubai–International
Tokyo Haneda Airport HND Tokyo–Haneda RJTT Tokyo–Haneda
Los Angeles International Airport LAX Los Angeles KLAX Los Angeles
O'Hare International Airport ORD Chicago–O’Hare KORD Chicago–O’Hare
London Heathrow Airport LHR London–Heathrow EGLL London–Heathrow
Hong Kong International Airport HKG Hong Kong VHHH Hong Kong
Shanghai Pudong International Airport PVG Shanghai–Pudong ZSPD Shanghai–Pudong
Paris-Charles de Gaulle Airport CDG Paris–Charles de Gaulle LFPG Paris–Charles de Gaulle
Amsterdam Airport Schiphol AMS Amsterdam EHAM Amsterdam
Dallas/Fort Worth International Airport DFW Dallas/Fort Worth KDFW Dallas/Fort Worth
Guangzhou Baiyun International Airport CAN Guangzhou ZGGG Guangzhou
Frankfurt Airport FRA Frankfurt EDDF Frankfurt
Istanbul Atatürk Airport IST Istanbul–Atatürk LTBA Istanbul–Atatürk
Indira Gandhi International Airport DEL Delhi VIDP Delhi
Soekarno-Hatta International Airport CGK Jakarta–Soekarno–Hatta WIII Jakarta–Soekarno–Hatta
Singapore Changi Airport SIN Singapore-Changi WSSS Singapore-Changi
Seoul Incheon International Airport ICN Seoul–Incheon RKSI Seoul–Incheon
Denver International Airport DEN Denver KDEN Denver
Suvarnabhumi Airport BKK Bangkok–Suvarnabhumi VTBS Bangkok–Suvarnabhumi
John F. Kennedy International Airport JFK New York–JFK KJFK New York–JFK
Kuala Lumpur International Airport KUL Kuala Lumpur–International WMKK Kuala Lumpur–International
San Francisco International Airport SFO San Francisco KSFO San Francisco
Madrid Barajas Airport MAD Madrid LEMD Madrid
Chengdu Shuangliu International Airport CTU Chengdu ZUUU Chengdu
McCarran International Airport LAS Las Vegas KLAS Las Vegas
Barcelona–El Prat Airport BCN Barcelona–El Prat LEBL Barcelona–El Prat
Chhatrapati Shivaji International Airport BOM Mumbai VABB Mumbai
Toronto Pearson International Airport YYZ Toronto–Pearson CYYZ Toronto–Pearson
Seattle-Tacoma International Airport SEA Seattle/Tacoma KSEA Seattle/Tacoma
Charlotte Douglas International Airport CLT Charlotte KCLT Charlotte
London Gatwick Airport LGW London–Gatwick EGKK London–Gatwick
Shenzhen Bao'an International Airport SZX Shenzhen ZGSZ Shenzhen
Taiwan Taoyuan International Airport TPE Taipei–Taoyuan RCTP Taipei–Taoyuan
Benito Juárez International Airport MEX Mexico City MMMX Mexico City
Kunming Changshui International Airport KMG Kunming ZPPP Kunming
Munich Airport MUC Munich EDDM Munich
Orlando International Airport MCO Orlando KMCO Orlando
Miami International Airport MIA Miami KMIA Miami
Phoenix Sky Harbor International Airport PHX Phoenix KPHX Phoenix
Sydney Kingsford-Smith Airport SYD Sydney YSSY Sydney
Newark Liberty International Airport EWR Newark KEWR Newark
Ninoy Aquino International Airport MNL Manila RPLL Manila
Shanghai Hongqiao International Airport SHA Shanghai–Hongqiao ZSSS Shanghai–Hongqiao
Xi'an Xianyang International Airport XIY Xi'an ZLXY Xi'an
Leonardo da Vinci–Fiumicino Airport FCO Rome–Fiumicino LIRF Rome–Fiumicino
George Bush Intercontinental Airport IAH Houston–Intercontinental KIAH Houston–Intercontinental
Narita International Airport NRT Tokyo–Narita RJAA Tokyo–Narita
Sheremetyevo International Airport SVO Moscow–Sheremetyevo UUEE Moscow–Sheremetyevo

Bac à sable

[modifier le code]

Modules bac à sable :

Tests depuis les modules bac à sable :

  • {{#invoke:Aéroports/Bac à sable|main|AAA}} ==> Anaa
  • {{#invoke:Aéroports/Bac à sable|main|BGY}} ==> Bergamo
  • {{#invoke:Aéroports/Bac à sable|main|BOD }} ==> Bordeaux
  • {{#invoke:Aéroports/Bac à sable|main|NTGA}} ==> Anaa
  • {{#invoke:Aéroports/Bac à sable|main|QKR}} ==> Kourou
  • {{#invoke:Aéroports/Bac à sable|main|AAA}} ==> Anaa
  • {{#invoke:Aéroports/Bac à sable|main|BOD }} ==> Bordeaux
  • {{#invoke:Aéroports/Bac à sable|main|NTGA}} ==> Anaa
  • {{#invoke:Aéroports/Bac à sable|main|QKR}} ==> Kourou
  • {{#invoke:Aéroports/Bac à sable|main|NWWX}} ==> error: data missing for code: NWWX
  • {{#invoke:Aéroports/Bac à sable|main|CDG}} ==> Paris–Charles de Gaulle
  • {{#invoke:Aéroports/Bac à sable|main|LFPG}} ==> Paris–Charles de Gaulle
  • {{#invoke:Aéroports/Bac à sable|main|ORD}} ==> Chicago–O’Hare
  • {{#invoke:Aéroports/Bac à sable|main|KSEA}} ==> Seattle/Tacoma
  • {{#invoke:Aéroports/Bac à sable|main|O RD}} ==> error: malformed parameter value: O RD
  • {{#invoke:Aéroports/Bac à sable|main|cdg}} ==> Paris–Charles de Gaulle
  • {{#invoke:Aéroports/Bac à sable|main|Bullshit}} ==> error: malformed parameter value: Bullshit

Pour des exemples, voir la page de test permettant de tester diverses modifications apportées.

La documentation de ce module est générée par le modèle {{Documentation module}}.
Elle est incluse depuis sa sous-page de documentation. Veuillez placer les catégories sur cette page-là.
Les éditeurs peuvent travailler dans le bac à sable (modifier).
Voir les statistiques d'appel depuis le wikicode sur l'outil wstat et les appels depuis d'autres modules.

  1. ↑ MXP date reference 
require('strict');
local getArgs = require ('Module:Arguments').getArgs;
local lang = mw.language.getContentLanguage();									-- used for date formatting and validation
local namespace = mw.title.getCurrentTitle().namespace;							-- used for categorization

local master = mw.loadData("Module:Aéroports/data")
local IATA_airport = master.IATA
local ICAO_airport = master.ICAO
local wikilink_label = master.WikiName

local p = {}

function p.count(frame)
	local count = 0
		
	for i, v in ipairs(frame.args) do	
	count=count+1 end
	return count
end


--[[--------------------------< I S _ V A L I D _ D A T E >----------------------------------------------------

Dates must be real.  Returns true if date is a real date; false else.

Done this way because:
	mw.language.getContentLanguage():formatDate('Y-m-d', '2018-02-31') should return an error but instead returns
		2018-03-03

TODO: text for min/max years?

]]

local function is_valid_date (date)
local days_in_month = {31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31};			-- number of days in each month
local month_length;
local year, month, day;

	year, month, day = date:match ('(%d%d%d%d)%-(%d%d)%-(%d%d)');				-- extract year, month, and day parts from date
	
	if (year < lang:formatDate ('Y', 'now')) or (year > lang:formatDate ('Y', 'now+2year')) then
		return false;
	end
	
	month = tonumber (month);
	if (1 > month) or (12 < month) then											-- check month
		return false;
	end
	
	if (2==month) then															-- if February
		month_length = 28;														-- then 28 days unless
		if (0==(year%4) and (0~=(year%100) or 0==(year%400))) then				-- a leap year
			month_length = 29;													-- in which case: 29 days in February
		end
	else
		month_length=days_in_month[month];										-- else month length from table
	end

	day = tonumber (day);
	if (1 > day) or ( month_length < day) then									-- check day
		return false;
	end
	return true;																-- good day
end


--[[-------------------------< M A K E _ D A T E _ T Y P E _ S T R I N G >------------------------------------

decodes begin, resume, end service date type and date stamps and returns human readable text.  Format is:
	<type><date> where:
		<type> is one of the three-character keywords:
			beg - new service begins
			res - service resumes after an interruption
			end - service ends
		<date> is a singe date or date-range similar in format to ISO 8601:
			YYYY-MM-DD - a single YMD date may be begin, resume, or end date
			YYYY-MM-DD/YYYY-MM-DD - a date range where the first date (left) is a start or resume date and the second (right) is an end date
	
returns nil and an error message if:
	type keyword is not recognized
	either date is invalid - dates must be real
	begin or resume date falls on or after end date - events must begin/resume before they end
	
event dates that have already occurred (today's date follows a begin/resume/end date) are quitely muted.  When this occurs
the function returns only an end date (if a date range and that event is still in the future).  The function will add a hidden category
to articles with muted begin/resume/end dates.

]]

local function make_date_type_string (date_type, date, date2, ref, df)
local result = {};
local cat = '';
local today = lang:formatDate ('Y-m-d', 'today');								-- system date in ymd format as a text string

	if not date_type or ('' == date_type) then									-- if not set then this code isn't dated
		return '', nil, '';														-- return empty string, no error message, empty string for category
	end

	if not is_valid_date (date) then											-- dates must be valid
		return nil, table.concat ({'invalid date: ', date});					-- return nil, an error message, category is nil but we don't care
	end

	if date2 then																-- if date is a range
		if 'end' == date_type then
			return nil, 'date range not allowed for keyword \'end\'';			-- :endYYYY-MM-DD/YYYY-MM-DD is nonsensical
		end
		
		if not is_valid_date (date2) then										-- dates must be valid
			return nil, table.concat ({'invalid date: ', date2});				-- return nil, an error message, category is nil but we don't care
		end

		if date >= date2 then													-- start/resume dates must precede end dates
			return nil, table.concat ({'invalid date order: ', date, '/', date2});	-- return nil, an error message, category is nil but we don't care
		end
	end

	if date < today then														-- if date has passed
		date = nil;																-- quietly hide expired dates
		cat = '[[Category:Expired airport code]]';								-- (but categorize)
	end

	if date2 then																-- if date is a range
		if date2 < today then													-- if date has passed
			date2 = nil;														-- quietly hide expired dates
			cat = '[[Category:Expired airport code]]';							-- (but categorize)
		end
	end

	date_type = date_type:lower();												-- make it case insensitive
	
	if 'beg' == date_type then
		if date then															-- date may be nil here because it has already passed
			table.insert (result, ' (begins ');									-- begin date is today or in the future
		elseif date2 then														-- here when date has passed and date timestamp was a range
			date = date2;														-- begin date is in the past so event has already happened; convert date2 to end
			date2 = nil;														-- unset
			table.insert (result, ' (ends ');									-- range end date is today or in the future
		end
	elseif 'res' == date_type then
		if date then
			table.insert (result, ' (resumes ');								-- resume date is today or in the future
		elseif date2 then
			date = date2;														-- resume date is in the past so event has already happened; convert date2 to end
			date2 = nil;														-- unset
			table.insert (result, ' (ends ');									-- range end date is today or in the future
		end
	elseif 'end' == date_type then
		if date then
			table.insert (result, ' (ends ');									-- end date is today or in the future
		else
			return nil;															-- date has expired for an end date type; return nil as flag to hide this destination
		end
	else
		return nil, table.concat ({'unexpected date type: ', date_type});		-- return nil, an error message, category is nil but we don't care
	end

	if date then																-- define formatting strings for lang:formatDate()
		if 'dmy' == df then
			df = 'j F Y';
		elseif 'mdy' == df then
			df = 'F j, Y';
		else
			df = 'Y-m-d';														-- yeah, sort of pointless, but simple
		end
		
		table.insert (result, lang:formatDate (df, date));						-- reformat ymd to selected format according to |df=
		
		if date2 then
			table.insert (result, '; ends ');									-- date2 always an end event
			table.insert (result, lang:formatDate (df, date2));					-- reformat ymd to selected format according to |df=
		end
	end

	if 0 ~= namespace then
		cat = ''																-- categorize articles in mainspace only
	end

	if 0 ~= #result then														-- when there is date text, 
		table.insert (result, ref);												-- reference goes just before we ...
		table.insert (result, ')');												-- ... close the date text
		return table.concat (result), nil, cat;									-- return formatted date string, no error message, and category (if mainspace)
	else
		return '', nil, cat;													-- return empty string for concatenation, no error message, and category (if mainspace)
	end
	
end


--[=[-------------------------< C O M P >---------------------------------------------------------------------

Comparison funtion for table.sort() compares wikilink labels

	[[wikilink target|wikilink label]]

]=]

local function comp (a, b)
local a_label = a:match ('^[^|]+|([^%]]+)%]%]'):lower();						-- extract the label from a
local b_label = b:match ('^[^|]+|([^%]]+)%]%]'):lower();						-- extract the label from b
	return a_label < b_label;
end


--[=[--------------------------< M A I N >--------------------------------------------------------------------

returns a wikilink to the en.wiki article that matches the IATA or ICAO code provided in the call
example of data:
	{'North America','USA','ABE','KABE','Lehigh Valley International Airport','Allentown/Bethlehem'},
	
{{#invoke:IATA and ICAO code|main|ABE}} returns
	[[Lehigh Valley International Airport|Allentown/Bethlehem]]
	or an error message

When there are multiple codes, returns comma separated, alpha ascending list of wikilinks or an error message.

]=]

function p.main(frame)
local args = getArgs(frame);
local results = {};
local code;
local date_type;
local date, date2;
local message;
local ref = '';
local cat = '';

	for _, value in ipairs (args) do
		value = mw.text.trim (value);
		if value:match ('^(%a%a%a%a?) *: *(%a%a%a) *(%d%d%d%d%-%d%d%-%d%d) */ *(%d%d%d%d%-%d%d%-%d%d) *(.*)') then
			code, date_type, date, date2, ref = value:match ('^(%a%a%a%a?) *: *(%a%a%a) *(%d%d%d%d%-%d%d%-%d%d) */ *(%d%d%d%d%-%d%d%-%d%d) *(.*)');
		elseif value:match ('^(%a%a%a%a?) *: *(%a%a%a) *(%d%d%d%d%-%d%d%-%d%d) *(.*)') then
			code, date_type, date, ref = value:match ('^(%a%a%a%a?) *: *(%a%a%a) *(%d%d%d%d%-%d%d%-%d%d) *(.*)');
		elseif value:match ('^%a%a%a%a?$') then
			code = value:match ('^%a%a%a%a?$');
		else
			return table.concat ({'<span style=\"font-size:100%; font-style:normal;\" class=\"error\">error: malformed parameter value: ', value, '</span>'});
		end

		ref = mw.text.trim (ref);												-- remove extraneous white space; if ref is only white space, makes empty string
		if '' ~= ref then
			if not ref:match ('^\127[^\127]*UNIQ%-%-ref%-%x+%-QINU[^\127]*\127') then
				return table.concat ({'<span style=\"font-size:100%; font-style:normal;\" class=\"error\">error: extraneous reference text: ', ref, '</span>'});
			end
		end

		date_type, message, cat = make_date_type_string (date_type, date, date2, ref, args.df);
		
		if message then															-- if an error message, abandon
			return table.concat ({'<span style=\"font-size:100%; font-style:normal;\" class=\"error\">error: ', message, '</span>'});
		end
		
		if date_type then														-- nil when end date type has expired
			code = code:upper();													-- force code to uppercase
			if IATA_airport[code] and string.sub(IATA_airport[code],1,1)==':' then
				table.insert (results,table.concat({'[[Aéroport de ',wikilink_label[code] ,'|',wikilink_label[code],
					']]&nbsp;<span class="indicateur-langue" title="Équivalent de l’article dans une autre langue">([[', IATA_airport[code],'|en]])</span>', date_type, cat}))	-- make wikilink from iata code
			elseif IATA_airport[code] then
				table.insert (results, table.concat ({'[[', IATA_airport[code], '|', wikilink_label[code], ']]', date_type, cat}))	-- make wikilink from iata code
			elseif ICAO_airport[code] then
				table.insert (results, table.concat ({'[[', ICAO_airport[code], '|', wikilink_label[code], ']]', date_type, cat}))	-- make wikilink from icao code
			else
				return table.concat ({'<span style=\"font-size:100%; font-style:normal;\" class=\"error\">error: data missing for code: ', code, '</span>'});
			end
		end		
		date_type = nil;														-- clear so we can reuse these
		date = nil;
		date2 = nil;
		ref = '';
	end
	
	table.sort (results, comp);													-- sort in ascending alpha order
	
	local i = 1;
	while i<#results do															-- check for and remove duplicates
		if results[i] == results[i+1] then										-- compare
			table.remove (results, i);											-- remove the duplicate at results[i]; do not bump i
		else
			i = i + 1;															-- not the same so bump i
		end
	end
	
	return table.concat (results, ', ');										-- make a comma separated list
end


--[[--------------------------< D U P L I C A T E _ C H E C K >------------------------------------------------

This function looks at IATA and ICAO code in Module:IATA and ICAO code/data.  It attempts to locate invalid (by
length) codes and attempts to detect duplicate codes.

  1               2     3     4
{'North America','USA','ABE','KABE','Lehigh Valley International Airport','Allentown/Bethlehem'},

]]

function p.duplicate_check ()
	local iata_count_table = {};
	local icao_count_table = {};

	local _master = master._master

	local iata = {}
	local icao = {}

	for i, v in ipairs(_master) do												-- create tables from master
		if '' ~= v[3] then														-- iata codes TODO: length checking
			if not iata[v[3]] then
				iata[v[3]] = 1;													-- state that this is the first time we've seen this code
			else
				iata[v[3]] = iata[v[3]] + 1;									-- bump the count for this code
			end
		end
		if '' ~= v[4] then														-- iaco codes TODO: length checking
			if not icao[v[4]] then
				icao[v[4]] = 1;													-- state that this is the first time we've seen this code
			else
				icao[v[4]] = icao[v[4]] + 1;									-- bump the count for this code
			end
		end
	end
	
	for k, v in pairs (iata) do
		if 1 < v then
			table.insert (iata_count_table, table.concat ({k, ' (', v, '×)'}))
		end
	end

	for k, v in pairs (icao) do
		if 1 < v then
			table.insert (icao_count_table, table.concat ({k, ' (', v, '×)'}))
		end
	end
	
	local iata_msg = '';														-- error messages go here
	local icao_msg = '';

	if 0 ~= #iata_count_table then
		iata_msg = table.concat ({'<span style=\"font-size:100%; font-style:normal;\" class=\"error\">error: more than one IATA code:<br />	', table.concat (iata_count_table, ', '), '</span>'})
	end
	if 0 ~= #icao_count_table then
		icao_msg = table.concat ({'<span style=\"font-size:100%; font-style:normal;\" class=\"error\">error: more than one ICAO code:<br />	', table.concat (icao_count_table, ', '), '</span>'})
	end
	
	if (0 ~= #iata_count_table) or (0 ~= #icao_count_table) then				-- TODO find a better way of doing this
		return table.concat ({iata_msg, '<br /><br />', icao_msg})
	end
	return 'ok';
end

return p
Ce document provient de « https://fr.wikipedia.org/w/index.php?title=Module:Aéroports&oldid=198093074 ».