Thread: [Lxr-commits] CVS: lxr/lib/LXR/Index DBI.pm,1.22,1.23
Brought to you by:
ajlittoz
From: AdrianIssott <adr...@us...> - 2009-04-21 20:03:08
|
Update of /cvsroot/lxr/lxr/lib/LXR/Index In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv5839/lib/LXR/Index Modified Files: DBI.pm Log Message: Feature 1691378 (Rearchitect the DB backends) Part III * Explicitly stating the LXR::Index by providing stub implementations (moved from LXR::Index::DBI) * Updated LXR::Files and LXR::Lang stub implementations to be consistent with the style used in LXR::Index * No functional changes Index: DBI.pm =================================================================== RCS file: /cvsroot/lxr/lxr/lib/LXR/Index/DBI.pm,v retrieving revision 1.22 retrieving revision 1.23 diff -u -d -r1.22 -r1.23 --- DBI.pm 19 Apr 2009 16:52:40 -0000 1.22 +++ DBI.pm 21 Apr 2009 20:03:04 -0000 1.23 @@ -16,6 +16,9 @@ # along with this program; if not, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +# This is an abstract package as it doesn't redefine any of the +# subroutines defined by LXR::Index and instead relies on +# there being derived classes that provide a concrete implementation package LXR::Index::DBI; $CVSID = '$Id$ '; @@ -37,94 +40,6 @@ $index = new LXR::Index::Oracle($dbname); } return $index; -} - -sub getindex { - my ($self, $symname, $release) = @_; - my @indexes; - return @indexes; -} - -sub index { - my ($self, $symname, $fileid, $line, $langid, $type, $relsym) = @_; - return; -} - -sub toindex { - my ($self, $fileid) = @_; - my $filefoundboolean; - return $filefoundboolean; -} - -sub setindexed { - my ($self, $fileid) = @_; - return; -} - -sub fileid { - my ($self, $filename, $revision) = @_; - my $fileid; - return $fileid; -} - -sub getreference { - my ($self, $symname, $release) = @_; - my @references; - return @references; -} - -sub reference { - my ($self, $symname, $fileid, $line) = @_; - return; -} - -sub toreference { - my ($self, $fileid) = @_; - my $referencefoundboolean; - return $referencefoundboolean; -} - -sub setreferenced { - my ($self, $fileid) = @_; - return; -} - -sub release { - my ($self, $fileid, $release) = @_; - return; -} - -sub symid { - my ($self, $symname) = @_; - my $symid; - return $symid; -} - -sub symname { - my ($self, $symid) = @_; - my $symname; - return $symname; -} - -sub issymbol { - my ($self, $symname, $release) = @_; - my $symbolfoundboolean; - return $symbolfoundboolean; -} - -sub getdecid { - my ($self, $lang, $string) = @_; - my $decid; - return $decid; -} - -sub empty_cache { - return; -} - -sub purge { - my ($self, $version) = @_; - return; -} +} 1; |