view release on metacpan or  search on metacpan

src/subversion/subversion/bindings/swig/perl/native/svn_ra.c  view on Meta::CPAN

        if (SvOK(exception_handler)) {
          SV *callback_result;
          
          svn_swig_pl_callback_thunk (CALL_SV, exception_handler,
            &callback_result, "S", result,
            SWIGTYPE_p_svn_error_t);
        } else {
          ST(argvi) = SWIG_NewPointerObj(result, SWIGTYPE_p_svn_error_t, 0);
          argvi++;
        }
      }
    }
    if (SWIG_IsTmpObj(res4)) {
      if (argvi >= items) EXTEND(sp,1);  ST(argvi) = SWIG_From_long  SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++  ;
    } else {
      int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
      if (argvi >= items) EXTEND(sp,1);  ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_svn_node_kind_t, new_flags); argvi++  ;
    }
    
    if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
    
    
    
    XSRETURN(argvi);
  fail:
    
    if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
    
    
    
    SWIG_croak_null();
  }
}


XS(_wrap_svn_ra_stat) {
  {
    svn_ra_session_t *arg1 = (svn_ra_session_t *) 0 ;
    char *arg2 = (char *) 0 ;
    svn_revnum_t arg3 ;
    svn_dirent_t **arg4 = (svn_dirent_t **) 0 ;
    apr_pool_t *arg5 = (apr_pool_t *) 0 ;
    apr_pool_t *_global_pool ;
    void *argp1 = 0 ;
    int res1 = 0 ;
    int res2 ;
    char *buf2 = 0 ;
    int alloc2 = 0 ;
    long val3 ;
    int ecode3 = 0 ;
    svn_dirent_t *temp4 ;
    int argvi = 0;
    svn_error_t *result = 0 ;
    dXSARGS;
    
    {
      _global_pool = arg5 = svn_swig_pl_make_pool (ST(items-1));
    }
    arg4 = &temp4;
    if ((items < 3) || (items > 4)) {
      SWIG_croak("Usage: svn_ra_stat(session,path,revision,pool);");
    }
    res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_svn_ra_session_t, 0 |  0 );
    if (!SWIG_IsOK(res1)) {
      SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "svn_ra_stat" "', argument " "1"" of type '" "svn_ra_session_t *""'"); 
    }
    arg1 = (svn_ra_session_t *)(argp1);
    res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
    if (!SWIG_IsOK(res2)) {
      SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "svn_ra_stat" "', argument " "2"" of type '" "char const *""'");
    }
    arg2 = (char *)(buf2);
    ecode3 = SWIG_AsVal_long SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
    if (!SWIG_IsOK(ecode3)) {
      SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "svn_ra_stat" "', argument " "3"" of type '" "svn_revnum_t""'");
    } 
    arg3 = (svn_revnum_t)(val3);
    if (items > 3) {
      
    }
    {
      result = (svn_error_t *)svn_ra_stat(arg1,(char const *)arg2,arg3,arg4,arg5);
      
      
      
    }
    {
      if (result) {
        SV *exception_handler = perl_get_sv ("SVN::Error::handler", FALSE);
        
        if (SvOK(exception_handler)) {
          SV *callback_result;
          
          svn_swig_pl_callback_thunk (CALL_SV, exception_handler,
            &callback_result, "S", result,
            SWIGTYPE_p_svn_error_t);
        } else {
          ST(argvi) = SWIG_NewPointerObj(result, SWIGTYPE_p_svn_error_t, 0);
          argvi++;
        }
      }
    }
    {
      if (argvi >= items) EXTEND(sp,1);  ST(argvi) = SWIG_NewPointerObj(*arg4, SWIGTYPE_p_svn_dirent_t, 0); argvi++  ;
    }
    
    if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
    
    
    
    XSRETURN(argvi);
  fail:
    
    if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
    
    
    
    SWIG_croak_null();
  }
}


XS(_wrap_svn_ra_get_uuid2) {
  {
    svn_ra_session_t *arg1 = (svn_ra_session_t *) 0 ;
    char **arg2 = (char **) 0 ;
    apr_pool_t *arg3 = (apr_pool_t *) 0 ;
    apr_pool_t *_global_pool ;
    void *argp1 = 0 ;
    int res1 = 0 ;
    char *temp2 ;
    int argvi = 0;
    svn_error_t *result = 0 ;
    dXSARGS;
    
    {
      _global_pool = arg3 = svn_swig_pl_make_pool (ST(items-1));
    }
    arg2 = &temp2;
    if ((items < 1) || (items > 2)) {
      SWIG_croak("Usage: svn_ra_get_uuid2(session,pool);");
    }