diff options
| author | Richard Levitte <levitte@openssl.org> | 2000-07-24 09:01:57 +0200 |
|---|---|---|
| committer | Richard Levitte <levitte@openssl.org> | 2000-07-24 09:01:57 +0200 |
| commit | f6cd2d38c05be67f03687118f37e9ae8daaf8a67 (patch) | |
| tree | 61df4ab607749bd9c28f5dac328fb889f7d21017 /util/mkerr.pl | |
| parent | Profiling option for mk1mf.pl (diff) | |
| download | openssl-f6cd2d38c05be67f03687118f37e9ae8daaf8a67.tar.xz openssl-f6cd2d38c05be67f03687118f37e9ae8daaf8a67.zip | |
Show the running line count and definition cont in debug mode. That
has helped me a bit when I ran into trouble.
Diffstat (limited to '')
| -rw-r--r-- | util/mkerr.pl | 12 |
1 files changed, 11 insertions, 1 deletions
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 |