configure DARKNESS=0 with env variable
[Printer-Zebra.git] / ZPL2pbm.pl
1 #!/usr/bin/perl
2 use warnings;
3 use strict;
4 use autodie;
5 use Data::Dump qw(dump);
6
7 # convert Zebra label printer ZPL to pbm image
8
9 my $command;
10 while(<DATA>) {
11         chomp;
12         my ( $cmd, $desc ) = split(/\s/,$_,2);
13         $command->{$cmd} = $desc;
14 }
15
16 my $file = shift @ARGV || die "usage: $0 dump.zpl > dump.pbm\n";
17
18 open(my $in, '<', $file);
19
20 our $line = '';
21 sub slurp_line {
22         $line .= <$in> unless length $line > 3;
23 }
24 slurp_line;
25
26 while( $line ) {
27         $line =~ s/[\r\n]+$// && warn "## removed CR/LF\n";
28         warn "# line ",dump($line),$/ if length($line) < 80 or $ENV{DEBUG};
29         if ( $line =~ s/~DG(\w+:)?(.+)// ) {
30                 my ( $name, $total_bytes, $row_bytes ) = split(/,/,$2,4);
31
32                 warn "# ~DG$1 => [$name] $total_bytes bytes $row_bytes in row\n";
33
34                 my $data = <$in>;
35
36                 my $w = $row_bytes * 2; # hex digits
37
38                 my $out = '';
39                 # ZPL decompress
40                 my $repeat = 0;
41                 foreach my $p ( 0 .. length($data) - 1 ) {
42
43                         if ( length($out) == $total_bytes * 2 ) {
44                                 warn "END of bitmap\n";
45                                 $line = substr($data,$p);
46                                 slurp_line;
47                                 last;
48                         };
49
50                         my $c = substr($data,$p,1);
51
52                         if ( $c eq ',' ) {
53                                 my $l = $w - ( length($out) % $w );
54                                 $l = $w if $l == 0;
55                                 warn "# $p ZERO-to-EOL $c [$l]\n";
56                                 $out .= "0" x $l;
57                         } elsif ( $c eq '!' ) {
58                                 my $l = $w - ( length($out) % $w );
59                                 $l = $w if $l == 0;
60                                 warn "# $p ONE-to-EOL $c [$l]\n";
61                                 $out .= "F" x $l;
62                         } elsif ( $c eq ':' ) {
63 #                               $out .= length($out) > $w ? substr($out,-$w) : "0" x $w;
64                                 $out .= substr($out,-$w);
65                                 warn "# $p repeat last line\n";
66                         } elsif ( $c eq 'z' ) {
67                                 $repeat += 400;
68                         } elsif ( $c ge 'g' && $c le 'y' ) {
69                                 $repeat += 20 * ( ord($c) - ord('f') );
70                         } elsif ( $c ge 'G' && $c le 'Y' ) {
71                                 $repeat += ord($c) - ord('F');
72                         } elsif ( $c =~ m/[0-9A-F]/i ) {
73                                 if ( $repeat ) {
74                                         warn "# $p $repeat $c\n";
75                                         $out .= $c x $repeat;
76                                         $repeat = 0;
77                                 } else {
78                                         warn "# $p hex $c\n";
79                                         $out .= $c;
80                                 }
81                         } else {
82                                 die "ABORT: offset $p data [$c]";
83                         }
84
85                         warn "## $repeat [$c] out = ",length($out),$/;
86                 }
87
88                 my $bitmap = pack('H*', $out);
89                 warn "# graphics of ",length($data)," bytes ZPL decompressed to ",length($out)," hex and ", length($bitmap), " bytes bitmap\n";
90                 my $pw = $row_bytes * 8;
91                 my $ph = int(length($bitmap) / $row_bytes);
92                 print "P4\n$pw $ph\n", substr($bitmap,0,$ph*$row_bytes);
93
94         } elsif ( $line =~ s/^([~\^][^~\^\r\n]*)// ) {
95                 my $cmd = substr($1,0,3);
96                 if ( my $desc = $command->{$cmd} ) {
97                         warn "ZPL: $1\t$desc\n";
98                 } else {
99                         warn "UNKNOWN: ",dump($1),$/;
100                 }
101                 $line =~ s/^[\r\n]+// && warn "## removed CR/LF\n";
102         } else {
103                 my $unknown = $1 if $line =~ s/^(.)//; # printer seems to ignore invalid chars
104                 warn "IGNORE: ",dump($unknown);
105         }
106
107         slurp_line;
108 }
109
110 __DATA__
111 ^A Scalable/Bitmapped Font
112 ^A@ Use Font Name to Call Font
113 ^B1 Code 11 Bar Code
114 ^B2 Interleaved 2 of 5 Bar Code
115 ^B3 Code 39 Bar Code
116 ^B4 Code 49 Bar Code
117 ^B5 Planet Code bar code
118 ^B7 PDF417 Bar Code
119 ^B8 EAN-8 Bar Code
120 ^B9 UPC-E Bar Code
121 ^BA Code 93 Bar Code
122 ^BB CODABLOCK Bar Code
123 ^BC Code 128 Bar Code (Subsets A, B, and C)
124 ^BD UPS MaxiCode Bar Code
125 ^BE EAN-13 Bar Code
126 ^BF Micro-PDF417 Bar Code
127 ^BI Industrial 2 of 5 Bar Codes
128 ^BJ Standard 2 of 5 Bar Code
129 ^BK ANSI Codabar Bar Code
130 ^BL LOGMARS Bar Code
131 ^BM MSI Bar Code
132 ^BO Aztec Bar Code Parameters
133 ^BP Plessey Bar Code
134 ^BQ QR Code Bar Code
135 ^BR RSS (Reduced Space Symbology) Bar Code
136 ^BS UPC/EAN Extensions
137 ^BT TLC39 bar code
138 ^BU UPC-A Bar Code
139 ^BX Data Matrix Bar Code
140 ^BY Bar Code Field Default
141 ^BZ POSTNET Bar Code
142 ^CC Change Carets
143 ~CC Change Carets
144 ^CD Change Delimiter
145 ~CD Change Delimiter
146 ^CF Change Alphanumeric Default Font
147 ^CI Change International Font
148 ^CM Change Memory Letter Designation
149 ^CO Cache On
150 ^CT Change Tilde
151 ~CT Change Tilde
152 ^CV Code Validation
153 ^CW Font Identifier
154 ~DB Download Bitmap Font
155 ~DE Download Encoding
156 ^DF Download Format
157 ~DG Download Graphics
158 ~DN Abort Download Graphic
159 ~DS Download Scalable Font
160 ~DT Download TrueType Font
161 ~DU Download Unbounded TrueType Font
162 ~DY Download Graphics
163 ~EG Erase Download Graphics
164 ^FB Field Block
165 ^FC Field Clock (for Real-Time Clock)
166 ^FD Field Data
167 ^FH Field Hexadecimal Indicator
168 ^FM Multiple Field Origin Locations
169 ^FN Field Number
170 ^FO Field Origin
171 ^FP Field Parameter
172 ^FR Field Reverse Print
173 ^FS Field Separator
174 ^FT Field Typeset
175 ^FV Field Variable
176 ^FW Field Orientation
177 ^FX Comment
178 ^GB Graphic Box
179 ^GC Graphic Circle
180 ^GD Graphic Diagonal Line
181 ^GE Graphic Ellipse
182 ^GF Graphic Field
183 ^GS Graphic Symbol
184 ~HB Battery Status
185 ~HD Head Temperature Information
186 ^HF Graphic Symbol
187 ^HG Host Graphic
188 ^HH Configuration Label Return
189 ~HI Host Identification
190 ~HM Host RAM Status
191 ~HS Host Status Return
192 ~HU Return ZebraNet Alert Configuration
193 ^HV Host Verification
194 ^HW Host Directory List
195 ^HY Upload Graphics
196 ^HZ Display Description Information
197 ^ID Object Delete
198 ^IL Image Load
199 ^IM Image Move
200 ^IS Image Save
201 ~JA Cancel All
202 ^JB Initialize Flash Memory
203 ~JB Reset Optional Memory
204 ~JC Set Media Sensor Calibration
205 ~JD Enable Communications Diagnostics
206 ~JE Disable Diagnostics
207 ~JF Set Battery Condition
208 ~JG Graphing Sensor Calibration
209 ^JJ Set Auxiliary Port
210 ~JL Set Label Length
211 ^JM Set Dots per Millimeter
212 ~JN Head Test Fatal
213 ~JO Head Test Non fatal
214 ~JP Pause and Cancel Format
215 ~JR Power On Reset
216 ^JS Sensor Select
217 ~JS Change Backfeed Sequence
218 ^JT Head Test Interval
219 ^JU Configuration Update
220 ^JW Set Ribbon Tension
221 ~JX Cancel Current Partially Input Format
222 ^JZ Reprint After Error
223 ~KB Kill Battery (Battery Discharge Mode)
224 ^KD Select Date and Time Format (for Real Time Clock)
225 ^KL Define Language
226 ^KN Define Printer Name
227 ^KP Define Password
228 ^LH Label Home
229 ^LL Label Length
230 ^LR Label Reverse Print
231 ^LS Label Shift
232 ^LT Label Top
233 ^MC Map Clear
234 ^MD Media Darkness
235 ^MF Media Feed
236 ^ML Maximum Label Length
237 ^MM Print Mode
238 ^MN Media Tracking
239 ^MP Mode Protection
240 ^MT Media Type
241 ^MU Set Units of Measurement
242 ^MW Modify Head Cold Warning
243 ~NC Network Connect
244 ^NI Network ID Number
245 ~NR Set All Network Printers Transparent
246 ^NS Change Networking Settings
247 ~NT Set Currently Connected Printer Transparent
248 ^PF Slew Given Number of Dot Rows
249 ^PH Slew to Home Position
250 ~PH Slew to Home Position
251 ^PM Printing Mirror Image of Label
252 ^PO Print Orientation
253 ^PP Programmable Pause
254 ~PP Programmable Pause
255 ^PQ Print Quantity
256 ^PR Print Rate
257 ~PR Applicator Reprint
258 ~PS Print Start
259 ^PW Print Width
260 ~RO Reset Advanced Counter
261 ^SC Set Serial Communications
262 ~SD Set Darkness
263 ^SE Select Encoding
264 ^SF Serialization Field (with a Standard ^FD String)
265 ^SL Set Mode and Language (for Real-Time Clock)
266 ^SN Serialization Data
267 ^SO Set Offset (for Real-Time Clock)
268 ^SP Start Print
269 ^SQ Halt ZebraNet Alert
270 ^SR Set Printhead Resistance
271 ^SS Set Media Sensors
272 ^ST Set Date and Time (for Real-Time Clock)
273 ^SX Set ZebraNet Alert
274 ^SZ Set ZPL
275 ~TA Tear-off Adjust Position
276 ^TO Transfer Object
277 ~WC Print Configuration Label
278 ^WD Print Directory Label
279 ^XA Start Format
280 ^XB Suppress Backfeed
281 ^XF Recall Format
282 ^XG Recall Graphic
283 ^XZ End Format
284 ^ZZ Printer Sleep