mapilib.pm

这个是内存数据库的客户端

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

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

package MapiLib;

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

sub CLEAR { }

sub FIRSTKEY { }

sub NEXTKEY { }

sub FETCH {
    my ($self,$field) = @_;
    my $member_func = "swig_${field}_get";
    $self->$member_func();
}

sub STORE {
    my ($self,$field,$newval) = @_;
    my $member_func = "swig_${field}_set";
    $self->$member_func($newval);
}

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


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

package MapiLib;

*mapi_mapi = *MapiLibc::mapi_mapi;
*mapi_destroy = *MapiLibc::mapi_destroy;
*mapi_start_talking = *MapiLibc::mapi_start_talking;
*mapi_connect = *MapiLibc::mapi_connect;
*mapi_connect_ssl = *MapiLibc::mapi_connect_ssl;
*mapi_disconnect = *MapiLibc::mapi_disconnect;
*mapi_reconnect = *MapiLibc::mapi_reconnect;
*mapi_ping = *MapiLibc::mapi_ping;
*mapi_error = *MapiLibc::mapi_error;
*mapi_error_str = *MapiLibc::mapi_error_str;
*mapi_noexplain = *MapiLibc::mapi_noexplain;
*mapi_explain = *MapiLibc::mapi_explain;
*mapi_explain_query = *MapiLibc::mapi_explain_query;
*mapi_explain_result = *MapiLibc::mapi_explain_result;
*mapi_output = *MapiLibc::mapi_output;
*mapi_stream_into = *MapiLibc::mapi_stream_into;
*mapi_profile = *MapiLibc::mapi_profile;
*mapi_trace = *MapiLibc::mapi_trace;
*mapi_get_trace = *MapiLibc::mapi_get_trace;
*mapi_trace_log = *MapiLibc::mapi_trace_log;
*mapi_setAutocommit = *MapiLibc::mapi_setAutocommit;
*mapi_result_error = *MapiLibc::mapi_result_error;
*mapi_next_result = *MapiLibc::mapi_next_result;
*mapi_needmore = *MapiLibc::mapi_needmore;
*mapi_more_results = *MapiLibc::mapi_more_results;
*mapi_new_handle = *MapiLibc::mapi_new_handle;
*mapi_close_handle = *MapiLibc::mapi_close_handle;
*mapi_prepare = *MapiLibc::mapi_prepare;
*mapi_prepare_handle = *MapiLibc::mapi_prepare_handle;
*mapi_virtual_result = *MapiLibc::mapi_virtual_result;
*mapi_execute = *MapiLibc::mapi_execute;
*mapi_execute_array = *MapiLibc::mapi_execute_array;
*mapi_fetch_reset = *MapiLibc::mapi_fetch_reset;
*mapi_finish = *MapiLibc::mapi_finish;
*mapi_prepare_array = *MapiLibc::mapi_prepare_array;
*mapi_query = *MapiLibc::mapi_query;
*mapi_query_handle = *MapiLibc::mapi_query_handle;
*mapi_query_prep = *MapiLibc::mapi_query_prep;
*mapi_query_part = *MapiLibc::mapi_query_part;
*mapi_query_done = *MapiLibc::mapi_query_done;
*mapi_quick_query = *MapiLibc::mapi_quick_query;
*mapi_query_array = *MapiLibc::mapi_query_array;
*mapi_quick_query_array = *MapiLibc::mapi_quick_query_array;
*mapi_stream_query = *MapiLibc::mapi_stream_query;
*mapi_cache_limit = *MapiLibc::mapi_cache_limit;
*mapi_cache_shuffle = *MapiLibc::mapi_cache_shuffle;
*mapi_cache_freeup = *MapiLibc::mapi_cache_freeup;
*mapi_quick_response = *MapiLibc::mapi_quick_response;
*mapi_seek_row = *MapiLibc::mapi_seek_row;
*mapi_timeout = *MapiLibc::mapi_timeout;
*mapi_fetch_row = *MapiLibc::mapi_fetch_row;
*mapi_fetch_all_rows = *MapiLibc::mapi_fetch_all_rows;
*mapi_get_field_count = *MapiLibc::mapi_get_field_count;
*mapi_get_row_count = *MapiLibc::mapi_get_row_count;
*mapi_rows_affected = *MapiLibc::mapi_rows_affected;
*mapi_fetch_field = *MapiLibc::mapi_fetch_field;
*mapi_fetch_field_array = *MapiLibc::mapi_fetch_field_array;
*mapi_fetch_line = *MapiLibc::mapi_fetch_line;
*mapi_get_lang = *MapiLibc::mapi_get_lang;
*mapi_get_dbname = *MapiLibc::mapi_get_dbname;
*mapi_get_host = *MapiLibc::mapi_get_host;
*mapi_get_user = *MapiLibc::mapi_get_user;
*mapi_get_mapi_version = *MapiLibc::mapi_get_mapi_version;
*mapi_get_monet_version = *MapiLibc::mapi_get_monet_version;
*mapi_get_monet_versionId = *MapiLibc::mapi_get_monet_versionId;
*mapi_get_motd = *MapiLibc::mapi_get_motd;
*mapi_is_connected = *MapiLibc::mapi_is_connected;
*mapi_get_table = *MapiLibc::mapi_get_table;
*mapi_get_name = *MapiLibc::mapi_get_name;
*mapi_get_type = *MapiLibc::mapi_get_type;
*mapi_get_len = *MapiLibc::mapi_get_len;
*mapi_get_querytype = *MapiLibc::mapi_get_querytype;
*mapi_get_tableid = *MapiLibc::mapi_get_tableid;
*mapi_get_active = *MapiLibc::mapi_get_active;

############# Class : MapiLib::MapiDate ##############

package MapiLib::MapiDate;
@ISA = qw( MapiLib );
%OWNER = ();
%ITERATORS = ();
*swig_year_get = *MapiLibc::MapiDate_year_get;
*swig_year_set = *MapiLibc::MapiDate_year_set;
*swig_month_get = *MapiLibc::MapiDate_month_get;
*swig_month_set = *MapiLibc::MapiDate_month_set;
*swig_day_get = *MapiLibc::MapiDate_day_get;
*swig_day_set = *MapiLibc::MapiDate_day_set;
sub new {
    my $pkg = shift;
    my $self = MapiLibc::new_MapiDate(@_);
    bless $self, $pkg if defined($self);
}

sub DESTROY {
    return unless $_[0]->isa('HASH');
    my $self = tied(%{$_[0]});
    return unless defined $self;
    delete $ITERATORS{$self};
    if (exists $OWNER{$self}) {
        MapiLibc::delete_MapiDate($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;
}


############# Class : MapiLib::MapiTime ##############

package MapiLib::MapiTime;
@ISA = qw( MapiLib );
%OWNER = ();
%ITERATORS = ();
*swig_hour_get = *MapiLibc::MapiTime_hour_get;
*swig_hour_set = *MapiLibc::MapiTime_hour_set;
*swig_minute_get = *MapiLibc::MapiTime_minute_get;
*swig_minute_set = *MapiLibc::MapiTime_minute_set;
*swig_second_get = *MapiLibc::MapiTime_second_get;
*swig_second_set = *MapiLibc::MapiTime_second_set;
sub new {
    my $pkg = shift;
    my $self = MapiLibc::new_MapiTime(@_);
    bless $self, $pkg if defined($self);
}

sub DESTROY {
    return unless $_[0]->isa('HASH');
    my $self = tied(%{$_[0]});
    return unless defined $self;
    delete $ITERATORS{$self};
    if (exists $OWNER{$self}) {
        MapiLibc::delete_MapiTime($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;
}


############# Class : MapiLib::MapiDateTime ##############

package MapiLib::MapiDateTime;
@ISA = qw( MapiLib );
%OWNER = ();
%ITERATORS = ();
*swig_year_get = *MapiLibc::MapiDateTime_year_get;
*swig_year_set = *MapiLibc::MapiDateTime_year_set;
*swig_month_get = *MapiLibc::MapiDateTime_month_get;
*swig_month_set = *MapiLibc::MapiDateTime_month_set;
*swig_day_get = *MapiLibc::MapiDateTime_day_get;
*swig_day_set = *MapiLibc::MapiDateTime_day_set;
*swig_hour_get = *MapiLibc::MapiDateTime_hour_get;
*swig_hour_set = *MapiLibc::MapiDateTime_hour_set;
*swig_minute_get = *MapiLibc::MapiDateTime_minute_get;
*swig_minute_set = *MapiLibc::MapiDateTime_minute_set;
*swig_second_get = *MapiLibc::MapiDateTime_second_get;
*swig_second_set = *MapiLibc::MapiDateTime_second_set;
*swig_fraction_get = *MapiLibc::MapiDateTime_fraction_get;
*swig_fraction_set = *MapiLibc::MapiDateTime_fraction_set;
sub new {
    my $pkg = shift;
    my $self = MapiLibc::new_MapiDateTime(@_);
    bless $self, $pkg if defined($self);
}

sub DESTROY {
    return unless $_[0]->isa('HASH');
    my $self = tied(%{$_[0]});
    return unless defined $self;
    delete $ITERATORS{$self};
    if (exists $OWNER{$self}) {
        MapiLibc::delete_MapiDateTime($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;
}


# ------- VARIABLE STUBS --------

package MapiLib;

*MAPI_AUTO = *MapiLibc::MAPI_AUTO;
*MAPI_TINY = *MapiLibc::MAPI_TINY;
*MAPI_UTINY = *MapiLibc::MAPI_UTINY;
*MAPI_SHORT = *MapiLibc::MAPI_SHORT;
*MAPI_USHORT = *MapiLibc::MAPI_USHORT;
*MAPI_INT = *MapiLibc::MAPI_INT;
*MAPI_UINT = *MapiLibc::MAPI_UINT;
*MAPI_LONG = *MapiLibc::MAPI_LONG;
*MAPI_ULONG = *MapiLibc::MAPI_ULONG;
*MAPI_LONGLONG = *MapiLibc::MAPI_LONGLONG;
*MAPI_ULONGLONG = *MapiLibc::MAPI_ULONGLONG;
*MAPI_CHAR = *MapiLibc::MAPI_CHAR;
*MAPI_VARCHAR = *MapiLibc::MAPI_VARCHAR;
*MAPI_FLOAT = *MapiLibc::MAPI_FLOAT;
*MAPI_DOUBLE = *MapiLibc::MAPI_DOUBLE;
*MAPI_DATE = *MapiLibc::MAPI_DATE;
*MAPI_TIME = *MapiLibc::MAPI_TIME;
*MAPI_DATETIME = *MapiLibc::MAPI_DATETIME;
*MAPI_NUMERIC = *MapiLibc::MAPI_NUMERIC;
*PLACEHOLDER = *MapiLibc::PLACEHOLDER;
*MAPI_SEEK_SET = *MapiLibc::MAPI_SEEK_SET;
*MAPI_SEEK_CUR = *MapiLibc::MAPI_SEEK_CUR;
*MAPI_SEEK_END = *MapiLibc::MAPI_SEEK_END;
*MAPI_TRACE = *MapiLibc::MAPI_TRACE;
*MAPI_TRACE_LANG = *MapiLibc::MAPI_TRACE_LANG;
*MOK = *MapiLibc::MOK;
*MERROR = *MapiLibc::MERROR;
*MTIMEOUT = *MapiLibc::MTIMEOUT;
*MMORE = *MapiLibc::MMORE;
*MSERVER = *MapiLibc::MSERVER;
*LANG_MAL = *MapiLibc::LANG_MAL;
*LANG_MIL = *MapiLibc::LANG_MIL;
*LANG_SQL = *MapiLibc::LANG_SQL;
*LANG_XQUERY = *MapiLibc::LANG_XQUERY;
*Q_PARSE = *MapiLibc::Q_PARSE;
*Q_TABLE = *MapiLibc::Q_TABLE;
*Q_UPDATE = *MapiLibc::Q_UPDATE;
*Q_SCHEMA = *MapiLibc::Q_SCHEMA;
*Q_TRANS = *MapiLibc::Q_TRANS;
*Q_PREPARE = *MapiLibc::Q_PREPARE;
*Q_BLOCK = *MapiLibc::Q_BLOCK;
1;