mapilib.pm.c

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

        ;
    }
    croak(Nullch);
}


XS(_wrap_mapi_destroy) {
    {
        Mapi arg1 = (Mapi) 0 ;
        MapiMsg result;
        int argvi = 0;
        dXSARGS;
        
        if ((items < 1) || (items > 1)) {
            SWIG_croak("Usage: mapi_destroy(mid);");
        }
        {
            if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_MapiStruct,0) < 0) {
                SWIG_croak("Type error in argument 1 of mapi_destroy. Expected _p_MapiStruct");
            }
        }
        result = (MapiMsg)mapi_destroy(arg1);
        
        ST(argvi) = sv_newmortal();
        sv_setiv(ST(argvi++), (IV) result);
        XSRETURN(argvi);
        fail:
        ;
    }
    croak(Nullch);
}


XS(_wrap_mapi_start_talking) {
    {
        Mapi arg1 = (Mapi) 0 ;
        MapiMsg result;
        int argvi = 0;
        dXSARGS;
        
        if ((items < 1) || (items > 1)) {
            SWIG_croak("Usage: mapi_start_talking(mid);");
        }
        {
            if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_MapiStruct,0) < 0) {
                SWIG_croak("Type error in argument 1 of mapi_start_talking. Expected _p_MapiStruct");
            }
        }
        result = (MapiMsg)mapi_start_talking(arg1);
        
        ST(argvi) = sv_newmortal();
        sv_setiv(ST(argvi++), (IV) result);
        XSRETURN(argvi);
        fail:
        ;
    }
    croak(Nullch);
}


XS(_wrap_mapi_connect) {
    {
        char *arg1 = (char *) 0 ;
        int arg2 ;
        char *arg3 = (char *) 0 ;
        char *arg4 = (char *) 0 ;
        char *arg5 = (char *) 0 ;
        char *arg6 = (char *) 0 ;
        Mapi result;
        int argvi = 0;
        dXSARGS;
        
        if ((items < 6) || (items > 6)) {
            SWIG_croak("Usage: mapi_connect(host,port,username,password,lang,dbname);");
        }
        if (!SvOK((SV*) ST(0))) arg1 = 0;
        else arg1 = (char *) SvPV(ST(0), PL_na);
        arg2 = (int) SvIV(ST(1));
        if (!SvOK((SV*) ST(2))) arg3 = 0;
        else arg3 = (char *) SvPV(ST(2), PL_na);
        if (!SvOK((SV*) ST(3))) arg4 = 0;
        else arg4 = (char *) SvPV(ST(3), PL_na);
        if (!SvOK((SV*) ST(4))) arg5 = 0;
        else arg5 = (char *) SvPV(ST(4), PL_na);
        if (!SvOK((SV*) ST(5))) arg6 = 0;
        else arg6 = (char *) SvPV(ST(5), PL_na);
        result = (Mapi)mapi_connect((char const *)arg1,arg2,(char const *)arg3,(char const *)arg4,(char const *)arg5,(char const *)arg6);
        
        ST(argvi) = sv_newmortal();
        SWIG_MakePtr(ST(argvi++), (void *) result, SWIGTYPE_p_MapiStruct, 0|SWIG_OWNER);
        XSRETURN(argvi);
        fail:
        ;
    }
    croak(Nullch);
}


XS(_wrap_mapi_connect_ssl) {
    {
        char *arg1 = (char *) 0 ;
        int arg2 ;
        char *arg3 = (char *) 0 ;
        char *arg4 = (char *) 0 ;
        char *arg5 = (char *) 0 ;
        char *arg6 = (char *) 0 ;
        Mapi result;
        int argvi = 0;
        dXSARGS;
        
        if ((items < 6) || (items > 6)) {
            SWIG_croak("Usage: mapi_connect_ssl(host,port,username,password,lang,dbname);");
        }
        if (!SvOK((SV*) ST(0))) arg1 = 0;
        else arg1 = (char *) SvPV(ST(0), PL_na);
        arg2 = (int) SvIV(ST(1));
        if (!SvOK((SV*) ST(2))) arg3 = 0;
        else arg3 = (char *) SvPV(ST(2), PL_na);
        if (!SvOK((SV*) ST(3))) arg4 = 0;
        else arg4 = (char *) SvPV(ST(3), PL_na);
        if (!SvOK((SV*) ST(4))) arg5 = 0;
        else arg5 = (char *) SvPV(ST(4), PL_na);
        if (!SvOK((SV*) ST(5))) arg6 = 0;
        else arg6 = (char *) SvPV(ST(5), PL_na);
        result = (Mapi)mapi_connect_ssl((char const *)arg1,arg2,(char const *)arg3,(char const *)arg4,(char const *)arg5,(char const *)arg6);
        
        ST(argvi) = sv_newmortal();
        SWIG_MakePtr(ST(argvi++), (void *) result, SWIGTYPE_p_MapiStruct, 0|SWIG_OWNER);
        XSRETURN(argvi);
        fail:
        ;
    }
    croak(Nullch);
}


XS(_wrap_mapi_disconnect) {
    {
        Mapi arg1 = (Mapi) 0 ;
        MapiMsg result;
        int argvi = 0;
        dXSARGS;
        
        if ((items < 1) || (items > 1)) {
            SWIG_croak("Usage: mapi_disconnect(mid);");
        }
        {
            if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_MapiStruct,0) < 0) {
                SWIG_croak("Type error in argument 1 of mapi_disconnect. Expected _p_MapiStruct");
            }
        }
        result = (MapiMsg)mapi_disconnect(arg1);
        
        ST(argvi) = sv_newmortal();
        sv_setiv(ST(argvi++), (IV) result);
        XSRETURN(argvi);
        fail:
        ;
    }
    croak(Nullch);
}


XS(_wrap_mapi_reconnect) {
    {
        Mapi arg1 = (Mapi) 0 ;
        MapiMsg result;
        int argvi = 0;
        dXSARGS;
        
        if ((items < 1) || (items > 1)) {
            SWIG_croak("Usage: mapi_reconnect(mid);");
        }
        {
            if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_MapiStruct,0) < 0) {
                SWIG_croak("Type error in argument 1 of mapi_reconnect. Expected _p_MapiStruct");
            }
        }
        result = (MapiMsg)mapi_reconnect(arg1);
        
        ST(argvi) = sv_newmortal();
        sv_setiv(ST(argvi++), (IV) result);
        XSRETURN(argvi);
        fail:
        ;
    }
    croak(Nullch);
}


XS(_wrap_mapi_ping) {
    {
        Mapi arg1 = (Mapi) 0 ;
        MapiMsg result;
        int argvi = 0;
        dXSARGS;
        
        if ((items < 1) || (items > 1)) {
            SWIG_croak("Usage: mapi_ping(mid);");
        }
        {
            if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_MapiStruct,0) < 0) {
                SWIG_croak("Type error in argument 1 of mapi_ping. Expected _p_MapiStruct");
            }
        }
        result = (MapiMsg)mapi_ping(arg1);
        
        ST(argvi) = sv_newmortal();
        sv_setiv(ST(argvi++), (IV) result);
        XSRETURN(argvi);
        fail:
        ;
    }
    croak(Nullch);
}


XS(_wrap_mapi_error) {
    {
        Mapi arg1 = (Mapi) 0 ;
        MapiMsg result;
        int argvi = 0;
        dXSARGS;
        
        if ((items < 1) || (items > 1)) {
            SWIG_croak("Usage: mapi_error(mid);");
        }
        {
            if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_MapiStruct,0) < 0) {
                SWIG_croak("Type error in argument 1 of mapi_error. Expected _p_MapiStruct");
            }
        }
        result = (MapiMsg)mapi_error(arg1);
        
        ST(argvi) = sv_newmortal();
        sv_setiv(ST(argvi++), (IV) result);
        XSRETURN(argvi);
        fail:
        ;
    }
    croak(Nullch);
}


XS(_wrap_mapi_error_str) {
    {
        Mapi arg1 = (Mapi) 0 ;
        char *result;
        int argvi = 0;
        dXSARGS;
        
        if ((items < 1) || (items > 1)) {
            SWIG_croak("Usage: mapi_error_str(mid);");
        }
        {
            if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_MapiStruct,0) < 0) {
                SWIG_croak("Type error in argument 1 of mapi_error_str. Expected _p_MapiStruct");
            }
        }
        result = (char *)mapi_error_str(arg1);
        
        ST(argvi) = sv_newmortal();
        if (result) {
            sv_setpv((SV*)ST(argvi++), (char *) result);
        } else {
            sv_setsv((SV*)ST(argvi++), &PL_sv_undef);
        }
        XSRETURN(argvi);
        fail:
        ;
    }
    croak(Nullch);
}


XS(_wrap_mapi_noexplain) {
    {
        Mapi arg1 = (Mapi) 0 ;
        char *arg2 = (char *) 0 ;
        int argvi = 0;
        dXSARGS;
        
        if ((items < 2) || (items > 2)) {
            SWIG_croak("Usage: mapi_noexplain(mid,errorprefix);");
        }
        {
            if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_MapiStruct,0) < 0) {
                SWIG_croak("Type error in argument 1 of mapi_noexplain. Expected _p_MapiStruct");
            }
        }
        if (!SvOK((SV*) ST(1))) arg2 = 0;
        else arg2 = (char *) SvPV(ST(1), PL_na);
        mapi_noexplain(arg1,arg2);
        
        
        XSRETURN(argvi);
        fail:
        ;
    }
    croak(Nullch);
}


XS(_wrap_mapi_explain) {
    {
        Mapi arg1 = (Mapi) 0 ;
        FILE *arg2 = (FILE *) 0 ;
        MapiMsg result;
        int argvi = 0;
        dXSARGS;
        
        if ((items < 2) || (items > 2)) {
            SWIG_croak("Usage: mapi_explain(mid,fd);");
        }
        {
            if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_MapiStruct,0) < 0) {
                SWIG_croak("Type error in argument 1 of mapi_explain. Expected _p_MapiStruct");
            }
        }
        {
            arg2 = IoIFP(sv_2io(ST(1)));
        }
        result = (MapiMsg)mapi_explain(arg1,arg2);
        
        ST(argvi) = sv_newmortal();
        sv_setiv(ST(argvi++), (IV) result);
        XSRETURN(argvi);
        fail:
        ;
    }
    croak(Nullch);
}


XS(_wrap_mapi_explain_query) {
    {
        MapiHdl arg1 = (MapiHdl) 0 ;
        FILE *arg2 = (FILE *) 0 ;
        MapiMsg result;
        int argvi = 0;
        dXSARGS;
        
        if ((items < 2) || (items > 2)) {
            SWIG_croak("Usage: mapi_explain_query(hdl,fd);");
        }
        {
            if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_MapiStatement,0) < 0) {
                SWIG_croak("Type error in argument 1 of mapi_explain_query. Expected _p_MapiStatement");
            }
        }
        {
            arg2 = IoIFP(sv_2io(ST(1)));
        }
        result = (MapiMsg)mapi_explain_query(arg1,arg2);
        
        ST(argvi) = sv_newmortal();
        sv_setiv(ST(argvi++), (IV) result);
        XSRETURN(argvi);
        fail:
        ;
    }
    croak(Nullch);
}


XS(_wrap_mapi_explain_result) {
    {
        MapiHdl arg1 = (MapiHdl) 0 ;
        FILE *arg2 = (FILE *) 0 ;
        MapiMsg result;
        int argvi = 0;
        dXSARGS;
        
        if ((items < 2) || (items > 2)) {
            SWIG_croak("Usage: mapi_explain_result(hdl,fd);");
        }
        {
            if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_MapiStatement,0) < 0) {
                SWIG_croak("Type error in argument 1 of mapi_explain_result. Expected _p_MapiStatement");
            }
        }
        {
            arg2 = IoIFP(sv_2io(ST(1)));
        }
        result = (MapiMsg)mapi_explain_result(arg1,arg2);
        
        ST(argvi) = sv_newmortal();
        sv_setiv(ST(argvi++), (IV) result);
        XSRETURN(argvi);
        fail:
        ;
    }
    croak(Nullch);
}


XS(_wrap_mapi_output) {
    {
        Mapi arg1 = (Mapi) 0 ;
        char *arg2 = (char *) 0 ;
        MapiMsg result;
        int argvi = 0;
        dXSARGS;
        
        if ((items < 2) || (items > 2)) {
            SWIG_croak("Usage: mapi_output(mid,output);");
        }
        {
            if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_MapiStruct,0) < 0) {
                SWIG_croak("Type error in argument 1 of mapi_output. Expected _p_MapiStruct");
            }
        }
        if (!SvOK((SV*) ST(1))) arg2 = 0;
        else arg2 = (char *) SvPV(ST(1), PL_na);
        result = (MapiMsg)mapi_output(arg1,arg2);
        
        ST(argvi) = sv_newmortal();
        sv_setiv(ST(argvi++), (IV) result);
        XSRETURN(argvi);
        fail:
        ;
    }
    croak(Nullch);
}


XS(_wrap_mapi_stream_into) {
    {
        Mapi arg1 = (Mapi) 0 ;
        char *arg2 = (char *) 0 ;
        char *arg3 = (char *) 0 ;
        MapiMsg result;
        int argvi = 0;
        dXSARGS;
        
        if ((items < 3) || (items > 3)) {
            SWIG_croak("Usage: mapi_stream_into(mid,docname,colname);");
        }
        {
            if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_MapiStruct,0) < 0) {
                SWIG_croak("Type error in argument 1 of mapi_stream_into. Expected _p_MapiStruct");
            }
        }
        if (!SvOK((SV*) ST(1))) arg2 = 0;
        else arg2 = (char *) SvPV(ST(1), PL_na);
        if (!SvOK((SV*) ST(2))) arg3 = 0;
        else arg3 = (char *) SvPV(ST(2), PL_na);
        result = (MapiMsg)mapi_stream_into(arg1,arg2,arg3);
        
        ST(argvi) = sv_newmortal();
        sv_setiv(ST(argvi++), (IV) result);
        XSRETURN(argvi);
        fail:
        ;
    }
    croak(Nullch);
}


XS(_wrap_mapi_profile) {
    {
        Mapi arg1 = (Mapi) 0 ;
        int arg2 ;
        MapiMsg result;
        int argvi = 0;
        dXSARGS;
        
        if ((items < 2) || (items > 2)) {
            SWIG_croak("Usage: mapi_profile(mid,flag);");
        }
        {
            if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_MapiStruct,0) < 0) {
                SWIG_croak("Type error in argument 1 of mapi_profile. Expected _p_MapiStruct");
            }
        }
        arg2 = (int) SvIV(ST(1));
        result = (MapiMsg)mapi_profile(arg1,arg2);
        
        ST(argvi) = sv_newmortal();
        sv_setiv(ST(argvi++), (IV) result);
        XSRETURN(argvi);
        fail:
        ;
    }
    croak(Nullch);
}


XS(_wrap_mapi_trace) {
    {
        Mapi arg1 = (Mapi) 0 ;
        int arg2 ;
        MapiMsg result;
        int argvi = 0;
        dXSARGS;
        
        if ((items < 2) || (items > 2)) {
            SWIG_croak("Usage: mapi_trace(mid,flag);");
        }
        {
            if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_MapiStruct