Adding txt extension to patch file...
--- PageText.pm.old Thu Aug 15 06:08:26 2013
+++ PageText.pm Sun May 14 16:46:33 2017
@@ -47,12 +47,98 @@
=cut
+use CAM::PDF;
+use Encode qw/ decode /;
+
+sub _n { CAM::PDF::Node-> new( @_ )}
+sub _p { CAM::PDF-> parseAny( \$_[ 0 ])}
+
+sub _add_tables {
+ my ( $doc, $props ) = @_;
+
+ for ( values %$props ) {
+ my $node = $doc-> dereference( $_-> { value });
+ my $dict = $doc-> getValue( $node );
+
+ next if exists $node-> { _lut }; # seen
+ next unless exists $dict-> { Type };
+ next unless $doc-> getValue( $dict-> { Type }) eq 'Font';
+ next unless exists $dict-> { ToUnicode };
+
+ my %lut;
+
+ my $cmap = $doc-> decodeOne( _n(
+ dictionary => $doc-> getValue( $dict-> { ToUnicode })
+ ));
+ while ( $cmap =~ /^\d+ \s+ beginbfchar \s*? \n
+ (.+?)\n
+ endbfchar \s*? $/xgms ) {
+
+ for my $line ( split "\n", $1 ) {
+ my @ary = map { $_-> { value }}
+ @{ _p( "[ $line ]" )-> { value }};
+ $lut{ $ary[ 0 ]} = decode 'UTF16BE', $ary[ 1 ];
+ }
+ }
+ while ( $cmap =~ /^\d+ \s+ beginbfrange \s*? \n
+ (.+?)\n
+ endbfrange \s*? $/xgms ) {
+
+ for my $line ( split "\n", $1 ) {
+ my @ary = map { $_-> { value }}
+ @{ _p( "[ $line ]" )-> { value }};
+
+ my $tpl = length $ary[ 0 ] == 1 ? 'C' : 'n';
+ my ( $from, $to ) = map { unpack $tpl, $_ } @ary;
+
+ my @list;
+ if ( ref $ary[ 2 ] eq 'ARRAY' ) {
+ @list = map {
+ decode 'UTF16BE', $_-> { value }
+ } @{ $ary[ 2 ]};
+ }
+ else {
+ my $s = $ary[ 2 ];
+ my $byte = ord chop $s;
+ @list = map {
+ decode 'UTF16BE', $s. chr $byte ++
+ } $from .. $to
+ }
+ @lut{ map { pack $tpl, $_ } $from .. $to } = @list
+ }
+ }
+ next unless %lut; # huh?
+ my $len = length +( keys %lut )[ 0 ];
+ next if grep { $len != length } keys %lut; # pretend they don't exist
+ $node-> { _lut } = \%lut
+ }
+}
+
+sub _xlate {
+ my ( $str, $lut ) = @_;
+
+ if ( $lut ) {
+ my $len = length +( keys %$lut )[ 0 ];
+ $str =~ s/ ( .{$len} ) /
+ exists( $lut-> { $1 } )
+ ? $lut-> { $1 }
+ : $1
+ /gxse
+ }
+ return $str
+}
+
sub render
{
my $pkg = shift;
my $pagetree = shift;
my $verbose = shift;
+ my $doc = $pagetree-> { refs }{ doc };
+ my $props = $pagetree-> { refs }{ properties };
+ _add_tables( $doc, $props );
+ $pagetree-> render( 'CAM::PDF::GS' );
+
my $str = q{};
my @stack = ([@{$pagetree->{blocks}}]);
my $in_textblock = 0;
@@ -87,11 +173,16 @@
die 'misconception';
}
my @args = @{$block->{args}};
-
- $str = $block->{name} eq 'TJ' ? _TJ( $str, \@args )
- : $block->{name} eq 'Tj' ? _Tj( $str, \@args )
- : $block->{name} eq q{\'} ? _Tquote( $str, \@args )
- : $block->{name} eq q{\"} ? _Tquote( $str, \@args )
+
+ my $name = $block-> { gs }{ Tf };
+ my $lut = $name
+ ? $doc-> dereference( $props-> { $name }{ value })-> { _lut }
+ : undef;
+
+ $str = $block->{name} eq 'TJ' ? _TJ( $str, \@args, $lut )
+ : $block->{name} eq 'Tj' ? _Tj( $str, \@args, $lut )
+ : $block->{name} eq q{\'} ? _Tquote( $str, \@args, $lut )
+ : $block->{name} eq q{\"} ? _Tquote( $str, \@args, $lut )
: $block->{name} eq 'Td' ? _Td( $str, \@args )
: $block->{name} eq 'TD' ? _Td( $str, \@args )
: $block->{name} eq 'T*' ? _Tstar( $str )
@@ -121,6 +212,7 @@
{
my $str = shift;
my $args_ref = shift;
+ my $lut = shift;
if (@{$args_ref} != 1 || $args_ref->[0]->{type} ne 'array')
{
@@ -132,7 +224,7 @@
{
if ($node->{type} eq 'string' || $node->{type} eq 'hexstring')
{
- $str .= $node->{value};
+ $str .= _xlate( $node->{value}, $lut );
}
elsif ($node->{type} eq 'number')
{
@@ -152,6 +244,7 @@
{
my $str = shift;
my $args_ref = shift;
+ my $lut = shift;
if (@{$args_ref} < 1 ||
($args_ref->[-1]->{type} ne 'string' && $args_ref->[-1]->{type} ne 'hexstring'))
@@ -161,13 +254,14 @@
$str =~ s/ (\S) \z /$1 /xms;
- return $str . $args_ref->[-1]->{value};
+ return $str . _xlate( $args_ref->[-1]->{value}, $lut );
}
sub _Tquote
{
my $str = shift;
my $args_ref = shift;
+ my $lut = shift;
if (@{$args_ref} < 1 ||
($args_ref->[-1]->{type} ne 'string' && $args_ref->[-1]->{type} ne 'hexstring'))
@@ -177,7 +271,7 @@
$str =~ s/ [ ]* \z /\n/xms;
- return $str . $args_ref->[-1]->{value};
+ return $str . _xlate( $args_ref->[-1]->{value}, $lut );
}
sub _Td
