generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Show the running line count and definition cont in debug mode. That

Browse Source 
has helped me a bit when I ran into trouble.
This commit is contained in:
Richard Levitte
2000-07-24 07:01:57 +00:00
parent d55a3cf19d
commit f6cd2d38c0
1 changed files with 11 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
util/mkerr.pl
View File

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