Lines Matching refs:val
125 $val = $words[0];
126 if (defined ($map{$val})) {
127 $map{$val} .= " ".$utf8;
129 $map{$val} = $utf8;
136 my $val = shift;
138 $val = hex($val);
140 if ($val == 0) {
143 while ($val) {
144 $str = sprintf("\\x%02x", $val & 0xff).$str;
145 $val >>= 8;
157 foreach $val (sort (keys (%map))) {
158 #$utf8 = $map{$val};
159 foreach $utf8 (split / /, $map{$val}) {
168 print mb_str($val)."\n";