From e3772c2d1d1bb0771080d771697530410f8419f9 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Thu, 2 Feb 2012 18:45:02 +0100
Subject: [PATCH] parse all ZPL commands

---
 ZPL2pbm.pl | 21 +++++++++++++--------
 1 file changed, 13 insertions(+), 8 deletions(-)

diff --git a/ZPL2pbm.pl b/ZPL2pbm.pl
index e87bc97..0a3af92 100755
--- a/ZPL2pbm.pl
+++ b/ZPL2pbm.pl
@@ -2,19 +2,22 @@
 use warnings;
 use strict;
 use autodie;
+use Data::Dump qw(dump);
 
 # convert Zebra label printer ZPL to pbm image
 
 my $file = shift @ARGV || die "usage: $0 dump.zpl > dump.pbm";
 
 open(my $in, '<', $file);
+my $line = <$in>;
 
-while(<$in>) {
-	chomp;
-	if ( /~DG(\w+:)?(.+)/ ) {
+while( $line ) {
+	$line =~ s/[\r\n]+$//;
+	warn "# line ",dump($line);
+	if ( $line =~ s/~DG(\w+:)?(.+)// ) {
 		my ( $name, $t,$w ) = split(/,/,$2,4);
 
-		warn "# $_ => [$name] t=$t w=$w\n";
+		warn "# ~DG$1 => [$name] t=$t w=$w\n";
 
 		my $data;
 		read $in, $data, $t;
@@ -49,20 +52,22 @@ while(<$in>) {
 				}
 			} else {
 				warn "ABORT: offset $p data [$c]";
+				$line = $c . substr($data,$p);
 				last;
 			}
 
-			warn "## $repeat [$c] out = ",length($out);
+			warn "## $repeat [$c] out = ",length($out),$/;
 		}
 
-
 		my $bitmap = pack('H*', $out);
 		warn "# graphics of ",length($data)," bytes ZPL decompressed to ",length($out)," hex and ", length($bitmap), " bytes bitmap\n";
 		my $pw = $w * 8;
 		my $ph = int(length($bitmap) / $w);
 		print "P4\n$pw $ph\n", substr($bitmap,0,$ph*$w);
 
-	} else {
-		warn "IGNORED: $_\n";
+	} elsif ( $line =~ s/^([~\^][^~\^]*)// ) {
+		warn "ZPL: $1\n";
 	}
+
+	$line = <$in> unless length $line > 0;
 }
-- 
2.20.1