perl/lib/IDZebra.pm

   1 # This file was automatically generated by SWIG (http://www.swig.org).
   2 # Version 1.3.31
   3 #
   4 # Don't modify this file, modify the SWIG interface instead.
   5
   6 package IDZebra;
   7 require Exporter;
   8 require DynaLoader;
   9 @ISA = qw(Exporter DynaLoader);
  10 package IDZebrac;
  11 bootstrap IDZebra;
  12 package IDZebra;
  13 @EXPORT = qw( );
  14
  15 # ---------- BASE METHODS -------------
  16
  17 package IDZebra;
  18
  19 sub TIEHASH {
  20     my ($classname,$obj) = @_;
  21     return bless $obj, $classname;
  22 }
  23
  24 sub CLEAR { }
  25
  26 sub FIRSTKEY { }
  27
  28 sub NEXTKEY { }
  29
  30 sub FETCH {
  31     my ($self,$field) = @_;
  32     my $member_func = "swig_${field}_get";
  33     $self->$member_func();
  34 }
  35
  36 sub STORE {
  37     my ($self,$field,$newval) = @_;
  38     my $member_func = "swig_${field}_set";
  39     $self->$member_func($newval);
  40 }
  41
  42 sub this {
  43     my $ptr = shift;
  44     return tied(%$ptr);
  45 }
  46
  47
  48 # ------- FUNCTION WRAPPERS --------
  49
  50 package IDZebra;
  51
  52 *DESTROY = *IDZebrac::DESTROY;
  53 *logLevel = *IDZebrac::logLevel;
  54 *logFile = *IDZebrac::logFile;
  55 *logMsg = *IDZebrac::logMsg;
  56 *logPrefix = *IDZebrac::logPrefix;
  57 *logPrefix2 = *IDZebrac::logPrefix2;
  58 *odr_createmem = *IDZebrac::odr_createmem;
  59 *odr_reset = *IDZebrac::odr_reset;
  60 *odr_destroy = *IDZebrac::odr_destroy;
  61 *odr_malloc = *IDZebrac::odr_malloc;
  62 *start = *IDZebrac::start;
  63 *open = *IDZebrac::open;
  64 *close = *IDZebrac::close;
  65 *stop = *IDZebrac::stop;
  66 *errCode = *IDZebrac::errCode;
  67 *errString = *IDZebrac::errString;
  68 *errAdd = *IDZebrac::errAdd;
  69 *set_resource = *IDZebrac::set_resource;
  70 *get_resource = *IDZebrac::get_resource;
  71 *select_database = *IDZebrac::select_database;
  72 *select_databases = *IDZebrac::select_databases;
  73 *begin_trans = *IDZebrac::begin_trans;
  74 *end_trans = *IDZebrac::end_trans;
  75 *trans_no = *IDZebrac::trans_no;
  76 *commit = *IDZebrac::commit;
  77 *get_shadow_enable = *IDZebrac::get_shadow_enable;
  78 *set_shadow_enable = *IDZebrac::set_shadow_enable;
  79 *init = *IDZebrac::init;
  80 *compact = *IDZebrac::compact;
  81 *repository_update = *IDZebrac::repository_update;
  82 *repository_delete = *IDZebrac::repository_delete;
  83 *repository_show = *IDZebrac::repository_show;
  84 *insert_record = *IDZebrac::insert_record;
  85 *update_record = *IDZebrac::update_record;
  86 *delete_record = *IDZebrac::delete_record;
  87 *search_PQF = *IDZebrac::search_PQF;
  88 *cql_transform_open_fname = *IDZebrac::cql_transform_open_fname;
  89 *cql_transform_close = *IDZebrac::cql_transform_close;
  90 *cql_transform_error = *IDZebrac::cql_transform_error;
  91 *cql2pqf = *IDZebrac::cql2pqf;
  92 *records_retrieve = *IDZebrac::records_retrieve;
  93 *record_retrieve = *IDZebrac::record_retrieve;
  94 *deleteResultSet = *IDZebrac::deleteResultSet;
  95 *resultSetTerms = *IDZebrac::resultSetTerms;
  96 *sort = *IDZebrac::sort;
  97 *scan_PQF = *IDZebrac::scan_PQF;
  98 *getScanEntry = *IDZebrac::getScanEntry;
  99 *nmem_create = *IDZebrac::nmem_create;
 100 *nmem_destroy = *IDZebrac::nmem_destroy;
 101 *data1_create = *IDZebrac::data1_create;
 102 *data1_createx = *IDZebrac::data1_createx;
 103 *data1_destroy = *IDZebrac::data1_destroy;
 104 *get_parent_tag = *IDZebrac::get_parent_tag;
 105 *data1_read_node = *IDZebrac::data1_read_node;
 106 *data1_read_nodex = *IDZebrac::data1_read_nodex;
 107 *data1_read_record = *IDZebrac::data1_read_record;
 108 *data1_read_absyn = *IDZebrac::data1_read_absyn;
 109 *data1_gettagbynum = *IDZebrac::data1_gettagbynum;
 110 *data1_empty_tagset = *IDZebrac::data1_empty_tagset;
 111 *data1_read_tagset = *IDZebrac::data1_read_tagset;
 112 *data1_getelementbytagname = *IDZebrac::data1_getelementbytagname;
 113 *data1_nodetogr = *IDZebrac::data1_nodetogr;
 114 *data1_gettagbyname = *IDZebrac::data1_gettagbyname;
 115 *data1_free_tree = *IDZebrac::data1_free_tree;
 116 *data1_nodetobuf = *IDZebrac::data1_nodetobuf;
 117 *data1_mk_tag_data_wd = *IDZebrac::data1_mk_tag_data_wd;
 118 *data1_mk_tag_data = *IDZebrac::data1_mk_tag_data;
 119 *data1_maptype = *IDZebrac::data1_maptype;
 120 *data1_read_varset = *IDZebrac::data1_read_varset;
 121 *data1_getvartypebyct = *IDZebrac::data1_getvartypebyct;
 122 *data1_read_espec1 = *IDZebrac::data1_read_espec1;
 123 *data1_doespec1 = *IDZebrac::data1_doespec1;
 124 *data1_getesetbyname = *IDZebrac::data1_getesetbyname;
 125 *data1_getelementbyname = *IDZebrac::data1_getelementbyname;
 126 *data1_mk_node2 = *IDZebrac::data1_mk_node2;
 127 *data1_mk_tag = *IDZebrac::data1_mk_tag;
 128 *data1_mk_tag_n = *IDZebrac::data1_mk_tag_n;
 129 *data1_tag_add_attr = *IDZebrac::data1_tag_add_attr;
 130 *data1_mk_text_n = *IDZebrac::data1_mk_text_n;
 131 *data1_mk_text_nf = *IDZebrac::data1_mk_text_nf;
 132 *data1_mk_text = *IDZebrac::data1_mk_text;
 133 *data1_mk_comment_n = *IDZebrac::data1_mk_comment_n;
 134 *data1_mk_comment = *IDZebrac::data1_mk_comment;
 135 *data1_mk_preprocess = *IDZebrac::data1_mk_preprocess;
 136 *data1_mk_root = *IDZebrac::data1_mk_root;
 137 *data1_set_root = *IDZebrac::data1_set_root;
 138 *data1_mk_tag_data_int = *IDZebrac::data1_mk_tag_data_int;
 139 *data1_mk_tag_data_oid = *IDZebrac::data1_mk_tag_data_oid;
 140 *data1_mk_tag_data_text = *IDZebrac::data1_mk_tag_data_text;
 141 *data1_mk_tag_data_text_uni = *IDZebrac::data1_mk_tag_data_text_uni;
 142 *data1_get_absyn = *IDZebrac::data1_get_absyn;
 143 *data1_search_tag = *IDZebrac::data1_search_tag;
 144 *data1_mk_tag_uni = *IDZebrac::data1_mk_tag_uni;
 145 *data1_get_attset = *IDZebrac::data1_get_attset;
 146 *data1_read_maptab = *IDZebrac::data1_read_maptab;
 147 *data1_map_record = *IDZebrac::data1_map_record;
 148 *data1_read_marctab = *IDZebrac::data1_read_marctab;
 149 *data1_nodetomarc = *IDZebrac::data1_nodetomarc;
 150 *data1_nodetoidsgml = *IDZebrac::data1_nodetoidsgml;
 151 *data1_nodetoexplain = *IDZebrac::data1_nodetoexplain;
 152 *data1_nodetosummary = *IDZebrac::data1_nodetosummary;
 153 *data1_nodetosoif = *IDZebrac::data1_nodetosoif;
 154 *data1_get_wrbuf = *IDZebrac::data1_get_wrbuf;
 155 *data1_get_read_buf = *IDZebrac::data1_get_read_buf;
 156 *data1_get_map_buf = *IDZebrac::data1_get_map_buf;
 157 *data1_absyn_cache_get = *IDZebrac::data1_absyn_cache_get;
 158 *data1_attset_cache_get = *IDZebrac::data1_attset_cache_get;
 159 *data1_nmem_get = *IDZebrac::data1_nmem_get;
 160 *data1_pr_tree = *IDZebrac::data1_pr_tree;
 161 *data1_print_tree = *IDZebrac::data1_print_tree;
 162 *data1_insert_string = *IDZebrac::data1_insert_string;
 163 *data1_insert_string_n = *IDZebrac::data1_insert_string_n;
 164 *data1_read_sgml = *IDZebrac::data1_read_sgml;
 165 *data1_absyn_trav = *IDZebrac::data1_absyn_trav;
 166 *data1_attset_search_id = *IDZebrac::data1_attset_search_id;
 167 *data1_getNodeValue = *IDZebrac::data1_getNodeValue;
 168 *data1_LookupNode = *IDZebrac::data1_LookupNode;
 169 *data1_CountOccurences = *IDZebrac::data1_CountOccurences;
 170 *data1_path_fopen = *IDZebrac::data1_path_fopen;
 171 *data1_set_tabpath = *IDZebrac::data1_set_tabpath;
 172 *data1_set_tabroot = *IDZebrac::data1_set_tabroot;
 173 *data1_get_tabpath = *IDZebrac::data1_get_tabpath;
 174 *data1_get_tabroot = *IDZebrac::data1_get_tabroot;
 175 *grs_perl_readf = *IDZebrac::grs_perl_readf;
 176 *grs_perl_readline = *IDZebrac::grs_perl_readline;
 177 *grs_perl_getc = *IDZebrac::grs_perl_getc;
 178 *grs_perl_seekf = *IDZebrac::grs_perl_seekf;
 179 *grs_perl_tellf = *IDZebrac::grs_perl_tellf;
 180 *grs_perl_endf = *IDZebrac::grs_perl_endf;
 181 *grs_perl_get_dh = *IDZebrac::grs_perl_get_dh;
 182 *grs_perl_get_mem = *IDZebrac::grs_perl_get_mem;
 183 *grs_perl_set_res = *IDZebrac::grs_perl_set_res;
 184
 185 ############# Class : IDZebra::RetrievalObj ##############
 186
 187 package IDZebra::RetrievalObj;
 188 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
 189 @ISA = qw( IDZebra );
 190 %OWNER = ();
 191 %ITERATORS = ();
 192 *swig_noOfRecords_get = *IDZebrac::RetrievalObj_noOfRecords_get;
 193 *swig_noOfRecords_set = *IDZebrac::RetrievalObj_noOfRecords_set;
 194 *swig_records_get = *IDZebrac::RetrievalObj_records_get;
 195 *swig_records_set = *IDZebrac::RetrievalObj_records_set;
 196 sub new {
 197     my $pkg = shift;
 198     my $self = IDZebrac::new_RetrievalObj(@_);
 199     bless $self, $pkg if defined($self);
 200 }
 201
 202 sub DESTROY {
 203     return unless $_[0]->isa('HASH');
 204     my $self = tied(%{$_[0]});
 205     return unless defined $self;
 206     delete $ITERATORS{$self};
 207     if (exists $OWNER{$self}) {
 208         IDZebrac::delete_RetrievalObj($self);
 209         delete $OWNER{$self};
 210     }
 211 }
 212
 213 sub DISOWN {
 214     my $self = shift;
 215     my $ptr = tied(%$self);
 216     delete $OWNER{$ptr};
 217 }
 218
 219 sub ACQUIRE {
 220     my $self = shift;
 221     my $ptr = tied(%$self);
 222     $OWNER{$ptr} = 1;
 223 }
 224
 225
 226 ############# Class : IDZebra::RetrievalRecord ##############
 227
 228 package IDZebra::RetrievalRecord;
 229 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
 230 @ISA = qw( IDZebra );
 231 %OWNER = ();
 232 %ITERATORS = ();
 233 *swig_errCode_get = *IDZebrac::RetrievalRecord_errCode_get;
 234 *swig_errCode_set = *IDZebrac::RetrievalRecord_errCode_set;
 235 *swig_errString_get = *IDZebrac::RetrievalRecord_errString_get;
 236 *swig_errString_set = *IDZebrac::RetrievalRecord_errString_set;
 237 *swig_position_get = *IDZebrac::RetrievalRecord_position_get;
 238 *swig_position_set = *IDZebrac::RetrievalRecord_position_set;
 239 *swig_base_get = *IDZebrac::RetrievalRecord_base_get;
 240 *swig_base_set = *IDZebrac::RetrievalRecord_base_set;
 241 *swig_sysno_get = *IDZebrac::RetrievalRecord_sysno_get;
 242 *swig_sysno_set = *IDZebrac::RetrievalRecord_sysno_set;
 243 *swig_score_get = *IDZebrac::RetrievalRecord_score_get;
 244 *swig_score_set = *IDZebrac::RetrievalRecord_score_set;
 245 *swig_format_get = *IDZebrac::RetrievalRecord_format_get;
 246 *swig_format_set = *IDZebrac::RetrievalRecord_format_set;
 247 *swig_buf_get = *IDZebrac::RetrievalRecord_buf_get;
 248 *swig_buf_set = *IDZebrac::RetrievalRecord_buf_set;
 249 sub new {
 250     my $pkg = shift;
 251     my $self = IDZebrac::new_RetrievalRecord(@_);
 252     bless $self, $pkg if defined($self);
 253 }
 254
 255 sub DESTROY {
 256     return unless $_[0]->isa('HASH');
 257     my $self = tied(%{$_[0]});
 258     return unless defined $self;
 259     delete $ITERATORS{$self};
 260     if (exists $OWNER{$self}) {
 261         IDZebrac::delete_RetrievalRecord($self);
 262         delete $OWNER{$self};
 263     }
 264 }
 265
 266 sub DISOWN {
 267     my $self = shift;
 268     my $ptr = tied(%$self);
 269     delete $OWNER{$ptr};
 270 }
 271
 272 sub ACQUIRE {
 273     my $self = shift;
 274     my $ptr = tied(%$self);
 275     $OWNER{$ptr} = 1;
 276 }
 277
 278
 279 ############# Class : IDZebra::scanEntry ##############
 280
 281 package IDZebra::scanEntry;
 282 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
 283 @ISA = qw( IDZebra );
 284 %OWNER = ();
 285 %ITERATORS = ();
 286 *swig_occurrences_get = *IDZebrac::scanEntry_occurrences_get;
 287 *swig_occurrences_set = *IDZebrac::scanEntry_occurrences_set;
 288 *swig_term_get = *IDZebrac::scanEntry_term_get;
 289 *swig_term_set = *IDZebrac::scanEntry_term_set;
 290 sub new {
 291     my $pkg = shift;
 292     my $self = IDZebrac::new_scanEntry(@_);
 293     bless $self, $pkg if defined($self);
 294 }
 295
 296 sub DESTROY {
 297     return unless $_[0]->isa('HASH');
 298     my $self = tied(%{$_[0]});
 299     return unless defined $self;
 300     delete $ITERATORS{$self};
 301     if (exists $OWNER{$self}) {
 302         IDZebrac::delete_scanEntry($self);
 303         delete $OWNER{$self};
 304     }
 305 }
 306
 307 sub DISOWN {
 308     my $self = shift;
 309     my $ptr = tied(%$self);
 310     delete $OWNER{$ptr};
 311 }
 312
 313 sub ACQUIRE {
 314     my $self = shift;
 315     my $ptr = tied(%$self);
 316     $OWNER{$ptr} = 1;
 317 }
 318
 319
 320 ############# Class : IDZebra::ScanObj ##############
 321
 322 package IDZebra::ScanObj;
 323 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
 324 @ISA = qw( IDZebra );
 325 %OWNER = ();
 326 %ITERATORS = ();
 327 *swig_num_entries_get = *IDZebrac::ScanObj_num_entries_get;
 328 *swig_num_entries_set = *IDZebrac::ScanObj_num_entries_set;
 329 *swig_position_get = *IDZebrac::ScanObj_position_get;
 330 *swig_position_set = *IDZebrac::ScanObj_position_set;
 331 *swig_is_partial_get = *IDZebrac::ScanObj_is_partial_get;
 332 *swig_is_partial_set = *IDZebrac::ScanObj_is_partial_set;
 333 *swig_entries_get = *IDZebrac::ScanObj_entries_get;
 334 *swig_entries_set = *IDZebrac::ScanObj_entries_set;
 335 sub new {
 336     my $pkg = shift;
 337     my $self = IDZebrac::new_ScanObj(@_);
 338     bless $self, $pkg if defined($self);
 339 }
 340
 341 sub DESTROY {
 342     return unless $_[0]->isa('HASH');
 343     my $self = tied(%{$_[0]});
 344     return unless defined $self;
 345     delete $ITERATORS{$self};
 346     if (exists $OWNER{$self}) {
 347         IDZebrac::delete_ScanObj($self);
 348         delete $OWNER{$self};
 349     }
 350 }
 351
 352 sub DISOWN {
 353     my $self = shift;
 354     my $ptr = tied(%$self);
 355     delete $OWNER{$ptr};
 356 }
 357
 358 sub ACQUIRE {
 359     my $self = shift;
 360     my $ptr = tied(%$self);
 361     $OWNER{$ptr} = 1;
 362 }
 363
 364
 365 ############# Class : IDZebra::ZebraTransactionStatus ##############
 366
 367 package IDZebra::ZebraTransactionStatus;
 368 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
 369 @ISA = qw( IDZebra );
 370 %OWNER = ();
 371 %ITERATORS = ();
 372 *swig_processed_get = *IDZebrac::ZebraTransactionStatus_processed_get;
 373 *swig_processed_set = *IDZebrac::ZebraTransactionStatus_processed_set;
 374 *swig_inserted_get = *IDZebrac::ZebraTransactionStatus_inserted_get;
 375 *swig_inserted_set = *IDZebrac::ZebraTransactionStatus_inserted_set;
 376 *swig_updated_get = *IDZebrac::ZebraTransactionStatus_updated_get;
 377 *swig_updated_set = *IDZebrac::ZebraTransactionStatus_updated_set;
 378 *swig_deleted_get = *IDZebrac::ZebraTransactionStatus_deleted_get;
 379 *swig_deleted_set = *IDZebrac::ZebraTransactionStatus_deleted_set;
 380 *swig_utime_get = *IDZebrac::ZebraTransactionStatus_utime_get;
 381 *swig_utime_set = *IDZebrac::ZebraTransactionStatus_utime_set;
 382 *swig_stime_get = *IDZebrac::ZebraTransactionStatus_stime_get;
 383 *swig_stime_set = *IDZebrac::ZebraTransactionStatus_stime_set;
 384 sub new {
 385     my $pkg = shift;
 386     my $self = IDZebrac::new_ZebraTransactionStatus(@_);
 387     bless $self, $pkg if defined($self);
 388 }
 389
 390 sub DESTROY {
 391     return unless $_[0]->isa('HASH');
 392     my $self = tied(%{$_[0]});
 393     return unless defined $self;
 394     delete $ITERATORS{$self};
 395     if (exists $OWNER{$self}) {
 396         IDZebrac::delete_ZebraTransactionStatus($self);
 397         delete $OWNER{$self};
 398     }
 399 }
 400
 401 sub DISOWN {
 402     my $self = shift;
 403     my $ptr = tied(%$self);
 404     delete $OWNER{$ptr};
 405 }
 406
 407 sub ACQUIRE {
 408     my $self = shift;
 409     my $ptr = tied(%$self);
 410     $OWNER{$ptr} = 1;
 411 }
 412
 413
 414 # ------- VARIABLE STUBS --------
 415
 416 package IDZebra;
 417
 418 *LOG_FATAL = *IDZebrac::LOG_FATAL;
 419 *LOG_DEBUG = *IDZebrac::LOG_DEBUG;
 420 *LOG_WARN = *IDZebrac::LOG_WARN;
 421 *LOG_LOG = *IDZebrac::LOG_LOG;
 422 *LOG_ERRNO = *IDZebrac::LOG_ERRNO;
 423 *LOG_FILE = *IDZebrac::LOG_FILE;
 424 *LOG_APP = *IDZebrac::LOG_APP;
 425 *LOG_MALLOC = *IDZebrac::LOG_MALLOC;
 426 *LOG_ALL = *IDZebrac::LOG_ALL;
 427 *LOG_DEFAULT_LEVEL = *IDZebrac::LOG_DEFAULT_LEVEL;
 428 *ODR_DECODE = *IDZebrac::ODR_DECODE;
 429 *ODR_ENCODE = *IDZebrac::ODR_ENCODE;
 430 *ODR_PRINT = *IDZebrac::ODR_PRINT;
 431 *DATA1K_unknown = *IDZebrac::DATA1K_unknown;
 432 *DATA1K_structured = *IDZebrac::DATA1K_structured;
 433 *DATA1K_string = *IDZebrac::DATA1K_string;
 434 *DATA1K_numeric = *IDZebrac::DATA1K_numeric;
 435 *DATA1K_bool = *IDZebrac::DATA1K_bool;
 436 *DATA1K_oid = *IDZebrac::DATA1K_oid;
 437 *DATA1K_generalizedtime = *IDZebrac::DATA1K_generalizedtime;
 438 *DATA1K_intunit = *IDZebrac::DATA1K_intunit;
 439 *DATA1K_int = *IDZebrac::DATA1K_int;
 440 *DATA1K_octetstring = *IDZebrac::DATA1K_octetstring;
 441 *DATA1K_null = *IDZebrac::DATA1K_null;
 442 *DATA1T_numeric = *IDZebrac::DATA1T_numeric;
 443 *DATA1T_string = *IDZebrac::DATA1T_string;
 444 *DATA1N_root = *IDZebrac::DATA1N_root;
 445 *DATA1N_tag = *IDZebrac::DATA1N_tag;
 446 *DATA1N_data = *IDZebrac::DATA1N_data;
 447 *DATA1N_variant = *IDZebrac::DATA1N_variant;
 448 *DATA1N_comment = *IDZebrac::DATA1N_comment;
 449 *DATA1N_preprocess = *IDZebrac::DATA1N_preprocess;
 450 *DATA1I_inctxt = *IDZebrac::DATA1I_inctxt;
 451 *DATA1I_incbin = *IDZebrac::DATA1I_incbin;
 452 *DATA1I_text = *IDZebrac::DATA1I_text;
 453 *DATA1I_num = *IDZebrac::DATA1I_num;
 454 *DATA1I_oid = *IDZebrac::DATA1I_oid;
 455 *DATA1_LOCALDATA = *IDZebrac::DATA1_LOCALDATA;
 456 *DATA1_FLAG_XML = *IDZebrac::DATA1_FLAG_XML;
 457 1;