モジュール:WeatherBox

w = {};
math_mod = require( "Module:Math" );
wbc = require( "Module:WeatherBoxColors" );  
function checkFlag( flag )
if flag == nil then
return nil;
elseif type( flag ) == 'boolean' then
return flag;        
elseif type( flag ) == 'string' then
flag = flag:lower();
if flag == '0' or flag == 'false' or
flag ==  or flag == 'no' or
flag == 'n' then
return false;
else
return true;
end
else
return error( 'Flag type not valid' );
end    
end
function w.buildRow( frame )
local mode = (frame.args.mode or 'basic'):lower();
local group_name = frame.args.group_name;
local first_value_string, second_value_string;
local first_value_number, second_value_number, color_values;
local color_scheme = frame.args.color_scheme or 't';
local scale_factor = math_mod._cleanNumber( frame.args.scale_factor) or 1;
local date_mode = checkFlag( frame.args.date_mode or false );
local label = frame.args.label or ;
local annual_mode = (frame.args.annual_mode or 'avg'):lower();
local include_space = checkFlag( frame.args.include_space or true );
local second_line = checkFlag( frame.args.second_line ) or false;
local prefer_cm = checkFlag( frame.args.prefer_cm ) or false;
local result;
local pframe = frame:getParent();
local imperial_first = checkFlag( frame.args'imperial first' );
if imperial_first == nil then imperial_first = checkFlag( pframe.args'imperial first' ); end

local metric_first = checkFlag( frame.args'metric first' );
if metric_first == nil then metric_first = checkFlag( pframe.args'metric first' ); end
local single_line = checkFlag( frame.args'single line' );
if single_line == nil then single_line = checkFlag( pframe.args'single line' ); end
if imperial_first == nil and metric_first ~= nil then
imperial_first = not metric_first;
else
imperial_first = true;
end    
if mode == 'basic' then
first_value_string, first_value_number = getInputs( pframe, group_name, 
nil, include_space );
second_value_string = nil;
second_value_number = nil;
elseif mode == 'temperature' then
first_value_string, first_value_number = getInputs( pframe, group_name, 
{'C'}, include_space );
second_value_string, second_value_number = getInputs( pframe, group_name, 
{'F'}, include_space );
first_value_string, first_value_number, second_value_string, second_value_number =
reconcileTemperature( first_value_string, first_value_number, 
second_value_string, second_value_number )
elseif mode == "precipitation" then
first_value_string, first_value_number, variant = getInputs( pframe, group_name, 
{'cm', 'mm'}, include_space );
second_value_string, second_value_number = getInputs( pframe, group_name, 
{'inch'}, include_space );        
first_value_string, first_value_number, second_value_string, second_value_number,
variant =
reconcilePrecipitation( first_value_string, first_value_number, 
second_value_string, second_value_number, variant, prefer_cm )
else
error( 'Requested mode not recognized' );
end  

local good = false;
for i = 1,13 do
if first_value_stringi ~= nil and first_value_stringi ~=  then
good = true;
break;
end
end        
if not good then
return ;
end
if first_value_string13 == nil or first_value_string13 ==  then
first_value_string13, first_value_number13 = getAnnualValue( first_value_number, annual_mode );
end
if second_value_string ~= nil then
if second_value_string13 == nil or second_value_string13 ==  then
second_value_string13, second_value_number13 = getAnnualValue( second_value_number, annual_mode );
end
if mode == 'precipitation' then
for i = 1,12 do
if varianti ~= 0 then
variant13 = varianti;
break;
end
end
end                        
end   
color_scheme = wbc.interpret_color_code( color_scheme );
color_values = {};
month_adj = { 31/30, 28/30, 31/30, 1, 31/30, 1, 
31/30, 31/30, 1, 31/30, 1, 31/30, 12.175 };
local adj;
for i = 1,13 do        
if first_value_numberi ~= nil and first_value_numberi ~= -9999 then
adj = scale_factor;
if date_mode then 
adj = adj / month_adji;
end
if mode == "precipitation" then
if varianti == 1 then
adj = adj * 10;
end
end
table.insert( color_values, color_scheme( first_value_numberi * adj ) );               
else
table.insert( color_values, color_scheme( nil ) );
end
end

local lang = mw.getContentLanguage();
for i = 1,13 do
if first_value_numberi ~= nil and first_value_numberi ~= -9999 then
if math.abs(first_value_numberi) >= 1000 then
first_value_stringi = lang:formatNum( math.abs(first_value_numberi) );
if first_value_numberi = 1000 then
second_value_stringi = lang:formatNum( math.abs(second_value_numberi) );
if second_value_numberi  (" .. value_str .. ")" );
end    
end
else
table.insert( result, '—' );
end        

table.insert( result, "\n" ); 
end

return table.concat( result );
end  
function getInputs( frame, group_name, suffix, include_space )
local month_names = { 'Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun',
'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec', 'year' };
local str, str2, val;

local output_string = {};
local output_value = {};
local variant = {};
if suffix == nil then
for _, mon in ipairs( month_names ) do
if include_space then
str = ( frame.args mon .. ' ' .. group_name  or  );
else
str = ( frame.args mon .. group_name  or  );
end                
val, str2 = math_mod._cleanNumber( str );
if val ~= nil then 
table.insert( output_string, str2 );
table.insert( output_value, val );
else
table.insert( output_string, str );
table.insert( output_value, -9999 );
end                
end
else
local updated = false;
for _, mon in ipairs( month_names ) do
updated = false;
for i, suf in ipairs( suffix ) do
if include_space then
str = frame.args mon .. ' ' .. group_name .. ' ' .. suf ;
else
str = frame.args mon .. group_name .. ' ' .. suf ;
end                    
if str ~= nil and str ~=  then 
val, str2 = math_mod._cleanNumber( str );
if val ~= nil then 
table.insert( output_string, str2 );
table.insert( output_value, val );
else
table.insert( output_string, str );
table.insert( output_value, -9999 );
end                
table.insert( variant, i );
updated = true;
break;
end                
end
if not updated then
table.insert( output_string,  );
table.insert( output_value, -9999 );
table.insert( variant, 0 );
end            
end
end

return output_string, output_value, variant;
end
function getAnnualValue( values, mode )
local total = 0;
local val = 0;

if mode == 'avg' or mode == 'sum' then
local p1, p2;
p1 = 0;
for i = 1, 12 do
val = valuesi;
if val == -9999 then
return , -9999;
end            

p2 = math_mod._precision( val );
if p2 > p1 then
p1 = p2;
end

total = total + val;
end
if mode == 'avg' then
total = math_mod._round( total / 12, p1 + 1 );
end
return tostring( total ), total;
elseif mode == 'min' then
local min_val = nil;
for i = 1, 12 do
val = valuesi;
if val ~= -9999 then
if min_val == nil or val  max_val then
max_val = val;
end                
end            
end
return tostring(max_val), max_val;
else
error( 'Unrecognized Annual Mode' );
end
end        
function reconcileTemperature( C_degree_strings, C_degree_values, F_degree_strings, F_degree_values )
local p;
for i = 1,13 do
if C_degree_stringsi ==  then
if F_degree_valuesi ~= -9999 then
p = math.max( 0, math_mod._precision( F_degree_stringsi ) );
C_degree_valuesi = math_mod._round( (F_degree_valuesi - 32)*5/9, p );
C_degree_stringsi = tostring( C_degree_valuesi );
end            
elseif F_degree_stringsi ==  then
if C_degree_valuesi ~= -9999 then
p = math.max( 0, math_mod._precision( C_degree_stringsi ) );
F_degree_valuesi = math_mod._round( C_degree_valuesi*9/5 + 32, p );
F_degree_stringsi = tostring( F_degree_valuesi );
end                        
end        
end
return C_degree_strings, C_degree_values, F_degree_strings, F_degree_values;
end    
function reconcilePrecipitation( M_degree_strings, M_degree_values, 
I_degree_strings, I_degree_values, variant, prefer_cm )
local p;

local v_class = 0;
for i = 1,13 do
if varianti == 1 then
v_class = 1;
elseif varianti == 2 then
v_class = 2;
end
end
if v_class == 0 then
if prefer_cm then
v_class = 1;
else
v_class = 2;
end        
end
for i = 1,13 do
if M_degree_stringsi ==  then
if I_degree_valuesi ~= -9999 then
if v_class == 1 then 
p = math.max( 0, math_mod._precision( I_degree_stringsi ) );
M_degree_valuesi = math_mod._round( I_degree_valuesi*2.54, p );
varianti = v_class;
else 
p = math.max( 0, math_mod._precision( I_degree_stringsi ) ) - 1;
M_degree_valuesi = math_mod._round( I_degree_valuesi*25.4, p );
varianti = v_class;
end                
M_degree_stringsi = tostring( M_degree_valuesi );
end            
elseif I_degree_stringsi ==  then
if M_degree_valuesi ~= -9999 then
if varianti == 1 then
p = math.max( 0, math_mod._precision( M_degree_stringsi ) ) + 1;
I_degree_valuesi = M_degree_valuesi/2.54;
else
p = math.max( 0, math_mod._precision( M_degree_stringsi ) ) + 2;
I_degree_valuesi = M_degree_valuesi/25.4;
end                    
I_degree_valuesi = math_mod._round( I_degree_valuesi, p );
I_degree_stringsi = tostring( I_degree_valuesi );
end                        
end  
end
return M_degree_strings, M_degree_values, I_degree_strings, I_degree_values, variant;
end    
return w;