Lines Matching refs:ord
6896 $result .= '_' . '00' . lc(sprintf("%02x",ord($1)));
9059 $result .= '_' . lc(sprintf("%04x",ord($1)));
9088 elsif (exists($Texi2HTML::Config::transliterate_map{uc(sprintf("%04x",ord($1)))}))
9090 $result .= $Texi2HTML::Config::transliterate_map{uc(sprintf("%04x",ord($1)))};
9092 elsif (exists($Texi2HTML::Config::unicode_diacritical{uc(sprintf("%04x",ord($1)))}))
18486 my $base_letter = ord('a');
18487 $base_letter = ord('A') if (ucfirst($spec) eq $spec);
18489 my @letter_ords = decompose(ord($spec) - $base_letter + $format->{'item_nr'} - 1, 26);
18490 foreach my $ord (@letter_ords)
18493 $format->{'number'} = chr($base_letter + $ord) . $format->{'number'};