/* ----------------------------------------------------------------------------
* This file was automatically generated by SWIG (http://www.swig.org).
- * Version 1.3.39
+ * Version 2.0.4
*
* This file is not intended to be easily readable and contains a number of
* coding conventions designed to improve portability and efficiency. Do not make
* interface file instead.
* ----------------------------------------------------------------------------- */
+#include "../config/config.h"
+
+
#define SWIGPERL
#define SWIG_CASTRANK_MODE
/*
Flags/methods for returning states.
- The SWIG conversion methods, as ConvertPtr, return and integer
+ The SWIG conversion methods, as ConvertPtr, return an integer
that tells if the conversion was successful or not. And if not,
an error code can be returned (see swigerrors.swg for the codes).
/* for raw pointers */
#define SWIG_ConvertPtr(obj, pp, type, flags) SWIG_Perl_ConvertPtr(SWIG_PERL_OBJECT_CALL obj, pp, type, flags)
+#define SWIG_ConvertPtrAndOwn(obj, pp, type, flags,own) SWIG_Perl_ConvertPtrAndOwn(SWIG_PERL_OBJECT_CALL obj, pp, type, flags, own)
#define SWIG_NewPointerObj(p, type, flags) SWIG_Perl_NewPointerObj(SWIG_PERL_OBJECT_CALL p, type, flags)
/* for raw packed data */
/* Function for getting a pointer value */
SWIGRUNTIME int
-SWIG_Perl_ConvertPtr(SWIG_MAYBE_PERL_OBJECT SV *sv, void **ptr, swig_type_info *_t, int flags) {
+SWIG_Perl_ConvertPtrAndOwn(SWIG_MAYBE_PERL_OBJECT SV *sv, void **ptr, swig_type_info *_t, int flags, int *own) {
swig_cast_info *tc;
void *voidptr = (void *)0;
SV *tsv = 0;
+
+ if (own)
+ *own = 0;
+
/* If magical, apply more magic */
if (SvGMAGICAL(sv))
mg_get(sv);
return SWIG_OK;
} else if (SvTYPE(sv) == SVt_RV) { /* Check for NULL pointer */
if (!SvROK(sv)) {
- *(ptr) = (void *) 0;
- return SWIG_OK;
+ /* In Perl 5.12 and later, SVt_RV == SVt_IV, so sv could be a valid integer value. */
+ if (SvIOK(sv)) {
+ return SWIG_ERROR;
+ } else {
+ /* NULL pointer (reference to undef). */
+ *(ptr) = (void *) 0;
+ return SWIG_OK;
+ }
} else {
return SWIG_ERROR;
}
{
int newmemory = 0;
*ptr = SWIG_TypeCast(tc,voidptr,&newmemory);
- assert(!newmemory); /* newmemory handling not yet implemented */
+ if (newmemory == SWIG_CAST_NEW_MEMORY) {
+ assert(own); /* badly formed typemap which will lead to a memory leak - it must set and use own to delete *ptr */
+ if (own)
+ *own = *own | SWIG_CAST_NEW_MEMORY;
+ }
}
} else {
*ptr = voidptr;
*/
SV *obj = sv;
HV *stash = SvSTASH(SvRV(obj));
- GV *gv = *(GV**) hv_fetch(stash, "OWNER", 5, TRUE);
+ GV *gv = *(GV**)hv_fetch(stash, "OWNER", 5, TRUE);
if (isGV(gv)) {
HV *hv = GvHVn(gv);
/*
return SWIG_OK;
}
+SWIGRUNTIME int
+SWIG_Perl_ConvertPtr(SWIG_MAYBE_PERL_OBJECT SV *sv, void **ptr, swig_type_info *_t, int flags) {
+ return SWIG_Perl_ConvertPtrAndOwn(sv, ptr, _t, flags, 0);
+}
+
SWIGRUNTIME void
SWIG_Perl_MakePtr(SWIG_MAYBE_PERL_OBJECT SV *sv, void *ptr, swig_type_info *t, int flags) {
- if (ptr && (flags & SWIG_SHADOW)) {
+ if (ptr && (flags & (SWIG_SHADOW | SWIG_POINTER_OWN))) {
SV *self;
SV *obj=newSV(0);
HV *hash=newHV();
stash=SvSTASH(SvRV(obj));
if (flags & SWIG_POINTER_OWN) {
HV *hv;
- GV *gv=*(GV**)hv_fetch(stash, "OWNER", 5, TRUE);
+ GV *gv = *(GV**)hv_fetch(stash, "OWNER", 5, TRUE);
if (!isGV(gv))
gv_init(gv, stash, "OWNER", 5, FALSE);
hv=GvHVn(gv);
#ifdef do_close
#undef do_close
#endif
+#ifdef do_exec
+ #undef do_exec
+#endif
#ifdef scalar
#undef scalar
#endif
#ifdef bind
#undef bind
#endif
+#ifdef access
+ #undef access
+#endif
+#ifdef stat
+ #undef stat
+#endif
#define SWIG_name "Amanda::Archivec::boot_Amanda__Archive"
#define SWIG_prefix "Amanda::Archivec::"
-#define SWIGVERSION 0x010339
+#define SWIGVERSION 0x020004
#define SWIG_VERSION SWIGVERSION
/* Support code (not directly available from perl) */
+#define AMANDA_ARCHIVE_ERROR_DOMAIN "Amanda archive"
+
/* A C object to contain all of the relevant callbacks and other state during a
* read operation; this becomes the user_data during the read */
typedef struct perl_read_data_s {
return TRUE;
}
-static void
-croak_gerror(GError **error)
-{
- static char *errstr = NULL;
- if (errstr) g_free(errstr);
- errstr = g_strdup((*error)->message);
- g_clear_error(error);
- croak("Amanda archive: %s", errstr);
-}
-
/* generic function to recognize when a string+len represents a number and
* incidentally return the resulting value. Note that this does not handle
* negative numbers. */
return rv;
}
- croak_gerror(&error);
+ croak_gerror(AMANDA_ARCHIVE_ERROR_DOMAIN, &error);
return NULL;
}
void amar_close_(amar_t *arch) {
GError *error = NULL;
if (!amar_close(arch, &error))
- croak_gerror(&error);
+ croak_gerror(AMANDA_ARCHIVE_ERROR_DOMAIN, &error);
}
amar_file_t *
if (file)
return file;
- croak_gerror(&error);
+ croak_gerror(AMANDA_ARCHIVE_ERROR_DOMAIN, &error);
return NULL;
}
void amar_file_close_(amar_file_t *file) {
GError *error = NULL;
if (!amar_file_close(file, &error))
- croak_gerror(&error);
+ croak_gerror(AMANDA_ARCHIVE_ERROR_DOMAIN, &error);
}
amar_attr_t *
if (attr)
return attr;
- croak_gerror(&error);
+ croak_gerror(AMANDA_ARCHIVE_ERROR_DOMAIN, &error);
return NULL;
}
void amar_attr_close_(amar_attr_t *attr) {
GError *error = NULL;
if (!amar_attr_close(attr, &error))
- croak_gerror(&error);
+ croak_gerror(AMANDA_ARCHIVE_ERROR_DOMAIN, &error);
}
void amar_attr_add_data_buffer_(amar_attr_t *attr, char *buffer, gsize size, gboolean eoa) {
GError *error = NULL;
if (!amar_attr_add_data_buffer(attr, buffer, size, eoa, &error))
- croak_gerror(&error);
+ croak_gerror(AMANDA_ARCHIVE_ERROR_DOMAIN, &error);
}
size_t
GError *error = NULL;
size_t rv = amar_attr_add_data_fd(attr, fd, eoa, &error);
if (rv < 0)
- croak_gerror(&error);
+ croak_gerror(AMANDA_ARCHIVE_ERROR_DOMAIN, &error);
return rv;
}
* is still set */
if (!success) {
if (error)
- croak_gerror(&error);
+ croak_gerror(AMANDA_ARCHIVE_ERROR_DOMAIN, &error);
else
croak(NULL);
}
const char *nptr = SvPV_nolen(obj);
if (nptr) {
char *endptr;
- double v = strtod(nptr, &endptr);
+ double v;
+ errno = 0;
+ v = strtod(nptr, &endptr);
if (errno == ERANGE) {
errno = 0;
return SWIG_OverflowError;
SWIG_croak("Usage: amar_new(fd,modestr);");
}
{
- if (sizeof(signed int) == 1) {
- arg1 = amglue_SvI8(ST(0));
- } else if (sizeof(signed int) == 2) {
- arg1 = amglue_SvI16(ST(0));
- } else if (sizeof(signed int) == 4) {
- arg1 = amglue_SvI32(ST(0));
- } else if (sizeof(signed int) == 8) {
- arg1 = amglue_SvI64(ST(0));
+ IO *io = NULL;
+ PerlIO *pio = NULL;
+ int fd = -1;
+
+ if (SvIOK(ST(0))) {
+ /* plain old integer */
+ arg1 = SvIV(ST(0));
} else {
- g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
+ /* try extracting as filehandle */
+
+ /* note: sv_2io may call die() */
+ io = sv_2io(ST(0));
+ if (io) {
+ pio = IoIFP(io);
+ }
+ if (pio) {
+ fd = PerlIO_fileno(pio);
+ }
+ if (fd >= 0) {
+ arg1 = fd;
+ } else {
+ SWIG_exception(SWIG_TypeError, "Expected integer file descriptor "
+ "or file handle for argument 1");
+ }
}
}
res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_amar_file_t, 0 | 0); argvi++ ;
{
if (arg4) {
- ST(argvi) = amglue_newSVi64(*arg4);
- argvi++;
+ SP += argvi; PUTBACK;
+ ST(argvi) = sv_2mortal(amglue_newSVi64(*arg4));
+ SPAGAIN; SP -= argvi; argvi++;
}
}
arg2 = (char *)(buf2);
arg3 = (gsize)(size2 - 1);
{
- if (sizeof(signed int) == 1) {
- arg4 = amglue_SvI8(ST(2));
- } else if (sizeof(signed int) == 2) {
- arg4 = amglue_SvI16(ST(2));
- } else if (sizeof(signed int) == 4) {
- arg4 = amglue_SvI32(ST(2));
- } else if (sizeof(signed int) == 8) {
- arg4 = amglue_SvI64(ST(2));
- } else {
- g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
- }
+ arg4 = SvTRUE(ST(2));
}
amar_attr_add_data_buffer_(arg1,arg2,arg3,arg4);
ST(argvi) = sv_newmortal();
}
arg1 = (amar_attr_t *)(argp1);
{
- if (sizeof(signed int) == 1) {
- arg2 = amglue_SvI8(ST(1));
- } else if (sizeof(signed int) == 2) {
- arg2 = amglue_SvI16(ST(1));
- } else if (sizeof(signed int) == 4) {
- arg2 = amglue_SvI32(ST(1));
- } else if (sizeof(signed int) == 8) {
- arg2 = amglue_SvI64(ST(1));
+ IO *io = NULL;
+ PerlIO *pio = NULL;
+ int fd = -1;
+
+ if (SvIOK(ST(1))) {
+ /* plain old integer */
+ arg2 = SvIV(ST(1));
} else {
- g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
+ /* try extracting as filehandle */
+
+ /* note: sv_2io may call die() */
+ io = sv_2io(ST(1));
+ if (io) {
+ pio = IoIFP(io);
+ }
+ if (pio) {
+ fd = PerlIO_fileno(pio);
+ }
+ if (fd >= 0) {
+ arg2 = fd;
+ } else {
+ SWIG_exception(SWIG_TypeError, "Expected integer file descriptor "
+ "or file handle for argument 2");
+ }
}
}
{
- if (sizeof(signed int) == 1) {
- arg3 = amglue_SvI8(ST(2));
- } else if (sizeof(signed int) == 2) {
- arg3 = amglue_SvI16(ST(2));
- } else if (sizeof(signed int) == 4) {
- arg3 = amglue_SvI32(ST(2));
- } else if (sizeof(signed int) == 8) {
- arg3 = amglue_SvI64(ST(2));
- } else {
- g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
- }
+ arg3 = SvTRUE(ST(2));
}
result = amar_attr_add_data_fd_(arg1,arg2,arg3);
{
- ST(argvi) = sv_2mortal(amglue_newSVu64(result));
+ SV *for_stack;
+ SP += argvi; PUTBACK;
+ for_stack = sv_2mortal(amglue_newSVu64(result));
+ SPAGAIN; SP -= argvi;
+ ST(argvi) = for_stack;
argvi++;
}
projects / debian / amanda / blobdiff