view release on metacpan or  search on metacpan

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

      if (argvi >= items) EXTEND(sp,1);  ST(argvi) = SWIG_From_long  SWIG_PERL_CALL_ARGS_1((*arg1)); argvi++  ;
    } else {
      int new_flags = SWIG_IsNewObj(res1) ? (SWIG_POINTER_OWN | 0) : 0;
      if (argvi >= items) EXTEND(sp,1);  ST(argvi) = SWIG_NewPointerObj((void*)(arg1), SWIGTYPE_p_long, new_flags); argvi++  ;
    }
    {
      if (*arg2 == NULL) {
        if (argvi >= items) EXTEND(sp,1);  ST(argvi) = &PL_sv_undef; argvi++  ;
      } else {
        if (argvi >= items) EXTEND(sp,1);  ST(argvi) = sv_2mortal(newSVpv(*arg2, 0)); argvi++  ;
      }
    }
    {
      if (*arg3 == NULL) {
        if (argvi >= items) EXTEND(sp,1);  ST(argvi) = &PL_sv_undef; argvi++  ;
      } else {
        if (argvi >= items) EXTEND(sp,1);  ST(argvi) = sv_2mortal(newSVpv(*arg3, 0)); argvi++  ;
      }
    }
    
    
    
    
    if (alloc5 == SWIG_NEWOBJ) free((char*)buf5);
    
    XSRETURN(argvi);
  fail:
    
    
    
    
    if (alloc5 == SWIG_NEWOBJ) free((char*)buf5);
    
    SWIG_croak_null();
  }
}


XS(_wrap_svn_repos_stat) {
  {
    svn_dirent_t **arg1 = (svn_dirent_t **) 0 ;
    svn_fs_root_t *arg2 = (svn_fs_root_t *) 0 ;
    char *arg3 = (char *) 0 ;
    apr_pool_t *arg4 = (apr_pool_t *) 0 ;
    apr_pool_t *_global_pool ;
    svn_dirent_t *temp1 ;
    void *argp2 = 0 ;
    int res2 = 0 ;
    int res3 ;
    char *buf3 = 0 ;
    int alloc3 = 0 ;
    int argvi = 0;
    svn_error_t *result = 0 ;
    dXSARGS;
    
    {
      _global_pool = arg4 = svn_swig_pl_make_pool (ST(items-1));
    }
    arg1 = &temp1;
    if ((items < 2) || (items > 3)) {
      SWIG_croak("Usage: svn_repos_stat(root,path,pool);");
    }
    res2 = SWIG_ConvertPtr(ST(0), &argp2,SWIGTYPE_p_svn_fs_root_t, 0 |  0 );
    if (!SWIG_IsOK(res2)) {
      SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "svn_repos_stat" "', argument " "2"" of type '" "svn_fs_root_t *""'"); 
    }
    arg2 = (svn_fs_root_t *)(argp2);
    res3 = SWIG_AsCharPtrAndSize(ST(1), &buf3, NULL, &alloc3);
    if (!SWIG_IsOK(res3)) {
      SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "svn_repos_stat" "', argument " "3"" of type '" "char const *""'");
    }
    arg3 = (char *)(buf3);
    if (items > 2) {
      
    }
    {
      result = (svn_error_t *)svn_repos_stat(arg1,arg2,(char const *)arg3,arg4);
      
      
      
    }
    {
      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(*arg1, SWIGTYPE_p_svn_dirent_t, 0); argvi++  ;
    }
    
    
    if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
    
    XSRETURN(argvi);
  fail:
    
    
    if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
    
    SWIG_croak_null();
  }
}


XS(_wrap_svn_repos_deleted_rev) {
  {
    svn_fs_t *arg1 = (svn_fs_t *) 0 ;
    char *arg2 = (char *) 0 ;
    svn_revnum_t arg3 ;
    svn_revnum_t arg4 ;
    svn_revnum_t *arg5 = (svn_revnum_t *) 0 ;
    apr_pool_t *arg6 = (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 ;
    long val4 ;
    int ecode4 = 0 ;
    svn_revnum_t temp5 ;
    int res5 = SWIG_TMPOBJ ;
    int argvi = 0;
    svn_error_t *result = 0 ;