Lines Matching refs:tag
67 Returns true iff $lang1 is a formally valid language tag.
78 registered Klikitat -- it's a formally valid tag)
97 my($tag) = lc($_[0]);
99 return 0 if $tag eq "i" or $tag eq "x";
103 return $tag =~
175 (no-bok is a legacy tag for nb (Norwegian Bokmal))
257 Returns true iff language tag $lang1 represents a subform of
258 language tag $lang2.
322 If $lang1 is not a valid language tag, returns empty-list in
326 "x-mingo-tom" has an "x" because the whole tag isn't an
327 IANA-registered tag -- but super_languages('x-mingo-tom') is
369 and maps it to a language tag. If it's not mappable (as with,
413 This function, if given a language tag, returns an encoding of it such
420 * an encoding of a formally valid language tag always is a string
424 Note that the encoding itself is B<not> a formally valid language tag.
426 language tag that it's an encoding of.
434 formally valid language tag.
441 Its format is "[language tag]=[how to say 'Hello']", like:
448 a daemon, answering client requests that specify a language tag and
525 my($tag) = $_[0] || return undef;
526 return undef unless &is_language_tag($tag);
530 $tag =~ s/^iw\b/he/i; # Hebrew
531 $tag =~ s/^in\b/id/i; # Indonesian
532 $tag =~ s/^cre\b/cr/i; # Cree
533 $tag =~ s/^jw\b/jv/i; # Javanese
534 $tag =~ s/^[ix]-lux\b/lb/i; # Luxemburger
535 $tag =~ s/^[ix]-navajo\b/nv/i; # Navajo
536 $tag =~ s/^ji\b/yi/i; # Yiddish
547 $tag =~ s/^[ix]-hakka\b/zh-hakka/i; # Hakka
548 $tag =~ s/^nb\b/no-bok/i; # BACKWARDS for Bokmal
549 $tag =~ s/^nn\b/no-nyn/i; # BACKWARDS for Nynorsk
551 $tag =~ s/^[xiXI]-//s;
554 return "~" . uc($tag);
561 This function, if given a language tag, returns all language tags that
562 are alternate forms of this language tag. (I.e., tags which refer to
564 the minor changes in language tag standards over the years; and
571 "ara" has I<never> been in use as an Internet language tag,
573 tag ("ar") exists.
589 valid language tag.
595 my $tag = $_[0];
596 return() unless &is_language_tag($tag);
603 if( $tag =~ m/^[ix]-hakka\b(.*)/i) {push @em, "zh-hakka$1";
604 } elsif($tag =~ m/^zh-hakka\b(.*)/i) { push @em, "x-hakka$1", "i-hakka$1";
606 } elsif($tag =~ m/^he\b(.*)/i) { push @em, "iw$1";
607 } elsif($tag =~ m/^iw\b(.*)/i) { push @em, "he$1";
609 } elsif($tag =~ m/^in\b(.*)/i) { push @em, "id$1";
610 } elsif($tag =~ m/^id\b(.*)/i) { push @em, "in$1";
612 } elsif($tag =~ m/^[ix]-lux\b(.*)/i) { push @em, "lb$1";
613 } elsif($tag =~ m/^lb\b(.*)/i) { push @em, "i-lux$1", "x-lux$1";
615 } elsif($tag =~ m/^[ix]-navajo\b(.*)/i) { push @em, "nv$1";
616 } elsif($tag =~ m/^nv\b(.*)/i) { push @em, "i-navajo$1", "x-navajo$1";
618 } elsif($tag =~ m/^yi\b(.*)/i) { push @em, "ji$1";
619 } elsif($tag =~ m/^ji\b(.*)/i) { push @em, "yi$1";
621 } elsif($tag =~ m/^nb\b(.*)/i) { push @em, "no-bok$1";
622 } elsif($tag =~ m/^no-bok\b(.*)/i) { push @em, "nb$1";
624 } elsif($tag =~ m/^nn\b(.*)/i) { push @em, "no-nyn$1";
625 } elsif($tag =~ m/^no-nyn\b(.*)/i) { push @em, "nn$1";
628 push @em, $alt{$1} . $2 if $tag =~ /^([XIxi])(-.+)/;