[docs] xmldocs - docelic modified bin/stattree
docs at icdevgroup.org
docs at icdevgroup.org
Tue Aug 30 16:00:24 EDT 2005
User: docelic
Date: 2005-08-30 20:00:23 GMT
Modified: bin stattree
Log:
* Make bin/stattree output a list of all files found to tmp/<version>.filelist
This is very great. I will use the list in bin/refs-autogen to create entities
out of file names, so for example, entity &cvsfile-README; will generate a
link to README file in IC CVS HEAD.
Revision Changes Path
1.43 +11 -0 xmldocs/bin/stattree
rev 1.43, prev_rev 1.42
Index: stattree
===================================================================
RCS file: /var/cvs/xmldocs/bin/stattree,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -r1.42 -r1.43
--- stattree 29 Aug 2005 19:19:12 -0000 1.42
+++ stattree 30 Aug 2005 20:00:23 -0000 1.43
@@ -40,6 +40,7 @@
my %resolver_path; # Support for stack (a -> b -> c -> d =>
# a = d with full "path" recorded). This expands
# MapRoutines, parse_ functions and things like that.
+my ($filelist, at filelist); # Keep and dump list of all files found
# All file types should be listed here or the stats wont be accurate.
# It should be reported if an unknown file is found in the archive (you can
@@ -146,12 +147,22 @@
close OUT;
}
+# Dump out file list
+local $" = "\n";
+open OUT, "> tmp/$i{ver}.filelist" or
+ die "Can't open tmp/$i{ver}.filelist ($!)\n";
+print OUT "@filelist";
+close OUT;
+
exit 0;
#################################################################
# Helpers below
sub wanted {
( my $file = $_ ) =~ s/^\.\///;
+ return if $file eq '.';
+
+ push @filelist, $file;
# Things we ignore
return if /(^|\/)(CVS|\.cvs|\.svn|\.autoload)(\/.+[^\/])?$/;
More information about the docs
mailing list