1 /* ----------------------------------------------------------------------------
2 * This file was automatically generated by SWIG (http://www.swig.org).
5 * This file is not intended to be easily readable and contains a number of
6 * coding conventions designed to improve portability and efficiency. Do not make
7 * changes to this file unless you know what you are doing--modify the SWIG
8 * interface file instead.
9 * ----------------------------------------------------------------------------- */
12 #define SWIG_CASTRANK_MODE
14 /* -----------------------------------------------------------------------------
15 * This section contains generic SWIG labels for method/variable
16 * declarations/attributes, and other compiler dependent labels.
17 * ----------------------------------------------------------------------------- */
19 /* template workaround for compilers that cannot correctly implement the C++ standard */
20 #ifndef SWIGTEMPLATEDISAMBIGUATOR
21 # if defined(__SUNPRO_CC) && (__SUNPRO_CC <= 0x560)
22 # define SWIGTEMPLATEDISAMBIGUATOR template
23 # elif defined(__HP_aCC)
24 /* Needed even with `aCC -AA' when `aCC -V' reports HP ANSI C++ B3910B A.03.55 */
25 /* If we find a maximum version that requires this, the test would be __HP_aCC <= 35500 for A.03.55 */
26 # define SWIGTEMPLATEDISAMBIGUATOR template
28 # define SWIGTEMPLATEDISAMBIGUATOR
32 /* inline attribute */
34 # if defined(__cplusplus) || (defined(__GNUC__) && !defined(__STRICT_ANSI__))
35 # define SWIGINLINE inline
41 /* attribute recognised by some compilers to avoid 'unused' warnings */
43 # if defined(__GNUC__)
44 # if !(defined(__cplusplus)) || (__GNUC__ > 3 || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4))
45 # define SWIGUNUSED __attribute__ ((__unused__))
50 # define SWIGUNUSED __attribute__ ((__unused__))
56 #ifndef SWIG_MSC_UNSUPPRESS_4505
57 # if defined(_MSC_VER)
58 # pragma warning(disable : 4505) /* unreferenced local function has been removed */
62 #ifndef SWIGUNUSEDPARM
64 # define SWIGUNUSEDPARM(p)
66 # define SWIGUNUSEDPARM(p) p SWIGUNUSED
70 /* internal SWIG method */
72 # define SWIGINTERN static SWIGUNUSED
75 /* internal inline SWIG method */
76 #ifndef SWIGINTERNINLINE
77 # define SWIGINTERNINLINE SWIGINTERN SWIGINLINE
80 /* exporting methods */
81 #if (__GNUC__ >= 4) || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4)
82 # ifndef GCC_HASCLASSVISIBILITY
83 # define GCC_HASCLASSVISIBILITY
88 # if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
89 # if defined(STATIC_LINKED)
92 # define SWIGEXPORT __declspec(dllexport)
95 # if defined(__GNUC__) && defined(GCC_HASCLASSVISIBILITY)
96 # define SWIGEXPORT __attribute__ ((visibility("default")))
103 /* calling conventions for Windows */
105 # if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
106 # define SWIGSTDCALL __stdcall
112 /* Deal with Microsoft's attempt at deprecating C standard runtime functions */
113 #if !defined(SWIG_NO_CRT_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_CRT_SECURE_NO_DEPRECATE)
114 # define _CRT_SECURE_NO_DEPRECATE
117 /* Deal with Microsoft's attempt at deprecating methods in the standard C++ library */
118 #if !defined(SWIG_NO_SCL_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_SCL_SECURE_NO_DEPRECATE)
119 # define _SCL_SECURE_NO_DEPRECATE
123 /* -----------------------------------------------------------------------------
126 * This file contains generic C API SWIG runtime support for pointer
128 * ----------------------------------------------------------------------------- */
130 /* This should only be incremented when either the layout of swig_type_info changes,
131 or for whatever reason, the runtime changes incompatibly */
132 #define SWIG_RUNTIME_VERSION "4"
134 /* define SWIG_TYPE_TABLE_NAME as "SWIG_TYPE_TABLE" */
135 #ifdef SWIG_TYPE_TABLE
136 # define SWIG_QUOTE_STRING(x) #x
137 # define SWIG_EXPAND_AND_QUOTE_STRING(x) SWIG_QUOTE_STRING(x)
138 # define SWIG_TYPE_TABLE_NAME SWIG_EXPAND_AND_QUOTE_STRING(SWIG_TYPE_TABLE)
140 # define SWIG_TYPE_TABLE_NAME
144 You can use the SWIGRUNTIME and SWIGRUNTIMEINLINE macros for
145 creating a static or dynamic library from the SWIG runtime code.
146 In 99.9% of the cases, SWIG just needs to declare them as 'static'.
148 But only do this if strictly necessary, ie, if you have problems
149 with your compiler or suchlike.
153 # define SWIGRUNTIME SWIGINTERN
156 #ifndef SWIGRUNTIMEINLINE
157 # define SWIGRUNTIMEINLINE SWIGRUNTIME SWIGINLINE
160 /* Generic buffer size */
161 #ifndef SWIG_BUFFER_SIZE
162 # define SWIG_BUFFER_SIZE 1024
165 /* Flags for pointer conversions */
166 #define SWIG_POINTER_DISOWN 0x1
167 #define SWIG_CAST_NEW_MEMORY 0x2
169 /* Flags for new pointer objects */
170 #define SWIG_POINTER_OWN 0x1
174 Flags/methods for returning states.
176 The SWIG conversion methods, as ConvertPtr, return and integer
177 that tells if the conversion was successful or not. And if not,
178 an error code can be returned (see swigerrors.swg for the codes).
180 Use the following macros/flags to set or process the returning
183 In old versions of SWIG, code such as the following was usually written:
185 if (SWIG_ConvertPtr(obj,vptr,ty.flags) != -1) {
191 Now you can be more explicit:
193 int res = SWIG_ConvertPtr(obj,vptr,ty.flags);
194 if (SWIG_IsOK(res)) {
200 which is the same really, but now you can also do
203 int res = SWIG_ConvertPtr(obj,(void **)(&ptr),ty.flags);
204 if (SWIG_IsOK(res)) {
206 if (SWIG_IsNewObj(res) {
216 I.e., now SWIG_ConvertPtr can return new objects and you can
217 identify the case and take care of the deallocation. Of course that
218 also requires SWIG_ConvertPtr to return new result values, such as
220 int SWIG_ConvertPtr(obj, ptr,...) {
222 if (<need new object>) {
223 *ptr = <ptr to new allocated object>;
226 *ptr = <ptr to old object>;
234 Of course, returning the plain '0(success)/-1(fail)' still works, but you can be
235 more explicit by returning SWIG_BADOBJ, SWIG_ERROR or any of the
238 Finally, if the SWIG_CASTRANK_MODE is enabled, the result code
239 allows to return the 'cast rank', for example, if you have this
246 food(1) // cast rank '1' (1 -> 1.0)
247 fooi(1) // cast rank '0'
249 just use the SWIG_AddCast()/SWIG_CheckState()
253 #define SWIG_ERROR (-1)
254 #define SWIG_IsOK(r) (r >= 0)
255 #define SWIG_ArgError(r) ((r != SWIG_ERROR) ? r : SWIG_TypeError)
257 /* The CastRankLimit says how many bits are used for the cast rank */
258 #define SWIG_CASTRANKLIMIT (1 << 8)
259 /* The NewMask denotes the object was created (using new/malloc) */
260 #define SWIG_NEWOBJMASK (SWIG_CASTRANKLIMIT << 1)
261 /* The TmpMask is for in/out typemaps that use temporal objects */
262 #define SWIG_TMPOBJMASK (SWIG_NEWOBJMASK << 1)
263 /* Simple returning values */
264 #define SWIG_BADOBJ (SWIG_ERROR)
265 #define SWIG_OLDOBJ (SWIG_OK)
266 #define SWIG_NEWOBJ (SWIG_OK | SWIG_NEWOBJMASK)
267 #define SWIG_TMPOBJ (SWIG_OK | SWIG_TMPOBJMASK)
268 /* Check, add and del mask methods */
269 #define SWIG_AddNewMask(r) (SWIG_IsOK(r) ? (r | SWIG_NEWOBJMASK) : r)
270 #define SWIG_DelNewMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_NEWOBJMASK) : r)
271 #define SWIG_IsNewObj(r) (SWIG_IsOK(r) && (r & SWIG_NEWOBJMASK))
272 #define SWIG_AddTmpMask(r) (SWIG_IsOK(r) ? (r | SWIG_TMPOBJMASK) : r)
273 #define SWIG_DelTmpMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_TMPOBJMASK) : r)
274 #define SWIG_IsTmpObj(r) (SWIG_IsOK(r) && (r & SWIG_TMPOBJMASK))
277 #if defined(SWIG_CASTRANK_MODE)
278 # ifndef SWIG_TypeRank
279 # define SWIG_TypeRank unsigned long
281 # ifndef SWIG_MAXCASTRANK /* Default cast allowed */
282 # define SWIG_MAXCASTRANK (2)
284 # define SWIG_CASTRANKMASK ((SWIG_CASTRANKLIMIT) -1)
285 # define SWIG_CastRank(r) (r & SWIG_CASTRANKMASK)
286 SWIGINTERNINLINE int SWIG_AddCast(int r) {
287 return SWIG_IsOK(r) ? ((SWIG_CastRank(r) < SWIG_MAXCASTRANK) ? (r + 1) : SWIG_ERROR) : r;
289 SWIGINTERNINLINE int SWIG_CheckState(int r) {
290 return SWIG_IsOK(r) ? SWIG_CastRank(r) + 1 : 0;
292 #else /* no cast-rank mode */
293 # define SWIG_AddCast
294 # define SWIG_CheckState(r) (SWIG_IsOK(r) ? 1 : 0)
304 typedef void *(*swig_converter_func)(void *, int *);
305 typedef struct swig_type_info *(*swig_dycast_func)(void **);
307 /* Structure to store information on one type */
308 typedef struct swig_type_info {
309 const char *name; /* mangled name of this type */
310 const char *str; /* human readable name of this type */
311 swig_dycast_func dcast; /* dynamic cast function down a hierarchy */
312 struct swig_cast_info *cast; /* linked list of types that can cast into this type */
313 void *clientdata; /* language specific type data */
314 int owndata; /* flag if the structure owns the clientdata */
317 /* Structure to store a type and conversion function used for casting */
318 typedef struct swig_cast_info {
319 swig_type_info *type; /* pointer to type that is equivalent to this type */
320 swig_converter_func converter; /* function to cast the void pointers */
321 struct swig_cast_info *next; /* pointer to next cast in linked list */
322 struct swig_cast_info *prev; /* pointer to the previous cast */
325 /* Structure used to store module information
326 * Each module generates one structure like this, and the runtime collects
327 * all of these structures and stores them in a circularly linked list.*/
328 typedef struct swig_module_info {
329 swig_type_info **types; /* Array of pointers to swig_type_info structures that are in this module */
330 size_t size; /* Number of types in this module */
331 struct swig_module_info *next; /* Pointer to next element in circularly linked list */
332 swig_type_info **type_initial; /* Array of initially generated type structures */
333 swig_cast_info **cast_initial; /* Array of initially generated casting structures */
334 void *clientdata; /* Language specific module data */
338 Compare two type names skipping the space characters, therefore
339 "char*" == "char *" and "Class<int>" == "Class<int >", etc.
341 Return 0 when the two name types are equivalent, as in
342 strncmp, but skipping ' '.
345 SWIG_TypeNameComp(const char *f1, const char *l1,
346 const char *f2, const char *l2) {
347 for (;(f1 != l1) && (f2 != l2); ++f1, ++f2) {
348 while ((*f1 == ' ') && (f1 != l1)) ++f1;
349 while ((*f2 == ' ') && (f2 != l2)) ++f2;
350 if (*f1 != *f2) return (*f1 > *f2) ? 1 : -1;
352 return (int)((l1 - f1) - (l2 - f2));
356 Check type equivalence in a name list like <name1>|<name2>|...
357 Return 0 if not equal, 1 if equal
360 SWIG_TypeEquiv(const char *nb, const char *tb) {
362 const char* te = tb + strlen(tb);
364 while (!equiv && *ne) {
365 for (nb = ne; *ne; ++ne) {
366 if (*ne == '|') break;
368 equiv = (SWIG_TypeNameComp(nb, ne, tb, te) == 0) ? 1 : 0;
375 Check type equivalence in a name list like <name1>|<name2>|...
376 Return 0 if equal, -1 if nb < tb, 1 if nb > tb
379 SWIG_TypeCompare(const char *nb, const char *tb) {
381 const char* te = tb + strlen(tb);
383 while (!equiv && *ne) {
384 for (nb = ne; *ne; ++ne) {
385 if (*ne == '|') break;
387 equiv = (SWIG_TypeNameComp(nb, ne, tb, te) == 0) ? 1 : 0;
397 SWIGRUNTIME swig_cast_info *
398 SWIG_TypeCheck(const char *c, swig_type_info *ty) {
400 swig_cast_info *iter = ty->cast;
402 if (strcmp(iter->type->name, c) == 0) {
403 if (iter == ty->cast)
405 /* Move iter to the top of the linked list */
406 iter->prev->next = iter->next;
408 iter->next->prev = iter->prev;
409 iter->next = ty->cast;
411 if (ty->cast) ty->cast->prev = iter;
422 Identical to SWIG_TypeCheck, except strcmp is replaced with a pointer comparison
424 SWIGRUNTIME swig_cast_info *
425 SWIG_TypeCheckStruct(swig_type_info *from, swig_type_info *ty) {
427 swig_cast_info *iter = ty->cast;
429 if (iter->type == from) {
430 if (iter == ty->cast)
432 /* Move iter to the top of the linked list */
433 iter->prev->next = iter->next;
435 iter->next->prev = iter->prev;
436 iter->next = ty->cast;
438 if (ty->cast) ty->cast->prev = iter;
449 Cast a pointer up an inheritance hierarchy
451 SWIGRUNTIMEINLINE void *
452 SWIG_TypeCast(swig_cast_info *ty, void *ptr, int *newmemory) {
453 return ((!ty) || (!ty->converter)) ? ptr : (*ty->converter)(ptr, newmemory);
457 Dynamic pointer casting. Down an inheritance hierarchy
459 SWIGRUNTIME swig_type_info *
460 SWIG_TypeDynamicCast(swig_type_info *ty, void **ptr) {
461 swig_type_info *lastty = ty;
462 if (!ty || !ty->dcast) return ty;
463 while (ty && (ty->dcast)) {
464 ty = (*ty->dcast)(ptr);
471 Return the name associated with this type
473 SWIGRUNTIMEINLINE const char *
474 SWIG_TypeName(const swig_type_info *ty) {
479 Return the pretty name associated with this type,
480 that is an unmangled type name in a form presentable to the user.
482 SWIGRUNTIME const char *
483 SWIG_TypePrettyName(const swig_type_info *type) {
484 /* The "str" field contains the equivalent pretty names of the
485 type, separated by vertical-bar characters. We choose
486 to print the last name, as it is often (?) the most
488 if (!type) return NULL;
489 if (type->str != NULL) {
490 const char *last_name = type->str;
492 for (s = type->str; *s; s++)
493 if (*s == '|') last_name = s+1;
501 Set the clientdata field for a type
504 SWIG_TypeClientData(swig_type_info *ti, void *clientdata) {
505 swig_cast_info *cast = ti->cast;
506 /* if (ti->clientdata == clientdata) return; */
507 ti->clientdata = clientdata;
510 if (!cast->converter) {
511 swig_type_info *tc = cast->type;
512 if (!tc->clientdata) {
513 SWIG_TypeClientData(tc, clientdata);
520 SWIG_TypeNewClientData(swig_type_info *ti, void *clientdata) {
521 SWIG_TypeClientData(ti, clientdata);
526 Search for a swig_type_info structure only by mangled name
527 Search is a O(log #types)
529 We start searching at module start, and finish searching when start == end.
530 Note: if start == end at the beginning of the function, we go all the way around
533 SWIGRUNTIME swig_type_info *
534 SWIG_MangledTypeQueryModule(swig_module_info *start,
535 swig_module_info *end,
537 swig_module_info *iter = start;
540 register size_t l = 0;
541 register size_t r = iter->size - 1;
543 /* since l+r >= 0, we can (>> 1) instead (/ 2) */
544 register size_t i = (l + r) >> 1;
545 const char *iname = iter->types[i]->name;
547 register int compare = strcmp(name, iname);
549 return iter->types[i];
550 } else if (compare < 0) {
556 } else if (compare > 0) {
560 break; /* should never happen */
565 } while (iter != end);
570 Search for a swig_type_info structure for either a mangled name or a human readable name.
571 It first searches the mangled names of the types, which is a O(log #types)
572 If a type is not found it then searches the human readable names, which is O(#types).
574 We start searching at module start, and finish searching when start == end.
575 Note: if start == end at the beginning of the function, we go all the way around
578 SWIGRUNTIME swig_type_info *
579 SWIG_TypeQueryModule(swig_module_info *start,
580 swig_module_info *end,
582 /* STEP 1: Search the name field using binary search */
583 swig_type_info *ret = SWIG_MangledTypeQueryModule(start, end, name);
587 /* STEP 2: If the type hasn't been found, do a complete search
588 of the str field (the human readable name) */
589 swig_module_info *iter = start;
591 register size_t i = 0;
592 for (; i < iter->size; ++i) {
593 if (iter->types[i]->str && (SWIG_TypeEquiv(iter->types[i]->str, name)))
594 return iter->types[i];
597 } while (iter != end);
600 /* neither found a match */
605 Pack binary data into a string
608 SWIG_PackData(char *c, void *ptr, size_t sz) {
609 static const char hex[17] = "0123456789abcdef";
610 register const unsigned char *u = (unsigned char *) ptr;
611 register const unsigned char *eu = u + sz;
612 for (; u != eu; ++u) {
613 register unsigned char uu = *u;
614 *(c++) = hex[(uu & 0xf0) >> 4];
615 *(c++) = hex[uu & 0xf];
621 Unpack binary data from a string
623 SWIGRUNTIME const char *
624 SWIG_UnpackData(const char *c, void *ptr, size_t sz) {
625 register unsigned char *u = (unsigned char *) ptr;
626 register const unsigned char *eu = u + sz;
627 for (; u != eu; ++u) {
628 register char d = *(c++);
629 register unsigned char uu;
630 if ((d >= '0') && (d <= '9'))
631 uu = ((d - '0') << 4);
632 else if ((d >= 'a') && (d <= 'f'))
633 uu = ((d - ('a'-10)) << 4);
637 if ((d >= '0') && (d <= '9'))
639 else if ((d >= 'a') && (d <= 'f'))
640 uu |= (d - ('a'-10));
649 Pack 'void *' into a string buffer.
652 SWIG_PackVoidPtr(char *buff, void *ptr, const char *name, size_t bsz) {
654 if ((2*sizeof(void *) + 2) > bsz) return 0;
656 r = SWIG_PackData(r,&ptr,sizeof(void *));
657 if (strlen(name) + 1 > (bsz - (r - buff))) return 0;
662 SWIGRUNTIME const char *
663 SWIG_UnpackVoidPtr(const char *c, void **ptr, const char *name) {
665 if (strcmp(c,"NULL") == 0) {
672 return SWIG_UnpackData(++c,ptr,sizeof(void *));
676 SWIG_PackDataName(char *buff, void *ptr, size_t sz, const char *name, size_t bsz) {
678 size_t lname = (name ? strlen(name) : 0);
679 if ((2*sz + 2 + lname) > bsz) return 0;
681 r = SWIG_PackData(r,ptr,sz);
683 strncpy(r,name,lname+1);
690 SWIGRUNTIME const char *
691 SWIG_UnpackDataName(const char *c, void *ptr, size_t sz, const char *name) {
693 if (strcmp(c,"NULL") == 0) {
700 return SWIG_UnpackData(++c,ptr,sz);
708 #define SWIG_UnknownError -1
709 #define SWIG_IOError -2
710 #define SWIG_RuntimeError -3
711 #define SWIG_IndexError -4
712 #define SWIG_TypeError -5
713 #define SWIG_DivisionByZero -6
714 #define SWIG_OverflowError -7
715 #define SWIG_SyntaxError -8
716 #define SWIG_ValueError -9
717 #define SWIG_SystemError -10
718 #define SWIG_AttributeError -11
719 #define SWIG_MemoryError -12
720 #define SWIG_NullReferenceError -13
725 /* Needed on some windows machines---since MS plays funny games with the header files under C++ */
734 /* Add in functionality missing in older versions of Perl. Much of this is based on Devel-PPPort on cpan. */
736 /* Add PERL_REVISION, PERL_VERSION, PERL_SUBVERSION if missing */
737 #ifndef PERL_REVISION
738 # if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
739 # define PERL_PATCHLEVEL_H_IMPLICIT
740 # include <patchlevel.h>
742 # if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
743 # include <could_not_find_Perl_patchlevel.h>
745 # ifndef PERL_REVISION
746 # define PERL_REVISION (5)
747 # define PERL_VERSION PATCHLEVEL
748 # define PERL_SUBVERSION SUBVERSION
752 #if defined(WIN32) && defined(PERL_OBJECT) && !defined(PerlIO_exportFILE)
753 #define PerlIO_exportFILE(fh,fl) (FILE*)(fh)
757 # define SvIOK_UV(sv) (SvIOK(sv) && (SvUVX(sv) == SvIVX(sv)))
761 # define SvUOK(sv) SvIOK_UV(sv)
764 #if ((PERL_VERSION < 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION <= 5)))
765 # define PL_sv_undef sv_undef
767 # define PL_errgv errgv
768 # define PL_sv_no sv_no
769 # define PL_sv_yes sv_yes
770 # define PL_markstack_ptr markstack_ptr
775 # define IVSIZE LONGSIZE
777 # define IVSIZE 4 /* A bold guess, but the best we can make. */
782 # if (IVSIZE == PTRSIZE) && (UVSIZE == PTRSIZE)
784 # define INT2PTR(any,d) (any)(d)
786 # if PTRSIZE == LONGSIZE
787 # define PTRV unsigned long
789 # define PTRV unsigned
791 # define INT2PTR(any,d) (any)(PTRV)(d)
794 # define NUM2PTR(any,d) (any)(PTRV)(d)
795 # define PTR2IV(p) INT2PTR(IV,p)
796 # define PTR2UV(p) INT2PTR(UV,p)
797 # define PTR2NV(p) NUM2PTR(NV,p)
799 # if PTRSIZE == LONGSIZE
800 # define PTR2ul(p) (unsigned long)(p)
802 # define PTR2ul(p) INT2PTR(unsigned long,p)
804 #endif /* !INT2PTR */
807 # define SvPV_nolen(x) SvPV(x,PL_na)
811 # define get_sv perl_get_sv
815 # define ERRSV get_sv("@",FALSE)
827 /* -----------------------------------------------------------------------------
829 * ----------------------------------------------------------------------------- */
831 SWIGINTERN const char*
832 SWIG_Perl_ErrorType(int code) {
833 const char* type = 0;
835 case SWIG_MemoryError:
836 type = "MemoryError";
841 case SWIG_RuntimeError:
842 type = "RuntimeError";
844 case SWIG_IndexError:
850 case SWIG_DivisionByZero:
851 type = "ZeroDivisionError";
853 case SWIG_OverflowError:
854 type = "OverflowError";
856 case SWIG_SyntaxError:
857 type = "SyntaxError";
859 case SWIG_ValueError:
862 case SWIG_SystemError:
863 type = "SystemError";
865 case SWIG_AttributeError:
866 type = "AttributeError";
869 type = "RuntimeError";
877 /* -----------------------------------------------------------------------------
880 * This file contains the runtime support for Perl modules
881 * and includes code for managing global variables and pointer
883 * ----------------------------------------------------------------------------- */
886 #define SWIG_PERL_OBJECT_DECL CPerlObj *SWIGUNUSEDPARM(pPerl),
887 #define SWIG_PERL_OBJECT_CALL pPerl,
889 #define SWIG_PERL_OBJECT_DECL
890 #define SWIG_PERL_OBJECT_CALL
893 /* Common SWIG API */
895 /* for raw pointers */
896 #define SWIG_ConvertPtr(obj, pp, type, flags) SWIG_Perl_ConvertPtr(SWIG_PERL_OBJECT_CALL obj, pp, type, flags)
897 #define SWIG_NewPointerObj(p, type, flags) SWIG_Perl_NewPointerObj(SWIG_PERL_OBJECT_CALL p, type, flags)
899 /* for raw packed data */
900 #define SWIG_ConvertPacked(obj, p, s, type) SWIG_Perl_ConvertPacked(SWIG_PERL_OBJECT_CALL obj, p, s, type)
901 #define SWIG_NewPackedObj(p, s, type) SWIG_Perl_NewPackedObj(SWIG_PERL_OBJECT_CALL p, s, type)
903 /* for class or struct pointers */
904 #define SWIG_ConvertInstance(obj, pptr, type, flags) SWIG_ConvertPtr(obj, pptr, type, flags)
905 #define SWIG_NewInstanceObj(ptr, type, flags) SWIG_NewPointerObj(ptr, type, flags)
907 /* for C or C++ function pointers */
908 #define SWIG_ConvertFunctionPtr(obj, pptr, type) SWIG_ConvertPtr(obj, pptr, type, 0)
909 #define SWIG_NewFunctionPtrObj(ptr, type) SWIG_NewPointerObj(ptr, type, 0)
911 /* for C++ member pointers, ie, member methods */
912 #define SWIG_ConvertMember(obj, ptr, sz, ty) SWIG_ConvertPacked(obj, ptr, sz, ty)
913 #define SWIG_NewMemberObj(ptr, sz, type) SWIG_NewPackedObj(ptr, sz, type)
918 #define SWIG_GetModule(clientdata) SWIG_Perl_GetModule()
919 #define SWIG_SetModule(clientdata, pointer) SWIG_Perl_SetModule(pointer)
922 /* Error manipulation */
924 #define SWIG_ErrorType(code) SWIG_Perl_ErrorType(code)
925 #define SWIG_Error(code, msg) sv_setpvf(GvSV(PL_errgv),"%s %s\n", SWIG_ErrorType(code), msg)
926 #define SWIG_fail goto fail
928 /* Perl-specific SWIG API */
930 #define SWIG_MakePtr(sv, ptr, type, flags) SWIG_Perl_MakePtr(SWIG_PERL_OBJECT_CALL sv, ptr, type, flags)
931 #define SWIG_MakePackedObj(sv, p, s, type) SWIG_Perl_MakePackedObj(SWIG_PERL_OBJECT_CALL sv, p, s, type)
932 #define SWIG_SetError(str) SWIG_Error(SWIG_RuntimeError, str)
935 #define SWIG_PERL_DECL_ARGS_1(arg1) (SWIG_PERL_OBJECT_DECL arg1)
936 #define SWIG_PERL_CALL_ARGS_1(arg1) (SWIG_PERL_OBJECT_CALL arg1)
937 #define SWIG_PERL_DECL_ARGS_2(arg1, arg2) (SWIG_PERL_OBJECT_DECL arg1, arg2)
938 #define SWIG_PERL_CALL_ARGS_2(arg1, arg2) (SWIG_PERL_OBJECT_CALL arg1, arg2)
940 /* -----------------------------------------------------------------------------
941 * pointers/data manipulation
942 * ----------------------------------------------------------------------------- */
944 /* For backward compatibility only */
945 #define SWIG_POINTER_EXCEPTION 0
951 #define SWIG_OWNER SWIG_POINTER_OWN
952 #define SWIG_SHADOW SWIG_OWNER << 1
954 #define SWIG_MAYBE_PERL_OBJECT SWIG_PERL_OBJECT_DECL
956 /* SWIG Perl macros */
958 /* Macro to declare an XS function */
960 # define XSPROTO(name) void name(pTHX_ CV* cv)
963 /* Macro to call an XS function */
965 # define SWIG_CALLXS(_name) _name(cv,pPerl)
967 # ifndef MULTIPLICITY
968 # define SWIG_CALLXS(_name) _name(cv)
970 # define SWIG_CALLXS(_name) _name(PERL_GET_THX, cv)
975 #define MAGIC_PPERL CPerlObj *pPerl = (CPerlObj *) this;
980 typedef int (CPerlObj::*SwigMagicFunc)(SV *, MAGIC *);
985 #define SWIG_MAGIC(a,b) (SV *a, MAGIC *b)
986 #define SWIGCLASS_STATIC
988 #else /* PERL_OBJECT */
991 #define SWIGCLASS_STATIC static SWIGUNUSED
994 #define SWIG_MAGIC(a,b) (SV *a, MAGIC *b)
999 typedef int (*SwigMagicFunc)(SV *, MAGIC *);
1004 #else /* MULTIPLICITY */
1006 #define SWIG_MAGIC(a,b) (struct interpreter *interp, SV *a, MAGIC *b)
1011 typedef int (*SwigMagicFunc)(struct interpreter *, SV *, MAGIC *);
1016 #endif /* MULTIPLICITY */
1017 #endif /* PERL_OBJECT */
1019 /* Workaround for bug in perl 5.6.x croak and earlier */
1020 #if (PERL_VERSION < 8)
1022 # define SWIG_croak_null() SWIG_Perl_croak_null(pPerl)
1023 static void SWIG_Perl_croak_null(CPerlObj *pPerl)
1025 static void SWIG_croak_null()
1029 # if (PERL_VERSION < 6)
1032 if (SvOK(err) && !SvROK(err)) croak("%_", err);
1037 # define SWIG_croak_null() croak(Nullch)
1042 Define how strict is the cast between strings and integers/doubles
1043 when overloading between these types occurs.
1045 The default is making it as strict as possible by using SWIG_AddCast
1048 You can use -DSWIG_PERL_NO_STRICT_STR2NUM at compilation time to
1049 disable the SWIG_AddCast, making the casting between string and
1050 numbers less strict.
1052 In the end, we try to solve the overloading between strings and
1053 numerical types in the more natural way, but if you can avoid it,
1054 well, avoid it using %rename, for example.
1056 #ifndef SWIG_PERL_NO_STRICT_STR2NUM
1057 # ifndef SWIG_PERL_STRICT_STR2NUM
1058 # define SWIG_PERL_STRICT_STR2NUM
1061 #ifdef SWIG_PERL_STRICT_STR2NUM
1062 /* string takes precedence */
1063 #define SWIG_Str2NumCast(x) SWIG_AddCast(x)
1065 /* number takes precedence */
1066 #define SWIG_Str2NumCast(x) x
1073 SWIGRUNTIME const char *
1074 SWIG_Perl_TypeProxyName(const swig_type_info *type) {
1075 if (!type) return NULL;
1076 if (type->clientdata != NULL) {
1077 return (const char*) type->clientdata;
1084 /* Identical to SWIG_TypeCheck, except for strcmp comparison */
1085 SWIGRUNTIME swig_cast_info *
1086 SWIG_TypeProxyCheck(const char *c, swig_type_info *ty) {
1088 swig_cast_info *iter = ty->cast;
1090 if ( (!iter->type->clientdata && (strcmp(iter->type->name, c) == 0)) ||
1091 (iter->type->clientdata && (strcmp((char*)iter->type->clientdata, c) == 0)) ) {
1092 if (iter == ty->cast)
1094 /* Move iter to the top of the linked list */
1095 iter->prev->next = iter->next;
1097 iter->next->prev = iter->prev;
1098 iter->next = ty->cast;
1100 if (ty->cast) ty->cast->prev = iter;
1110 /* Function for getting a pointer value */
1113 SWIG_Perl_ConvertPtr(SWIG_MAYBE_PERL_OBJECT SV *sv, void **ptr, swig_type_info *_t, int flags) {
1115 void *voidptr = (void *)0;
1117 /* If magical, apply more magic */
1121 /* Check to see if this is an object */
1122 if (sv_isobject(sv)) {
1124 tsv = (SV*) SvRV(sv);
1125 if ((SvTYPE(tsv) == SVt_PVHV)) {
1127 if (SvMAGICAL(tsv)) {
1128 mg = mg_find(tsv,'P');
1131 if (sv_isobject(sv)) {
1132 tsv = (SV*)SvRV(sv);
1142 voidptr = INT2PTR(void *,tmp);
1143 } else if (! SvOK(sv)) { /* Check for undef */
1144 *(ptr) = (void *) 0;
1146 } else if (SvTYPE(sv) == SVt_RV) { /* Check for NULL pointer */
1148 *(ptr) = (void *) 0;
1153 } else { /* Don't know what it is */
1157 /* Now see if the types match */
1158 char *_c = HvNAME(SvSTASH(SvRV(sv)));
1159 tc = SWIG_TypeProxyCheck(_c,_t);
1165 *ptr = SWIG_TypeCast(tc,voidptr,&newmemory);
1166 assert(!newmemory); /* newmemory handling not yet implemented */
1173 * DISOWN implementation: we need a perl guru to check this one.
1175 if (tsv && (flags & SWIG_POINTER_DISOWN)) {
1177 * almost copy paste code from below SWIG_POINTER_OWN setting
1180 HV *stash = SvSTASH(SvRV(obj));
1181 GV *gv = *(GV**) hv_fetch(stash, "OWNER", 5, TRUE);
1185 * To set ownership (see below), a newSViv(1) entry is added.
1186 * Hence, to remove ownership, we delete the entry.
1188 if (hv_exists_ent(hv, obj, 0)) {
1189 hv_delete_ent(hv, obj, 0, 0);
1197 SWIG_Perl_MakePtr(SWIG_MAYBE_PERL_OBJECT SV *sv, void *ptr, swig_type_info *t, int flags) {
1198 if (ptr && (flags & SWIG_SHADOW)) {
1203 sv_setref_pv(obj, (char *) SWIG_Perl_TypeProxyName(t), ptr);
1204 stash=SvSTASH(SvRV(obj));
1205 if (flags & SWIG_POINTER_OWN) {
1207 GV *gv=*(GV**)hv_fetch(stash, "OWNER", 5, TRUE);
1209 gv_init(gv, stash, "OWNER", 5, FALSE);
1211 hv_store_ent(hv, obj, newSViv(1), 0);
1213 sv_magic((SV *)hash, (SV *)obj, 'P', Nullch, 0);
1215 self=newRV_noinc((SV *)hash);
1217 SvREFCNT_dec((SV *)self);
1218 sv_bless(sv, stash);
1221 sv_setref_pv(sv, (char *) SWIG_Perl_TypeProxyName(t), ptr);
1225 SWIGRUNTIMEINLINE SV *
1226 SWIG_Perl_NewPointerObj(SWIG_MAYBE_PERL_OBJECT void *ptr, swig_type_info *t, int flags) {
1227 SV *result = sv_newmortal();
1228 SWIG_MakePtr(result, ptr, t, flags);
1233 SWIG_Perl_MakePackedObj(SWIG_MAYBE_PERL_OBJECT SV *sv, void *ptr, int sz, swig_type_info *type) {
1236 if ((2*sz + 1 + strlen(SWIG_Perl_TypeProxyName(type))) > 1000) return;
1238 r = SWIG_PackData(r,ptr,sz);
1239 strcpy(r,SWIG_Perl_TypeProxyName(type));
1240 sv_setpv(sv, result);
1244 SWIG_Perl_NewPackedObj(SWIG_MAYBE_PERL_OBJECT void *ptr, int sz, swig_type_info *type) {
1245 SV *result = sv_newmortal();
1246 SWIG_Perl_MakePackedObj(result, ptr, sz, type);
1250 /* Convert a packed value value */
1252 SWIG_Perl_ConvertPacked(SWIG_MAYBE_PERL_OBJECT SV *obj, void *ptr, int sz, swig_type_info *ty) {
1256 if ((!obj) || (!SvOK(obj))) return SWIG_ERROR;
1257 c = SvPV_nolen(obj);
1258 /* Pointer values must start with leading underscore */
1259 if (*c != '_') return SWIG_ERROR;
1261 c = SWIG_UnpackData(c,ptr,sz);
1263 tc = SWIG_TypeCheck(c,ty);
1264 if (!tc) return SWIG_ERROR;
1270 /* Macros for low-level exception handling */
1271 #define SWIG_croak(x) { SWIG_Error(SWIG_RuntimeError, x); SWIG_fail; }
1274 typedef XSPROTO(SwigPerlWrapper);
1275 typedef SwigPerlWrapper *SwigPerlWrapperPtr;
1277 /* Structure for command table */
1280 SwigPerlWrapperPtr wrapper;
1281 } swig_command_info;
1283 /* Information for constant table */
1286 #define SWIG_FLOAT 2
1287 #define SWIG_STRING 3
1288 #define SWIG_POINTER 4
1289 #define SWIG_BINARY 5
1291 /* Constant information structure */
1292 typedef struct swig_constant_info {
1298 swig_type_info **ptype;
1299 } swig_constant_info;
1302 /* Structure for variable table */
1307 swig_type_info **type;
1308 } swig_variable_info;
1310 /* Magic variable code */
1312 #define swig_create_magic(s,a,b,c) _swig_create_magic(s,a,b,c)
1313 #ifndef MULTIPLICITY
1314 SWIGRUNTIME void _swig_create_magic(SV *sv, char *name, int (*set)(SV *, MAGIC *), int (*get)(SV *,MAGIC *))
1316 SWIGRUNTIME void _swig_create_magic(SV *sv, char *name, int (*set)(struct interpreter*, SV *, MAGIC *), int (*get)(struct interpreter*, SV *,MAGIC *))
1319 # define swig_create_magic(s,a,b,c) _swig_create_magic(pPerl,s,a,b,c)
1320 SWIGRUNTIME void _swig_create_magic(CPerlObj *pPerl, SV *sv, const char *name, int (CPerlObj::*set)(SV *, MAGIC *), int (CPerlObj::*get)(SV *, MAGIC *))
1324 sv_magic(sv,sv,'U',(char *) name,strlen(name));
1325 mg = mg_find(sv,'U');
1326 mg->mg_virtual = (MGVTBL *) malloc(sizeof(MGVTBL));
1327 mg->mg_virtual->svt_get = (SwigMagicFunc) get;
1328 mg->mg_virtual->svt_set = (SwigMagicFunc) set;
1329 mg->mg_virtual->svt_len = 0;
1330 mg->mg_virtual->svt_clear = 0;
1331 mg->mg_virtual->svt_free = 0;
1335 SWIGRUNTIME swig_module_info *
1336 SWIG_Perl_GetModule(void) {
1337 static void *type_pointer = (void *)0;
1340 /* first check if pointer already created */
1341 if (!type_pointer) {
1342 pointer = get_sv("swig_runtime_data::type_pointer" SWIG_RUNTIME_VERSION SWIG_TYPE_TABLE_NAME, FALSE | GV_ADDMULTI);
1343 if (pointer && SvOK(pointer)) {
1344 type_pointer = INT2PTR(swig_type_info **, SvIV(pointer));
1348 return (swig_module_info *) type_pointer;
1352 SWIG_Perl_SetModule(swig_module_info *module) {
1355 /* create a new pointer */
1356 pointer = get_sv("swig_runtime_data::type_pointer" SWIG_RUNTIME_VERSION SWIG_TYPE_TABLE_NAME, TRUE | GV_ADDMULTI);
1357 sv_setiv(pointer, PTR2IV(module));
1364 /* Workaround perl5 global namespace pollution. Note that undefining library
1365 * functions like fopen will not solve the problem on all platforms as fopen
1366 * might be a macro on Windows but not necessarily on other operating systems. */
1466 #define SWIG_exception_fail(code, msg) do { SWIG_Error(code, msg); SWIG_fail; } while(0)
1468 #define SWIG_contract_assert(expr, msg) if (!(expr)) { SWIG_Error(SWIG_RuntimeError, msg); SWIG_fail; } else
1472 #define SWIG_exception(code, msg) do { SWIG_Error(code, msg); SWIG_fail;; } while(0)
1475 /* -------- TYPES TABLE (BEGIN) -------- */
1477 #define SWIGTYPE_p_application_t swig_types[0]
1478 #define SWIGTYPE_p_changer_config_t swig_types[1]
1479 #define SWIGTYPE_p_char swig_types[2]
1480 #define SWIGTYPE_p_config_overrides_t swig_types[3]
1481 #define SWIGTYPE_p_device_config_t swig_types[4]
1482 #define SWIGTYPE_p_double swig_types[5]
1483 #define SWIGTYPE_p_dumptype_t swig_types[6]
1484 #define SWIGTYPE_p_float swig_types[7]
1485 #define SWIGTYPE_p_holdingdisk_t swig_types[8]
1486 #define SWIGTYPE_p_int swig_types[9]
1487 #define SWIGTYPE_p_interface_t swig_types[10]
1488 #define SWIGTYPE_p_p_GSList swig_types[11]
1489 #define SWIGTYPE_p_p_char swig_types[12]
1490 #define SWIGTYPE_p_pp_script_t swig_types[13]
1491 #define SWIGTYPE_p_tapetype_t swig_types[14]
1492 #define SWIGTYPE_p_unsigned_char swig_types[15]
1493 static swig_type_info *swig_types[17];
1494 static swig_module_info swig_module = {swig_types, 16, 0, 0, 0, 0};
1495 #define SWIG_TypeQuery(name) SWIG_TypeQueryModule(&swig_module, &swig_module, name)
1496 #define SWIG_MangledTypeQuery(name) SWIG_MangledTypeQueryModule(&swig_module, &swig_module, name)
1498 /* -------- TYPES TABLE (END) -------- */
1500 #define SWIG_init boot_Amanda__Config
1502 #define SWIG_name "Amanda::Configc::boot_Amanda__Config"
1503 #define SWIG_prefix "Amanda::Configc::"
1505 #define SWIGVERSION 0x010339
1506 #define SWIG_VERSION SWIGVERSION
1509 #define SWIG_as_voidptr(a) (void *)((const void *)(a))
1510 #define SWIG_as_voidptrptr(a) ((void)SWIG_as_voidptr(*a),(void**)(a))
1517 #ifndef MULTIPLICITY
1518 SWIGEXPORT void SWIG_init (CV* cv);
1520 SWIGEXPORT void SWIG_init (pTHXo_ CV* cv);
1523 SWIGEXPORT void SWIG_init (CV *cv, CPerlObj *);
1536 #include "conffile.h"
1539 SWIGINTERNINLINE SV *
1540 SWIG_From_long SWIG_PERL_DECL_ARGS_1(long value)
1542 SV *obj = sv_newmortal();
1543 sv_setiv(obj, (IV) value);
1548 SWIGINTERNINLINE SV *
1549 SWIG_From_int SWIG_PERL_DECL_ARGS_1(int value)
1551 return SWIG_From_long SWIG_PERL_CALL_ARGS_1(value);
1555 SWIGINTERN swig_type_info*
1556 SWIG_pchar_descriptor(void)
1558 static int init = 0;
1559 static swig_type_info* info = 0;
1561 info = SWIG_TypeQuery("_p_char");
1569 SWIG_AsCharPtrAndSize(SV *obj, char** cptr, size_t* psize, int *alloc)
1571 if (SvMAGICAL(obj)) {
1572 SV *tmp = sv_newmortal();
1578 char *cstr = SvPV(obj, len);
1579 size_t size = len + 1;
1582 if (*alloc == SWIG_NEWOBJ) {
1583 *cptr = (char *)memcpy((char *)malloc((size)*sizeof(char)), cstr, sizeof(char)*(size));
1586 *alloc = SWIG_OLDOBJ;
1590 if (psize) *psize = size;
1593 swig_type_info* pchar_descriptor = SWIG_pchar_descriptor();
1594 if (pchar_descriptor) {
1596 if (SWIG_ConvertPtr(obj, (void**)&vptr, pchar_descriptor, 0) == SWIG_OK) {
1597 if (cptr) *cptr = vptr;
1598 if (psize) *psize = vptr ? (strlen(vptr) + 1) : 0;
1599 if (alloc) *alloc = SWIG_OLDOBJ;
1604 return SWIG_TypeError;
1612 #if !defined(SWIG_NO_LLONG_MAX)
1613 # if !defined(LLONG_MAX) && defined(__GNUC__) && defined (__LONG_LONG_MAX__)
1614 # define LLONG_MAX __LONG_LONG_MAX__
1615 # define LLONG_MIN (-LLONG_MAX - 1LL)
1616 # define ULLONG_MAX (LLONG_MAX * 2ULL + 1ULL)
1622 SWIG_AsVal_double SWIG_PERL_DECL_ARGS_2(SV *obj, double *val)
1625 if (val) *val = SvNV(obj);
1627 } else if (SvIOK(obj)) {
1628 if (val) *val = (double) SvIV(obj);
1629 return SWIG_AddCast(SWIG_OK);
1631 const char *nptr = SvPV_nolen(obj);
1634 double v = strtod(nptr, &endptr);
1635 if (errno == ERANGE) {
1637 return SWIG_OverflowError;
1639 if (*endptr == '\0') {
1641 return SWIG_Str2NumCast(SWIG_OK);
1646 return SWIG_TypeError;
1656 SWIGINTERNINLINE int
1657 SWIG_CanCastAsInteger(double *d, double min, double max) {
1659 if ((min <= x && x <= max)) {
1660 double fx = floor(x);
1661 double cx = ceil(x);
1662 double rd = ((x - fx) < 0.5) ? fx : cx; /* simple rint */
1663 if ((errno == EDOM) || (errno == ERANGE)) {
1666 double summ, reps, diff;
1669 } else if (rd > x) {
1676 if (reps < 8*DBL_EPSILON) {
1687 SWIG_AsVal_long SWIG_PERL_DECL_ARGS_2(SV *obj, long* val)
1690 if (val) *val = SvIV(obj);
1694 const char *nptr = SvPV_nolen(obj);
1699 v = strtol(nptr, &endptr,0);
1700 if (errno == ERANGE) {
1702 return SWIG_OverflowError;
1704 if (*endptr == '\0') {
1706 return SWIG_Str2NumCast(SWIG_OK);
1712 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
1713 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, LONG_MIN, LONG_MAX)) {
1714 if (val) *val = (long)(d);
1719 return SWIG_TypeError;
1724 SWIG_AsVal_int SWIG_PERL_DECL_ARGS_2(SV * obj, int *val)
1727 int res = SWIG_AsVal_long SWIG_PERL_CALL_ARGS_2(obj, &v);
1728 if (SWIG_IsOK(res)) {
1729 if ((v < INT_MIN || v > INT_MAX)) {
1730 return SWIG_OverflowError;
1732 if (val) *val = (int)(v);
1739 typedef char **val_t_strs;
1740 val_t_strs getconf_byname_strs(char *key, int str_needs_quotes) {
1741 val_t *val = getconf_byname(key);
1742 if (!val) return NULL;
1743 return val_t_display_strs(val, str_needs_quotes);
1747 SWIGINTERNINLINE SV *
1748 SWIG_FromCharPtrAndSize(const char* carray, size_t size)
1750 SV *obj = sv_newmortal();
1752 sv_setpvn(obj, carray, size);
1754 sv_setsv(obj, &PL_sv_undef);
1760 SWIGINTERNINLINE SV *
1761 SWIG_FromCharPtr(const char *cptr)
1763 return SWIG_FromCharPtrAndSize(cptr, (cptr ? strlen(cptr) : 0));
1771 #define MAGIC_CLASS _wrap_Amanda__Config_var::
1772 class _wrap_Amanda__Config_var : public CPerlObj {
1777 SWIGCLASS_STATIC int swig_magic_readonly(pTHX_ SV *SWIGUNUSEDPARM(sv), MAGIC *SWIGUNUSEDPARM(mg)) {
1779 croak("Value is read-only.");
1782 SWIGCLASS_STATIC int _wrap_debug_amandad_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
1786 int res = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(sv, &val);
1787 if (!SWIG_IsOK(res)) {
1788 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""debug_amandad""' of type '""int""'");
1790 debug_amandad = (int)(val);
1797 SWIGCLASS_STATIC int _wrap_debug_amandad_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
1799 sv_setsv(sv,SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(debug_amandad))) ;
1804 SWIGCLASS_STATIC int _wrap_debug_recovery_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
1808 int res = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(sv, &val);
1809 if (!SWIG_IsOK(res)) {
1810 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""debug_recovery""' of type '""int""'");
1812 debug_recovery = (int)(val);
1819 SWIGCLASS_STATIC int _wrap_debug_recovery_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
1821 sv_setsv(sv,SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(debug_recovery))) ;
1826 SWIGCLASS_STATIC int _wrap_debug_amidxtaped_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
1830 int res = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(sv, &val);
1831 if (!SWIG_IsOK(res)) {
1832 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""debug_amidxtaped""' of type '""int""'");
1834 debug_amidxtaped = (int)(val);
1841 SWIGCLASS_STATIC int _wrap_debug_amidxtaped_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
1843 sv_setsv(sv,SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(debug_amidxtaped))) ;
1848 SWIGCLASS_STATIC int _wrap_debug_amindexd_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
1852 int res = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(sv, &val);
1853 if (!SWIG_IsOK(res)) {
1854 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""debug_amindexd""' of type '""int""'");
1856 debug_amindexd = (int)(val);
1863 SWIGCLASS_STATIC int _wrap_debug_amindexd_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
1865 sv_setsv(sv,SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(debug_amindexd))) ;
1870 SWIGCLASS_STATIC int _wrap_debug_amrecover_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
1874 int res = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(sv, &val);
1875 if (!SWIG_IsOK(res)) {
1876 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""debug_amrecover""' of type '""int""'");
1878 debug_amrecover = (int)(val);
1885 SWIGCLASS_STATIC int _wrap_debug_amrecover_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
1887 sv_setsv(sv,SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(debug_amrecover))) ;
1892 SWIGCLASS_STATIC int _wrap_debug_auth_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
1896 int res = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(sv, &val);
1897 if (!SWIG_IsOK(res)) {
1898 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""debug_auth""' of type '""int""'");
1900 debug_auth = (int)(val);
1907 SWIGCLASS_STATIC int _wrap_debug_auth_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
1909 sv_setsv(sv,SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(debug_auth))) ;
1914 SWIGCLASS_STATIC int _wrap_debug_event_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
1918 int res = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(sv, &val);
1919 if (!SWIG_IsOK(res)) {
1920 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""debug_event""' of type '""int""'");
1922 debug_event = (int)(val);
1929 SWIGCLASS_STATIC int _wrap_debug_event_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
1931 sv_setsv(sv,SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(debug_event))) ;
1936 SWIGCLASS_STATIC int _wrap_debug_holding_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
1940 int res = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(sv, &val);
1941 if (!SWIG_IsOK(res)) {
1942 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""debug_holding""' of type '""int""'");
1944 debug_holding = (int)(val);
1951 SWIGCLASS_STATIC int _wrap_debug_holding_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
1953 sv_setsv(sv,SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(debug_holding))) ;
1958 SWIGCLASS_STATIC int _wrap_debug_protocol_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
1962 int res = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(sv, &val);
1963 if (!SWIG_IsOK(res)) {
1964 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""debug_protocol""' of type '""int""'");
1966 debug_protocol = (int)(val);
1973 SWIGCLASS_STATIC int _wrap_debug_protocol_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
1975 sv_setsv(sv,SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(debug_protocol))) ;
1980 SWIGCLASS_STATIC int _wrap_debug_planner_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
1984 int res = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(sv, &val);
1985 if (!SWIG_IsOK(res)) {
1986 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""debug_planner""' of type '""int""'");
1988 debug_planner = (int)(val);
1995 SWIGCLASS_STATIC int _wrap_debug_planner_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
1997 sv_setsv(sv,SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(debug_planner))) ;
2002 SWIGCLASS_STATIC int _wrap_debug_driver_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2006 int res = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(sv, &val);
2007 if (!SWIG_IsOK(res)) {
2008 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""debug_driver""' of type '""int""'");
2010 debug_driver = (int)(val);
2017 SWIGCLASS_STATIC int _wrap_debug_driver_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2019 sv_setsv(sv,SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(debug_driver))) ;
2024 SWIGCLASS_STATIC int _wrap_debug_dumper_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2028 int res = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(sv, &val);
2029 if (!SWIG_IsOK(res)) {
2030 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""debug_dumper""' of type '""int""'");
2032 debug_dumper = (int)(val);
2039 SWIGCLASS_STATIC int _wrap_debug_dumper_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2041 sv_setsv(sv,SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(debug_dumper))) ;
2046 SWIGCLASS_STATIC int _wrap_debug_chunker_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2050 int res = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(sv, &val);
2051 if (!SWIG_IsOK(res)) {
2052 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""debug_chunker""' of type '""int""'");
2054 debug_chunker = (int)(val);
2061 SWIGCLASS_STATIC int _wrap_debug_chunker_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2063 sv_setsv(sv,SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(debug_chunker))) ;
2068 SWIGCLASS_STATIC int _wrap_debug_taper_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2072 int res = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(sv, &val);
2073 if (!SWIG_IsOK(res)) {
2074 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""debug_taper""' of type '""int""'");
2076 debug_taper = (int)(val);
2083 SWIGCLASS_STATIC int _wrap_debug_taper_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2085 sv_setsv(sv,SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(debug_taper))) ;
2090 SWIGCLASS_STATIC int _wrap_debug_selfcheck_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2094 int res = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(sv, &val);
2095 if (!SWIG_IsOK(res)) {
2096 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""debug_selfcheck""' of type '""int""'");
2098 debug_selfcheck = (int)(val);
2105 SWIGCLASS_STATIC int _wrap_debug_selfcheck_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2107 sv_setsv(sv,SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(debug_selfcheck))) ;
2112 SWIGCLASS_STATIC int _wrap_debug_sendsize_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2116 int res = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(sv, &val);
2117 if (!SWIG_IsOK(res)) {
2118 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""debug_sendsize""' of type '""int""'");
2120 debug_sendsize = (int)(val);
2127 SWIGCLASS_STATIC int _wrap_debug_sendsize_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2129 sv_setsv(sv,SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(debug_sendsize))) ;
2134 SWIGCLASS_STATIC int _wrap_debug_sendbackup_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2138 int res = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(sv, &val);
2139 if (!SWIG_IsOK(res)) {
2140 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""debug_sendbackup""' of type '""int""'");
2142 debug_sendbackup = (int)(val);
2149 SWIGCLASS_STATIC int _wrap_debug_sendbackup_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2151 sv_setsv(sv,SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(debug_sendbackup))) ;
2169 XS(_wrap_data_path_from_string) {
2171 char *arg1 = (char *) 0 ;
2179 if ((items < 1) || (items > 1)) {
2180 SWIG_croak("Usage: data_path_from_string(data);");
2182 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2183 if (!SWIG_IsOK(res1)) {
2184 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "data_path_from_string" "', argument " "1"" of type '" "char *""'");
2186 arg1 = (char *)(buf1);
2187 result = (data_path_t)data_path_from_string(arg1);
2190 SP += argvi; PUTBACK;
2191 for_stack = sv_2mortal(amglue_newSVi64(result));
2192 SPAGAIN; SP -= argvi;
2193 ST(argvi) = for_stack;
2196 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2199 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2212 if ((items < 1) || (items > 1)) {
2213 SWIG_croak("Usage: getconf(key);");
2216 if (sizeof(signed int) == 1) {
2217 arg1 = amglue_SvI8(ST(0));
2218 } else if (sizeof(signed int) == 2) {
2219 arg1 = amglue_SvI16(ST(0));
2220 } else if (sizeof(signed int) == 4) {
2221 arg1 = amglue_SvI32(ST(0));
2222 } else if (sizeof(signed int) == 8) {
2223 arg1 = amglue_SvI64(ST(0));
2225 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
2228 result = (val_t *)getconf(arg1);
2231 ST(argvi) = &PL_sv_undef;
2234 switch (result->type) {
2235 case CONFTYPE_RATE: {
2236 ST(argvi)= sv_newmortal();
2237 sv_setnv(ST(argvi), val_t__rate(result)[0]);
2240 ST(argvi)= sv_newmortal();
2241 sv_setnv(ST(argvi), val_t__rate(result)[1]);
2246 case CONFTYPE_INTRANGE: {
2247 ST(argvi)= sv_newmortal();
2248 sv_setiv(ST(argvi), val_t__intrange(result)[0]);
2251 ST(argvi)= sv_newmortal();
2252 sv_setiv(ST(argvi), val_t__intrange(result)[1]);
2257 case CONFTYPE_EXINCLUDE: {
2258 /* exincludes are represented in perl as {
2259 * 'list' : [ 'list1', 'list2', ..],
2260 * 'file' : [ 'file1', 'file2', ..],
2264 exinclude_t *ei = &val_t__exinclude(result);
2265 AV *list_entries = (AV *)sv_2mortal((SV *)newAV());
2266 AV *file_entries = (AV *)sv_2mortal((SV *)newAV());
2267 SV *optional = sv_newmortal();
2271 /* first set up each of the hash values */
2274 for (iter = ei->sl_list->first; iter != NULL; iter = iter->next) {
2275 av_push(list_entries, newSVpv(iter->name, 0));
2280 for (iter = ei->sl_file->first; iter != NULL; iter = iter->next) {
2281 av_push(file_entries, newSVpv(iter->name, 0));
2285 sv_setiv(optional, ei->optional);
2287 /* now build the hash */
2288 hv = (HV *)sv_2mortal((SV *)newHV());
2290 hv_store(hv, "file", 4, newRV((SV *)file_entries), 0);
2291 hv_store(hv, "list", 4, newRV((SV *)list_entries), 0);
2292 hv_store(hv, "optional", 8, optional, 0);
2293 SvREFCNT_inc(optional);
2295 ST(argvi) = sv_2mortal(newRV((SV *)hv));
2300 case CONFTYPE_PROPLIST:
2301 ST(argvi) = sv_2mortal(g_hash_table_to_hashref_property(val_t__proplist(result)));
2306 SP += argvi; PUTBACK;
2307 ST(argvi) = sv_2mortal(amglue_newSVi64(val_t__size(result)));
2308 SPAGAIN; SP -= argvi; argvi++;
2311 case CONFTYPE_INT64:
2312 SP += argvi; PUTBACK;
2313 ST(argvi) = sv_2mortal(amglue_newSVi64(val_t__int64(result)));
2314 SPAGAIN; SP -= argvi; argvi++;
2317 case CONFTYPE_BOOLEAN: /* all same as INT.. */
2318 case CONFTYPE_COMPRESS:
2319 case CONFTYPE_ENCRYPT:
2320 case CONFTYPE_STRATEGY:
2321 case CONFTYPE_TAPERALGO:
2322 case CONFTYPE_PRIORITY:
2323 case CONFTYPE_HOLDING:
2324 case CONFTYPE_EXECUTE_ON:
2325 case CONFTYPE_EXECUTE_WHERE:
2326 case CONFTYPE_SEND_AMREPORT_ON:
2327 case CONFTYPE_DATA_PATH:
2329 SP += argvi; PUTBACK;
2330 ST(argvi) = sv_2mortal(amglue_newSVi64(val_t__int(result)));
2331 SPAGAIN; SP -= argvi; argvi++;
2334 case CONFTYPE_ESTIMATELIST: {
2335 AV *elist = newAV();
2337 for (el=val_t__estimatelist(result); el != NULL; el = el->next) {
2338 av_push(elist, newSVuv(GPOINTER_TO_INT(el->data)));
2340 ST(argvi) = sv_2mortal(newRV_noinc((SV *)elist));
2346 SP += argvi; PUTBACK;
2347 ST(argvi) = sv_2mortal(amglue_newSVi64(val_t__time(result)));
2348 SPAGAIN; SP -= argvi; argvi++;
2352 ST(argvi) = sv_newmortal();
2353 sv_setnv(ST(argvi), val_t__real(result));
2357 case CONFTYPE_IDENT: /* same as STRING */
2359 case CONFTYPE_APPLICATION:
2360 ST(argvi) = sv_newmortal();
2361 sv_setpv(ST(argvi), val_t__str(result));
2365 case CONFTYPE_IDENTLIST: {
2366 AV *ilist = newAV();
2369 for (il=val_t__identlist(result); il != NULL; il = il->next) {
2370 av_push(ilist, newSVpv((char *)il->data, 0));
2373 ST(argvi) = sv_2mortal(newRV_noinc((SV *)ilist));
2378 case CONFTYPE_AUTOLABEL: {
2379 autolabel_t *autolabel = &val_t__autolabel(result);
2382 /* now build the hash */
2383 hv = (HV *)sv_2mortal((SV *)newHV());
2384 hv_store(hv, "template", 8,
2385 (autolabel->template)? newSVpv(autolabel->template, 0) : newSV(0),
2387 hv_store(hv, "other_config", 12,
2388 (autolabel->autolabel & AL_OTHER_CONFIG)? &PL_sv_yes : &PL_sv_no,
2390 hv_store(hv, "non_amanda", 10,
2391 (autolabel->autolabel & AL_NON_AMANDA)? &PL_sv_yes : &PL_sv_no,
2393 hv_store(hv, "volume_error", 12,
2394 (autolabel->autolabel & AL_VOLUME_ERROR)? &PL_sv_yes : &PL_sv_no,
2396 hv_store(hv, "empty", 5,
2397 (autolabel->autolabel & AL_EMPTY)? &PL_sv_yes : &PL_sv_no,
2400 ST(argvi) = sv_2mortal(newRV((SV *)hv));
2405 /* No match yet -> not one of the "complex" types */
2407 SWIG_exception(SWIG_TypeError, "Unknown val_t conftype");
2421 XS(_wrap_getconf_seen) {
2428 if ((items < 1) || (items > 1)) {
2429 SWIG_croak("Usage: getconf_seen(key);");
2432 if (sizeof(signed int) == 1) {
2433 arg1 = amglue_SvI8(ST(0));
2434 } else if (sizeof(signed int) == 2) {
2435 arg1 = amglue_SvI16(ST(0));
2436 } else if (sizeof(signed int) == 4) {
2437 arg1 = amglue_SvI32(ST(0));
2438 } else if (sizeof(signed int) == 8) {
2439 arg1 = amglue_SvI64(ST(0));
2441 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
2444 result = (gboolean)getconf_seen(arg1);
2447 ST(argvi) = &PL_sv_yes;
2449 ST(argvi) = &PL_sv_no;
2461 XS(_wrap_getconf_linenum) {
2468 if ((items < 1) || (items > 1)) {
2469 SWIG_croak("Usage: getconf_linenum(key);");
2472 if (sizeof(signed int) == 1) {
2473 arg1 = amglue_SvI8(ST(0));
2474 } else if (sizeof(signed int) == 2) {
2475 arg1 = amglue_SvI16(ST(0));
2476 } else if (sizeof(signed int) == 4) {
2477 arg1 = amglue_SvI32(ST(0));
2478 } else if (sizeof(signed int) == 8) {
2479 arg1 = amglue_SvI64(ST(0));
2481 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
2484 result = (int)getconf_linenum(arg1);
2487 SP += argvi; PUTBACK;
2488 for_stack = sv_2mortal(amglue_newSVi64(result));
2489 SPAGAIN; SP -= argvi;
2490 ST(argvi) = for_stack;
2502 XS(_wrap_getconf_byname) {
2504 char *arg1 = (char *) 0 ;
2512 if ((items < 1) || (items > 1)) {
2513 SWIG_croak("Usage: getconf_byname(key);");
2515 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2516 if (!SWIG_IsOK(res1)) {
2517 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "getconf_byname" "', argument " "1"" of type '" "char *""'");
2519 arg1 = (char *)(buf1);
2520 result = (val_t *)getconf_byname(arg1);
2523 ST(argvi) = &PL_sv_undef;
2526 switch (result->type) {
2527 case CONFTYPE_RATE: {
2528 ST(argvi)= sv_newmortal();
2529 sv_setnv(ST(argvi), val_t__rate(result)[0]);
2532 ST(argvi)= sv_newmortal();
2533 sv_setnv(ST(argvi), val_t__rate(result)[1]);
2538 case CONFTYPE_INTRANGE: {
2539 ST(argvi)= sv_newmortal();
2540 sv_setiv(ST(argvi), val_t__intrange(result)[0]);
2543 ST(argvi)= sv_newmortal();
2544 sv_setiv(ST(argvi), val_t__intrange(result)[1]);
2549 case CONFTYPE_EXINCLUDE: {
2550 /* exincludes are represented in perl as {
2551 * 'list' : [ 'list1', 'list2', ..],
2552 * 'file' : [ 'file1', 'file2', ..],
2556 exinclude_t *ei = &val_t__exinclude(result);
2557 AV *list_entries = (AV *)sv_2mortal((SV *)newAV());
2558 AV *file_entries = (AV *)sv_2mortal((SV *)newAV());
2559 SV *optional = sv_newmortal();
2563 /* first set up each of the hash values */
2566 for (iter = ei->sl_list->first; iter != NULL; iter = iter->next) {
2567 av_push(list_entries, newSVpv(iter->name, 0));
2572 for (iter = ei->sl_file->first; iter != NULL; iter = iter->next) {
2573 av_push(file_entries, newSVpv(iter->name, 0));
2577 sv_setiv(optional, ei->optional);
2579 /* now build the hash */
2580 hv = (HV *)sv_2mortal((SV *)newHV());
2582 hv_store(hv, "file", 4, newRV((SV *)file_entries), 0);
2583 hv_store(hv, "list", 4, newRV((SV *)list_entries), 0);
2584 hv_store(hv, "optional", 8, optional, 0);
2585 SvREFCNT_inc(optional);
2587 ST(argvi) = sv_2mortal(newRV((SV *)hv));
2592 case CONFTYPE_PROPLIST:
2593 ST(argvi) = sv_2mortal(g_hash_table_to_hashref_property(val_t__proplist(result)));
2598 SP += argvi; PUTBACK;
2599 ST(argvi) = sv_2mortal(amglue_newSVi64(val_t__size(result)));
2600 SPAGAIN; SP -= argvi; argvi++;
2603 case CONFTYPE_INT64:
2604 SP += argvi; PUTBACK;
2605 ST(argvi) = sv_2mortal(amglue_newSVi64(val_t__int64(result)));
2606 SPAGAIN; SP -= argvi; argvi++;
2609 case CONFTYPE_BOOLEAN: /* all same as INT.. */
2610 case CONFTYPE_COMPRESS:
2611 case CONFTYPE_ENCRYPT:
2612 case CONFTYPE_STRATEGY:
2613 case CONFTYPE_TAPERALGO:
2614 case CONFTYPE_PRIORITY:
2615 case CONFTYPE_HOLDING:
2616 case CONFTYPE_EXECUTE_ON:
2617 case CONFTYPE_EXECUTE_WHERE:
2618 case CONFTYPE_SEND_AMREPORT_ON:
2619 case CONFTYPE_DATA_PATH:
2621 SP += argvi; PUTBACK;
2622 ST(argvi) = sv_2mortal(amglue_newSVi64(val_t__int(result)));
2623 SPAGAIN; SP -= argvi; argvi++;
2626 case CONFTYPE_ESTIMATELIST: {
2627 AV *elist = newAV();
2629 for (el=val_t__estimatelist(result); el != NULL; el = el->next) {
2630 av_push(elist, newSVuv(GPOINTER_TO_INT(el->data)));
2632 ST(argvi) = sv_2mortal(newRV_noinc((SV *)elist));
2638 SP += argvi; PUTBACK;
2639 ST(argvi) = sv_2mortal(amglue_newSVi64(val_t__time(result)));
2640 SPAGAIN; SP -= argvi; argvi++;
2644 ST(argvi) = sv_newmortal();
2645 sv_setnv(ST(argvi), val_t__real(result));
2649 case CONFTYPE_IDENT: /* same as STRING */
2651 case CONFTYPE_APPLICATION:
2652 ST(argvi) = sv_newmortal();
2653 sv_setpv(ST(argvi), val_t__str(result));
2657 case CONFTYPE_IDENTLIST: {
2658 AV *ilist = newAV();
2661 for (il=val_t__identlist(result); il != NULL; il = il->next) {
2662 av_push(ilist, newSVpv((char *)il->data, 0));
2665 ST(argvi) = sv_2mortal(newRV_noinc((SV *)ilist));
2670 case CONFTYPE_AUTOLABEL: {
2671 autolabel_t *autolabel = &val_t__autolabel(result);
2674 /* now build the hash */
2675 hv = (HV *)sv_2mortal((SV *)newHV());
2676 hv_store(hv, "template", 8,
2677 (autolabel->template)? newSVpv(autolabel->template, 0) : newSV(0),
2679 hv_store(hv, "other_config", 12,
2680 (autolabel->autolabel & AL_OTHER_CONFIG)? &PL_sv_yes : &PL_sv_no,
2682 hv_store(hv, "non_amanda", 10,
2683 (autolabel->autolabel & AL_NON_AMANDA)? &PL_sv_yes : &PL_sv_no,
2685 hv_store(hv, "volume_error", 12,
2686 (autolabel->autolabel & AL_VOLUME_ERROR)? &PL_sv_yes : &PL_sv_no,
2688 hv_store(hv, "empty", 5,
2689 (autolabel->autolabel & AL_EMPTY)? &PL_sv_yes : &PL_sv_no,
2692 ST(argvi) = sv_2mortal(newRV((SV *)hv));
2697 /* No match yet -> not one of the "complex" types */
2699 SWIG_exception(SWIG_TypeError, "Unknown val_t conftype");
2704 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2707 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2713 XS(_wrap_getconf_list) {
2715 char *arg1 = (char *) 0 ;
2720 GSList *result = 0 ;
2723 if ((items < 1) || (items > 1)) {
2724 SWIG_croak("Usage: getconf_list(listname);");
2726 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2727 if (!SWIG_IsOK(res1)) {
2728 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "getconf_list" "', argument " "1"" of type '" "char *""'");
2730 arg1 = (char *)(buf1);
2731 result = (GSList *)getconf_list(arg1);
2733 GSList *it = result;
2736 ST(argvi) = sv_2mortal(newSVpv(it->data, 0));
2741 g_slist_free(result);
2743 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2746 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2752 XS(_wrap_getconf_byname_strs) {
2754 char *arg1 = (char *) 0 ;
2763 if ((items < 2) || (items > 2)) {
2764 SWIG_croak("Usage: getconf_byname_strs(key,str_needs_quotes);");
2766 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2767 if (!SWIG_IsOK(res1)) {
2768 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "getconf_byname_strs" "', argument " "1"" of type '" "char *""'");
2770 arg1 = (char *)(buf1);
2772 if (sizeof(signed int) == 1) {
2773 arg2 = amglue_SvI8(ST(1));
2774 } else if (sizeof(signed int) == 2) {
2775 arg2 = amglue_SvI16(ST(1));
2776 } else if (sizeof(signed int) == 4) {
2777 arg2 = amglue_SvI32(ST(1));
2778 } else if (sizeof(signed int) == 8) {
2779 arg2 = amglue_SvI64(ST(1));
2781 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
2784 result = (val_t_strs)getconf_byname_strs(arg1,arg2);
2789 ST(argvi) = sv_2mortal(newSVpv(*it, 0));
2795 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2799 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2806 XS(_wrap_lookup_tapetype) {
2808 char *arg1 = (char *) 0 ;
2813 tapetype_t *result = 0 ;
2816 if ((items < 1) || (items > 1)) {
2817 SWIG_croak("Usage: lookup_tapetype(identifier);");
2819 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2820 if (!SWIG_IsOK(res1)) {
2821 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "lookup_tapetype" "', argument " "1"" of type '" "char *""'");
2823 arg1 = (char *)(buf1);
2824 result = (tapetype_t *)lookup_tapetype(arg1);
2825 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_tapetype_t, 0 | 0); argvi++ ;
2826 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2829 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2835 XS(_wrap_tapetype_getconf) {
2837 tapetype_t *arg1 = (tapetype_t *) 0 ;
2845 if ((items < 2) || (items > 2)) {
2846 SWIG_croak("Usage: tapetype_getconf(ttyp,key);");
2848 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_tapetype_t, 0 | 0 );
2849 if (!SWIG_IsOK(res1)) {
2850 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "tapetype_getconf" "', argument " "1"" of type '" "tapetype_t *""'");
2852 arg1 = (tapetype_t *)(argp1);
2854 if (sizeof(signed int) == 1) {
2855 arg2 = amglue_SvI8(ST(1));
2856 } else if (sizeof(signed int) == 2) {
2857 arg2 = amglue_SvI16(ST(1));
2858 } else if (sizeof(signed int) == 4) {
2859 arg2 = amglue_SvI32(ST(1));
2860 } else if (sizeof(signed int) == 8) {
2861 arg2 = amglue_SvI64(ST(1));
2863 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
2866 result = (val_t *)tapetype_getconf(arg1,arg2);
2869 ST(argvi) = &PL_sv_undef;
2872 switch (result->type) {
2873 case CONFTYPE_RATE: {
2874 ST(argvi)= sv_newmortal();
2875 sv_setnv(ST(argvi), val_t__rate(result)[0]);
2878 ST(argvi)= sv_newmortal();
2879 sv_setnv(ST(argvi), val_t__rate(result)[1]);
2884 case CONFTYPE_INTRANGE: {
2885 ST(argvi)= sv_newmortal();
2886 sv_setiv(ST(argvi), val_t__intrange(result)[0]);
2889 ST(argvi)= sv_newmortal();
2890 sv_setiv(ST(argvi), val_t__intrange(result)[1]);
2895 case CONFTYPE_EXINCLUDE: {
2896 /* exincludes are represented in perl as {
2897 * 'list' : [ 'list1', 'list2', ..],
2898 * 'file' : [ 'file1', 'file2', ..],
2902 exinclude_t *ei = &val_t__exinclude(result);
2903 AV *list_entries = (AV *)sv_2mortal((SV *)newAV());
2904 AV *file_entries = (AV *)sv_2mortal((SV *)newAV());
2905 SV *optional = sv_newmortal();
2909 /* first set up each of the hash values */
2912 for (iter = ei->sl_list->first; iter != NULL; iter = iter->next) {
2913 av_push(list_entries, newSVpv(iter->name, 0));
2918 for (iter = ei->sl_file->first; iter != NULL; iter = iter->next) {
2919 av_push(file_entries, newSVpv(iter->name, 0));
2923 sv_setiv(optional, ei->optional);
2925 /* now build the hash */
2926 hv = (HV *)sv_2mortal((SV *)newHV());
2928 hv_store(hv, "file", 4, newRV((SV *)file_entries), 0);
2929 hv_store(hv, "list", 4, newRV((SV *)list_entries), 0);
2930 hv_store(hv, "optional", 8, optional, 0);
2931 SvREFCNT_inc(optional);
2933 ST(argvi) = sv_2mortal(newRV((SV *)hv));
2938 case CONFTYPE_PROPLIST:
2939 ST(argvi) = sv_2mortal(g_hash_table_to_hashref_property(val_t__proplist(result)));
2944 SP += argvi; PUTBACK;
2945 ST(argvi) = sv_2mortal(amglue_newSVi64(val_t__size(result)));
2946 SPAGAIN; SP -= argvi; argvi++;
2949 case CONFTYPE_INT64:
2950 SP += argvi; PUTBACK;
2951 ST(argvi) = sv_2mortal(amglue_newSVi64(val_t__int64(result)));
2952 SPAGAIN; SP -= argvi; argvi++;
2955 case CONFTYPE_BOOLEAN: /* all same as INT.. */
2956 case CONFTYPE_COMPRESS:
2957 case CONFTYPE_ENCRYPT:
2958 case CONFTYPE_STRATEGY:
2959 case CONFTYPE_TAPERALGO:
2960 case CONFTYPE_PRIORITY:
2961 case CONFTYPE_HOLDING:
2962 case CONFTYPE_EXECUTE_ON:
2963 case CONFTYPE_EXECUTE_WHERE:
2964 case CONFTYPE_SEND_AMREPORT_ON:
2965 case CONFTYPE_DATA_PATH:
2967 SP += argvi; PUTBACK;
2968 ST(argvi) = sv_2mortal(amglue_newSVi64(val_t__int(result)));
2969 SPAGAIN; SP -= argvi; argvi++;
2972 case CONFTYPE_ESTIMATELIST: {
2973 AV *elist = newAV();
2975 for (el=val_t__estimatelist(result); el != NULL; el = el->next) {
2976 av_push(elist, newSVuv(GPOINTER_TO_INT(el->data)));
2978 ST(argvi) = sv_2mortal(newRV_noinc((SV *)elist));
2984 SP += argvi; PUTBACK;
2985 ST(argvi) = sv_2mortal(amglue_newSVi64(val_t__time(result)));
2986 SPAGAIN; SP -= argvi; argvi++;
2990 ST(argvi) = sv_newmortal();
2991 sv_setnv(ST(argvi), val_t__real(result));
2995 case CONFTYPE_IDENT: /* same as STRING */
2997 case CONFTYPE_APPLICATION:
2998 ST(argvi) = sv_newmortal();
2999 sv_setpv(ST(argvi), val_t__str(result));
3003 case CONFTYPE_IDENTLIST: {
3004 AV *ilist = newAV();
3007 for (il=val_t__identlist(result); il != NULL; il = il->next) {
3008 av_push(ilist, newSVpv((char *)il->data, 0));
3011 ST(argvi) = sv_2mortal(newRV_noinc((SV *)ilist));
3016 case CONFTYPE_AUTOLABEL: {
3017 autolabel_t *autolabel = &val_t__autolabel(result);
3020 /* now build the hash */
3021 hv = (HV *)sv_2mortal((SV *)newHV());
3022 hv_store(hv, "template", 8,
3023 (autolabel->template)? newSVpv(autolabel->template, 0) : newSV(0),
3025 hv_store(hv, "other_config", 12,
3026 (autolabel->autolabel & AL_OTHER_CONFIG)? &PL_sv_yes : &PL_sv_no,
3028 hv_store(hv, "non_amanda", 10,
3029 (autolabel->autolabel & AL_NON_AMANDA)? &PL_sv_yes : &PL_sv_no,
3031 hv_store(hv, "volume_error", 12,
3032 (autolabel->autolabel & AL_VOLUME_ERROR)? &PL_sv_yes : &PL_sv_no,
3034 hv_store(hv, "empty", 5,
3035 (autolabel->autolabel & AL_EMPTY)? &PL_sv_yes : &PL_sv_no,
3038 ST(argvi) = sv_2mortal(newRV((SV *)hv));
3043 /* No match yet -> not one of the "complex" types */
3045 SWIG_exception(SWIG_TypeError, "Unknown val_t conftype");
3061 XS(_wrap_tapetype_name) {
3063 tapetype_t *arg1 = (tapetype_t *) 0 ;
3070 if ((items < 1) || (items > 1)) {
3071 SWIG_croak("Usage: tapetype_name(ttyp);");
3073 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_tapetype_t, 0 | 0 );
3074 if (!SWIG_IsOK(res1)) {
3075 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "tapetype_name" "', argument " "1"" of type '" "tapetype_t *""'");
3077 arg1 = (tapetype_t *)(argp1);
3078 result = (char *)tapetype_name(arg1);
3079 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
3089 XS(_wrap_tapetype_seen) {
3091 tapetype_t *arg1 = (tapetype_t *) 0 ;
3099 if ((items < 2) || (items > 2)) {
3100 SWIG_croak("Usage: tapetype_seen(ttyp,key);");
3102 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_tapetype_t, 0 | 0 );
3103 if (!SWIG_IsOK(res1)) {
3104 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "tapetype_seen" "', argument " "1"" of type '" "tapetype_t *""'");
3106 arg1 = (tapetype_t *)(argp1);
3108 if (sizeof(signed int) == 1) {
3109 arg2 = amglue_SvI8(ST(1));
3110 } else if (sizeof(signed int) == 2) {
3111 arg2 = amglue_SvI16(ST(1));
3112 } else if (sizeof(signed int) == 4) {
3113 arg2 = amglue_SvI32(ST(1));
3114 } else if (sizeof(signed int) == 8) {
3115 arg2 = amglue_SvI64(ST(1));
3117 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
3120 result = (gboolean)tapetype_seen(arg1,arg2);
3123 ST(argvi) = &PL_sv_yes;
3125 ST(argvi) = &PL_sv_no;
3139 XS(_wrap_lookup_dumptype) {
3141 char *arg1 = (char *) 0 ;
3146 dumptype_t *result = 0 ;
3149 if ((items < 1) || (items > 1)) {
3150 SWIG_croak("Usage: lookup_dumptype(identifier);");
3152 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
3153 if (!SWIG_IsOK(res1)) {
3154 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "lookup_dumptype" "', argument " "1"" of type '" "char *""'");
3156 arg1 = (char *)(buf1);
3157 result = (dumptype_t *)lookup_dumptype(arg1);
3158 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_dumptype_t, 0 | 0); argvi++ ;
3159 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
3162 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
3168 XS(_wrap_dumptype_getconf) {
3170 dumptype_t *arg1 = (dumptype_t *) 0 ;
3178 if ((items < 2) || (items > 2)) {
3179 SWIG_croak("Usage: dumptype_getconf(dtyp,key);");
3181 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_dumptype_t, 0 | 0 );
3182 if (!SWIG_IsOK(res1)) {
3183 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "dumptype_getconf" "', argument " "1"" of type '" "dumptype_t *""'");
3185 arg1 = (dumptype_t *)(argp1);
3187 if (sizeof(signed int) == 1) {
3188 arg2 = amglue_SvI8(ST(1));
3189 } else if (sizeof(signed int) == 2) {
3190 arg2 = amglue_SvI16(ST(1));
3191 } else if (sizeof(signed int) == 4) {
3192 arg2 = amglue_SvI32(ST(1));
3193 } else if (sizeof(signed int) == 8) {
3194 arg2 = amglue_SvI64(ST(1));
3196 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
3199 result = (val_t *)dumptype_getconf(arg1,arg2);
3202 ST(argvi) = &PL_sv_undef;
3205 switch (result->type) {
3206 case CONFTYPE_RATE: {
3207 ST(argvi)= sv_newmortal();
3208 sv_setnv(ST(argvi), val_t__rate(result)[0]);
3211 ST(argvi)= sv_newmortal();
3212 sv_setnv(ST(argvi), val_t__rate(result)[1]);
3217 case CONFTYPE_INTRANGE: {
3218 ST(argvi)= sv_newmortal();
3219 sv_setiv(ST(argvi), val_t__intrange(result)[0]);
3222 ST(argvi)= sv_newmortal();
3223 sv_setiv(ST(argvi), val_t__intrange(result)[1]);
3228 case CONFTYPE_EXINCLUDE: {
3229 /* exincludes are represented in perl as {
3230 * 'list' : [ 'list1', 'list2', ..],
3231 * 'file' : [ 'file1', 'file2', ..],
3235 exinclude_t *ei = &val_t__exinclude(result);
3236 AV *list_entries = (AV *)sv_2mortal((SV *)newAV());
3237 AV *file_entries = (AV *)sv_2mortal((SV *)newAV());
3238 SV *optional = sv_newmortal();
3242 /* first set up each of the hash values */
3245 for (iter = ei->sl_list->first; iter != NULL; iter = iter->next) {
3246 av_push(list_entries, newSVpv(iter->name, 0));
3251 for (iter = ei->sl_file->first; iter != NULL; iter = iter->next) {
3252 av_push(file_entries, newSVpv(iter->name, 0));
3256 sv_setiv(optional, ei->optional);
3258 /* now build the hash */
3259 hv = (HV *)sv_2mortal((SV *)newHV());
3261 hv_store(hv, "file", 4, newRV((SV *)file_entries), 0);
3262 hv_store(hv, "list", 4, newRV((SV *)list_entries), 0);
3263 hv_store(hv, "optional", 8, optional, 0);
3264 SvREFCNT_inc(optional);
3266 ST(argvi) = sv_2mortal(newRV((SV *)hv));
3271 case CONFTYPE_PROPLIST:
3272 ST(argvi) = sv_2mortal(g_hash_table_to_hashref_property(val_t__proplist(result)));
3277 SP += argvi; PUTBACK;
3278 ST(argvi) = sv_2mortal(amglue_newSVi64(val_t__size(result)));
3279 SPAGAIN; SP -= argvi; argvi++;
3282 case CONFTYPE_INT64:
3283 SP += argvi; PUTBACK;
3284 ST(argvi) = sv_2mortal(amglue_newSVi64(val_t__int64(result)));
3285 SPAGAIN; SP -= argvi; argvi++;
3288 case CONFTYPE_BOOLEAN: /* all same as INT.. */
3289 case CONFTYPE_COMPRESS:
3290 case CONFTYPE_ENCRYPT:
3291 case CONFTYPE_STRATEGY:
3292 case CONFTYPE_TAPERALGO:
3293 case CONFTYPE_PRIORITY:
3294 case CONFTYPE_HOLDING:
3295 case CONFTYPE_EXECUTE_ON:
3296 case CONFTYPE_EXECUTE_WHERE:
3297 case CONFTYPE_SEND_AMREPORT_ON:
3298 case CONFTYPE_DATA_PATH:
3300 SP += argvi; PUTBACK;
3301 ST(argvi) = sv_2mortal(amglue_newSVi64(val_t__int(result)));
3302 SPAGAIN; SP -= argvi; argvi++;
3305 case CONFTYPE_ESTIMATELIST: {
3306 AV *elist = newAV();
3308 for (el=val_t__estimatelist(result); el != NULL; el = el->next) {
3309 av_push(elist, newSVuv(GPOINTER_TO_INT(el->data)));
3311 ST(argvi) = sv_2mortal(newRV_noinc((SV *)elist));
3317 SP += argvi; PUTBACK;
3318 ST(argvi) = sv_2mortal(amglue_newSVi64(val_t__time(result)));
3319 SPAGAIN; SP -= argvi; argvi++;
3323 ST(argvi) = sv_newmortal();
3324 sv_setnv(ST(argvi), val_t__real(result));
3328 case CONFTYPE_IDENT: /* same as STRING */
3330 case CONFTYPE_APPLICATION:
3331 ST(argvi) = sv_newmortal();
3332 sv_setpv(ST(argvi), val_t__str(result));
3336 case CONFTYPE_IDENTLIST: {
3337 AV *ilist = newAV();
3340 for (il=val_t__identlist(result); il != NULL; il = il->next) {
3341 av_push(ilist, newSVpv((char *)il->data, 0));
3344 ST(argvi) = sv_2mortal(newRV_noinc((SV *)ilist));
3349 case CONFTYPE_AUTOLABEL: {
3350 autolabel_t *autolabel = &val_t__autolabel(result);
3353 /* now build the hash */
3354 hv = (HV *)sv_2mortal((SV *)newHV());
3355 hv_store(hv, "template", 8,
3356 (autolabel->template)? newSVpv(autolabel->template, 0) : newSV(0),
3358 hv_store(hv, "other_config", 12,
3359 (autolabel->autolabel & AL_OTHER_CONFIG)? &PL_sv_yes : &PL_sv_no,
3361 hv_store(hv, "non_amanda", 10,
3362 (autolabel->autolabel & AL_NON_AMANDA)? &PL_sv_yes : &PL_sv_no,
3364 hv_store(hv, "volume_error", 12,
3365 (autolabel->autolabel & AL_VOLUME_ERROR)? &PL_sv_yes : &PL_sv_no,
3367 hv_store(hv, "empty", 5,
3368 (autolabel->autolabel & AL_EMPTY)? &PL_sv_yes : &PL_sv_no,
3371 ST(argvi) = sv_2mortal(newRV((SV *)hv));
3376 /* No match yet -> not one of the "complex" types */
3378 SWIG_exception(SWIG_TypeError, "Unknown val_t conftype");
3394 XS(_wrap_dumptype_name) {
3396 dumptype_t *arg1 = (dumptype_t *) 0 ;
3403 if ((items < 1) || (items > 1)) {
3404 SWIG_croak("Usage: dumptype_name(dtyp);");
3406 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_dumptype_t, 0 | 0 );
3407 if (!SWIG_IsOK(res1)) {
3408 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "dumptype_name" "', argument " "1"" of type '" "dumptype_t *""'");
3410 arg1 = (dumptype_t *)(argp1);
3411 result = (char *)dumptype_name(arg1);
3412 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
3422 XS(_wrap_dumptype_seen) {
3424 dumptype_t *arg1 = (dumptype_t *) 0 ;
3432 if ((items < 2) || (items > 2)) {
3433 SWIG_croak("Usage: dumptype_seen(dtyp,key);");
3435 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_dumptype_t, 0 | 0 );
3436 if (!SWIG_IsOK(res1)) {
3437 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "dumptype_seen" "', argument " "1"" of type '" "dumptype_t *""'");
3439 arg1 = (dumptype_t *)(argp1);
3441 if (sizeof(signed int) == 1) {
3442 arg2 = amglue_SvI8(ST(1));
3443 } else if (sizeof(signed int) == 2) {
3444 arg2 = amglue_SvI16(ST(1));
3445 } else if (sizeof(signed int) == 4) {
3446 arg2 = amglue_SvI32(ST(1));
3447 } else if (sizeof(signed int) == 8) {
3448 arg2 = amglue_SvI64(ST(1));
3450 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
3453 result = (gboolean)dumptype_seen(arg1,arg2);
3456 ST(argvi) = &PL_sv_yes;
3458 ST(argvi) = &PL_sv_no;
3472 XS(_wrap_lookup_interface) {
3474 char *arg1 = (char *) 0 ;
3479 interface_t *result = 0 ;
3482 if ((items < 1) || (items > 1)) {
3483 SWIG_croak("Usage: lookup_interface(identifier);");
3485 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
3486 if (!SWIG_IsOK(res1)) {
3487 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "lookup_interface" "', argument " "1"" of type '" "char *""'");
3489 arg1 = (char *)(buf1);
3490 result = (interface_t *)lookup_interface(arg1);
3491 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_interface_t, 0 | 0); argvi++ ;
3492 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
3495 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
3501 XS(_wrap_interface_getconf) {
3503 interface_t *arg1 = (interface_t *) 0 ;
3504 interface_key arg2 ;
3511 if ((items < 2) || (items > 2)) {
3512 SWIG_croak("Usage: interface_getconf(iface,key);");
3514 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_interface_t, 0 | 0 );
3515 if (!SWIG_IsOK(res1)) {
3516 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "interface_getconf" "', argument " "1"" of type '" "interface_t *""'");
3518 arg1 = (interface_t *)(argp1);
3520 if (sizeof(signed int) == 1) {
3521 arg2 = amglue_SvI8(ST(1));
3522 } else if (sizeof(signed int) == 2) {
3523 arg2 = amglue_SvI16(ST(1));
3524 } else if (sizeof(signed int) == 4) {
3525 arg2 = amglue_SvI32(ST(1));
3526 } else if (sizeof(signed int) == 8) {
3527 arg2 = amglue_SvI64(ST(1));
3529 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
3532 result = (val_t *)interface_getconf(arg1,arg2);
3535 ST(argvi) = &PL_sv_undef;
3538 switch (result->type) {
3539 case CONFTYPE_RATE: {
3540 ST(argvi)= sv_newmortal();
3541 sv_setnv(ST(argvi), val_t__rate(result)[0]);
3544 ST(argvi)= sv_newmortal();
3545 sv_setnv(ST(argvi), val_t__rate(result)[1]);
3550 case CONFTYPE_INTRANGE: {
3551 ST(argvi)= sv_newmortal();
3552 sv_setiv(ST(argvi), val_t__intrange(result)[0]);
3555 ST(argvi)= sv_newmortal();
3556 sv_setiv(ST(argvi), val_t__intrange(result)[1]);
3561 case CONFTYPE_EXINCLUDE: {
3562 /* exincludes are represented in perl as {
3563 * 'list' : [ 'list1', 'list2', ..],
3564 * 'file' : [ 'file1', 'file2', ..],
3568 exinclude_t *ei = &val_t__exinclude(result);
3569 AV *list_entries = (AV *)sv_2mortal((SV *)newAV());
3570 AV *file_entries = (AV *)sv_2mortal((SV *)newAV());
3571 SV *optional = sv_newmortal();
3575 /* first set up each of the hash values */
3578 for (iter = ei->sl_list->first; iter != NULL; iter = iter->next) {
3579 av_push(list_entries, newSVpv(iter->name, 0));
3584 for (iter = ei->sl_file->first; iter != NULL; iter = iter->next) {
3585 av_push(file_entries, newSVpv(iter->name, 0));
3589 sv_setiv(optional, ei->optional);
3591 /* now build the hash */
3592 hv = (HV *)sv_2mortal((SV *)newHV());
3594 hv_store(hv, "file", 4, newRV((SV *)file_entries), 0);
3595 hv_store(hv, "list", 4, newRV((SV *)list_entries), 0);
3596 hv_store(hv, "optional", 8, optional, 0);
3597 SvREFCNT_inc(optional);
3599 ST(argvi) = sv_2mortal(newRV((SV *)hv));
3604 case CONFTYPE_PROPLIST:
3605 ST(argvi) = sv_2mortal(g_hash_table_to_hashref_property(val_t__proplist(result)));
3610 SP += argvi; PUTBACK;
3611 ST(argvi) = sv_2mortal(amglue_newSVi64(val_t__size(result)));
3612 SPAGAIN; SP -= argvi; argvi++;
3615 case CONFTYPE_INT64:
3616 SP += argvi; PUTBACK;
3617 ST(argvi) = sv_2mortal(amglue_newSVi64(val_t__int64(result)));
3618 SPAGAIN; SP -= argvi; argvi++;
3621 case CONFTYPE_BOOLEAN: /* all same as INT.. */
3622 case CONFTYPE_COMPRESS:
3623 case CONFTYPE_ENCRYPT:
3624 case CONFTYPE_STRATEGY:
3625 case CONFTYPE_TAPERALGO:
3626 case CONFTYPE_PRIORITY:
3627 case CONFTYPE_HOLDING:
3628 case CONFTYPE_EXECUTE_ON:
3629 case CONFTYPE_EXECUTE_WHERE:
3630 case CONFTYPE_SEND_AMREPORT_ON:
3631 case CONFTYPE_DATA_PATH:
3633 SP += argvi; PUTBACK;
3634 ST(argvi) = sv_2mortal(amglue_newSVi64(val_t__int(result)));
3635 SPAGAIN; SP -= argvi; argvi++;
3638 case CONFTYPE_ESTIMATELIST: {
3639 AV *elist = newAV();
3641 for (el=val_t__estimatelist(result); el != NULL; el = el->next) {
3642 av_push(elist, newSVuv(GPOINTER_TO_INT(el->data)));
3644 ST(argvi) = sv_2mortal(newRV_noinc((SV *)elist));
3650 SP += argvi; PUTBACK;
3651 ST(argvi) = sv_2mortal(amglue_newSVi64(val_t__time(result)));
3652 SPAGAIN; SP -= argvi; argvi++;
3656 ST(argvi) = sv_newmortal();
3657 sv_setnv(ST(argvi), val_t__real(result));
3661 case CONFTYPE_IDENT: /* same as STRING */
3663 case CONFTYPE_APPLICATION:
3664 ST(argvi) = sv_newmortal();
3665 sv_setpv(ST(argvi), val_t__str(result));
3669 case CONFTYPE_IDENTLIST: {
3670 AV *ilist = newAV();
3673 for (il=val_t__identlist(result); il != NULL; il = il->next) {
3674 av_push(ilist, newSVpv((char *)il->data, 0));
3677 ST(argvi) = sv_2mortal(newRV_noinc((SV *)ilist));
3682 case CONFTYPE_AUTOLABEL: {
3683 autolabel_t *autolabel = &val_t__autolabel(result);
3686 /* now build the hash */
3687 hv = (HV *)sv_2mortal((SV *)newHV());
3688 hv_store(hv, "template", 8,
3689 (autolabel->template)? newSVpv(autolabel->template, 0) : newSV(0),
3691 hv_store(hv, "other_config", 12,
3692 (autolabel->autolabel & AL_OTHER_CONFIG)? &PL_sv_yes : &PL_sv_no,
3694 hv_store(hv, "non_amanda", 10,
3695 (autolabel->autolabel & AL_NON_AMANDA)? &PL_sv_yes : &PL_sv_no,
3697 hv_store(hv, "volume_error", 12,
3698 (autolabel->autolabel & AL_VOLUME_ERROR)? &PL_sv_yes : &PL_sv_no,
3700 hv_store(hv, "empty", 5,
3701 (autolabel->autolabel & AL_EMPTY)? &PL_sv_yes : &PL_sv_no,
3704 ST(argvi) = sv_2mortal(newRV((SV *)hv));
3709 /* No match yet -> not one of the "complex" types */
3711 SWIG_exception(SWIG_TypeError, "Unknown val_t conftype");
3727 XS(_wrap_interface_name) {
3729 interface_t *arg1 = (interface_t *) 0 ;
3736 if ((items < 1) || (items > 1)) {
3737 SWIG_croak("Usage: interface_name(iface);");
3739 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_interface_t, 0 | 0 );
3740 if (!SWIG_IsOK(res1)) {
3741 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "interface_name" "', argument " "1"" of type '" "interface_t *""'");
3743 arg1 = (interface_t *)(argp1);
3744 result = (char *)interface_name(arg1);
3745 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
3755 XS(_wrap_interface_seen) {
3757 interface_t *arg1 = (interface_t *) 0 ;
3758 interface_key arg2 ;
3765 if ((items < 2) || (items > 2)) {
3766 SWIG_croak("Usage: interface_seen(iface,key);");
3768 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_interface_t, 0 | 0 );
3769 if (!SWIG_IsOK(res1)) {
3770 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "interface_seen" "', argument " "1"" of type '" "interface_t *""'");
3772 arg1 = (interface_t *)(argp1);
3774 if (sizeof(signed int) == 1) {
3775 arg2 = amglue_SvI8(ST(1));
3776 } else if (sizeof(signed int) == 2) {
3777 arg2 = amglue_SvI16(ST(1));
3778 } else if (sizeof(signed int) == 4) {
3779 arg2 = amglue_SvI32(ST(1));
3780 } else if (sizeof(signed int) == 8) {
3781 arg2 = amglue_SvI64(ST(1));
3783 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
3786 result = (gboolean)interface_seen(arg1,arg2);
3789 ST(argvi) = &PL_sv_yes;
3791 ST(argvi) = &PL_sv_no;
3805 XS(_wrap_lookup_holdingdisk) {
3807 char *arg1 = (char *) 0 ;
3812 holdingdisk_t *result = 0 ;
3815 if ((items < 1) || (items > 1)) {
3816 SWIG_croak("Usage: lookup_holdingdisk(identifier);");
3818 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
3819 if (!SWIG_IsOK(res1)) {
3820 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "lookup_holdingdisk" "', argument " "1"" of type '" "char *""'");
3822 arg1 = (char *)(buf1);
3823 result = (holdingdisk_t *)lookup_holdingdisk(arg1);
3824 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_holdingdisk_t, 0 | 0); argvi++ ;
3825 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
3828 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
3834 XS(_wrap_getconf_holdingdisks) {
3837 GSList *result = 0 ;
3840 if ((items < 0) || (items > 0)) {
3841 SWIG_croak("Usage: getconf_holdingdisks();");
3843 result = (GSList *)getconf_holdingdisks();
3845 GSList *it = result;
3848 ST(argvi) = sv_2mortal(newSVpv(it->data, 0));
3853 g_slist_free(result);
3862 XS(_wrap_holdingdisk_getconf) {
3864 holdingdisk_t *arg1 = (holdingdisk_t *) 0 ;
3865 holdingdisk_key arg2 ;
3872 if ((items < 2) || (items > 2)) {
3873 SWIG_croak("Usage: holdingdisk_getconf(hdisk,key);");
3875 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_holdingdisk_t, 0 | 0 );
3876 if (!SWIG_IsOK(res1)) {
3877 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "holdingdisk_getconf" "', argument " "1"" of type '" "holdingdisk_t *""'");
3879 arg1 = (holdingdisk_t *)(argp1);
3881 if (sizeof(signed int) == 1) {
3882 arg2 = amglue_SvI8(ST(1));
3883 } else if (sizeof(signed int) == 2) {
3884 arg2 = amglue_SvI16(ST(1));
3885 } else if (sizeof(signed int) == 4) {
3886 arg2 = amglue_SvI32(ST(1));
3887 } else if (sizeof(signed int) == 8) {
3888 arg2 = amglue_SvI64(ST(1));
3890 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
3893 result = (val_t *)holdingdisk_getconf(arg1,arg2);
3896 ST(argvi) = &PL_sv_undef;
3899 switch (result->type) {
3900 case CONFTYPE_RATE: {
3901 ST(argvi)= sv_newmortal();
3902 sv_setnv(ST(argvi), val_t__rate(result)[0]);
3905 ST(argvi)= sv_newmortal();
3906 sv_setnv(ST(argvi), val_t__rate(result)[1]);
3911 case CONFTYPE_INTRANGE: {
3912 ST(argvi)= sv_newmortal();
3913 sv_setiv(ST(argvi), val_t__intrange(result)[0]);
3916 ST(argvi)= sv_newmortal();
3917 sv_setiv(ST(argvi), val_t__intrange(result)[1]);
3922 case CONFTYPE_EXINCLUDE: {
3923 /* exincludes are represented in perl as {
3924 * 'list' : [ 'list1', 'list2', ..],
3925 * 'file' : [ 'file1', 'file2', ..],
3929 exinclude_t *ei = &val_t__exinclude(result);
3930 AV *list_entries = (AV *)sv_2mortal((SV *)newAV());
3931 AV *file_entries = (AV *)sv_2mortal((SV *)newAV());
3932 SV *optional = sv_newmortal();
3936 /* first set up each of the hash values */
3939 for (iter = ei->sl_list->first; iter != NULL; iter = iter->next) {
3940 av_push(list_entries, newSVpv(iter->name, 0));
3945 for (iter = ei->sl_file->first; iter != NULL; iter = iter->next) {
3946 av_push(file_entries, newSVpv(iter->name, 0));
3950 sv_setiv(optional, ei->optional);
3952 /* now build the hash */
3953 hv = (HV *)sv_2mortal((SV *)newHV());
3955 hv_store(hv, "file", 4, newRV((SV *)file_entries), 0);
3956 hv_store(hv, "list", 4, newRV((SV *)list_entries), 0);
3957 hv_store(hv, "optional", 8, optional, 0);
3958 SvREFCNT_inc(optional);
3960 ST(argvi) = sv_2mortal(newRV((SV *)hv));
3965 case CONFTYPE_PROPLIST:
3966 ST(argvi) = sv_2mortal(g_hash_table_to_hashref_property(val_t__proplist(result)));
3971 SP += argvi; PUTBACK;
3972 ST(argvi) = sv_2mortal(amglue_newSVi64(val_t__size(result)));
3973 SPAGAIN; SP -= argvi; argvi++;
3976 case CONFTYPE_INT64:
3977 SP += argvi; PUTBACK;
3978 ST(argvi) = sv_2mortal(amglue_newSVi64(val_t__int64(result)));
3979 SPAGAIN; SP -= argvi; argvi++;
3982 case CONFTYPE_BOOLEAN: /* all same as INT.. */
3983 case CONFTYPE_COMPRESS:
3984 case CONFTYPE_ENCRYPT:
3985 case CONFTYPE_STRATEGY:
3986 case CONFTYPE_TAPERALGO:
3987 case CONFTYPE_PRIORITY:
3988 case CONFTYPE_HOLDING:
3989 case CONFTYPE_EXECUTE_ON:
3990 case CONFTYPE_EXECUTE_WHERE:
3991 case CONFTYPE_SEND_AMREPORT_ON:
3992 case CONFTYPE_DATA_PATH:
3994 SP += argvi; PUTBACK;
3995 ST(argvi) = sv_2mortal(amglue_newSVi64(val_t__int(result)));
3996 SPAGAIN; SP -= argvi; argvi++;
3999 case CONFTYPE_ESTIMATELIST: {
4000 AV *elist = newAV();
4002 for (el=val_t__estimatelist(result); el != NULL; el = el->next) {
4003 av_push(elist, newSVuv(GPOINTER_TO_INT(el->data)));
4005 ST(argvi) = sv_2mortal(newRV_noinc((SV *)elist));
4011 SP += argvi; PUTBACK;
4012 ST(argvi) = sv_2mortal(amglue_newSVi64(val_t__time(result)));
4013 SPAGAIN; SP -= argvi; argvi++;
4017 ST(argvi) = sv_newmortal();
4018 sv_setnv(ST(argvi), val_t__real(result));
4022 case CONFTYPE_IDENT: /* same as STRING */
4024 case CONFTYPE_APPLICATION:
4025 ST(argvi) = sv_newmortal();
4026 sv_setpv(ST(argvi), val_t__str(result));
4030 case CONFTYPE_IDENTLIST: {
4031 AV *ilist = newAV();
4034 for (il=val_t__identlist(result); il != NULL; il = il->next) {
4035 av_push(ilist, newSVpv((char *)il->data, 0));
4038 ST(argvi) = sv_2mortal(newRV_noinc((SV *)ilist));
4043 case CONFTYPE_AUTOLABEL: {
4044 autolabel_t *autolabel = &val_t__autolabel(result);
4047 /* now build the hash */
4048 hv = (HV *)sv_2mortal((SV *)newHV());
4049 hv_store(hv, "template", 8,
4050 (autolabel->template)? newSVpv(autolabel->template, 0) : newSV(0),
4052 hv_store(hv, "other_config", 12,
4053 (autolabel->autolabel & AL_OTHER_CONFIG)? &PL_sv_yes : &PL_sv_no,
4055 hv_store(hv, "non_amanda", 10,
4056 (autolabel->autolabel & AL_NON_AMANDA)? &PL_sv_yes : &PL_sv_no,
4058 hv_store(hv, "volume_error", 12,
4059 (autolabel->autolabel & AL_VOLUME_ERROR)? &PL_sv_yes : &PL_sv_no,
4061 hv_store(hv, "empty", 5,
4062 (autolabel->autolabel & AL_EMPTY)? &PL_sv_yes : &PL_sv_no,
4065 ST(argvi) = sv_2mortal(newRV((SV *)hv));
4070 /* No match yet -> not one of the "complex" types */
4072 SWIG_exception(SWIG_TypeError, "Unknown val_t conftype");
4088 XS(_wrap_holdingdisk_name) {
4090 holdingdisk_t *arg1 = (holdingdisk_t *) 0 ;
4097 if ((items < 1) || (items > 1)) {
4098 SWIG_croak("Usage: holdingdisk_name(hdisk);");
4100 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_holdingdisk_t, 0 | 0 );
4101 if (!SWIG_IsOK(res1)) {
4102 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "holdingdisk_name" "', argument " "1"" of type '" "holdingdisk_t *""'");
4104 arg1 = (holdingdisk_t *)(argp1);
4105 result = (char *)holdingdisk_name(arg1);
4106 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
4116 XS(_wrap_holdingdisk_seen) {
4118 holdingdisk_t *arg1 = (holdingdisk_t *) 0 ;
4119 holdingdisk_key arg2 ;
4126 if ((items < 2) || (items > 2)) {
4127 SWIG_croak("Usage: holdingdisk_seen(hdisk,key);");
4129 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_holdingdisk_t, 0 | 0 );
4130 if (!SWIG_IsOK(res1)) {
4131 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "holdingdisk_seen" "', argument " "1"" of type '" "holdingdisk_t *""'");
4133 arg1 = (holdingdisk_t *)(argp1);
4135 if (sizeof(signed int) == 1) {
4136 arg2 = amglue_SvI8(ST(1));
4137 } else if (sizeof(signed int) == 2) {
4138 arg2 = amglue_SvI16(ST(1));
4139 } else if (sizeof(signed int) == 4) {
4140 arg2 = amglue_SvI32(ST(1));
4141 } else if (sizeof(signed int) == 8) {
4142 arg2 = amglue_SvI64(ST(1));
4144 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
4147 result = (gboolean)holdingdisk_seen(arg1,arg2);
4150 ST(argvi) = &PL_sv_yes;
4152 ST(argvi) = &PL_sv_no;
4166 XS(_wrap_lookup_application) {
4168 char *arg1 = (char *) 0 ;
4173 application_t *result = 0 ;
4176 if ((items < 1) || (items > 1)) {
4177 SWIG_croak("Usage: lookup_application(identifier);");
4179 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
4180 if (!SWIG_IsOK(res1)) {
4181 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "lookup_application" "', argument " "1"" of type '" "char *""'");
4183 arg1 = (char *)(buf1);
4184 result = (application_t *)lookup_application(arg1);
4185 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_application_t, 0 | 0); argvi++ ;
4186 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
4189 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
4195 XS(_wrap_application_getconf) {
4197 application_t *arg1 = (application_t *) 0 ;
4198 application_key arg2 ;
4205 if ((items < 2) || (items > 2)) {
4206 SWIG_croak("Usage: application_getconf(app,key);");
4208 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_application_t, 0 | 0 );
4209 if (!SWIG_IsOK(res1)) {
4210 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "application_getconf" "', argument " "1"" of type '" "application_t *""'");
4212 arg1 = (application_t *)(argp1);
4214 if (sizeof(signed int) == 1) {
4215 arg2 = amglue_SvI8(ST(1));
4216 } else if (sizeof(signed int) == 2) {
4217 arg2 = amglue_SvI16(ST(1));
4218 } else if (sizeof(signed int) == 4) {
4219 arg2 = amglue_SvI32(ST(1));
4220 } else if (sizeof(signed int) == 8) {
4221 arg2 = amglue_SvI64(ST(1));
4223 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
4226 result = (val_t *)application_getconf(arg1,arg2);
4229 ST(argvi) = &PL_sv_undef;
4232 switch (result->type) {
4233 case CONFTYPE_RATE: {
4234 ST(argvi)= sv_newmortal();
4235 sv_setnv(ST(argvi), val_t__rate(result)[0]);
4238 ST(argvi)= sv_newmortal();
4239 sv_setnv(ST(argvi), val_t__rate(result)[1]);
4244 case CONFTYPE_INTRANGE: {
4245 ST(argvi)= sv_newmortal();
4246 sv_setiv(ST(argvi), val_t__intrange(result)[0]);
4249 ST(argvi)= sv_newmortal();
4250 sv_setiv(ST(argvi), val_t__intrange(result)[1]);
4255 case CONFTYPE_EXINCLUDE: {
4256 /* exincludes are represented in perl as {
4257 * 'list' : [ 'list1', 'list2', ..],
4258 * 'file' : [ 'file1', 'file2', ..],
4262 exinclude_t *ei = &val_t__exinclude(result);
4263 AV *list_entries = (AV *)sv_2mortal((SV *)newAV());
4264 AV *file_entries = (AV *)sv_2mortal((SV *)newAV());
4265 SV *optional = sv_newmortal();
4269 /* first set up each of the hash values */
4272 for (iter = ei->sl_list->first; iter != NULL; iter = iter->next) {
4273 av_push(list_entries, newSVpv(iter->name, 0));
4278 for (iter = ei->sl_file->first; iter != NULL; iter = iter->next) {
4279 av_push(file_entries, newSVpv(iter->name, 0));
4283 sv_setiv(optional, ei->optional);
4285 /* now build the hash */
4286 hv = (HV *)sv_2mortal((SV *)newHV());
4288 hv_store(hv, "file", 4, newRV((SV *)file_entries), 0);
4289 hv_store(hv, "list", 4, newRV((SV *)list_entries), 0);
4290 hv_store(hv, "optional", 8, optional, 0);
4291 SvREFCNT_inc(optional);
4293 ST(argvi) = sv_2mortal(newRV((SV *)hv));
4298 case CONFTYPE_PROPLIST:
4299 ST(argvi) = sv_2mortal(g_hash_table_to_hashref_property(val_t__proplist(result)));
4304 SP += argvi; PUTBACK;
4305 ST(argvi) = sv_2mortal(amglue_newSVi64(val_t__size(result)));
4306 SPAGAIN; SP -= argvi; argvi++;
4309 case CONFTYPE_INT64:
4310 SP += argvi; PUTBACK;
4311 ST(argvi) = sv_2mortal(amglue_newSVi64(val_t__int64(result)));
4312 SPAGAIN; SP -= argvi; argvi++;
4315 case CONFTYPE_BOOLEAN: /* all same as INT.. */
4316 case CONFTYPE_COMPRESS:
4317 case CONFTYPE_ENCRYPT:
4318 case CONFTYPE_STRATEGY:
4319 case CONFTYPE_TAPERALGO:
4320 case CONFTYPE_PRIORITY:
4321 case CONFTYPE_HOLDING:
4322 case CONFTYPE_EXECUTE_ON:
4323 case CONFTYPE_EXECUTE_WHERE:
4324 case CONFTYPE_SEND_AMREPORT_ON:
4325 case CONFTYPE_DATA_PATH:
4327 SP += argvi; PUTBACK;
4328 ST(argvi) = sv_2mortal(amglue_newSVi64(val_t__int(result)));
4329 SPAGAIN; SP -= argvi; argvi++;
4332 case CONFTYPE_ESTIMATELIST: {
4333 AV *elist = newAV();
4335 for (el=val_t__estimatelist(result); el != NULL; el = el->next) {
4336 av_push(elist, newSVuv(GPOINTER_TO_INT(el->data)));
4338 ST(argvi) = sv_2mortal(newRV_noinc((SV *)elist));
4344 SP += argvi; PUTBACK;
4345 ST(argvi) = sv_2mortal(amglue_newSVi64(val_t__time(result)));
4346 SPAGAIN; SP -= argvi; argvi++;
4350 ST(argvi) = sv_newmortal();
4351 sv_setnv(ST(argvi), val_t__real(result));
4355 case CONFTYPE_IDENT: /* same as STRING */
4357 case CONFTYPE_APPLICATION:
4358 ST(argvi) = sv_newmortal();
4359 sv_setpv(ST(argvi), val_t__str(result));
4363 case CONFTYPE_IDENTLIST: {
4364 AV *ilist = newAV();
4367 for (il=val_t__identlist(result); il != NULL; il = il->next) {
4368 av_push(ilist, newSVpv((char *)il->data, 0));
4371 ST(argvi) = sv_2mortal(newRV_noinc((SV *)ilist));
4376 case CONFTYPE_AUTOLABEL: {
4377 autolabel_t *autolabel = &val_t__autolabel(result);
4380 /* now build the hash */
4381 hv = (HV *)sv_2mortal((SV *)newHV());
4382 hv_store(hv, "template", 8,
4383 (autolabel->template)? newSVpv(autolabel->template, 0) : newSV(0),
4385 hv_store(hv, "other_config", 12,
4386 (autolabel->autolabel & AL_OTHER_CONFIG)? &PL_sv_yes : &PL_sv_no,
4388 hv_store(hv, "non_amanda", 10,
4389 (autolabel->autolabel & AL_NON_AMANDA)? &PL_sv_yes : &PL_sv_no,
4391 hv_store(hv, "volume_error", 12,
4392 (autolabel->autolabel & AL_VOLUME_ERROR)? &PL_sv_yes : &PL_sv_no,
4394 hv_store(hv, "empty", 5,
4395 (autolabel->autolabel & AL_EMPTY)? &PL_sv_yes : &PL_sv_no,
4398 ST(argvi) = sv_2mortal(newRV((SV *)hv));
4403 /* No match yet -> not one of the "complex" types */
4405 SWIG_exception(SWIG_TypeError, "Unknown val_t conftype");
4421 XS(_wrap_application_name) {
4423 application_t *arg1 = (application_t *) 0 ;
4430 if ((items < 1) || (items > 1)) {
4431 SWIG_croak("Usage: application_name(app);");
4433 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_application_t, 0 | 0 );
4434 if (!SWIG_IsOK(res1)) {
4435 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "application_name" "', argument " "1"" of type '" "application_t *""'");
4437 arg1 = (application_t *)(argp1);
4438 result = (char *)application_name(arg1);
4439 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
4449 XS(_wrap_application_seen) {
4451 application_t *arg1 = (application_t *) 0 ;
4452 application_key arg2 ;
4459 if ((items < 2) || (items > 2)) {
4460 SWIG_croak("Usage: application_seen(app,key);");
4462 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_application_t, 0 | 0 );
4463 if (!SWIG_IsOK(res1)) {
4464 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "application_seen" "', argument " "1"" of type '" "application_t *""'");
4466 arg1 = (application_t *)(argp1);
4468 if (sizeof(signed int) == 1) {
4469 arg2 = amglue_SvI8(ST(1));
4470 } else if (sizeof(signed int) == 2) {
4471 arg2 = amglue_SvI16(ST(1));
4472 } else if (sizeof(signed int) == 4) {
4473 arg2 = amglue_SvI32(ST(1));
4474 } else if (sizeof(signed int) == 8) {
4475 arg2 = amglue_SvI64(ST(1));
4477 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
4480 result = (gboolean)application_seen(arg1,arg2);
4483 ST(argvi) = &PL_sv_yes;
4485 ST(argvi) = &PL_sv_no;
4499 XS(_wrap_lookup_pp_script) {
4501 char *arg1 = (char *) 0 ;
4506 pp_script_t *result = 0 ;
4509 if ((items < 1) || (items > 1)) {
4510 SWIG_croak("Usage: lookup_pp_script(identifier);");
4512 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
4513 if (!SWIG_IsOK(res1)) {
4514 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "lookup_pp_script" "', argument " "1"" of type '" "char *""'");
4516 arg1 = (char *)(buf1);
4517 result = (pp_script_t *)lookup_pp_script(arg1);
4518 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_pp_script_t, 0 | 0); argvi++ ;
4519 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
4522 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
4528 XS(_wrap_pp_script_getconf) {
4530 pp_script_t *arg1 = (pp_script_t *) 0 ;
4531 pp_script_key arg2 ;
4538 if ((items < 2) || (items > 2)) {
4539 SWIG_croak("Usage: pp_script_getconf(pps,key);");
4541 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_pp_script_t, 0 | 0 );
4542 if (!SWIG_IsOK(res1)) {
4543 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "pp_script_getconf" "', argument " "1"" of type '" "pp_script_t *""'");
4545 arg1 = (pp_script_t *)(argp1);
4547 if (sizeof(signed int) == 1) {
4548 arg2 = amglue_SvI8(ST(1));
4549 } else if (sizeof(signed int) == 2) {
4550 arg2 = amglue_SvI16(ST(1));
4551 } else if (sizeof(signed int) == 4) {
4552 arg2 = amglue_SvI32(ST(1));
4553 } else if (sizeof(signed int) == 8) {
4554 arg2 = amglue_SvI64(ST(1));
4556 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
4559 result = (val_t *)pp_script_getconf(arg1,arg2);
4562 ST(argvi) = &PL_sv_undef;
4565 switch (result->type) {
4566 case CONFTYPE_RATE: {
4567 ST(argvi)= sv_newmortal();
4568 sv_setnv(ST(argvi), val_t__rate(result)[0]);
4571 ST(argvi)= sv_newmortal();
4572 sv_setnv(ST(argvi), val_t__rate(result)[1]);
4577 case CONFTYPE_INTRANGE: {
4578 ST(argvi)= sv_newmortal();
4579 sv_setiv(ST(argvi), val_t__intrange(result)[0]);
4582 ST(argvi)= sv_newmortal();
4583 sv_setiv(ST(argvi), val_t__intrange(result)[1]);
4588 case CONFTYPE_EXINCLUDE: {
4589 /* exincludes are represented in perl as {
4590 * 'list' : [ 'list1', 'list2', ..],
4591 * 'file' : [ 'file1', 'file2', ..],
4595 exinclude_t *ei = &val_t__exinclude(result);
4596 AV *list_entries = (AV *)sv_2mortal((SV *)newAV());
4597 AV *file_entries = (AV *)sv_2mortal((SV *)newAV());
4598 SV *optional = sv_newmortal();
4602 /* first set up each of the hash values */
4605 for (iter = ei->sl_list->first; iter != NULL; iter = iter->next) {
4606 av_push(list_entries, newSVpv(iter->name, 0));
4611 for (iter = ei->sl_file->first; iter != NULL; iter = iter->next) {
4612 av_push(file_entries, newSVpv(iter->name, 0));
4616 sv_setiv(optional, ei->optional);
4618 /* now build the hash */
4619 hv = (HV *)sv_2mortal((SV *)newHV());
4621 hv_store(hv, "file", 4, newRV((SV *)file_entries), 0);
4622 hv_store(hv, "list", 4, newRV((SV *)list_entries), 0);
4623 hv_store(hv, "optional", 8, optional, 0);
4624 SvREFCNT_inc(optional);
4626 ST(argvi) = sv_2mortal(newRV((SV *)hv));
4631 case CONFTYPE_PROPLIST:
4632 ST(argvi) = sv_2mortal(g_hash_table_to_hashref_property(val_t__proplist(result)));
4637 SP += argvi; PUTBACK;
4638 ST(argvi) = sv_2mortal(amglue_newSVi64(val_t__size(result)));
4639 SPAGAIN; SP -= argvi; argvi++;
4642 case CONFTYPE_INT64:
4643 SP += argvi; PUTBACK;
4644 ST(argvi) = sv_2mortal(amglue_newSVi64(val_t__int64(result)));
4645 SPAGAIN; SP -= argvi; argvi++;
4648 case CONFTYPE_BOOLEAN: /* all same as INT.. */
4649 case CONFTYPE_COMPRESS:
4650 case CONFTYPE_ENCRYPT:
4651 case CONFTYPE_STRATEGY:
4652 case CONFTYPE_TAPERALGO:
4653 case CONFTYPE_PRIORITY:
4654 case CONFTYPE_HOLDING:
4655 case CONFTYPE_EXECUTE_ON:
4656 case CONFTYPE_EXECUTE_WHERE:
4657 case CONFTYPE_SEND_AMREPORT_ON:
4658 case CONFTYPE_DATA_PATH:
4660 SP += argvi; PUTBACK;
4661 ST(argvi) = sv_2mortal(amglue_newSVi64(val_t__int(result)));
4662 SPAGAIN; SP -= argvi; argvi++;
4665 case CONFTYPE_ESTIMATELIST: {
4666 AV *elist = newAV();
4668 for (el=val_t__estimatelist(result); el != NULL; el = el->next) {
4669 av_push(elist, newSVuv(GPOINTER_TO_INT(el->data)));
4671 ST(argvi) = sv_2mortal(newRV_noinc((SV *)elist));
4677 SP += argvi; PUTBACK;
4678 ST(argvi) = sv_2mortal(amglue_newSVi64(val_t__time(result)));
4679 SPAGAIN; SP -= argvi; argvi++;
4683 ST(argvi) = sv_newmortal();
4684 sv_setnv(ST(argvi), val_t__real(result));
4688 case CONFTYPE_IDENT: /* same as STRING */
4690 case CONFTYPE_APPLICATION:
4691 ST(argvi) = sv_newmortal();
4692 sv_setpv(ST(argvi), val_t__str(result));
4696 case CONFTYPE_IDENTLIST: {
4697 AV *ilist = newAV();
4700 for (il=val_t__identlist(result); il != NULL; il = il->next) {
4701 av_push(ilist, newSVpv((char *)il->data, 0));
4704 ST(argvi) = sv_2mortal(newRV_noinc((SV *)ilist));
4709 case CONFTYPE_AUTOLABEL: {
4710 autolabel_t *autolabel = &val_t__autolabel(result);
4713 /* now build the hash */
4714 hv = (HV *)sv_2mortal((SV *)newHV());
4715 hv_store(hv, "template", 8,
4716 (autolabel->template)? newSVpv(autolabel->template, 0) : newSV(0),
4718 hv_store(hv, "other_config", 12,
4719 (autolabel->autolabel & AL_OTHER_CONFIG)? &PL_sv_yes : &PL_sv_no,
4721 hv_store(hv, "non_amanda", 10,
4722 (autolabel->autolabel & AL_NON_AMANDA)? &PL_sv_yes : &PL_sv_no,
4724 hv_store(hv, "volume_error", 12,
4725 (autolabel->autolabel & AL_VOLUME_ERROR)? &PL_sv_yes : &PL_sv_no,
4727 hv_store(hv, "empty", 5,
4728 (autolabel->autolabel & AL_EMPTY)? &PL_sv_yes : &PL_sv_no,
4731 ST(argvi) = sv_2mortal(newRV((SV *)hv));
4736 /* No match yet -> not one of the "complex" types */
4738 SWIG_exception(SWIG_TypeError, "Unknown val_t conftype");
4754 XS(_wrap_pp_script_name) {
4756 pp_script_t *arg1 = (pp_script_t *) 0 ;
4763 if ((items < 1) || (items > 1)) {
4764 SWIG_croak("Usage: pp_script_name(pps);");
4766 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_pp_script_t, 0 | 0 );
4767 if (!SWIG_IsOK(res1)) {
4768 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "pp_script_name" "', argument " "1"" of type '" "pp_script_t *""'");
4770 arg1 = (pp_script_t *)(argp1);
4771 result = (char *)pp_script_name(arg1);
4772 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
4782 XS(_wrap_pp_script_seen) {
4784 pp_script_t *arg1 = (pp_script_t *) 0 ;
4785 pp_script_key arg2 ;
4792 if ((items < 2) || (items > 2)) {
4793 SWIG_croak("Usage: pp_script_seen(app,key);");
4795 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_pp_script_t, 0 | 0 );
4796 if (!SWIG_IsOK(res1)) {
4797 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "pp_script_seen" "', argument " "1"" of type '" "pp_script_t *""'");
4799 arg1 = (pp_script_t *)(argp1);
4801 if (sizeof(signed int) == 1) {
4802 arg2 = amglue_SvI8(ST(1));
4803 } else if (sizeof(signed int) == 2) {
4804 arg2 = amglue_SvI16(ST(1));
4805 } else if (sizeof(signed int) == 4) {
4806 arg2 = amglue_SvI32(ST(1));
4807 } else if (sizeof(signed int) == 8) {
4808 arg2 = amglue_SvI64(ST(1));
4810 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
4813 result = (gboolean)pp_script_seen(arg1,arg2);
4816 ST(argvi) = &PL_sv_yes;
4818 ST(argvi) = &PL_sv_no;
4832 XS(_wrap_lookup_device_config) {
4834 char *arg1 = (char *) 0 ;
4839 device_config_t *result = 0 ;
4842 if ((items < 1) || (items > 1)) {
4843 SWIG_croak("Usage: lookup_device_config(identifier);");
4845 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
4846 if (!SWIG_IsOK(res1)) {
4847 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "lookup_device_config" "', argument " "1"" of type '" "char *""'");
4849 arg1 = (char *)(buf1);
4850 result = (device_config_t *)lookup_device_config(arg1);
4851 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_device_config_t, 0 | 0); argvi++ ;
4852 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
4855 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
4861 XS(_wrap_device_config_getconf) {
4863 device_config_t *arg1 = (device_config_t *) 0 ;
4864 device_config_key arg2 ;
4871 if ((items < 2) || (items > 2)) {
4872 SWIG_croak("Usage: device_config_getconf(pps,key);");
4874 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_device_config_t, 0 | 0 );
4875 if (!SWIG_IsOK(res1)) {
4876 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "device_config_getconf" "', argument " "1"" of type '" "device_config_t *""'");
4878 arg1 = (device_config_t *)(argp1);
4880 if (sizeof(signed int) == 1) {
4881 arg2 = amglue_SvI8(ST(1));
4882 } else if (sizeof(signed int) == 2) {
4883 arg2 = amglue_SvI16(ST(1));
4884 } else if (sizeof(signed int) == 4) {
4885 arg2 = amglue_SvI32(ST(1));
4886 } else if (sizeof(signed int) == 8) {
4887 arg2 = amglue_SvI64(ST(1));
4889 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
4892 result = (val_t *)device_config_getconf(arg1,arg2);
4895 ST(argvi) = &PL_sv_undef;
4898 switch (result->type) {
4899 case CONFTYPE_RATE: {
4900 ST(argvi)= sv_newmortal();
4901 sv_setnv(ST(argvi), val_t__rate(result)[0]);
4904 ST(argvi)= sv_newmortal();
4905 sv_setnv(ST(argvi), val_t__rate(result)[1]);
4910 case CONFTYPE_INTRANGE: {
4911 ST(argvi)= sv_newmortal();
4912 sv_setiv(ST(argvi), val_t__intrange(result)[0]);
4915 ST(argvi)= sv_newmortal();
4916 sv_setiv(ST(argvi), val_t__intrange(result)[1]);
4921 case CONFTYPE_EXINCLUDE: {
4922 /* exincludes are represented in perl as {
4923 * 'list' : [ 'list1', 'list2', ..],
4924 * 'file' : [ 'file1', 'file2', ..],
4928 exinclude_t *ei = &val_t__exinclude(result);
4929 AV *list_entries = (AV *)sv_2mortal((SV *)newAV());
4930 AV *file_entries = (AV *)sv_2mortal((SV *)newAV());
4931 SV *optional = sv_newmortal();
4935 /* first set up each of the hash values */
4938 for (iter = ei->sl_list->first; iter != NULL; iter = iter->next) {
4939 av_push(list_entries, newSVpv(iter->name, 0));
4944 for (iter = ei->sl_file->first; iter != NULL; iter = iter->next) {
4945 av_push(file_entries, newSVpv(iter->name, 0));
4949 sv_setiv(optional, ei->optional);
4951 /* now build the hash */
4952 hv = (HV *)sv_2mortal((SV *)newHV());
4954 hv_store(hv, "file", 4, newRV((SV *)file_entries), 0);
4955 hv_store(hv, "list", 4, newRV((SV *)list_entries), 0);
4956 hv_store(hv, "optional", 8, optional, 0);
4957 SvREFCNT_inc(optional);
4959 ST(argvi) = sv_2mortal(newRV((SV *)hv));
4964 case CONFTYPE_PROPLIST:
4965 ST(argvi) = sv_2mortal(g_hash_table_to_hashref_property(val_t__proplist(result)));
4970 SP += argvi; PUTBACK;
4971 ST(argvi) = sv_2mortal(amglue_newSVi64(val_t__size(result)));
4972 SPAGAIN; SP -= argvi; argvi++;
4975 case CONFTYPE_INT64:
4976 SP += argvi; PUTBACK;
4977 ST(argvi) = sv_2mortal(amglue_newSVi64(val_t__int64(result)));
4978 SPAGAIN; SP -= argvi; argvi++;
4981 case CONFTYPE_BOOLEAN: /* all same as INT.. */
4982 case CONFTYPE_COMPRESS:
4983 case CONFTYPE_ENCRYPT:
4984 case CONFTYPE_STRATEGY:
4985 case CONFTYPE_TAPERALGO:
4986 case CONFTYPE_PRIORITY:
4987 case CONFTYPE_HOLDING:
4988 case CONFTYPE_EXECUTE_ON:
4989 case CONFTYPE_EXECUTE_WHERE:
4990 case CONFTYPE_SEND_AMREPORT_ON:
4991 case CONFTYPE_DATA_PATH:
4993 SP += argvi; PUTBACK;
4994 ST(argvi) = sv_2mortal(amglue_newSVi64(val_t__int(result)));
4995 SPAGAIN; SP -= argvi; argvi++;
4998 case CONFTYPE_ESTIMATELIST: {
4999 AV *elist = newAV();
5001 for (el=val_t__estimatelist(result); el != NULL; el = el->next) {
5002 av_push(elist, newSVuv(GPOINTER_TO_INT(el->data)));
5004 ST(argvi) = sv_2mortal(newRV_noinc((SV *)elist));
5010 SP += argvi; PUTBACK;
5011 ST(argvi) = sv_2mortal(amglue_newSVi64(val_t__time(result)));
5012 SPAGAIN; SP -= argvi; argvi++;
5016 ST(argvi) = sv_newmortal();
5017 sv_setnv(ST(argvi), val_t__real(result));
5021 case CONFTYPE_IDENT: /* same as STRING */
5023 case CONFTYPE_APPLICATION:
5024 ST(argvi) = sv_newmortal();
5025 sv_setpv(ST(argvi), val_t__str(result));
5029 case CONFTYPE_IDENTLIST: {
5030 AV *ilist = newAV();
5033 for (il=val_t__identlist(result); il != NULL; il = il->next) {
5034 av_push(ilist, newSVpv((char *)il->data, 0));
5037 ST(argvi) = sv_2mortal(newRV_noinc((SV *)ilist));
5042 case CONFTYPE_AUTOLABEL: {
5043 autolabel_t *autolabel = &val_t__autolabel(result);
5046 /* now build the hash */
5047 hv = (HV *)sv_2mortal((SV *)newHV());
5048 hv_store(hv, "template", 8,
5049 (autolabel->template)? newSVpv(autolabel->template, 0) : newSV(0),
5051 hv_store(hv, "other_config", 12,
5052 (autolabel->autolabel & AL_OTHER_CONFIG)? &PL_sv_yes : &PL_sv_no,
5054 hv_store(hv, "non_amanda", 10,
5055 (autolabel->autolabel & AL_NON_AMANDA)? &PL_sv_yes : &PL_sv_no,
5057 hv_store(hv, "volume_error", 12,
5058 (autolabel->autolabel & AL_VOLUME_ERROR)? &PL_sv_yes : &PL_sv_no,
5060 hv_store(hv, "empty", 5,
5061 (autolabel->autolabel & AL_EMPTY)? &PL_sv_yes : &PL_sv_no,
5064 ST(argvi) = sv_2mortal(newRV((SV *)hv));
5069 /* No match yet -> not one of the "complex" types */
5071 SWIG_exception(SWIG_TypeError, "Unknown val_t conftype");
5087 XS(_wrap_device_config_name) {
5089 device_config_t *arg1 = (device_config_t *) 0 ;
5096 if ((items < 1) || (items > 1)) {
5097 SWIG_croak("Usage: device_config_name(pps);");
5099 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_device_config_t, 0 | 0 );
5100 if (!SWIG_IsOK(res1)) {
5101 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "device_config_name" "', argument " "1"" of type '" "device_config_t *""'");
5103 arg1 = (device_config_t *)(argp1);
5104 result = (char *)device_config_name(arg1);
5105 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
5115 XS(_wrap_device_config_seen) {
5117 device_config_t *arg1 = (device_config_t *) 0 ;
5118 device_config_key arg2 ;
5125 if ((items < 2) || (items > 2)) {
5126 SWIG_croak("Usage: device_config_seen(app,key);");
5128 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_device_config_t, 0 | 0 );
5129 if (!SWIG_IsOK(res1)) {
5130 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "device_config_seen" "', argument " "1"" of type '" "device_config_t *""'");
5132 arg1 = (device_config_t *)(argp1);
5134 if (sizeof(signed int) == 1) {
5135 arg2 = amglue_SvI8(ST(1));
5136 } else if (sizeof(signed int) == 2) {
5137 arg2 = amglue_SvI16(ST(1));
5138 } else if (sizeof(signed int) == 4) {
5139 arg2 = amglue_SvI32(ST(1));
5140 } else if (sizeof(signed int) == 8) {
5141 arg2 = amglue_SvI64(ST(1));
5143 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
5146 result = (gboolean)device_config_seen(arg1,arg2);
5149 ST(argvi) = &PL_sv_yes;
5151 ST(argvi) = &PL_sv_no;
5165 XS(_wrap_lookup_changer_config) {
5167 char *arg1 = (char *) 0 ;
5172 changer_config_t *result = 0 ;
5175 if ((items < 1) || (items > 1)) {
5176 SWIG_croak("Usage: lookup_changer_config(identifier);");
5178 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
5179 if (!SWIG_IsOK(res1)) {
5180 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "lookup_changer_config" "', argument " "1"" of type '" "char *""'");
5182 arg1 = (char *)(buf1);
5183 result = (changer_config_t *)lookup_changer_config(arg1);
5184 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_changer_config_t, 0 | 0); argvi++ ;
5185 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
5188 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
5194 XS(_wrap_changer_config_getconf) {
5196 changer_config_t *arg1 = (changer_config_t *) 0 ;
5197 changer_config_key arg2 ;
5204 if ((items < 2) || (items > 2)) {
5205 SWIG_croak("Usage: changer_config_getconf(pps,key);");
5207 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_changer_config_t, 0 | 0 );
5208 if (!SWIG_IsOK(res1)) {
5209 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "changer_config_getconf" "', argument " "1"" of type '" "changer_config_t *""'");
5211 arg1 = (changer_config_t *)(argp1);
5213 if (sizeof(signed int) == 1) {
5214 arg2 = amglue_SvI8(ST(1));
5215 } else if (sizeof(signed int) == 2) {
5216 arg2 = amglue_SvI16(ST(1));
5217 } else if (sizeof(signed int) == 4) {
5218 arg2 = amglue_SvI32(ST(1));
5219 } else if (sizeof(signed int) == 8) {
5220 arg2 = amglue_SvI64(ST(1));
5222 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
5225 result = (val_t *)changer_config_getconf(arg1,arg2);
5228 ST(argvi) = &PL_sv_undef;
5231 switch (result->type) {
5232 case CONFTYPE_RATE: {
5233 ST(argvi)= sv_newmortal();
5234 sv_setnv(ST(argvi), val_t__rate(result)[0]);
5237 ST(argvi)= sv_newmortal();
5238 sv_setnv(ST(argvi), val_t__rate(result)[1]);
5243 case CONFTYPE_INTRANGE: {
5244 ST(argvi)= sv_newmortal();
5245 sv_setiv(ST(argvi), val_t__intrange(result)[0]);
5248 ST(argvi)= sv_newmortal();
5249 sv_setiv(ST(argvi), val_t__intrange(result)[1]);
5254 case CONFTYPE_EXINCLUDE: {
5255 /* exincludes are represented in perl as {
5256 * 'list' : [ 'list1', 'list2', ..],
5257 * 'file' : [ 'file1', 'file2', ..],
5261 exinclude_t *ei = &val_t__exinclude(result);
5262 AV *list_entries = (AV *)sv_2mortal((SV *)newAV());
5263 AV *file_entries = (AV *)sv_2mortal((SV *)newAV());
5264 SV *optional = sv_newmortal();
5268 /* first set up each of the hash values */
5271 for (iter = ei->sl_list->first; iter != NULL; iter = iter->next) {
5272 av_push(list_entries, newSVpv(iter->name, 0));
5277 for (iter = ei->sl_file->first; iter != NULL; iter = iter->next) {
5278 av_push(file_entries, newSVpv(iter->name, 0));
5282 sv_setiv(optional, ei->optional);
5284 /* now build the hash */
5285 hv = (HV *)sv_2mortal((SV *)newHV());
5287 hv_store(hv, "file", 4, newRV((SV *)file_entries), 0);
5288 hv_store(hv, "list", 4, newRV((SV *)list_entries), 0);
5289 hv_store(hv, "optional", 8, optional, 0);
5290 SvREFCNT_inc(optional);
5292 ST(argvi) = sv_2mortal(newRV((SV *)hv));
5297 case CONFTYPE_PROPLIST:
5298 ST(argvi) = sv_2mortal(g_hash_table_to_hashref_property(val_t__proplist(result)));
5303 SP += argvi; PUTBACK;
5304 ST(argvi) = sv_2mortal(amglue_newSVi64(val_t__size(result)));
5305 SPAGAIN; SP -= argvi; argvi++;
5308 case CONFTYPE_INT64:
5309 SP += argvi; PUTBACK;
5310 ST(argvi) = sv_2mortal(amglue_newSVi64(val_t__int64(result)));
5311 SPAGAIN; SP -= argvi; argvi++;
5314 case CONFTYPE_BOOLEAN: /* all same as INT.. */
5315 case CONFTYPE_COMPRESS:
5316 case CONFTYPE_ENCRYPT:
5317 case CONFTYPE_STRATEGY:
5318 case CONFTYPE_TAPERALGO:
5319 case CONFTYPE_PRIORITY:
5320 case CONFTYPE_HOLDING:
5321 case CONFTYPE_EXECUTE_ON:
5322 case CONFTYPE_EXECUTE_WHERE:
5323 case CONFTYPE_SEND_AMREPORT_ON:
5324 case CONFTYPE_DATA_PATH:
5326 SP += argvi; PUTBACK;
5327 ST(argvi) = sv_2mortal(amglue_newSVi64(val_t__int(result)));
5328 SPAGAIN; SP -= argvi; argvi++;
5331 case CONFTYPE_ESTIMATELIST: {
5332 AV *elist = newAV();
5334 for (el=val_t__estimatelist(result); el != NULL; el = el->next) {
5335 av_push(elist, newSVuv(GPOINTER_TO_INT(el->data)));
5337 ST(argvi) = sv_2mortal(newRV_noinc((SV *)elist));
5343 SP += argvi; PUTBACK;
5344 ST(argvi) = sv_2mortal(amglue_newSVi64(val_t__time(result)));
5345 SPAGAIN; SP -= argvi; argvi++;
5349 ST(argvi) = sv_newmortal();
5350 sv_setnv(ST(argvi), val_t__real(result));
5354 case CONFTYPE_IDENT: /* same as STRING */
5356 case CONFTYPE_APPLICATION:
5357 ST(argvi) = sv_newmortal();
5358 sv_setpv(ST(argvi), val_t__str(result));
5362 case CONFTYPE_IDENTLIST: {
5363 AV *ilist = newAV();
5366 for (il=val_t__identlist(result); il != NULL; il = il->next) {
5367 av_push(ilist, newSVpv((char *)il->data, 0));
5370 ST(argvi) = sv_2mortal(newRV_noinc((SV *)ilist));
5375 case CONFTYPE_AUTOLABEL: {
5376 autolabel_t *autolabel = &val_t__autolabel(result);
5379 /* now build the hash */
5380 hv = (HV *)sv_2mortal((SV *)newHV());
5381 hv_store(hv, "template", 8,
5382 (autolabel->template)? newSVpv(autolabel->template, 0) : newSV(0),
5384 hv_store(hv, "other_config", 12,
5385 (autolabel->autolabel & AL_OTHER_CONFIG)? &PL_sv_yes : &PL_sv_no,
5387 hv_store(hv, "non_amanda", 10,
5388 (autolabel->autolabel & AL_NON_AMANDA)? &PL_sv_yes : &PL_sv_no,
5390 hv_store(hv, "volume_error", 12,
5391 (autolabel->autolabel & AL_VOLUME_ERROR)? &PL_sv_yes : &PL_sv_no,
5393 hv_store(hv, "empty", 5,
5394 (autolabel->autolabel & AL_EMPTY)? &PL_sv_yes : &PL_sv_no,
5397 ST(argvi) = sv_2mortal(newRV((SV *)hv));
5402 /* No match yet -> not one of the "complex" types */
5404 SWIG_exception(SWIG_TypeError, "Unknown val_t conftype");
5420 XS(_wrap_changer_config_name) {
5422 changer_config_t *arg1 = (changer_config_t *) 0 ;
5429 if ((items < 1) || (items > 1)) {
5430 SWIG_croak("Usage: changer_config_name(pps);");
5432 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_changer_config_t, 0 | 0 );
5433 if (!SWIG_IsOK(res1)) {
5434 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "changer_config_name" "', argument " "1"" of type '" "changer_config_t *""'");
5436 arg1 = (changer_config_t *)(argp1);
5437 result = (char *)changer_config_name(arg1);
5438 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
5448 XS(_wrap_changer_config_seen) {
5450 changer_config_t *arg1 = (changer_config_t *) 0 ;
5451 changer_config_key arg2 ;
5458 if ((items < 2) || (items > 2)) {
5459 SWIG_croak("Usage: changer_config_seen(app,key);");
5461 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_changer_config_t, 0 | 0 );
5462 if (!SWIG_IsOK(res1)) {
5463 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "changer_config_seen" "', argument " "1"" of type '" "changer_config_t *""'");
5465 arg1 = (changer_config_t *)(argp1);
5467 if (sizeof(signed int) == 1) {
5468 arg2 = amglue_SvI8(ST(1));
5469 } else if (sizeof(signed int) == 2) {
5470 arg2 = amglue_SvI16(ST(1));
5471 } else if (sizeof(signed int) == 4) {
5472 arg2 = amglue_SvI32(ST(1));
5473 } else if (sizeof(signed int) == 8) {
5474 arg2 = amglue_SvI64(ST(1));
5476 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
5479 result = (gboolean)changer_config_seen(arg1,arg2);
5482 ST(argvi) = &PL_sv_yes;
5484 ST(argvi) = &PL_sv_no;
5498 XS(_wrap_getconf_unit_divisor) {
5504 if ((items < 0) || (items > 0)) {
5505 SWIG_croak("Usage: getconf_unit_divisor();");
5507 result = (long)getconf_unit_divisor();
5510 SP += argvi; PUTBACK;
5511 for_stack = sv_2mortal(amglue_newSVi64(result));
5512 SPAGAIN; SP -= argvi;
5513 ST(argvi) = for_stack;
5523 XS(_wrap_config_init) {
5525 config_init_flags arg1 ;
5526 char *arg2 = (char *) 0 ;
5531 cfgerr_level_t result;
5534 if ((items < 2) || (items > 2)) {
5535 SWIG_croak("Usage: config_init(flags,arg_config_name);");
5538 if (sizeof(signed int) == 1) {
5539 arg1 = amglue_SvI8(ST(0));
5540 } else if (sizeof(signed int) == 2) {
5541 arg1 = amglue_SvI16(ST(0));
5542 } else if (sizeof(signed int) == 4) {
5543 arg1 = amglue_SvI32(ST(0));
5544 } else if (sizeof(signed int) == 8) {
5545 arg1 = amglue_SvI64(ST(0));
5547 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
5550 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
5551 if (!SWIG_IsOK(res2)) {
5552 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "config_init" "', argument " "2"" of type '" "char *""'");
5554 arg2 = (char *)(buf2);
5555 result = (cfgerr_level_t)config_init(arg1,arg2);
5558 SP += argvi; PUTBACK;
5559 for_stack = sv_2mortal(amglue_newSVi64(result));
5560 SPAGAIN; SP -= argvi;
5561 ST(argvi) = for_stack;
5565 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
5569 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
5575 XS(_wrap_config_uninit) {
5580 if ((items < 0) || (items > 0)) {
5581 SWIG_croak("Usage: config_uninit();");
5584 ST(argvi) = sv_newmortal();
5592 XS(_wrap_get_config_options) {
5599 if ((items < 1) || (items > 1)) {
5600 SWIG_croak("Usage: get_config_options(first);");
5603 if (sizeof(signed int) == 1) {
5604 arg1 = amglue_SvI8(ST(0));
5605 } else if (sizeof(signed int) == 2) {
5606 arg1 = amglue_SvI16(ST(0));
5607 } else if (sizeof(signed int) == 4) {
5608 arg1 = amglue_SvI32(ST(0));
5609 } else if (sizeof(signed int) == 8) {
5610 arg1 = amglue_SvI64(ST(0));
5612 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
5615 result = (char **)get_config_options(arg1);
5616 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_p_char, 0 | 0); argvi++ ;
5626 XS(_wrap_get_config_name) {
5632 if ((items < 0) || (items > 0)) {
5633 SWIG_croak("Usage: get_config_name();");
5635 result = (char *)get_config_name();
5636 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
5644 XS(_wrap_get_config_dir) {
5650 if ((items < 0) || (items > 0)) {
5651 SWIG_croak("Usage: get_config_dir();");
5653 result = (char *)get_config_dir();
5654 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
5662 XS(_wrap_get_config_filename) {
5668 if ((items < 0) || (items > 0)) {
5669 SWIG_croak("Usage: get_config_filename();");
5671 result = (char *)get_config_filename();
5672 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
5680 XS(_wrap_config_print_errors) {
5685 if ((items < 0) || (items > 0)) {
5686 SWIG_croak("Usage: config_print_errors();");
5688 config_print_errors();
5689 ST(argvi) = sv_newmortal();
5697 XS(_wrap_config_clear_errors) {
5702 if ((items < 0) || (items > 0)) {
5703 SWIG_croak("Usage: config_clear_errors();");
5705 config_clear_errors();
5706 ST(argvi) = sv_newmortal();
5714 XS(_wrap_config_errors) {
5716 GSList **arg1 = (GSList **) 0 ;
5719 cfgerr_level_t result;
5726 if ((items < 0) || (items > 0)) {
5727 SWIG_croak("Usage: config_errors();");
5729 result = (cfgerr_level_t)config_errors(arg1);
5732 SP += argvi; PUTBACK;
5733 for_stack = sv_2mortal(amglue_newSVi64(result));
5734 SPAGAIN; SP -= argvi;
5735 ST(argvi) = for_stack;
5742 ST(argvi) = sv_2mortal(newSVpv(it->data, 0));
5756 XS(_wrap_new_config_overrides) {
5760 config_overrides_t *result = 0 ;
5763 if ((items < 1) || (items > 1)) {
5764 SWIG_croak("Usage: new_config_overrides(size_estimate);");
5767 if (sizeof(signed int) == 1) {
5768 arg1 = amglue_SvI8(ST(0));
5769 } else if (sizeof(signed int) == 2) {
5770 arg1 = amglue_SvI16(ST(0));
5771 } else if (sizeof(signed int) == 4) {
5772 arg1 = amglue_SvI32(ST(0));
5773 } else if (sizeof(signed int) == 8) {
5774 arg1 = amglue_SvI64(ST(0));
5776 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
5779 result = (config_overrides_t *)new_config_overrides(arg1);
5780 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_config_overrides_t, 0 | 0); argvi++ ;
5790 XS(_wrap_free_config_overrides) {
5792 config_overrides_t *arg1 = (config_overrides_t *) 0 ;
5798 if ((items < 1) || (items > 1)) {
5799 SWIG_croak("Usage: free_config_overrides(co);");
5801 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_config_overrides_t, 0 | 0 );
5802 if (!SWIG_IsOK(res1)) {
5803 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "free_config_overrides" "', argument " "1"" of type '" "config_overrides_t *""'");
5805 arg1 = (config_overrides_t *)(argp1);
5806 free_config_overrides(arg1);
5807 ST(argvi) = sv_newmortal();
5817 XS(_wrap_add_config_override) {
5819 config_overrides_t *arg1 = (config_overrides_t *) 0 ;
5820 char *arg2 = (char *) 0 ;
5821 char *arg3 = (char *) 0 ;
5833 if ((items < 3) || (items > 3)) {
5834 SWIG_croak("Usage: add_config_override(co,key,value);");
5836 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_config_overrides_t, 0 | 0 );
5837 if (!SWIG_IsOK(res1)) {
5838 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "add_config_override" "', argument " "1"" of type '" "config_overrides_t *""'");
5840 arg1 = (config_overrides_t *)(argp1);
5841 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
5842 if (!SWIG_IsOK(res2)) {
5843 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "add_config_override" "', argument " "2"" of type '" "char *""'");
5845 arg2 = (char *)(buf2);
5846 res3 = SWIG_AsCharPtrAndSize(ST(2), &buf3, NULL, &alloc3);
5847 if (!SWIG_IsOK(res3)) {
5848 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "add_config_override" "', argument " "3"" of type '" "char *""'");
5850 arg3 = (char *)(buf3);
5851 add_config_override(arg1,arg2,arg3);
5852 ST(argvi) = sv_newmortal();
5854 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
5855 if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
5859 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
5860 if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
5866 XS(_wrap_add_config_override_opt) {
5868 config_overrides_t *arg1 = (config_overrides_t *) 0 ;
5869 char *arg2 = (char *) 0 ;
5878 if ((items < 2) || (items > 2)) {
5879 SWIG_croak("Usage: add_config_override_opt(co,optarg);");
5881 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_config_overrides_t, 0 | 0 );
5882 if (!SWIG_IsOK(res1)) {
5883 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "add_config_override_opt" "', argument " "1"" of type '" "config_overrides_t *""'");
5885 arg1 = (config_overrides_t *)(argp1);
5886 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
5887 if (!SWIG_IsOK(res2)) {
5888 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "add_config_override_opt" "', argument " "2"" of type '" "char *""'");
5890 arg2 = (char *)(buf2);
5891 add_config_override_opt(arg1,arg2);
5892 ST(argvi) = sv_newmortal();
5894 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
5898 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
5904 XS(_wrap_set_config_overrides) {
5906 config_overrides_t *arg1 = (config_overrides_t *) 0 ;
5912 if ((items < 1) || (items > 1)) {
5913 SWIG_croak("Usage: set_config_overrides(co);");
5915 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_config_overrides_t, 0 | 0 );
5916 if (!SWIG_IsOK(res1)) {
5917 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "set_config_overrides" "', argument " "1"" of type '" "config_overrides_t *""'");
5919 arg1 = (config_overrides_t *)(argp1);
5920 set_config_overrides(arg1);
5921 ST(argvi) = sv_newmortal();
5931 XS(_wrap_dump_configuration) {
5936 if ((items < 0) || (items > 0)) {
5937 SWIG_croak("Usage: dump_configuration();");
5939 dump_configuration();
5940 ST(argvi) = sv_newmortal();
5948 XS(_wrap_config_dir_relative) {
5950 char *arg1 = (char *) 0 ;
5958 if ((items < 1) || (items > 1)) {
5959 SWIG_croak("Usage: config_dir_relative(filename);");
5961 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
5962 if (!SWIG_IsOK(res1)) {
5963 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "config_dir_relative" "', argument " "1"" of type '" "char *""'");
5965 arg1 = (char *)(buf1);
5966 result = (char *)config_dir_relative(arg1);
5967 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
5968 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
5969 free((char*)result);
5972 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
5978 XS(_wrap_taperalgo2str) {
5985 if ((items < 1) || (items > 1)) {
5986 SWIG_croak("Usage: taperalgo2str(taperalgo);");
5989 if (sizeof(signed int) == 1) {
5990 arg1 = amglue_SvI8(ST(0));
5991 } else if (sizeof(signed int) == 2) {
5992 arg1 = amglue_SvI16(ST(0));
5993 } else if (sizeof(signed int) == 4) {
5994 arg1 = amglue_SvI32(ST(0));
5995 } else if (sizeof(signed int) == 8) {
5996 arg1 = amglue_SvI64(ST(0));
5998 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
6001 result = (char *)taperalgo2str(arg1);
6002 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
6012 XS(_wrap_find_multiplier) {
6014 char *arg1 = (char *) 0 ;
6022 if ((items < 1) || (items > 1)) {
6023 SWIG_croak("Usage: find_multiplier(casestr);");
6025 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
6026 if (!SWIG_IsOK(res1)) {
6027 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "find_multiplier" "', argument " "1"" of type '" "char *""'");
6029 arg1 = (char *)(buf1);
6030 result = find_multiplier(arg1);
6033 SP += argvi; PUTBACK;
6034 for_stack = sv_2mortal(amglue_newSVi64(result));
6035 SPAGAIN; SP -= argvi;
6036 ST(argvi) = for_stack;
6039 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
6042 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
6048 XS(_wrap_C_string_to_boolean) {
6050 char *arg1 = (char *) 0 ;
6058 if ((items < 1) || (items > 1)) {
6059 SWIG_croak("Usage: C_string_to_boolean(str);");
6061 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
6062 if (!SWIG_IsOK(res1)) {
6063 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "C_string_to_boolean" "', argument " "1"" of type '" "char const *""'");
6065 arg1 = (char *)(buf1);
6066 result = (int)string_to_boolean((char const *)arg1);
6069 SP += argvi; PUTBACK;
6070 for_stack = sv_2mortal(amglue_newSVi64(result));
6071 SPAGAIN; SP -= argvi;
6072 ST(argvi) = for_stack;
6075 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
6078 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
6085 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (BEGIN) -------- */
6087 static swig_type_info _swigt__p_application_t = {"_p_application_t", "application_t *", 0, 0, (void*)0, 0};
6088 static swig_type_info _swigt__p_changer_config_t = {"_p_changer_config_t", "changer_config_t *", 0, 0, (void*)0, 0};
6089 static swig_type_info _swigt__p_char = {"_p_char", "gchar *|char *", 0, 0, (void*)0, 0};
6090 static swig_type_info _swigt__p_config_overrides_t = {"_p_config_overrides_t", "config_overrides_t *", 0, 0, (void*)0, 0};
6091 static swig_type_info _swigt__p_device_config_t = {"_p_device_config_t", "device_config_t *", 0, 0, (void*)0, 0};
6092 static swig_type_info _swigt__p_double = {"_p_double", "double *|gdouble *", 0, 0, (void*)0, 0};
6093 static swig_type_info _swigt__p_dumptype_t = {"_p_dumptype_t", "dumptype_t *", 0, 0, (void*)0, 0};
6094 static swig_type_info _swigt__p_float = {"_p_float", "float *|gfloat *", 0, 0, (void*)0, 0};
6095 static swig_type_info _swigt__p_holdingdisk_t = {"_p_holdingdisk_t", "holdingdisk_t *", 0, 0, (void*)0, 0};
6096 static swig_type_info _swigt__p_int = {"_p_int", "application_key *|strategy_t *|pp_script_key *|int *|autolabel_enum_t *|comp_t *|dump_holdingdisk_t *|device_config_key *|changer_config_key *|confparm_key *|interface_key *|holdingdisk_key *|dumptype_key *|tapetype_key *|cfgerr_level_t *|encrypt_t *|taperalgo_t *|gboolean *|data_path_t *|execute_on_t *|send_amreport_on_t *|estimate_t *|config_init_flags *", 0, 0, (void*)0, 0};
6097 static swig_type_info _swigt__p_interface_t = {"_p_interface_t", "interface_t *", 0, 0, (void*)0, 0};
6098 static swig_type_info _swigt__p_p_GSList = {"_p_p_GSList", "GSList **", 0, 0, (void*)0, 0};
6099 static swig_type_info _swigt__p_p_char = {"_p_p_char", "char **", 0, 0, (void*)0, 0};
6100 static swig_type_info _swigt__p_pp_script_t = {"_p_pp_script_t", "pp_script_t *", 0, 0, (void*)0, 0};
6101 static swig_type_info _swigt__p_tapetype_t = {"_p_tapetype_t", "tapetype_t *", 0, 0, (void*)0, 0};
6102 static swig_type_info _swigt__p_unsigned_char = {"_p_unsigned_char", "guchar *|unsigned char *", 0, 0, (void*)0, 0};
6104 static swig_type_info *swig_type_initial[] = {
6105 &_swigt__p_application_t,
6106 &_swigt__p_changer_config_t,
6108 &_swigt__p_config_overrides_t,
6109 &_swigt__p_device_config_t,
6111 &_swigt__p_dumptype_t,
6113 &_swigt__p_holdingdisk_t,
6115 &_swigt__p_interface_t,
6116 &_swigt__p_p_GSList,
6118 &_swigt__p_pp_script_t,
6119 &_swigt__p_tapetype_t,
6120 &_swigt__p_unsigned_char,
6123 static swig_cast_info _swigc__p_application_t[] = { {&_swigt__p_application_t, 0, 0, 0},{0, 0, 0, 0}};
6124 static swig_cast_info _swigc__p_changer_config_t[] = { {&_swigt__p_changer_config_t, 0, 0, 0},{0, 0, 0, 0}};
6125 static swig_cast_info _swigc__p_char[] = { {&_swigt__p_char, 0, 0, 0},{0, 0, 0, 0}};
6126 static swig_cast_info _swigc__p_config_overrides_t[] = { {&_swigt__p_config_overrides_t, 0, 0, 0},{0, 0, 0, 0}};
6127 static swig_cast_info _swigc__p_device_config_t[] = { {&_swigt__p_device_config_t, 0, 0, 0},{0, 0, 0, 0}};
6128 static swig_cast_info _swigc__p_double[] = { {&_swigt__p_double, 0, 0, 0},{0, 0, 0, 0}};
6129 static swig_cast_info _swigc__p_dumptype_t[] = { {&_swigt__p_dumptype_t, 0, 0, 0},{0, 0, 0, 0}};
6130 static swig_cast_info _swigc__p_float[] = { {&_swigt__p_float, 0, 0, 0},{0, 0, 0, 0}};
6131 static swig_cast_info _swigc__p_holdingdisk_t[] = { {&_swigt__p_holdingdisk_t, 0, 0, 0},{0, 0, 0, 0}};
6132 static swig_cast_info _swigc__p_int[] = { {&_swigt__p_int, 0, 0, 0},{0, 0, 0, 0}};
6133 static swig_cast_info _swigc__p_interface_t[] = { {&_swigt__p_interface_t, 0, 0, 0},{0, 0, 0, 0}};
6134 static swig_cast_info _swigc__p_p_GSList[] = { {&_swigt__p_p_GSList, 0, 0, 0},{0, 0, 0, 0}};
6135 static swig_cast_info _swigc__p_p_char[] = { {&_swigt__p_p_char, 0, 0, 0},{0, 0, 0, 0}};
6136 static swig_cast_info _swigc__p_pp_script_t[] = { {&_swigt__p_pp_script_t, 0, 0, 0},{0, 0, 0, 0}};
6137 static swig_cast_info _swigc__p_tapetype_t[] = { {&_swigt__p_tapetype_t, 0, 0, 0},{0, 0, 0, 0}};
6138 static swig_cast_info _swigc__p_unsigned_char[] = { {&_swigt__p_unsigned_char, 0, 0, 0},{0, 0, 0, 0}};
6140 static swig_cast_info *swig_cast_initial[] = {
6141 _swigc__p_application_t,
6142 _swigc__p_changer_config_t,
6144 _swigc__p_config_overrides_t,
6145 _swigc__p_device_config_t,
6147 _swigc__p_dumptype_t,
6149 _swigc__p_holdingdisk_t,
6151 _swigc__p_interface_t,
6154 _swigc__p_pp_script_t,
6155 _swigc__p_tapetype_t,
6156 _swigc__p_unsigned_char,
6160 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (END) -------- */
6162 static swig_constant_info swig_constants[] = {
6168 static swig_variable_info swig_variables[] = {
6169 { "Amanda::Configc::debug_amandad", MAGIC_CLASS _wrap_debug_amandad_set, MAGIC_CLASS _wrap_debug_amandad_get,0 },
6170 { "Amanda::Configc::debug_recovery", MAGIC_CLASS _wrap_debug_recovery_set, MAGIC_CLASS _wrap_debug_recovery_get,0 },
6171 { "Amanda::Configc::debug_amidxtaped", MAGIC_CLASS _wrap_debug_amidxtaped_set, MAGIC_CLASS _wrap_debug_amidxtaped_get,0 },
6172 { "Amanda::Configc::debug_amindexd", MAGIC_CLASS _wrap_debug_amindexd_set, MAGIC_CLASS _wrap_debug_amindexd_get,0 },
6173 { "Amanda::Configc::debug_amrecover", MAGIC_CLASS _wrap_debug_amrecover_set, MAGIC_CLASS _wrap_debug_amrecover_get,0 },
6174 { "Amanda::Configc::debug_auth", MAGIC_CLASS _wrap_debug_auth_set, MAGIC_CLASS _wrap_debug_auth_get,0 },
6175 { "Amanda::Configc::debug_event", MAGIC_CLASS _wrap_debug_event_set, MAGIC_CLASS _wrap_debug_event_get,0 },
6176 { "Amanda::Configc::debug_holding", MAGIC_CLASS _wrap_debug_holding_set, MAGIC_CLASS _wrap_debug_holding_get,0 },
6177 { "Amanda::Configc::debug_protocol", MAGIC_CLASS _wrap_debug_protocol_set, MAGIC_CLASS _wrap_debug_protocol_get,0 },
6178 { "Amanda::Configc::debug_planner", MAGIC_CLASS _wrap_debug_planner_set, MAGIC_CLASS _wrap_debug_planner_get,0 },
6179 { "Amanda::Configc::debug_driver", MAGIC_CLASS _wrap_debug_driver_set, MAGIC_CLASS _wrap_debug_driver_get,0 },
6180 { "Amanda::Configc::debug_dumper", MAGIC_CLASS _wrap_debug_dumper_set, MAGIC_CLASS _wrap_debug_dumper_get,0 },
6181 { "Amanda::Configc::debug_chunker", MAGIC_CLASS _wrap_debug_chunker_set, MAGIC_CLASS _wrap_debug_chunker_get,0 },
6182 { "Amanda::Configc::debug_taper", MAGIC_CLASS _wrap_debug_taper_set, MAGIC_CLASS _wrap_debug_taper_get,0 },
6183 { "Amanda::Configc::debug_selfcheck", MAGIC_CLASS _wrap_debug_selfcheck_set, MAGIC_CLASS _wrap_debug_selfcheck_get,0 },
6184 { "Amanda::Configc::debug_sendsize", MAGIC_CLASS _wrap_debug_sendsize_set, MAGIC_CLASS _wrap_debug_sendsize_get,0 },
6185 { "Amanda::Configc::debug_sendbackup", MAGIC_CLASS _wrap_debug_sendbackup_set, MAGIC_CLASS _wrap_debug_sendbackup_get,0 },
6188 static swig_command_info swig_commands[] = {
6189 {"Amanda::Configc::data_path_from_string", _wrap_data_path_from_string},
6190 {"Amanda::Configc::getconf", _wrap_getconf},
6191 {"Amanda::Configc::getconf_seen", _wrap_getconf_seen},
6192 {"Amanda::Configc::getconf_linenum", _wrap_getconf_linenum},
6193 {"Amanda::Configc::getconf_byname", _wrap_getconf_byname},
6194 {"Amanda::Configc::getconf_list", _wrap_getconf_list},
6195 {"Amanda::Configc::getconf_byname_strs", _wrap_getconf_byname_strs},
6196 {"Amanda::Configc::lookup_tapetype", _wrap_lookup_tapetype},
6197 {"Amanda::Configc::tapetype_getconf", _wrap_tapetype_getconf},
6198 {"Amanda::Configc::tapetype_name", _wrap_tapetype_name},
6199 {"Amanda::Configc::tapetype_seen", _wrap_tapetype_seen},
6200 {"Amanda::Configc::lookup_dumptype", _wrap_lookup_dumptype},
6201 {"Amanda::Configc::dumptype_getconf", _wrap_dumptype_getconf},
6202 {"Amanda::Configc::dumptype_name", _wrap_dumptype_name},
6203 {"Amanda::Configc::dumptype_seen", _wrap_dumptype_seen},
6204 {"Amanda::Configc::lookup_interface", _wrap_lookup_interface},
6205 {"Amanda::Configc::interface_getconf", _wrap_interface_getconf},
6206 {"Amanda::Configc::interface_name", _wrap_interface_name},
6207 {"Amanda::Configc::interface_seen", _wrap_interface_seen},
6208 {"Amanda::Configc::lookup_holdingdisk", _wrap_lookup_holdingdisk},
6209 {"Amanda::Configc::getconf_holdingdisks", _wrap_getconf_holdingdisks},
6210 {"Amanda::Configc::holdingdisk_getconf", _wrap_holdingdisk_getconf},
6211 {"Amanda::Configc::holdingdisk_name", _wrap_holdingdisk_name},
6212 {"Amanda::Configc::holdingdisk_seen", _wrap_holdingdisk_seen},
6213 {"Amanda::Configc::lookup_application", _wrap_lookup_application},
6214 {"Amanda::Configc::application_getconf", _wrap_application_getconf},
6215 {"Amanda::Configc::application_name", _wrap_application_name},
6216 {"Amanda::Configc::application_seen", _wrap_application_seen},
6217 {"Amanda::Configc::lookup_pp_script", _wrap_lookup_pp_script},
6218 {"Amanda::Configc::pp_script_getconf", _wrap_pp_script_getconf},
6219 {"Amanda::Configc::pp_script_name", _wrap_pp_script_name},
6220 {"Amanda::Configc::pp_script_seen", _wrap_pp_script_seen},
6221 {"Amanda::Configc::lookup_device_config", _wrap_lookup_device_config},
6222 {"Amanda::Configc::device_config_getconf", _wrap_device_config_getconf},
6223 {"Amanda::Configc::device_config_name", _wrap_device_config_name},
6224 {"Amanda::Configc::device_config_seen", _wrap_device_config_seen},
6225 {"Amanda::Configc::lookup_changer_config", _wrap_lookup_changer_config},
6226 {"Amanda::Configc::changer_config_getconf", _wrap_changer_config_getconf},
6227 {"Amanda::Configc::changer_config_name", _wrap_changer_config_name},
6228 {"Amanda::Configc::changer_config_seen", _wrap_changer_config_seen},
6229 {"Amanda::Configc::getconf_unit_divisor", _wrap_getconf_unit_divisor},
6230 {"Amanda::Configc::config_init", _wrap_config_init},
6231 {"Amanda::Configc::config_uninit", _wrap_config_uninit},
6232 {"Amanda::Configc::get_config_options", _wrap_get_config_options},
6233 {"Amanda::Configc::get_config_name", _wrap_get_config_name},
6234 {"Amanda::Configc::get_config_dir", _wrap_get_config_dir},
6235 {"Amanda::Configc::get_config_filename", _wrap_get_config_filename},
6236 {"Amanda::Configc::config_print_errors", _wrap_config_print_errors},
6237 {"Amanda::Configc::config_clear_errors", _wrap_config_clear_errors},
6238 {"Amanda::Configc::config_errors", _wrap_config_errors},
6239 {"Amanda::Configc::new_config_overrides", _wrap_new_config_overrides},
6240 {"Amanda::Configc::free_config_overrides", _wrap_free_config_overrides},
6241 {"Amanda::Configc::add_config_override", _wrap_add_config_override},
6242 {"Amanda::Configc::add_config_override_opt", _wrap_add_config_override_opt},
6243 {"Amanda::Configc::set_config_overrides", _wrap_set_config_overrides},
6244 {"Amanda::Configc::dump_configuration", _wrap_dump_configuration},
6245 {"Amanda::Configc::config_dir_relative", _wrap_config_dir_relative},
6246 {"Amanda::Configc::taperalgo2str", _wrap_taperalgo2str},
6247 {"Amanda::Configc::find_multiplier", _wrap_find_multiplier},
6248 {"Amanda::Configc::C_string_to_boolean", _wrap_C_string_to_boolean},
6251 /* -----------------------------------------------------------------------------
6252 * Type initialization:
6253 * This problem is tough by the requirement that no dynamic
6254 * memory is used. Also, since swig_type_info structures store pointers to
6255 * swig_cast_info structures and swig_cast_info structures store pointers back
6256 * to swig_type_info structures, we need some lookup code at initialization.
6257 * The idea is that swig generates all the structures that are needed.
6258 * The runtime then collects these partially filled structures.
6259 * The SWIG_InitializeModule function takes these initial arrays out of
6260 * swig_module, and does all the lookup, filling in the swig_module.types
6261 * array with the correct data and linking the correct swig_cast_info
6262 * structures together.
6264 * The generated swig_type_info structures are assigned staticly to an initial
6265 * array. We just loop through that array, and handle each type individually.
6266 * First we lookup if this type has been already loaded, and if so, use the
6267 * loaded structure instead of the generated one. Then we have to fill in the
6268 * cast linked list. The cast data is initially stored in something like a
6269 * two-dimensional array. Each row corresponds to a type (there are the same
6270 * number of rows as there are in the swig_type_initial array). Each entry in
6271 * a column is one of the swig_cast_info structures for that type.
6272 * The cast_initial array is actually an array of arrays, because each row has
6273 * a variable number of columns. So to actually build the cast linked list,
6274 * we find the array of casts associated with the type, and loop through it
6275 * adding the casts to the list. The one last trick we need to do is making
6276 * sure the type pointer in the swig_cast_info struct is correct.
6278 * First off, we lookup the cast->type name to see if it is already loaded.
6279 * There are three cases to handle:
6280 * 1) If the cast->type has already been loaded AND the type we are adding
6281 * casting info to has not been loaded (it is in this module), THEN we
6282 * replace the cast->type pointer with the type pointer that has already
6284 * 2) If BOTH types (the one we are adding casting info to, and the
6285 * cast->type) are loaded, THEN the cast info has already been loaded by
6286 * the previous module so we just ignore it.
6287 * 3) Finally, if cast->type has not already been loaded, then we add that
6288 * swig_cast_info to the linked list (because the cast->type) pointer will
6290 * ----------------------------------------------------------------------------- */
6300 #define SWIGRUNTIME_DEBUG
6305 SWIG_InitializeModule(void *clientdata) {
6307 swig_module_info *module_head, *iter;
6310 clientdata = clientdata;
6312 /* check to see if the circular list has been setup, if not, set it up */
6313 if (swig_module.next==0) {
6314 /* Initialize the swig_module */
6315 swig_module.type_initial = swig_type_initial;
6316 swig_module.cast_initial = swig_cast_initial;
6317 swig_module.next = &swig_module;
6323 /* Try and load any already created modules */
6324 module_head = SWIG_GetModule(clientdata);
6326 /* This is the first module loaded for this interpreter */
6327 /* so set the swig module into the interpreter */
6328 SWIG_SetModule(clientdata, &swig_module);
6329 module_head = &swig_module;
6331 /* the interpreter has loaded a SWIG module, but has it loaded this one? */
6335 if (iter==&swig_module) {
6340 } while (iter!= module_head);
6342 /* if the is found in the list, then all is done and we may leave */
6344 /* otherwise we must add out module into the list */
6345 swig_module.next = module_head->next;
6346 module_head->next = &swig_module;
6349 /* When multiple interpeters are used, a module could have already been initialized in
6350 a different interpreter, but not yet have a pointer in this interpreter.
6351 In this case, we do not want to continue adding types... everything should be
6353 if (init == 0) return;
6355 /* Now work on filling in swig_module.types */
6356 #ifdef SWIGRUNTIME_DEBUG
6357 printf("SWIG_InitializeModule: size %d\n", swig_module.size);
6359 for (i = 0; i < swig_module.size; ++i) {
6360 swig_type_info *type = 0;
6361 swig_type_info *ret;
6362 swig_cast_info *cast;
6364 #ifdef SWIGRUNTIME_DEBUG
6365 printf("SWIG_InitializeModule: type %d %s\n", i, swig_module.type_initial[i]->name);
6368 /* if there is another module already loaded */
6369 if (swig_module.next != &swig_module) {
6370 type = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, swig_module.type_initial[i]->name);
6373 /* Overwrite clientdata field */
6374 #ifdef SWIGRUNTIME_DEBUG
6375 printf("SWIG_InitializeModule: found type %s\n", type->name);
6377 if (swig_module.type_initial[i]->clientdata) {
6378 type->clientdata = swig_module.type_initial[i]->clientdata;
6379 #ifdef SWIGRUNTIME_DEBUG
6380 printf("SWIG_InitializeModule: found and overwrite type %s \n", type->name);
6384 type = swig_module.type_initial[i];
6387 /* Insert casting types */
6388 cast = swig_module.cast_initial[i];
6389 while (cast->type) {
6390 /* Don't need to add information already in the list */
6392 #ifdef SWIGRUNTIME_DEBUG
6393 printf("SWIG_InitializeModule: look cast %s\n", cast->type->name);
6395 if (swig_module.next != &swig_module) {
6396 ret = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, cast->type->name);
6397 #ifdef SWIGRUNTIME_DEBUG
6398 if (ret) printf("SWIG_InitializeModule: found cast %s\n", ret->name);
6402 if (type == swig_module.type_initial[i]) {
6403 #ifdef SWIGRUNTIME_DEBUG
6404 printf("SWIG_InitializeModule: skip old type %s\n", ret->name);
6409 /* Check for casting already in the list */
6410 swig_cast_info *ocast = SWIG_TypeCheck(ret->name, type);
6411 #ifdef SWIGRUNTIME_DEBUG
6412 if (ocast) printf("SWIG_InitializeModule: skip old cast %s\n", ret->name);
6414 if (!ocast) ret = 0;
6419 #ifdef SWIGRUNTIME_DEBUG
6420 printf("SWIG_InitializeModule: adding cast %s\n", cast->type->name);
6423 type->cast->prev = cast;
6424 cast->next = type->cast;
6430 /* Set entry in modules->types array equal to the type */
6431 swig_module.types[i] = type;
6433 swig_module.types[i] = 0;
6435 #ifdef SWIGRUNTIME_DEBUG
6436 printf("**** SWIG_InitializeModule: Cast List ******\n");
6437 for (i = 0; i < swig_module.size; ++i) {
6439 swig_cast_info *cast = swig_module.cast_initial[i];
6440 printf("SWIG_InitializeModule: type %d %s\n", i, swig_module.type_initial[i]->name);
6441 while (cast->type) {
6442 printf("SWIG_InitializeModule: cast type %s\n", cast->type->name);
6446 printf("---- Total casts: %d\n",j);
6448 printf("**** SWIG_InitializeModule: Cast List ******\n");
6452 /* This function will propagate the clientdata field of type to
6453 * any new swig_type_info structures that have been added into the list
6454 * of equivalent types. It is like calling
6455 * SWIG_TypeClientData(type, clientdata) a second time.
6458 SWIG_PropagateClientData(void) {
6460 swig_cast_info *equiv;
6461 static int init_run = 0;
6463 if (init_run) return;
6466 for (i = 0; i < swig_module.size; i++) {
6467 if (swig_module.types[i]->clientdata) {
6468 equiv = swig_module.types[i]->cast;
6470 if (!equiv->converter) {
6471 if (equiv->type && !equiv->type->clientdata)
6472 SWIG_TypeClientData(equiv->type, swig_module.types[i]->clientdata);
6474 equiv = equiv->next;
6498 SWIG_InitializeModule(0);
6500 /* Install commands */
6501 for (i = 0; swig_commands[i].name; i++) {
6502 newXS((char*) swig_commands[i].name,swig_commands[i].wrapper, (char*)__FILE__);
6505 /* Install variables */
6506 for (i = 0; swig_variables[i].name; i++) {
6508 sv = get_sv((char*) swig_variables[i].name, TRUE | 0x2 | GV_ADDMULTI);
6509 if (swig_variables[i].type) {
6510 SWIG_MakePtr(sv,(void *)1, *swig_variables[i].type,0);
6512 sv_setiv(sv,(IV) 0);
6514 swig_create_magic(sv, (char *) swig_variables[i].name, swig_variables[i].set, swig_variables[i].get);
6517 /* Install constant */
6518 for (i = 0; swig_constants[i].type; i++) {
6520 sv = get_sv((char*)swig_constants[i].name, TRUE | 0x2 | GV_ADDMULTI);
6521 switch(swig_constants[i].type) {
6523 sv_setiv(sv, (IV) swig_constants[i].lvalue);
6526 sv_setnv(sv, (double) swig_constants[i].dvalue);
6529 sv_setpv(sv, (char *) swig_constants[i].pvalue);
6532 SWIG_MakePtr(sv, swig_constants[i].pvalue, *(swig_constants[i].ptype),0);
6535 SWIG_MakePackedObj(sv, swig_constants[i].pvalue, swig_constants[i].lvalue, *(swig_constants[i].ptype));
6543 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6544 SV *sv = get_sv((char*) SWIG_prefix "CNF_ORG", TRUE | 0x2 | GV_ADDMULTI);
6545 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_ORG)));
6547 } while(0) /*@SWIG@*/;
6548 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6549 SV *sv = get_sv((char*) SWIG_prefix "CNF_CONF", TRUE | 0x2 | GV_ADDMULTI);
6550 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_CONF)));
6552 } while(0) /*@SWIG@*/;
6553 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6554 SV *sv = get_sv((char*) SWIG_prefix "CNF_INDEX_SERVER", TRUE | 0x2 | GV_ADDMULTI);
6555 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_INDEX_SERVER)));
6557 } while(0) /*@SWIG@*/;
6558 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6559 SV *sv = get_sv((char*) SWIG_prefix "CNF_TAPE_SERVER", TRUE | 0x2 | GV_ADDMULTI);
6560 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_TAPE_SERVER)));
6562 } while(0) /*@SWIG@*/;
6563 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6564 SV *sv = get_sv((char*) SWIG_prefix "CNF_AUTH", TRUE | 0x2 | GV_ADDMULTI);
6565 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_AUTH)));
6567 } while(0) /*@SWIG@*/;
6568 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6569 SV *sv = get_sv((char*) SWIG_prefix "CNF_SSH_KEYS", TRUE | 0x2 | GV_ADDMULTI);
6570 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_SSH_KEYS)));
6572 } while(0) /*@SWIG@*/;
6573 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6574 SV *sv = get_sv((char*) SWIG_prefix "CNF_AMANDAD_PATH", TRUE | 0x2 | GV_ADDMULTI);
6575 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_AMANDAD_PATH)));
6577 } while(0) /*@SWIG@*/;
6578 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6579 SV *sv = get_sv((char*) SWIG_prefix "CNF_CLIENT_USERNAME", TRUE | 0x2 | GV_ADDMULTI);
6580 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_CLIENT_USERNAME)));
6582 } while(0) /*@SWIG@*/;
6583 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6584 SV *sv = get_sv((char*) SWIG_prefix "CNF_CLIENT_PORT", TRUE | 0x2 | GV_ADDMULTI);
6585 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_CLIENT_PORT)));
6587 } while(0) /*@SWIG@*/;
6588 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6589 SV *sv = get_sv((char*) SWIG_prefix "CNF_GNUTAR_LIST_DIR", TRUE | 0x2 | GV_ADDMULTI);
6590 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_GNUTAR_LIST_DIR)));
6592 } while(0) /*@SWIG@*/;
6593 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6594 SV *sv = get_sv((char*) SWIG_prefix "CNF_AMANDATES", TRUE | 0x2 | GV_ADDMULTI);
6595 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_AMANDATES)));
6597 } while(0) /*@SWIG@*/;
6598 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6599 SV *sv = get_sv((char*) SWIG_prefix "CNF_MAILER", TRUE | 0x2 | GV_ADDMULTI);
6600 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_MAILER)));
6602 } while(0) /*@SWIG@*/;
6603 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6604 SV *sv = get_sv((char*) SWIG_prefix "CNF_MAILTO", TRUE | 0x2 | GV_ADDMULTI);
6605 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_MAILTO)));
6607 } while(0) /*@SWIG@*/;
6608 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6609 SV *sv = get_sv((char*) SWIG_prefix "CNF_DUMPUSER", TRUE | 0x2 | GV_ADDMULTI);
6610 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DUMPUSER)));
6612 } while(0) /*@SWIG@*/;
6613 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6614 SV *sv = get_sv((char*) SWIG_prefix "CNF_TAPEDEV", TRUE | 0x2 | GV_ADDMULTI);
6615 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_TAPEDEV)));
6617 } while(0) /*@SWIG@*/;
6618 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6619 SV *sv = get_sv((char*) SWIG_prefix "CNF_DEVICE_PROPERTY", TRUE | 0x2 | GV_ADDMULTI);
6620 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DEVICE_PROPERTY)));
6622 } while(0) /*@SWIG@*/;
6623 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6624 SV *sv = get_sv((char*) SWIG_prefix "CNF_PROPERTY", TRUE | 0x2 | GV_ADDMULTI);
6625 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_PROPERTY)));
6627 } while(0) /*@SWIG@*/;
6628 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6629 SV *sv = get_sv((char*) SWIG_prefix "CNF_CHANGERDEV", TRUE | 0x2 | GV_ADDMULTI);
6630 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_CHANGERDEV)));
6632 } while(0) /*@SWIG@*/;
6633 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6634 SV *sv = get_sv((char*) SWIG_prefix "CNF_CHANGERFILE", TRUE | 0x2 | GV_ADDMULTI);
6635 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_CHANGERFILE)));
6637 } while(0) /*@SWIG@*/;
6638 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6639 SV *sv = get_sv((char*) SWIG_prefix "CNF_LABELSTR", TRUE | 0x2 | GV_ADDMULTI);
6640 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_LABELSTR)));
6642 } while(0) /*@SWIG@*/;
6643 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6644 SV *sv = get_sv((char*) SWIG_prefix "CNF_AUTOLABEL", TRUE | 0x2 | GV_ADDMULTI);
6645 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_AUTOLABEL)));
6647 } while(0) /*@SWIG@*/;
6648 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6649 SV *sv = get_sv((char*) SWIG_prefix "CNF_TAPELIST", TRUE | 0x2 | GV_ADDMULTI);
6650 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_TAPELIST)));
6652 } while(0) /*@SWIG@*/;
6653 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6654 SV *sv = get_sv((char*) SWIG_prefix "CNF_DISKFILE", TRUE | 0x2 | GV_ADDMULTI);
6655 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DISKFILE)));
6657 } while(0) /*@SWIG@*/;
6658 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6659 SV *sv = get_sv((char*) SWIG_prefix "CNF_INFOFILE", TRUE | 0x2 | GV_ADDMULTI);
6660 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_INFOFILE)));
6662 } while(0) /*@SWIG@*/;
6663 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6664 SV *sv = get_sv((char*) SWIG_prefix "CNF_LOGDIR", TRUE | 0x2 | GV_ADDMULTI);
6665 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_LOGDIR)));
6667 } while(0) /*@SWIG@*/;
6668 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6669 SV *sv = get_sv((char*) SWIG_prefix "CNF_INDEXDIR", TRUE | 0x2 | GV_ADDMULTI);
6670 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_INDEXDIR)));
6672 } while(0) /*@SWIG@*/;
6673 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6674 SV *sv = get_sv((char*) SWIG_prefix "CNF_TAPETYPE", TRUE | 0x2 | GV_ADDMULTI);
6675 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_TAPETYPE)));
6677 } while(0) /*@SWIG@*/;
6678 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6679 SV *sv = get_sv((char*) SWIG_prefix "CNF_DUMPCYCLE", TRUE | 0x2 | GV_ADDMULTI);
6680 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DUMPCYCLE)));
6682 } while(0) /*@SWIG@*/;
6683 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6684 SV *sv = get_sv((char*) SWIG_prefix "CNF_RUNSPERCYCLE", TRUE | 0x2 | GV_ADDMULTI);
6685 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_RUNSPERCYCLE)));
6687 } while(0) /*@SWIG@*/;
6688 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6689 SV *sv = get_sv((char*) SWIG_prefix "CNF_TAPECYCLE", TRUE | 0x2 | GV_ADDMULTI);
6690 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_TAPECYCLE)));
6692 } while(0) /*@SWIG@*/;
6693 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6694 SV *sv = get_sv((char*) SWIG_prefix "CNF_NETUSAGE", TRUE | 0x2 | GV_ADDMULTI);
6695 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_NETUSAGE)));
6697 } while(0) /*@SWIG@*/;
6698 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6699 SV *sv = get_sv((char*) SWIG_prefix "CNF_INPARALLEL", TRUE | 0x2 | GV_ADDMULTI);
6700 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_INPARALLEL)));
6702 } while(0) /*@SWIG@*/;
6703 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6704 SV *sv = get_sv((char*) SWIG_prefix "CNF_DUMPORDER", TRUE | 0x2 | GV_ADDMULTI);
6705 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DUMPORDER)));
6707 } while(0) /*@SWIG@*/;
6708 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6709 SV *sv = get_sv((char*) SWIG_prefix "CNF_BUMPPERCENT", TRUE | 0x2 | GV_ADDMULTI);
6710 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_BUMPPERCENT)));
6712 } while(0) /*@SWIG@*/;
6713 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6714 SV *sv = get_sv((char*) SWIG_prefix "CNF_BUMPSIZE", TRUE | 0x2 | GV_ADDMULTI);
6715 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_BUMPSIZE)));
6717 } while(0) /*@SWIG@*/;
6718 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6719 SV *sv = get_sv((char*) SWIG_prefix "CNF_BUMPMULT", TRUE | 0x2 | GV_ADDMULTI);
6720 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_BUMPMULT)));
6722 } while(0) /*@SWIG@*/;
6723 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6724 SV *sv = get_sv((char*) SWIG_prefix "CNF_BUMPDAYS", TRUE | 0x2 | GV_ADDMULTI);
6725 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_BUMPDAYS)));
6727 } while(0) /*@SWIG@*/;
6728 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6729 SV *sv = get_sv((char*) SWIG_prefix "CNF_TPCHANGER", TRUE | 0x2 | GV_ADDMULTI);
6730 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_TPCHANGER)));
6732 } while(0) /*@SWIG@*/;
6733 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6734 SV *sv = get_sv((char*) SWIG_prefix "CNF_RUNTAPES", TRUE | 0x2 | GV_ADDMULTI);
6735 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_RUNTAPES)));
6737 } while(0) /*@SWIG@*/;
6738 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6739 SV *sv = get_sv((char*) SWIG_prefix "CNF_MAXDUMPS", TRUE | 0x2 | GV_ADDMULTI);
6740 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_MAXDUMPS)));
6742 } while(0) /*@SWIG@*/;
6743 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6744 SV *sv = get_sv((char*) SWIG_prefix "CNF_ETIMEOUT", TRUE | 0x2 | GV_ADDMULTI);
6745 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_ETIMEOUT)));
6747 } while(0) /*@SWIG@*/;
6748 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6749 SV *sv = get_sv((char*) SWIG_prefix "CNF_DTIMEOUT", TRUE | 0x2 | GV_ADDMULTI);
6750 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DTIMEOUT)));
6752 } while(0) /*@SWIG@*/;
6753 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6754 SV *sv = get_sv((char*) SWIG_prefix "CNF_CTIMEOUT", TRUE | 0x2 | GV_ADDMULTI);
6755 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_CTIMEOUT)));
6757 } while(0) /*@SWIG@*/;
6758 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6759 SV *sv = get_sv((char*) SWIG_prefix "CNF_TAPEBUFS", TRUE | 0x2 | GV_ADDMULTI);
6760 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_TAPEBUFS)));
6762 } while(0) /*@SWIG@*/;
6763 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6764 SV *sv = get_sv((char*) SWIG_prefix "CNF_DEVICE_OUTPUT_BUFFER_SIZE", TRUE | 0x2 | GV_ADDMULTI);
6765 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DEVICE_OUTPUT_BUFFER_SIZE)));
6767 } while(0) /*@SWIG@*/;
6768 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6769 SV *sv = get_sv((char*) SWIG_prefix "CNF_PRINTER", TRUE | 0x2 | GV_ADDMULTI);
6770 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_PRINTER)));
6772 } while(0) /*@SWIG@*/;
6773 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6774 SV *sv = get_sv((char*) SWIG_prefix "CNF_AUTOFLUSH", TRUE | 0x2 | GV_ADDMULTI);
6775 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_AUTOFLUSH)));
6777 } while(0) /*@SWIG@*/;
6778 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6779 SV *sv = get_sv((char*) SWIG_prefix "CNF_RESERVE", TRUE | 0x2 | GV_ADDMULTI);
6780 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_RESERVE)));
6782 } while(0) /*@SWIG@*/;
6783 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6784 SV *sv = get_sv((char*) SWIG_prefix "CNF_MAXDUMPSIZE", TRUE | 0x2 | GV_ADDMULTI);
6785 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_MAXDUMPSIZE)));
6787 } while(0) /*@SWIG@*/;
6788 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6789 SV *sv = get_sv((char*) SWIG_prefix "CNF_COLUMNSPEC", TRUE | 0x2 | GV_ADDMULTI);
6790 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_COLUMNSPEC)));
6792 } while(0) /*@SWIG@*/;
6793 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6794 SV *sv = get_sv((char*) SWIG_prefix "CNF_AMRECOVER_DO_FSF", TRUE | 0x2 | GV_ADDMULTI);
6795 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_AMRECOVER_DO_FSF)));
6797 } while(0) /*@SWIG@*/;
6798 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6799 SV *sv = get_sv((char*) SWIG_prefix "CNF_AMRECOVER_CHECK_LABEL", TRUE | 0x2 | GV_ADDMULTI);
6800 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_AMRECOVER_CHECK_LABEL)));
6802 } while(0) /*@SWIG@*/;
6803 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6804 SV *sv = get_sv((char*) SWIG_prefix "CNF_AMRECOVER_CHANGER", TRUE | 0x2 | GV_ADDMULTI);
6805 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_AMRECOVER_CHANGER)));
6807 } while(0) /*@SWIG@*/;
6808 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6809 SV *sv = get_sv((char*) SWIG_prefix "CNF_TAPERALGO", TRUE | 0x2 | GV_ADDMULTI);
6810 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_TAPERALGO)));
6812 } while(0) /*@SWIG@*/;
6813 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6814 SV *sv = get_sv((char*) SWIG_prefix "CNF_FLUSH_THRESHOLD_DUMPED", TRUE | 0x2 | GV_ADDMULTI);
6815 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_FLUSH_THRESHOLD_DUMPED)));
6817 } while(0) /*@SWIG@*/;
6818 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6819 SV *sv = get_sv((char*) SWIG_prefix "CNF_FLUSH_THRESHOLD_SCHEDULED", TRUE | 0x2 | GV_ADDMULTI);
6820 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_FLUSH_THRESHOLD_SCHEDULED)));
6822 } while(0) /*@SWIG@*/;
6823 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6824 SV *sv = get_sv((char*) SWIG_prefix "CNF_TAPERFLUSH", TRUE | 0x2 | GV_ADDMULTI);
6825 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_TAPERFLUSH)));
6827 } while(0) /*@SWIG@*/;
6828 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6829 SV *sv = get_sv((char*) SWIG_prefix "CNF_DISPLAYUNIT", TRUE | 0x2 | GV_ADDMULTI);
6830 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DISPLAYUNIT)));
6832 } while(0) /*@SWIG@*/;
6833 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6834 SV *sv = get_sv((char*) SWIG_prefix "CNF_KRB5KEYTAB", TRUE | 0x2 | GV_ADDMULTI);
6835 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_KRB5KEYTAB)));
6837 } while(0) /*@SWIG@*/;
6838 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6839 SV *sv = get_sv((char*) SWIG_prefix "CNF_KRB5PRINCIPAL", TRUE | 0x2 | GV_ADDMULTI);
6840 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_KRB5PRINCIPAL)));
6842 } while(0) /*@SWIG@*/;
6843 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6844 SV *sv = get_sv((char*) SWIG_prefix "CNF_LABEL_NEW_TAPES", TRUE | 0x2 | GV_ADDMULTI);
6845 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_LABEL_NEW_TAPES)));
6847 } while(0) /*@SWIG@*/;
6848 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6849 SV *sv = get_sv((char*) SWIG_prefix "CNF_USETIMESTAMPS", TRUE | 0x2 | GV_ADDMULTI);
6850 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_USETIMESTAMPS)));
6852 } while(0) /*@SWIG@*/;
6853 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6854 SV *sv = get_sv((char*) SWIG_prefix "CNF_REP_TRIES", TRUE | 0x2 | GV_ADDMULTI);
6855 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_REP_TRIES)));
6857 } while(0) /*@SWIG@*/;
6858 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6859 SV *sv = get_sv((char*) SWIG_prefix "CNF_CONNECT_TRIES", TRUE | 0x2 | GV_ADDMULTI);
6860 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_CONNECT_TRIES)));
6862 } while(0) /*@SWIG@*/;
6863 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6864 SV *sv = get_sv((char*) SWIG_prefix "CNF_REQ_TRIES", TRUE | 0x2 | GV_ADDMULTI);
6865 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_REQ_TRIES)));
6867 } while(0) /*@SWIG@*/;
6868 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6869 SV *sv = get_sv((char*) SWIG_prefix "CNF_DEBUG_AMANDAD", TRUE | 0x2 | GV_ADDMULTI);
6870 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DEBUG_AMANDAD)));
6872 } while(0) /*@SWIG@*/;
6873 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6874 SV *sv = get_sv((char*) SWIG_prefix "CNF_DEBUG_RECOVERY", TRUE | 0x2 | GV_ADDMULTI);
6875 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DEBUG_RECOVERY)));
6877 } while(0) /*@SWIG@*/;
6878 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6879 SV *sv = get_sv((char*) SWIG_prefix "CNF_DEBUG_AMIDXTAPED", TRUE | 0x2 | GV_ADDMULTI);
6880 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DEBUG_AMIDXTAPED)));
6882 } while(0) /*@SWIG@*/;
6883 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6884 SV *sv = get_sv((char*) SWIG_prefix "CNF_DEBUG_AMINDEXD", TRUE | 0x2 | GV_ADDMULTI);
6885 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DEBUG_AMINDEXD)));
6887 } while(0) /*@SWIG@*/;
6888 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6889 SV *sv = get_sv((char*) SWIG_prefix "CNF_DEBUG_AMRECOVER", TRUE | 0x2 | GV_ADDMULTI);
6890 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DEBUG_AMRECOVER)));
6892 } while(0) /*@SWIG@*/;
6893 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6894 SV *sv = get_sv((char*) SWIG_prefix "CNF_DEBUG_AUTH", TRUE | 0x2 | GV_ADDMULTI);
6895 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DEBUG_AUTH)));
6897 } while(0) /*@SWIG@*/;
6898 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6899 SV *sv = get_sv((char*) SWIG_prefix "CNF_DEBUG_EVENT", TRUE | 0x2 | GV_ADDMULTI);
6900 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DEBUG_EVENT)));
6902 } while(0) /*@SWIG@*/;
6903 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6904 SV *sv = get_sv((char*) SWIG_prefix "CNF_DEBUG_HOLDING", TRUE | 0x2 | GV_ADDMULTI);
6905 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DEBUG_HOLDING)));
6907 } while(0) /*@SWIG@*/;
6908 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6909 SV *sv = get_sv((char*) SWIG_prefix "CNF_DEBUG_PROTOCOL", TRUE | 0x2 | GV_ADDMULTI);
6910 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DEBUG_PROTOCOL)));
6912 } while(0) /*@SWIG@*/;
6913 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6914 SV *sv = get_sv((char*) SWIG_prefix "CNF_DEBUG_PLANNER", TRUE | 0x2 | GV_ADDMULTI);
6915 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DEBUG_PLANNER)));
6917 } while(0) /*@SWIG@*/;
6918 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6919 SV *sv = get_sv((char*) SWIG_prefix "CNF_DEBUG_DRIVER", TRUE | 0x2 | GV_ADDMULTI);
6920 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DEBUG_DRIVER)));
6922 } while(0) /*@SWIG@*/;
6923 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6924 SV *sv = get_sv((char*) SWIG_prefix "CNF_DEBUG_DUMPER", TRUE | 0x2 | GV_ADDMULTI);
6925 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DEBUG_DUMPER)));
6927 } while(0) /*@SWIG@*/;
6928 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6929 SV *sv = get_sv((char*) SWIG_prefix "CNF_DEBUG_CHUNKER", TRUE | 0x2 | GV_ADDMULTI);
6930 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DEBUG_CHUNKER)));
6932 } while(0) /*@SWIG@*/;
6933 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6934 SV *sv = get_sv((char*) SWIG_prefix "CNF_DEBUG_TAPER", TRUE | 0x2 | GV_ADDMULTI);
6935 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DEBUG_TAPER)));
6937 } while(0) /*@SWIG@*/;
6938 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6939 SV *sv = get_sv((char*) SWIG_prefix "CNF_DEBUG_SELFCHECK", TRUE | 0x2 | GV_ADDMULTI);
6940 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DEBUG_SELFCHECK)));
6942 } while(0) /*@SWIG@*/;
6943 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6944 SV *sv = get_sv((char*) SWIG_prefix "CNF_DEBUG_SENDSIZE", TRUE | 0x2 | GV_ADDMULTI);
6945 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DEBUG_SENDSIZE)));
6947 } while(0) /*@SWIG@*/;
6948 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6949 SV *sv = get_sv((char*) SWIG_prefix "CNF_DEBUG_SENDBACKUP", TRUE | 0x2 | GV_ADDMULTI);
6950 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DEBUG_SENDBACKUP)));
6952 } while(0) /*@SWIG@*/;
6953 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6954 SV *sv = get_sv((char*) SWIG_prefix "CNF_RESERVED_UDP_PORT", TRUE | 0x2 | GV_ADDMULTI);
6955 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_RESERVED_UDP_PORT)));
6957 } while(0) /*@SWIG@*/;
6958 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6959 SV *sv = get_sv((char*) SWIG_prefix "CNF_RESERVED_TCP_PORT", TRUE | 0x2 | GV_ADDMULTI);
6960 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_RESERVED_TCP_PORT)));
6962 } while(0) /*@SWIG@*/;
6963 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6964 SV *sv = get_sv((char*) SWIG_prefix "CNF_UNRESERVED_TCP_PORT", TRUE | 0x2 | GV_ADDMULTI);
6965 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_UNRESERVED_TCP_PORT)));
6967 } while(0) /*@SWIG@*/;
6968 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6969 SV *sv = get_sv((char*) SWIG_prefix "CNF_HOLDINGDISK", TRUE | 0x2 | GV_ADDMULTI);
6970 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_HOLDINGDISK)));
6972 } while(0) /*@SWIG@*/;
6973 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6974 SV *sv = get_sv((char*) SWIG_prefix "CNF_SEND_AMREPORT_ON", TRUE | 0x2 | GV_ADDMULTI);
6975 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_SEND_AMREPORT_ON)));
6977 } while(0) /*@SWIG@*/;
6978 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6979 SV *sv = get_sv((char*) SWIG_prefix "TAPETYPE_COMMENT", TRUE | 0x2 | GV_ADDMULTI);
6980 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(TAPETYPE_COMMENT)));
6982 } while(0) /*@SWIG@*/;
6983 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6984 SV *sv = get_sv((char*) SWIG_prefix "TAPETYPE_LBL_TEMPL", TRUE | 0x2 | GV_ADDMULTI);
6985 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(TAPETYPE_LBL_TEMPL)));
6987 } while(0) /*@SWIG@*/;
6988 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6989 SV *sv = get_sv((char*) SWIG_prefix "TAPETYPE_BLOCKSIZE", TRUE | 0x2 | GV_ADDMULTI);
6990 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(TAPETYPE_BLOCKSIZE)));
6992 } while(0) /*@SWIG@*/;
6993 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6994 SV *sv = get_sv((char*) SWIG_prefix "TAPETYPE_READBLOCKSIZE", TRUE | 0x2 | GV_ADDMULTI);
6995 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(TAPETYPE_READBLOCKSIZE)));
6997 } while(0) /*@SWIG@*/;
6998 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6999 SV *sv = get_sv((char*) SWIG_prefix "TAPETYPE_LENGTH", TRUE | 0x2 | GV_ADDMULTI);
7000 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(TAPETYPE_LENGTH)));
7002 } while(0) /*@SWIG@*/;
7003 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7004 SV *sv = get_sv((char*) SWIG_prefix "TAPETYPE_FILEMARK", TRUE | 0x2 | GV_ADDMULTI);
7005 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(TAPETYPE_FILEMARK)));
7007 } while(0) /*@SWIG@*/;
7008 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7009 SV *sv = get_sv((char*) SWIG_prefix "TAPETYPE_SPEED", TRUE | 0x2 | GV_ADDMULTI);
7010 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(TAPETYPE_SPEED)));
7012 } while(0) /*@SWIG@*/;
7013 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7014 SV *sv = get_sv((char*) SWIG_prefix "TAPETYPE_FILE_PAD", TRUE | 0x2 | GV_ADDMULTI);
7015 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(TAPETYPE_FILE_PAD)));
7017 } while(0) /*@SWIG@*/;
7018 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7019 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_COMMENT", TRUE | 0x2 | GV_ADDMULTI);
7020 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_COMMENT)));
7022 } while(0) /*@SWIG@*/;
7023 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7024 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_PROGRAM", TRUE | 0x2 | GV_ADDMULTI);
7025 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_PROGRAM)));
7027 } while(0) /*@SWIG@*/;
7028 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7029 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_SRVCOMPPROG", TRUE | 0x2 | GV_ADDMULTI);
7030 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_SRVCOMPPROG)));
7032 } while(0) /*@SWIG@*/;
7033 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7034 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_CLNTCOMPPROG", TRUE | 0x2 | GV_ADDMULTI);
7035 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_CLNTCOMPPROG)));
7037 } while(0) /*@SWIG@*/;
7038 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7039 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_SRV_ENCRYPT", TRUE | 0x2 | GV_ADDMULTI);
7040 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_SRV_ENCRYPT)));
7042 } while(0) /*@SWIG@*/;
7043 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7044 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_CLNT_ENCRYPT", TRUE | 0x2 | GV_ADDMULTI);
7045 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_CLNT_ENCRYPT)));
7047 } while(0) /*@SWIG@*/;
7048 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7049 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_AMANDAD_PATH", TRUE | 0x2 | GV_ADDMULTI);
7050 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_AMANDAD_PATH)));
7052 } while(0) /*@SWIG@*/;
7053 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7054 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_CLIENT_USERNAME", TRUE | 0x2 | GV_ADDMULTI);
7055 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_CLIENT_USERNAME)));
7057 } while(0) /*@SWIG@*/;
7058 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7059 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_CLIENT_PORT", TRUE | 0x2 | GV_ADDMULTI);
7060 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_CLIENT_PORT)));
7062 } while(0) /*@SWIG@*/;
7063 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7064 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_SSH_KEYS", TRUE | 0x2 | GV_ADDMULTI);
7065 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_SSH_KEYS)));
7067 } while(0) /*@SWIG@*/;
7068 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7069 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_AUTH", TRUE | 0x2 | GV_ADDMULTI);
7070 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_AUTH)));
7072 } while(0) /*@SWIG@*/;
7073 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7074 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_EXCLUDE", TRUE | 0x2 | GV_ADDMULTI);
7075 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_EXCLUDE)));
7077 } while(0) /*@SWIG@*/;
7078 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7079 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_INCLUDE", TRUE | 0x2 | GV_ADDMULTI);
7080 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_INCLUDE)));
7082 } while(0) /*@SWIG@*/;
7083 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7084 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_PRIORITY", TRUE | 0x2 | GV_ADDMULTI);
7085 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_PRIORITY)));
7087 } while(0) /*@SWIG@*/;
7088 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7089 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_DUMPCYCLE", TRUE | 0x2 | GV_ADDMULTI);
7090 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_DUMPCYCLE)));
7092 } while(0) /*@SWIG@*/;
7093 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7094 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_MAXDUMPS", TRUE | 0x2 | GV_ADDMULTI);
7095 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_MAXDUMPS)));
7097 } while(0) /*@SWIG@*/;
7098 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7099 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_MAXPROMOTEDAY", TRUE | 0x2 | GV_ADDMULTI);
7100 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_MAXPROMOTEDAY)));
7102 } while(0) /*@SWIG@*/;
7103 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7104 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_BUMPPERCENT", TRUE | 0x2 | GV_ADDMULTI);
7105 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_BUMPPERCENT)));
7107 } while(0) /*@SWIG@*/;
7108 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7109 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_BUMPSIZE", TRUE | 0x2 | GV_ADDMULTI);
7110 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_BUMPSIZE)));
7112 } while(0) /*@SWIG@*/;
7113 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7114 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_BUMPDAYS", TRUE | 0x2 | GV_ADDMULTI);
7115 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_BUMPDAYS)));
7117 } while(0) /*@SWIG@*/;
7118 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7119 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_BUMPMULT", TRUE | 0x2 | GV_ADDMULTI);
7120 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_BUMPMULT)));
7122 } while(0) /*@SWIG@*/;
7123 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7124 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_STARTTIME", TRUE | 0x2 | GV_ADDMULTI);
7125 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_STARTTIME)));
7127 } while(0) /*@SWIG@*/;
7128 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7129 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_STRATEGY", TRUE | 0x2 | GV_ADDMULTI);
7130 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_STRATEGY)));
7132 } while(0) /*@SWIG@*/;
7133 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7134 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_ESTIMATELIST", TRUE | 0x2 | GV_ADDMULTI);
7135 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_ESTIMATELIST)));
7137 } while(0) /*@SWIG@*/;
7138 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7139 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_COMPRESS", TRUE | 0x2 | GV_ADDMULTI);
7140 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_COMPRESS)));
7142 } while(0) /*@SWIG@*/;
7143 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7144 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_ENCRYPT", TRUE | 0x2 | GV_ADDMULTI);
7145 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_ENCRYPT)));
7147 } while(0) /*@SWIG@*/;
7148 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7149 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_SRV_DECRYPT_OPT", TRUE | 0x2 | GV_ADDMULTI);
7150 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_SRV_DECRYPT_OPT)));
7152 } while(0) /*@SWIG@*/;
7153 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7154 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_CLNT_DECRYPT_OPT", TRUE | 0x2 | GV_ADDMULTI);
7155 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_CLNT_DECRYPT_OPT)));
7157 } while(0) /*@SWIG@*/;
7158 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7159 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_COMPRATE", TRUE | 0x2 | GV_ADDMULTI);
7160 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_COMPRATE)));
7162 } while(0) /*@SWIG@*/;
7163 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7164 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_TAPE_SPLITSIZE", TRUE | 0x2 | GV_ADDMULTI);
7165 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_TAPE_SPLITSIZE)));
7167 } while(0) /*@SWIG@*/;
7168 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7169 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_FALLBACK_SPLITSIZE", TRUE | 0x2 | GV_ADDMULTI);
7170 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_FALLBACK_SPLITSIZE)));
7172 } while(0) /*@SWIG@*/;
7173 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7174 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_SPLIT_DISKBUFFER", TRUE | 0x2 | GV_ADDMULTI);
7175 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_SPLIT_DISKBUFFER)));
7177 } while(0) /*@SWIG@*/;
7178 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7179 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_RECORD", TRUE | 0x2 | GV_ADDMULTI);
7180 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_RECORD)));
7182 } while(0) /*@SWIG@*/;
7183 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7184 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_SKIP_INCR", TRUE | 0x2 | GV_ADDMULTI);
7185 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_SKIP_INCR)));
7187 } while(0) /*@SWIG@*/;
7188 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7189 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_SKIP_FULL", TRUE | 0x2 | GV_ADDMULTI);
7190 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_SKIP_FULL)));
7192 } while(0) /*@SWIG@*/;
7193 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7194 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_HOLDINGDISK", TRUE | 0x2 | GV_ADDMULTI);
7195 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_HOLDINGDISK)));
7197 } while(0) /*@SWIG@*/;
7198 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7199 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_KENCRYPT", TRUE | 0x2 | GV_ADDMULTI);
7200 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_KENCRYPT)));
7202 } while(0) /*@SWIG@*/;
7203 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7204 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_IGNORE", TRUE | 0x2 | GV_ADDMULTI);
7205 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_IGNORE)));
7207 } while(0) /*@SWIG@*/;
7208 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7209 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_INDEX", TRUE | 0x2 | GV_ADDMULTI);
7210 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_INDEX)));
7212 } while(0) /*@SWIG@*/;
7213 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7214 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_APPLICATION", TRUE | 0x2 | GV_ADDMULTI);
7215 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_APPLICATION)));
7217 } while(0) /*@SWIG@*/;
7218 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7219 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_SCRIPTLIST", TRUE | 0x2 | GV_ADDMULTI);
7220 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_SCRIPTLIST)));
7222 } while(0) /*@SWIG@*/;
7223 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7224 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_PROPERTY", TRUE | 0x2 | GV_ADDMULTI);
7225 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_PROPERTY)));
7227 } while(0) /*@SWIG@*/;
7228 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7229 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_DATA_PATH", TRUE | 0x2 | GV_ADDMULTI);
7230 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_DATA_PATH)));
7232 } while(0) /*@SWIG@*/;
7233 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7234 SV *sv = get_sv((char*) SWIG_prefix "INTER_COMMENT", TRUE | 0x2 | GV_ADDMULTI);
7235 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(INTER_COMMENT)));
7237 } while(0) /*@SWIG@*/;
7238 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7239 SV *sv = get_sv((char*) SWIG_prefix "INTER_MAXUSAGE", TRUE | 0x2 | GV_ADDMULTI);
7240 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(INTER_MAXUSAGE)));
7242 } while(0) /*@SWIG@*/;
7243 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7244 SV *sv = get_sv((char*) SWIG_prefix "HOLDING_COMMENT", TRUE | 0x2 | GV_ADDMULTI);
7245 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(HOLDING_COMMENT)));
7247 } while(0) /*@SWIG@*/;
7248 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7249 SV *sv = get_sv((char*) SWIG_prefix "HOLDING_DISKDIR", TRUE | 0x2 | GV_ADDMULTI);
7250 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(HOLDING_DISKDIR)));
7252 } while(0) /*@SWIG@*/;
7253 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7254 SV *sv = get_sv((char*) SWIG_prefix "HOLDING_DISKSIZE", TRUE | 0x2 | GV_ADDMULTI);
7255 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(HOLDING_DISKSIZE)));
7257 } while(0) /*@SWIG@*/;
7258 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7259 SV *sv = get_sv((char*) SWIG_prefix "HOLDING_CHUNKSIZE", TRUE | 0x2 | GV_ADDMULTI);
7260 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(HOLDING_CHUNKSIZE)));
7262 } while(0) /*@SWIG@*/;
7263 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7264 SV *sv = get_sv((char*) SWIG_prefix "APPLICATION_COMMENT", TRUE | 0x2 | GV_ADDMULTI);
7265 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(APPLICATION_COMMENT)));
7267 } while(0) /*@SWIG@*/;
7268 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7269 SV *sv = get_sv((char*) SWIG_prefix "APPLICATION_PLUGIN", TRUE | 0x2 | GV_ADDMULTI);
7270 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(APPLICATION_PLUGIN)));
7272 } while(0) /*@SWIG@*/;
7273 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7274 SV *sv = get_sv((char*) SWIG_prefix "APPLICATION_PROPERTY", TRUE | 0x2 | GV_ADDMULTI);
7275 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(APPLICATION_PROPERTY)));
7277 } while(0) /*@SWIG@*/;
7278 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7279 SV *sv = get_sv((char*) SWIG_prefix "PP_SCRIPT_COMMENT", TRUE | 0x2 | GV_ADDMULTI);
7280 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PP_SCRIPT_COMMENT)));
7282 } while(0) /*@SWIG@*/;
7283 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7284 SV *sv = get_sv((char*) SWIG_prefix "PP_SCRIPT_PLUGIN", TRUE | 0x2 | GV_ADDMULTI);
7285 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PP_SCRIPT_PLUGIN)));
7287 } while(0) /*@SWIG@*/;
7288 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7289 SV *sv = get_sv((char*) SWIG_prefix "PP_SCRIPT_PROPERTY", TRUE | 0x2 | GV_ADDMULTI);
7290 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PP_SCRIPT_PROPERTY)));
7292 } while(0) /*@SWIG@*/;
7293 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7294 SV *sv = get_sv((char*) SWIG_prefix "PP_SCRIPT_EXECUTE_ON", TRUE | 0x2 | GV_ADDMULTI);
7295 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PP_SCRIPT_EXECUTE_ON)));
7297 } while(0) /*@SWIG@*/;
7298 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7299 SV *sv = get_sv((char*) SWIG_prefix "PP_SCRIPT_EXECUTE_WHERE", TRUE | 0x2 | GV_ADDMULTI);
7300 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PP_SCRIPT_EXECUTE_WHERE)));
7302 } while(0) /*@SWIG@*/;
7303 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7304 SV *sv = get_sv((char*) SWIG_prefix "PP_SCRIPT_ORDER", TRUE | 0x2 | GV_ADDMULTI);
7305 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PP_SCRIPT_ORDER)));
7307 } while(0) /*@SWIG@*/;
7308 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7309 SV *sv = get_sv((char*) SWIG_prefix "DEVICE_CONFIG_COMMENT", TRUE | 0x2 | GV_ADDMULTI);
7310 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DEVICE_CONFIG_COMMENT)));
7312 } while(0) /*@SWIG@*/;
7313 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7314 SV *sv = get_sv((char*) SWIG_prefix "DEVICE_CONFIG_TAPEDEV", TRUE | 0x2 | GV_ADDMULTI);
7315 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DEVICE_CONFIG_TAPEDEV)));
7317 } while(0) /*@SWIG@*/;
7318 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7319 SV *sv = get_sv((char*) SWIG_prefix "DEVICE_CONFIG_DEVICE_PROPERTY", TRUE | 0x2 | GV_ADDMULTI);
7320 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DEVICE_CONFIG_DEVICE_PROPERTY)));
7322 } while(0) /*@SWIG@*/;
7323 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7324 SV *sv = get_sv((char*) SWIG_prefix "CHANGER_CONFIG_COMMENT", TRUE | 0x2 | GV_ADDMULTI);
7325 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CHANGER_CONFIG_COMMENT)));
7327 } while(0) /*@SWIG@*/;
7328 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7329 SV *sv = get_sv((char*) SWIG_prefix "CHANGER_CONFIG_TAPEDEV", TRUE | 0x2 | GV_ADDMULTI);
7330 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CHANGER_CONFIG_TAPEDEV)));
7332 } while(0) /*@SWIG@*/;
7333 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7334 SV *sv = get_sv((char*) SWIG_prefix "CHANGER_CONFIG_TPCHANGER", TRUE | 0x2 | GV_ADDMULTI);
7335 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CHANGER_CONFIG_TPCHANGER)));
7337 } while(0) /*@SWIG@*/;
7338 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7339 SV *sv = get_sv((char*) SWIG_prefix "CHANGER_CONFIG_CHANGERDEV", TRUE | 0x2 | GV_ADDMULTI);
7340 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CHANGER_CONFIG_CHANGERDEV)));
7342 } while(0) /*@SWIG@*/;
7343 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7344 SV *sv = get_sv((char*) SWIG_prefix "CHANGER_CONFIG_CHANGERFILE", TRUE | 0x2 | GV_ADDMULTI);
7345 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CHANGER_CONFIG_CHANGERFILE)));
7347 } while(0) /*@SWIG@*/;
7348 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7349 SV *sv = get_sv((char*) SWIG_prefix "CHANGER_CONFIG_PROPERTY", TRUE | 0x2 | GV_ADDMULTI);
7350 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CHANGER_CONFIG_PROPERTY)));
7352 } while(0) /*@SWIG@*/;
7353 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7354 SV *sv = get_sv((char*) SWIG_prefix "CHANGER_CONFIG_DEVICE_PROPERTY", TRUE | 0x2 | GV_ADDMULTI);
7355 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CHANGER_CONFIG_DEVICE_PROPERTY)));
7357 } while(0) /*@SWIG@*/;
7358 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7359 SV *sv = get_sv((char*) SWIG_prefix "HOLD_NEVER", TRUE | 0x2 | GV_ADDMULTI);
7360 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(HOLD_NEVER)));
7362 } while(0) /*@SWIG@*/;
7363 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7364 SV *sv = get_sv((char*) SWIG_prefix "HOLD_AUTO", TRUE | 0x2 | GV_ADDMULTI);
7365 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(HOLD_AUTO)));
7367 } while(0) /*@SWIG@*/;
7368 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7369 SV *sv = get_sv((char*) SWIG_prefix "HOLD_REQUIRED", TRUE | 0x2 | GV_ADDMULTI);
7370 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(HOLD_REQUIRED)));
7372 } while(0) /*@SWIG@*/;
7373 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7374 SV *sv = get_sv((char*) SWIG_prefix "COMP_NONE", TRUE | 0x2 | GV_ADDMULTI);
7375 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(COMP_NONE)));
7377 } while(0) /*@SWIG@*/;
7378 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7379 SV *sv = get_sv((char*) SWIG_prefix "COMP_FAST", TRUE | 0x2 | GV_ADDMULTI);
7380 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(COMP_FAST)));
7382 } while(0) /*@SWIG@*/;
7383 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7384 SV *sv = get_sv((char*) SWIG_prefix "COMP_BEST", TRUE | 0x2 | GV_ADDMULTI);
7385 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(COMP_BEST)));
7387 } while(0) /*@SWIG@*/;
7388 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7389 SV *sv = get_sv((char*) SWIG_prefix "COMP_CUST", TRUE | 0x2 | GV_ADDMULTI);
7390 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(COMP_CUST)));
7392 } while(0) /*@SWIG@*/;
7393 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7394 SV *sv = get_sv((char*) SWIG_prefix "COMP_SERVER_FAST", TRUE | 0x2 | GV_ADDMULTI);
7395 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(COMP_SERVER_FAST)));
7397 } while(0) /*@SWIG@*/;
7398 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7399 SV *sv = get_sv((char*) SWIG_prefix "COMP_SERVER_BEST", TRUE | 0x2 | GV_ADDMULTI);
7400 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(COMP_SERVER_BEST)));
7402 } while(0) /*@SWIG@*/;
7403 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7404 SV *sv = get_sv((char*) SWIG_prefix "COMP_SERVER_CUST", TRUE | 0x2 | GV_ADDMULTI);
7405 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(COMP_SERVER_CUST)));
7407 } while(0) /*@SWIG@*/;
7408 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7409 SV *sv = get_sv((char*) SWIG_prefix "ENCRYPT_NONE", TRUE | 0x2 | GV_ADDMULTI);
7410 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(ENCRYPT_NONE)));
7412 } while(0) /*@SWIG@*/;
7413 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7414 SV *sv = get_sv((char*) SWIG_prefix "ENCRYPT_CUST", TRUE | 0x2 | GV_ADDMULTI);
7415 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(ENCRYPT_CUST)));
7417 } while(0) /*@SWIG@*/;
7418 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7419 SV *sv = get_sv((char*) SWIG_prefix "ENCRYPT_SERV_CUST", TRUE | 0x2 | GV_ADDMULTI);
7420 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(ENCRYPT_SERV_CUST)));
7422 } while(0) /*@SWIG@*/;
7423 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7424 SV *sv = get_sv((char*) SWIG_prefix "DS_SKIP", TRUE | 0x2 | GV_ADDMULTI);
7425 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DS_SKIP)));
7427 } while(0) /*@SWIG@*/;
7428 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7429 SV *sv = get_sv((char*) SWIG_prefix "DS_STANDARD", TRUE | 0x2 | GV_ADDMULTI);
7430 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DS_STANDARD)));
7432 } while(0) /*@SWIG@*/;
7433 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7434 SV *sv = get_sv((char*) SWIG_prefix "DS_NOFULL", TRUE | 0x2 | GV_ADDMULTI);
7435 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DS_NOFULL)));
7437 } while(0) /*@SWIG@*/;
7438 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7439 SV *sv = get_sv((char*) SWIG_prefix "DS_NOINC", TRUE | 0x2 | GV_ADDMULTI);
7440 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DS_NOINC)));
7442 } while(0) /*@SWIG@*/;
7443 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7444 SV *sv = get_sv((char*) SWIG_prefix "DS_4", TRUE | 0x2 | GV_ADDMULTI);
7445 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DS_4)));
7447 } while(0) /*@SWIG@*/;
7448 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7449 SV *sv = get_sv((char*) SWIG_prefix "DS_5", TRUE | 0x2 | GV_ADDMULTI);
7450 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DS_5)));
7452 } while(0) /*@SWIG@*/;
7453 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7454 SV *sv = get_sv((char*) SWIG_prefix "DS_HANOI", TRUE | 0x2 | GV_ADDMULTI);
7455 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DS_HANOI)));
7457 } while(0) /*@SWIG@*/;
7458 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7459 SV *sv = get_sv((char*) SWIG_prefix "DS_INCRONLY", TRUE | 0x2 | GV_ADDMULTI);
7460 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DS_INCRONLY)));
7462 } while(0) /*@SWIG@*/;
7463 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7464 SV *sv = get_sv((char*) SWIG_prefix "ES_CLIENT", TRUE | 0x2 | GV_ADDMULTI);
7465 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(ES_CLIENT)));
7467 } while(0) /*@SWIG@*/;
7468 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7469 SV *sv = get_sv((char*) SWIG_prefix "ES_SERVER", TRUE | 0x2 | GV_ADDMULTI);
7470 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(ES_SERVER)));
7472 } while(0) /*@SWIG@*/;
7473 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7474 SV *sv = get_sv((char*) SWIG_prefix "ES_CALCSIZE", TRUE | 0x2 | GV_ADDMULTI);
7475 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(ES_CALCSIZE)));
7477 } while(0) /*@SWIG@*/;
7478 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7479 SV *sv = get_sv((char*) SWIG_prefix "AL_OTHER_CONFIG", TRUE | 0x2 | GV_ADDMULTI);
7480 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(AL_OTHER_CONFIG)));
7482 } while(0) /*@SWIG@*/;
7483 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7484 SV *sv = get_sv((char*) SWIG_prefix "AL_NON_AMANDA", TRUE | 0x2 | GV_ADDMULTI);
7485 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(AL_NON_AMANDA)));
7487 } while(0) /*@SWIG@*/;
7488 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7489 SV *sv = get_sv((char*) SWIG_prefix "AL_VOLUME_ERROR", TRUE | 0x2 | GV_ADDMULTI);
7490 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(AL_VOLUME_ERROR)));
7492 } while(0) /*@SWIG@*/;
7493 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7494 SV *sv = get_sv((char*) SWIG_prefix "AL_EMPTY", TRUE | 0x2 | GV_ADDMULTI);
7495 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(AL_EMPTY)));
7497 } while(0) /*@SWIG@*/;
7498 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7499 SV *sv = get_sv((char*) SWIG_prefix "ALGO_FIRST", TRUE | 0x2 | GV_ADDMULTI);
7500 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(ALGO_FIRST)));
7502 } while(0) /*@SWIG@*/;
7503 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7504 SV *sv = get_sv((char*) SWIG_prefix "ALGO_FIRSTFIT", TRUE | 0x2 | GV_ADDMULTI);
7505 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(ALGO_FIRSTFIT)));
7507 } while(0) /*@SWIG@*/;
7508 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7509 SV *sv = get_sv((char*) SWIG_prefix "ALGO_LARGEST", TRUE | 0x2 | GV_ADDMULTI);
7510 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(ALGO_LARGEST)));
7512 } while(0) /*@SWIG@*/;
7513 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7514 SV *sv = get_sv((char*) SWIG_prefix "ALGO_LARGESTFIT", TRUE | 0x2 | GV_ADDMULTI);
7515 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(ALGO_LARGESTFIT)));
7517 } while(0) /*@SWIG@*/;
7518 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7519 SV *sv = get_sv((char*) SWIG_prefix "ALGO_SMALLEST", TRUE | 0x2 | GV_ADDMULTI);
7520 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(ALGO_SMALLEST)));
7522 } while(0) /*@SWIG@*/;
7523 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7524 SV *sv = get_sv((char*) SWIG_prefix "ALGO_LAST", TRUE | 0x2 | GV_ADDMULTI);
7525 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(ALGO_LAST)));
7527 } while(0) /*@SWIG@*/;
7528 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7529 SV *sv = get_sv((char*) SWIG_prefix "EXECUTE_ON_PRE_DLE_AMCHECK", TRUE | 0x2 | GV_ADDMULTI);
7530 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(EXECUTE_ON_PRE_DLE_AMCHECK)));
7532 } while(0) /*@SWIG@*/;
7533 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7534 SV *sv = get_sv((char*) SWIG_prefix "EXECUTE_ON_PRE_HOST_AMCHECK", TRUE | 0x2 | GV_ADDMULTI);
7535 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(EXECUTE_ON_PRE_HOST_AMCHECK)));
7537 } while(0) /*@SWIG@*/;
7538 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7539 SV *sv = get_sv((char*) SWIG_prefix "EXECUTE_ON_POST_DLE_AMCHECK", TRUE | 0x2 | GV_ADDMULTI);
7540 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(EXECUTE_ON_POST_DLE_AMCHECK)));
7542 } while(0) /*@SWIG@*/;
7543 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7544 SV *sv = get_sv((char*) SWIG_prefix "EXECUTE_ON_POST_HOST_AMCHECK", TRUE | 0x2 | GV_ADDMULTI);
7545 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(EXECUTE_ON_POST_HOST_AMCHECK)));
7547 } while(0) /*@SWIG@*/;
7548 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7549 SV *sv = get_sv((char*) SWIG_prefix "EXECUTE_ON_PRE_DLE_ESTIMATE", TRUE | 0x2 | GV_ADDMULTI);
7550 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(EXECUTE_ON_PRE_DLE_ESTIMATE)));
7552 } while(0) /*@SWIG@*/;
7553 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7554 SV *sv = get_sv((char*) SWIG_prefix "EXECUTE_ON_PRE_HOST_ESTIMATE", TRUE | 0x2 | GV_ADDMULTI);
7555 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(EXECUTE_ON_PRE_HOST_ESTIMATE)));
7557 } while(0) /*@SWIG@*/;
7558 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7559 SV *sv = get_sv((char*) SWIG_prefix "EXECUTE_ON_POST_DLE_ESTIMATE", TRUE | 0x2 | GV_ADDMULTI);
7560 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(EXECUTE_ON_POST_DLE_ESTIMATE)));
7562 } while(0) /*@SWIG@*/;
7563 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7564 SV *sv = get_sv((char*) SWIG_prefix "EXECUTE_ON_POST_HOST_ESTIMATE", TRUE | 0x2 | GV_ADDMULTI);
7565 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(EXECUTE_ON_POST_HOST_ESTIMATE)));
7567 } while(0) /*@SWIG@*/;
7568 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7569 SV *sv = get_sv((char*) SWIG_prefix "EXECUTE_ON_PRE_DLE_BACKUP", TRUE | 0x2 | GV_ADDMULTI);
7570 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(EXECUTE_ON_PRE_DLE_BACKUP)));
7572 } while(0) /*@SWIG@*/;
7573 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7574 SV *sv = get_sv((char*) SWIG_prefix "EXECUTE_ON_PRE_HOST_BACKUP", TRUE | 0x2 | GV_ADDMULTI);
7575 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(EXECUTE_ON_PRE_HOST_BACKUP)));
7577 } while(0) /*@SWIG@*/;
7578 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7579 SV *sv = get_sv((char*) SWIG_prefix "EXECUTE_ON_POST_DLE_BACKUP", TRUE | 0x2 | GV_ADDMULTI);
7580 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(EXECUTE_ON_POST_DLE_BACKUP)));
7582 } while(0) /*@SWIG@*/;
7583 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7584 SV *sv = get_sv((char*) SWIG_prefix "EXECUTE_ON_POST_HOST_BACKUP", TRUE | 0x2 | GV_ADDMULTI);
7585 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(EXECUTE_ON_POST_HOST_BACKUP)));
7587 } while(0) /*@SWIG@*/;
7588 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7589 SV *sv = get_sv((char*) SWIG_prefix "SEND_AMREPORT_ALL", TRUE | 0x2 | GV_ADDMULTI);
7590 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(SEND_AMREPORT_ALL)));
7592 } while(0) /*@SWIG@*/;
7593 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7594 SV *sv = get_sv((char*) SWIG_prefix "SEND_AMREPORT_STRANGE", TRUE | 0x2 | GV_ADDMULTI);
7595 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(SEND_AMREPORT_STRANGE)));
7597 } while(0) /*@SWIG@*/;
7598 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7599 SV *sv = get_sv((char*) SWIG_prefix "SEND_AMREPORT_ERROR", TRUE | 0x2 | GV_ADDMULTI);
7600 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(SEND_AMREPORT_ERROR)));
7602 } while(0) /*@SWIG@*/;
7603 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7604 SV *sv = get_sv((char*) SWIG_prefix "SEND_AMREPORT_NEVER", TRUE | 0x2 | GV_ADDMULTI);
7605 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(SEND_AMREPORT_NEVER)));
7607 } while(0) /*@SWIG@*/;
7608 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7609 SV *sv = get_sv((char*) SWIG_prefix "DATA_PATH_AMANDA", TRUE | 0x2 | GV_ADDMULTI);
7610 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DATA_PATH_AMANDA)));
7612 } while(0) /*@SWIG@*/;
7613 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7614 SV *sv = get_sv((char*) SWIG_prefix "DATA_PATH_DIRECTTCP", TRUE | 0x2 | GV_ADDMULTI);
7615 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DATA_PATH_DIRECTTCP)));
7617 } while(0) /*@SWIG@*/;
7618 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7619 SV *sv = get_sv((char*) SWIG_prefix "CFGERR_OK", TRUE | 0x2 | GV_ADDMULTI);
7620 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CFGERR_OK)));
7622 } while(0) /*@SWIG@*/;
7623 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7624 SV *sv = get_sv((char*) SWIG_prefix "CFGERR_WARNINGS", TRUE | 0x2 | GV_ADDMULTI);
7625 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CFGERR_WARNINGS)));
7627 } while(0) /*@SWIG@*/;
7628 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7629 SV *sv = get_sv((char*) SWIG_prefix "CFGERR_ERRORS", TRUE | 0x2 | GV_ADDMULTI);
7630 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CFGERR_ERRORS)));
7632 } while(0) /*@SWIG@*/;
7633 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7634 SV *sv = get_sv((char*) SWIG_prefix "CONFIG_INIT_EXPLICIT_NAME", TRUE | 0x2 | GV_ADDMULTI);
7635 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CONFIG_INIT_EXPLICIT_NAME)));
7637 } while(0) /*@SWIG@*/;
7638 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7639 SV *sv = get_sv((char*) SWIG_prefix "CONFIG_INIT_USE_CWD", TRUE | 0x2 | GV_ADDMULTI);
7640 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CONFIG_INIT_USE_CWD)));
7642 } while(0) /*@SWIG@*/;
7643 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7644 SV *sv = get_sv((char*) SWIG_prefix "CONFIG_INIT_CLIENT", TRUE | 0x2 | GV_ADDMULTI);
7645 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CONFIG_INIT_CLIENT)));
7647 } while(0) /*@SWIG@*/;
7648 /*@SWIG:/usr/share/swig/1.3.39/perl5/perltypemaps.swg,65,%set_constant@*/ do {
7649 SV *sv = get_sv((char*) SWIG_prefix "CONFIG_INIT_OVERLAY", TRUE | 0x2 | GV_ADDMULTI);
7650 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CONFIG_INIT_OVERLAY)));
7652 } while(0) /*@SWIG@*/;