Commit f6cd2d38 authored by Richard Levitte's avatar Richard Levitte
Browse files

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

has helped me a bit when I ran into trouble.
parent d55a3cf1

util/mkerr.pl

+11 −1
Original line number Diff line number Diff line
@@ -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