/usr/share/perl5/auto/PDF/Reuse/findBarFont.al is in libpdf-reuse-perl 0.35-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 | # NOTE: Derived from blib/lib/PDF/Reuse.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package PDF::Reuse;
#line 3892 "blib/lib/PDF/Reuse.pm (autosplit into blib/lib/auto/PDF/Reuse/findBarFont.al)"
##############################################################
# Streckkods fonten lokaliseras och objekten skrivs ev. ut
##############################################################
sub findBarFont()
{ my $Font = 'Bar';
if (exists $font{$Font}) # Objekt är redan definierat
{ $aktuellFont[foEXTNAMN] = $Font;
$aktuellFont[foREFOBJ] = $font{$Font}[foREFOBJ];
$aktuellFont[foINTNAMN] = $font{$Font}[foINTNAMN];
}
else
{ $objNr++;
$objekt[$objNr] = $pos;
my $encodObj = $objNr;
my $fontObjekt = "$objNr 0 obj\n<< /Type /Encoding\n" .
'/Differences [48 /tomt /streck /lstreck]' . "\n>>\nendobj\n";
$pos += syswrite UTFIL, $fontObjekt;
my $charProcsObj = createCharProcs();
$objNr++;
$objekt[$objNr] = $pos;
$fontNr++;
my $fontAbbr = 'Ft' . $fontNr;
$fontObjekt = "$objNr 0 obj\n<</Type/Font/Subtype/Type3\n" .
'/FontBBox [0 -250 75 2000]' . "\n" .
'/FontMatrix [0.001 0 0 0.001 0 0]' . "\n" .
"\/CharProcs $charProcsObj 0 R\n" .
"\/Encoding $encodObj 0 R\n" .
'/FirstChar 48' . "\n" .
'/LastChar 50' . "\n" .
'/Widths [75 75 75]' . "\n>>\nendobj\n";
$font{$Font}[foINTNAMN] = $fontAbbr;
$font{$Font}[foREFOBJ] = $objNr;
$objRef{$fontAbbr} = $objNr;
$objekt[$objNr] = $pos;
$aktuellFont[foEXTNAMN] = $Font;
$aktuellFont[foREFOBJ] = $objNr;
$aktuellFont[foINTNAMN] = $fontAbbr;
$pos += syswrite UTFIL, $fontObjekt;
}
if (! $pos)
{ errLog("No output file, you have to call prFile first");
}
$sidFont{$aktuellFont[foINTNAMN]} = $aktuellFont[foREFOBJ];
}
# end of PDF::Reuse::findBarFont
1;
|