view release on metacpan or  search on metacpan

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

XS(_wrap_svn_pool_create) {
  {
    apr_pool_t *arg1 = (apr_pool_t *) 0 ;
    apr_allocator_t *arg2 = (apr_allocator_t *) 0 ;
    void *argp1 = 0 ;
    int res1 = 0 ;
    void *argp2 = 0 ;
    int res2 = 0 ;
    int argvi = 0;
    apr_pool_t *result = 0 ;
    dXSARGS;
    
    {
      arg2 = NULL;
    }
    if ((items < 1) || (items > 2)) {
      SWIG_croak("Usage: svn_pool_create(parent_pool,allocator);");
    }
    res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_apr_pool_t, 0 |  0 );
    if (!SWIG_IsOK(res1)) {
      SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "svn_pool_create" "', argument " "1"" of type '" "apr_pool_t *""'"); 
    }
    arg1 = (apr_pool_t *)(argp1);
    if (items > 1) {
      res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_apr_allocator_t, 0 |  0 );
      if (!SWIG_IsOK(res2)) {
        SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "svn_pool_create" "', argument " "2"" of type '" "apr_allocator_t *""'"); 
      }
      arg2 = (apr_allocator_t *)(argp2);
    }
    {
      result = (apr_pool_t *)svn_pool_create_ex(arg1,arg2);
      
      
      
    }
    ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_apr_pool_t, 0 | 0); argvi++ ;
    
    
    XSRETURN(argvi);
  fail:
    
    
    SWIG_croak_null();
  }
}


XS(_wrap_svn_pool_create_allocator) {
  {
    svn_boolean_t arg1 ;
    int val1 ;
    int ecode1 = 0 ;
    int argvi = 0;
    apr_allocator_t *result = 0 ;
    dXSARGS;
    
    if ((items < 1) || (items > 1)) {
      SWIG_croak("Usage: svn_pool_create_allocator(thread_safe);");
    }
    ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
    if (!SWIG_IsOK(ecode1)) {
      SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "svn_pool_create_allocator" "', argument " "1"" of type '" "svn_boolean_t""'");
    } 
    arg1 = (svn_boolean_t)(val1);
    {
      result = (apr_allocator_t *)svn_pool_create_allocator(arg1);
      
      
      
    }
    ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_apr_allocator_t, 0 | 0); argvi++ ;
    
    XSRETURN(argvi);
  fail:
    
    SWIG_croak_null();
  }
}


XS(_wrap_svn_version_t_major_set) {
  {
    struct svn_version_t *arg1 = (struct svn_version_t *) 0 ;
    int arg2 ;
    void *argp1 = 0 ;
    int res1 = 0 ;
    int val2 ;
    int ecode2 = 0 ;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 2) || (items > 2)) {
      SWIG_croak("Usage: svn_version_t_major_set(self,major);");
    }
    res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_svn_version_t, 0 |  0 );
    if (!SWIG_IsOK(res1)) {
      SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "svn_version_t_major_set" "', argument " "1"" of type '" "struct svn_version_t *""'"); 
    }
    arg1 = (struct svn_version_t *)(argp1);
    ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
    if (!SWIG_IsOK(ecode2)) {
      SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "svn_version_t_major_set" "', argument " "2"" of type '" "int""'");
    } 
    arg2 = (int)(val2);
    if (arg1) (arg1)->major = arg2;
    ST(argvi) = sv_newmortal();
    
    
    XSRETURN(argvi);
  fail:
    
    
    SWIG_croak_null();
  }
}


XS(_wrap_svn_version_t_major_get) {