[docs] xmldocs - racke modified bin/stattree

docs at icdevgroup.org docs at icdevgroup.org
Sat Oct 15 08:24:49 EDT 2005


User:      racke
Date:      2005-10-15 12:24:48 GMT
Modified:  bin      stattree
Log:
support for orderchecks added

Revision  Changes    Path
1.48      +21 -0     xmldocs/bin/stattree


rev 1.48, prev_rev 1.47
Index: stattree
===================================================================
RCS file: /var/cvs/xmldocs/bin/stattree,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -r1.47 -r1.48
--- stattree	26 Sep 2005 21:31:04 -0000	1.47
+++ stattree	15 Oct 2005 12:24:48 -0000	1.48
@@ -63,6 +63,7 @@
 	usertag => [qw|UserTag/\S+\.tag \.tag dist/usertag/|],
 	filter => [qw/\.filter/],
 	actionmap => [qw/\.am/],
+	ordercheck => [qw/\.oc/],
 	html => [qw/\.html?/],
 	widget => [qw/\.widget/],
 	profile => [qw|/profiles/.+ \.profiles \.login \.order|],
@@ -493,6 +494,26 @@
 			$hash{total}{$fsubtype . "s"}++;
 			last;
 
+		##########################################################
+		# Found an ordercheck 
+		} elsif ( $c{fsubtype} =~ /^ordercheck$/ )  {
+			( my $fn = $file ) =~ s#.+/##;
+			$fn =~ s/\.oc$//;
+
+			push @{ $hash{symbols}{$c{fsubtype}}{$fn} }, {
+				%c,
+				file => "$i{ver}/$c{file}",
+				lnum => scalar @filedata,
+				ctxpre => $ctx_p,
+				ctxpost => $ctx_n,
+				ctxs => 1,
+				ctxe => scalar @filedata,
+				ctx => [ format_ctx(@filedata) ]
+			};
+
+			$hash{total}{$fsubtype . "s"}++;
+			last;
+			
 		##########################################################
 		# Found a HTML page
 		#} elsif ( $c{fsubtype} =~ /^html$/ )  {








More information about the docs mailing list