[Lxr-commits] CVS: lxr/lib/LXR Index.pm, 1.11, 1.12 Files.pm, 1.11, 1.12 Lang.pm, 1.34, 1.35
Brought to you by:
ajlittoz
Menu
▾
▴
[Lxr-commits] CVS: lxr/lib/LXR Index.pm, 1.11, 1.12 Files.pm, 1.11, 1.12 Lang.pm, 1.34, 1.35
|
From: AdrianIssott <adr...@us...> - 2009-04-21 20:03:08
|
Update of /cvsroot/lxr/lxr/lib/LXR In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv5839/lib/LXR Modified Files: Index.pm Files.pm Lang.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: Index.pm =================================================================== RCS file: /cvsroot/lxr/lxr/lib/LXR/Index.pm,v retrieving revision 1.11 retrieving revision 1.12 diff -u -d -r1.11 -r1.12 --- Index.pm 21 Jul 2004 20:44:30 -0000 1.11 +++ Index.pm 21 Apr 2009 20:03:04 -0000 1.12 @@ -39,6 +39,113 @@ return $index; } -# TODO: Add skeleton code here to define the Index interface +# +# Stub implementations of this interface +# + +sub getindex { + my ($self, $symname, $release) = @_; + my @indexes; + warn __PACKAGE__."::getindex not implemented. Parameters @_"; + return @indexes; +} + +sub index { + my ($self, $symname, $fileid, $line, $langid, $type, $relsym) = @_; + warn __PACKAGE__."::index not implemented. Parameters @_"; + return; +} + +sub toindex { + my ($self, $fileid) = @_; + my $filefoundboolean; + warn __PACKAGE__."::toindex not implemented. Parameters @_"; + return $filefoundboolean; +} + +sub setindexed { + my ($self, $fileid) = @_; + warn __PACKAGE__."::setindexed not implemented. Parameters @_"; + return; +} + +sub fileid { + my ($self, $filename, $revision) = @_; + my $fileid; + warn __PACKAGE__."::fileid not implemented. Parameters @_"; + return $fileid; +} + +sub getreference { + my ($self, $symname, $release) = @_; + my @references; + warn __PACKAGE__."::getreference not implemented. Parameters @_"; + return @references; +} + +sub reference { + my ($self, $symname, $fileid, $line) = @_; + warn __PACKAGE__."::reference not implemented. Parameters @_"; + return; +} + +sub toreference { + my ($self, $fileid) = @_; + my $referencefoundboolean; + warn __PACKAGE__."::toreference not implemented. Parameters @_"; + return $referencefoundboolean; +} + +sub setreferenced { + my ($self, $fileid) = @_; + warn __PACKAGE__."::setreferenced not implemented. Parameters @_"; + return; +} + +sub release { + my ($self, $fileid, $release) = @_; + warn __PACKAGE__."::release not implemented. Parameters @_"; + return; +} + +sub symid { + my ($self, $symname) = @_; + my $symid; + warn __PACKAGE__."::symid not implemented. Parameters @_"; + return $symid; +} + +sub symname { + my ($self, $symid) = @_; + my $symname; + warn __PACKAGE__."::symname not implemented. Parameters @_"; + return $symname; +} + +sub issymbol { + my ($self, $symname, $release) = @_; + my $symbolfoundboolean; + warn __PACKAGE__."::issymbol not implemented. Parameters @_"; + return $symbolfoundboolean; +} + +sub getdecid { + my ($self, $lang, $string) = @_; + my $decid; + warn __PACKAGE__."::getdecid not implemented. Parameters @_"; + return $decid; +} + +sub empty_cache { + my ($self) = @_; + warn __PACKAGE__."::empty_cache not implemented. Parameters @_"; + return; +} + +sub purge { + my ($self, $version) = @_; + warn __PACKAGE__."::purge not implemented. Parameters @_"; + return; +} 1; Index: Files.pm =================================================================== RCS file: /cvsroot/lxr/lxr/lib/LXR/Files.pm,v retrieving revision 1.11 retrieving revision 1.12 diff -u -d -r1.11 -r1.12 --- Files.pm 26 Mar 2009 17:15:28 -0000 1.11 +++ Files.pm 21 Apr 2009 20:03:04 -0000 1.12 @@ -48,74 +48,102 @@ return $files; } -# Stub implementations of the Files interface +# +# Stub implementations of this interface +# sub getdir { - my $self = shift; - warn "::getdir not implemented. Parameters @_"; + my ($self, $pathname, $release) = @_; + my @dircontents; + warn __PACKAGE__."::getdir not implemented. Parameters @_"; + return @dircontents; } sub getfile { - my $self = shift; - warn "::getfile not implemented. Parameters @_"; + my ($self, $pathname, $release) = @_; + warn __PACKAGE__."::getfile not implemented. Parameters @_"; + my $filecontents; + return $filecontents; } sub getannotations { - my $self = shift; - warn "::getannotations not implemented. Parameters @_"; + my ($self, $filename, $release) = @_; + warn __PACKAGE__."::getannotations not implemented. Parameters @_"; + my @annotations; + return @annotations; } sub getauthor { - my $self = shift; - warn "::getauthor not implemented. Parameters @_"; + my ($self, $filename, $revision) = @_; + warn __PACKAGE__."::getauthor not implemented. Parameters @_"; + my $author; + return $author; } sub filerev { - my $self = shift; - warn "::filerev not implemented. Parameters @_"; + my ($self, $filename, $release) = @_; + warn __PACKAGE__."::filerev not implemented. Parameters @_"; + my $filerev; + return $filerev; } sub getfilehandle { - my $self = shift; - warn "::getfilehandle not implemented. Parameters @_"; + my ($self, $filename, $release) = @_; + warn __PACKAGE__."::getfilehandle not implemented. Parameters @_"; + my $fh; + return $fh; } sub getfilesize { - my $self = shift; - warn "::getfilesize not implemented. Parameters @_"; + my ($self, $filename, $release) = @_; + warn __PACKAGE__."::getfilesize not implemented. Parameters @_"; + my $filesize; + return $filesize; } sub getfiletime { - my $self = shift; - warn "::getfiletime not implemented. Parameters @_"; + my ($self, $filename, $release) = @_; + warn __PACKAGE__."::getfiletime not implemented. Parameters @_"; + my $modificationTimeInSecondsSinceEpoch; + return $modificationTimeInSecondsSinceEpoch; } sub getindex { - my $self = shift; - warn "::getindex not implemented. Parameters @_"; + my ($self, $pathname, $release) = @_; + warn __PACKAGE__."::getindex not implemented. Parameters @_"; + my %index; + return %index; } sub isdir { - my $self = shift; - warn "::isdir not implemented. Parameters: @_"; + my ($self, $pathname, $release) = @_; + warn __PACKAGE__."::isdir not implemented. Parameters: @_"; + my $boolean; + return $boolean; } sub isfile { - my $self = shift; - warn "::isfile not implemented. Parameters: @_"; + my ($self, $pathname, $release) = @_; + warn __PACKAGE__."::isfile not implemented. Parameters: @_"; + my $boolean; + return $boolean; } +# FIXME: This function really sucks and should be removed :) sub tmpfile { - my $self = shift; - # FIXME: This function really sucks and should be removed :) - warn "::tmpfile not implemented. Parameters: @_"; + my ($self, $filename, $release) = @_; + warn __PACKAGE__."::tmpfile not implemented. Parameters: @_"; + my $pathToATmpCopyOfTheFile; + return $pathToATmpCopyOfTheFile; } +# FIXME: this function should probably not exist, since it doesn't make sense for +# all file access methods sub toreal { - # FIXME: this function should probably not exist, since it doesn't make sense for - # all file access methods + my ($self, $pathname, $release) = @_; warn "toreal called - obsolete"; - return undef; + my $path; + return $path; } 1; Index: Lang.pm =================================================================== RCS file: /cvsroot/lxr/lxr/lib/LXR/Lang.pm,v retrieving revision 1.34 retrieving revision 1.35 diff -u -d -r1.34 -r1.35 --- Lang.pm 12 Apr 2009 16:10:37 -0000 1.34 +++ Lang.pm 21 Apr 2009 20:03:04 -0000 1.35 @@ -87,24 +87,33 @@ $$frag =~ s#\n#</span>\n<span class=\"comment\">#g; } +# +# Stub implementations of this interface +# + sub processcode { - my ($self) = @_; - print(STDERR ref($self), "->processcode not implemented.\n"); + my ($self, $code) = @_; + warn __PACKAGE__."::processcode not implemented. Parameters @_"; + return; } sub processreserved { - my ($self) = @_; - print(STDERR ref($self), "->processreserved not implemented.\n"); + my ($self, $frag) = @_; + warn __PACKAGE__."::processreserved not implemented. Parameters @_"; + return; } sub referencefile { - my ($self) = @_; - print(STDERR ref($self), "->referencefile not implemented.\n"); + my ($self, $name, $path, $fileid, $index, $config) = @_; + warn __PACKAGE__."::referencefile not implemented. Parameters @_"; + return; } sub language { my ($self) = @_; - print(STDERR ref($self), "->language not implemented.\n"); + my $languageName; + warn __PACKAGE__."::language not implemented. Parameters @_"; + return $languageName; } 1; |
