[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