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
Fixed perl API for new layout
[idzebra-moved-to-github.git]
/
perl
/
lib
/
IDZebra.pm
diff --git
a/perl/lib/IDZebra.pm
b/perl/lib/IDZebra.pm
index
3cd2513
..
8253bb5
100644
(file)
--- a/
perl/lib/IDZebra.pm
+++ b/
perl/lib/IDZebra.pm
@@
-57,7
+57,6
@@
package IDZebra;
*end_trans = *IDZebrac::end_trans;
*trans_no = *IDZebrac::trans_no;
*begin_read = *IDZebrac::begin_read;
*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;
*end_read = *IDZebrac::end_read;
*commit = *IDZebrac::commit;
*get_shadow_enable = *IDZebrac::get_shadow_enable;
@@
-76,6
+75,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 {
@@
-351,6
+351,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;
@@
-413,27
+417,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;
}
@@
-443,7
+447,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};
}
}
@@
-490,7
+494,7
@@
package IDZebra::ScanObj;
@ISA = qw( IDZebra );
%OWNER = ();
%BLESSEDMEMBERS = (
@ISA = qw( IDZebra );
%OWNER = ();
%BLESSEDMEMBERS = (
- entries => 'IDZebra::ScanEntry',
+ entries => 'IDZebra::scanEntry',
);
%ITERATORS = ();
);
%ITERATORS = ();