blob: 8af79f7129c2fa19d14b44d3ffa854e7b6c7d050 (
plain)
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
|
package PDF::Builder::Basic::PDF::Filter::ASCIIHexDecode;
use base 'PDF::Builder::Basic::PDF::Filter';
use strict;
use warnings;
our $VERSION = '3.026'; # VERSION
our $LAST_UPDATE = '2.029'; # manually update whenever code is changed
=head1 NAME
PDF::Builder::Basic::PDF::Filter::ASCIIHexDecode - compress and uncompress stream filters for ASCII-Hex
=cut
# Maintainer's Note: ASCIIHexDecode is described in the PDF 1.7 spec
# in section 7.4.2.
sub outfilt {
my ($self, $string, $include_eod) = @_;
# Each byte of the input string gets encoded as two hexadecimal
# characters.
$string =~ s/(.)/sprintf('%02x', ord($1))/oge;
# The EOD (end-of-document) marker is a greater-than sign
$string .= '>' if $include_eod;
return $string;
}
sub infilt {
my ($self, $string) = @_;
# "All white-space characters shall be ignored."
$string =~ s/\s//og;
# "A GREATER-THAN SIGN (3Eh) indicates EOD."
my $has_eod_marker = 0;
if (substr($string, -1, 1) eq '>') {
$has_eod_marker = 1;
chop $string;
}
# "Any other characters [than 0-9, A-F, or a-f] shall cause an
# error."
die "Illegal character found in ASCII hex-encoded stream"
if $string =~ /[^0-9A-Fa-f]/;
# "If the filter encounters the EOD marker after reading an odd
# number of hexadecimal digits, it shall behave as if a 0 (zero)
# followed the last digit."
if ($has_eod_marker and length($string) % 2 == 1) {
$string .= '0';
}
# "The ASCIIHexDecode filter shall produce one byte of binary data
# for each pair of ASCII hexadecimal digits."
$string =~ s/([0-9A-Fa-f]{2})/pack("C", hex($1))/oge;
return $string;
}
1;
|