~ubuntu-branches/debian/sid/subversion/sid

« back to all changes in this revision

Viewing changes to subversion/bindings/swig/proxy/perlrun.swg

  • Committer: Package Import Robot
  • Author(s): James McCoy, Peter Samuelson, James McCoy
  • Date: 2014-01-12 19:48:33 UTC
  • mfrom: (0.2.10)
  • Revision ID: package-import@ubuntu.com-20140112194833-w3axfwksn296jn5x
Tags: 1.8.5-1
[ Peter Samuelson ]
* New upstream release.  (Closes: #725787) Rediff patches:
  - Remove apr-abi1 (applied upstream), rename apr-abi2 to apr-abi
  - Remove loosen-sqlite-version-check (shouldn't be needed)
  - Remove java-osgi-metadata (applied upstream)
  - svnmucc prompts for a changelog if none is provided. (Closes: #507430)
  - Remove fix-bdb-version-detection, upstream uses "apu-config --dbm-libs"
  - Remove ruby-test-wc (applied upstream)
  - Fix “svn diff -r N file” when file has svn:mime-type set.
    (Closes: #734163)
  - Support specifying an encoding for mod_dav_svn's environment in which
    hooks are run.  (Closes: #601544)
  - Fix ordering of “svnadmin dump” paths with certain APR versions.
    (Closes: #687291)
  - Provide a better error message when authentication fails with an
    svn+ssh:// URL.  (Closes: #273874)
  - Updated Polish translations.  (Closes: #690815)

[ James McCoy ]
* Remove all traces of libneon, replaced by libserf.
* patches/sqlite_3.8.x_workaround: Upstream fix for wc-queries-test test
  failurse.
* Run configure with --with-apache-libexecdir, which allows removing part of
  patches/rpath.
* Re-enable auth-test as upstream has fixed the problem of picking up
  libraries from the environment rather than the build tree.
  (Closes: #654172)
* Point LD_LIBRARY_PATH at the built auth libraries when running the svn
  command during the build.  (Closes: #678224)
* Add a NEWS entry describing how to configure mod_dav_svn to understand
  UTF-8.  (Closes: #566148)
* Remove ancient transitional package, libsvn-ruby.
* Enable compatibility with Sqlite3 versions back to Wheezy.
* Enable hardening flags.  (Closes: #734918)
* patches/build-fixes: Enable verbose build logs.
* Build against the default ruby version.  (Closes: #722393)

Show diffs side-by-side

added added

removed removed

Lines of Context:
40
40
 
41
41
/* Runtime API */
42
42
 
43
 
#define SWIG_GetModule(clientdata)                      SWIG_Perl_GetModule()
 
43
#define SWIG_GetModule(clientdata)                      SWIG_Perl_GetModule(clientdata)
44
44
#define SWIG_SetModule(clientdata, pointer)             SWIG_Perl_SetModule(pointer)
45
45
 
46
46
 
47
47
/* Error manipulation */
48
48
 
49
49
#define SWIG_ErrorType(code)                            SWIG_Perl_ErrorType(code)               
50
 
#define SWIG_Error(code, msg)                           sv_setpvf(GvSV(PL_errgv),"%s %s\n", SWIG_ErrorType(code), msg)
 
50
#define SWIG_Error(code, msg)                           sv_setpvf(get_sv("@", GV_ADD), "%s %s", SWIG_ErrorType(code), msg)
51
51
#define SWIG_fail                                       goto fail                                                   
52
52
 
53
53
/* Perl-specific SWIG API */
141
141
#endif /* MULTIPLICITY */
142
142
#endif /* PERL_OBJECT */
143
143
 
144
 
/* Workaround for bug in perl 5.6.x croak and earlier */
145
 
#if (PERL_VERSION < 8)
146
144
#  ifdef PERL_OBJECT
147
145
#    define SWIG_croak_null() SWIG_Perl_croak_null(pPerl)
148
146
static void SWIG_Perl_croak_null(CPerlObj *pPerl)
150
148
static void SWIG_croak_null()
151
149
#  endif
152
150
{
153
 
  SV *err=ERRSV;
 
151
  SV *err = get_sv("@", GV_ADD);
154
152
#  if (PERL_VERSION < 6)
155
153
  croak("%_", err);
156
154
#  else
157
 
  if (SvOK(err) && !SvROK(err)) croak("%_", err);
158
 
  croak(Nullch);
 
155
  if (sv_isobject(err))
 
156
    croak(0);
 
157
  else
 
158
    croak("%s", SvPV_nolen(err));
159
159
#  endif
160
160
}
161
 
#else
162
 
#  define SWIG_croak_null() croak(Nullch)
163
 
#endif
164
161
 
165
162
 
166
163
/* 
212
209
  if (ty) {
213
210
    swig_cast_info *iter = ty->cast;
214
211
    while (iter) {
215
 
      if ( (!iter->type->clientdata && (strcmp(iter->type->name, c) == 0)) ||
216
 
            (iter->type->clientdata && (strcmp((char*)iter->type->clientdata, c) == 0)) ) {
 
212
      if (strcmp(SWIG_Perl_TypeProxyName(iter->type), c) == 0) {
217
213
        if (iter == ty->cast)
218
214
          return iter;
219
215
        /* Move iter to the top of the linked list */
344
340
    SV *obj=newSV(0);
345
341
    HV *hash=newHV();
346
342
    HV *stash;
347
 
    sv_setref_pv(obj, (char *) SWIG_Perl_TypeProxyName(t), ptr);
 
343
    sv_setref_pv(obj, SWIG_Perl_TypeProxyName(t), ptr);
348
344
    stash=SvSTASH(SvRV(obj));
349
345
    if (flags & SWIG_POINTER_OWN) {
350
346
      HV *hv;
362
358
    sv_bless(sv, stash);
363
359
  }
364
360
  else {
365
 
    sv_setref_pv(sv, (char *) SWIG_Perl_TypeProxyName(t), ptr);
 
361
    sv_setref_pv(sv, SWIG_Perl_TypeProxyName(t), ptr);
366
362
  }
367
363
}
368
364
 
453
449
 
454
450
/* Magic variable code */
455
451
#ifndef PERL_OBJECT
456
 
#define swig_create_magic(s,a,b,c) _swig_create_magic(s,a,b,c)
457
 
  #ifndef MULTIPLICITY
458
 
     SWIGRUNTIME void _swig_create_magic(SV *sv, char *name, int (*set)(SV *, MAGIC *), int (*get)(SV *,MAGIC *)) 
459
 
  #else
460
 
     SWIGRUNTIME void _swig_create_magic(SV *sv, char *name, int (*set)(struct interpreter*, SV *, MAGIC *), int (*get)(struct interpreter*, SV *,MAGIC *)) 
461
 
  #endif
 
452
# ifdef __cplusplus
 
453
#  define swig_create_magic(s,a,b,c) _swig_create_magic(s,const_cast<char*>(a),b,c)
 
454
# else
 
455
#  define swig_create_magic(s,a,b,c) _swig_create_magic(s,(char*)(a),b,c)
 
456
# endif
 
457
# ifndef MULTIPLICITY
 
458
SWIGRUNTIME void _swig_create_magic(SV *sv, char *name, int (*set)(SV *, MAGIC *), int (*get)(SV *,MAGIC *)) 
 
459
# else
 
460
SWIGRUNTIME void _swig_create_magic(SV *sv, char *name, int (*set)(struct interpreter*, SV *, MAGIC *), int (*get)(struct interpreter*, SV *,MAGIC *)) 
 
461
# endif
462
462
#else
463
463
#  define swig_create_magic(s,a,b,c) _swig_create_magic(pPerl,s,a,b,c)
464
464
SWIGRUNTIME void _swig_create_magic(CPerlObj *pPerl, SV *sv, const char *name, int (CPerlObj::*set)(SV *, MAGIC *), int (CPerlObj::*get)(SV *, MAGIC *)) 
465
465
#endif
466
466
{
467
467
  MAGIC *mg;
468
 
  sv_magic(sv,sv,'U',(char *) name,strlen(name));
 
468
  sv_magic(sv,sv,'U',name,strlen(name));
469
469
  mg = mg_find(sv,'U');
470
470
  mg->mg_virtual = (MGVTBL *) malloc(sizeof(MGVTBL));
471
471
  mg->mg_virtual->svt_get = (SwigMagicFunc) get;
477
477
 
478
478
 
479
479
SWIGRUNTIME swig_module_info *
480
 
SWIG_Perl_GetModule(void) {
 
480
SWIG_Perl_GetModule(void *SWIGUNUSEDPARM(clientdata)) {
481
481
  static void *type_pointer = (void *)0;
482
482
  SV *pointer;
483
483