idzebra.pm

harvest是一个下载html网页得机器人

# This file was automatically generated by SWIG
package IDZebra;
require Exporter;
require DynaLoader;
@ISA = qw(Exporter DynaLoader);
package IDZebrac;
bootstrap IDZebra;
package IDZebra;
@EXPORT = qw( );

# ---------- BASE METHODS -------------

package IDZebra;

sub TIEHASH {
    my ($classname,$obj) = @_;
    return bless $obj, $classname;
}

sub CLEAR { }

sub FIRSTKEY { }

sub NEXTKEY { }

sub this {
    my $ptr = shift;
    return tied(%$ptr);
}


# ------- FUNCTION WRAPPERS --------

package IDZebra;

*DESTROY = *IDZebrac::DESTROY;
*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_malloc = *IDZebrac::odr_malloc;
*start = *IDZebrac::start;
*open = *IDZebrac::open;
*close = *IDZebrac::close;
*stop = *IDZebrac::stop;
*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;
*select_database = *IDZebrac::select_database;
*select_databases = *IDZebrac::select_databases;
*begin_trans = *IDZebrac::begin_trans;
*end_trans = *IDZebrac::end_trans;
*trans_no = *IDZebrac::trans_no;
*commit = *IDZebrac::commit;
*get_shadow_enable = *IDZebrac::get_shadow_enable;
*set_shadow_enable = *IDZebrac::set_shadow_enable;
*init = *IDZebrac::init;
*compact = *IDZebrac::compact;
*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 {
    my @args = @_;
    my $result = IDZebrac::getScanEntry(@args);
    return undef if (!defined($result));
    my %resulthash;
    tie %resulthash, ref($result), $result;
    return bless \%resulthash, ref($result);
}
*nmem_create = *IDZebrac::nmem_create;
*nmem_destroy = *IDZebrac::nmem_destroy;
*data1_create = *IDZebrac::data1_create;
*data1_createx = *IDZebrac::data1_createx;
*data1_destroy = *IDZebrac::data1_destroy;
*get_parent_tag = *IDZebrac::get_parent_tag;
*data1_read_node = *IDZebrac::data1_read_node;
*data1_read_nodex = *IDZebrac::data1_read_nodex;
*data1_read_record = *IDZebrac::data1_read_record;
*data1_read_absyn = *IDZebrac::data1_read_absyn;
*data1_gettagbynum = *IDZebrac::data1_gettagbynum;
*data1_empty_tagset = *IDZebrac::data1_empty_tagset;
*data1_read_tagset = *IDZebrac::data1_read_tagset;
*data1_getelementbytagname = *IDZebrac::data1_getelementbytagname;
*data1_nodetogr = *IDZebrac::data1_nodetogr;
*data1_gettagbyname = *IDZebrac::data1_gettagbyname;
*data1_free_tree = *IDZebrac::data1_free_tree;
*data1_nodetobuf = *IDZebrac::data1_nodetobuf;
*data1_mk_tag_data_wd = *IDZebrac::data1_mk_tag_data_wd;
*data1_mk_tag_data = *IDZebrac::data1_mk_tag_data;
*data1_maptype = *IDZebrac::data1_maptype;
*data1_read_varset = *IDZebrac::data1_read_varset;
*data1_getvartypebyct = *IDZebrac::data1_getvartypebyct;
*data1_read_espec1 = *IDZebrac::data1_read_espec1;
*data1_doespec1 = *IDZebrac::data1_doespec1;
*data1_getesetbyname = *IDZebrac::data1_getesetbyname;
*data1_getelementbyname = *IDZebrac::data1_getelementbyname;
*data1_mk_node2 = *IDZebrac::data1_mk_node2;
*data1_mk_tag = *IDZebrac::data1_mk_tag;
*data1_mk_tag_n = *IDZebrac::data1_mk_tag_n;
*data1_tag_add_attr = *IDZebrac::data1_tag_add_attr;
*data1_mk_text_n = *IDZebrac::data1_mk_text_n;
*data1_mk_text_nf = *IDZebrac::data1_mk_text_nf;
*data1_mk_text = *IDZebrac::data1_mk_text;
*data1_mk_comment_n = *IDZebrac::data1_mk_comment_n;
*data1_mk_comment = *IDZebrac::data1_mk_comment;
*data1_mk_preprocess = *IDZebrac::data1_mk_preprocess;
*data1_mk_root = *IDZebrac::data1_mk_root;
*data1_set_root = *IDZebrac::data1_set_root;
*data1_mk_tag_data_int = *IDZebrac::data1_mk_tag_data_int;
*data1_mk_tag_data_oid = *IDZebrac::data1_mk_tag_data_oid;
*data1_mk_tag_data_text = *IDZebrac::data1_mk_tag_data_text;
*data1_mk_tag_data_text_uni = *IDZebrac::data1_mk_tag_data_text_uni;
*data1_get_absyn = *IDZebrac::data1_get_absyn;
*data1_search_tag = *IDZebrac::data1_search_tag;
*data1_mk_tag_uni = *IDZebrac::data1_mk_tag_uni;
*data1_get_attset = *IDZebrac::data1_get_attset;
*data1_read_maptab = *IDZebrac::data1_read_maptab;
*data1_map_record = *IDZebrac::data1_map_record;
*data1_read_marctab = *IDZebrac::data1_read_marctab;
*data1_nodetomarc = *IDZebrac::data1_nodetomarc;
*data1_nodetoidsgml = *IDZebrac::data1_nodetoidsgml;
*data1_nodetoexplain = *IDZebrac::data1_nodetoexplain;
*data1_nodetosummary = *IDZebrac::data1_nodetosummary;
*data1_nodetosoif = *IDZebrac::data1_nodetosoif;
*data1_get_wrbuf = *IDZebrac::data1_get_wrbuf;
*data1_get_read_buf = *IDZebrac::data1_get_read_buf;
*data1_get_map_buf = *IDZebrac::data1_get_map_buf;
*data1_absyn_cache_get = *IDZebrac::data1_absyn_cache_get;
*data1_attset_cache_get = *IDZebrac::data1_attset_cache_get;
*data1_nmem_get = *IDZebrac::data1_nmem_get;
*data1_pr_tree = *IDZebrac::data1_pr_tree;
*data1_print_tree = *IDZebrac::data1_print_tree;
*data1_insert_string = *IDZebrac::data1_insert_string;
*data1_insert_string_n = *IDZebrac::data1_insert_string_n;
*data1_read_sgml = *IDZebrac::data1_read_sgml;
*data1_absyn_trav = *IDZebrac::data1_absyn_trav;
*data1_attset_search_id = *IDZebrac::data1_attset_search_id;
*data1_getNodeValue = *IDZebrac::data1_getNodeValue;
*data1_LookupNode = *IDZebrac::data1_LookupNode;
*data1_CountOccurences = *IDZebrac::data1_CountOccurences;
*data1_path_fopen = *IDZebrac::data1_path_fopen;
*data1_set_tabpath = *IDZebrac::data1_set_tabpath;
*data1_set_tabroot = *IDZebrac::data1_set_tabroot;
*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_get_dh = *IDZebrac::grs_perl_get_dh;
*grs_perl_get_mem = *IDZebrac::grs_perl_get_mem;
*grs_perl_set_res = *IDZebrac::grs_perl_set_res;

############# Class : IDZebra::recordGroup ##############

package IDZebra::recordGroup;
@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;
sub new {
    my $pkg = shift;
    my @args = @_;
    my $self = IDZebrac::new_recordGroup(@args);
    return undef if (!defined($self));
    $OWNER{$self} = 1;
    my %retval;
    tie %retval, "IDZebra::recordGroup", $self;
    return bless \%retval, $pkg;
}

sub DESTROY {
    return unless $_[0]->isa('HASH');
    my $self = tied(%{$_[0]});
    return unless defined $self;
    delete $ITERATORS{$self};
    if (exists $OWNER{$self}) {
        IDZebrac::delete_recordGroup($self);
        delete $OWNER{$self};
    }
}

sub DISOWN {
    my $self = shift;
    my $ptr = tied(%$self);
    delete $OWNER{$ptr};
    };

sub ACQUIRE {
    my $self = shift;
    my $ptr = tied(%$self);
    $OWNER{$ptr} = 1;
    };

sub FETCH {
    my ($self,$field) = @_;
    my $member_func = "swig_${field}_get";
    my $val = $self->$member_func();
    if (exists $BLESSEDMEMBERS{$field}) {
        return undef if (!defined($val));
        my %retval;
        tie %retval,$BLESSEDMEMBERS{$field},$val;
        return bless \%retval, $BLESSEDMEMBERS{$field};
    }
    return $val;
}

sub STORE {
    my ($self,$field,$newval) = @_;
    my $member_func = "swig_${field}_set";
    if (exists $BLESSEDMEMBERS{$field}) {
        $self->$member_func(tied(%{$newval}));
    } else {
        $self->$member_func($newval);
    }
}


############# Class : IDZebra::RetrievalObj ##############

package IDZebra::RetrievalObj;
@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;
sub new {
    my $pkg = shift;
    my @args = @_;
    my $self = IDZebrac::new_RetrievalObj(@args);
    return undef if (!defined($self));
    $OWNER{$self} = 1;
    my %retval;
    tie %retval, "IDZebra::RetrievalObj", $self;
    return bless \%retval, $pkg;
}

sub DESTROY {
    return unless $_[0]->isa('HASH');
    my $self = tied(%{$_[0]});
    return unless defined $self;
    delete $ITERATORS{$self};
    if (exists $OWNER{$self}) {
        IDZebrac::delete_RetrievalObj($self);
        delete $OWNER{$self};
    }
}

sub DISOWN {
    my $self = shift;
    my $ptr = tied(%$self);
    delete $OWNER{$ptr};
    };

sub ACQUIRE {
    my $self = shift;
    my $ptr = tied(%$self);
    $OWNER{$ptr} = 1;
    };

sub FETCH {
    my ($self,$field) = @_;
    my $member_func = "swig_${field}_get";
    my $val = $self->$member_func();
    if (exists $BLESSEDMEMBERS{$field}) {
        return undef if (!defined($val));
        my %retval;
        tie %retval,$BLESSEDMEMBERS{$field},$val;
        return bless \%retval, $BLESSEDMEMBERS{$field};
    }
    return $val;
}

sub STORE {
    my ($self,$field,$newval) = @_;
    my $member_func = "swig_${field}_set";
    if (exists $BLESSEDMEMBERS{$field}) {
        $self->$member_func(tied(%{$newval}));
    } else {
        $self->$member_func($newval);
    }
}


############# Class : IDZebra::RetrievalRecord ##############

package IDZebra::RetrievalRecord;
@ISA = qw( IDZebra );
%OWNER = ();
%BLESSEDMEMBERS = (
);