X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=perl%2FAmanda%2FDevice.c;h=aff3abdd22e429dc454755966b45062d91812425;hb=2627875b7d18858bc1f9f7652811e4d8c15a23eb;hp=0b4111811399539f86d26775531a670349a9d156;hpb=fb2bd066c2f8b34addafe48d62550e3033a59431;p=debian%2Famanda diff --git a/perl/Amanda/Device.c b/perl/Amanda/Device.c index 0b41118..aff3abd 100644 --- a/perl/Amanda/Device.c +++ b/perl/Amanda/Device.c @@ -1,6 +1,6 @@ /* ---------------------------------------------------------------------------- * This file was automatically generated by SWIG (http://www.swig.org). - * Version 1.3.33 + * Version 1.3.35 * * 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 @@ -122,7 +122,7 @@ /* This should only be incremented when either the layout of swig_type_info changes, or for whatever reason, the runtime changes incompatibly */ -#define SWIG_RUNTIME_VERSION "3" +#define SWIG_RUNTIME_VERSION "4" /* define SWIG_TYPE_TABLE_NAME as "SWIG_TYPE_TABLE" */ #ifdef SWIG_TYPE_TABLE @@ -157,6 +157,7 @@ /* Flags for pointer conversions */ #define SWIG_POINTER_DISOWN 0x1 +#define SWIG_CAST_NEW_MEMORY 0x2 /* Flags for new pointer objects */ #define SWIG_POINTER_OWN 0x1 @@ -297,10 +298,10 @@ SWIGINTERNINLINE int SWIG_CheckState(int r) { extern "C" { #endif -typedef void *(*swig_converter_func)(void *); +typedef void *(*swig_converter_func)(void *, int *); typedef struct swig_type_info *(*swig_dycast_func)(void **); -/* Structure to store inforomation on one type */ +/* Structure to store information on one type */ typedef struct swig_type_info { const char *name; /* mangled name of this type */ const char *str; /* human readable name of this type */ @@ -427,8 +428,8 @@ SWIG_TypeCheckStruct(swig_type_info *from, swig_type_info *into) { Cast a pointer up an inheritance hierarchy */ SWIGRUNTIMEINLINE void * -SWIG_TypeCast(swig_cast_info *ty, void *ptr) { - return ((!ty) || (!ty->converter)) ? ptr : (*ty->converter)(ptr); +SWIG_TypeCast(swig_cast_info *ty, void *ptr, int *newmemory) { + return ((!ty) || (!ty->converter)) ? ptr : (*ty->converter)(ptr, newmemory); } /* @@ -1061,7 +1062,7 @@ SWIG_Perl_TypeProxyName(const swig_type_info *type) { SWIGRUNTIME swig_cast_info * SWIG_TypeProxyCheck(const char *c, swig_type_info *ty) { - SWIG_TypeCheck_Template(( (!iter->type->clientdata && (strcmp((char*)iter->type->name, c) == 0)) + SWIG_TypeCheck_Template(( (!iter->type->clientdata && (strcmp(iter->type->name, c) == 0)) || (iter->type->clientdata && (strcmp((char*)iter->type->clientdata, c) == 0))), ty); } @@ -1119,7 +1120,11 @@ SWIG_Perl_ConvertPtr(SWIG_MAYBE_PERL_OBJECT SV *sv, void **ptr, swig_type_info * if (!tc) { return SWIG_ERROR; } - *ptr = SWIG_TypeCast(tc,voidptr); + { + int newmemory = 0; + *ptr = SWIG_TypeCast(tc,voidptr,&newmemory); + assert(!newmemory); /* newmemory handling not yet implemented */ + } } else { *ptr = voidptr; } @@ -1294,7 +1299,7 @@ SWIG_Perl_GetModule(void) { /* first check if pointer already created */ if (!type_pointer) { - pointer = get_sv("swig_runtime_data::type_pointer" SWIG_RUNTIME_VERSION SWIG_TYPE_TABLE_NAME, FALSE); + pointer = get_sv("swig_runtime_data::type_pointer" SWIG_RUNTIME_VERSION SWIG_TYPE_TABLE_NAME, FALSE | GV_ADDMULTI); if (pointer && SvOK(pointer)) { type_pointer = INT2PTR(swig_type_info **, SvIV(pointer)); } @@ -1308,7 +1313,7 @@ SWIG_Perl_SetModule(swig_module_info *module) { SV *pointer; /* create a new pointer */ - pointer = get_sv("swig_runtime_data::type_pointer" SWIG_RUNTIME_VERSION SWIG_TYPE_TABLE_NAME, TRUE); + pointer = get_sv("swig_runtime_data::type_pointer" SWIG_RUNTIME_VERSION SWIG_TYPE_TABLE_NAME, TRUE | GV_ADDMULTI); sv_setiv(pointer, PTR2IV(module)); } @@ -1434,9 +1439,10 @@ SWIG_Perl_SetModule(swig_module_info *module) { #define SWIGTYPE_p_guint swig_types[8] #define SWIGTYPE_p_guint64 swig_types[9] #define SWIGTYPE_p_int swig_types[10] -#define SWIGTYPE_p_unsigned_char swig_types[11] -static swig_type_info *swig_types[13]; -static swig_module_info swig_module = {swig_types, 12, 0, 0, 0, 0}; +#define SWIGTYPE_p_queue_fd_t swig_types[11] +#define SWIGTYPE_p_unsigned_char swig_types[12] +static swig_type_info *swig_types[14]; +static swig_module_info swig_module = {swig_types, 13, 0, 0, 0, 0}; #define SWIG_TypeQuery(name) SWIG_TypeQueryModule(&swig_module, &swig_module, name) #define SWIG_MangledTypeQuery(name) SWIG_MangledTypeQueryModule(&swig_module, &swig_module, name) @@ -1447,7 +1453,7 @@ static swig_module_info swig_module = {swig_types, 12, 0, 0, 0, 0}; #define SWIG_name "Amanda::Devicec::boot_Amanda__Device" #define SWIG_prefix "Amanda::Devicec::" -#define SWIGVERSION 0x010333 +#define SWIGVERSION 0x010335 #define SWIG_VERSION SWIGVERSION @@ -1526,7 +1532,7 @@ set_sv_from_gvalue(GValue *value) sv = newRV((SV *)hv); return newRV((SV *)hv); } else { - warn("Unsupported boxed property type #%d", boxed_type); + warn("Unsupported boxed property type #%d", (int)boxed_type); sv = sv_newmortal(); sv_setsv(sv, &PL_sv_undef); @@ -1584,7 +1590,7 @@ set_sv_from_gvalue(GValue *value) case G_TYPE_INTERFACE: case G_TYPE_OBJECT: case G_TYPE_PARAM: - warn("Unsupported fundamental property type #%d", fundamental); + warn("Unsupported fundamental property type #%d", (int)fundamental); sv_setsv(sv, &PL_sv_undef); break; } @@ -1696,66 +1702,6 @@ SWIG_FromCharPtr(const char *cptr) } -SWIGINTERN swig_type_info* -SWIG_pchar_descriptor(void) -{ - static int init = 0; - static swig_type_info* info = 0; - if (!init) { - info = SWIG_TypeQuery("_p_char"); - init = 1; - } - return info; -} - - -SWIGINTERN int -SWIG_AsCharPtrAndSize(SV *obj, char** cptr, size_t* psize, int *alloc) -{ - if (SvPOK(obj)) { - STRLEN len = 0; - char *cstr = SvPV(obj, len); - size_t size = len + 1; - if (cptr) { - if (alloc) { - if (*alloc == SWIG_NEWOBJ) { - *cptr = (char *)memcpy((char *)malloc((size)*sizeof(char)), cstr, sizeof(char)*(size)); - } else { - *cptr = cstr; - *alloc = SWIG_OLDOBJ; - } - } - } - if (psize) *psize = size; - return SWIG_OK; - } else { - swig_type_info* pchar_descriptor = SWIG_pchar_descriptor(); - if (pchar_descriptor) { - char* vptr = 0; - if (SWIG_ConvertPtr(obj, (void**)&vptr, pchar_descriptor, 0) == SWIG_OK) { - if (cptr) *cptr = vptr; - if (psize) *psize = vptr ? (strlen(vptr) + 1) : 0; - if (alloc) *alloc = SWIG_OLDOBJ; - return SWIG_OK; - } - } - } - return SWIG_TypeError; -} - - - - -SWIGINTERN Device *new_Device(char *device_name){ - return device_open(device_name); - } -SWIGINTERN void delete_Device(Device *self){ - g_object_unref(self); - } -SWIGINTERN ReadLabelStatusFlags Device_read_label(Device *self){ - return device_read_label(self); - } - #include #if !defined(SWIG_NO_LLONG_MAX) # if !defined(LLONG_MAX) && defined(__GNUC__) && defined (__LONG_LONG_MAX__) @@ -1883,29 +1829,99 @@ SWIG_AsVal_int SWIG_PERL_DECL_ARGS_2(SV * obj, int *val) return res; } +SWIGINTERN queue_fd_t *new_queue_fd_t(int fd){ + return queue_fd_new(fd, NULL); + } +SWIGINTERN void delete_queue_fd_t(queue_fd_t *self){ + amfree(self->errmsg); + g_free(self); + } + +SWIGINTERN swig_type_info* +SWIG_pchar_descriptor(void) +{ + static int init = 0; + static swig_type_info* info = 0; + if (!init) { + info = SWIG_TypeQuery("_p_char"); + init = 1; + } + return info; +} + + +SWIGINTERN int +SWIG_AsCharPtrAndSize(SV *obj, char** cptr, size_t* psize, int *alloc) +{ + if (SvPOK(obj)) { + STRLEN len = 0; + char *cstr = SvPV(obj, len); + size_t size = len + 1; + if (cptr) { + if (alloc) { + if (*alloc == SWIG_NEWOBJ) { + *cptr = (char *)memcpy((char *)malloc((size)*sizeof(char)), cstr, sizeof(char)*(size)); + } else { + *cptr = cstr; + *alloc = SWIG_OLDOBJ; + } + } + } + if (psize) *psize = size; + return SWIG_OK; + } else { + swig_type_info* pchar_descriptor = SWIG_pchar_descriptor(); + if (pchar_descriptor) { + char* vptr = 0; + if (SWIG_ConvertPtr(obj, (void**)&vptr, pchar_descriptor, 0) == SWIG_OK) { + if (cptr) *cptr = vptr; + if (psize) *psize = vptr ? (strlen(vptr) + 1) : 0; + if (alloc) *alloc = SWIG_OLDOBJ; + return SWIG_OK; + } + } + } + return SWIG_TypeError; +} + + + + +SWIGINTERN Device *new_Device(char *device_name){ + return device_open(device_name); + } +SWIGINTERN void delete_Device(Device *self){ + g_object_unref(self); + } +SWIGINTERN gboolean Device_configure(Device *self,gboolean use_global_config){ + return device_configure(self, use_global_config); + } +SWIGINTERN char *Device_error(Device *self){ + return device_error(self); + } +SWIGINTERN char *Device_status_error(Device *self){ + return device_status_error(self); + } +SWIGINTERN char *Device_error_or_status(Device *self){ + return device_error_or_status(self); + } +SWIGINTERN DeviceStatusFlags Device_read_label(Device *self){ + return device_read_label(self); + } SWIGINTERN gboolean Device_start(Device *self,DeviceAccessMode mode,char *label,char *timestamp){ return device_start(self, mode, label, timestamp); } SWIGINTERN gboolean Device_finish(Device *self){ return device_finish(self); } -SWIGINTERN gboolean Device_start_file(Device *self,dumpfile_t const *jobInfo){ +SWIGINTERN gboolean Device_start_file(Device *self,dumpfile_t *jobInfo){ return device_start_file(self, jobInfo); } -SWIGINTERN guint Device_write_min_size(Device *self){ - return device_write_min_size(self); - } -SWIGINTERN guint Device_write_max_size(Device *self){ - return device_write_max_size(self); - } -SWIGINTERN guint Device_read_max_size(Device *self){ - return device_read_max_size(self); +SWIGINTERN gboolean Device_write_block(Device *self,guint size,gpointer data){ + return device_write_block(self, size, data); } -SWIGINTERN gboolean Device_write_block(Device *self,guint size,gpointer data,gboolean short_block){ - return device_write_block(self, size, data, short_block); - } -SWIGINTERN gboolean Device_write_from_fd(Device *self,int fd){ - return device_write_from_fd(self, fd); +SWIGINTERN gboolean Device_write_from_fd(Device *self,queue_fd_t *queue_fd){ + return device_write_from_fd(self, queue_fd); } SWIGINTERN gboolean Device_finish_file(Device *self){ return device_finish_file(self); @@ -1919,14 +1935,14 @@ SWIGINTERN gboolean Device_seek_block(Device *self,guint64 block){ SWIGINTERN int Device_read_block(Device *self,gpointer buffer,int *size){ return device_read_block(self, buffer, size); } -SWIGINTERN gboolean Device_read_to_fd(Device *self,int fd){ - return device_read_to_fd(self, fd); +SWIGINTERN gboolean Device_read_to_fd(Device *self,queue_fd_t *queue_fd){ + return device_read_to_fd(self, queue_fd); } -SWIGINTERN DeviceProperty const *Device_property_list(Device *self){ +SWIGINTERN GSList const *Device_property_list(Device *self){ return device_property_get_list(self); } -SWIGINTERN void Device_property_get(Device *self,DevicePropertyBase *pbase,GValue *out_val,gboolean *val_found){ - *val_found = device_property_get(self, pbase->ID, out_val); +SWIGINTERN void Device_property_get(Device *self,DevicePropertyBase *pbase,GValue *out_val,PropertySurety *surety,PropertySource *source,gboolean *val_found){ + *val_found = device_property_get_ex(self, pbase->ID, out_val, surety, source); } SWIGINTERN gboolean Device_property_set(Device *self,DevicePropertyBase *pbase,SV *sv){ GValue gval; @@ -1938,6 +1954,22 @@ SWIGINTERN gboolean Device_property_set(Device *self,DevicePropertyBase *pbase,S if (!device_property_set(self, pbase->ID, &gval)) goto fail; + g_value_unset(&gval); + return TRUE; + fail: + g_value_unset(&gval); + return FALSE; + } +SWIGINTERN gboolean Device_property_set_ex(Device *self,DevicePropertyBase *pbase,SV *sv,PropertySurety surety,PropertySource source){ + GValue gval; + memset(&gval, 0, sizeof(gval)); + g_value_init(&gval, pbase->type); + if (!set_gvalue_from_sv(sv, &gval)) + goto fail; + + if (!device_property_set_ex(self, pbase->ID, &gval, surety, source)) + goto fail; + g_value_unset(&gval); return TRUE; fail: @@ -1947,9 +1979,19 @@ SWIGINTERN gboolean Device_property_set(Device *self,DevicePropertyBase *pbase,S SWIGINTERN gboolean Device_recycle_file(Device *self,guint filenum){ return device_recycle_file(self, filenum); } -SWIGINTERN void Device_set_startup_properties_from_config(Device *self){ - device_set_startup_properties_from_config(self); - } +SWIGINTERN int Device_file(Device *self){ return self->file; } +SWIGINTERN guint64 Device_block(Device *self){ return self->block; } +SWIGINTERN gboolean Device_in_file(Device *self){ return self->in_file; } +SWIGINTERN char *Device_device_name(Device *self){ return self->device_name; } +SWIGINTERN DeviceAccessMode Device_access_mode(Device *self){ return self->access_mode; } +SWIGINTERN gboolean Device_is_eof(Device *self){ return self->is_eof; } +SWIGINTERN char *Device_volume_label(Device *self){ return self->volume_label; } +SWIGINTERN char *Device_volume_time(Device *self){ return self->volume_time; } +SWIGINTERN DeviceStatusFlags Device_status(Device *self){ return self->status; } +SWIGINTERN gsize Device_min_block_size(Device *self){ return self->min_block_size; } +SWIGINTERN gsize Device_max_block_size(Device *self){ return self->max_block_size; } +SWIGINTERN gsize Device_block_size(Device *self){ return self->block_size; } +SWIGINTERN dumpfile_t *Device_volume_header(Device *self){ return self->volume_header; } SWIGINTERNINLINE SV * SWIG_From_long SWIG_PERL_DECL_ARGS_1(long value) @@ -1995,9 +2037,9 @@ SWIGCLASS_STATIC int swig_magic_readonly(pTHX_ SV *SWIGUNUSEDPARM(sv), MAGIC *SW #ifdef __cplusplus extern "C" { #endif -XS(_wrap_Device_file_get) { +XS(_wrap_queue_fd_t_fd_get) { { - Device *arg1 = (Device *) 0 ; + queue_fd_t *arg1 = (queue_fd_t *) 0 ; int result; void *argp1 = 0 ; int res1 = 0 ; @@ -2005,14 +2047,14 @@ XS(_wrap_Device_file_get) { dXSARGS; if ((items < 1) || (items > 1)) { - SWIG_croak("Usage: Device_file_get(self);"); + SWIG_croak("Usage: queue_fd_t_fd_get(self);"); } - res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_Device, 0 | 0 ); + res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_queue_fd_t, 0 | 0 ); if (!SWIG_IsOK(res1)) { - SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_file_get" "', argument " "1"" of type '" "Device *""'"); + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "queue_fd_t_fd_get" "', argument " "1"" of type '" "queue_fd_t *""'"); } - arg1 = (Device *)(argp1); - result = (int) ((arg1)->file); + arg1 = (queue_fd_t *)(argp1); + result = (int) ((arg1)->fd); { ST(argvi) = sv_2mortal(amglue_newSVi64(result)); argvi++; @@ -2026,28 +2068,25 @@ XS(_wrap_Device_file_get) { } -XS(_wrap_Device_block_get) { +XS(_wrap_queue_fd_t_errmsg_get) { { - Device *arg1 = (Device *) 0 ; - guint64 result; + queue_fd_t *arg1 = (queue_fd_t *) 0 ; + char *result = 0 ; void *argp1 = 0 ; int res1 = 0 ; int argvi = 0; dXSARGS; if ((items < 1) || (items > 1)) { - SWIG_croak("Usage: Device_block_get(self);"); + SWIG_croak("Usage: queue_fd_t_errmsg_get(self);"); } - res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_Device, 0 | 0 ); + res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_queue_fd_t, 0 | 0 ); if (!SWIG_IsOK(res1)) { - SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_block_get" "', argument " "1"" of type '" "Device *""'"); - } - arg1 = (Device *)(argp1); - result = ((arg1)->block); - { - ST(argvi) = sv_2mortal(amglue_newSVu64(result)); - argvi++; + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "queue_fd_t_errmsg_get" "', argument " "1"" of type '" "queue_fd_t *""'"); } + arg1 = (queue_fd_t *)(argp1); + result = (char *) ((arg1)->errmsg); + ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ; XSRETURN(argvi); fail: @@ -2057,28 +2096,31 @@ XS(_wrap_Device_block_get) { } -XS(_wrap_Device_in_file_get) { +XS(_wrap_new_queue_fd_t) { { - Device *arg1 = (Device *) 0 ; - gboolean result; - void *argp1 = 0 ; - int res1 = 0 ; + int arg1 ; + queue_fd_t *result = 0 ; int argvi = 0; dXSARGS; if ((items < 1) || (items > 1)) { - SWIG_croak("Usage: Device_in_file_get(self);"); - } - res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_Device, 0 | 0 ); - if (!SWIG_IsOK(res1)) { - SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_in_file_get" "', argument " "1"" of type '" "Device *""'"); + SWIG_croak("Usage: new_queue_fd_t(fd);"); } - arg1 = (Device *)(argp1); - result = (gboolean) ((arg1)->in_file); { - ST(argvi) = sv_2mortal(amglue_newSVi64(result)); - argvi++; + 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)); + } else { + g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */ + } } + result = (queue_fd_t *)new_queue_fd_t(arg1); + ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_queue_fd_t, SWIG_OWNER | SWIG_SHADOW); argvi++ ; XSRETURN(argvi); fail: @@ -2088,25 +2130,25 @@ XS(_wrap_Device_in_file_get) { } -XS(_wrap_Device_device_name_get) { +XS(_wrap_delete_queue_fd_t) { { - Device *arg1 = (Device *) 0 ; - char *result = 0 ; + queue_fd_t *arg1 = (queue_fd_t *) 0 ; void *argp1 = 0 ; int res1 = 0 ; int argvi = 0; dXSARGS; if ((items < 1) || (items > 1)) { - SWIG_croak("Usage: Device_device_name_get(self);"); + SWIG_croak("Usage: delete_queue_fd_t(self);"); } - res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_Device, 0 | 0 ); + res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_queue_fd_t, SWIG_POINTER_DISOWN | 0 ); if (!SWIG_IsOK(res1)) { - SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_device_name_get" "', argument " "1"" of type '" "Device *""'"); + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_queue_fd_t" "', argument " "1"" of type '" "queue_fd_t *""'"); } - arg1 = (Device *)(argp1); - result = (char *) ((arg1)->device_name); - ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ; + arg1 = (queue_fd_t *)(argp1); + delete_queue_fd_t(arg1); + + XSRETURN(argvi); fail: @@ -2116,28 +2158,54 @@ XS(_wrap_Device_device_name_get) { } -XS(_wrap_Device_access_mode_get) { +XS(_wrap_new_Device) { + { + char *arg1 = (char *) 0 ; + Device *result = 0 ; + int res1 ; + char *buf1 = 0 ; + int alloc1 = 0 ; + int argvi = 0; + dXSARGS; + + if ((items < 1) || (items > 1)) { + SWIG_croak("Usage: new_Device(device_name);"); + } + res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "new_Device" "', argument " "1"" of type '" "char *""'"); + } + arg1 = (char *)(buf1); + result = (Device *)new_Device(arg1); + ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_Device, SWIG_OWNER | SWIG_SHADOW); argvi++ ; + if (alloc1 == SWIG_NEWOBJ) free((char*)buf1); + XSRETURN(argvi); + fail: + if (alloc1 == SWIG_NEWOBJ) free((char*)buf1); + SWIG_croak_null(); + } +} + + +XS(_wrap_delete_Device) { { Device *arg1 = (Device *) 0 ; - DeviceAccessMode result; void *argp1 = 0 ; int res1 = 0 ; int argvi = 0; dXSARGS; if ((items < 1) || (items > 1)) { - SWIG_croak("Usage: Device_access_mode_get(self);"); + SWIG_croak("Usage: delete_Device(self);"); } - res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_Device, 0 | 0 ); + res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_Device, SWIG_POINTER_DISOWN | 0 ); if (!SWIG_IsOK(res1)) { - SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_access_mode_get" "', argument " "1"" of type '" "Device *""'"); + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_Device" "', argument " "1"" of type '" "Device *""'"); } arg1 = (Device *)(argp1); - result = (DeviceAccessMode) ((arg1)->access_mode); - { - ST(argvi) = sv_2mortal(amglue_newSVi64(result)); - argvi++; - } + delete_Device(arg1); + + XSRETURN(argvi); fail: @@ -2147,38 +2215,54 @@ XS(_wrap_Device_access_mode_get) { } -XS(_wrap_Device_is_eof_get) { +XS(_wrap_Device_configure) { { Device *arg1 = (Device *) 0 ; + gboolean arg2 ; gboolean result; void *argp1 = 0 ; int res1 = 0 ; int argvi = 0; dXSARGS; - if ((items < 1) || (items > 1)) { - SWIG_croak("Usage: Device_is_eof_get(self);"); + if ((items < 2) || (items > 2)) { + SWIG_croak("Usage: Device_configure(self,use_global_config);"); } res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_Device, 0 | 0 ); if (!SWIG_IsOK(res1)) { - SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_is_eof_get" "', argument " "1"" of type '" "Device *""'"); + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_configure" "', argument " "1"" of type '" "Device *""'"); } arg1 = (Device *)(argp1); - result = (gboolean) ((arg1)->is_eof); + { + 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)); + } else { + g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */ + } + } + result = (gboolean)Device_configure(arg1,arg2); { ST(argvi) = sv_2mortal(amglue_newSVi64(result)); argvi++; } + XSRETURN(argvi); fail: + SWIG_croak_null(); } } -XS(_wrap_Device_volume_label_get) { +XS(_wrap_Device_error) { { Device *arg1 = (Device *) 0 ; char *result = 0 ; @@ -2188,14 +2272,14 @@ XS(_wrap_Device_volume_label_get) { dXSARGS; if ((items < 1) || (items > 1)) { - SWIG_croak("Usage: Device_volume_label_get(self);"); + SWIG_croak("Usage: Device_error(self);"); } res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_Device, 0 | 0 ); if (!SWIG_IsOK(res1)) { - SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_volume_label_get" "', argument " "1"" of type '" "Device *""'"); + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_error" "', argument " "1"" of type '" "Device *""'"); } arg1 = (Device *)(argp1); - result = (char *) ((arg1)->volume_label); + result = (char *)Device_error(arg1); ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ; XSRETURN(argvi); @@ -2206,7 +2290,7 @@ XS(_wrap_Device_volume_label_get) { } -XS(_wrap_Device_volume_time_get) { +XS(_wrap_Device_status_error) { { Device *arg1 = (Device *) 0 ; char *result = 0 ; @@ -2216,14 +2300,14 @@ XS(_wrap_Device_volume_time_get) { dXSARGS; if ((items < 1) || (items > 1)) { - SWIG_croak("Usage: Device_volume_time_get(self);"); + SWIG_croak("Usage: Device_status_error(self);"); } res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_Device, 0 | 0 ); if (!SWIG_IsOK(res1)) { - SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_volume_time_get" "', argument " "1"" of type '" "Device *""'"); + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_status_error" "', argument " "1"" of type '" "Device *""'"); } arg1 = (Device *)(argp1); - result = (char *) ((arg1)->volume_time); + result = (char *)Device_status_error(arg1); ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ; XSRETURN(argvi); @@ -2234,54 +2318,25 @@ XS(_wrap_Device_volume_time_get) { } -XS(_wrap_new_Device) { +XS(_wrap_Device_error_or_status) { { - char *arg1 = (char *) 0 ; - Device *result = 0 ; - int res1 ; - char *buf1 = 0 ; - int alloc1 = 0 ; + Device *arg1 = (Device *) 0 ; + char *result = 0 ; + void *argp1 = 0 ; + int res1 = 0 ; int argvi = 0; dXSARGS; if ((items < 1) || (items > 1)) { - SWIG_croak("Usage: new_Device(device_name);"); + SWIG_croak("Usage: Device_error_or_status(self);"); } - res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1); - if (!SWIG_IsOK(res1)) { - SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "new_Device" "', argument " "1"" of type '" "char *""'"); - } - arg1 = (char *)(buf1); - result = (Device *)new_Device(arg1); - ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_Device, SWIG_OWNER | SWIG_SHADOW); argvi++ ; - if (alloc1 == SWIG_NEWOBJ) free((char*)buf1); - XSRETURN(argvi); - fail: - if (alloc1 == SWIG_NEWOBJ) free((char*)buf1); - SWIG_croak_null(); - } -} - - -XS(_wrap_delete_Device) { - { - Device *arg1 = (Device *) 0 ; - void *argp1 = 0 ; - int res1 = 0 ; - int argvi = 0; - dXSARGS; - - if ((items < 1) || (items > 1)) { - SWIG_croak("Usage: delete_Device(self);"); - } - res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_Device, SWIG_POINTER_DISOWN | 0 ); + res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_Device, 0 | 0 ); if (!SWIG_IsOK(res1)) { - SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_Device" "', argument " "1"" of type '" "Device *""'"); + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_error_or_status" "', argument " "1"" of type '" "Device *""'"); } arg1 = (Device *)(argp1); - delete_Device(arg1); - - + result = (char *)Device_error_or_status(arg1); + ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ; XSRETURN(argvi); fail: @@ -2294,7 +2349,7 @@ XS(_wrap_delete_Device) { XS(_wrap_Device_read_label) { { Device *arg1 = (Device *) 0 ; - ReadLabelStatusFlags result; + DeviceStatusFlags result; void *argp1 = 0 ; int res1 = 0 ; int argvi = 0; @@ -2308,7 +2363,7 @@ XS(_wrap_Device_read_label) { SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_read_label" "', argument " "1"" of type '" "Device *""'"); } arg1 = (Device *)(argp1); - result = (ReadLabelStatusFlags)Device_read_label(arg1); + result = (DeviceStatusFlags)Device_read_label(arg1); { ST(argvi) = sv_2mortal(amglue_newSVi64(result)); argvi++; @@ -2444,10 +2499,10 @@ XS(_wrap_Device_start_file) { arg1 = (Device *)(argp1); res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_dumpfile_t, 0 | 0 ); if (!SWIG_IsOK(res2)) { - SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "Device_start_file" "', argument " "2"" of type '" "dumpfile_t const *""'"); + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "Device_start_file" "', argument " "2"" of type '" "dumpfile_t *""'"); } arg2 = (dumpfile_t *)(argp2); - result = (gboolean)Device_start_file(arg1,(dumpfile_t const *)arg2); + result = (gboolean)Device_start_file(arg1,arg2); { ST(argvi) = sv_2mortal(amglue_newSVi64(result)); argvi++; @@ -2463,88 +2518,120 @@ XS(_wrap_Device_start_file) { } -XS(_wrap_Device_write_min_size) { +XS(_wrap_Device_write_block) { { Device *arg1 = (Device *) 0 ; - guint result; + guint arg2 ; + gpointer arg3 = (gpointer) 0 ; + gboolean result; void *argp1 = 0 ; int res1 = 0 ; + int res3 ; int argvi = 0; dXSARGS; - if ((items < 1) || (items > 1)) { - SWIG_croak("Usage: Device_write_min_size(self);"); + if ((items < 3) || (items > 3)) { + SWIG_croak("Usage: Device_write_block(self,size,data);"); } res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_Device, 0 | 0 ); if (!SWIG_IsOK(res1)) { - SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_write_min_size" "', argument " "1"" of type '" "Device *""'"); + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_write_block" "', argument " "1"" of type '" "Device *""'"); } arg1 = (Device *)(argp1); - result = Device_write_min_size(arg1); { - ST(argvi) = sv_2mortal(amglue_newSVu64(result)); + if (sizeof(guint) == 1) { + arg2 = amglue_SvU8(ST(1)); + } else if (sizeof(guint) == 2) { + arg2 = amglue_SvU16(ST(1)); + } else if (sizeof(guint) == 4) { + arg2 = amglue_SvU32(ST(1)); + } else if (sizeof(guint) == 8) { + arg2 = amglue_SvU64(ST(1)); + } else { + croak("Unexpected guint >64 bits?"); /* should be optimized out unless sizeof(guint) > 8 */ + } + } + res3 = SWIG_ConvertPtr(ST(2),SWIG_as_voidptrptr(&arg3), 0, 0); + if (!SWIG_IsOK(res3)) { + SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "Device_write_block" "', argument " "3"" of type '" "gpointer""'"); + } + result = (gboolean)Device_write_block(arg1,arg2,arg3); + { + ST(argvi) = sv_2mortal(amglue_newSVi64(result)); argvi++; } + XSRETURN(argvi); fail: + SWIG_croak_null(); } } -XS(_wrap_Device_write_max_size) { +XS(_wrap_Device_write_from_fd) { { Device *arg1 = (Device *) 0 ; - guint result; + queue_fd_t *arg2 = (queue_fd_t *) 0 ; + gboolean result; void *argp1 = 0 ; int res1 = 0 ; + void *argp2 = 0 ; + int res2 = 0 ; int argvi = 0; dXSARGS; - if ((items < 1) || (items > 1)) { - SWIG_croak("Usage: Device_write_max_size(self);"); + if ((items < 2) || (items > 2)) { + SWIG_croak("Usage: Device_write_from_fd(self,queue_fd);"); } res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_Device, 0 | 0 ); if (!SWIG_IsOK(res1)) { - SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_write_max_size" "', argument " "1"" of type '" "Device *""'"); + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_write_from_fd" "', argument " "1"" of type '" "Device *""'"); } arg1 = (Device *)(argp1); - result = Device_write_max_size(arg1); + res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_queue_fd_t, 0 | 0 ); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "Device_write_from_fd" "', argument " "2"" of type '" "queue_fd_t *""'"); + } + arg2 = (queue_fd_t *)(argp2); + result = (gboolean)Device_write_from_fd(arg1,arg2); { - ST(argvi) = sv_2mortal(amglue_newSVu64(result)); + ST(argvi) = sv_2mortal(amglue_newSVi64(result)); argvi++; } + XSRETURN(argvi); fail: + SWIG_croak_null(); } } -XS(_wrap_Device_read_max_size) { +XS(_wrap_Device_finish_file) { { Device *arg1 = (Device *) 0 ; - guint result; + gboolean result; void *argp1 = 0 ; int res1 = 0 ; int argvi = 0; dXSARGS; if ((items < 1) || (items > 1)) { - SWIG_croak("Usage: Device_read_max_size(self);"); + SWIG_croak("Usage: Device_finish_file(self);"); } res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_Device, 0 | 0 ); if (!SWIG_IsOK(res1)) { - SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_read_max_size" "', argument " "1"" of type '" "Device *""'"); + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_finish_file" "', argument " "1"" of type '" "Device *""'"); } arg1 = (Device *)(argp1); - result = Device_read_max_size(arg1); + result = (gboolean)Device_finish_file(arg1); { - ST(argvi) = sv_2mortal(amglue_newSVu64(result)); + ST(argvi) = sv_2mortal(amglue_newSVi64(result)); argvi++; } @@ -2556,25 +2643,22 @@ XS(_wrap_Device_read_max_size) { } -XS(_wrap_Device_write_block) { +XS(_wrap_Device_seek_file) { { Device *arg1 = (Device *) 0 ; guint arg2 ; - gpointer arg3 = (gpointer) 0 ; - gboolean arg4 ; - gboolean result; + dumpfile_t *result = 0 ; void *argp1 = 0 ; int res1 = 0 ; - int res3 ; int argvi = 0; dXSARGS; - if ((items < 4) || (items > 4)) { - SWIG_croak("Usage: Device_write_block(self,size,data,short_block);"); + if ((items < 2) || (items > 2)) { + SWIG_croak("Usage: Device_seek_file(self,file);"); } res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_Device, 0 | 0 ); if (!SWIG_IsOK(res1)) { - SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_write_block" "', argument " "1"" of type '" "Device *""'"); + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_seek_file" "', argument " "1"" of type '" "Device *""'"); } arg1 = (Device *)(argp1); { @@ -2590,10 +2674,354 @@ XS(_wrap_Device_write_block) { croak("Unexpected guint >64 bits?"); /* should be optimized out unless sizeof(guint) > 8 */ } } - res3 = SWIG_ConvertPtr(ST(2),SWIG_as_voidptrptr(&arg3), 0, 0); + result = (dumpfile_t *)Device_seek_file(arg1,arg2); + ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_dumpfile_t, 0 | SWIG_SHADOW); argvi++ ; + + XSRETURN(argvi); + fail: + + SWIG_croak_null(); + } +} + + +XS(_wrap_Device_seek_block) { + { + Device *arg1 = (Device *) 0 ; + guint64 arg2 ; + gboolean result; + void *argp1 = 0 ; + int res1 = 0 ; + int argvi = 0; + dXSARGS; + + if ((items < 2) || (items > 2)) { + SWIG_croak("Usage: Device_seek_block(self,block);"); + } + res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_Device, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_seek_block" "', argument " "1"" of type '" "Device *""'"); + } + arg1 = (Device *)(argp1); + { + arg2 = amglue_SvU64(ST(1)); + } + result = (gboolean)Device_seek_block(arg1,arg2); + { + ST(argvi) = sv_2mortal(amglue_newSVi64(result)); + argvi++; + } + + XSRETURN(argvi); + fail: + + SWIG_croak_null(); + } +} + + +XS(_wrap_Device_read_block) { + { + Device *arg1 = (Device *) 0 ; + gpointer arg2 = (gpointer) 0 ; + int *arg3 = (int *) 0 ; + int result; + void *argp1 = 0 ; + int res1 = 0 ; + int res2 ; + void *argp3 = 0 ; + int res3 = 0 ; + int argvi = 0; + dXSARGS; + + if ((items < 3) || (items > 3)) { + SWIG_croak("Usage: Device_read_block(self,buffer,size);"); + } + res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_Device, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_read_block" "', argument " "1"" of type '" "Device *""'"); + } + arg1 = (Device *)(argp1); + res2 = SWIG_ConvertPtr(ST(1),SWIG_as_voidptrptr(&arg2), 0, 0); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "Device_read_block" "', argument " "2"" of type '" "gpointer""'"); + } + res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_int, 0 | 0 ); if (!SWIG_IsOK(res3)) { - SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "Device_write_block" "', argument " "3"" of type '" "gpointer""'"); + SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "Device_read_block" "', argument " "3"" of type '" "int *""'"); + } + arg3 = (int *)(argp3); + result = (int)Device_read_block(arg1,arg2,arg3); + { + ST(argvi) = sv_2mortal(amglue_newSVi64(result)); + argvi++; + } + + + + XSRETURN(argvi); + fail: + + + + SWIG_croak_null(); + } +} + + +XS(_wrap_Device_read_to_fd) { + { + Device *arg1 = (Device *) 0 ; + queue_fd_t *arg2 = (queue_fd_t *) 0 ; + gboolean result; + void *argp1 = 0 ; + int res1 = 0 ; + void *argp2 = 0 ; + int res2 = 0 ; + int argvi = 0; + dXSARGS; + + if ((items < 2) || (items > 2)) { + SWIG_croak("Usage: Device_read_to_fd(self,queue_fd);"); + } + res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_Device, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_read_to_fd" "', argument " "1"" of type '" "Device *""'"); + } + arg1 = (Device *)(argp1); + res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_queue_fd_t, 0 | 0 ); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "Device_read_to_fd" "', argument " "2"" of type '" "queue_fd_t *""'"); + } + arg2 = (queue_fd_t *)(argp2); + result = (gboolean)Device_read_to_fd(arg1,arg2); + { + ST(argvi) = sv_2mortal(amglue_newSVi64(result)); + argvi++; + } + + + XSRETURN(argvi); + fail: + + + SWIG_croak_null(); + } +} + + +XS(_wrap_Device_property_list) { + { + Device *arg1 = (Device *) 0 ; + GSList *result = 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + int argvi = 0; + dXSARGS; + + if ((items < 1) || (items > 1)) { + SWIG_croak("Usage: Device_property_list(self);"); + } + res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_Device, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_property_list" "', argument " "1"" of type '" "Device *""'"); + } + arg1 = (Device *)(argp1); + result = (GSList *)Device_property_list(arg1); + { + GSList *iter; + + /* Count the DeviceProperties */ + EXTEND(SP, g_slist_length(result)); /* make room for return values */ + + /* Note that we set ST(argvi) several times. the nature of + * SWIG's wrapping is such that incrementing argvi points + * ST(argvi) to the next location in perl's argument stack. + */ + + for (iter = result; iter; iter = g_slist_next(iter)) { + DeviceProperty *prop = iter->data; + HV *hash = newHV(); + SV *rv = newRV_noinc((SV *)hash); + + hv_store(hash, "name", 4, + newSVpv(prop->base->name, 0), 0); + hv_store(hash, "description", 11, + newSVpv(prop->base->description, 0), 0); + hv_store(hash, "access", 6, + newSViv(prop->access), 0); + ST(argvi) = sv_2mortal(rv); + argvi++; + } + } + + XSRETURN(argvi); + fail: + + SWIG_croak_null(); + } +} + + +XS(_wrap_Device_property_get) { + { + Device *arg1 = (Device *) 0 ; + DevicePropertyBase *arg2 = (DevicePropertyBase *) 0 ; + GValue *arg3 = (GValue *) 0 ; + PropertySurety *arg4 = (PropertySurety *) 0 ; + PropertySource *arg5 = (PropertySource *) 0 ; + gboolean *arg6 = (gboolean *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + GValue val3 ; + PropertySurety surety3 ; + PropertySource source3 ; + gboolean found3 ; + int argvi = 0; + dXSARGS; + + { + memset(&val3, 0, sizeof(val3)); + arg3 = &val3; + if (GIMME_V == G_ARRAY) { + arg4 = &surety3; + arg5 = &source3; + } + arg6 = &found3; + } + if ((items < 2) || (items > 2)) { + SWIG_croak("Usage: Device_property_get(self,pbase,surety,source,val_found);"); + } + res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_Device, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_property_get" "', argument " "1"" of type '" "Device *""'"); + } + arg1 = (Device *)(argp1); + { + char *pname = NULL; + + if (SvPOK(ST(1))) + pname = SvPV_nolen(ST(1)); + + if (pname) arg2 = (DevicePropertyBase *)device_property_get_by_name(pname); + if (!pname || !arg2) { + SWIG_exception_fail(SWIG_ValueError, "Invalid property name"); + } + } + Device_property_get(arg1,arg2,arg3,arg4,arg5,arg6); + + { + /* if the result is valid */ + if (*arg6) { + /* move data from arg3 to ST(argvi), somehow */ + ST(argvi) = set_sv_from_gvalue(arg3); + argvi++; + + /* free any memory for the GValue */ + g_value_unset(arg3); + + if (GIMME_V == G_ARRAY) { + ST(argvi) = newSViv(*arg4); + argvi++; + ST(argvi) = newSViv(*arg5); + argvi++; + } + } + /* otherwise, return nothing */ + } + + + XSRETURN(argvi); + fail: + + + SWIG_croak_null(); + } +} + + +XS(_wrap_Device_property_set) { + { + Device *arg1 = (Device *) 0 ; + DevicePropertyBase *arg2 = (DevicePropertyBase *) 0 ; + SV *arg3 = (SV *) 0 ; + gboolean result; + void *argp1 = 0 ; + int res1 = 0 ; + int argvi = 0; + dXSARGS; + + if ((items < 3) || (items > 3)) { + SWIG_croak("Usage: Device_property_set(self,pbase,sv);"); + } + res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_Device, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_property_set" "', argument " "1"" of type '" "Device *""'"); + } + arg1 = (Device *)(argp1); + { + char *pname = NULL; + + if (SvPOK(ST(1))) + pname = SvPV_nolen(ST(1)); + + if (pname) arg2 = (DevicePropertyBase *)device_property_get_by_name(pname); + if (!pname || !arg2) { + SWIG_exception_fail(SWIG_ValueError, "Invalid property name"); + } + } + arg3 = ST(2); + result = (gboolean)Device_property_set(arg1,arg2,arg3); + { + ST(argvi) = sv_2mortal(amglue_newSVi64(result)); + argvi++; + } + + + + XSRETURN(argvi); + fail: + + + + SWIG_croak_null(); + } +} + + +XS(_wrap_Device_property_set_ex) { + { + Device *arg1 = (Device *) 0 ; + DevicePropertyBase *arg2 = (DevicePropertyBase *) 0 ; + SV *arg3 = (SV *) 0 ; + PropertySurety arg4 ; + PropertySource arg5 ; + gboolean result; + void *argp1 = 0 ; + int res1 = 0 ; + int argvi = 0; + dXSARGS; + + if ((items < 5) || (items > 5)) { + SWIG_croak("Usage: Device_property_set_ex(self,pbase,sv,surety,source);"); } + res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_Device, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_property_set_ex" "', argument " "1"" of type '" "Device *""'"); + } + arg1 = (Device *)(argp1); + { + char *pname = NULL; + + if (SvPOK(ST(1))) + pname = SvPV_nolen(ST(1)); + + if (pname) arg2 = (DevicePropertyBase *)device_property_get_by_name(pname); + if (!pname || !arg2) { + SWIG_exception_fail(SWIG_ValueError, "Invalid property name"); + } + } + arg3 = ST(2); { if (sizeof(signed int) == 1) { arg4 = amglue_SvI8(ST(3)); @@ -2607,7 +3035,20 @@ XS(_wrap_Device_write_block) { g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */ } } - result = (gboolean)Device_write_block(arg1,arg2,arg3,arg4); + { + if (sizeof(signed int) == 1) { + arg5 = amglue_SvI8(ST(4)); + } else if (sizeof(signed int) == 2) { + arg5 = amglue_SvI16(ST(4)); + } else if (sizeof(signed int) == 4) { + arg5 = amglue_SvI32(ST(4)); + } else if (sizeof(signed int) == 8) { + arg5 = amglue_SvI64(ST(4)); + } else { + g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */ + } + } + result = (gboolean)Device_property_set_ex(arg1,arg2,arg3,arg4,arg5); { ST(argvi) = sv_2mortal(amglue_newSVi64(result)); argvi++; @@ -2615,20 +3056,24 @@ XS(_wrap_Device_write_block) { + + XSRETURN(argvi); fail: + + SWIG_croak_null(); } } -XS(_wrap_Device_write_from_fd) { +XS(_wrap_Device_recycle_file) { { Device *arg1 = (Device *) 0 ; - int arg2 ; + guint arg2 ; gboolean result; void *argp1 = 0 ; int res1 = 0 ; @@ -2636,43 +3081,103 @@ XS(_wrap_Device_write_from_fd) { dXSARGS; if ((items < 2) || (items > 2)) { - SWIG_croak("Usage: Device_write_from_fd(self,fd);"); + SWIG_croak("Usage: Device_recycle_file(self,filenum);"); } res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_Device, 0 | 0 ); if (!SWIG_IsOK(res1)) { - SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_write_from_fd" "', argument " "1"" of type '" "Device *""'"); + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_recycle_file" "', argument " "1"" of type '" "Device *""'"); } arg1 = (Device *)(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)); + if (sizeof(guint) == 1) { + arg2 = amglue_SvU8(ST(1)); + } else if (sizeof(guint) == 2) { + arg2 = amglue_SvU16(ST(1)); + } else if (sizeof(guint) == 4) { + arg2 = amglue_SvU32(ST(1)); + } else if (sizeof(guint) == 8) { + arg2 = amglue_SvU64(ST(1)); } else { - g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */ + croak("Unexpected guint >64 bits?"); /* should be optimized out unless sizeof(guint) > 8 */ } } - result = (gboolean)Device_write_from_fd(arg1,arg2); + result = (gboolean)Device_recycle_file(arg1,arg2); + { + ST(argvi) = sv_2mortal(amglue_newSVi64(result)); + argvi++; + } + + XSRETURN(argvi); + fail: + + SWIG_croak_null(); + } +} + + +XS(_wrap_Device_file) { + { + Device *arg1 = (Device *) 0 ; + int result; + void *argp1 = 0 ; + int res1 = 0 ; + int argvi = 0; + dXSARGS; + + if ((items < 1) || (items > 1)) { + SWIG_croak("Usage: Device_file(self);"); + } + res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_Device, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_file" "', argument " "1"" of type '" "Device *""'"); + } + arg1 = (Device *)(argp1); + result = (int)Device_file(arg1); + { + ST(argvi) = sv_2mortal(amglue_newSVi64(result)); + argvi++; + } + + XSRETURN(argvi); + fail: + + SWIG_croak_null(); + } +} + + +XS(_wrap_Device_block) { + { + Device *arg1 = (Device *) 0 ; + guint64 result; + void *argp1 = 0 ; + int res1 = 0 ; + int argvi = 0; + dXSARGS; + + if ((items < 1) || (items > 1)) { + SWIG_croak("Usage: Device_block(self);"); + } + res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_Device, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_block" "', argument " "1"" of type '" "Device *""'"); + } + arg1 = (Device *)(argp1); + result = Device_block(arg1); { - ST(argvi) = sv_2mortal(amglue_newSVi64(result)); + ST(argvi) = sv_2mortal(amglue_newSVu64(result)); argvi++; } - XSRETURN(argvi); fail: - SWIG_croak_null(); } } -XS(_wrap_Device_finish_file) { +XS(_wrap_Device_in_file) { { Device *arg1 = (Device *) 0 ; gboolean result; @@ -2682,14 +3187,14 @@ XS(_wrap_Device_finish_file) { dXSARGS; if ((items < 1) || (items > 1)) { - SWIG_croak("Usage: Device_finish_file(self);"); + SWIG_croak("Usage: Device_in_file(self);"); } res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_Device, 0 | 0 ); if (!SWIG_IsOK(res1)) { - SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_finish_file" "', argument " "1"" of type '" "Device *""'"); + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_in_file" "', argument " "1"" of type '" "Device *""'"); } arg1 = (Device *)(argp1); - result = (gboolean)Device_finish_file(arg1); + result = (gboolean)Device_in_file(arg1); { ST(argvi) = sv_2mortal(amglue_newSVi64(result)); argvi++; @@ -2703,39 +3208,25 @@ XS(_wrap_Device_finish_file) { } -XS(_wrap_Device_seek_file) { +XS(_wrap_Device_device_name) { { Device *arg1 = (Device *) 0 ; - guint arg2 ; - dumpfile_t *result = 0 ; + char *result = 0 ; void *argp1 = 0 ; int res1 = 0 ; int argvi = 0; dXSARGS; - if ((items < 2) || (items > 2)) { - SWIG_croak("Usage: Device_seek_file(self,file);"); + if ((items < 1) || (items > 1)) { + SWIG_croak("Usage: Device_device_name(self);"); } res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_Device, 0 | 0 ); if (!SWIG_IsOK(res1)) { - SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_seek_file" "', argument " "1"" of type '" "Device *""'"); + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_device_name" "', argument " "1"" of type '" "Device *""'"); } arg1 = (Device *)(argp1); - { - if (sizeof(guint) == 1) { - arg2 = amglue_SvU8(ST(1)); - } else if (sizeof(guint) == 2) { - arg2 = amglue_SvU16(ST(1)); - } else if (sizeof(guint) == 4) { - arg2 = amglue_SvU32(ST(1)); - } else if (sizeof(guint) == 8) { - arg2 = amglue_SvU64(ST(1)); - } else { - croak("Unexpected guint >64 bits?"); /* should be optimized out unless sizeof(guint) > 8 */ - } - } - result = (dumpfile_t *)Device_seek_file(arg1,arg2); - ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_dumpfile_t, 0 | SWIG_SHADOW); argvi++ ; + result = (char *)Device_device_name(arg1); + ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ; XSRETURN(argvi); fail: @@ -2745,28 +3236,24 @@ XS(_wrap_Device_seek_file) { } -XS(_wrap_Device_seek_block) { +XS(_wrap_Device_access_mode) { { Device *arg1 = (Device *) 0 ; - guint64 arg2 ; - gboolean result; + DeviceAccessMode result; void *argp1 = 0 ; int res1 = 0 ; int argvi = 0; dXSARGS; - if ((items < 2) || (items > 2)) { - SWIG_croak("Usage: Device_seek_block(self,block);"); + if ((items < 1) || (items > 1)) { + SWIG_croak("Usage: Device_access_mode(self);"); } res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_Device, 0 | 0 ); if (!SWIG_IsOK(res1)) { - SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_seek_block" "', argument " "1"" of type '" "Device *""'"); + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_access_mode" "', argument " "1"" of type '" "Device *""'"); } arg1 = (Device *)(argp1); - { - arg2 = amglue_SvU64(ST(1)); - } - result = (gboolean)Device_seek_block(arg1,arg2); + result = (DeviceAccessMode)Device_access_mode(arg1); { ST(argvi) = sv_2mortal(amglue_newSVi64(result)); argvi++; @@ -2780,139 +3267,84 @@ XS(_wrap_Device_seek_block) { } -XS(_wrap_Device_read_block) { +XS(_wrap_Device_is_eof) { { Device *arg1 = (Device *) 0 ; - gpointer arg2 = (gpointer) 0 ; - int *arg3 = (int *) 0 ; - int result; + gboolean result; void *argp1 = 0 ; int res1 = 0 ; - int res2 ; - void *argp3 = 0 ; - int res3 = 0 ; int argvi = 0; dXSARGS; - if ((items < 3) || (items > 3)) { - SWIG_croak("Usage: Device_read_block(self,buffer,size);"); + if ((items < 1) || (items > 1)) { + SWIG_croak("Usage: Device_is_eof(self);"); } res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_Device, 0 | 0 ); if (!SWIG_IsOK(res1)) { - SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_read_block" "', argument " "1"" of type '" "Device *""'"); + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_is_eof" "', argument " "1"" of type '" "Device *""'"); } arg1 = (Device *)(argp1); - res2 = SWIG_ConvertPtr(ST(1),SWIG_as_voidptrptr(&arg2), 0, 0); - if (!SWIG_IsOK(res2)) { - SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "Device_read_block" "', argument " "2"" of type '" "gpointer""'"); - } - res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_int, 0 | 0 ); - if (!SWIG_IsOK(res3)) { - SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "Device_read_block" "', argument " "3"" of type '" "int *""'"); - } - arg3 = (int *)(argp3); - result = (int)Device_read_block(arg1,arg2,arg3); + result = (gboolean)Device_is_eof(arg1); { ST(argvi) = sv_2mortal(amglue_newSVi64(result)); argvi++; } - - XSRETURN(argvi); fail: - - SWIG_croak_null(); } } -XS(_wrap_Device_read_to_fd) { +XS(_wrap_Device_volume_label) { { Device *arg1 = (Device *) 0 ; - int arg2 ; - gboolean result; + char *result = 0 ; void *argp1 = 0 ; int res1 = 0 ; int argvi = 0; dXSARGS; - if ((items < 2) || (items > 2)) { - SWIG_croak("Usage: Device_read_to_fd(self,fd);"); + if ((items < 1) || (items > 1)) { + SWIG_croak("Usage: Device_volume_label(self);"); } res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_Device, 0 | 0 ); if (!SWIG_IsOK(res1)) { - SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_read_to_fd" "', argument " "1"" of type '" "Device *""'"); + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_volume_label" "', argument " "1"" of type '" "Device *""'"); } arg1 = (Device *)(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)); - } else { - g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */ - } - } - result = (gboolean)Device_read_to_fd(arg1,arg2); - { - ST(argvi) = sv_2mortal(amglue_newSVi64(result)); - argvi++; - } - + result = (char *)Device_volume_label(arg1); + ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ; XSRETURN(argvi); fail: - SWIG_croak_null(); } } -XS(_wrap_Device_property_list) { +XS(_wrap_Device_volume_time) { { Device *arg1 = (Device *) 0 ; - DeviceProperty *result = 0 ; + char *result = 0 ; void *argp1 = 0 ; int res1 = 0 ; int argvi = 0; dXSARGS; if ((items < 1) || (items > 1)) { - SWIG_croak("Usage: Device_property_list(self);"); + SWIG_croak("Usage: Device_volume_time(self);"); } res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_Device, 0 | 0 ); if (!SWIG_IsOK(res1)) { - SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_property_list" "', argument " "1"" of type '" "Device *""'"); + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_volume_time" "', argument " "1"" of type '" "Device *""'"); } arg1 = (Device *)(argp1); - result = (DeviceProperty *)Device_property_list(arg1); - { - int i = 0; - int len = 0; - - /* Count the DeviceProperties */ - while (result[len].base) len++; - EXTEND(SP, len); /* make room for return values */ - - /* Note that we set ST(argvi) several times. the nature of - * SWIG's wrapping is such that incrementing argvi points - * ST(argvi) to the next location in perl's argument stack. - */ - - for (i = 0; i < len ; i++) { - ST(argvi) = sv_newmortal(); - sv_setpv(ST(argvi), result[i].base->name); - argvi++; - }; - } + result = (char *)Device_volume_time(arg1); + ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ; XSRETURN(argvi); fail: @@ -2922,154 +3354,88 @@ XS(_wrap_Device_property_list) { } -XS(_wrap_Device_property_get) { +XS(_wrap_Device_status) { { Device *arg1 = (Device *) 0 ; - DevicePropertyBase *arg2 = (DevicePropertyBase *) 0 ; - GValue *arg3 = (GValue *) 0 ; - gboolean *arg4 = (gboolean *) 0 ; + DeviceStatusFlags result; void *argp1 = 0 ; int res1 = 0 ; - GValue val3 ; - gboolean found3 ; int argvi = 0; dXSARGS; - { - memset(&val3, 0, sizeof(val3)); - arg3 = &val3; - arg4 = &found3; - } - if ((items < 2) || (items > 2)) { - SWIG_croak("Usage: Device_property_get(self,pbase,val_found);"); + if ((items < 1) || (items > 1)) { + SWIG_croak("Usage: Device_status(self);"); } res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_Device, 0 | 0 ); if (!SWIG_IsOK(res1)) { - SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_property_get" "', argument " "1"" of type '" "Device *""'"); + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_status" "', argument " "1"" of type '" "Device *""'"); } arg1 = (Device *)(argp1); + result = (DeviceStatusFlags)Device_status(arg1); { - char *pname = NULL; - - if (SvPOK(ST(1))) - pname = SvPV_nolen(ST(1)); - - if (pname) arg2 = (DevicePropertyBase *)device_property_get_by_name(pname); - if (!pname || !arg2) { - SWIG_exception_fail(SWIG_ValueError, "Invalid property name"); - } - } - Device_property_get(arg1,arg2,arg3,arg4); - - { - /* if the result is valid */ - if (*arg4) { - /* move data from arg3 to ST(argvi), somehow */ - ST(argvi) = set_sv_from_gvalue(arg3); - - /* free any memory for the GValue */ - g_value_unset(arg3); - } else { - /* silently return 'undef', the sentinel for "undefined" */ - ST(argvi) = sv_newmortal(); - sv_setsv(ST(argvi), &PL_sv_undef); - } + ST(argvi) = sv_2mortal(amglue_newSVi64(result)); argvi++; } - XSRETURN(argvi); fail: - SWIG_croak_null(); } } -XS(_wrap_Device_property_set) { +XS(_wrap_Device_min_block_size) { { Device *arg1 = (Device *) 0 ; - DevicePropertyBase *arg2 = (DevicePropertyBase *) 0 ; - SV *arg3 = (SV *) 0 ; - gboolean result; + gsize result; void *argp1 = 0 ; int res1 = 0 ; int argvi = 0; dXSARGS; - if ((items < 3) || (items > 3)) { - SWIG_croak("Usage: Device_property_set(self,pbase,sv);"); + if ((items < 1) || (items > 1)) { + SWIG_croak("Usage: Device_min_block_size(self);"); } res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_Device, 0 | 0 ); if (!SWIG_IsOK(res1)) { - SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_property_set" "', argument " "1"" of type '" "Device *""'"); + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_min_block_size" "', argument " "1"" of type '" "Device *""'"); } arg1 = (Device *)(argp1); + result = Device_min_block_size(arg1); { - char *pname = NULL; - - if (SvPOK(ST(1))) - pname = SvPV_nolen(ST(1)); - - if (pname) arg2 = (DevicePropertyBase *)device_property_get_by_name(pname); - if (!pname || !arg2) { - SWIG_exception_fail(SWIG_ValueError, "Invalid property name"); - } - } - arg3 = ST(2); - result = (gboolean)Device_property_set(arg1,arg2,arg3); - { - ST(argvi) = sv_2mortal(amglue_newSVi64(result)); + ST(argvi) = sv_2mortal(amglue_newSVu64(result)); argvi++; } - - XSRETURN(argvi); fail: - - SWIG_croak_null(); } } -XS(_wrap_Device_recycle_file) { +XS(_wrap_Device_max_block_size) { { Device *arg1 = (Device *) 0 ; - guint arg2 ; - gboolean result; + gsize result; void *argp1 = 0 ; int res1 = 0 ; int argvi = 0; dXSARGS; - if ((items < 2) || (items > 2)) { - SWIG_croak("Usage: Device_recycle_file(self,filenum);"); + if ((items < 1) || (items > 1)) { + SWIG_croak("Usage: Device_max_block_size(self);"); } res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_Device, 0 | 0 ); if (!SWIG_IsOK(res1)) { - SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_recycle_file" "', argument " "1"" of type '" "Device *""'"); + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_max_block_size" "', argument " "1"" of type '" "Device *""'"); } arg1 = (Device *)(argp1); + result = Device_max_block_size(arg1); { - if (sizeof(guint) == 1) { - arg2 = amglue_SvU8(ST(1)); - } else if (sizeof(guint) == 2) { - arg2 = amglue_SvU16(ST(1)); - } else if (sizeof(guint) == 4) { - arg2 = amglue_SvU32(ST(1)); - } else if (sizeof(guint) == 8) { - arg2 = amglue_SvU64(ST(1)); - } else { - croak("Unexpected guint >64 bits?"); /* should be optimized out unless sizeof(guint) > 8 */ - } - } - result = (gboolean)Device_recycle_file(arg1,arg2); - { - ST(argvi) = sv_2mortal(amglue_newSVi64(result)); + ST(argvi) = sv_2mortal(amglue_newSVu64(result)); argvi++; } @@ -3081,24 +3447,28 @@ XS(_wrap_Device_recycle_file) { } -XS(_wrap_Device_set_startup_properties_from_config) { +XS(_wrap_Device_block_size) { { Device *arg1 = (Device *) 0 ; + gsize result; void *argp1 = 0 ; int res1 = 0 ; int argvi = 0; dXSARGS; if ((items < 1) || (items > 1)) { - SWIG_croak("Usage: Device_set_startup_properties_from_config(self);"); + SWIG_croak("Usage: Device_block_size(self);"); } res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_Device, 0 | 0 ); if (!SWIG_IsOK(res1)) { - SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_set_startup_properties_from_config" "', argument " "1"" of type '" "Device *""'"); + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_block_size" "', argument " "1"" of type '" "Device *""'"); } arg1 = (Device *)(argp1); - Device_set_startup_properties_from_config(arg1); - + result = Device_block_size(arg1); + { + ST(argvi) = sv_2mortal(amglue_newSVu64(result)); + argvi++; + } XSRETURN(argvi); fail: @@ -3108,34 +3478,25 @@ XS(_wrap_Device_set_startup_properties_from_config) { } -XS(_wrap_IS_WRITABLE_ACCESS_MODE) { +XS(_wrap_Device_volume_header) { { - DeviceAccessMode arg1 ; - gboolean result; + Device *arg1 = (Device *) 0 ; + dumpfile_t *result = 0 ; + void *argp1 = 0 ; + int res1 = 0 ; int argvi = 0; dXSARGS; if ((items < 1) || (items > 1)) { - SWIG_croak("Usage: IS_WRITABLE_ACCESS_MODE(mode);"); - } - { - 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)); - } else { - g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */ - } + SWIG_croak("Usage: Device_volume_header(self);"); } - result = (gboolean)IS_WRITABLE_ACCESS_MODE(arg1); - { - ST(argvi) = sv_2mortal(amglue_newSVi64(result)); - argvi++; + res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_Device, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Device_volume_header" "', argument " "1"" of type '" "Device *""'"); } + arg1 = (Device *)(argp1); + result = (dumpfile_t *)Device_volume_header(arg1); + ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_dumpfile_t, 0 | SWIG_SHADOW); argvi++ ; XSRETURN(argvi); fail: @@ -3145,15 +3506,15 @@ XS(_wrap_IS_WRITABLE_ACCESS_MODE) { } -XS(_wrap_feature_support_flags_is_valid) { +XS(_wrap_IS_WRITABLE_ACCESS_MODE) { { - FeatureSupportFlags arg1 ; + DeviceAccessMode arg1 ; gboolean result; int argvi = 0; dXSARGS; if ((items < 1) || (items > 1)) { - SWIG_croak("Usage: feature_support_flags_is_valid(FeatureSupportFlags);"); + SWIG_croak("Usage: IS_WRITABLE_ACCESS_MODE(mode);"); } { if (sizeof(signed int) == 1) { @@ -3168,7 +3529,7 @@ XS(_wrap_feature_support_flags_is_valid) { g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */ } } - result = (gboolean)feature_support_flags_is_valid(arg1); + result = (gboolean)IS_WRITABLE_ACCESS_MODE(arg1); { ST(argvi) = sv_2mortal(amglue_newSVi64(result)); argvi++; @@ -3195,7 +3556,8 @@ static swig_type_info _swigt__p_dumpfile_t = {"_p_dumpfile_t", "dumpfile_t *", 0 static swig_type_info _swigt__p_float = {"_p_float", "float *|gfloat *", 0, 0, (void*)0, 0}; static swig_type_info _swigt__p_guint = {"_p_guint", "guint *", 0, 0, (void*)0, 0}; static swig_type_info _swigt__p_guint64 = {"_p_guint64", "guint64 *", 0, 0, (void*)0, 0}; -static swig_type_info _swigt__p_int = {"_p_int", "int *|ConcurrencyParadigm *|filetype_t *|SizeAccuracy *|StreamingRequirement *|gboolean *|DeviceAccessMode *|MediaAccessMode *|FeatureSupportFlags *|ReadLabelStatusFlags *|PropertyPhaseFlags *|PropertyAccessFlags *", 0, 0, (void*)0, 0}; +static swig_type_info _swigt__p_int = {"_p_int", "int *|PropertySurety *|ConcurrencyParadigm *|filetype_t *|PropertySource *|SizeAccuracy *|StreamingRequirement *|gboolean *|DeviceAccessMode *|MediaAccessMode *|DeviceStatusFlags *|PropertyPhaseFlags *|PropertyAccessFlags *", 0, 0, (void*)0, 0}; +static swig_type_info _swigt__p_queue_fd_t = {"_p_queue_fd_t", "struct queue_fd_t *|queue_fd_t *", 0, 0, (void*)"Amanda::Device::queue_fd_t", 0}; static swig_type_info _swigt__p_unsigned_char = {"_p_unsigned_char", "guchar *|unsigned char *", 0, 0, (void*)0, 0}; static swig_type_info *swig_type_initial[] = { @@ -3210,6 +3572,7 @@ static swig_type_info *swig_type_initial[] = { &_swigt__p_guint, &_swigt__p_guint64, &_swigt__p_int, + &_swigt__p_queue_fd_t, &_swigt__p_unsigned_char, }; @@ -3224,6 +3587,7 @@ static swig_cast_info _swigc__p_float[] = { {&_swigt__p_float, 0, 0, 0},{0, 0, static swig_cast_info _swigc__p_guint[] = { {&_swigt__p_guint, 0, 0, 0},{0, 0, 0, 0}}; static swig_cast_info _swigc__p_guint64[] = { {&_swigt__p_guint64, 0, 0, 0},{0, 0, 0, 0}}; static swig_cast_info _swigc__p_int[] = { {&_swigt__p_int, 0, 0, 0},{0, 0, 0, 0}}; +static swig_cast_info _swigc__p_queue_fd_t[] = { {&_swigt__p_queue_fd_t, 0, 0, 0},{0, 0, 0, 0}}; static swig_cast_info _swigc__p_unsigned_char[] = { {&_swigt__p_unsigned_char, 0, 0, 0},{0, 0, 0, 0}}; static swig_cast_info *swig_cast_initial[] = { @@ -3238,6 +3602,7 @@ static swig_cast_info *swig_cast_initial[] = { _swigc__p_guint, _swigc__p_guint64, _swigc__p_int, + _swigc__p_queue_fd_t, _swigc__p_unsigned_char, }; @@ -3254,23 +3619,20 @@ static swig_variable_info swig_variables[] = { {0,0,0,0} }; static swig_command_info swig_commands[] = { -{"Amanda::Devicec::Device_file_get", _wrap_Device_file_get}, -{"Amanda::Devicec::Device_block_get", _wrap_Device_block_get}, -{"Amanda::Devicec::Device_in_file_get", _wrap_Device_in_file_get}, -{"Amanda::Devicec::Device_device_name_get", _wrap_Device_device_name_get}, -{"Amanda::Devicec::Device_access_mode_get", _wrap_Device_access_mode_get}, -{"Amanda::Devicec::Device_is_eof_get", _wrap_Device_is_eof_get}, -{"Amanda::Devicec::Device_volume_label_get", _wrap_Device_volume_label_get}, -{"Amanda::Devicec::Device_volume_time_get", _wrap_Device_volume_time_get}, +{"Amanda::Devicec::queue_fd_t_fd_get", _wrap_queue_fd_t_fd_get}, +{"Amanda::Devicec::queue_fd_t_errmsg_get", _wrap_queue_fd_t_errmsg_get}, +{"Amanda::Devicec::new_queue_fd_t", _wrap_new_queue_fd_t}, +{"Amanda::Devicec::delete_queue_fd_t", _wrap_delete_queue_fd_t}, {"Amanda::Devicec::new_Device", _wrap_new_Device}, {"Amanda::Devicec::delete_Device", _wrap_delete_Device}, +{"Amanda::Devicec::Device_configure", _wrap_Device_configure}, +{"Amanda::Devicec::Device_error", _wrap_Device_error}, +{"Amanda::Devicec::Device_status_error", _wrap_Device_status_error}, +{"Amanda::Devicec::Device_error_or_status", _wrap_Device_error_or_status}, {"Amanda::Devicec::Device_read_label", _wrap_Device_read_label}, {"Amanda::Devicec::Device_start", _wrap_Device_start}, {"Amanda::Devicec::Device_finish", _wrap_Device_finish}, {"Amanda::Devicec::Device_start_file", _wrap_Device_start_file}, -{"Amanda::Devicec::Device_write_min_size", _wrap_Device_write_min_size}, -{"Amanda::Devicec::Device_write_max_size", _wrap_Device_write_max_size}, -{"Amanda::Devicec::Device_read_max_size", _wrap_Device_read_max_size}, {"Amanda::Devicec::Device_write_block", _wrap_Device_write_block}, {"Amanda::Devicec::Device_write_from_fd", _wrap_Device_write_from_fd}, {"Amanda::Devicec::Device_finish_file", _wrap_Device_finish_file}, @@ -3281,10 +3643,22 @@ static swig_command_info swig_commands[] = { {"Amanda::Devicec::Device_property_list", _wrap_Device_property_list}, {"Amanda::Devicec::Device_property_get", _wrap_Device_property_get}, {"Amanda::Devicec::Device_property_set", _wrap_Device_property_set}, +{"Amanda::Devicec::Device_property_set_ex", _wrap_Device_property_set_ex}, {"Amanda::Devicec::Device_recycle_file", _wrap_Device_recycle_file}, -{"Amanda::Devicec::Device_set_startup_properties_from_config", _wrap_Device_set_startup_properties_from_config}, +{"Amanda::Devicec::Device_file", _wrap_Device_file}, +{"Amanda::Devicec::Device_block", _wrap_Device_block}, +{"Amanda::Devicec::Device_in_file", _wrap_Device_in_file}, +{"Amanda::Devicec::Device_device_name", _wrap_Device_device_name}, +{"Amanda::Devicec::Device_access_mode", _wrap_Device_access_mode}, +{"Amanda::Devicec::Device_is_eof", _wrap_Device_is_eof}, +{"Amanda::Devicec::Device_volume_label", _wrap_Device_volume_label}, +{"Amanda::Devicec::Device_volume_time", _wrap_Device_volume_time}, +{"Amanda::Devicec::Device_status", _wrap_Device_status}, +{"Amanda::Devicec::Device_min_block_size", _wrap_Device_min_block_size}, +{"Amanda::Devicec::Device_max_block_size", _wrap_Device_max_block_size}, +{"Amanda::Devicec::Device_block_size", _wrap_Device_block_size}, +{"Amanda::Devicec::Device_volume_header", _wrap_Device_volume_header}, {"Amanda::Devicec::IS_WRITABLE_ACCESS_MODE", _wrap_IS_WRITABLE_ACCESS_MODE}, -{"Amanda::Devicec::feature_support_flags_is_valid", _wrap_feature_support_flags_is_valid}, {0,0} }; /* ----------------------------------------------------------------------------- @@ -3344,7 +3718,7 @@ SWIGRUNTIME void SWIG_InitializeModule(void *clientdata) { size_t i; swig_module_info *module_head, *iter; - int found; + int found, init; clientdata = clientdata; @@ -3354,6 +3728,9 @@ SWIG_InitializeModule(void *clientdata) { swig_module.type_initial = swig_type_initial; swig_module.cast_initial = swig_cast_initial; swig_module.next = &swig_module; + init = 1; + } else { + init = 0; } /* Try and load any already created modules */ @@ -3382,6 +3759,12 @@ SWIG_InitializeModule(void *clientdata) { module_head->next = &swig_module; } + /* When multiple interpeters are used, a module could have already been initialized in + a different interpreter, but not yet have a pointer in this interpreter. + In this case, we do not want to continue adding types... everything should be + set up already */ + if (init == 0) return; + /* Now work on filling in swig_module.types */ #ifdef SWIGRUNTIME_DEBUG printf("SWIG_InitializeModule: size %d\n", swig_module.size); @@ -3535,7 +3918,7 @@ XS(SWIG_init) { /* Install variables */ for (i = 0; swig_variables[i].name; i++) { SV *sv; - sv = get_sv((char*) swig_variables[i].name, TRUE | 0x2); + sv = get_sv((char*) swig_variables[i].name, TRUE | 0x2 | GV_ADDMULTI); if (swig_variables[i].type) { SWIG_MakePtr(sv,(void *)1, *swig_variables[i].type,0); } else { @@ -3547,7 +3930,7 @@ XS(SWIG_init) { /* Install constant */ for (i = 0; swig_constants[i].type; i++) { SV *sv; - sv = get_sv((char*)swig_constants[i].name, TRUE | 0x2); + sv = get_sv((char*)swig_constants[i].name, TRUE | 0x2 | GV_ADDMULTI); switch(swig_constants[i].type) { case SWIG_INT: sv_setiv(sv, (IV) swig_constants[i].lvalue); @@ -3574,285 +3957,251 @@ XS(SWIG_init) { /* Initialize the Device API on load */ device_api_init(); + SWIG_TypeClientData(SWIGTYPE_p_queue_fd_t, (void*) "Amanda::Device::queue_fd_t"); SWIG_TypeClientData(SWIGTYPE_p_Device, (void*) "Amanda::Device::Device"); - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "ACCESS_NULL", TRUE | 0x2); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "ACCESS_NULL", TRUE | 0x2 | GV_ADDMULTI); sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(ACCESS_NULL))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "ACCESS_READ", TRUE | 0x2); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "ACCESS_READ", TRUE | 0x2 | GV_ADDMULTI); sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(ACCESS_READ))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "ACCESS_WRITE", TRUE | 0x2); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "ACCESS_WRITE", TRUE | 0x2 | GV_ADDMULTI); sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(ACCESS_WRITE))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "ACCESS_APPEND", TRUE | 0x2); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "ACCESS_APPEND", TRUE | 0x2 | GV_ADDMULTI); sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(ACCESS_APPEND))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "READ_LABEL_STATUS_SUCCESS", TRUE | 0x2); - sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(READ_LABEL_STATUS_SUCCESS))); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "DEVICE_STATUS_SUCCESS", TRUE | 0x2 | GV_ADDMULTI); + sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DEVICE_STATUS_SUCCESS))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "READ_LABEL_STATUS_DEVICE_MISSING", TRUE | 0x2); - sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(READ_LABEL_STATUS_DEVICE_MISSING))); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "DEVICE_STATUS_DEVICE_ERROR", TRUE | 0x2 | GV_ADDMULTI); + sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DEVICE_STATUS_DEVICE_ERROR))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "READ_LABEL_STATUS_DEVICE_ERROR", TRUE | 0x2); - sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(READ_LABEL_STATUS_DEVICE_ERROR))); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "DEVICE_STATUS_DEVICE_BUSY", TRUE | 0x2 | GV_ADDMULTI); + sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DEVICE_STATUS_DEVICE_BUSY))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "READ_LABEL_STATUS_VOLUME_MISSING", TRUE | 0x2); - sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(READ_LABEL_STATUS_VOLUME_MISSING))); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "DEVICE_STATUS_VOLUME_MISSING", TRUE | 0x2 | GV_ADDMULTI); + sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DEVICE_STATUS_VOLUME_MISSING))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "READ_LABEL_STATUS_VOLUME_UNLABELED", TRUE | 0x2); - sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(READ_LABEL_STATUS_VOLUME_UNLABELED))); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "DEVICE_STATUS_VOLUME_UNLABELED", TRUE | 0x2 | GV_ADDMULTI); + sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DEVICE_STATUS_VOLUME_UNLABELED))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "READ_LABEL_STATUS_VOLUME_ERROR", TRUE | 0x2); - sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(READ_LABEL_STATUS_VOLUME_ERROR))); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "DEVICE_STATUS_VOLUME_ERROR", TRUE | 0x2 | GV_ADDMULTI); + sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DEVICE_STATUS_VOLUME_ERROR))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "READ_LABEL_STATUS_FLAGS_MAX", TRUE | 0x2); - sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(READ_LABEL_STATUS_FLAGS_MAX))); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "DEVICE_STATUS_FLAGS_MAX", TRUE | 0x2 | GV_ADDMULTI); + sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DEVICE_STATUS_FLAGS_MAX))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_PHASE_BEFORE_START", TRUE | 0x2); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_PHASE_BEFORE_START", TRUE | 0x2 | GV_ADDMULTI); sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PROPERTY_PHASE_BEFORE_START))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_PHASE_BETWEEN_FILE_WRITE", TRUE | 0x2); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_PHASE_BETWEEN_FILE_WRITE", TRUE | 0x2 | GV_ADDMULTI); sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PROPERTY_PHASE_BETWEEN_FILE_WRITE))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_PHASE_INSIDE_FILE_WRITE", TRUE | 0x2); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_PHASE_INSIDE_FILE_WRITE", TRUE | 0x2 | GV_ADDMULTI); sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PROPERTY_PHASE_INSIDE_FILE_WRITE))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_PHASE_BETWEEN_FILE_READ", TRUE | 0x2); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_PHASE_BETWEEN_FILE_READ", TRUE | 0x2 | GV_ADDMULTI); sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PROPERTY_PHASE_BETWEEN_FILE_READ))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_PHASE_INSIDE_FILE_READ", TRUE | 0x2); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_PHASE_INSIDE_FILE_READ", TRUE | 0x2 | GV_ADDMULTI); sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PROPERTY_PHASE_INSIDE_FILE_READ))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_PHASE_MAX", TRUE | 0x2); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_PHASE_MAX", TRUE | 0x2 | GV_ADDMULTI); sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PROPERTY_PHASE_MAX))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_PHASE_MASK", TRUE | 0x2); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_PHASE_MASK", TRUE | 0x2 | GV_ADDMULTI); sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PROPERTY_PHASE_MASK))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_PHASE_SHIFT", TRUE | 0x2); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_PHASE_SHIFT", TRUE | 0x2 | GV_ADDMULTI); sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PROPERTY_PHASE_SHIFT))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_ACCESS_GET_BEFORE_START", TRUE | 0x2); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_ACCESS_GET_BEFORE_START", TRUE | 0x2 | GV_ADDMULTI); sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PROPERTY_ACCESS_GET_BEFORE_START))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_ACCESS_GET_BETWEEN_FILE_WRITE", TRUE | 0x2); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_ACCESS_GET_BETWEEN_FILE_WRITE", TRUE | 0x2 | GV_ADDMULTI); sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PROPERTY_ACCESS_GET_BETWEEN_FILE_WRITE))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_ACCESS_GET_INSIDE_FILE_WRITE", TRUE | 0x2); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_ACCESS_GET_INSIDE_FILE_WRITE", TRUE | 0x2 | GV_ADDMULTI); sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PROPERTY_ACCESS_GET_INSIDE_FILE_WRITE))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_ACCESS_GET_BETWEEN_FILE_READ", TRUE | 0x2); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_ACCESS_GET_BETWEEN_FILE_READ", TRUE | 0x2 | GV_ADDMULTI); sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PROPERTY_ACCESS_GET_BETWEEN_FILE_READ))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_ACCESS_GET_INSIDE_FILE_READ", TRUE | 0x2); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_ACCESS_GET_INSIDE_FILE_READ", TRUE | 0x2 | GV_ADDMULTI); sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PROPERTY_ACCESS_GET_INSIDE_FILE_READ))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_ACCESS_SET_BEFORE_START", TRUE | 0x2); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_ACCESS_SET_BEFORE_START", TRUE | 0x2 | GV_ADDMULTI); sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PROPERTY_ACCESS_SET_BEFORE_START))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_ACCESS_SET_BETWEEN_FILE_WRITE", TRUE | 0x2); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_ACCESS_SET_BETWEEN_FILE_WRITE", TRUE | 0x2 | GV_ADDMULTI); sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PROPERTY_ACCESS_SET_BETWEEN_FILE_WRITE))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_ACCESS_SET_INSIDE_FILE_WRITE", TRUE | 0x2); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_ACCESS_SET_INSIDE_FILE_WRITE", TRUE | 0x2 | GV_ADDMULTI); sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PROPERTY_ACCESS_SET_INSIDE_FILE_WRITE))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_ACCESS_SET_BETWEEN_FILE_READ", TRUE | 0x2); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_ACCESS_SET_BETWEEN_FILE_READ", TRUE | 0x2 | GV_ADDMULTI); sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PROPERTY_ACCESS_SET_BETWEEN_FILE_READ))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_ACCESS_SET_INSIDE_FILE_READ", TRUE | 0x2); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_ACCESS_SET_INSIDE_FILE_READ", TRUE | 0x2 | GV_ADDMULTI); sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PROPERTY_ACCESS_SET_INSIDE_FILE_READ))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_ACCESS_GET_MASK", TRUE | 0x2); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_ACCESS_GET_MASK", TRUE | 0x2 | GV_ADDMULTI); sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PROPERTY_ACCESS_GET_MASK))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_ACCESS_SET_MASK", TRUE | 0x2); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_ACCESS_SET_MASK", TRUE | 0x2 | GV_ADDMULTI); sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PROPERTY_ACCESS_SET_MASK))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "CONCURRENCY_PARADIGM_EXCLUSIVE", TRUE | 0x2); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "CONCURRENCY_PARADIGM_EXCLUSIVE", TRUE | 0x2 | GV_ADDMULTI); sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CONCURRENCY_PARADIGM_EXCLUSIVE))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "CONCURRENCY_PARADIGM_SHARED_READ", TRUE | 0x2); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "CONCURRENCY_PARADIGM_SHARED_READ", TRUE | 0x2 | GV_ADDMULTI); sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CONCURRENCY_PARADIGM_SHARED_READ))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "CONCURRENCY_PARADIGM_RANDOM_ACCESS", TRUE | 0x2); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "CONCURRENCY_PARADIGM_RANDOM_ACCESS", TRUE | 0x2 | GV_ADDMULTI); sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CONCURRENCY_PARADIGM_RANDOM_ACCESS))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "STREAMING_REQUIREMENT_NONE", TRUE | 0x2); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "STREAMING_REQUIREMENT_NONE", TRUE | 0x2 | GV_ADDMULTI); sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(STREAMING_REQUIREMENT_NONE))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "STREAMING_REQUIREMENT_DESIRED", TRUE | 0x2); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "STREAMING_REQUIREMENT_DESIRED", TRUE | 0x2 | GV_ADDMULTI); sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(STREAMING_REQUIREMENT_DESIRED))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "STREAMING_REQUIREMENT_REQUIRED", TRUE | 0x2); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "STREAMING_REQUIREMENT_REQUIRED", TRUE | 0x2 | GV_ADDMULTI); sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(STREAMING_REQUIREMENT_REQUIRED))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "MEDIA_ACCESS_MODE_READ_ONLY", TRUE | 0x2); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "MEDIA_ACCESS_MODE_READ_ONLY", TRUE | 0x2 | GV_ADDMULTI); sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(MEDIA_ACCESS_MODE_READ_ONLY))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "MEDIA_ACCESS_MODE_WORM", TRUE | 0x2); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "MEDIA_ACCESS_MODE_WORM", TRUE | 0x2 | GV_ADDMULTI); sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(MEDIA_ACCESS_MODE_WORM))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "MEDIA_ACCESS_MODE_READ_WRITE", TRUE | 0x2); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "MEDIA_ACCESS_MODE_READ_WRITE", TRUE | 0x2 | GV_ADDMULTI); sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(MEDIA_ACCESS_MODE_READ_WRITE))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "MEDIA_ACCESS_MODE_WRITE_ONLY", TRUE | 0x2); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "MEDIA_ACCESS_MODE_WRITE_ONLY", TRUE | 0x2 | GV_ADDMULTI); sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(MEDIA_ACCESS_MODE_WRITE_ONLY))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "SIZE_ACCURACY_UNKNOWN", TRUE | 0x2); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "SIZE_ACCURACY_UNKNOWN", TRUE | 0x2 | GV_ADDMULTI); sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(SIZE_ACCURACY_UNKNOWN))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "SIZE_ACCURACY_ESTIMATE", TRUE | 0x2); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "SIZE_ACCURACY_ESTIMATE", TRUE | 0x2 | GV_ADDMULTI); sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(SIZE_ACCURACY_ESTIMATE))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "SIZE_ACCURACY_REAL", TRUE | 0x2); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "SIZE_ACCURACY_REAL", TRUE | 0x2 | GV_ADDMULTI); sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(SIZE_ACCURACY_REAL))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "FEATURE_STATUS_ENABLED", TRUE | 0x2); - sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(FEATURE_STATUS_ENABLED))); - SvREADONLY_on(sv); - } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "FEATURE_STATUS_DISABLED", TRUE | 0x2); - sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(FEATURE_STATUS_DISABLED))); - SvREADONLY_on(sv); - } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "FEATURE_SURETY_BAD", TRUE | 0x2); - sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(FEATURE_SURETY_BAD))); - SvREADONLY_on(sv); - } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "FEATURE_SURETY_GOOD", TRUE | 0x2); - sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(FEATURE_SURETY_GOOD))); - SvREADONLY_on(sv); - } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "FEATURE_SOURCE_DEFAULT", TRUE | 0x2); - sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(FEATURE_SOURCE_DEFAULT))); - SvREADONLY_on(sv); - } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "FEATURE_SOURCE_DETECTED", TRUE | 0x2); - sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(FEATURE_SOURCE_DETECTED))); - SvREADONLY_on(sv); - } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "FEATURE_SOURCE_USER", TRUE | 0x2); - sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(FEATURE_SOURCE_USER))); - SvREADONLY_on(sv); - } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "FEATURE_SUPPORT_FLAGS_MAX", TRUE | 0x2); - sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(FEATURE_SUPPORT_FLAGS_MAX))); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_SURETY_BAD", TRUE | 0x2 | GV_ADDMULTI); + sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PROPERTY_SURETY_BAD))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "FEATURE_SUPPORT_FLAGS_MASK", TRUE | 0x2); - sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(FEATURE_SUPPORT_FLAGS_MASK))); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_SURETY_GOOD", TRUE | 0x2 | GV_ADDMULTI); + sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PROPERTY_SURETY_GOOD))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "FEATURE_SUPPORT_FLAGS_STATUS_MASK", TRUE | 0x2); - sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(FEATURE_SUPPORT_FLAGS_STATUS_MASK))); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_SOURCE_DEFAULT", TRUE | 0x2 | GV_ADDMULTI); + sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PROPERTY_SOURCE_DEFAULT))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "FEATURE_SUPPORT_FLAGS_SURETY_MASK", TRUE | 0x2); - sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(FEATURE_SUPPORT_FLAGS_SURETY_MASK))); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_SOURCE_DETECTED", TRUE | 0x2 | GV_ADDMULTI); + sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PROPERTY_SOURCE_DETECTED))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; - /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do { - SV *sv = get_sv((char*) SWIG_prefix "FEATURE_SUPPORT_FLAGS_SOURCE_MASK", TRUE | 0x2); - sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(FEATURE_SUPPORT_FLAGS_SOURCE_MASK))); + /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do { + SV *sv = get_sv((char*) SWIG_prefix "PROPERTY_SOURCE_USER", TRUE | 0x2 | GV_ADDMULTI); + sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PROPERTY_SOURCE_USER))); SvREADONLY_on(sv); } while(0) /*@SWIG@*/; ST(0) = &PL_sv_yes;