lxr-commits Mailing List for LXR Cross Referencer (Page 19)
Brought to you by:
ajlittoz
Menu
▾
▴
lxr-commits — Don't use, CVS commits
You can subscribe to this list here.
| 2001 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
(11) |
Sep
(13) |
Oct
(11) |
Nov
(19) |
Dec
(1) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2002 |
Jan
(11) |
Feb
(14) |
Mar
(10) |
Apr
|
May
|
Jun
|
Jul
(8) |
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2003 |
Jan
|
Feb
|
Mar
(10) |
Apr
|
May
(2) |
Jun
(4) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2004 |
Jan
|
Feb
|
Mar
|
Apr
(3) |
May
|
Jun
(26) |
Jul
(83) |
Aug
(4) |
Sep
(4) |
Oct
(9) |
Nov
|
Dec
(17) |
| 2005 |
Jan
(1) |
Feb
(71) |
Mar
(1) |
Apr
(3) |
May
(9) |
Jun
|
Jul
|
Aug
|
Sep
(4) |
Oct
(1) |
Nov
(6) |
Dec
|
| 2006 |
Jan
|
Feb
|
Mar
|
Apr
(35) |
May
|
Jun
(2) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
(12) |
| 2007 |
Jan
|
Feb
|
Mar
|
Apr
(2) |
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2009 |
Jan
|
Feb
|
Mar
(30) |
Apr
(55) |
May
(28) |
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2010 |
Jan
(5) |
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2012 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
(5) |
| 2013 |
Jan
(35) |
Feb
|
Mar
(7) |
Apr
(12) |
May
(1) |
Jun
(2) |
Jul
|
Aug
(1) |
Sep
(32) |
Oct
|
Nov
(45) |
Dec
(18) |
| 2014 |
Jan
(9) |
Feb
|
Mar
(10) |
Apr
(2) |
May
(4) |
Jun
(1) |
Jul
|
Aug
|
Sep
|
Oct
(7) |
Nov
(4) |
Dec
|
|
From: Malcolm B. <mb...@us...> - 2005-02-13 19:30:27
|
Update of /cvsroot/lxr/lxr/tests/bk-test-repository/firstdir In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10962/tests/bk-test-repository/firstdir Log Message: Directory /cvsroot/lxr/lxr/tests/bk-test-repository/firstdir added to the repository |
|
From: Malcolm B. <mb...@us...> - 2005-02-13 19:30:26
|
Update of /cvsroot/lxr/lxr/tests/bk-test-repository/seconddir In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10962/tests/bk-test-repository/seconddir Log Message: Directory /cvsroot/lxr/lxr/tests/bk-test-repository/seconddir added to the repository |
|
From: Malcolm B. <mb...@us...> - 2005-02-13 19:30:26
|
Update of /cvsroot/lxr/lxr/tests/bk-test-repository/seconddir/thirddir In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10962/tests/bk-test-repository/seconddir/thirddir Log Message: Directory /cvsroot/lxr/lxr/tests/bk-test-repository/seconddir/thirddir added to the repository |
|
From: Malcolm B. <mb...@us...> - 2005-02-13 19:30:26
|
Update of /cvsroot/lxr/lxr/tests/bk-test-repository/BitKeeper/log In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10962/tests/bk-test-repository/BitKeeper/log Log Message: Directory /cvsroot/lxr/lxr/tests/bk-test-repository/BitKeeper/log added to the repository |
|
From: Malcolm B. <mb...@us...> - 2005-02-13 19:30:25
|
Update of /cvsroot/lxr/lxr/tests/bk-test-repository/BitKeeper/etc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10962/tests/bk-test-repository/BitKeeper/etc Log Message: Directory /cvsroot/lxr/lxr/tests/bk-test-repository/BitKeeper/etc added to the repository |
|
From: Malcolm B. <mb...@us...> - 2005-02-13 19:30:25
|
Update of /cvsroot/lxr/lxr/tests/bk-test-repository/BitKeeper/deleted In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10962/tests/bk-test-repository/BitKeeper/deleted Log Message: Directory /cvsroot/lxr/lxr/tests/bk-test-repository/BitKeeper/deleted added to the repository |
|
From: Malcolm B. <mb...@us...> - 2005-02-13 19:30:25
|
Update of /cvsroot/lxr/lxr/tests/bk-test-repository In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10962/tests/bk-test-repository Log Message: Directory /cvsroot/lxr/lxr/tests/bk-test-repository added to the repository --> Using per-directory sticky tag `bk-dev-branch' |
|
From: Malcolm B. <mb...@us...> - 2005-02-13 19:30:25
|
Update of /cvsroot/lxr/lxr/tests/bk-test-repository/BitKeeper In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10962/tests/bk-test-repository/BitKeeper Log Message: Directory /cvsroot/lxr/lxr/tests/bk-test-repository/BitKeeper added to the repository |
|
From: Malcolm B. <mb...@us...> - 2005-02-13 19:29:32
|
Update of /cvsroot/lxr/lxr/tests/bk-reference-files In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10485/tests/bk-reference-files Log Message: Directory /cvsroot/lxr/lxr/tests/bk-reference-files added to the repository --> Using per-directory sticky tag `bk-dev-branch' |
|
From: Malcolm B. <mb...@us...> - 2005-01-05 17:13:29
|
Update of /cvsroot/lxr/lxr In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29983 Modified Files: INSTALL Log Message: Fix bug 103178: Document that MySQL 4.x is needed Index: INSTALL =================================================================== RCS file: /cvsroot/lxr/lxr/INSTALL,v retrieving revision 1.19 retrieving revision 1.20 diff -u -d -r1.19 -r1.20 --- INSTALL 11 Oct 2004 19:39:26 -0000 1.19 +++ INSTALL 5 Jan 2005 17:13:20 -0000 1.20 @@ -5,7 +5,7 @@ 1) A recent version of the exuberant ctags program. Available from http://sf.net/projects/ctags -2) A relational database - MySQL (http://www.mysql.com), Postgresql +2) A relational database - MySQL 4.x (http://www.mysql.com), Postgresql (http://www.postgresql.org) and Oracle are supported. You will also need the right Perl DBI drivers for your particular database, usually available from CPAN. |
|
From: Malcolm B. <mb...@us...> - 2004-12-13 01:10:02
|
Update of /cvsroot/lxr/lxr/tests/bk-repository/BitKeeper/etc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1639/tests/bk-repository/BitKeeper/etc Log Message: Directory /cvsroot/lxr/lxr/tests/bk-repository/BitKeeper/etc added to the repository |
|
From: Malcolm B. <mb...@us...> - 2004-12-13 01:10:02
|
Update of /cvsroot/lxr/lxr/tests/bk-repository/BitKeeper/tmp In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1639/tests/bk-repository/BitKeeper/tmp Log Message: Directory /cvsroot/lxr/lxr/tests/bk-repository/BitKeeper/tmp added to the repository |
|
From: Malcolm B. <mb...@us...> - 2004-12-13 01:10:01
|
Update of /cvsroot/lxr/lxr/tests/bk-repository/BitKeeper/tmp/lconfig In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1639/tests/bk-repository/BitKeeper/tmp/lconfig Log Message: Directory /cvsroot/lxr/lxr/tests/bk-repository/BitKeeper/tmp/lconfig added to the repository |
|
From: Malcolm B. <mb...@us...> - 2004-12-13 01:10:01
|
Update of /cvsroot/lxr/lxr/tests/bk-repository/BitKeeper/deleted In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1639/tests/bk-repository/BitKeeper/deleted Log Message: Directory /cvsroot/lxr/lxr/tests/bk-repository/BitKeeper/deleted added to the repository |
|
From: Malcolm B. <mb...@us...> - 2004-12-13 01:10:01
|
Update of /cvsroot/lxr/lxr/tests/bk-repository In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1639/tests/bk-repository Log Message: Directory /cvsroot/lxr/lxr/tests/bk-repository added to the repository --> Using per-directory sticky tag `bk-dev-branch' |
|
From: Malcolm B. <mb...@us...> - 2004-12-13 01:10:00
|
Update of /cvsroot/lxr/lxr/tests/bk-repository/test In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1639/tests/bk-repository/test Log Message: Directory /cvsroot/lxr/lxr/tests/bk-repository/test added to the repository |
|
From: Malcolm B. <mb...@us...> - 2004-12-13 01:10:00
|
Update of /cvsroot/lxr/lxr/tests/bk-repository/test/suite In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1639/tests/bk-repository/test/suite Log Message: Directory /cvsroot/lxr/lxr/tests/bk-repository/test/suite added to the repository |
|
From: Malcolm B. <mb...@us...> - 2004-12-13 01:10:00
|
Update of /cvsroot/lxr/lxr/tests/bk-repository/BitKeeper/etc/.master In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1639/tests/bk-repository/BitKeeper/etc/.master Log Message: Directory /cvsroot/lxr/lxr/tests/bk-repository/BitKeeper/etc/.master added to the repository |
|
From: Malcolm B. <mb...@us...> - 2004-12-13 01:10:00
|
Update of /cvsroot/lxr/lxr/tests/bk-repository/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1639/tests/bk-repository/src Log Message: Directory /cvsroot/lxr/lxr/tests/bk-repository/src added to the repository |
|
From: Malcolm B. <mb...@us...> - 2004-12-13 01:09:59
|
Update of /cvsroot/lxr/lxr/tests/bk-repository/BitKeeper/log In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1639/tests/bk-repository/BitKeeper/log Log Message: Directory /cvsroot/lxr/lxr/tests/bk-repository/BitKeeper/log added to the repository |
|
From: Malcolm B. <mb...@us...> - 2004-12-13 01:09:59
|
Update of /cvsroot/lxr/lxr/tests/bk-repository/BitKeeper In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1639/tests/bk-repository/BitKeeper Log Message: Directory /cvsroot/lxr/lxr/tests/bk-repository/BitKeeper added to the repository |
|
From: Malcolm B. <mb...@us...> - 2004-12-12 02:41:52
|
Update of /cvsroot/lxr/lxr/lib/LXR/Files In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27031/lib/LXR/Files Modified Files: Tag: bk-dev-branch BK.pm Log Message: BK::getdir starting to come together - code builds an in-memory hash of the entire source tree per version, as there appears to be no good way to get the directory structure at a release point otherwise. Tests for building the tree from the output of bk -r prs -r$release are passing - no tests yet for correctly interfacing with BK. Index: BK.pm =================================================================== RCS file: /cvsroot/lxr/lxr/lib/LXR/Files/Attic/BK.pm,v retrieving revision 1.1.2.1 retrieving revision 1.1.2.2 diff -u -d -r1.1.2.1 -r1.1.2.2 --- BK.pm 4 Dec 2004 23:31:15 -0000 1.1.2.1 +++ BK.pm 12 Dec 2004 02:41:39 -0000 1.1.2.2 @@ -21,22 +21,67 @@ $CVSID = '$Id$ '; use strict; -use FileHandle; +use File::Spec; use Time::Local; use LXR::Common; -use vars qw(); +use vars qw(%tree_cache); sub new { - my ($self, $rootpath) = @_; + my ( $self, $rootpath ) = @_; - $self = bless({}, $self); + $self = bless( {}, $self ); $self->{'rootpath'} = $rootpath; - $self->{'rootpath'} =~ s@/*$@/@; + $self->{'rootpath'} =~ s!/*$!!; return $self; } -sub allreleases { - my ($self, $filename) = @_; +sub insert_entry { + my ( $newtree, $path, $entry ) = @_; + $$newtree{$path} = {} if !defined( $$newtree{$path} ); + $newtree->{$path}{$entry} = 1; +} + +sub getdir { + my ( $self, $pathname, $release ) = @_; + + if ( !defined $tree_cache{$release} ) { + + # Not in cache, so need to build + my @all_entries = $self->get_tree( $release, $pathname ); + my %newtree = (); + my ( $entry, $path, $file, $vol, @dirs ); + + $newtree{ File::Spec->rootdir() } = {}; + + foreach $entry (@all_entries) { + ( $vol, $path, $file ) = File::Spec->splitpath( File::Spec->rootdir() . $entry ); + insert_entry( \%newtree, $path, $file ); + while($path ne File::Spec->rootdir()) { + # Insert any directories in path into hash + ($vol, $path, $file) = File::Spec->splitpath( + File::Spec->catdir(File::Spec->splitdir($path))); + insert_entry(\%newtree, $path, $file); + } + } + $tree_cache{$release} = \%newtree; } + return keys %{$tree_cache{$release}->{$pathname}}; +} + +sub get_tree() { + my ( $self, $release ) = @_; + + my $real = $self->{'rootpath'}; + + open( X, "bk -r prs -r$release $real|" ) or die "Can't exec bk prs"; + + my @files = <X>; + @files = grep /^P /, @files; + map( s/^P //, @files ); + chomp @files; + close X; + + return @files; +} |
|
From: Malcolm B. <mb...@us...> - 2004-12-12 02:41:51
|
Update of /cvsroot/lxr/lxr/tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27031/tests Modified Files: Tag: bk-dev-branch BKTest.pm Log Message: BK::getdir starting to come together - code builds an in-memory hash of the entire source tree per version, as there appears to be no good way to get the directory structure at a release point otherwise. Tests for building the tree from the output of bk -r prs -r$release are passing - no tests yet for correctly interfacing with BK. Index: BKTest.pm =================================================================== RCS file: /cvsroot/lxr/lxr/tests/Attic/BKTest.pm,v retrieving revision 1.1.2.1 retrieving revision 1.1.2.2 diff -u -d -r1.1.2.1 -r1.1.2.2 --- BKTest.pm 4 Dec 2004 23:31:15 -0000 1.1.2.1 +++ BKTest.pm 12 Dec 2004 02:41:40 -0000 1.1.2.2 @@ -12,9 +12,13 @@ use base qw(Test::Unit::TestCase); +use vars qw($bkpath); + +$bkpath = "/Users/malcolmbox/dev/bk-linux/linux-2.4"; + sub new { my $self = shift()->SUPER::new(@_); - $self->{config} = 0; +# $self->{config} = {}; return $self; } @@ -23,24 +27,93 @@ # test that a bk files object can be created sub test_creation { my $self = shift; - $self->assert(defined($self->{files}), "Failed to create Files::BK"); - $self->assert($self->{files}->isa("LXR::Files::BK"), "Not a BK object"); + $self->assert(defined($self->{'bk'}), "Failed to create Files::BK"); + $self->assert($self->{'bk'}->isa("LXR::Files::BK"), "Not a BK object"); } # Access some of the values to check what is found sub test_root { my $self = shift; - $self->assert($self->{files}->{rootpath} eq '/a/path/', - "rootpath failed $self->{files}->{rootpath}"); + $self->assert($self->{'bk'}->{rootpath} eq $self->{'config'}->{'dir'}, + "rootpath failed $self->{bk}->{rootpath} $self->{'config'}->{'dir'}"); } -# Test the allreleases function +# Test the getdir function -sub test_allreleases { +package LXR::Files::BK::Test; +use LXR::Files::BK; + +use vars qw(@ISA); + +@ISA = ("LXR::Files::BK"); + +sub new { + my ($proto, $rootpath) = @_; + my $class = ref($proto) || $proto; + my $self = $class->SUPER::new($rootpath); + + bless($self, $class); + return $self; +} + +sub set_tree() { + my ($self) = shift; + $self->{tree} = \@_; +} + +sub get_tree() { + my($self) = shift; + return @{$self->{'tree'}}; +} + +1; + +package BKTest; + +# Test the tree building & caching for the getdir function. Doesn't go near real BK commands + +sub test_getdir_part1 { my $self = shift; - $self->assert($self->allreleases("testfile") eq 1); + my $bk = new LXR::Files::BK::Test("/"); + $bk->set_tree("README", "src/file1", "src/file2", "src/tests/newtest/test1"); + + my @files = sort($bk->getdir("/",'test1')); # use different releases to disambiguate + $self->assert_deep_equals(\@files, ["README", "src"]); + @files = sort($bk->getdir("/src/", 'test1')); + $self->assert_deep_equals(\@files, ["file1", "file2", "tests"]); + @files = sort($bk->getdir("/src/tests/newtest/", 'test1')); + $self->assert_deep_equals(\@files, ["test1"]); + @files = sort($bk->getdir("/src/tests/", 'test1')); + $self->assert_deep_equals(\@files, ["newtest"]); + @files = sort($bk->getdir("/src/tests/newtest/", 'test1')); + $self->assert_deep_equals(\@files, ["test1"]); + + $bk->set_tree("README", "src/file1", "src/file2", "src/tests/newtest/test1", "src/tests/newtest/test2", + "Config"); + @files = sort($bk->getdir("/src/tests/newtest/", 'test1')); # Check cache is working + $self->assert_deep_equals(\@files, ["test1"]); + @files = sort($bk->getdir("/src/tests/newtest/", 'test2')); # Should pick up new entry + $self->assert_deep_equals(\@files, ["test1", "test2"]); + @files = sort($bk->getdir("/src/tests/", 'test2')); # Should still only see one copy of dir + $self->assert_deep_equals(\@files, ["newtest"]); + @files = sort($bk->getdir("/src/tests/newtest/", 'test1')); # Check cache is still ok + $self->assert_deep_equals(\@files, ["test1"]); + } +# Test the get_tree function and ensure it is giving the right answers + +sub test_get_tree { + my $self = shift; + my $bk = $self->{'bk'}; + + my @tree = sort $bk->get_tree('@1.15'); + open (X, "test_get_tree_filelist") || die "Can't read test_get_tree_filelist"; + my @answer = sort <X>; + chomp @answer; + + $self->assert_deep_equals(\@tree, \@answer); +} # set_up and tear_down are used to # prepare and release resources need for testing @@ -48,7 +121,8 @@ # Prepare a config object sub set_up { my $self = shift; - $self->{files} = new LXR::Files("bk:/a/path"); + $self->{'bk'} = new LXR::Files("bk:$bkpath"); + $self->{'config'}->{'dir'} = "$bkpath/"; } sub tear_down { |
|
From: Malcolm B. <mb...@us...> - 2004-12-04 23:31:35
|
Update of /cvsroot/lxr/lxr/tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12463/tests Modified Files: Tag: bk-dev-branch AllTests.pm ConfigTest.pm Added Files: Tag: bk-dev-branch BKTest.pm Log Message: Start of work on BitKeeper support - add new Files access mode for BK --- NEW FILE: BKTest.pm --- # Test cases for the LXR::Files::BK module # Uses the associated lxr.conf file package BKTest; use strict; use Test::Unit; use lib ".."; use lib "../lib"; use LXR::Files; use base qw(Test::Unit::TestCase); sub new { my $self = shift()->SUPER::new(@_); $self->{config} = 0; return $self; } # define tests # test that a bk files object can be created sub test_creation { my $self = shift; $self->assert(defined($self->{files}), "Failed to create Files::BK"); $self->assert($self->{files}->isa("LXR::Files::BK"), "Not a BK object"); } # Access some of the values to check what is found sub test_root { my $self = shift; $self->assert($self->{files}->{rootpath} eq '/a/path/', "rootpath failed $self->{files}->{rootpath}"); } # Test the allreleases function sub test_allreleases { my $self = shift; $self->assert($self->allreleases("testfile") eq 1); } # set_up and tear_down are used to # prepare and release resources need for testing # Prepare a config object sub set_up { my $self = shift; $self->{files} = new LXR::Files("bk:/a/path"); } sub tear_down { my $self = shift; # $self->{config} = undef; } 1; Index: AllTests.pm =================================================================== RCS file: /cvsroot/lxr/lxr/tests/AllTests.pm,v retrieving revision 1.1 retrieving revision 1.1.4.1 diff -u -d -r1.1 -r1.1.4.1 --- AllTests.pm 4 Mar 2002 15:11:27 -0000 1.1 +++ AllTests.pm 4 Dec 2004 23:31:15 -0000 1.1.4.1 @@ -14,6 +14,7 @@ my $class = shift; my $suite = Test::Unit::TestSuite->empty_new("LXR Tests"); $suite->add_test(Test::Unit::TestSuite->new("ConfigTest")); + $suite->add_test(Test::Unit::TestSuite->new("BKTest")); return $suite; } Index: ConfigTest.pm =================================================================== RCS file: /cvsroot/lxr/lxr/tests/ConfigTest.pm,v retrieving revision 1.2 retrieving revision 1.2.2.1 diff -u -d -r1.2 -r1.2.2.1 --- ConfigTest.pm 6 Sep 2004 21:54:45 -0000 1.2 +++ ConfigTest.pm 4 Dec 2004 23:31:15 -0000 1.2.2.1 @@ -49,9 +49,16 @@ my @vars = $self->{config}->allvariables(); $self->assert(grep {$_ eq 'v'} @vars, "allvariables didn't return v"); $self->assert(grep {$_ eq 'a'} @vars, "allvariables didn't return a"); - $self->assert($#vars == 1, "Too many variables returned got " . $self->{config}->allvariables()); + $self->assert($#vars == 1, "Too many variables returned got @vars"); } +# Test multiple config block with common substrings work +# Bug 525825 +sub test_multi_config { + my $self = shift; + my $test = eval {new LXR::Config("http://test/lxr-wibble", "./lxr.conf");}; + $self->assert(!defined($test), "Should not have matched"); + } # set_up and tear_down are used to # prepare and release resources need for testing |
|
From: Malcolm B. <mb...@us...> - 2004-12-04 23:31:28
|
Update of /cvsroot/lxr/lxr/lib/LXR/Files In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12463/lib/LXR/Files Added Files: Tag: bk-dev-branch BK.pm Log Message: Start of work on BitKeeper support - add new Files access mode for BK --- NEW FILE: BK.pm --- # -*- tab-width: 4 -*- ############################################### # # $Id: BK.pm,v 1.1.2.1 2004/12/04 23:31:15 mbox Exp $ # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. package LXR::Files::BK; $CVSID = '$Id: BK.pm,v 1.1.2.1 2004/12/04 23:31:15 mbox Exp $ '; use strict; use FileHandle; use Time::Local; use LXR::Common; use vars qw(); sub new { my ($self, $rootpath) = @_; $self = bless({}, $self); $self->{'rootpath'} = $rootpath; $self->{'rootpath'} =~ s@/*$@/@; return $self; } sub allreleases { my ($self, $filename) = @_; } |
