From: Richard Levitte <levitte@openssl.org>
Date: Mon, 24 Jul 2000 07:01:57 +0000 (+0000)
Subject: Show the running line count and definition cont in debug mode.  That
X-Git-Tag: OpenSSL-engine-0_9_6-beta1~17^2~20
X-Git-Url: https://git.openssl.org/?p=openssl.git;a=commitdiff_plain;h=f6cd2d38c05be67f03687118f37e9ae8daaf8a67;ds=sidebyside

Show the running line count and definition cont in debug mode.  That
has helped me a bit when I ran into trouble.
---

diff --git a/util/mkerr.pl b/util/mkerr.pl
index 5f094a5082..7d98b5234d 100644
--- a/util/mkerr.pl
+++ b/util/mkerr.pl
@@ -79,8 +79,11 @@ while (($lib, $hdr) = each %hinc)
 	next if($hdr eq "NONE");
 	print STDERR "Scanning header file $hdr\n" if $debug; 
 	open(IN, "<$hdr") || die "Can't open Header file $hdr\n";
-	my $line = "", $def= "";
+	my $line = "", $def= "", $linenr = 0;
 	while(<IN>) {
+	    $linenr++;
+	    print STDERR "line: $linenr\r" if $debug;
+
 	    last if(/BEGIN\s+ERROR\s+CODES/);
 	    if ($line ne '') {
 		$_ = $line . $_;
@@ -110,7 +113,12 @@ while (($lib, $hdr) = each %hinc)
 	    }
 	}
 
+	print STDERR "                                  \r" if $debug;
+        $defnr = 0;
 	foreach (split /;/, $def) {
+	    $defnr++;
+	    print STDERR "def: $defnr\r" if $debug;
+
 	    s/^[\n\s]*//g;
 	    s/[\n\s]*$//g;
 	    next if(/typedef\W/);
@@ -136,6 +144,8 @@ while (($lib, $hdr) = each %hinc)
 	    }
 	}
 
+	print STDERR "                                  \r" if $debug;
+
 	next if $reindex;
 
 	# Scan function and reason codes and store them: keep a note of the