/usr/share/perl5/auto/PDF/Reuse/mergeLinks.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 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 | # 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 3045 "blib/lib/PDF/Reuse.pm (autosplit into blib/lib/auto/PDF/Reuse/mergeLinks.al)"
sub mergeLinks
{ my $tSida = $sida + 1;
my $rad;
my ($linkObject, $linkObjectNo);
for my $link (@{$links{'-1'}}, @{$links{$tSida}} )
{ my $x2 = $link->{x} + $link->{width};
my $y2 = $link->{y} + $link->{height};
if (exists $links{$link->{v}})
{ $linkObjectNo = $links{$link->{v}};
}
else
{ $objNr++;
$objekt[$objNr] = $pos;
my $v_n;
my $v_v = '('.$link->{v}.')';
if ($link->{s} eq 'GoTo')
{ $v_n = "D";
}
elsif ($link->{s} eq 'GoToA')
{ $link->{s} = 'GoTo';
$v_n = 'D';
$v_v = $link->{v};
}
elsif ($link->{s} eq 'Launch') {$v_n = 'F';}
elsif ($link->{s} eq 'SubmitForm') {$v_n = 'F';}
elsif ($link->{s} eq 'Named')
{ $v_n = 'N';
$v_v = $link->{v};
}
elsif ($link->{s} eq 'JavaScript') {$v_n = "JS";}
else
{ $v_n = $link->{s};
}
$rad = "$objNr 0 obj<</S/$link->{s}/$v_n$v_v>>endobj\n";
$linkObjectNo = $objNr;
$links{$link->{v}} = $objNr;
$pos += syswrite UTFIL, $rad;
}
$rad = "/Subtype/Link/Rect[$link->{x} $link->{y} "
. "$x2 $y2]/A $linkObjectNo 0 R/Border[0 0 0]";
if (exists $links{$rad})
{ push @annots, $links{$rad};
}
else
{ $objNr++;
$objekt[$objNr] = $pos;
$links{$rad} = $objNr;
$rad = "$objNr 0 obj<<$rad>>endobj\n";
$pos += syswrite UTFIL, $rad;
push @annots, $objNr;
}
}
@{$links{'-1'}} = ();
@{$links{$tSida}} = ();
$objNr++;
$objekt[$objNr] = $pos;
$rad = "$objNr 0 obj[\n";
for (@annots)
{ $rad .= "$_ 0 R\n";
}
$rad .= "]endobj\n";
$pos += syswrite UTFIL, $rad;
@annots = ();
return $objNr;
}
# end of PDF::Reuse::mergeLinks
1;
|