From 85a7d8923429d8da7a3d906a7b4e82a2fed694f0 Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Fri, 26 Aug 2016 12:17:50 +0200
Subject: [PATCH] diagnostic messages
---
wkt1.pl | 13 +++++++++----
1 file changed, 9 insertions(+), 4 deletions(-)
diff --git a/wkt1.pl b/wkt1.pl
index 49f485d..557945a 100755
--- a/wkt1.pl
+++ b/wkt1.pl
@@ -139,7 +139,8 @@ my %ns;
my @lines;
my %frame;
my @text;
-my %cnt_ATTN= 0;
+my $cnt_ATTN= 0;
+my $debug_item= 0;
LINE: while (1)
{
$pos= tell(FI);
@@ -188,6 +189,7 @@ LINE: while (1)
{
# print ">>> REVISION\n";
$state= 2;
+ @text= ();
}
elsif ($l =~ m#^\s*<(title|ns|id)>([^<]+)</.+>#)
{
@@ -210,8 +212,9 @@ LINE: while (1)
}
elsif ($l =~ m#^\s*<text(.*)>#) # TODO: check for other <text> tags
{
- print "ATTN: strange text-tag: [$_]\n";
+ print "ATTN: strange text-tag: [$l] title=[$frame{title}]\n";
$cnt_ATTN++;
+ $debug_item= 1;
}
elsif ($l =~ m#^\s*<(id|sha1)>([^<]+)</.+>#)
{
@@ -238,13 +241,15 @@ LINE: while (1)
$frame{fo_pos_end}= $fo_rec->tell();
- if ($debug > 1)
+ if ($debug > 1 || $debug_item)
{
print "="x72, "\n";
print "frame: ", Dumper(\%frame);
print "text: ", Dumper(\@text);
- # print "lines: ", Dumper (\@lines);
+ print "lines: ", Dumper (\@lines);
print "="x72, "\n";
+
+ $debug_item= 0;
}
print FO_ITEMS join ($TSV_SEP, map { $frame{$_} } @cols1), "\n";
--
GitLab