Lines Matching refs:lang
394 my $lang =
399 return $lang if &is_language_tag($lang); # like "en"
401 $lang =~ tr<_><->; # "en_US" -> en-US
402 $lang =~ s<\.[-_a-zA-Z0-9\.]*><>s; # "en_US.ISO8859-1" -> en-US
404 return $lang if &is_language_tag($lang);
462 my($lang, $expr) = ($1, $2);
463 $greetings{$lang} = $expr;
504 my($lang, $expr) = ($1, $2);
506 encode_language_tag($lang)