From f6cd2d38c05be67f03687118f37e9ae8daaf8a67 Mon Sep 17 00:00:00 2001 From: Richard Levitte Date: Mon, 24 Jul 2000 07:01:57 +0000 Subject: Show the running line count and definition cont in debug mode. That has helped me a bit when I ran into trouble. --- util/mkerr.pl | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) (limited to 'util') 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() { + $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 -- cgit v1.2.3