Update Perl internals so that it matches the current Zebra API.
[idzebra-moved-to-github.git] / perl / lib / IDZebra.pm
index c10d7fa..e1c7cf1 100644 (file)
@@ -37,6 +37,8 @@ package IDZebra;
 *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;
@@ -48,15 +50,13 @@ package IDZebra;
 *errCode = *IDZebrac::errCode;
 *errString = *IDZebrac::errString;
 *errAdd = *IDZebrac::errAdd;
-*init_recordGroup = *IDZebrac::init_recordGroup;
-*res_get_recordGroup = *IDZebrac::res_get_recordGroup;
-*set_group = *IDZebrac::set_group;
+*set_resource = *IDZebrac::set_resource;
+*get_resource = *IDZebrac::get_resource;
 *select_database = *IDZebrac::select_database;
 *select_databases = *IDZebrac::select_databases;
 *begin_trans = *IDZebrac::begin_trans;
 *end_trans = *IDZebrac::end_trans;
-*begin_read = *IDZebrac::begin_read;
-*end_read = *IDZebrac::end_read;
+*trans_no = *IDZebrac::trans_no;
 *commit = *IDZebrac::commit;
 *get_shadow_enable = *IDZebrac::get_shadow_enable;
 *set_shadow_enable = *IDZebrac::set_shadow_enable;
@@ -65,11 +65,18 @@ package IDZebra;
 *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;
+*cql_transform_open_fname = *IDZebrac::cql_transform_open_fname;
+*cql_transform_close = *IDZebrac::cql_transform_close;
+*cql_transform_error = *IDZebrac::cql_transform_error;
+*cql2pqf = *IDZebrac::cql2pqf;
 *records_retrieve = *IDZebrac::records_retrieve;
 *record_retrieve = *IDZebrac::record_retrieve;
+*deleteResultSet = *IDZebrac::deleteResultSet;
+*resultSetTerms = *IDZebrac::resultSetTerms;
 *sort = *IDZebrac::sort;
 *scan_PQF = *IDZebrac::scan_PQF;
 sub getScanEntry {
@@ -157,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;
+*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;
@@ -164,47 +173,27 @@ sub getScanEntry {
 *grs_perl_get_mem = *IDZebrac::grs_perl_get_mem;
 *grs_perl_set_res = *IDZebrac::grs_perl_set_res;
 
-############# Class : IDZebra::recordGroup ##############
+############# Class : IDZebra::RetrievalObj ##############
 
-package IDZebra::recordGroup;
+package IDZebra::RetrievalObj;
 @ISA = qw( IDZebra );
 %OWNER = ();
 %BLESSEDMEMBERS = (
 );
 
 %ITERATORS = ();
-*swig_groupName_get = *IDZebrac::recordGroup_groupName_get;
-*swig_groupName_set = *IDZebrac::recordGroup_groupName_set;
-*swig_databaseName_get = *IDZebrac::recordGroup_databaseName_get;
-*swig_databaseName_set = *IDZebrac::recordGroup_databaseName_set;
-*swig_path_get = *IDZebrac::recordGroup_path_get;
-*swig_path_set = *IDZebrac::recordGroup_path_set;
-*swig_recordId_get = *IDZebrac::recordGroup_recordId_get;
-*swig_recordId_set = *IDZebrac::recordGroup_recordId_set;
-*swig_recordType_get = *IDZebrac::recordGroup_recordType_get;
-*swig_recordType_set = *IDZebrac::recordGroup_recordType_set;
-*swig_flagStoreData_get = *IDZebrac::recordGroup_flagStoreData_get;
-*swig_flagStoreData_set = *IDZebrac::recordGroup_flagStoreData_set;
-*swig_flagStoreKeys_get = *IDZebrac::recordGroup_flagStoreKeys_get;
-*swig_flagStoreKeys_set = *IDZebrac::recordGroup_flagStoreKeys_set;
-*swig_flagRw_get = *IDZebrac::recordGroup_flagRw_get;
-*swig_flagRw_set = *IDZebrac::recordGroup_flagRw_set;
-*swig_fileVerboseLimit_get = *IDZebrac::recordGroup_fileVerboseLimit_get;
-*swig_fileVerboseLimit_set = *IDZebrac::recordGroup_fileVerboseLimit_set;
-*swig_databaseNamePath_get = *IDZebrac::recordGroup_databaseNamePath_get;
-*swig_databaseNamePath_set = *IDZebrac::recordGroup_databaseNamePath_set;
-*swig_explainDatabase_get = *IDZebrac::recordGroup_explainDatabase_get;
-*swig_explainDatabase_set = *IDZebrac::recordGroup_explainDatabase_set;
-*swig_followLinks_get = *IDZebrac::recordGroup_followLinks_get;
-*swig_followLinks_set = *IDZebrac::recordGroup_followLinks_set;
+*swig_noOfRecords_get = *IDZebrac::RetrievalObj_noOfRecords_get;
+*swig_noOfRecords_set = *IDZebrac::RetrievalObj_noOfRecords_set;
+*swig_records_get = *IDZebrac::RetrievalObj_records_get;
+*swig_records_set = *IDZebrac::RetrievalObj_records_set;
 sub new {
     my $pkg = shift;
     my @args = @_;
-    my $self = IDZebrac::new_recordGroup(@args);
+    my $self = IDZebrac::new_RetrievalObj(@args);
     return undef if (!defined($self));
     $OWNER{$self} = 1;
     my %retval;
-    tie %retval, "IDZebra::recordGroup", $self;
+    tie %retval, "IDZebra::RetrievalObj", $self;
     return bless \%retval, $pkg;
 }
 
@@ -214,7 +203,7 @@ sub DESTROY {
     return unless defined $self;
     delete $ITERATORS{$self};
     if (exists $OWNER{$self}) {
-        IDZebrac::delete_recordGroup($self);
+        IDZebrac::delete_RetrievalObj($self);
         delete $OWNER{$self};
     }
 }
@@ -255,27 +244,39 @@ sub STORE {
 }
 
 
-############# Class : IDZebra::RetrievalObj ##############
+############# Class : IDZebra::RetrievalRecord ##############
 
-package IDZebra::RetrievalObj;
+package IDZebra::RetrievalRecord;
 @ISA = qw( IDZebra );
 %OWNER = ();
 %BLESSEDMEMBERS = (
 );
 
 %ITERATORS = ();
-*swig_noOfRecords_get = *IDZebrac::RetrievalObj_noOfRecords_get;
-*swig_noOfRecords_set = *IDZebrac::RetrievalObj_noOfRecords_set;
-*swig_records_get = *IDZebrac::RetrievalObj_records_get;
-*swig_records_set = *IDZebrac::RetrievalObj_records_set;
+*swig_errCode_get = *IDZebrac::RetrievalRecord_errCode_get;
+*swig_errCode_set = *IDZebrac::RetrievalRecord_errCode_set;
+*swig_errString_get = *IDZebrac::RetrievalRecord_errString_get;
+*swig_errString_set = *IDZebrac::RetrievalRecord_errString_set;
+*swig_position_get = *IDZebrac::RetrievalRecord_position_get;
+*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_buf_set = *IDZebrac::RetrievalRecord_buf_set;
 sub new {
     my $pkg = shift;
     my @args = @_;
-    my $self = IDZebrac::new_RetrievalObj(@args);
+    my $self = IDZebrac::new_RetrievalRecord(@args);
     return undef if (!defined($self));
     $OWNER{$self} = 1;
     my %retval;
-    tie %retval, "IDZebra::RetrievalObj", $self;
+    tie %retval, "IDZebra::RetrievalRecord", $self;
     return bless \%retval, $pkg;
 }
 
@@ -285,7 +286,7 @@ sub DESTROY {
     return unless defined $self;
     delete $ITERATORS{$self};
     if (exists $OWNER{$self}) {
-        IDZebrac::delete_RetrievalObj($self);
+        IDZebrac::delete_RetrievalRecord($self);
         delete $OWNER{$self};
     }
 }
@@ -326,35 +327,27 @@ sub STORE {
 }
 
 
-############# Class : IDZebra::RetrievalRecord ##############
+############# Class : IDZebra::scanEntry ##############
 
-package IDZebra::RetrievalRecord;
+package IDZebra::scanEntry;
 @ISA = qw( IDZebra );
 %OWNER = ();
 %BLESSEDMEMBERS = (
 );
 
 %ITERATORS = ();
-*swig_errCode_get = *IDZebrac::RetrievalRecord_errCode_get;
-*swig_errCode_set = *IDZebrac::RetrievalRecord_errCode_set;
-*swig_errString_get = *IDZebrac::RetrievalRecord_errString_get;
-*swig_errString_set = *IDZebrac::RetrievalRecord_errString_set;
-*swig_position_get = *IDZebrac::RetrievalRecord_position_get;
-*swig_position_set = *IDZebrac::RetrievalRecord_position_set;
-*swig_base_get = *IDZebrac::RetrievalRecord_base_get;
-*swig_base_set = *IDZebrac::RetrievalRecord_base_set;
-*swig_format_get = *IDZebrac::RetrievalRecord_format_get;
-*swig_format_set = *IDZebrac::RetrievalRecord_format_set;
-*swig_buf_get = *IDZebrac::RetrievalRecord_buf_get;
-*swig_buf_set = *IDZebrac::RetrievalRecord_buf_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 = @_;
-    my $self = IDZebrac::new_RetrievalRecord(@args);
+    my $self = IDZebrac::new_scanEntry(@args);
     return undef if (!defined($self));
     $OWNER{$self} = 1;
     my %retval;
-    tie %retval, "IDZebra::RetrievalRecord", $self;
+    tie %retval, "IDZebra::scanEntry", $self;
     return bless \%retval, $pkg;
 }
 
@@ -364,7 +357,7 @@ sub DESTROY {
     return unless defined $self;
     delete $ITERATORS{$self};
     if (exists $OWNER{$self}) {
-        IDZebrac::delete_RetrievalRecord($self);
+        IDZebrac::delete_scanEntry($self);
         delete $OWNER{$self};
     }
 }
@@ -405,27 +398,32 @@ sub STORE {
 }
 
 
-############# Class : IDZebra::ScanEntry ##############
+############# Class : IDZebra::ScanObj ##############
 
-package IDZebra::ScanEntry;
+package IDZebra::ScanObj;
 @ISA = qw( IDZebra );
 %OWNER = ();
 %BLESSEDMEMBERS = (
+    entries => 'IDZebra::scanEntry',
 );
 
 %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_num_entries_get = *IDZebrac::ScanObj_num_entries_get;
+*swig_num_entries_set = *IDZebrac::ScanObj_num_entries_set;
+*swig_position_get = *IDZebrac::ScanObj_position_get;
+*swig_position_set = *IDZebrac::ScanObj_position_set;
+*swig_is_partial_get = *IDZebrac::ScanObj_is_partial_get;
+*swig_is_partial_set = *IDZebrac::ScanObj_is_partial_set;
+*swig_entries_get = *IDZebrac::ScanObj_entries_get;
+*swig_entries_set = *IDZebrac::ScanObj_entries_set;
 sub new {
     my $pkg = shift;
     my @args = @_;
-    my $self = IDZebrac::new_ScanEntry(@args);
+    my $self = IDZebrac::new_ScanObj(@args);
     return undef if (!defined($self));
     $OWNER{$self} = 1;
     my %retval;
-    tie %retval, "IDZebra::ScanEntry", $self;
+    tie %retval, "IDZebra::ScanObj", $self;
     return bless \%retval, $pkg;
 }
 
@@ -435,7 +433,7 @@ sub DESTROY {
     return unless defined $self;
     delete $ITERATORS{$self};
     if (exists $OWNER{$self}) {
-        IDZebrac::delete_ScanEntry($self);
+        IDZebrac::delete_ScanObj($self);
         delete $OWNER{$self};
     }
 }
@@ -476,32 +474,35 @@ sub STORE {
 }
 
 
-############# Class : IDZebra::ScanObj ##############
+############# Class : IDZebra::ZebraTransactionStatus ##############
 
-package IDZebra::ScanObj;
+package IDZebra::ZebraTransactionStatus;
 @ISA = qw( IDZebra );
 %OWNER = ();
 %BLESSEDMEMBERS = (
-    entries => 'IDZebra::ScanEntry',
 );
 
 %ITERATORS = ();
-*swig_num_entries_get = *IDZebrac::ScanObj_num_entries_get;
-*swig_num_entries_set = *IDZebrac::ScanObj_num_entries_set;
-*swig_position_get = *IDZebrac::ScanObj_position_get;
-*swig_position_set = *IDZebrac::ScanObj_position_set;
-*swig_is_partial_get = *IDZebrac::ScanObj_is_partial_get;
-*swig_is_partial_set = *IDZebrac::ScanObj_is_partial_set;
-*swig_entries_get = *IDZebrac::ScanObj_entries_get;
-*swig_entries_set = *IDZebrac::ScanObj_entries_set;
+*swig_processed_get = *IDZebrac::ZebraTransactionStatus_processed_get;
+*swig_processed_set = *IDZebrac::ZebraTransactionStatus_processed_set;
+*swig_inserted_get = *IDZebrac::ZebraTransactionStatus_inserted_get;
+*swig_inserted_set = *IDZebrac::ZebraTransactionStatus_inserted_set;
+*swig_updated_get = *IDZebrac::ZebraTransactionStatus_updated_get;
+*swig_updated_set = *IDZebrac::ZebraTransactionStatus_updated_set;
+*swig_deleted_get = *IDZebrac::ZebraTransactionStatus_deleted_get;
+*swig_deleted_set = *IDZebrac::ZebraTransactionStatus_deleted_set;
+*swig_utime_get = *IDZebrac::ZebraTransactionStatus_utime_get;
+*swig_utime_set = *IDZebrac::ZebraTransactionStatus_utime_set;
+*swig_stime_get = *IDZebrac::ZebraTransactionStatus_stime_get;
+*swig_stime_set = *IDZebrac::ZebraTransactionStatus_stime_set;
 sub new {
     my $pkg = shift;
     my @args = @_;
-    my $self = IDZebrac::new_ScanObj(@args);
+    my $self = IDZebrac::new_ZebraTransactionStatus(@args);
     return undef if (!defined($self));
     $OWNER{$self} = 1;
     my %retval;
-    tie %retval, "IDZebra::ScanObj", $self;
+    tie %retval, "IDZebra::ZebraTransactionStatus", $self;
     return bless \%retval, $pkg;
 }
 
@@ -511,7 +512,7 @@ sub DESTROY {
     return unless defined $self;
     delete $ITERATORS{$self};
     if (exists $OWNER{$self}) {
-        IDZebrac::delete_ScanObj($self);
+        IDZebrac::delete_ZebraTransactionStatus($self);
         delete $OWNER{$self};
     }
 }