Lines Matching refs:attrs
35 my @attrs = @_;
36 my %attrs = ();
39 while ($#attrs >= 0) {
40 $attrs{$attrs[0]} = $attrs[1];
41 shift(@attrs);
42 shift(@attrs);
50 my $name = $attrs{name};
51 my $countries = $attrs{countries};
52 my $encoding = $attrs{encoding};
53 my $family = $attrs{family};
54 my $f = defined $attrs{family} ? $attrs{family} : "x";
55 my $nc_link = $attrs{namecountry_link};
56 my $e_link = $attrs{encoding_link};
57 my $fallback = $attrs{fallback};
58 my $definitions = $attrs{definitions};
82 foreach my $e (split(" ", $attrs{encoding})) {
83 if (defined $attrs{hex}) {
84 my $k = $attrs{cldr};
85 my $hs = $attrs{hex};
88 if (defined $attrs{string}) {
90 for (my $i = 0; $i < length($attrs{string}); $i++) {
92 ord(substr($attrs{string}, $i, 1)));
94 $d{T}{$e}{$attrs{cldr}}{hex} = $s;
96 if (defined $attrs{unicode}) {
97 my $k = $attrs{cldr};
98 my $uc = $attrs{unicode};
101 if (defined $attrs{ucc}) {
102 my $k = $attrs{cldr};
103 my $uc = $attrs{ucc};
113 my $name = $attrs{name};
114 my $countries = $attrs{countries};