Update of /cvsroot/lxr/lxr/lib/LXR
In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv24796/lib/LXR
Modified Files:
Index.pm
Log Message:
Feature 1691378 (Rearchitect the DB backends) Part VI:
* Changed MySql table name from lxr_useage to lxr_usage
* Changed parameter for LXR::Index::purge() from $version -> $release
* Replaced tabs with spaces in LXR::Index modules
* Changed status_get SQL statement name to status_select to match naming convention
NOTE that the change to the table name in MySql means that any existing databases will not work with this version of lxr. This is unavoidable if we wish to standardise the DBs
Index: Index.pm
===================================================================
RCS file: /cvsroot/lxr/lxr/lib/LXR/Index.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- Index.pm 6 May 2009 22:37:50 -0000 1.14
+++ Index.pm 9 May 2009 15:39:00 -0000 1.15
@@ -24,19 +24,19 @@
use strict;
sub new {
- my ($self, $dbname, @args) = @_;
- my $index;
+ my ($self, $dbname, @args) = @_;
+ my $index;
- if ($dbname =~ /^DBI:/i) {
- require LXR::Index::DBI;
- $index = new LXR::Index::DBI($dbname, @args);
- } elsif ($dbname =~ /^DBM:/i) {
- require LXR::Index::DB;
- $index = new LXR::Index::DB($dbname, @args);
- } else {
- die "Can't find database, $dbname";
- }
- return $index;
+ if ($dbname =~ /^DBI:/i) {
+ require LXR::Index::DBI;
+ $index = new LXR::Index::DBI($dbname, @args);
+ } elsif ($dbname =~ /^DBM:/i) {
+ require LXR::Index::DB;
+ $index = new LXR::Index::DB($dbname, @args);
+ } else {
+ die "Can't find database, $dbname";
+ }
+ return $index;
}
#
@@ -44,32 +44,32 @@
#
sub fileid {
- my ($self, $filename, $revision) = @_; # CAUTION: $revision is not $release!
- my $fileid;
- warn __PACKAGE__."::fileid not implemented. Parameters @_";
- return $fileid;
+ my ($self, $filename, $revision) = @_; # CAUTION: $revision is not $release!
+ my $fileid;
+ warn __PACKAGE__."::fileid not implemented. Parameters @_";
+ return $fileid;
}
# Indicate that the file referred to by $fileid is part of $release
sub setfilerelease {
- my ($self, $fileid, $release) = @_;
- warn __PACKAGE__."::setfilerelease not implemented. Parameters @_";
- return;
+ my ($self, $fileid, $release) = @_;
+ warn __PACKAGE__."::setfilerelease not implemented. Parameters @_";
+ return;
}
# If the file referred to by $fileid has already been indexed return true.
# Otherwise return false.
sub fileindexed {
- my ($self, $fileid) = @_;
- my $filefoundboolean;
- warn __PACKAGE__."::fileindexed not implemented. Parameters @_";
- return $filefoundboolean;
+ my ($self, $fileid) = @_;
+ my $filefoundboolean;
+ warn __PACKAGE__."::fileindexed not implemented. Parameters @_";
+ return $filefoundboolean;
}
sub setfileindexed {
- my ($self, $fileid) = @_;
- warn __PACKAGE__."::setfileindexed not implemented. Parameters @_";
- return;
+ my ($self, $fileid) = @_;
+ warn __PACKAGE__."::setfileindexed not implemented. Parameters @_";
+ return;
}
# If the file referred to by $fileid has already been referenced
@@ -78,85 +78,85 @@
# implicitly sets fileindexed as well
sub filereferenced {
- my ($self, $fileid) = @_;
- my $referencefoundboolean;
- warn __PACKAGE__."::filereferenced not implemented. Parameters @_";
- return $referencefoundboolean;
+ my ($self, $fileid) = @_;
+ my $referencefoundboolean;
+ warn __PACKAGE__."::filereferenced not implemented. Parameters @_";
+ return $referencefoundboolean;
}
sub setfilereferenced {
- my ($self, $fileid) = @_;
- warn __PACKAGE__."::setfilereferenced not implemented. Parameters @_";
- return;
+ my ($self, $fileid) = @_;
+ warn __PACKAGE__."::setfilereferenced not implemented. Parameters @_";
+ return;
}
sub symdeclarations {
- my ($self, $symname, $release) = @_;
- my @indexes;
- warn __PACKAGE__."::symdeclarations not implemented. Parameters @_";
- return @indexes;
+ my ($self, $symname, $release) = @_;
+ my @indexes;
+ warn __PACKAGE__."::symdeclarations not implemented. Parameters @_";
+ return @indexes;
}
sub setsymdeclaration {
- my ($self, $symname, $fileid, $line, $langid, $type, $relsym) = @_;
- warn __PACKAGE__."::setsymdeclaration not implemented. Parameters @_";
- return;
+ my ($self, $symname, $fileid, $line, $langid, $type, $relsym) = @_;
+ warn __PACKAGE__."::setsymdeclaration not implemented. Parameters @_";
+ return;
}
sub symreferences {
- my ($self, $symname, $release) = @_;
- my @references;
- warn __PACKAGE__."::symreferences not implemented. Parameters @_";
- return @references;
+ my ($self, $symname, $release) = @_;
+ my @references;
+ warn __PACKAGE__."::symreferences not implemented. Parameters @_";
+ return @references;
}
sub setsymreference {
- my ($self, $symname, $fileid, $line) = @_;
- warn __PACKAGE__."::setsymreference not implemented. Parameters @_";
- return;
+ my ($self, $symname, $fileid, $line) = @_;
+ warn __PACKAGE__."::setsymreference not implemented. Parameters @_";
+ return;
}
sub issymbol {
- my ($self, $symname, $release) = @_;
- my $symbolfoundboolean;
- warn __PACKAGE__."::issymbol not implemented. Parameters @_";
- return $symbolfoundboolean;
+ my ($self, $symname, $release) = @_;
+ my $symbolfoundboolean;
+ warn __PACKAGE__."::issymbol not implemented. Parameters @_";
+ return $symbolfoundboolean;
}
sub symid {
- my ($self, $symname) = @_;
- my $symid;
- warn __PACKAGE__."::symid not implemented. Parameters @_";
- return $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;
+ my ($self, $symid) = @_;
+ my $symname;
+ warn __PACKAGE__."::symname not implemented. Parameters @_";
+ return $symname;
}
sub decid {
- my ($self, $lang, $string) = @_;
- my $decid;
- warn __PACKAGE__."::decid not implemented. Parameters @_";
- return $decid;
+ my ($self, $lang, $string) = @_;
+ my $decid;
+ warn __PACKAGE__."::decid not implemented. Parameters @_";
+ return $decid;
}
# This function should be called before parsing each new file,
# if this is not done then too much memory will be used and
# things will become very slow.
sub emptycache {
- my ($self) = @_;
- warn __PACKAGE__."::emptycache not implemented. Parameters @_";
- return;
+ my ($self) = @_;
+ warn __PACKAGE__."::emptycache not implemented. Parameters @_";
+ return;
}
sub purge {
- my ($self, $version) = @_;
- warn __PACKAGE__."::purge not implemented. Parameters @_";
- return;
+ my ($self, $release) = @_;
+ warn __PACKAGE__."::purge not implemented. Parameters @_";
+ return;
}
1;
|
