[Lxr-commits] CVS: lxr/lib/LXR Files.pm,1.8.2.4,1.8.2.5 Common.pm,1.50,1.50.2.1

[Malcolm B. <mb...@us...>]

Update of /cvsroot/lxr/lxr/lib/LXR
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11983/lib/LXR

Modified Files:
      Tag: bk-dev-branch
	Files.pm Common.pm 
Log Message:
Add a disk-based cache for the results of the 'bk rset' command.
This prevents this from taking too long on subsequent invocations - 
bk rset being a slow operation.

As a disk-based cache this can get out of sync with the repository, 
there is currently no code to detect this.  The idea is that this would be
manually deleted before running genxref, which would have the side
effect of creating an up-to-date cache.

Index: Files.pm
===================================================================
RCS file: /cvsroot/lxr/lxr/lib/LXR/Files.pm,v
retrieving revision 1.8.2.4
retrieving revision 1.8.2.5
diff -u -d -r1.8.2.4 -r1.8.2.5
--- Files.pm	14 Feb 2005 00:50:25 -0000	1.8.2.4
+++ Files.pm	20 Feb 2005 23:44:54 -0000	1.8.2.5
@@ -23,7 +23,7 @@
 use strict;
 
 sub new {
-	my ( $self, $srcroot ) = @_;
+	my ( $self, $srcroot, $params ) = @_;
 	my $files;
 
 	if ( $srcroot =~ /^CVS:(.*)/i ) {
@@ -34,7 +34,7 @@
 	elsif ( $srcroot =~ /^bk:(.*)/i ) {
 		require LXR::Files::BK;
 		$srcroot = $1;
-		$files   = new LXR::Files::BK($srcroot);
+		$files   = new LXR::Files::BK($srcroot, $params);
 	}
 	else {
 		require LXR::Files::Plain;

Index: Common.pm
===================================================================
RCS file: /cvsroot/lxr/lxr/lib/LXR/Common.pm,v
retrieving revision 1.50
retrieving revision 1.50.2.1
diff -u -d -r1.50 -r1.50.2.1
--- Common.pm	26 Jul 2004 20:47:43 -0000	1.50
+++ Common.pm	20 Feb 2005 23:44:54 -0000	1.50.2.1
@@ -510,7 +510,7 @@
 	$identifier = $HTTP->{'param'}->{'i'};
 	$config     = new LXR::Config($HTTP->{'this_url'});
 	die "Can't find config for " . $HTTP->{'this_url'} if !defined($config);
-	$files = new LXR::Files($config->sourceroot);
+	$files = new LXR::Files($config->sourceroot, $config->sourceparam);
 	die "Can't create Files for " . $config->sourceroot if !defined($files);
 	$index = new LXR::Index($config->dbname);
 	die "Can't create Index for " . $config->dbname if !defined($index);