projects
/
idzebra-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Added log prefix features. Fixed handling of "0" values in data1.
[idzebra-moved-to-github.git]
/
perl
/
lib
/
IDZebra.pm
diff --git
a/perl/lib/IDZebra.pm
b/perl/lib/IDZebra.pm
index
1a5a363
..
b4a5009
100644
(file)
--- a/
perl/lib/IDZebra.pm
+++ b/
perl/lib/IDZebra.pm
@@
-37,6
+37,8
@@
package IDZebra;
*logLevel = *IDZebrac::logLevel;
*logFile = *IDZebrac::logFile;
*logMsg = *IDZebrac::logMsg;
*logLevel = *IDZebrac::logLevel;
*logFile = *IDZebrac::logFile;
*logMsg = *IDZebrac::logMsg;
+*logPrefix = *IDZebrac::logPrefix;
+*logPrefix2 = *IDZebrac::logPrefix2;
*odr_createmem = *IDZebrac::odr_createmem;
*odr_reset = *IDZebrac::odr_reset;
*odr_destroy = *IDZebrac::odr_destroy;
*odr_createmem = *IDZebrac::odr_createmem;
*odr_reset = *IDZebrac::odr_reset;
*odr_destroy = *IDZebrac::odr_destroy;
@@
-56,9
+58,6
@@
package IDZebra;
*begin_trans = *IDZebrac::begin_trans;
*end_trans = *IDZebrac::end_trans;
*trans_no = *IDZebrac::trans_no;
*begin_trans = *IDZebrac::begin_trans;
*end_trans = *IDZebrac::end_trans;
*trans_no = *IDZebrac::trans_no;
-*begin_read = *IDZebrac::begin_read;
-*zts_test = *IDZebrac::zts_test;
-*end_read = *IDZebrac::end_read;
*commit = *IDZebrac::commit;
*get_shadow_enable = *IDZebrac::get_shadow_enable;
*set_shadow_enable = *IDZebrac::set_shadow_enable;
*commit = *IDZebrac::commit;
*get_shadow_enable = *IDZebrac::get_shadow_enable;
*set_shadow_enable = *IDZebrac::set_shadow_enable;
@@
-67,6
+66,7
@@
package IDZebra;
*repository_update = *IDZebrac::repository_update;
*repository_delete = *IDZebrac::repository_delete;
*repository_show = *IDZebrac::repository_show;
*repository_update = *IDZebrac::repository_update;
*repository_delete = *IDZebrac::repository_delete;
*repository_show = *IDZebrac::repository_show;
+*insert_record = *IDZebrac::insert_record;
*update_record = *IDZebrac::update_record;
*delete_record = *IDZebrac::delete_record;
*search_PQF = *IDZebrac::search_PQF;
*update_record = *IDZebrac::update_record;
*delete_record = *IDZebrac::delete_record;
*search_PQF = *IDZebrac::search_PQF;
@@
-76,6
+76,7
@@
package IDZebra;
*cql2pqf = *IDZebrac::cql2pqf;
*records_retrieve = *IDZebrac::records_retrieve;
*record_retrieve = *IDZebrac::record_retrieve;
*cql2pqf = *IDZebrac::cql2pqf;
*records_retrieve = *IDZebrac::records_retrieve;
*record_retrieve = *IDZebrac::record_retrieve;
+*deleteResultSet = *IDZebrac::deleteResultSet;
*sort = *IDZebrac::sort;
*scan_PQF = *IDZebrac::scan_PQF;
sub getScanEntry {
*sort = *IDZebrac::sort;
*scan_PQF = *IDZebrac::scan_PQF;
sub getScanEntry {
@@
-163,6
+164,8
@@
sub getScanEntry {
*data1_get_tabpath = *IDZebrac::data1_get_tabpath;
*data1_get_tabroot = *IDZebrac::data1_get_tabroot;
*grs_perl_readf = *IDZebrac::grs_perl_readf;
*data1_get_tabpath = *IDZebrac::data1_get_tabpath;
*data1_get_tabroot = *IDZebrac::data1_get_tabroot;
*grs_perl_readf = *IDZebrac::grs_perl_readf;
+*grs_perl_readline = *IDZebrac::grs_perl_readline;
+*grs_perl_getc = *IDZebrac::grs_perl_getc;
*grs_perl_seekf = *IDZebrac::grs_perl_seekf;
*grs_perl_tellf = *IDZebrac::grs_perl_tellf;
*grs_perl_endf = *IDZebrac::grs_perl_endf;
*grs_perl_seekf = *IDZebrac::grs_perl_seekf;
*grs_perl_tellf = *IDZebrac::grs_perl_tellf;
*grs_perl_endf = *IDZebrac::grs_perl_endf;
@@
-349,6
+352,10
@@
package IDZebra::RetrievalRecord;
*swig_position_set = *IDZebrac::RetrievalRecord_position_set;
*swig_base_get = *IDZebrac::RetrievalRecord_base_get;
*swig_base_set = *IDZebrac::RetrievalRecord_base_set;
*swig_position_set = *IDZebrac::RetrievalRecord_position_set;
*swig_base_get = *IDZebrac::RetrievalRecord_base_get;
*swig_base_set = *IDZebrac::RetrievalRecord_base_set;
+*swig_sysno_get = *IDZebrac::RetrievalRecord_sysno_get;
+*swig_sysno_set = *IDZebrac::RetrievalRecord_sysno_set;
+*swig_score_get = *IDZebrac::RetrievalRecord_score_get;
+*swig_score_set = *IDZebrac::RetrievalRecord_score_set;
*swig_format_get = *IDZebrac::RetrievalRecord_format_get;
*swig_format_set = *IDZebrac::RetrievalRecord_format_set;
*swig_buf_get = *IDZebrac::RetrievalRecord_buf_get;
*swig_format_get = *IDZebrac::RetrievalRecord_format_get;
*swig_format_set = *IDZebrac::RetrievalRecord_format_set;
*swig_buf_get = *IDZebrac::RetrievalRecord_buf_get;
@@
-411,27
+418,27
@@
sub STORE {
}
}
-############# Class : IDZebra::ScanEntry ##############
+############# Class : IDZebra::scanEntry ##############
-package IDZebra::ScanEntry;
+package IDZebra::scanEntry;
@ISA = qw( IDZebra );
%OWNER = ();
%BLESSEDMEMBERS = (
);
%ITERATORS = ();
@ISA = qw( IDZebra );
%OWNER = ();
%BLESSEDMEMBERS = (
);
%ITERATORS = ();
-*swig_occurrences_get = *IDZebrac::ScanEntry_occurrences_get;
-*swig_occurrences_set = *IDZebrac::ScanEntry_occurrences_set;
-*swig_term_get = *IDZebrac::ScanEntry_term_get;
-*swig_term_set = *IDZebrac::ScanEntry_term_set;
+*swig_occurrences_get = *IDZebrac::scanEntry_occurrences_get;
+*swig_occurrences_set = *IDZebrac::scanEntry_occurrences_set;
+*swig_term_get = *IDZebrac::scanEntry_term_get;
+*swig_term_set = *IDZebrac::scanEntry_term_set;
sub new {
my $pkg = shift;
my @args = @_;
sub new {
my $pkg = shift;
my @args = @_;
- my $self = IDZebrac::new_ScanEntry(@args);
+ my $self = IDZebrac::new_scanEntry(@args);
return undef if (!defined($self));
$OWNER{$self} = 1;
my %retval;
return undef if (!defined($self));
$OWNER{$self} = 1;
my %retval;
- tie %retval, "IDZebra::ScanEntry", $self;
+ tie %retval, "IDZebra::scanEntry", $self;
return bless \%retval, $pkg;
}
return bless \%retval, $pkg;
}
@@
-441,7
+448,7
@@
sub DESTROY {
return unless defined $self;
delete $ITERATORS{$self};
if (exists $OWNER{$self}) {
return unless defined $self;
delete $ITERATORS{$self};
if (exists $OWNER{$self}) {
- IDZebrac::delete_ScanEntry($self);
+ IDZebrac::delete_scanEntry($self);
delete $OWNER{$self};
}
}
delete $OWNER{$self};
}
}
@@
-488,7
+495,7
@@
package IDZebra::ScanObj;
@ISA = qw( IDZebra );
%OWNER = ();
%BLESSEDMEMBERS = (
@ISA = qw( IDZebra );
%OWNER = ();
%BLESSEDMEMBERS = (
- entries => 'IDZebra::ScanEntry',
+ entries => 'IDZebra::scanEntry',
);
%ITERATORS = ();
);
%ITERATORS = ();