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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
|
package PDF::Builder::Resource::XObject::Form::BarCode::code3of9;
use base 'PDF::Builder::Resource::XObject::Form::BarCode';
use strict;
use warnings;
our $VERSION = '3.028'; # VERSION
our $LAST_UPDATE = '3.027'; # manually update whenever code is changed
=head1 NAME
PDF::Builder::Resource::XObject::Form::BarCode::code3of9 - Specific information for 3-of-9 bar codes
Inherits from L<PDF::Builder::Resource::XObject::Form::BarCode>
=head1 METHODS
=head2 new
PDF::Builder::Resource::XObject::Form::BarCode::code3of9->new()
=over
Create a Code 3 of 9 bar code object. Note that it is invoked from the
Builder.pm level method!
=back
=cut
sub new {
my ($class, $pdf, %options) = @_;
# copy dashed option names to preferred undashed names
if (defined $options{'-code'} && !defined $options{'code'}) { $options{'code'} = delete($options{'-code'}); }
if (defined $options{'-chk'} && !defined $options{'chk'}) { $options{'chk'} = delete($options{'-chk'}); }
if (defined $options{'-ext'} && !defined $options{'ext'}) { $options{'ext'} = delete($options{'-ext'}); }
my $self = $class->SUPER::new($pdf, %options);
my @bars = encode_3of9($options{'code'},
$options{'chk'}? 1: 0,
$options{'ext'}? 1: 0);
$self->drawbar([@bars], $options{'caption'});
return $self;
}
# allowed alphabet and bar widths
my $code3of9 = q(0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-. $/+%*);
my @bar3of9 = qw(
1112212111 2112111121 1122111121 2122111111
1112211121 2112211111 1122211111 1112112121
2112112111 1122112111 2111121121 1121121121
2121121111 1111221121 2111221111 1121221111
1111122121 2111122111 1121122111 1111222111
2111111221 1121111221 2121111211 1111211221
2111211211 1121211211 1111112221 2111112211
1121112211 1111212211 2211111121 1221111121
2221111111 1211211121 2211211111 1221211111
1211112121 2211112111 1221112111 1212121111
1212111211 1211121211 1112121211 abaababaa1
);
my @extended_map = (
'%U', '$A', '$B', '$C', '$D', '$E', '$F', '$G', '$H', '$I',
'$J', '$K', '$L', '$M', '$N', '$O', '$P', '$Q', '$R', '$S',
'$T', '$U', '$V', '$W', '$X', '$Y', '$Z', '%A', '%B', '%C',
'%D', '$E', ' ', '/A', '/B', '/C', '/D', '/E', '/F', '/G',
'/H', '/I', '/J', '/K', '/L', '-', '.', '/O', '0', '1',
'2', '3', '4', '5', '6', '7', '8', '9', '/Z', '%F',
'%G', '%H', '%I', '%J', '%V', 'A', 'B', 'C', 'D', 'E',
'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O',
'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y',
'Z', '%K', '%L', '%M', '%N', '%O', '%W', '+A', '+B', '+C',
'+D', '+E', '+F', '+G', '+H', '+I', '+J', '+K', '+L', '+M',
'+N', '+O', '+P', '+Q', '+R', '+S', '+T', '+U', '+V', '+W',
'+X', '+Y', '+Z', '%P', '%Q', '%R', '%S', '%T'
);
sub encode_3of9_char {
my $character = shift;
return $bar3of9[index($code3of9, $character)];
}
sub encode_3of9_string {
my ($string, $is_mod43) = @_;
my $bar;
my $checksum = 0;
foreach my $char (split //, $string) {
$bar .= encode_3of9_char($char);
$checksum += index($code3of9, $char);
}
if ($is_mod43) {
$checksum %= 43;
$bar .= $bar3of9[$checksum];
}
return $bar;
}
# Note: encode_3of9_string_w_chk now encode_3of9_string(*, 1)
sub encode_3of9 {
my ($string, $is_mod43, $is_extended) = @_;
my $display;
unless ($is_extended) {
$string = uc($string);
$string =~ s/[^0-9A-Z\-\.\ \$\/\+\%]+//g;
$display = $string;
} else {
# Extended Code39 supports all 7-bit ASCII characters
$string =~ s/[^\x00-\x7f]//g;
$display = $string;
# Encode, but don't display, non-printable characters
$display =~ s/[[:cntrl:]]//g;
$string = join('', map { $extended_map[ord($_)] } split(//, $string));
}
my @bars;
push @bars, encode_3of9_char('*');
push @bars, [ encode_3of9_string($string, $is_mod43), $display ];
push @bars, encode_3of9_char('*');
return @bars;
}
# Note: encode_3of9_w_chk now encode_3of9(*, 1, 0)
# Note: encode_3of9_ext now encode_3of9(*, 0, 1)
# Note: encode_3of9_ext_w_chk now encode_3of9(*, 1, 1)
1;
|
