[Lxr-commits] CVS: lxr/lib/LXR/Files BK.pm,NONE,1.1.2.1

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

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) = @_;
	}