[docs] xmldocs - docelic modified 2 files

[docs at icdevgroup.org]

User:      docelic
Date:      2004-09-22 06:55:58 GMT
Modified:  bin      refs-autogen stattree
Log:
bin/refs-autogen:
 - just warn about items with more than $max_ctxs (10) source contexts

bin/stattree:
 - now properly trims common number of /^spaces/ from source contexts
   (It worked before, but trimmed nothing if there was an empty line
   within the context)

Revision  Changes    Path
1.29      +16 -3     xmldocs/bin/refs-autogen


rev 1.29, prev_rev 1.28
Index: refs-autogen
===================================================================
RCS file: /var/cvs/xmldocs/bin/refs-autogen,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -r1.28 -r1.29
--- refs-autogen	21 Sep 2004 16:08:01 -0000	1.28
+++ refs-autogen	22 Sep 2004 06:55:58 -0000	1.29
@@ -159,7 +159,11 @@
 				# Make sure we don't overdo it with source contexts.
 				# MV_PAGE appears on like 31 place. We definitely don't need to
 				# see more than 10.
-				if ( $ctxcount++ > $max_ctxs ) { last }
+				if ( $ctxcount++ > $max_ctxs ) {
+					print STDERR "$$ag{name} has ", scalar @$ar,
+						" contexts, limiting to $max_ctxs\n";
+					last;
+				}
 #					my $hidden = @$ar - $max_ctxs;
 #					$$ag{source} .= <<ENDD;
 #<para>
@@ -182,9 +186,18 @@
 					( my $plf = $$ctx{file} ) =~ s#.+?/##;
 					#my $loc = "$$ctx{file}:$$ctx{lnum}";
 					my $loc = $$ctx{file};
+					
+					my $cstart = $$ctx{lnum}-$$ctx{ctxpre};
+					# XXX - eliminate negative numbers in source context spans
+					# ( 0-6 == OK, -4-6 != OK )
+					#if ( $cstart < 0 ) {
+					#	print STDERR "CSTART IS $cstart FOR $$ag{name}\n";
+					#	$cstart = 0 ;
+					#}
+					my $cend = $$ctx{lnum}+$$ctx{ctxpost};
 					my $ctxmeta = "Line $$ctx{lnum} (context shows lines " .
-						( $$ctx{lnum}-$$ctx{ctxpre}) . "-" .
-						($$ctx{lnum}+$$ctx{ctxpost});
+						( $cstart . "-" .  $cend );
+					
 					$ctxmeta .= " in $$ctx{func}():$$ctx{funclnum}" if $$ctx{funclnum};
 					$ctxmeta .= ")";
 					my $r = $hash{revision}{$plf}->[0];



1.17      +10 -13    xmldocs/bin/stattree


rev 1.17, prev_rev 1.16
Index: stattree
===================================================================
RCS file: /var/cvs/xmldocs/bin/stattree,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -r1.16 -r1.17
--- stattree	21 Sep 2004 16:04:26 -0000	1.16
+++ stattree	22 Sep 2004 06:55:58 -0000	1.17
@@ -382,24 +382,21 @@
 
 # Format the context lines before saving to the db
 sub format_ctx {
-	map { s/\t/  /g; chomp } @_;
+	for $_ ( @_ ) { s/\t/  /g; chomp };
 	# Find the number of starting whitespace common to all lines
-	# and trim it. XXX doesn't work
-	my $cs = 1000;
-	for my $ol ( @_ ) {
-		$ol =~ /^(\s*)/;
-		my $space_len = length $1;
-		$cs = $space_len if $space_len < $cs;
+	# and trim it.
+	my $common;
+	for $_ ( @_ ) {
+		if (/\S/ and /^( +)/) {
+			$common = length($1) if !defined $common || length($1) < $common
+		}
 		# Catch runaway lines (produces crapload of things, so refine
 		# search before starting to use it)
-		#if ( $ol =~ /\S\s{10,}/ ) {
-		#	warn "Runaway '$ol' ?\n";
+		#if ( $_ =~ /\S\s{10,}/ ) {
+		#	warn "Runaway '$_' ?\n";
 		#}
 	}
-	if ( $cs ) { # There is something to trim
-		#print "Trimming by $cs\n"; # XXX <- should be more of those ?!
-		map { s/^\s{$cs}// or warn "LTRIM: No $cs spaces?\n" } @_
-	}
+	if ( $common ) { s/^ {$common}// for @_ }
 	return @_;
 }