[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