pswidth.ph

来自「开源的nasm编译器源码,研究编译器原理很有帮且」· PH 代码 · 共 27 行

#!/usr/bin/perl
#
# Get the width of a PostScript string in font units
# (1000 font units == the font point height) given a set of
# font metrics and an encoding vector.
#
sub ps_width($$$) {
    my($str, $met, $encoding) = @_;
    my($w) = 0;
    my($i,$c,$p);

    $l = length($str);
    undef $p;
    for ( $i = 0 ; $i < $l ; $i++ ) {
	$c = substr($str,$i,1);
	$w += $$met{widths}{$encoding->[ord($c)]};
	# The standard PostScript "show" operator doesn't do kerning.
	# $w += $$met{kern}{$p.$c};
	$p = $c;
    }
    
    return $w;
}

# OK
1;