view release on metacpan or  search on metacpan

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

          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) = svn_swig_pl_convert_hash(*arg1, SWIGTYPE_p_svn_dirent_t); argvi++  ;
    }
    
    if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
    
    
    
    XSRETURN(argvi);
  fail:
    
    if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
    
    
    
    SWIG_croak_null();
  }
}


XS(_wrap_svn_io_stat_dirent2) {
  {
    svn_io_dirent2_t **arg1 = (svn_io_dirent2_t **) 0 ;
    char *arg2 = (char *) 0 ;
    svn_boolean_t arg3 ;
    svn_boolean_t arg4 ;
    apr_pool_t *arg5 = (apr_pool_t *) 0 ;
    apr_pool_t *arg6 = (apr_pool_t *) 0 ;
    apr_pool_t *_global_pool ;
    svn_io_dirent2_t *temp1 ;
    int res2 ;
    char *buf2 = 0 ;
    int alloc2 = 0 ;
    int val3 ;
    int ecode3 = 0 ;
    int val4 ;
    int ecode4 = 0 ;
    int argvi = 0;
    svn_error_t *result = 0 ;
    dXSARGS;
    
    {
      _global_pool = arg5 = svn_swig_pl_make_pool (ST(items-1));
    }
    {
      _global_pool = arg6 = svn_swig_pl_make_pool (ST(items-1));
    }
    arg1 = &temp1;
    if ((items < 3) || (items > 5)) {
      SWIG_croak("Usage: svn_io_stat_dirent2(path,verify_truename,ignore_enoent,result_pool,scratch_pool);");
    }
    res2 = SWIG_AsCharPtrAndSize(ST(0), &buf2, NULL, &alloc2);
    if (!SWIG_IsOK(res2)) {
      SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "svn_io_stat_dirent2" "', argument " "2"" of type '" "char const *""'");
    }
    arg2 = (char *)(buf2);
    ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val3);
    if (!SWIG_IsOK(ecode3)) {
      SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "svn_io_stat_dirent2" "', argument " "3"" of type '" "svn_boolean_t""'");
    } 
    arg3 = (svn_boolean_t)(val3);
    ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val4);
    if (!SWIG_IsOK(ecode4)) {
      SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "svn_io_stat_dirent2" "', argument " "4"" of type '" "svn_boolean_t""'");
    } 
    arg4 = (svn_boolean_t)(val4);
    if (items > 3) {
      
    }
    if (items > 4) {
      
    }
    {
      result = (svn_error_t *)svn_io_stat_dirent2((struct svn_io_dirent2_t const **)arg1,(char const *)arg2,arg3,arg4,arg5,arg6);
      
      
      
    }
    {
      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++;
        }
      }
    }
    {
      /* FIXME: Missing argout typemap: svn_io_stat_dirent2 arg 1 (svn_io_dirent2_t const **) */
      
      
      
      
      SWIG_exception(SWIG_ValueError, "svn_io_stat_dirent2 is not implemented yet");
      
    }
    
    if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
    
    
    
    
    XSRETURN(argvi);