1 /* ----------------------------------------------------------------------------
2 * This file was automatically generated by SWIG (http://www.swig.org).
3 * Version 3.0.7
4 *
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 * ----------------------------------------------------------------------------- */
10
11 #include "../config/config.h"
12
13
14 #define SWIGPERL
15 #define SWIG_CASTRANK_MODE
16
17 /* -----------------------------------------------------------------------------
18 * This section contains generic SWIG labels for method/variable
19 * declarations/attributes, and other compiler dependent labels.
20 * ----------------------------------------------------------------------------- */
21
22 /* template workaround for compilers that cannot correctly implement the C++ standard */
23 #ifndef SWIGTEMPLATEDISAMBIGUATOR
24 # if defined(__SUNPRO_CC) && (__SUNPRO_CC <= 0x560)
25 # define SWIGTEMPLATEDISAMBIGUATOR template
26 # elif defined(__HP_aCC)
27 /* Needed even with `aCC -AA' when `aCC -V' reports HP ANSI C++ B3910B A.03.55 */
28 /* If we find a maximum version that requires this, the test would be __HP_aCC <= 35500 for A.03.55 */
29 # define SWIGTEMPLATEDISAMBIGUATOR template
30 # else
31 # define SWIGTEMPLATEDISAMBIGUATOR
32 # endif
33 #endif
34
35 /* inline attribute */
36 #ifndef SWIGINLINE
37 # if defined(__cplusplus) || (defined(__GNUC__) && !defined(__STRICT_ANSI__))
38 # define SWIGINLINE inline
39 # else
40 # define SWIGINLINE
41 # endif
42 #endif
43
44 /* attribute recognised by some compilers to avoid 'unused' warnings */
45 #ifndef SWIGUNUSED
46 # if defined(__GNUC__)
47 # if !(defined(__cplusplus)) || (__GNUC__ > 3 || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4))
48 # define SWIGUNUSED __attribute__ ((__unused__))
49 # else
50 # define SWIGUNUSED
51 # endif
52 # elif defined(__ICC)
53 # define SWIGUNUSED __attribute__ ((__unused__))
54 # else
55 # define SWIGUNUSED
56 # endif
57 #endif
58
59 #ifndef SWIG_MSC_UNSUPPRESS_4505
60 # if defined(_MSC_VER)
61 # pragma warning(disable : 4505) /* unreferenced local function has been removed */
62 # endif
63 #endif
64
65 #ifndef SWIGUNUSEDPARM
66 # ifdef __cplusplus
67 # define SWIGUNUSEDPARM(p)
68 # else
69 # define SWIGUNUSEDPARM(p) p SWIGUNUSED
70 # endif
71 #endif
72
73 /* internal SWIG method */
74 #ifndef SWIGINTERN
75 # define SWIGINTERN static SWIGUNUSED
76 #endif
77
78 /* internal inline SWIG method */
79 #ifndef SWIGINTERNINLINE
80 # define SWIGINTERNINLINE SWIGINTERN SWIGINLINE
81 #endif
82
83 /* exporting methods */
84 #if (__GNUC__ >= 4) || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4)
85 # ifndef GCC_HASCLASSVISIBILITY
86 # define GCC_HASCLASSVISIBILITY
87 # endif
88 #endif
89
90 #ifndef SWIGEXPORT
91 # if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
92 # if defined(STATIC_LINKED)
93 # define SWIGEXPORT
94 # else
95 # define SWIGEXPORT __declspec(dllexport)
96 # endif
97 # else
98 # if defined(__GNUC__) && defined(GCC_HASCLASSVISIBILITY)
99 # define SWIGEXPORT __attribute__ ((visibility("default")))
100 # else
101 # define SWIGEXPORT
102 # endif
103 # endif
104 #endif
105
106 /* calling conventions for Windows */
107 #ifndef SWIGSTDCALL
108 # if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
109 # define SWIGSTDCALL __stdcall
110 # else
111 # define SWIGSTDCALL
112 # endif
113 #endif
114
115 /* Deal with Microsoft's attempt at deprecating C standard runtime functions */
116 #if !defined(SWIG_NO_CRT_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_CRT_SECURE_NO_DEPRECATE)
117 # define _CRT_SECURE_NO_DEPRECATE
118 #endif
119
120 /* Deal with Microsoft's attempt at deprecating methods in the standard C++ library */
121 #if !defined(SWIG_NO_SCL_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_SCL_SECURE_NO_DEPRECATE)
122 # define _SCL_SECURE_NO_DEPRECATE
123 #endif
124
125 /* Deal with Apple's deprecated 'AssertMacros.h' from Carbon-framework */
126 #if defined(__APPLE__) && !defined(__ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES)
127 # define __ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES 0
128 #endif
129
130 /* Intel's compiler complains if a variable which was never initialised is
131 * cast to void, which is a common idiom which we use to indicate that we
132 * are aware a variable isn't used. So we just silence that warning.
133 * See: https://github.com/swig/swig/issues/192 for more discussion.
134 */
135 #ifdef __INTEL_COMPILER
136 # pragma warning disable 592
137 #endif
138
139 /* -----------------------------------------------------------------------------
140 * swigrun.swg
141 *
142 * This file contains generic C API SWIG runtime support for pointer
143 * type checking.
144 * ----------------------------------------------------------------------------- */
145
146 /* This should only be incremented when either the layout of swig_type_info changes,
147 or for whatever reason, the runtime changes incompatibly */
148 #define SWIG_RUNTIME_VERSION "4"
149
150 /* define SWIG_TYPE_TABLE_NAME as "SWIG_TYPE_TABLE" */
151 #ifdef SWIG_TYPE_TABLE
152 # define SWIG_QUOTE_STRING(x) #x
153 # define SWIG_EXPAND_AND_QUOTE_STRING(x) SWIG_QUOTE_STRING(x)
154 # define SWIG_TYPE_TABLE_NAME SWIG_EXPAND_AND_QUOTE_STRING(SWIG_TYPE_TABLE)
155 #else
156 # define SWIG_TYPE_TABLE_NAME
157 #endif
158
159 /*
160 You can use the SWIGRUNTIME and SWIGRUNTIMEINLINE macros for
161 creating a static or dynamic library from the SWIG runtime code.
162 In 99.9% of the cases, SWIG just needs to declare them as 'static'.
163
164 But only do this if strictly necessary, ie, if you have problems
165 with your compiler or suchlike.
166 */
167
168 #ifndef SWIGRUNTIME
169 # define SWIGRUNTIME SWIGINTERN
170 #endif
171
172 #ifndef SWIGRUNTIMEINLINE
173 # define SWIGRUNTIMEINLINE SWIGRUNTIME SWIGINLINE
174 #endif
175
176 /* Generic buffer size */
177 #ifndef SWIG_BUFFER_SIZE
178 # define SWIG_BUFFER_SIZE 1024
179 #endif
180
181 /* Flags for pointer conversions */
182 #define SWIG_POINTER_DISOWN 0x1
183 #define SWIG_CAST_NEW_MEMORY 0x2
184
185 /* Flags for new pointer objects */
186 #define SWIG_POINTER_OWN 0x1
187
188
189 /*
190 Flags/methods for returning states.
191
192 The SWIG conversion methods, as ConvertPtr, return an integer
193 that tells if the conversion was successful or not. And if not,
194 an error code can be returned (see swigerrors.swg for the codes).
195
196 Use the following macros/flags to set or process the returning
197 states.
198
199 In old versions of SWIG, code such as the following was usually written:
200
201 if (SWIG_ConvertPtr(obj,vptr,ty.flags) != -1) {
202 // success code
203 } else {
204 //fail code
205 }
206
207 Now you can be more explicit:
208
209 int res = SWIG_ConvertPtr(obj,vptr,ty.flags);
210 if (SWIG_IsOK(res)) {
211 // success code
212 } else {
213 // fail code
214 }
215
216 which is the same really, but now you can also do
217
218 Type *ptr;
219 int res = SWIG_ConvertPtr(obj,(void **)(&ptr),ty.flags);
220 if (SWIG_IsOK(res)) {
221 // success code
222 if (SWIG_IsNewObj(res) {
223 ...
224 delete *ptr;
225 } else {
226 ...
227 }
228 } else {
229 // fail code
230 }
231
232 I.e., now SWIG_ConvertPtr can return new objects and you can
233 identify the case and take care of the deallocation. Of course that
234 also requires SWIG_ConvertPtr to return new result values, such as
235
236 int SWIG_ConvertPtr(obj, ptr,...) {
237 if (<obj is ok>) {
238 if (<need new object>) {
239 *ptr = <ptr to new allocated object>;
240 return SWIG_NEWOBJ;
241 } else {
242 *ptr = <ptr to old object>;
243 return SWIG_OLDOBJ;
244 }
245 } else {
246 return SWIG_BADOBJ;
247 }
248 }
249
250 Of course, returning the plain '0(success)/-1(fail)' still works, but you can be
251 more explicit by returning SWIG_BADOBJ, SWIG_ERROR or any of the
252 SWIG errors code.
253
254 Finally, if the SWIG_CASTRANK_MODE is enabled, the result code
255 allows to return the 'cast rank', for example, if you have this
256
257 int food(double)
258 int fooi(int);
259
260 and you call
261
262 food(1) // cast rank '1' (1 -> 1.0)
263 fooi(1) // cast rank '0'
264
265 just use the SWIG_AddCast()/SWIG_CheckState()
266 */
267
268 #define SWIG_OK (0)
269 #define SWIG_ERROR (-1)
270 #define SWIG_IsOK(r) (r >= 0)
271 #define SWIG_ArgError(r) ((r != SWIG_ERROR) ? r : SWIG_TypeError)
272
273 /* The CastRankLimit says how many bits are used for the cast rank */
274 #define SWIG_CASTRANKLIMIT (1 << 8)
275 /* The NewMask denotes the object was created (using new/malloc) */
276 #define SWIG_NEWOBJMASK (SWIG_CASTRANKLIMIT << 1)
277 /* The TmpMask is for in/out typemaps that use temporal objects */
278 #define SWIG_TMPOBJMASK (SWIG_NEWOBJMASK << 1)
279 /* Simple returning values */
280 #define SWIG_BADOBJ (SWIG_ERROR)
281 #define SWIG_OLDOBJ (SWIG_OK)
282 #define SWIG_NEWOBJ (SWIG_OK | SWIG_NEWOBJMASK)
283 #define SWIG_TMPOBJ (SWIG_OK | SWIG_TMPOBJMASK)
284 /* Check, add and del mask methods */
285 #define SWIG_AddNewMask(r) (SWIG_IsOK(r) ? (r | SWIG_NEWOBJMASK) : r)
286 #define SWIG_DelNewMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_NEWOBJMASK) : r)
287 #define SWIG_IsNewObj(r) (SWIG_IsOK(r) && (r & SWIG_NEWOBJMASK))
288 #define SWIG_AddTmpMask(r) (SWIG_IsOK(r) ? (r | SWIG_TMPOBJMASK) : r)
289 #define SWIG_DelTmpMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_TMPOBJMASK) : r)
290 #define SWIG_IsTmpObj(r) (SWIG_IsOK(r) && (r & SWIG_TMPOBJMASK))
291
292 /* Cast-Rank Mode */
293 #if defined(SWIG_CASTRANK_MODE)
294 # ifndef SWIG_TypeRank
295 # define SWIG_TypeRank unsigned long
296 # endif
297 # ifndef SWIG_MAXCASTRANK /* Default cast allowed */
298 # define SWIG_MAXCASTRANK (2)
299 # endif
300 # define SWIG_CASTRANKMASK ((SWIG_CASTRANKLIMIT) -1)
301 # define SWIG_CastRank(r) (r & SWIG_CASTRANKMASK)
SWIG_AddCast(int r)302 SWIGINTERNINLINE int SWIG_AddCast(int r) {
303 return SWIG_IsOK(r) ? ((SWIG_CastRank(r) < SWIG_MAXCASTRANK) ? (r + 1) : SWIG_ERROR) : r;
304 }
SWIG_CheckState(int r)305 SWIGINTERNINLINE int SWIG_CheckState(int r) {
306 return SWIG_IsOK(r) ? SWIG_CastRank(r) + 1 : 0;
307 }
308 #else /* no cast-rank mode */
309 # define SWIG_AddCast(r) (r)
310 # define SWIG_CheckState(r) (SWIG_IsOK(r) ? 1 : 0)
311 #endif
312
313
314 #include <string.h>
315
316 #ifdef __cplusplus
317 extern "C" {
318 #endif
319
320 typedef void *(*swig_converter_func)(void *, int *);
321 typedef struct swig_type_info *(*swig_dycast_func)(void **);
322
323 /* Structure to store information on one type */
324 typedef struct swig_type_info {
325 const char *name; /* mangled name of this type */
326 const char *str; /* human readable name of this type */
327 swig_dycast_func dcast; /* dynamic cast function down a hierarchy */
328 struct swig_cast_info *cast; /* linked list of types that can cast into this type */
329 void *clientdata; /* language specific type data */
330 int owndata; /* flag if the structure owns the clientdata */
331 } swig_type_info;
332
333 /* Structure to store a type and conversion function used for casting */
334 typedef struct swig_cast_info {
335 swig_type_info *type; /* pointer to type that is equivalent to this type */
336 swig_converter_func converter; /* function to cast the void pointers */
337 struct swig_cast_info *next; /* pointer to next cast in linked list */
338 struct swig_cast_info *prev; /* pointer to the previous cast */
339 } swig_cast_info;
340
341 /* Structure used to store module information
342 * Each module generates one structure like this, and the runtime collects
343 * all of these structures and stores them in a circularly linked list.*/
344 typedef struct swig_module_info {
345 swig_type_info **types; /* Array of pointers to swig_type_info structures that are in this module */
346 size_t size; /* Number of types in this module */
347 struct swig_module_info *next; /* Pointer to next element in circularly linked list */
348 swig_type_info **type_initial; /* Array of initially generated type structures */
349 swig_cast_info **cast_initial; /* Array of initially generated casting structures */
350 void *clientdata; /* Language specific module data */
351 } swig_module_info;
352
353 /*
354 Compare two type names skipping the space characters, therefore
355 "char*" == "char *" and "Class<int>" == "Class<int >", etc.
356
357 Return 0 when the two name types are equivalent, as in
358 strncmp, but skipping ' '.
359 */
360 SWIGRUNTIME int
SWIG_TypeNameComp(const char * f1,const char * l1,const char * f2,const char * l2)361 SWIG_TypeNameComp(const char *f1, const char *l1,
362 const char *f2, const char *l2) {
363 for (;(f1 != l1) && (f2 != l2); ++f1, ++f2) {
364 while ((*f1 == ' ') && (f1 != l1)) ++f1;
365 while ((*f2 == ' ') && (f2 != l2)) ++f2;
366 if (*f1 != *f2) return (*f1 > *f2) ? 1 : -1;
367 }
368 return (int)((l1 - f1) - (l2 - f2));
369 }
370
371 /*
372 Check type equivalence in a name list like <name1>|<name2>|...
373 Return 0 if equal, -1 if nb < tb, 1 if nb > tb
374 */
375 SWIGRUNTIME int
SWIG_TypeCmp(const char * nb,const char * tb)376 SWIG_TypeCmp(const char *nb, const char *tb) {
377 int equiv = 1;
378 const char* te = tb + strlen(tb);
379 const char* ne = nb;
380 while (equiv != 0 && *ne) {
381 for (nb = ne; *ne; ++ne) {
382 if (*ne == '|') break;
383 }
384 equiv = SWIG_TypeNameComp(nb, ne, tb, te);
385 if (*ne) ++ne;
386 }
387 return equiv;
388 }
389
390 /*
391 Check type equivalence in a name list like <name1>|<name2>|...
392 Return 0 if not equal, 1 if equal
393 */
394 SWIGRUNTIME int
SWIG_TypeEquiv(const char * nb,const char * tb)395 SWIG_TypeEquiv(const char *nb, const char *tb) {
396 return SWIG_TypeCmp(nb, tb) == 0 ? 1 : 0;
397 }
398
399 /*
400 Check the typename
401 */
402 SWIGRUNTIME swig_cast_info *
SWIG_TypeCheck(const char * c,swig_type_info * ty)403 SWIG_TypeCheck(const char *c, swig_type_info *ty) {
404 if (ty) {
405 swig_cast_info *iter = ty->cast;
406 while (iter) {
407 if (strcmp(iter->type->name, c) == 0) {
408 if (iter == ty->cast)
409 return iter;
410 /* Move iter to the top of the linked list */
411 iter->prev->next = iter->next;
412 if (iter->next)
413 iter->next->prev = iter->prev;
414 iter->next = ty->cast;
415 iter->prev = 0;
416 if (ty->cast) ty->cast->prev = iter;
417 ty->cast = iter;
418 return iter;
419 }
420 iter = iter->next;
421 }
422 }
423 return 0;
424 }
425
426 /*
427 Identical to SWIG_TypeCheck, except strcmp is replaced with a pointer comparison
428 */
429 SWIGRUNTIME swig_cast_info *
SWIG_TypeCheckStruct(swig_type_info * from,swig_type_info * ty)430 SWIG_TypeCheckStruct(swig_type_info *from, swig_type_info *ty) {
431 if (ty) {
432 swig_cast_info *iter = ty->cast;
433 while (iter) {
434 if (iter->type == from) {
435 if (iter == ty->cast)
436 return iter;
437 /* Move iter to the top of the linked list */
438 iter->prev->next = iter->next;
439 if (iter->next)
440 iter->next->prev = iter->prev;
441 iter->next = ty->cast;
442 iter->prev = 0;
443 if (ty->cast) ty->cast->prev = iter;
444 ty->cast = iter;
445 return iter;
446 }
447 iter = iter->next;
448 }
449 }
450 return 0;
451 }
452
453 /*
454 Cast a pointer up an inheritance hierarchy
455 */
456 SWIGRUNTIMEINLINE void *
SWIG_TypeCast(swig_cast_info * ty,void * ptr,int * newmemory)457 SWIG_TypeCast(swig_cast_info *ty, void *ptr, int *newmemory) {
458 return ((!ty) || (!ty->converter)) ? ptr : (*ty->converter)(ptr, newmemory);
459 }
460
461 /*
462 Dynamic pointer casting. Down an inheritance hierarchy
463 */
464 SWIGRUNTIME swig_type_info *
SWIG_TypeDynamicCast(swig_type_info * ty,void ** ptr)465 SWIG_TypeDynamicCast(swig_type_info *ty, void **ptr) {
466 swig_type_info *lastty = ty;
467 if (!ty || !ty->dcast) return ty;
468 while (ty && (ty->dcast)) {
469 ty = (*ty->dcast)(ptr);
470 if (ty) lastty = ty;
471 }
472 return lastty;
473 }
474
475 /*
476 Return the name associated with this type
477 */
478 SWIGRUNTIMEINLINE const char *
SWIG_TypeName(const swig_type_info * ty)479 SWIG_TypeName(const swig_type_info *ty) {
480 return ty->name;
481 }
482
483 /*
484 Return the pretty name associated with this type,
485 that is an unmangled type name in a form presentable to the user.
486 */
487 SWIGRUNTIME const char *
SWIG_TypePrettyName(const swig_type_info * type)488 SWIG_TypePrettyName(const swig_type_info *type) {
489 /* The "str" field contains the equivalent pretty names of the
490 type, separated by vertical-bar characters. We choose
491 to print the last name, as it is often (?) the most
492 specific. */
493 if (!type) return NULL;
494 if (type->str != NULL) {
495 const char *last_name = type->str;
496 const char *s;
497 for (s = type->str; *s; s++)
498 if (*s == '|') last_name = s+1;
499 return last_name;
500 }
501 else
502 return type->name;
503 }
504
505 /*
506 Set the clientdata field for a type
507 */
508 SWIGRUNTIME void
SWIG_TypeClientData(swig_type_info * ti,void * clientdata)509 SWIG_TypeClientData(swig_type_info *ti, void *clientdata) {
510 swig_cast_info *cast = ti->cast;
511 /* if (ti->clientdata == clientdata) return; */
512 ti->clientdata = clientdata;
513
514 while (cast) {
515 if (!cast->converter) {
516 swig_type_info *tc = cast->type;
517 if (!tc->clientdata) {
518 SWIG_TypeClientData(tc, clientdata);
519 }
520 }
521 cast = cast->next;
522 }
523 }
524 SWIGRUNTIME void
SWIG_TypeNewClientData(swig_type_info * ti,void * clientdata)525 SWIG_TypeNewClientData(swig_type_info *ti, void *clientdata) {
526 SWIG_TypeClientData(ti, clientdata);
527 ti->owndata = 1;
528 }
529
530 /*
531 Search for a swig_type_info structure only by mangled name
532 Search is a O(log #types)
533
534 We start searching at module start, and finish searching when start == end.
535 Note: if start == end at the beginning of the function, we go all the way around
536 the circular list.
537 */
538 SWIGRUNTIME swig_type_info *
SWIG_MangledTypeQueryModule(swig_module_info * start,swig_module_info * end,const char * name)539 SWIG_MangledTypeQueryModule(swig_module_info *start,
540 swig_module_info *end,
541 const char *name) {
542 swig_module_info *iter = start;
543 do {
544 if (iter->size) {
545 size_t l = 0;
546 size_t r = iter->size - 1;
547 do {
548 /* since l+r >= 0, we can (>> 1) instead (/ 2) */
549 size_t i = (l + r) >> 1;
550 const char *iname = iter->types[i]->name;
551 if (iname) {
552 int compare = strcmp(name, iname);
553 if (compare == 0) {
554 return iter->types[i];
555 } else if (compare < 0) {
556 if (i) {
557 r = i - 1;
558 } else {
559 break;
560 }
561 } else if (compare > 0) {
562 l = i + 1;
563 }
564 } else {
565 break; /* should never happen */
566 }
567 } while (l <= r);
568 }
569 iter = iter->next;
570 } while (iter != end);
571 return 0;
572 }
573
574 /*
575 Search for a swig_type_info structure for either a mangled name or a human readable name.
576 It first searches the mangled names of the types, which is a O(log #types)
577 If a type is not found it then searches the human readable names, which is O(#types).
578
579 We start searching at module start, and finish searching when start == end.
580 Note: if start == end at the beginning of the function, we go all the way around
581 the circular list.
582 */
583 SWIGRUNTIME swig_type_info *
SWIG_TypeQueryModule(swig_module_info * start,swig_module_info * end,const char * name)584 SWIG_TypeQueryModule(swig_module_info *start,
585 swig_module_info *end,
586 const char *name) {
587 /* STEP 1: Search the name field using binary search */
588 swig_type_info *ret = SWIG_MangledTypeQueryModule(start, end, name);
589 if (ret) {
590 return ret;
591 } else {
592 /* STEP 2: If the type hasn't been found, do a complete search
593 of the str field (the human readable name) */
594 swig_module_info *iter = start;
595 do {
596 size_t i = 0;
597 for (; i < iter->size; ++i) {
598 if (iter->types[i]->str && (SWIG_TypeEquiv(iter->types[i]->str, name)))
599 return iter->types[i];
600 }
601 iter = iter->next;
602 } while (iter != end);
603 }
604
605 /* neither found a match */
606 return 0;
607 }
608
609 /*
610 Pack binary data into a string
611 */
612 SWIGRUNTIME char *
SWIG_PackData(char * c,void * ptr,size_t sz)613 SWIG_PackData(char *c, void *ptr, size_t sz) {
614 static const char hex[17] = "0123456789abcdef";
615 const unsigned char *u = (unsigned char *) ptr;
616 const unsigned char *eu = u + sz;
617 for (; u != eu; ++u) {
618 unsigned char uu = *u;
619 *(c++) = hex[(uu & 0xf0) >> 4];
620 *(c++) = hex[uu & 0xf];
621 }
622 return c;
623 }
624
625 /*
626 Unpack binary data from a string
627 */
628 SWIGRUNTIME const char *
SWIG_UnpackData(const char * c,void * ptr,size_t sz)629 SWIG_UnpackData(const char *c, void *ptr, size_t sz) {
630 unsigned char *u = (unsigned char *) ptr;
631 const unsigned char *eu = u + sz;
632 for (; u != eu; ++u) {
633 char d = *(c++);
634 unsigned char uu;
635 if ((d >= '0') && (d <= '9'))
636 uu = ((d - '0') << 4);
637 else if ((d >= 'a') && (d <= 'f'))
638 uu = ((d - ('a'-10)) << 4);
639 else
640 return (char *) 0;
641 d = *(c++);
642 if ((d >= '0') && (d <= '9'))
643 uu |= (d - '0');
644 else if ((d >= 'a') && (d <= 'f'))
645 uu |= (d - ('a'-10));
646 else
647 return (char *) 0;
648 *u = uu;
649 }
650 return c;
651 }
652
653 /*
654 Pack 'void *' into a string buffer.
655 */
656 SWIGRUNTIME char *
SWIG_PackVoidPtr(char * buff,void * ptr,const char * name,size_t bsz)657 SWIG_PackVoidPtr(char *buff, void *ptr, const char *name, size_t bsz) {
658 char *r = buff;
659 if ((2*sizeof(void *) + 2) > bsz) return 0;
660 *(r++) = '_';
661 r = SWIG_PackData(r,&ptr,sizeof(void *));
662 if (strlen(name) + 1 > (bsz - (r - buff))) return 0;
663 strcpy(r,name);
664 return buff;
665 }
666
667 SWIGRUNTIME const char *
SWIG_UnpackVoidPtr(const char * c,void ** ptr,const char * name)668 SWIG_UnpackVoidPtr(const char *c, void **ptr, const char *name) {
669 if (*c != '_') {
670 if (strcmp(c,"NULL") == 0) {
671 *ptr = (void *) 0;
672 return name;
673 } else {
674 return 0;
675 }
676 }
677 return SWIG_UnpackData(++c,ptr,sizeof(void *));
678 }
679
680 SWIGRUNTIME char *
SWIG_PackDataName(char * buff,void * ptr,size_t sz,const char * name,size_t bsz)681 SWIG_PackDataName(char *buff, void *ptr, size_t sz, const char *name, size_t bsz) {
682 char *r = buff;
683 size_t lname = (name ? strlen(name) : 0);
684 if ((2*sz + 2 + lname) > bsz) return 0;
685 *(r++) = '_';
686 r = SWIG_PackData(r,ptr,sz);
687 if (lname) {
688 strncpy(r,name,lname+1);
689 } else {
690 *r = 0;
691 }
692 return buff;
693 }
694
695 SWIGRUNTIME const char *
SWIG_UnpackDataName(const char * c,void * ptr,size_t sz,const char * name)696 SWIG_UnpackDataName(const char *c, void *ptr, size_t sz, const char *name) {
697 if (*c != '_') {
698 if (strcmp(c,"NULL") == 0) {
699 memset(ptr,0,sz);
700 return name;
701 } else {
702 return 0;
703 }
704 }
705 return SWIG_UnpackData(++c,ptr,sz);
706 }
707
708 #ifdef __cplusplus
709 }
710 #endif
711
712 /* Errors in SWIG */
713 #define SWIG_UnknownError -1
714 #define SWIG_IOError -2
715 #define SWIG_RuntimeError -3
716 #define SWIG_IndexError -4
717 #define SWIG_TypeError -5
718 #define SWIG_DivisionByZero -6
719 #define SWIG_OverflowError -7
720 #define SWIG_SyntaxError -8
721 #define SWIG_ValueError -9
722 #define SWIG_SystemError -10
723 #define SWIG_AttributeError -11
724 #define SWIG_MemoryError -12
725 #define SWIG_NullReferenceError -13
726
727
728
729 #ifdef __cplusplus
730 /* Needed on some windows machines---since MS plays funny games with the header files under C++ */
731 #include <math.h>
732 #include <stdlib.h>
733 extern "C" {
734 #endif
735 #include "EXTERN.h"
736 #include "perl.h"
737 #include "XSUB.h"
738
739 /* Add in functionality missing in older versions of Perl. Much of this is based on Devel-PPPort on cpan. */
740
741 /* Add PERL_REVISION, PERL_VERSION, PERL_SUBVERSION if missing */
742 #ifndef PERL_REVISION
743 # if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
744 # define PERL_PATCHLEVEL_H_IMPLICIT
745 # include <patchlevel.h>
746 # endif
747 # if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
748 # include <could_not_find_Perl_patchlevel.h>
749 # endif
750 # ifndef PERL_REVISION
751 # define PERL_REVISION (5)
752 # define PERL_VERSION PATCHLEVEL
753 # define PERL_SUBVERSION SUBVERSION
754 # endif
755 #endif
756
757 #if defined(WIN32) && defined(PERL_OBJECT) && !defined(PerlIO_exportFILE)
758 #define PerlIO_exportFILE(fh,fl) (FILE*)(fh)
759 #endif
760
761 #ifndef SvIOK_UV
762 # define SvIOK_UV(sv) (SvIOK(sv) && (SvUVX(sv) == SvIVX(sv)))
763 #endif
764
765 #ifndef SvUOK
766 # define SvUOK(sv) SvIOK_UV(sv)
767 #endif
768
769 #if ((PERL_VERSION < 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION <= 5)))
770 # define PL_sv_undef sv_undef
771 # define PL_na na
772 # define PL_errgv errgv
773 # define PL_sv_no sv_no
774 # define PL_sv_yes sv_yes
775 # define PL_markstack_ptr markstack_ptr
776 #endif
777
778 #ifndef IVSIZE
779 # ifdef LONGSIZE
780 # define IVSIZE LONGSIZE
781 # else
782 # define IVSIZE 4 /* A bold guess, but the best we can make. */
783 # endif
784 #endif
785
786 #ifndef INT2PTR
787 # if (IVSIZE == PTRSIZE) && (UVSIZE == PTRSIZE)
788 # define PTRV UV
789 # define INT2PTR(any,d) (any)(d)
790 # else
791 # if PTRSIZE == LONGSIZE
792 # define PTRV unsigned long
793 # else
794 # define PTRV unsigned
795 # endif
796 # define INT2PTR(any,d) (any)(PTRV)(d)
797 # endif
798
799 # define NUM2PTR(any,d) (any)(PTRV)(d)
800 # define PTR2IV(p) INT2PTR(IV,p)
801 # define PTR2UV(p) INT2PTR(UV,p)
802 # define PTR2NV(p) NUM2PTR(NV,p)
803
804 # if PTRSIZE == LONGSIZE
805 # define PTR2ul(p) (unsigned long)(p)
806 # else
807 # define PTR2ul(p) INT2PTR(unsigned long,p)
808 # endif
809 #endif /* !INT2PTR */
810
811 #ifndef SvPV_nolen
812 # define SvPV_nolen(x) SvPV(x,PL_na)
813 #endif
814
815 #ifndef get_sv
816 # define get_sv perl_get_sv
817 #endif
818
819 #ifndef ERRSV
820 # define ERRSV get_sv("@",FALSE)
821 #endif
822
823 #ifndef pTHX_
824 #define pTHX_
825 #endif
826
827 #include <string.h>
828 #ifdef __cplusplus
829 }
830 #endif
831
832 /* -----------------------------------------------------------------------------
833 * error manipulation
834 * ----------------------------------------------------------------------------- */
835
836 SWIGINTERN const char*
SWIG_Perl_ErrorType(int code)837 SWIG_Perl_ErrorType(int code) {
838 switch(code) {
839 case SWIG_MemoryError:
840 return "MemoryError";
841 case SWIG_IOError:
842 return "IOError";
843 case SWIG_RuntimeError:
844 return "RuntimeError";
845 case SWIG_IndexError:
846 return "IndexError";
847 case SWIG_TypeError:
848 return "TypeError";
849 case SWIG_DivisionByZero:
850 return "ZeroDivisionError";
851 case SWIG_OverflowError:
852 return "OverflowError";
853 case SWIG_SyntaxError:
854 return "SyntaxError";
855 case SWIG_ValueError:
856 return "ValueError";
857 case SWIG_SystemError:
858 return "SystemError";
859 case SWIG_AttributeError:
860 return "AttributeError";
861 default:
862 return "RuntimeError";
863 }
864 }
865
866
867 /* -----------------------------------------------------------------------------
868 * perlrun.swg
869 *
870 * This file contains the runtime support for Perl modules
871 * and includes code for managing global variables and pointer
872 * type checking.
873 * ----------------------------------------------------------------------------- */
874
875 #ifdef PERL_OBJECT
876 #define SWIG_PERL_OBJECT_DECL CPerlObj *SWIGUNUSEDPARM(pPerl),
877 #define SWIG_PERL_OBJECT_CALL pPerl,
878 #else
879 #define SWIG_PERL_OBJECT_DECL
880 #define SWIG_PERL_OBJECT_CALL
881 #endif
882
883 /* Common SWIG API */
884
885 /* for raw pointers */
886 #define SWIG_ConvertPtr(obj, pp, type, flags) SWIG_Perl_ConvertPtr(SWIG_PERL_OBJECT_CALL obj, pp, type, flags)
887 #define SWIG_ConvertPtrAndOwn(obj, pp, type, flags,own) SWIG_Perl_ConvertPtrAndOwn(SWIG_PERL_OBJECT_CALL obj, pp, type, flags, own)
888 #define SWIG_NewPointerObj(p, type, flags) SWIG_Perl_NewPointerObj(SWIG_PERL_OBJECT_CALL p, type, flags)
889 #define swig_owntype int
890
891 /* for raw packed data */
892 #define SWIG_ConvertPacked(obj, p, s, type) SWIG_Perl_ConvertPacked(SWIG_PERL_OBJECT_CALL obj, p, s, type)
893 #define SWIG_NewPackedObj(p, s, type) SWIG_Perl_NewPackedObj(SWIG_PERL_OBJECT_CALL p, s, type)
894
895 /* for class or struct pointers */
896 #define SWIG_ConvertInstance(obj, pptr, type, flags) SWIG_ConvertPtr(obj, pptr, type, flags)
897 #define SWIG_NewInstanceObj(ptr, type, flags) SWIG_NewPointerObj(ptr, type, flags)
898
899 /* for C or C++ function pointers */
900 #define SWIG_ConvertFunctionPtr(obj, pptr, type) SWIG_ConvertPtr(obj, pptr, type, 0)
901 #define SWIG_NewFunctionPtrObj(ptr, type) SWIG_NewPointerObj(ptr, type, 0)
902
903 /* for C++ member pointers, ie, member methods */
904 #define SWIG_ConvertMember(obj, ptr, sz, ty) SWIG_ConvertPacked(obj, ptr, sz, ty)
905 #define SWIG_NewMemberObj(ptr, sz, type) SWIG_NewPackedObj(ptr, sz, type)
906
907
908 /* Runtime API */
909
910 #define SWIG_GetModule(clientdata) SWIG_Perl_GetModule(clientdata)
911 #define SWIG_SetModule(clientdata, pointer) SWIG_Perl_SetModule(pointer)
912
913
914 /* Error manipulation */
915
916 #define SWIG_ErrorType(code) SWIG_Perl_ErrorType(code)
917 #define SWIG_Error(code, msg) sv_setpvf(get_sv("@", GV_ADD), "%s %s", SWIG_ErrorType(code), msg)
918 #define SWIG_fail goto fail
919
920 /* Perl-specific SWIG API */
921
922 #define SWIG_MakePtr(sv, ptr, type, flags) SWIG_Perl_MakePtr(SWIG_PERL_OBJECT_CALL sv, ptr, type, flags)
923 #define SWIG_MakePackedObj(sv, p, s, type) SWIG_Perl_MakePackedObj(SWIG_PERL_OBJECT_CALL sv, p, s, type)
924 #define SWIG_SetError(str) SWIG_Error(SWIG_RuntimeError, str)
925
926
927 #define SWIG_PERL_DECL_ARGS_1(arg1) (SWIG_PERL_OBJECT_DECL arg1)
928 #define SWIG_PERL_CALL_ARGS_1(arg1) (SWIG_PERL_OBJECT_CALL arg1)
929 #define SWIG_PERL_DECL_ARGS_2(arg1, arg2) (SWIG_PERL_OBJECT_DECL arg1, arg2)
930 #define SWIG_PERL_CALL_ARGS_2(arg1, arg2) (SWIG_PERL_OBJECT_CALL arg1, arg2)
931
932 /* -----------------------------------------------------------------------------
933 * pointers/data manipulation
934 * ----------------------------------------------------------------------------- */
935
936 /* For backward compatibility only */
937 #define SWIG_POINTER_EXCEPTION 0
938
939 #ifdef __cplusplus
940 extern "C" {
941 #endif
942
943 #define SWIG_OWNER SWIG_POINTER_OWN
944 #define SWIG_SHADOW SWIG_OWNER << 1
945
946 #define SWIG_MAYBE_PERL_OBJECT SWIG_PERL_OBJECT_DECL
947
948 /* SWIG Perl macros */
949
950 /* Macro to declare an XS function */
951 #ifndef XSPROTO
952 # define XSPROTO(name) void name(pTHX_ CV* cv)
953 #endif
954
955 /* Macro to call an XS function */
956 #ifdef PERL_OBJECT
957 # define SWIG_CALLXS(_name) _name(cv,pPerl)
958 #else
959 # ifndef MULTIPLICITY
960 # define SWIG_CALLXS(_name) _name(cv)
961 # else
962 # define SWIG_CALLXS(_name) _name(PERL_GET_THX, cv)
963 # endif
964 #endif
965
966 #ifdef PERL_OBJECT
967 #define MAGIC_PPERL CPerlObj *pPerl = (CPerlObj *) this;
968
969 #ifdef __cplusplus
970 extern "C" {
971 #endif
972 typedef int (CPerlObj::*SwigMagicFunc)(SV *, MAGIC *);
973 #ifdef __cplusplus
974 }
975 #endif
976
977 #define SWIG_MAGIC(a,b) (SV *a, MAGIC *b)
978 #define SWIGCLASS_STATIC
979
980 #else /* PERL_OBJECT */
981
982 #define MAGIC_PPERL
983 #define SWIGCLASS_STATIC static SWIGUNUSED
984
985 #ifndef MULTIPLICITY
986 #define SWIG_MAGIC(a,b) (SV *a, MAGIC *b)
987
988 #ifdef __cplusplus
989 extern "C" {
990 #endif
991 typedef int (*SwigMagicFunc)(SV *, MAGIC *);
992 #ifdef __cplusplus
993 }
994 #endif
995
996 #else /* MULTIPLICITY */
997
998 #define SWIG_MAGIC(a,b) (struct interpreter *interp, SV *a, MAGIC *b)
999
1000 #ifdef __cplusplus
1001 extern "C" {
1002 #endif
1003 typedef int (*SwigMagicFunc)(struct interpreter *, SV *, MAGIC *);
1004 #ifdef __cplusplus
1005 }
1006 #endif
1007
1008 #endif /* MULTIPLICITY */
1009 #endif /* PERL_OBJECT */
1010
1011 # ifdef PERL_OBJECT
1012 # define SWIG_croak_null() SWIG_Perl_croak_null(pPerl)
SWIG_Perl_croak_null(CPerlObj * pPerl)1013 static void SWIG_Perl_croak_null(CPerlObj *pPerl)
1014 # else
1015 static void SWIG_croak_null()
1016 # endif
1017 {
1018 SV *err = get_sv("@", GV_ADD);
1019 # if (PERL_VERSION < 6)
1020 croak("%_", err);
1021 # else
1022 if (sv_isobject(err))
1023 croak(0);
1024 else
1025 croak("%s", SvPV_nolen(err));
1026 # endif
1027 }
1028
1029
1030 /*
1031 Define how strict is the cast between strings and integers/doubles
1032 when overloading between these types occurs.
1033
1034 The default is making it as strict as possible by using SWIG_AddCast
1035 when needed.
1036
1037 You can use -DSWIG_PERL_NO_STRICT_STR2NUM at compilation time to
1038 disable the SWIG_AddCast, making the casting between string and
1039 numbers less strict.
1040
1041 In the end, we try to solve the overloading between strings and
1042 numerical types in the more natural way, but if you can avoid it,
1043 well, avoid it using %rename, for example.
1044 */
1045 #ifndef SWIG_PERL_NO_STRICT_STR2NUM
1046 # ifndef SWIG_PERL_STRICT_STR2NUM
1047 # define SWIG_PERL_STRICT_STR2NUM
1048 # endif
1049 #endif
1050 #ifdef SWIG_PERL_STRICT_STR2NUM
1051 /* string takes precedence */
1052 #define SWIG_Str2NumCast(x) SWIG_AddCast(x)
1053 #else
1054 /* number takes precedence */
1055 #define SWIG_Str2NumCast(x) x
1056 #endif
1057
1058
1059
1060 #include <stdlib.h>
1061
1062 SWIGRUNTIME const char *
SWIG_Perl_TypeProxyName(const swig_type_info * type)1063 SWIG_Perl_TypeProxyName(const swig_type_info *type) {
1064 if (!type) return NULL;
1065 if (type->clientdata != NULL) {
1066 return (const char*) type->clientdata;
1067 }
1068 else {
1069 return type->name;
1070 }
1071 }
1072
1073 /* Identical to SWIG_TypeCheck, except for strcmp comparison */
1074 SWIGRUNTIME swig_cast_info *
SWIG_TypeProxyCheck(const char * c,swig_type_info * ty)1075 SWIG_TypeProxyCheck(const char *c, swig_type_info *ty) {
1076 if (ty) {
1077 swig_cast_info *iter = ty->cast;
1078 while (iter) {
1079 if (strcmp(SWIG_Perl_TypeProxyName(iter->type), c) == 0) {
1080 if (iter == ty->cast)
1081 return iter;
1082 /* Move iter to the top of the linked list */
1083 iter->prev->next = iter->next;
1084 if (iter->next)
1085 iter->next->prev = iter->prev;
1086 iter->next = ty->cast;
1087 iter->prev = 0;
1088 if (ty->cast) ty->cast->prev = iter;
1089 ty->cast = iter;
1090 return iter;
1091 }
1092 iter = iter->next;
1093 }
1094 }
1095 return 0;
1096 }
1097
1098 /* Function for getting a pointer value */
1099
1100 SWIGRUNTIME int
SWIG_Perl_ConvertPtrAndOwn(SWIG_MAYBE_PERL_OBJECT SV * sv,void ** ptr,swig_type_info * _t,int flags,int * own)1101 SWIG_Perl_ConvertPtrAndOwn(SWIG_MAYBE_PERL_OBJECT SV *sv, void **ptr, swig_type_info *_t, int flags, int *own) {
1102 swig_cast_info *tc;
1103 void *voidptr = (void *)0;
1104 SV *tsv = 0;
1105
1106 if (own)
1107 *own = 0;
1108
1109 /* If magical, apply more magic */
1110 if (SvGMAGICAL(sv))
1111 mg_get(sv);
1112
1113 /* Check to see if this is an object */
1114 if (sv_isobject(sv)) {
1115 IV tmp = 0;
1116 tsv = (SV*) SvRV(sv);
1117 if ((SvTYPE(tsv) == SVt_PVHV)) {
1118 MAGIC *mg;
1119 if (SvMAGICAL(tsv)) {
1120 mg = mg_find(tsv,'P');
1121 if (mg) {
1122 sv = mg->mg_obj;
1123 if (sv_isobject(sv)) {
1124 tsv = (SV*)SvRV(sv);
1125 tmp = SvIV(tsv);
1126 }
1127 }
1128 } else {
1129 return SWIG_ERROR;
1130 }
1131 } else {
1132 tmp = SvIV(tsv);
1133 }
1134 voidptr = INT2PTR(void *,tmp);
1135 } else if (! SvOK(sv)) { /* Check for undef */
1136 *(ptr) = (void *) 0;
1137 return SWIG_OK;
1138 } else if (SvTYPE(sv) == SVt_RV) { /* Check for NULL pointer */
1139 if (!SvROK(sv)) {
1140 /* In Perl 5.12 and later, SVt_RV == SVt_IV, so sv could be a valid integer value. */
1141 if (SvIOK(sv)) {
1142 return SWIG_ERROR;
1143 } else {
1144 /* NULL pointer (reference to undef). */
1145 *(ptr) = (void *) 0;
1146 return SWIG_OK;
1147 }
1148 } else {
1149 return SWIG_ERROR;
1150 }
1151 } else { /* Don't know what it is */
1152 return SWIG_ERROR;
1153 }
1154 if (_t) {
1155 /* Now see if the types match */
1156 char *_c = HvNAME(SvSTASH(SvRV(sv)));
1157 tc = SWIG_TypeProxyCheck(_c,_t);
1158 #ifdef SWIG_DIRECTORS
1159 if (!tc && !sv_derived_from(sv,SWIG_Perl_TypeProxyName(_t))) {
1160 #else
1161 if (!tc) {
1162 #endif
1163 return SWIG_ERROR;
1164 }
1165 {
1166 int newmemory = 0;
1167 *ptr = SWIG_TypeCast(tc,voidptr,&newmemory);
1168 if (newmemory == SWIG_CAST_NEW_MEMORY) {
1169 assert(own); /* badly formed typemap which will lead to a memory leak - it must set and use own to delete *ptr */
1170 if (own)
1171 *own = *own | SWIG_CAST_NEW_MEMORY;
1172 }
1173 }
1174 } else {
1175 *ptr = voidptr;
1176 }
1177
1178 /*
1179 * DISOWN implementation: we need a perl guru to check this one.
1180 */
1181 if (tsv && (flags & SWIG_POINTER_DISOWN)) {
1182 /*
1183 * almost copy paste code from below SWIG_POINTER_OWN setting
1184 */
1185 SV *obj = sv;
1186 HV *stash = SvSTASH(SvRV(obj));
1187 GV *gv = *(GV**)hv_fetch(stash, "OWNER", 5, TRUE);
1188 if (isGV(gv)) {
1189 HV *hv = GvHVn(gv);
1190 /*
1191 * To set ownership (see below), a newSViv(1) entry is added.
1192 * Hence, to remove ownership, we delete the entry.
1193 */
1194 if (hv_exists_ent(hv, obj, 0)) {
1195 hv_delete_ent(hv, obj, 0, 0);
1196 }
1197 }
1198 }
1199 return SWIG_OK;
1200 }
1201
1202 SWIGRUNTIME int
1203 SWIG_Perl_ConvertPtr(SWIG_MAYBE_PERL_OBJECT SV *sv, void **ptr, swig_type_info *_t, int flags) {
1204 return SWIG_Perl_ConvertPtrAndOwn(sv, ptr, _t, flags, 0);
1205 }
1206
1207 SWIGRUNTIME void
1208 SWIG_Perl_MakePtr(SWIG_MAYBE_PERL_OBJECT SV *sv, void *ptr, swig_type_info *t, int flags) {
1209 if (ptr && (flags & (SWIG_SHADOW | SWIG_POINTER_OWN))) {
1210 SV *self;
1211 SV *obj=newSV(0);
1212 HV *hash=newHV();
1213 HV *stash;
1214 sv_setref_pv(obj, SWIG_Perl_TypeProxyName(t), ptr);
1215 stash=SvSTASH(SvRV(obj));
1216 if (flags & SWIG_POINTER_OWN) {
1217 HV *hv;
1218 GV *gv = *(GV**)hv_fetch(stash, "OWNER", 5, TRUE);
1219 if (!isGV(gv))
1220 gv_init(gv, stash, "OWNER", 5, FALSE);
1221 hv=GvHVn(gv);
1222 hv_store_ent(hv, obj, newSViv(1), 0);
1223 }
1224 sv_magic((SV *)hash, (SV *)obj, 'P', Nullch, 0);
1225 SvREFCNT_dec(obj);
1226 self=newRV_noinc((SV *)hash);
1227 sv_setsv(sv, self);
1228 SvREFCNT_dec((SV *)self);
1229 sv_bless(sv, stash);
1230 }
1231 else {
1232 sv_setref_pv(sv, SWIG_Perl_TypeProxyName(t), ptr);
1233 }
1234 }
1235
1236 SWIGRUNTIMEINLINE SV *
1237 SWIG_Perl_NewPointerObj(SWIG_MAYBE_PERL_OBJECT void *ptr, swig_type_info *t, int flags) {
1238 SV *result = sv_newmortal();
1239 SWIG_MakePtr(result, ptr, t, flags);
1240 return result;
1241 }
1242
1243 SWIGRUNTIME void
1244 SWIG_Perl_MakePackedObj(SWIG_MAYBE_PERL_OBJECT SV *sv, void *ptr, int sz, swig_type_info *type) {
1245 char result[1024];
1246 char *r = result;
1247 if ((2*sz + 1 + strlen(SWIG_Perl_TypeProxyName(type))) > 1000) return;
1248 *(r++) = '_';
1249 r = SWIG_PackData(r,ptr,sz);
1250 strcpy(r,SWIG_Perl_TypeProxyName(type));
1251 sv_setpv(sv, result);
1252 }
1253
1254 SWIGRUNTIME SV *
1255 SWIG_Perl_NewPackedObj(SWIG_MAYBE_PERL_OBJECT void *ptr, int sz, swig_type_info *type) {
1256 SV *result = sv_newmortal();
1257 SWIG_Perl_MakePackedObj(result, ptr, sz, type);
1258 return result;
1259 }
1260
1261 /* Convert a packed value value */
1262 SWIGRUNTIME int
1263 SWIG_Perl_ConvertPacked(SWIG_MAYBE_PERL_OBJECT SV *obj, void *ptr, int sz, swig_type_info *ty) {
1264 swig_cast_info *tc;
1265 const char *c = 0;
1266
1267 if ((!obj) || (!SvOK(obj))) return SWIG_ERROR;
1268 c = SvPV_nolen(obj);
1269 /* Pointer values must start with leading underscore */
1270 if (*c != '_') return SWIG_ERROR;
1271 c++;
1272 c = SWIG_UnpackData(c,ptr,sz);
1273 if (ty) {
1274 tc = SWIG_TypeCheck(c,ty);
1275 if (!tc) return SWIG_ERROR;
1276 }
1277 return SWIG_OK;
1278 }
1279
1280
1281 /* Macros for low-level exception handling */
1282 #define SWIG_croak(x) { SWIG_Error(SWIG_RuntimeError, x); SWIG_fail; }
1283
1284
1285 typedef XSPROTO(SwigPerlWrapper);
1286 typedef SwigPerlWrapper *SwigPerlWrapperPtr;
1287
1288 /* Structure for command table */
1289 typedef struct {
1290 const char *name;
1291 SwigPerlWrapperPtr wrapper;
1292 } swig_command_info;
1293
1294 /* Information for constant table */
1295
1296 #define SWIG_INT 1
1297 #define SWIG_FLOAT 2
1298 #define SWIG_STRING 3
1299 #define SWIG_POINTER 4
1300 #define SWIG_BINARY 5
1301
1302 /* Constant information structure */
1303 typedef struct swig_constant_info {
1304 int type;
1305 const char *name;
1306 long lvalue;
1307 double dvalue;
1308 void *pvalue;
1309 swig_type_info **ptype;
1310 } swig_constant_info;
1311
1312
1313 /* Structure for variable table */
1314 typedef struct {
1315 const char *name;
1316 SwigMagicFunc set;
1317 SwigMagicFunc get;
1318 swig_type_info **type;
1319 } swig_variable_info;
1320
1321 /* Magic variable code */
1322 #ifndef PERL_OBJECT
1323 # ifdef __cplusplus
1324 # define swig_create_magic(s,a,b,c) _swig_create_magic(s,const_cast<char*>(a),b,c)
1325 # else
1326 # define swig_create_magic(s,a,b,c) _swig_create_magic(s,(char*)(a),b,c)
1327 # endif
1328 # ifndef MULTIPLICITY
1329 SWIGRUNTIME void _swig_create_magic(SV *sv, char *name, int (*set)(SV *, MAGIC *), int (*get)(SV *,MAGIC *))
1330 # else
1331 SWIGRUNTIME void _swig_create_magic(SV *sv, char *name, int (*set)(struct interpreter*, SV *, MAGIC *), int (*get)(struct interpreter*, SV *,MAGIC *))
1332 # endif
1333 #else
1334 # define swig_create_magic(s,a,b,c) _swig_create_magic(pPerl,s,a,b,c)
1335 SWIGRUNTIME void _swig_create_magic(CPerlObj *pPerl, SV *sv, const char *name, int (CPerlObj::*set)(SV *, MAGIC *), int (CPerlObj::*get)(SV *, MAGIC *))
1336 #endif
1337 {
1338 MAGIC *mg;
1339 sv_magic(sv,sv,'U',name,strlen(name));
1340 mg = mg_find(sv,'U');
1341 mg->mg_virtual = (MGVTBL *) malloc(sizeof(MGVTBL));
1342 mg->mg_virtual->svt_get = (SwigMagicFunc) get;
1343 mg->mg_virtual->svt_set = (SwigMagicFunc) set;
1344 mg->mg_virtual->svt_len = 0;
1345 mg->mg_virtual->svt_clear = 0;
1346 mg->mg_virtual->svt_free = 0;
1347 }
1348
1349
1350 SWIGRUNTIME swig_module_info *
1351 SWIG_Perl_GetModule(void *SWIGUNUSEDPARM(clientdata)) {
1352 static void *type_pointer = (void *)0;
1353 SV *pointer;
1354
1355 /* first check if pointer already created */
1356 if (!type_pointer) {
1357 pointer = get_sv("swig_runtime_data::type_pointer" SWIG_RUNTIME_VERSION SWIG_TYPE_TABLE_NAME, FALSE | GV_ADDMULTI);
1358 if (pointer && SvOK(pointer)) {
1359 type_pointer = INT2PTR(swig_type_info **, SvIV(pointer));
1360 }
1361 }
1362
1363 return (swig_module_info *) type_pointer;
1364 }
1365
1366 SWIGRUNTIME void
1367 SWIG_Perl_SetModule(swig_module_info *module) {
1368 SV *pointer;
1369
1370 /* create a new pointer */
1371 pointer = get_sv("swig_runtime_data::type_pointer" SWIG_RUNTIME_VERSION SWIG_TYPE_TABLE_NAME, TRUE | GV_ADDMULTI);
1372 sv_setiv(pointer, PTR2IV(module));
1373 }
1374
1375 #ifdef __cplusplus
1376 }
1377 #endif
1378
1379 /* Workaround perl5 global namespace pollution. Note that undefining library
1380 * functions like fopen will not solve the problem on all platforms as fopen
1381 * might be a macro on Windows but not necessarily on other operating systems. */
1382 #ifdef do_open
1383 #undef do_open
1384 #endif
1385 #ifdef do_close
1386 #undef do_close
1387 #endif
1388 #ifdef do_exec
1389 #undef do_exec
1390 #endif
1391 #ifdef scalar
1392 #undef scalar
1393 #endif
1394 #ifdef list
1395 #undef list
1396 #endif
1397 #ifdef apply
1398 #undef apply
1399 #endif
1400 #ifdef convert
1401 #undef convert
1402 #endif
1403 #ifdef Error
1404 #undef Error
1405 #endif
1406 #ifdef form
1407 #undef form
1408 #endif
1409 #ifdef vform
1410 #undef vform
1411 #endif
1412 #ifdef LABEL
1413 #undef LABEL
1414 #endif
1415 #ifdef METHOD
1416 #undef METHOD
1417 #endif
1418 #ifdef Move
1419 #undef Move
1420 #endif
1421 #ifdef yylex
1422 #undef yylex
1423 #endif
1424 #ifdef yyparse
1425 #undef yyparse
1426 #endif
1427 #ifdef yyerror
1428 #undef yyerror
1429 #endif
1430 #ifdef invert
1431 #undef invert
1432 #endif
1433 #ifdef ref
1434 #undef ref
1435 #endif
1436 #ifdef read
1437 #undef read
1438 #endif
1439 #ifdef write
1440 #undef write
1441 #endif
1442 #ifdef eof
1443 #undef eof
1444 #endif
1445 #ifdef close
1446 #undef close
1447 #endif
1448 #ifdef rewind
1449 #undef rewind
1450 #endif
1451 #ifdef free
1452 #undef free
1453 #endif
1454 #ifdef malloc
1455 #undef malloc
1456 #endif
1457 #ifdef calloc
1458 #undef calloc
1459 #endif
1460 #ifdef Stat
1461 #undef Stat
1462 #endif
1463 #ifdef check
1464 #undef check
1465 #endif
1466 #ifdef seekdir
1467 #undef seekdir
1468 #endif
1469 #ifdef open
1470 #undef open
1471 #endif
1472 #ifdef readdir
1473 #undef readdir
1474 #endif
1475 #ifdef bind
1476 #undef bind
1477 #endif
1478 #ifdef access
1479 #undef access
1480 #endif
1481 #ifdef stat
1482 #undef stat
1483 #endif
1484 #ifdef seed
1485 #undef seed
1486 #endif
1487
1488 #ifdef bool
1489 /* Leave if macro is from C99 stdbool.h */
1490 #ifndef __bool_true_false_are_defined
1491
1492 #endif
1493 #endif
1494
1495
1496
1497
1498 #define SWIG_exception_fail(code, msg) do { SWIG_Error(code, msg); SWIG_fail; } while(0)
1499
1500 #define SWIG_contract_assert(expr, msg) if (!(expr)) { SWIG_Error(SWIG_RuntimeError, msg); SWIG_fail; } else
1501
1502
1503
1504 #define SWIG_exception(code, msg) do { SWIG_Error(code, msg); SWIG_fail;; } while(0)
1505
1506
1507 /* -------- TYPES TABLE (BEGIN) -------- */
1508
1509 #define SWIGTYPE_p_application_t swig_types[0]
1510 #define SWIGTYPE_p_changer_config_t swig_types[1]
1511 #define SWIGTYPE_p_char swig_types[2]
1512 #define SWIGTYPE_p_config_overrides_t swig_types[3]
1513 #define SWIGTYPE_p_device_config_t swig_types[4]
1514 #define SWIGTYPE_p_double swig_types[5]
1515 #define SWIGTYPE_p_dumptype_t swig_types[6]
1516 #define SWIGTYPE_p_float swig_types[7]
1517 #define SWIGTYPE_p_holdingdisk_t swig_types[8]
1518 #define SWIGTYPE_p_int swig_types[9]
1519 #define SWIGTYPE_p_interactivity_t swig_types[10]
1520 #define SWIGTYPE_p_interface_t swig_types[11]
1521 #define SWIGTYPE_p_p_GSList swig_types[12]
1522 #define SWIGTYPE_p_p_char swig_types[13]
1523 #define SWIGTYPE_p_pp_script_t swig_types[14]
1524 #define SWIGTYPE_p_taperscan_t swig_types[15]
1525 #define SWIGTYPE_p_tapetype_t swig_types[16]
1526 #define SWIGTYPE_p_unsigned_char swig_types[17]
1527 static swig_type_info *swig_types[19];
1528 static swig_module_info swig_module = {swig_types, 18, 0, 0, 0, 0};
1529 #define SWIG_TypeQuery(name) SWIG_TypeQueryModule(&swig_module, &swig_module, name)
1530 #define SWIG_MangledTypeQuery(name) SWIG_MangledTypeQueryModule(&swig_module, &swig_module, name)
1531
1532 /* -------- TYPES TABLE (END) -------- */
1533
1534 #define SWIG_init boot_Amanda__Config
1535
1536 #define SWIG_name "Amanda::Configc::boot_Amanda__Config"
1537 #define SWIG_prefix "Amanda::Configc::"
1538
1539 #define SWIGVERSION 0x030007
1540 #define SWIG_VERSION SWIGVERSION
1541
1542
1543 #define SWIG_as_voidptr(a) (void *)((const void *)(a))
1544 #define SWIG_as_voidptrptr(a) ((void)SWIG_as_voidptr(*a),(void**)(a))
1545
1546
1547 #ifdef __cplusplus
1548 extern "C"
1549 #endif
1550 #ifndef PERL_OBJECT
1551 #ifndef MULTIPLICITY
1552 SWIGEXPORT void SWIG_init (CV* cv);
1553 #else
1554 SWIGEXPORT void SWIG_init (pTHXo_ CV* cv);
1555 #endif
1556 #else
1557 SWIGEXPORT void SWIG_init (CV *cv, CPerlObj *);
1558 #endif
1559
1560
1561 #include "amglue.h"
1562
1563
1564 #include "amglue.h"
1565
1566
1567 #include "amglue.h"
1568
1569
1570 #include "conffile.h"
1571
1572
1573 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(long value)1574 SWIG_From_long SWIG_PERL_DECL_ARGS_1(long value)
1575 {
1576 SV *sv;
1577 if (value >= IV_MIN && value <= IV_MAX)
1578 sv = newSViv(value);
1579 else
1580 sv = newSVpvf("%ld", value);
1581 return sv_2mortal(sv);
1582 }
1583
1584
1585 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(int value)1586 SWIG_From_int SWIG_PERL_DECL_ARGS_1(int value)
1587 {
1588 return SWIG_From_long SWIG_PERL_CALL_ARGS_1(value);
1589 }
1590
1591
1592 static int
val_t_to_sv(val_t * val,SV ** results)1593 val_t_to_sv(val_t *val, SV **results) {
1594 if (!val) {
1595 results[0] = &PL_sv_undef;
1596 return 1;
1597 } else {
1598 switch (val->type) {
1599 case CONFTYPE_RATE: {
1600 results[0] = sv_newmortal();
1601 sv_setnv(results[0], val_t__rate(val)[0]);
1602
1603 results[1] = sv_newmortal();
1604 sv_setnv(results[1], val_t__rate(val)[1]);
1605 return 2;
1606 }
1607
1608 case CONFTYPE_INTRANGE: {
1609 results[0] = sv_newmortal();
1610 sv_setiv(results[0], val_t__intrange(val)[0]);
1611
1612 results[1] = sv_newmortal();
1613 sv_setiv(results[1], val_t__intrange(val)[1]);
1614 return 2;
1615 }
1616
1617 case CONFTYPE_EXINCLUDE: {
1618 /* exincludes are represented in perl as {
1619 * 'list' : [ 'list1', 'list2', ..],
1620 * 'file' : [ 'file1', 'file2', ..],
1621 * 'optional' : 1,
1622 * }
1623 */
1624 exinclude_t *ei = &val_t__exinclude(val);
1625 AV *list_entries = (AV *)sv_2mortal((SV *)newAV());
1626 AV *file_entries = (AV *)sv_2mortal((SV *)newAV());
1627 SV *optional = sv_newmortal();
1628 HV *hv;
1629 sle_t *iter;
1630
1631 /* first set up each of the hash values */
1632
1633 if (ei->sl_list) {
1634 for (iter = ei->sl_list->first; iter != NULL; iter = iter->next) {
1635 av_push(list_entries, newSVpv(iter->name, 0));
1636 }
1637 }
1638
1639 if(ei->sl_file) {
1640 for (iter = ei->sl_file->first; iter != NULL; iter = iter->next) {
1641 av_push(file_entries, newSVpv(iter->name, 0));
1642 }
1643 }
1644
1645 sv_setiv(optional, ei->optional);
1646
1647 /* now build the hash */
1648 hv = (HV *)sv_2mortal((SV *)newHV());
1649
1650 hv_store(hv, "file", 4, newRV((SV *)file_entries), 0);
1651 hv_store(hv, "list", 4, newRV((SV *)list_entries), 0);
1652 hv_store(hv, "optional", 8, optional, 0);
1653 SvREFCNT_inc(optional);
1654
1655 results[0] = sv_2mortal(newRV((SV *)hv));
1656 return 1;
1657 }
1658
1659 case CONFTYPE_PROPLIST:
1660 results[0] = sv_2mortal(g_hash_table_to_hashref_property(val_t__proplist(val)));
1661 return 1;
1662
1663 case CONFTYPE_SIZE:
1664 results[0] = sv_2mortal(amglue_newSVi64(val_t__size(val)));
1665 return 1;
1666
1667 case CONFTYPE_INT64:
1668 results[0] = sv_2mortal(amglue_newSVi64(val_t__int64(val)));
1669 return 1;
1670
1671 case CONFTYPE_BOOLEAN: /* all same as INT.. */
1672 case CONFTYPE_NO_YES_ALL:
1673 case CONFTYPE_COMPRESS:
1674 case CONFTYPE_ENCRYPT:
1675 case CONFTYPE_STRATEGY:
1676 case CONFTYPE_TAPERALGO:
1677 case CONFTYPE_PRIORITY:
1678 case CONFTYPE_HOLDING:
1679 case CONFTYPE_EXECUTE_ON:
1680 case CONFTYPE_EXECUTE_WHERE:
1681 case CONFTYPE_SEND_AMREPORT_ON:
1682 case CONFTYPE_DATA_PATH:
1683 case CONFTYPE_PART_CACHE_TYPE:
1684 case CONFTYPE_INT:
1685 results[0] = sv_2mortal(amglue_newSVi64(val_t__int(val)));
1686 return 1;
1687
1688 case CONFTYPE_ESTIMATELIST: {
1689 AV *elist = newAV();
1690 estimatelist_t el;
1691 for (el=val_t__estimatelist(val); el != NULL; el = el->next) {
1692 av_push(elist, newSVuv(GPOINTER_TO_INT(el->data)));
1693 }
1694 results[0] = sv_2mortal(newRV_noinc((SV *)elist));
1695 return 1;
1696 }
1697
1698 case CONFTYPE_TIME:
1699 results[0] = sv_2mortal(amglue_newSVi64(val_t__time(val)));
1700 return 1;
1701
1702 case CONFTYPE_REAL:
1703 results[0] = sv_newmortal();
1704 sv_setnv(results[0], val_t__real(val));
1705 return 1;
1706
1707 case CONFTYPE_IDENT: /* same as STRING */
1708 case CONFTYPE_STR:
1709 case CONFTYPE_APPLICATION:
1710 results[0] = sv_newmortal();
1711 sv_setpv(results[0], val_t__str(val));
1712 return 1;
1713
1714 case CONFTYPE_IDENTLIST:
1715 case CONFTYPE_STR_LIST: {
1716 AV *ilist = newAV();
1717
1718 identlist_t il;
1719 for (il=val_t__identlist(val); il != NULL; il = il->next) {
1720 av_push(ilist, newSVpv((char *)il->data, 0));
1721 }
1722
1723 results[0] = sv_2mortal(newRV_noinc((SV *)ilist));
1724 return 1;
1725 }
1726
1727 case CONFTYPE_HOST_LIMIT: {
1728 AV *av;
1729 GSList *iter;
1730 host_limit_t *rl = &val_t__host_limit(val);
1731
1732 av = newAV();
1733 if (rl->same_host)
1734 av_push(av, newSVpv("SAMEHOST-SAMEHOST-SAMEHOST", 0));
1735 if (rl->server)
1736 av_push(av, newSVpv("SERVER-SERVER-SERVER", 0));
1737 for (iter=rl->match_pats; iter != NULL; iter = iter->next) {
1738 av_push(av, newSVpv((char *)iter->data, 0));
1739 }
1740
1741 results[0] = sv_2mortal(newRV_noinc((SV *)av));
1742 return 1;
1743 }
1744
1745 case CONFTYPE_AUTOLABEL: {
1746 autolabel_t *autolabel = &val_t__autolabel(val);
1747 HV *hv;
1748
1749 /* now build the hash */
1750 hv = (HV *)sv_2mortal((SV *)newHV());
1751 hv_store(hv, "template", 8,
1752 (autolabel->template)? newSVpv(autolabel->template, 0) : newSV(0),
1753 0);
1754 hv_store(hv, "other_config", 12,
1755 (autolabel->autolabel & AL_OTHER_CONFIG)? &PL_sv_yes : &PL_sv_no,
1756 0);
1757 hv_store(hv, "non_amanda", 10,
1758 (autolabel->autolabel & AL_NON_AMANDA)? &PL_sv_yes : &PL_sv_no,
1759 0);
1760 hv_store(hv, "volume_error", 12,
1761 (autolabel->autolabel & AL_VOLUME_ERROR)? &PL_sv_yes : &PL_sv_no,
1762 0);
1763 hv_store(hv, "empty", 5,
1764 (autolabel->autolabel & AL_EMPTY)? &PL_sv_yes : &PL_sv_no,
1765 0);
1766
1767 results[0] = sv_2mortal(newRV((SV *)hv));
1768 return 1;
1769 }
1770
1771 /* No match yet -> not one of the "complex" types */
1772 default:
1773 SWIG_exception(SWIG_TypeError, "Unknown val_t conftype");
1774 break;
1775 }
1776 }
1777
1778 return 0;
1779
1780 fail:
1781 SWIG_croak_null();
1782 }
1783
1784
1785 SWIGINTERN swig_type_info*
SWIG_pchar_descriptor(void)1786 SWIG_pchar_descriptor(void)
1787 {
1788 static int init = 0;
1789 static swig_type_info* info = 0;
1790 if (!init) {
1791 info = SWIG_TypeQuery("_p_char");
1792 init = 1;
1793 }
1794 return info;
1795 }
1796
1797
1798 SWIGINTERN int
SWIG_AsCharPtrAndSize(SV * obj,char ** cptr,size_t * psize,int * alloc)1799 SWIG_AsCharPtrAndSize(SV *obj, char** cptr, size_t* psize, int *alloc)
1800 {
1801 if (SvMAGICAL(obj)) {
1802 SV *tmp = sv_newmortal();
1803 SvSetSV(tmp, obj);
1804 obj = tmp;
1805 }
1806 if (SvPOK(obj)) {
1807 STRLEN len = 0;
1808 char *cstr = SvPV(obj, len);
1809 size_t size = len + 1;
1810 if (cptr) {
1811 if (alloc) {
1812 if (*alloc == SWIG_NEWOBJ) {
1813 *cptr = (char *)memcpy((char *)malloc((size)*sizeof(char)), cstr, sizeof(char)*(size));
1814 } else {
1815 *cptr = cstr;
1816 *alloc = SWIG_OLDOBJ;
1817 }
1818 }
1819 }
1820 if (psize) *psize = size;
1821 return SWIG_OK;
1822 } else {
1823 swig_type_info* pchar_descriptor = SWIG_pchar_descriptor();
1824 if (pchar_descriptor) {
1825 char* vptr = 0;
1826 if (SWIG_ConvertPtr(obj, (void**)&vptr, pchar_descriptor, 0) == SWIG_OK) {
1827 if (cptr) *cptr = vptr;
1828 if (psize) *psize = vptr ? (strlen(vptr) + 1) : 0;
1829 if (alloc) *alloc = SWIG_OLDOBJ;
1830 return SWIG_OK;
1831 }
1832 }
1833 }
1834 return SWIG_TypeError;
1835 }
1836
1837
1838
1839
1840
1841 #include <limits.h>
1842 #if !defined(SWIG_NO_LLONG_MAX)
1843 # if !defined(LLONG_MAX) && defined(__GNUC__) && defined (__LONG_LONG_MAX__)
1844 # define LLONG_MAX __LONG_LONG_MAX__
1845 # define LLONG_MIN (-LLONG_MAX - 1LL)
1846 # define ULLONG_MAX (LLONG_MAX * 2ULL + 1ULL)
1847 # endif
1848 #endif
1849
1850
1851 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,double * val)1852 SWIG_AsVal_double SWIG_PERL_DECL_ARGS_2(SV *obj, double *val)
1853 {
1854 if (SvNIOK(obj)) {
1855 if (val) *val = SvNV(obj);
1856 return SWIG_OK;
1857 } else if (SvIOK(obj)) {
1858 if (val) *val = (double) SvIV(obj);
1859 return SWIG_AddCast(SWIG_OK);
1860 } else {
1861 const char *nptr = SvPV_nolen(obj);
1862 if (nptr) {
1863 char *endptr;
1864 double v;
1865 errno = 0;
1866 v = strtod(nptr, &endptr);
1867 if (errno == ERANGE) {
1868 errno = 0;
1869 return SWIG_OverflowError;
1870 } else {
1871 if (*endptr == '\0') {
1872 if (val) *val = v;
1873 return SWIG_Str2NumCast(SWIG_OK);
1874 }
1875 }
1876 }
1877 }
1878 return SWIG_TypeError;
1879 }
1880
1881
1882 #include <float.h>
1883
1884
1885 #include <math.h>
1886
1887
1888 SWIGINTERNINLINE int
SWIG_CanCastAsInteger(double * d,double min,double max)1889 SWIG_CanCastAsInteger(double *d, double min, double max) {
1890 double x = *d;
1891 if ((min <= x && x <= max)) {
1892 double fx = floor(x);
1893 double cx = ceil(x);
1894 double rd = ((x - fx) < 0.5) ? fx : cx; /* simple rint */
1895 if ((errno == EDOM) || (errno == ERANGE)) {
1896 errno = 0;
1897 } else {
1898 double summ, reps, diff;
1899 if (rd < x) {
1900 diff = x - rd;
1901 } else if (rd > x) {
1902 diff = rd - x;
1903 } else {
1904 return 1;
1905 }
1906 summ = rd + x;
1907 reps = diff/summ;
1908 if (reps < 8*DBL_EPSILON) {
1909 *d = rd;
1910 return 1;
1911 }
1912 }
1913 }
1914 return 0;
1915 }
1916
1917
1918 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,long * val)1919 SWIG_AsVal_long SWIG_PERL_DECL_ARGS_2(SV *obj, long* val)
1920 {
1921 if (SvUOK(obj)) {
1922 UV v = SvUV(obj);
1923 if (v <= LONG_MAX) {
1924 if (val) *val = v;
1925 return SWIG_OK;
1926 }
1927 return SWIG_OverflowError;
1928 } else if (SvIOK(obj)) {
1929 IV v = SvIV(obj);
1930 if (v >= LONG_MIN && v <= LONG_MAX) {
1931 if(val) *val = v;
1932 return SWIG_OK;
1933 }
1934 return SWIG_OverflowError;
1935 } else {
1936 int dispatch = 0;
1937 const char *nptr = SvPV_nolen(obj);
1938 if (nptr) {
1939 char *endptr;
1940 long v;
1941 errno = 0;
1942 v = strtol(nptr, &endptr,0);
1943 if (errno == ERANGE) {
1944 errno = 0;
1945 return SWIG_OverflowError;
1946 } else {
1947 if (*endptr == '\0') {
1948 if (val) *val = v;
1949 return SWIG_Str2NumCast(SWIG_OK);
1950 }
1951 }
1952 }
1953 if (!dispatch) {
1954 double d;
1955 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
1956 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, LONG_MIN, LONG_MAX)) {
1957 if (val) *val = (long)(d);
1958 return res;
1959 }
1960 }
1961 }
1962 return SWIG_TypeError;
1963 }
1964
1965
1966 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,int * val)1967 SWIG_AsVal_int SWIG_PERL_DECL_ARGS_2(SV * obj, int *val)
1968 {
1969 long v;
1970 int res = SWIG_AsVal_long SWIG_PERL_CALL_ARGS_2(obj, &v);
1971 if (SWIG_IsOK(res)) {
1972 if ((v < INT_MIN || v > INT_MAX)) {
1973 return SWIG_OverflowError;
1974 } else {
1975 if (val) *val = (int)(v);
1976 }
1977 }
1978 return res;
1979 }
1980
1981
1982 typedef char **val_t_strs;
getconf_byname_strs(char * key,int str_needs_quotes)1983 val_t_strs getconf_byname_strs(char *key, int str_needs_quotes) {
1984 val_t *val = getconf_byname(key);
1985 if (!val) return NULL;
1986 return val_t_display_strs(val, str_needs_quotes, FALSE, FALSE);
1987 }
1988
1989
1990 SWIGINTERNINLINE SV *
SWIG_FromCharPtrAndSize(const char * carray,size_t size)1991 SWIG_FromCharPtrAndSize(const char* carray, size_t size)
1992 {
1993 SV *obj = sv_newmortal();
1994 if (carray) {
1995 sv_setpvn(obj, carray, size);
1996 } else {
1997 sv_setsv(obj, &PL_sv_undef);
1998 }
1999 return obj;
2000 }
2001
2002
2003 SWIGINTERNINLINE SV *
SWIG_FromCharPtr(const char * cptr)2004 SWIG_FromCharPtr(const char *cptr)
2005 {
2006 return SWIG_FromCharPtrAndSize(cptr, (cptr ? strlen(cptr) : 0));
2007 }
2008
2009 #ifdef __cplusplus
2010 extern "C" {
2011 #endif
2012
2013 #ifdef PERL_OBJECT
2014 #define MAGIC_CLASS _wrap_Amanda__Config_var::
2015 class _wrap_Amanda__Config_var : public CPerlObj {
2016 public:
2017 #else
2018 #define MAGIC_CLASS
2019 #endif
swig_magic_readonly(pTHX_ SV * SWIGUNUSEDPARM (sv),MAGIC * SWIGUNUSEDPARM (mg))2020 SWIGCLASS_STATIC int swig_magic_readonly(pTHX_ SV *SWIGUNUSEDPARM(sv), MAGIC *SWIGUNUSEDPARM(mg)) {
2021 MAGIC_PPERL
2022 croak("Value is read-only.");
2023 return 0;
2024 }
_wrap_debug_amandad_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2025 SWIGCLASS_STATIC int _wrap_debug_amandad_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2026 MAGIC_PPERL
2027 {
2028 int val;
2029 int res = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(sv, &val);
2030 if (!SWIG_IsOK(res)) {
2031 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""debug_amandad""' of type '""int""'");
2032 }
2033 debug_amandad = (int)(val);
2034 }
2035 fail:
2036 return 1;
2037 }
2038
2039
_wrap_debug_amandad_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2040 SWIGCLASS_STATIC int _wrap_debug_amandad_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2041 MAGIC_PPERL
2042 sv_setsv(sv,SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(debug_amandad))) ;
2043 return 1;
2044 }
2045
2046
_wrap_debug_recovery_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2047 SWIGCLASS_STATIC int _wrap_debug_recovery_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2048 MAGIC_PPERL
2049 {
2050 int val;
2051 int res = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(sv, &val);
2052 if (!SWIG_IsOK(res)) {
2053 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""debug_recovery""' of type '""int""'");
2054 }
2055 debug_recovery = (int)(val);
2056 }
2057 fail:
2058 return 1;
2059 }
2060
2061
_wrap_debug_recovery_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2062 SWIGCLASS_STATIC int _wrap_debug_recovery_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2063 MAGIC_PPERL
2064 sv_setsv(sv,SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(debug_recovery))) ;
2065 return 1;
2066 }
2067
2068
_wrap_debug_amidxtaped_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2069 SWIGCLASS_STATIC int _wrap_debug_amidxtaped_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2070 MAGIC_PPERL
2071 {
2072 int val;
2073 int res = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(sv, &val);
2074 if (!SWIG_IsOK(res)) {
2075 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""debug_amidxtaped""' of type '""int""'");
2076 }
2077 debug_amidxtaped = (int)(val);
2078 }
2079 fail:
2080 return 1;
2081 }
2082
2083
_wrap_debug_amidxtaped_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2084 SWIGCLASS_STATIC int _wrap_debug_amidxtaped_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2085 MAGIC_PPERL
2086 sv_setsv(sv,SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(debug_amidxtaped))) ;
2087 return 1;
2088 }
2089
2090
_wrap_debug_amindexd_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2091 SWIGCLASS_STATIC int _wrap_debug_amindexd_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2092 MAGIC_PPERL
2093 {
2094 int val;
2095 int res = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(sv, &val);
2096 if (!SWIG_IsOK(res)) {
2097 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""debug_amindexd""' of type '""int""'");
2098 }
2099 debug_amindexd = (int)(val);
2100 }
2101 fail:
2102 return 1;
2103 }
2104
2105
_wrap_debug_amindexd_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2106 SWIGCLASS_STATIC int _wrap_debug_amindexd_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2107 MAGIC_PPERL
2108 sv_setsv(sv,SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(debug_amindexd))) ;
2109 return 1;
2110 }
2111
2112
_wrap_debug_amrecover_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2113 SWIGCLASS_STATIC int _wrap_debug_amrecover_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2114 MAGIC_PPERL
2115 {
2116 int val;
2117 int res = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(sv, &val);
2118 if (!SWIG_IsOK(res)) {
2119 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""debug_amrecover""' of type '""int""'");
2120 }
2121 debug_amrecover = (int)(val);
2122 }
2123 fail:
2124 return 1;
2125 }
2126
2127
_wrap_debug_amrecover_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2128 SWIGCLASS_STATIC int _wrap_debug_amrecover_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2129 MAGIC_PPERL
2130 sv_setsv(sv,SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(debug_amrecover))) ;
2131 return 1;
2132 }
2133
2134
_wrap_debug_auth_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2135 SWIGCLASS_STATIC int _wrap_debug_auth_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2136 MAGIC_PPERL
2137 {
2138 int val;
2139 int res = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(sv, &val);
2140 if (!SWIG_IsOK(res)) {
2141 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""debug_auth""' of type '""int""'");
2142 }
2143 debug_auth = (int)(val);
2144 }
2145 fail:
2146 return 1;
2147 }
2148
2149
_wrap_debug_auth_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2150 SWIGCLASS_STATIC int _wrap_debug_auth_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2151 MAGIC_PPERL
2152 sv_setsv(sv,SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(debug_auth))) ;
2153 return 1;
2154 }
2155
2156
_wrap_debug_event_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2157 SWIGCLASS_STATIC int _wrap_debug_event_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2158 MAGIC_PPERL
2159 {
2160 int val;
2161 int res = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(sv, &val);
2162 if (!SWIG_IsOK(res)) {
2163 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""debug_event""' of type '""int""'");
2164 }
2165 debug_event = (int)(val);
2166 }
2167 fail:
2168 return 1;
2169 }
2170
2171
_wrap_debug_event_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2172 SWIGCLASS_STATIC int _wrap_debug_event_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2173 MAGIC_PPERL
2174 sv_setsv(sv,SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(debug_event))) ;
2175 return 1;
2176 }
2177
2178
_wrap_debug_holding_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2179 SWIGCLASS_STATIC int _wrap_debug_holding_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2180 MAGIC_PPERL
2181 {
2182 int val;
2183 int res = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(sv, &val);
2184 if (!SWIG_IsOK(res)) {
2185 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""debug_holding""' of type '""int""'");
2186 }
2187 debug_holding = (int)(val);
2188 }
2189 fail:
2190 return 1;
2191 }
2192
2193
_wrap_debug_holding_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2194 SWIGCLASS_STATIC int _wrap_debug_holding_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2195 MAGIC_PPERL
2196 sv_setsv(sv,SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(debug_holding))) ;
2197 return 1;
2198 }
2199
2200
_wrap_debug_protocol_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2201 SWIGCLASS_STATIC int _wrap_debug_protocol_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2202 MAGIC_PPERL
2203 {
2204 int val;
2205 int res = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(sv, &val);
2206 if (!SWIG_IsOK(res)) {
2207 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""debug_protocol""' of type '""int""'");
2208 }
2209 debug_protocol = (int)(val);
2210 }
2211 fail:
2212 return 1;
2213 }
2214
2215
_wrap_debug_protocol_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2216 SWIGCLASS_STATIC int _wrap_debug_protocol_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2217 MAGIC_PPERL
2218 sv_setsv(sv,SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(debug_protocol))) ;
2219 return 1;
2220 }
2221
2222
_wrap_debug_planner_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2223 SWIGCLASS_STATIC int _wrap_debug_planner_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2224 MAGIC_PPERL
2225 {
2226 int val;
2227 int res = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(sv, &val);
2228 if (!SWIG_IsOK(res)) {
2229 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""debug_planner""' of type '""int""'");
2230 }
2231 debug_planner = (int)(val);
2232 }
2233 fail:
2234 return 1;
2235 }
2236
2237
_wrap_debug_planner_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2238 SWIGCLASS_STATIC int _wrap_debug_planner_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2239 MAGIC_PPERL
2240 sv_setsv(sv,SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(debug_planner))) ;
2241 return 1;
2242 }
2243
2244
_wrap_debug_driver_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2245 SWIGCLASS_STATIC int _wrap_debug_driver_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2246 MAGIC_PPERL
2247 {
2248 int val;
2249 int res = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(sv, &val);
2250 if (!SWIG_IsOK(res)) {
2251 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""debug_driver""' of type '""int""'");
2252 }
2253 debug_driver = (int)(val);
2254 }
2255 fail:
2256 return 1;
2257 }
2258
2259
_wrap_debug_driver_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2260 SWIGCLASS_STATIC int _wrap_debug_driver_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2261 MAGIC_PPERL
2262 sv_setsv(sv,SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(debug_driver))) ;
2263 return 1;
2264 }
2265
2266
_wrap_debug_dumper_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2267 SWIGCLASS_STATIC int _wrap_debug_dumper_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2268 MAGIC_PPERL
2269 {
2270 int val;
2271 int res = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(sv, &val);
2272 if (!SWIG_IsOK(res)) {
2273 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""debug_dumper""' of type '""int""'");
2274 }
2275 debug_dumper = (int)(val);
2276 }
2277 fail:
2278 return 1;
2279 }
2280
2281
_wrap_debug_dumper_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2282 SWIGCLASS_STATIC int _wrap_debug_dumper_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2283 MAGIC_PPERL
2284 sv_setsv(sv,SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(debug_dumper))) ;
2285 return 1;
2286 }
2287
2288
_wrap_debug_chunker_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2289 SWIGCLASS_STATIC int _wrap_debug_chunker_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2290 MAGIC_PPERL
2291 {
2292 int val;
2293 int res = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(sv, &val);
2294 if (!SWIG_IsOK(res)) {
2295 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""debug_chunker""' of type '""int""'");
2296 }
2297 debug_chunker = (int)(val);
2298 }
2299 fail:
2300 return 1;
2301 }
2302
2303
_wrap_debug_chunker_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2304 SWIGCLASS_STATIC int _wrap_debug_chunker_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2305 MAGIC_PPERL
2306 sv_setsv(sv,SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(debug_chunker))) ;
2307 return 1;
2308 }
2309
2310
_wrap_debug_taper_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2311 SWIGCLASS_STATIC int _wrap_debug_taper_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2312 MAGIC_PPERL
2313 {
2314 int val;
2315 int res = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(sv, &val);
2316 if (!SWIG_IsOK(res)) {
2317 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""debug_taper""' of type '""int""'");
2318 }
2319 debug_taper = (int)(val);
2320 }
2321 fail:
2322 return 1;
2323 }
2324
2325
_wrap_debug_taper_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2326 SWIGCLASS_STATIC int _wrap_debug_taper_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2327 MAGIC_PPERL
2328 sv_setsv(sv,SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(debug_taper))) ;
2329 return 1;
2330 }
2331
2332
_wrap_debug_selfcheck_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2333 SWIGCLASS_STATIC int _wrap_debug_selfcheck_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2334 MAGIC_PPERL
2335 {
2336 int val;
2337 int res = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(sv, &val);
2338 if (!SWIG_IsOK(res)) {
2339 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""debug_selfcheck""' of type '""int""'");
2340 }
2341 debug_selfcheck = (int)(val);
2342 }
2343 fail:
2344 return 1;
2345 }
2346
2347
_wrap_debug_selfcheck_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2348 SWIGCLASS_STATIC int _wrap_debug_selfcheck_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2349 MAGIC_PPERL
2350 sv_setsv(sv,SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(debug_selfcheck))) ;
2351 return 1;
2352 }
2353
2354
_wrap_debug_sendsize_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2355 SWIGCLASS_STATIC int _wrap_debug_sendsize_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2356 MAGIC_PPERL
2357 {
2358 int val;
2359 int res = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(sv, &val);
2360 if (!SWIG_IsOK(res)) {
2361 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""debug_sendsize""' of type '""int""'");
2362 }
2363 debug_sendsize = (int)(val);
2364 }
2365 fail:
2366 return 1;
2367 }
2368
2369
_wrap_debug_sendsize_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2370 SWIGCLASS_STATIC int _wrap_debug_sendsize_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2371 MAGIC_PPERL
2372 sv_setsv(sv,SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(debug_sendsize))) ;
2373 return 1;
2374 }
2375
2376
_wrap_debug_sendbackup_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2377 SWIGCLASS_STATIC int _wrap_debug_sendbackup_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2378 MAGIC_PPERL
2379 {
2380 int val;
2381 int res = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(sv, &val);
2382 if (!SWIG_IsOK(res)) {
2383 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""debug_sendbackup""' of type '""int""'");
2384 }
2385 debug_sendbackup = (int)(val);
2386 }
2387 fail:
2388 return 1;
2389 }
2390
2391
_wrap_debug_sendbackup_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2392 SWIGCLASS_STATIC int _wrap_debug_sendbackup_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2393 MAGIC_PPERL
2394 sv_setsv(sv,SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(debug_sendbackup))) ;
2395 return 1;
2396 }
2397
2398
2399
2400
2401 #ifdef PERL_OBJECT
2402 };
2403 #endif
2404
2405 #ifdef __cplusplus
2406 }
2407 #endif
2408
2409 #ifdef __cplusplus
2410 extern "C" {
2411 #endif
XS(_wrap_data_path_from_string)2412 XS(_wrap_data_path_from_string) {
2413 {
2414 char *arg1 = (char *) 0 ;
2415 int res1 ;
2416 char *buf1 = 0 ;
2417 int alloc1 = 0 ;
2418 int argvi = 0;
2419 data_path_t result;
2420 dXSARGS;
2421
2422 if ((items < 1) || (items > 1)) {
2423 SWIG_croak("Usage: data_path_from_string(data);");
2424 }
2425 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2426 if (!SWIG_IsOK(res1)) {
2427 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "data_path_from_string" "', argument " "1"" of type '" "char *""'");
2428 }
2429 arg1 = (char *)(buf1);
2430 result = (data_path_t)data_path_from_string(arg1);
2431 {
2432 SV *for_stack;
2433 SP += argvi; PUTBACK;
2434 for_stack = sv_2mortal(amglue_newSVi64(result));
2435 SPAGAIN; SP -= argvi;
2436 ST(argvi) = for_stack;
2437 argvi++;
2438 }
2439 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2440 XSRETURN(argvi);
2441 fail:
2442 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2443 SWIG_croak_null();
2444 }
2445 }
2446
2447
XS(_wrap_getconf)2448 XS(_wrap_getconf) {
2449 {
2450 confparm_key arg1 ;
2451 int argvi = 0;
2452 val_t *result = 0 ;
2453 dXSARGS;
2454
2455 if ((items < 1) || (items > 1)) {
2456 SWIG_croak("Usage: getconf(key);");
2457 }
2458 {
2459 if (sizeof(signed int) == 1) {
2460 arg1 = amglue_SvI8(ST(0));
2461 } else if (sizeof(signed int) == 2) {
2462 arg1 = amglue_SvI16(ST(0));
2463 } else if (sizeof(signed int) == 4) {
2464 arg1 = amglue_SvI32(ST(0));
2465 } else if (sizeof(signed int) == 8) {
2466 arg1 = amglue_SvI64(ST(0));
2467 } else {
2468 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
2469 }
2470 }
2471 result = (val_t *)getconf(arg1);
2472 {
2473 SV *results[3], **iter;
2474 int nresults;
2475
2476 /* save the stack, since val_t_to_sv may invoke arbitrary Perl code */
2477 SP += argvi; PUTBACK;
2478 nresults = val_t_to_sv(result, results);
2479 SPAGAIN; SP -= argvi;
2480 EXTEND(SP, nresults);
2481
2482 /* add val_t_to_sv's results to the stack */
2483 for (iter = results; nresults; iter++, nresults--) {
2484 ST(argvi) = *iter;
2485 argvi++;
2486 }
2487 }
2488
2489 XSRETURN(argvi);
2490 fail:
2491
2492 SWIG_croak_null();
2493 }
2494 }
2495
2496
XS(_wrap_getconf_seen)2497 XS(_wrap_getconf_seen) {
2498 {
2499 confparm_key arg1 ;
2500 int argvi = 0;
2501 gboolean result;
2502 dXSARGS;
2503
2504 if ((items < 1) || (items > 1)) {
2505 SWIG_croak("Usage: getconf_seen(key);");
2506 }
2507 {
2508 if (sizeof(signed int) == 1) {
2509 arg1 = amglue_SvI8(ST(0));
2510 } else if (sizeof(signed int) == 2) {
2511 arg1 = amglue_SvI16(ST(0));
2512 } else if (sizeof(signed int) == 4) {
2513 arg1 = amglue_SvI32(ST(0));
2514 } else if (sizeof(signed int) == 8) {
2515 arg1 = amglue_SvI64(ST(0));
2516 } else {
2517 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
2518 }
2519 }
2520 result = (gboolean)getconf_seen(arg1);
2521 {
2522 if (result)
2523 ST(argvi) = &PL_sv_yes;
2524 else
2525 ST(argvi) = &PL_sv_no;
2526 argvi++;
2527 }
2528
2529 XSRETURN(argvi);
2530 fail:
2531
2532 SWIG_croak_null();
2533 }
2534 }
2535
2536
XS(_wrap_getconf_linenum)2537 XS(_wrap_getconf_linenum) {
2538 {
2539 confparm_key arg1 ;
2540 int argvi = 0;
2541 int result;
2542 dXSARGS;
2543
2544 if ((items < 1) || (items > 1)) {
2545 SWIG_croak("Usage: getconf_linenum(key);");
2546 }
2547 {
2548 if (sizeof(signed int) == 1) {
2549 arg1 = amglue_SvI8(ST(0));
2550 } else if (sizeof(signed int) == 2) {
2551 arg1 = amglue_SvI16(ST(0));
2552 } else if (sizeof(signed int) == 4) {
2553 arg1 = amglue_SvI32(ST(0));
2554 } else if (sizeof(signed int) == 8) {
2555 arg1 = amglue_SvI64(ST(0));
2556 } else {
2557 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
2558 }
2559 }
2560 result = (int)getconf_linenum(arg1);
2561 {
2562 SV *for_stack;
2563 SP += argvi; PUTBACK;
2564 for_stack = sv_2mortal(amglue_newSVi64(result));
2565 SPAGAIN; SP -= argvi;
2566 ST(argvi) = for_stack;
2567 argvi++;
2568 }
2569
2570 XSRETURN(argvi);
2571 fail:
2572
2573 SWIG_croak_null();
2574 }
2575 }
2576
2577
XS(_wrap_getconf_byname)2578 XS(_wrap_getconf_byname) {
2579 {
2580 char *arg1 = (char *) 0 ;
2581 int res1 ;
2582 char *buf1 = 0 ;
2583 int alloc1 = 0 ;
2584 int argvi = 0;
2585 val_t *result = 0 ;
2586 dXSARGS;
2587
2588 if ((items < 1) || (items > 1)) {
2589 SWIG_croak("Usage: getconf_byname(key);");
2590 }
2591 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2592 if (!SWIG_IsOK(res1)) {
2593 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "getconf_byname" "', argument " "1"" of type '" "char *""'");
2594 }
2595 arg1 = (char *)(buf1);
2596 result = (val_t *)getconf_byname(arg1);
2597 {
2598 SV *results[3], **iter;
2599 int nresults;
2600
2601 /* save the stack, since val_t_to_sv may invoke arbitrary Perl code */
2602 SP += argvi; PUTBACK;
2603 nresults = val_t_to_sv(result, results);
2604 SPAGAIN; SP -= argvi;
2605 EXTEND(SP, nresults);
2606
2607 /* add val_t_to_sv's results to the stack */
2608 for (iter = results; nresults; iter++, nresults--) {
2609 ST(argvi) = *iter;
2610 argvi++;
2611 }
2612 }
2613 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2614 XSRETURN(argvi);
2615 fail:
2616 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2617 SWIG_croak_null();
2618 }
2619 }
2620
2621
XS(_wrap_getconf_list)2622 XS(_wrap_getconf_list) {
2623 {
2624 char *arg1 = (char *) 0 ;
2625 int res1 ;
2626 char *buf1 = 0 ;
2627 int alloc1 = 0 ;
2628 int argvi = 0;
2629 GSList *result = 0 ;
2630 dXSARGS;
2631
2632 if ((items < 1) || (items > 1)) {
2633 SWIG_croak("Usage: getconf_list(listname);");
2634 }
2635 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2636 if (!SWIG_IsOK(res1)) {
2637 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "getconf_list" "', argument " "1"" of type '" "char *""'");
2638 }
2639 arg1 = (char *)(buf1);
2640 result = (GSList *)getconf_list(arg1);
2641 {
2642 GSList *it = result;
2643
2644 EXTEND(SP, g_slist_length(it));
2645 while (it) {
2646 ST(argvi) = sv_2mortal(newSVpv(it->data, 0));
2647 argvi++;
2648 it = it->next;
2649 }
2650
2651 g_slist_free(result);
2652 }
2653 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2654 XSRETURN(argvi);
2655 fail:
2656 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2657 SWIG_croak_null();
2658 }
2659 }
2660
2661
XS(_wrap_getconf_byname_strs)2662 XS(_wrap_getconf_byname_strs) {
2663 {
2664 char *arg1 = (char *) 0 ;
2665 int arg2 ;
2666 int res1 ;
2667 char *buf1 = 0 ;
2668 int alloc1 = 0 ;
2669 int argvi = 0;
2670 val_t_strs result;
2671 dXSARGS;
2672
2673 if ((items < 2) || (items > 2)) {
2674 SWIG_croak("Usage: getconf_byname_strs(key,str_needs_quotes);");
2675 }
2676 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2677 if (!SWIG_IsOK(res1)) {
2678 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "getconf_byname_strs" "', argument " "1"" of type '" "char *""'");
2679 }
2680 arg1 = (char *)(buf1);
2681 {
2682 if (sizeof(signed int) == 1) {
2683 arg2 = amglue_SvI8(ST(1));
2684 } else if (sizeof(signed int) == 2) {
2685 arg2 = amglue_SvI16(ST(1));
2686 } else if (sizeof(signed int) == 4) {
2687 arg2 = amglue_SvI32(ST(1));
2688 } else if (sizeof(signed int) == 8) {
2689 arg2 = amglue_SvI64(ST(1));
2690 } else {
2691 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
2692 }
2693 }
2694 result = (val_t_strs)getconf_byname_strs(arg1,arg2);
2695 {
2696 char **it = result;
2697
2698 int count = 0;
2699 while (it && *it) {
2700 count++;
2701 it++;
2702 }
2703 EXTEND(SP, count);
2704
2705 it = result;
2706 while (it && *it) {
2707 ST(argvi) = sv_2mortal(newSVpv(*it, 0));
2708 argvi++;
2709 it++;
2710 }
2711 g_strfreev(result);
2712 }
2713 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2714
2715 XSRETURN(argvi);
2716 fail:
2717 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2718
2719 SWIG_croak_null();
2720 }
2721 }
2722
2723
XS(_wrap_lookup_tapetype)2724 XS(_wrap_lookup_tapetype) {
2725 {
2726 char *arg1 = (char *) 0 ;
2727 int res1 ;
2728 char *buf1 = 0 ;
2729 int alloc1 = 0 ;
2730 int argvi = 0;
2731 tapetype_t *result = 0 ;
2732 dXSARGS;
2733
2734 if ((items < 1) || (items > 1)) {
2735 SWIG_croak("Usage: lookup_tapetype(identifier);");
2736 }
2737 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2738 if (!SWIG_IsOK(res1)) {
2739 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "lookup_tapetype" "', argument " "1"" of type '" "char *""'");
2740 }
2741 arg1 = (char *)(buf1);
2742 result = (tapetype_t *)lookup_tapetype(arg1);
2743 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_tapetype_t, 0 | 0); argvi++ ;
2744 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2745 XSRETURN(argvi);
2746 fail:
2747 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2748 SWIG_croak_null();
2749 }
2750 }
2751
2752
XS(_wrap_tapetype_getconf)2753 XS(_wrap_tapetype_getconf) {
2754 {
2755 tapetype_t *arg1 = (tapetype_t *) 0 ;
2756 tapetype_key arg2 ;
2757 void *argp1 = 0 ;
2758 int res1 = 0 ;
2759 int argvi = 0;
2760 val_t *result = 0 ;
2761 dXSARGS;
2762
2763 if ((items < 2) || (items > 2)) {
2764 SWIG_croak("Usage: tapetype_getconf(ttyp,key);");
2765 }
2766 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_tapetype_t, 0 | 0 );
2767 if (!SWIG_IsOK(res1)) {
2768 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "tapetype_getconf" "', argument " "1"" of type '" "tapetype_t *""'");
2769 }
2770 arg1 = (tapetype_t *)(argp1);
2771 {
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));
2780 } else {
2781 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
2782 }
2783 }
2784 result = (val_t *)tapetype_getconf(arg1,arg2);
2785 {
2786 SV *results[3], **iter;
2787 int nresults;
2788
2789 /* save the stack, since val_t_to_sv may invoke arbitrary Perl code */
2790 SP += argvi; PUTBACK;
2791 nresults = val_t_to_sv(result, results);
2792 SPAGAIN; SP -= argvi;
2793 EXTEND(SP, nresults);
2794
2795 /* add val_t_to_sv's results to the stack */
2796 for (iter = results; nresults; iter++, nresults--) {
2797 ST(argvi) = *iter;
2798 argvi++;
2799 }
2800 }
2801
2802
2803 XSRETURN(argvi);
2804 fail:
2805
2806
2807 SWIG_croak_null();
2808 }
2809 }
2810
2811
XS(_wrap_tapetype_name)2812 XS(_wrap_tapetype_name) {
2813 {
2814 tapetype_t *arg1 = (tapetype_t *) 0 ;
2815 void *argp1 = 0 ;
2816 int res1 = 0 ;
2817 int argvi = 0;
2818 char *result = 0 ;
2819 dXSARGS;
2820
2821 if ((items < 1) || (items > 1)) {
2822 SWIG_croak("Usage: tapetype_name(ttyp);");
2823 }
2824 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_tapetype_t, 0 | 0 );
2825 if (!SWIG_IsOK(res1)) {
2826 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "tapetype_name" "', argument " "1"" of type '" "tapetype_t *""'");
2827 }
2828 arg1 = (tapetype_t *)(argp1);
2829 result = (char *)tapetype_name(arg1);
2830 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
2831
2832 XSRETURN(argvi);
2833 fail:
2834
2835 SWIG_croak_null();
2836 }
2837 }
2838
2839
XS(_wrap_tapetype_seen)2840 XS(_wrap_tapetype_seen) {
2841 {
2842 tapetype_t *arg1 = (tapetype_t *) 0 ;
2843 tapetype_key arg2 ;
2844 void *argp1 = 0 ;
2845 int res1 = 0 ;
2846 int argvi = 0;
2847 gboolean result;
2848 dXSARGS;
2849
2850 if ((items < 2) || (items > 2)) {
2851 SWIG_croak("Usage: tapetype_seen(ttyp,key);");
2852 }
2853 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_tapetype_t, 0 | 0 );
2854 if (!SWIG_IsOK(res1)) {
2855 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "tapetype_seen" "', argument " "1"" of type '" "tapetype_t *""'");
2856 }
2857 arg1 = (tapetype_t *)(argp1);
2858 {
2859 if (sizeof(signed int) == 1) {
2860 arg2 = amglue_SvI8(ST(1));
2861 } else if (sizeof(signed int) == 2) {
2862 arg2 = amglue_SvI16(ST(1));
2863 } else if (sizeof(signed int) == 4) {
2864 arg2 = amglue_SvI32(ST(1));
2865 } else if (sizeof(signed int) == 8) {
2866 arg2 = amglue_SvI64(ST(1));
2867 } else {
2868 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
2869 }
2870 }
2871 result = (gboolean)tapetype_seen(arg1,arg2);
2872 {
2873 if (result)
2874 ST(argvi) = &PL_sv_yes;
2875 else
2876 ST(argvi) = &PL_sv_no;
2877 argvi++;
2878 }
2879
2880
2881 XSRETURN(argvi);
2882 fail:
2883
2884
2885 SWIG_croak_null();
2886 }
2887 }
2888
2889
XS(_wrap_lookup_dumptype)2890 XS(_wrap_lookup_dumptype) {
2891 {
2892 char *arg1 = (char *) 0 ;
2893 int res1 ;
2894 char *buf1 = 0 ;
2895 int alloc1 = 0 ;
2896 int argvi = 0;
2897 dumptype_t *result = 0 ;
2898 dXSARGS;
2899
2900 if ((items < 1) || (items > 1)) {
2901 SWIG_croak("Usage: lookup_dumptype(identifier);");
2902 }
2903 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2904 if (!SWIG_IsOK(res1)) {
2905 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "lookup_dumptype" "', argument " "1"" of type '" "char *""'");
2906 }
2907 arg1 = (char *)(buf1);
2908 result = (dumptype_t *)lookup_dumptype(arg1);
2909 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_dumptype_t, 0 | 0); argvi++ ;
2910 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2911 XSRETURN(argvi);
2912 fail:
2913 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2914 SWIG_croak_null();
2915 }
2916 }
2917
2918
XS(_wrap_dumptype_getconf)2919 XS(_wrap_dumptype_getconf) {
2920 {
2921 dumptype_t *arg1 = (dumptype_t *) 0 ;
2922 dumptype_key arg2 ;
2923 void *argp1 = 0 ;
2924 int res1 = 0 ;
2925 int argvi = 0;
2926 val_t *result = 0 ;
2927 dXSARGS;
2928
2929 if ((items < 2) || (items > 2)) {
2930 SWIG_croak("Usage: dumptype_getconf(dtyp,key);");
2931 }
2932 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_dumptype_t, 0 | 0 );
2933 if (!SWIG_IsOK(res1)) {
2934 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "dumptype_getconf" "', argument " "1"" of type '" "dumptype_t *""'");
2935 }
2936 arg1 = (dumptype_t *)(argp1);
2937 {
2938 if (sizeof(signed int) == 1) {
2939 arg2 = amglue_SvI8(ST(1));
2940 } else if (sizeof(signed int) == 2) {
2941 arg2 = amglue_SvI16(ST(1));
2942 } else if (sizeof(signed int) == 4) {
2943 arg2 = amglue_SvI32(ST(1));
2944 } else if (sizeof(signed int) == 8) {
2945 arg2 = amglue_SvI64(ST(1));
2946 } else {
2947 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
2948 }
2949 }
2950 result = (val_t *)dumptype_getconf(arg1,arg2);
2951 {
2952 SV *results[3], **iter;
2953 int nresults;
2954
2955 /* save the stack, since val_t_to_sv may invoke arbitrary Perl code */
2956 SP += argvi; PUTBACK;
2957 nresults = val_t_to_sv(result, results);
2958 SPAGAIN; SP -= argvi;
2959 EXTEND(SP, nresults);
2960
2961 /* add val_t_to_sv's results to the stack */
2962 for (iter = results; nresults; iter++, nresults--) {
2963 ST(argvi) = *iter;
2964 argvi++;
2965 }
2966 }
2967
2968
2969 XSRETURN(argvi);
2970 fail:
2971
2972
2973 SWIG_croak_null();
2974 }
2975 }
2976
2977
XS(_wrap_dumptype_name)2978 XS(_wrap_dumptype_name) {
2979 {
2980 dumptype_t *arg1 = (dumptype_t *) 0 ;
2981 void *argp1 = 0 ;
2982 int res1 = 0 ;
2983 int argvi = 0;
2984 char *result = 0 ;
2985 dXSARGS;
2986
2987 if ((items < 1) || (items > 1)) {
2988 SWIG_croak("Usage: dumptype_name(dtyp);");
2989 }
2990 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_dumptype_t, 0 | 0 );
2991 if (!SWIG_IsOK(res1)) {
2992 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "dumptype_name" "', argument " "1"" of type '" "dumptype_t *""'");
2993 }
2994 arg1 = (dumptype_t *)(argp1);
2995 result = (char *)dumptype_name(arg1);
2996 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
2997
2998 XSRETURN(argvi);
2999 fail:
3000
3001 SWIG_croak_null();
3002 }
3003 }
3004
3005
XS(_wrap_dumptype_seen)3006 XS(_wrap_dumptype_seen) {
3007 {
3008 dumptype_t *arg1 = (dumptype_t *) 0 ;
3009 dumptype_key arg2 ;
3010 void *argp1 = 0 ;
3011 int res1 = 0 ;
3012 int argvi = 0;
3013 gboolean result;
3014 dXSARGS;
3015
3016 if ((items < 2) || (items > 2)) {
3017 SWIG_croak("Usage: dumptype_seen(dtyp,key);");
3018 }
3019 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_dumptype_t, 0 | 0 );
3020 if (!SWIG_IsOK(res1)) {
3021 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "dumptype_seen" "', argument " "1"" of type '" "dumptype_t *""'");
3022 }
3023 arg1 = (dumptype_t *)(argp1);
3024 {
3025 if (sizeof(signed int) == 1) {
3026 arg2 = amglue_SvI8(ST(1));
3027 } else if (sizeof(signed int) == 2) {
3028 arg2 = amglue_SvI16(ST(1));
3029 } else if (sizeof(signed int) == 4) {
3030 arg2 = amglue_SvI32(ST(1));
3031 } else if (sizeof(signed int) == 8) {
3032 arg2 = amglue_SvI64(ST(1));
3033 } else {
3034 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
3035 }
3036 }
3037 result = (gboolean)dumptype_seen(arg1,arg2);
3038 {
3039 if (result)
3040 ST(argvi) = &PL_sv_yes;
3041 else
3042 ST(argvi) = &PL_sv_no;
3043 argvi++;
3044 }
3045
3046
3047 XSRETURN(argvi);
3048 fail:
3049
3050
3051 SWIG_croak_null();
3052 }
3053 }
3054
3055
XS(_wrap_lookup_interface)3056 XS(_wrap_lookup_interface) {
3057 {
3058 char *arg1 = (char *) 0 ;
3059 int res1 ;
3060 char *buf1 = 0 ;
3061 int alloc1 = 0 ;
3062 int argvi = 0;
3063 interface_t *result = 0 ;
3064 dXSARGS;
3065
3066 if ((items < 1) || (items > 1)) {
3067 SWIG_croak("Usage: lookup_interface(identifier);");
3068 }
3069 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
3070 if (!SWIG_IsOK(res1)) {
3071 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "lookup_interface" "', argument " "1"" of type '" "char *""'");
3072 }
3073 arg1 = (char *)(buf1);
3074 result = (interface_t *)lookup_interface(arg1);
3075 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_interface_t, 0 | 0); argvi++ ;
3076 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
3077 XSRETURN(argvi);
3078 fail:
3079 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
3080 SWIG_croak_null();
3081 }
3082 }
3083
3084
XS(_wrap_interface_getconf)3085 XS(_wrap_interface_getconf) {
3086 {
3087 interface_t *arg1 = (interface_t *) 0 ;
3088 interface_key arg2 ;
3089 void *argp1 = 0 ;
3090 int res1 = 0 ;
3091 int argvi = 0;
3092 val_t *result = 0 ;
3093 dXSARGS;
3094
3095 if ((items < 2) || (items > 2)) {
3096 SWIG_croak("Usage: interface_getconf(iface,key);");
3097 }
3098 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_interface_t, 0 | 0 );
3099 if (!SWIG_IsOK(res1)) {
3100 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "interface_getconf" "', argument " "1"" of type '" "interface_t *""'");
3101 }
3102 arg1 = (interface_t *)(argp1);
3103 {
3104 if (sizeof(signed int) == 1) {
3105 arg2 = amglue_SvI8(ST(1));
3106 } else if (sizeof(signed int) == 2) {
3107 arg2 = amglue_SvI16(ST(1));
3108 } else if (sizeof(signed int) == 4) {
3109 arg2 = amglue_SvI32(ST(1));
3110 } else if (sizeof(signed int) == 8) {
3111 arg2 = amglue_SvI64(ST(1));
3112 } else {
3113 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
3114 }
3115 }
3116 result = (val_t *)interface_getconf(arg1,arg2);
3117 {
3118 SV *results[3], **iter;
3119 int nresults;
3120
3121 /* save the stack, since val_t_to_sv may invoke arbitrary Perl code */
3122 SP += argvi; PUTBACK;
3123 nresults = val_t_to_sv(result, results);
3124 SPAGAIN; SP -= argvi;
3125 EXTEND(SP, nresults);
3126
3127 /* add val_t_to_sv's results to the stack */
3128 for (iter = results; nresults; iter++, nresults--) {
3129 ST(argvi) = *iter;
3130 argvi++;
3131 }
3132 }
3133
3134
3135 XSRETURN(argvi);
3136 fail:
3137
3138
3139 SWIG_croak_null();
3140 }
3141 }
3142
3143
XS(_wrap_interface_name)3144 XS(_wrap_interface_name) {
3145 {
3146 interface_t *arg1 = (interface_t *) 0 ;
3147 void *argp1 = 0 ;
3148 int res1 = 0 ;
3149 int argvi = 0;
3150 char *result = 0 ;
3151 dXSARGS;
3152
3153 if ((items < 1) || (items > 1)) {
3154 SWIG_croak("Usage: interface_name(iface);");
3155 }
3156 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_interface_t, 0 | 0 );
3157 if (!SWIG_IsOK(res1)) {
3158 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "interface_name" "', argument " "1"" of type '" "interface_t *""'");
3159 }
3160 arg1 = (interface_t *)(argp1);
3161 result = (char *)interface_name(arg1);
3162 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
3163
3164 XSRETURN(argvi);
3165 fail:
3166
3167 SWIG_croak_null();
3168 }
3169 }
3170
3171
XS(_wrap_interface_seen)3172 XS(_wrap_interface_seen) {
3173 {
3174 interface_t *arg1 = (interface_t *) 0 ;
3175 interface_key arg2 ;
3176 void *argp1 = 0 ;
3177 int res1 = 0 ;
3178 int argvi = 0;
3179 gboolean result;
3180 dXSARGS;
3181
3182 if ((items < 2) || (items > 2)) {
3183 SWIG_croak("Usage: interface_seen(iface,key);");
3184 }
3185 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_interface_t, 0 | 0 );
3186 if (!SWIG_IsOK(res1)) {
3187 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "interface_seen" "', argument " "1"" of type '" "interface_t *""'");
3188 }
3189 arg1 = (interface_t *)(argp1);
3190 {
3191 if (sizeof(signed int) == 1) {
3192 arg2 = amglue_SvI8(ST(1));
3193 } else if (sizeof(signed int) == 2) {
3194 arg2 = amglue_SvI16(ST(1));
3195 } else if (sizeof(signed int) == 4) {
3196 arg2 = amglue_SvI32(ST(1));
3197 } else if (sizeof(signed int) == 8) {
3198 arg2 = amglue_SvI64(ST(1));
3199 } else {
3200 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
3201 }
3202 }
3203 result = (gboolean)interface_seen(arg1,arg2);
3204 {
3205 if (result)
3206 ST(argvi) = &PL_sv_yes;
3207 else
3208 ST(argvi) = &PL_sv_no;
3209 argvi++;
3210 }
3211
3212
3213 XSRETURN(argvi);
3214 fail:
3215
3216
3217 SWIG_croak_null();
3218 }
3219 }
3220
3221
XS(_wrap_lookup_holdingdisk)3222 XS(_wrap_lookup_holdingdisk) {
3223 {
3224 char *arg1 = (char *) 0 ;
3225 int res1 ;
3226 char *buf1 = 0 ;
3227 int alloc1 = 0 ;
3228 int argvi = 0;
3229 holdingdisk_t *result = 0 ;
3230 dXSARGS;
3231
3232 if ((items < 1) || (items > 1)) {
3233 SWIG_croak("Usage: lookup_holdingdisk(identifier);");
3234 }
3235 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
3236 if (!SWIG_IsOK(res1)) {
3237 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "lookup_holdingdisk" "', argument " "1"" of type '" "char *""'");
3238 }
3239 arg1 = (char *)(buf1);
3240 result = (holdingdisk_t *)lookup_holdingdisk(arg1);
3241 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_holdingdisk_t, 0 | 0); argvi++ ;
3242 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
3243 XSRETURN(argvi);
3244 fail:
3245 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
3246 SWIG_croak_null();
3247 }
3248 }
3249
3250
XS(_wrap_getconf_holdingdisks)3251 XS(_wrap_getconf_holdingdisks) {
3252 {
3253 int argvi = 0;
3254 GSList *result = 0 ;
3255 dXSARGS;
3256
3257 if ((items < 0) || (items > 0)) {
3258 SWIG_croak("Usage: getconf_holdingdisks();");
3259 }
3260 result = (GSList *)getconf_holdingdisks();
3261 {
3262 GSList *it = result;
3263
3264 EXTEND(SP, g_slist_length(it));
3265 while (it) {
3266 ST(argvi) = sv_2mortal(newSVpv(it->data, 0));
3267 argvi++;
3268 it = it->next;
3269 }
3270
3271 g_slist_free(result);
3272 }
3273 XSRETURN(argvi);
3274 fail:
3275 SWIG_croak_null();
3276 }
3277 }
3278
3279
XS(_wrap_holdingdisk_getconf)3280 XS(_wrap_holdingdisk_getconf) {
3281 {
3282 holdingdisk_t *arg1 = (holdingdisk_t *) 0 ;
3283 holdingdisk_key arg2 ;
3284 void *argp1 = 0 ;
3285 int res1 = 0 ;
3286 int argvi = 0;
3287 val_t *result = 0 ;
3288 dXSARGS;
3289
3290 if ((items < 2) || (items > 2)) {
3291 SWIG_croak("Usage: holdingdisk_getconf(hdisk,key);");
3292 }
3293 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_holdingdisk_t, 0 | 0 );
3294 if (!SWIG_IsOK(res1)) {
3295 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "holdingdisk_getconf" "', argument " "1"" of type '" "holdingdisk_t *""'");
3296 }
3297 arg1 = (holdingdisk_t *)(argp1);
3298 {
3299 if (sizeof(signed int) == 1) {
3300 arg2 = amglue_SvI8(ST(1));
3301 } else if (sizeof(signed int) == 2) {
3302 arg2 = amglue_SvI16(ST(1));
3303 } else if (sizeof(signed int) == 4) {
3304 arg2 = amglue_SvI32(ST(1));
3305 } else if (sizeof(signed int) == 8) {
3306 arg2 = amglue_SvI64(ST(1));
3307 } else {
3308 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
3309 }
3310 }
3311 result = (val_t *)holdingdisk_getconf(arg1,arg2);
3312 {
3313 SV *results[3], **iter;
3314 int nresults;
3315
3316 /* save the stack, since val_t_to_sv may invoke arbitrary Perl code */
3317 SP += argvi; PUTBACK;
3318 nresults = val_t_to_sv(result, results);
3319 SPAGAIN; SP -= argvi;
3320 EXTEND(SP, nresults);
3321
3322 /* add val_t_to_sv's results to the stack */
3323 for (iter = results; nresults; iter++, nresults--) {
3324 ST(argvi) = *iter;
3325 argvi++;
3326 }
3327 }
3328
3329
3330 XSRETURN(argvi);
3331 fail:
3332
3333
3334 SWIG_croak_null();
3335 }
3336 }
3337
3338
XS(_wrap_holdingdisk_name)3339 XS(_wrap_holdingdisk_name) {
3340 {
3341 holdingdisk_t *arg1 = (holdingdisk_t *) 0 ;
3342 void *argp1 = 0 ;
3343 int res1 = 0 ;
3344 int argvi = 0;
3345 char *result = 0 ;
3346 dXSARGS;
3347
3348 if ((items < 1) || (items > 1)) {
3349 SWIG_croak("Usage: holdingdisk_name(hdisk);");
3350 }
3351 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_holdingdisk_t, 0 | 0 );
3352 if (!SWIG_IsOK(res1)) {
3353 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "holdingdisk_name" "', argument " "1"" of type '" "holdingdisk_t *""'");
3354 }
3355 arg1 = (holdingdisk_t *)(argp1);
3356 result = (char *)holdingdisk_name(arg1);
3357 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
3358
3359 XSRETURN(argvi);
3360 fail:
3361
3362 SWIG_croak_null();
3363 }
3364 }
3365
3366
XS(_wrap_holdingdisk_seen)3367 XS(_wrap_holdingdisk_seen) {
3368 {
3369 holdingdisk_t *arg1 = (holdingdisk_t *) 0 ;
3370 holdingdisk_key arg2 ;
3371 void *argp1 = 0 ;
3372 int res1 = 0 ;
3373 int argvi = 0;
3374 gboolean result;
3375 dXSARGS;
3376
3377 if ((items < 2) || (items > 2)) {
3378 SWIG_croak("Usage: holdingdisk_seen(hdisk,key);");
3379 }
3380 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_holdingdisk_t, 0 | 0 );
3381 if (!SWIG_IsOK(res1)) {
3382 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "holdingdisk_seen" "', argument " "1"" of type '" "holdingdisk_t *""'");
3383 }
3384 arg1 = (holdingdisk_t *)(argp1);
3385 {
3386 if (sizeof(signed int) == 1) {
3387 arg2 = amglue_SvI8(ST(1));
3388 } else if (sizeof(signed int) == 2) {
3389 arg2 = amglue_SvI16(ST(1));
3390 } else if (sizeof(signed int) == 4) {
3391 arg2 = amglue_SvI32(ST(1));
3392 } else if (sizeof(signed int) == 8) {
3393 arg2 = amglue_SvI64(ST(1));
3394 } else {
3395 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
3396 }
3397 }
3398 result = (gboolean)holdingdisk_seen(arg1,arg2);
3399 {
3400 if (result)
3401 ST(argvi) = &PL_sv_yes;
3402 else
3403 ST(argvi) = &PL_sv_no;
3404 argvi++;
3405 }
3406
3407
3408 XSRETURN(argvi);
3409 fail:
3410
3411
3412 SWIG_croak_null();
3413 }
3414 }
3415
3416
XS(_wrap_lookup_application)3417 XS(_wrap_lookup_application) {
3418 {
3419 char *arg1 = (char *) 0 ;
3420 int res1 ;
3421 char *buf1 = 0 ;
3422 int alloc1 = 0 ;
3423 int argvi = 0;
3424 application_t *result = 0 ;
3425 dXSARGS;
3426
3427 if ((items < 1) || (items > 1)) {
3428 SWIG_croak("Usage: lookup_application(identifier);");
3429 }
3430 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
3431 if (!SWIG_IsOK(res1)) {
3432 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "lookup_application" "', argument " "1"" of type '" "char *""'");
3433 }
3434 arg1 = (char *)(buf1);
3435 result = (application_t *)lookup_application(arg1);
3436 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_application_t, 0 | 0); argvi++ ;
3437 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
3438 XSRETURN(argvi);
3439 fail:
3440 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
3441 SWIG_croak_null();
3442 }
3443 }
3444
3445
XS(_wrap_application_getconf)3446 XS(_wrap_application_getconf) {
3447 {
3448 application_t *arg1 = (application_t *) 0 ;
3449 application_key arg2 ;
3450 void *argp1 = 0 ;
3451 int res1 = 0 ;
3452 int argvi = 0;
3453 val_t *result = 0 ;
3454 dXSARGS;
3455
3456 if ((items < 2) || (items > 2)) {
3457 SWIG_croak("Usage: application_getconf(app,key);");
3458 }
3459 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_application_t, 0 | 0 );
3460 if (!SWIG_IsOK(res1)) {
3461 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "application_getconf" "', argument " "1"" of type '" "application_t *""'");
3462 }
3463 arg1 = (application_t *)(argp1);
3464 {
3465 if (sizeof(signed int) == 1) {
3466 arg2 = amglue_SvI8(ST(1));
3467 } else if (sizeof(signed int) == 2) {
3468 arg2 = amglue_SvI16(ST(1));
3469 } else if (sizeof(signed int) == 4) {
3470 arg2 = amglue_SvI32(ST(1));
3471 } else if (sizeof(signed int) == 8) {
3472 arg2 = amglue_SvI64(ST(1));
3473 } else {
3474 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
3475 }
3476 }
3477 result = (val_t *)application_getconf(arg1,arg2);
3478 {
3479 SV *results[3], **iter;
3480 int nresults;
3481
3482 /* save the stack, since val_t_to_sv may invoke arbitrary Perl code */
3483 SP += argvi; PUTBACK;
3484 nresults = val_t_to_sv(result, results);
3485 SPAGAIN; SP -= argvi;
3486 EXTEND(SP, nresults);
3487
3488 /* add val_t_to_sv's results to the stack */
3489 for (iter = results; nresults; iter++, nresults--) {
3490 ST(argvi) = *iter;
3491 argvi++;
3492 }
3493 }
3494
3495
3496 XSRETURN(argvi);
3497 fail:
3498
3499
3500 SWIG_croak_null();
3501 }
3502 }
3503
3504
XS(_wrap_application_name)3505 XS(_wrap_application_name) {
3506 {
3507 application_t *arg1 = (application_t *) 0 ;
3508 void *argp1 = 0 ;
3509 int res1 = 0 ;
3510 int argvi = 0;
3511 char *result = 0 ;
3512 dXSARGS;
3513
3514 if ((items < 1) || (items > 1)) {
3515 SWIG_croak("Usage: application_name(app);");
3516 }
3517 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_application_t, 0 | 0 );
3518 if (!SWIG_IsOK(res1)) {
3519 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "application_name" "', argument " "1"" of type '" "application_t *""'");
3520 }
3521 arg1 = (application_t *)(argp1);
3522 result = (char *)application_name(arg1);
3523 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
3524
3525 XSRETURN(argvi);
3526 fail:
3527
3528 SWIG_croak_null();
3529 }
3530 }
3531
3532
XS(_wrap_application_seen)3533 XS(_wrap_application_seen) {
3534 {
3535 application_t *arg1 = (application_t *) 0 ;
3536 application_key arg2 ;
3537 void *argp1 = 0 ;
3538 int res1 = 0 ;
3539 int argvi = 0;
3540 gboolean result;
3541 dXSARGS;
3542
3543 if ((items < 2) || (items > 2)) {
3544 SWIG_croak("Usage: application_seen(app,key);");
3545 }
3546 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_application_t, 0 | 0 );
3547 if (!SWIG_IsOK(res1)) {
3548 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "application_seen" "', argument " "1"" of type '" "application_t *""'");
3549 }
3550 arg1 = (application_t *)(argp1);
3551 {
3552 if (sizeof(signed int) == 1) {
3553 arg2 = amglue_SvI8(ST(1));
3554 } else if (sizeof(signed int) == 2) {
3555 arg2 = amglue_SvI16(ST(1));
3556 } else if (sizeof(signed int) == 4) {
3557 arg2 = amglue_SvI32(ST(1));
3558 } else if (sizeof(signed int) == 8) {
3559 arg2 = amglue_SvI64(ST(1));
3560 } else {
3561 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
3562 }
3563 }
3564 result = (gboolean)application_seen(arg1,arg2);
3565 {
3566 if (result)
3567 ST(argvi) = &PL_sv_yes;
3568 else
3569 ST(argvi) = &PL_sv_no;
3570 argvi++;
3571 }
3572
3573
3574 XSRETURN(argvi);
3575 fail:
3576
3577
3578 SWIG_croak_null();
3579 }
3580 }
3581
3582
XS(_wrap_lookup_pp_script)3583 XS(_wrap_lookup_pp_script) {
3584 {
3585 char *arg1 = (char *) 0 ;
3586 int res1 ;
3587 char *buf1 = 0 ;
3588 int alloc1 = 0 ;
3589 int argvi = 0;
3590 pp_script_t *result = 0 ;
3591 dXSARGS;
3592
3593 if ((items < 1) || (items > 1)) {
3594 SWIG_croak("Usage: lookup_pp_script(identifier);");
3595 }
3596 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
3597 if (!SWIG_IsOK(res1)) {
3598 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "lookup_pp_script" "', argument " "1"" of type '" "char *""'");
3599 }
3600 arg1 = (char *)(buf1);
3601 result = (pp_script_t *)lookup_pp_script(arg1);
3602 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_pp_script_t, 0 | 0); argvi++ ;
3603 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
3604 XSRETURN(argvi);
3605 fail:
3606 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
3607 SWIG_croak_null();
3608 }
3609 }
3610
3611
XS(_wrap_pp_script_getconf)3612 XS(_wrap_pp_script_getconf) {
3613 {
3614 pp_script_t *arg1 = (pp_script_t *) 0 ;
3615 pp_script_key arg2 ;
3616 void *argp1 = 0 ;
3617 int res1 = 0 ;
3618 int argvi = 0;
3619 val_t *result = 0 ;
3620 dXSARGS;
3621
3622 if ((items < 2) || (items > 2)) {
3623 SWIG_croak("Usage: pp_script_getconf(pps,key);");
3624 }
3625 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_pp_script_t, 0 | 0 );
3626 if (!SWIG_IsOK(res1)) {
3627 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "pp_script_getconf" "', argument " "1"" of type '" "pp_script_t *""'");
3628 }
3629 arg1 = (pp_script_t *)(argp1);
3630 {
3631 if (sizeof(signed int) == 1) {
3632 arg2 = amglue_SvI8(ST(1));
3633 } else if (sizeof(signed int) == 2) {
3634 arg2 = amglue_SvI16(ST(1));
3635 } else if (sizeof(signed int) == 4) {
3636 arg2 = amglue_SvI32(ST(1));
3637 } else if (sizeof(signed int) == 8) {
3638 arg2 = amglue_SvI64(ST(1));
3639 } else {
3640 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
3641 }
3642 }
3643 result = (val_t *)pp_script_getconf(arg1,arg2);
3644 {
3645 SV *results[3], **iter;
3646 int nresults;
3647
3648 /* save the stack, since val_t_to_sv may invoke arbitrary Perl code */
3649 SP += argvi; PUTBACK;
3650 nresults = val_t_to_sv(result, results);
3651 SPAGAIN; SP -= argvi;
3652 EXTEND(SP, nresults);
3653
3654 /* add val_t_to_sv's results to the stack */
3655 for (iter = results; nresults; iter++, nresults--) {
3656 ST(argvi) = *iter;
3657 argvi++;
3658 }
3659 }
3660
3661
3662 XSRETURN(argvi);
3663 fail:
3664
3665
3666 SWIG_croak_null();
3667 }
3668 }
3669
3670
XS(_wrap_pp_script_name)3671 XS(_wrap_pp_script_name) {
3672 {
3673 pp_script_t *arg1 = (pp_script_t *) 0 ;
3674 void *argp1 = 0 ;
3675 int res1 = 0 ;
3676 int argvi = 0;
3677 char *result = 0 ;
3678 dXSARGS;
3679
3680 if ((items < 1) || (items > 1)) {
3681 SWIG_croak("Usage: pp_script_name(pps);");
3682 }
3683 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_pp_script_t, 0 | 0 );
3684 if (!SWIG_IsOK(res1)) {
3685 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "pp_script_name" "', argument " "1"" of type '" "pp_script_t *""'");
3686 }
3687 arg1 = (pp_script_t *)(argp1);
3688 result = (char *)pp_script_name(arg1);
3689 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
3690
3691 XSRETURN(argvi);
3692 fail:
3693
3694 SWIG_croak_null();
3695 }
3696 }
3697
3698
XS(_wrap_pp_script_seen)3699 XS(_wrap_pp_script_seen) {
3700 {
3701 pp_script_t *arg1 = (pp_script_t *) 0 ;
3702 pp_script_key arg2 ;
3703 void *argp1 = 0 ;
3704 int res1 = 0 ;
3705 int argvi = 0;
3706 gboolean result;
3707 dXSARGS;
3708
3709 if ((items < 2) || (items > 2)) {
3710 SWIG_croak("Usage: pp_script_seen(app,key);");
3711 }
3712 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_pp_script_t, 0 | 0 );
3713 if (!SWIG_IsOK(res1)) {
3714 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "pp_script_seen" "', argument " "1"" of type '" "pp_script_t *""'");
3715 }
3716 arg1 = (pp_script_t *)(argp1);
3717 {
3718 if (sizeof(signed int) == 1) {
3719 arg2 = amglue_SvI8(ST(1));
3720 } else if (sizeof(signed int) == 2) {
3721 arg2 = amglue_SvI16(ST(1));
3722 } else if (sizeof(signed int) == 4) {
3723 arg2 = amglue_SvI32(ST(1));
3724 } else if (sizeof(signed int) == 8) {
3725 arg2 = amglue_SvI64(ST(1));
3726 } else {
3727 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
3728 }
3729 }
3730 result = (gboolean)pp_script_seen(arg1,arg2);
3731 {
3732 if (result)
3733 ST(argvi) = &PL_sv_yes;
3734 else
3735 ST(argvi) = &PL_sv_no;
3736 argvi++;
3737 }
3738
3739
3740 XSRETURN(argvi);
3741 fail:
3742
3743
3744 SWIG_croak_null();
3745 }
3746 }
3747
3748
XS(_wrap_lookup_device_config)3749 XS(_wrap_lookup_device_config) {
3750 {
3751 char *arg1 = (char *) 0 ;
3752 int res1 ;
3753 char *buf1 = 0 ;
3754 int alloc1 = 0 ;
3755 int argvi = 0;
3756 device_config_t *result = 0 ;
3757 dXSARGS;
3758
3759 if ((items < 1) || (items > 1)) {
3760 SWIG_croak("Usage: lookup_device_config(identifier);");
3761 }
3762 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
3763 if (!SWIG_IsOK(res1)) {
3764 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "lookup_device_config" "', argument " "1"" of type '" "char *""'");
3765 }
3766 arg1 = (char *)(buf1);
3767 result = (device_config_t *)lookup_device_config(arg1);
3768 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_device_config_t, 0 | 0); argvi++ ;
3769 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
3770 XSRETURN(argvi);
3771 fail:
3772 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
3773 SWIG_croak_null();
3774 }
3775 }
3776
3777
XS(_wrap_device_config_getconf)3778 XS(_wrap_device_config_getconf) {
3779 {
3780 device_config_t *arg1 = (device_config_t *) 0 ;
3781 device_config_key arg2 ;
3782 void *argp1 = 0 ;
3783 int res1 = 0 ;
3784 int argvi = 0;
3785 val_t *result = 0 ;
3786 dXSARGS;
3787
3788 if ((items < 2) || (items > 2)) {
3789 SWIG_croak("Usage: device_config_getconf(pps,key);");
3790 }
3791 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_device_config_t, 0 | 0 );
3792 if (!SWIG_IsOK(res1)) {
3793 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "device_config_getconf" "', argument " "1"" of type '" "device_config_t *""'");
3794 }
3795 arg1 = (device_config_t *)(argp1);
3796 {
3797 if (sizeof(signed int) == 1) {
3798 arg2 = amglue_SvI8(ST(1));
3799 } else if (sizeof(signed int) == 2) {
3800 arg2 = amglue_SvI16(ST(1));
3801 } else if (sizeof(signed int) == 4) {
3802 arg2 = amglue_SvI32(ST(1));
3803 } else if (sizeof(signed int) == 8) {
3804 arg2 = amglue_SvI64(ST(1));
3805 } else {
3806 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
3807 }
3808 }
3809 result = (val_t *)device_config_getconf(arg1,arg2);
3810 {
3811 SV *results[3], **iter;
3812 int nresults;
3813
3814 /* save the stack, since val_t_to_sv may invoke arbitrary Perl code */
3815 SP += argvi; PUTBACK;
3816 nresults = val_t_to_sv(result, results);
3817 SPAGAIN; SP -= argvi;
3818 EXTEND(SP, nresults);
3819
3820 /* add val_t_to_sv's results to the stack */
3821 for (iter = results; nresults; iter++, nresults--) {
3822 ST(argvi) = *iter;
3823 argvi++;
3824 }
3825 }
3826
3827
3828 XSRETURN(argvi);
3829 fail:
3830
3831
3832 SWIG_croak_null();
3833 }
3834 }
3835
3836
XS(_wrap_device_config_name)3837 XS(_wrap_device_config_name) {
3838 {
3839 device_config_t *arg1 = (device_config_t *) 0 ;
3840 void *argp1 = 0 ;
3841 int res1 = 0 ;
3842 int argvi = 0;
3843 char *result = 0 ;
3844 dXSARGS;
3845
3846 if ((items < 1) || (items > 1)) {
3847 SWIG_croak("Usage: device_config_name(pps);");
3848 }
3849 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_device_config_t, 0 | 0 );
3850 if (!SWIG_IsOK(res1)) {
3851 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "device_config_name" "', argument " "1"" of type '" "device_config_t *""'");
3852 }
3853 arg1 = (device_config_t *)(argp1);
3854 result = (char *)device_config_name(arg1);
3855 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
3856
3857 XSRETURN(argvi);
3858 fail:
3859
3860 SWIG_croak_null();
3861 }
3862 }
3863
3864
XS(_wrap_device_config_seen)3865 XS(_wrap_device_config_seen) {
3866 {
3867 device_config_t *arg1 = (device_config_t *) 0 ;
3868 device_config_key arg2 ;
3869 void *argp1 = 0 ;
3870 int res1 = 0 ;
3871 int argvi = 0;
3872 gboolean result;
3873 dXSARGS;
3874
3875 if ((items < 2) || (items > 2)) {
3876 SWIG_croak("Usage: device_config_seen(app,key);");
3877 }
3878 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_device_config_t, 0 | 0 );
3879 if (!SWIG_IsOK(res1)) {
3880 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "device_config_seen" "', argument " "1"" of type '" "device_config_t *""'");
3881 }
3882 arg1 = (device_config_t *)(argp1);
3883 {
3884 if (sizeof(signed int) == 1) {
3885 arg2 = amglue_SvI8(ST(1));
3886 } else if (sizeof(signed int) == 2) {
3887 arg2 = amglue_SvI16(ST(1));
3888 } else if (sizeof(signed int) == 4) {
3889 arg2 = amglue_SvI32(ST(1));
3890 } else if (sizeof(signed int) == 8) {
3891 arg2 = amglue_SvI64(ST(1));
3892 } else {
3893 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
3894 }
3895 }
3896 result = (gboolean)device_config_seen(arg1,arg2);
3897 {
3898 if (result)
3899 ST(argvi) = &PL_sv_yes;
3900 else
3901 ST(argvi) = &PL_sv_no;
3902 argvi++;
3903 }
3904
3905
3906 XSRETURN(argvi);
3907 fail:
3908
3909
3910 SWIG_croak_null();
3911 }
3912 }
3913
3914
XS(_wrap_lookup_changer_config)3915 XS(_wrap_lookup_changer_config) {
3916 {
3917 char *arg1 = (char *) 0 ;
3918 int res1 ;
3919 char *buf1 = 0 ;
3920 int alloc1 = 0 ;
3921 int argvi = 0;
3922 changer_config_t *result = 0 ;
3923 dXSARGS;
3924
3925 if ((items < 1) || (items > 1)) {
3926 SWIG_croak("Usage: lookup_changer_config(identifier);");
3927 }
3928 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
3929 if (!SWIG_IsOK(res1)) {
3930 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "lookup_changer_config" "', argument " "1"" of type '" "char *""'");
3931 }
3932 arg1 = (char *)(buf1);
3933 result = (changer_config_t *)lookup_changer_config(arg1);
3934 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_changer_config_t, 0 | 0); argvi++ ;
3935 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
3936 XSRETURN(argvi);
3937 fail:
3938 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
3939 SWIG_croak_null();
3940 }
3941 }
3942
3943
XS(_wrap_changer_config_getconf)3944 XS(_wrap_changer_config_getconf) {
3945 {
3946 changer_config_t *arg1 = (changer_config_t *) 0 ;
3947 changer_config_key arg2 ;
3948 void *argp1 = 0 ;
3949 int res1 = 0 ;
3950 int argvi = 0;
3951 val_t *result = 0 ;
3952 dXSARGS;
3953
3954 if ((items < 2) || (items > 2)) {
3955 SWIG_croak("Usage: changer_config_getconf(pps,key);");
3956 }
3957 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_changer_config_t, 0 | 0 );
3958 if (!SWIG_IsOK(res1)) {
3959 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "changer_config_getconf" "', argument " "1"" of type '" "changer_config_t *""'");
3960 }
3961 arg1 = (changer_config_t *)(argp1);
3962 {
3963 if (sizeof(signed int) == 1) {
3964 arg2 = amglue_SvI8(ST(1));
3965 } else if (sizeof(signed int) == 2) {
3966 arg2 = amglue_SvI16(ST(1));
3967 } else if (sizeof(signed int) == 4) {
3968 arg2 = amglue_SvI32(ST(1));
3969 } else if (sizeof(signed int) == 8) {
3970 arg2 = amglue_SvI64(ST(1));
3971 } else {
3972 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
3973 }
3974 }
3975 result = (val_t *)changer_config_getconf(arg1,arg2);
3976 {
3977 SV *results[3], **iter;
3978 int nresults;
3979
3980 /* save the stack, since val_t_to_sv may invoke arbitrary Perl code */
3981 SP += argvi; PUTBACK;
3982 nresults = val_t_to_sv(result, results);
3983 SPAGAIN; SP -= argvi;
3984 EXTEND(SP, nresults);
3985
3986 /* add val_t_to_sv's results to the stack */
3987 for (iter = results; nresults; iter++, nresults--) {
3988 ST(argvi) = *iter;
3989 argvi++;
3990 }
3991 }
3992
3993
3994 XSRETURN(argvi);
3995 fail:
3996
3997
3998 SWIG_croak_null();
3999 }
4000 }
4001
4002
XS(_wrap_changer_config_name)4003 XS(_wrap_changer_config_name) {
4004 {
4005 changer_config_t *arg1 = (changer_config_t *) 0 ;
4006 void *argp1 = 0 ;
4007 int res1 = 0 ;
4008 int argvi = 0;
4009 char *result = 0 ;
4010 dXSARGS;
4011
4012 if ((items < 1) || (items > 1)) {
4013 SWIG_croak("Usage: changer_config_name(pps);");
4014 }
4015 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_changer_config_t, 0 | 0 );
4016 if (!SWIG_IsOK(res1)) {
4017 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "changer_config_name" "', argument " "1"" of type '" "changer_config_t *""'");
4018 }
4019 arg1 = (changer_config_t *)(argp1);
4020 result = (char *)changer_config_name(arg1);
4021 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
4022
4023 XSRETURN(argvi);
4024 fail:
4025
4026 SWIG_croak_null();
4027 }
4028 }
4029
4030
XS(_wrap_changer_config_seen)4031 XS(_wrap_changer_config_seen) {
4032 {
4033 changer_config_t *arg1 = (changer_config_t *) 0 ;
4034 changer_config_key arg2 ;
4035 void *argp1 = 0 ;
4036 int res1 = 0 ;
4037 int argvi = 0;
4038 gboolean result;
4039 dXSARGS;
4040
4041 if ((items < 2) || (items > 2)) {
4042 SWIG_croak("Usage: changer_config_seen(app,key);");
4043 }
4044 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_changer_config_t, 0 | 0 );
4045 if (!SWIG_IsOK(res1)) {
4046 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "changer_config_seen" "', argument " "1"" of type '" "changer_config_t *""'");
4047 }
4048 arg1 = (changer_config_t *)(argp1);
4049 {
4050 if (sizeof(signed int) == 1) {
4051 arg2 = amglue_SvI8(ST(1));
4052 } else if (sizeof(signed int) == 2) {
4053 arg2 = amglue_SvI16(ST(1));
4054 } else if (sizeof(signed int) == 4) {
4055 arg2 = amglue_SvI32(ST(1));
4056 } else if (sizeof(signed int) == 8) {
4057 arg2 = amglue_SvI64(ST(1));
4058 } else {
4059 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
4060 }
4061 }
4062 result = (gboolean)changer_config_seen(arg1,arg2);
4063 {
4064 if (result)
4065 ST(argvi) = &PL_sv_yes;
4066 else
4067 ST(argvi) = &PL_sv_no;
4068 argvi++;
4069 }
4070
4071
4072 XSRETURN(argvi);
4073 fail:
4074
4075
4076 SWIG_croak_null();
4077 }
4078 }
4079
4080
XS(_wrap_lookup_interactivity)4081 XS(_wrap_lookup_interactivity) {
4082 {
4083 char *arg1 = (char *) 0 ;
4084 int res1 ;
4085 char *buf1 = 0 ;
4086 int alloc1 = 0 ;
4087 int argvi = 0;
4088 interactivity_t *result = 0 ;
4089 dXSARGS;
4090
4091 if ((items < 1) || (items > 1)) {
4092 SWIG_croak("Usage: lookup_interactivity(identifier);");
4093 }
4094 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
4095 if (!SWIG_IsOK(res1)) {
4096 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "lookup_interactivity" "', argument " "1"" of type '" "char *""'");
4097 }
4098 arg1 = (char *)(buf1);
4099 result = (interactivity_t *)lookup_interactivity(arg1);
4100 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_interactivity_t, 0 | 0); argvi++ ;
4101 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
4102 XSRETURN(argvi);
4103 fail:
4104 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
4105 SWIG_croak_null();
4106 }
4107 }
4108
4109
XS(_wrap_interactivity_getconf)4110 XS(_wrap_interactivity_getconf) {
4111 {
4112 interactivity_t *arg1 = (interactivity_t *) 0 ;
4113 interactivity_key arg2 ;
4114 void *argp1 = 0 ;
4115 int res1 = 0 ;
4116 int argvi = 0;
4117 val_t *result = 0 ;
4118 dXSARGS;
4119
4120 if ((items < 2) || (items > 2)) {
4121 SWIG_croak("Usage: interactivity_getconf(app,key);");
4122 }
4123 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_interactivity_t, 0 | 0 );
4124 if (!SWIG_IsOK(res1)) {
4125 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "interactivity_getconf" "', argument " "1"" of type '" "interactivity_t *""'");
4126 }
4127 arg1 = (interactivity_t *)(argp1);
4128 {
4129 if (sizeof(signed int) == 1) {
4130 arg2 = amglue_SvI8(ST(1));
4131 } else if (sizeof(signed int) == 2) {
4132 arg2 = amglue_SvI16(ST(1));
4133 } else if (sizeof(signed int) == 4) {
4134 arg2 = amglue_SvI32(ST(1));
4135 } else if (sizeof(signed int) == 8) {
4136 arg2 = amglue_SvI64(ST(1));
4137 } else {
4138 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
4139 }
4140 }
4141 result = (val_t *)interactivity_getconf(arg1,arg2);
4142 {
4143 SV *results[3], **iter;
4144 int nresults;
4145
4146 /* save the stack, since val_t_to_sv may invoke arbitrary Perl code */
4147 SP += argvi; PUTBACK;
4148 nresults = val_t_to_sv(result, results);
4149 SPAGAIN; SP -= argvi;
4150 EXTEND(SP, nresults);
4151
4152 /* add val_t_to_sv's results to the stack */
4153 for (iter = results; nresults; iter++, nresults--) {
4154 ST(argvi) = *iter;
4155 argvi++;
4156 }
4157 }
4158
4159
4160 XSRETURN(argvi);
4161 fail:
4162
4163
4164 SWIG_croak_null();
4165 }
4166 }
4167
4168
XS(_wrap_interactivity_name)4169 XS(_wrap_interactivity_name) {
4170 {
4171 interactivity_t *arg1 = (interactivity_t *) 0 ;
4172 void *argp1 = 0 ;
4173 int res1 = 0 ;
4174 int argvi = 0;
4175 char *result = 0 ;
4176 dXSARGS;
4177
4178 if ((items < 1) || (items > 1)) {
4179 SWIG_croak("Usage: interactivity_name(app);");
4180 }
4181 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_interactivity_t, 0 | 0 );
4182 if (!SWIG_IsOK(res1)) {
4183 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "interactivity_name" "', argument " "1"" of type '" "interactivity_t *""'");
4184 }
4185 arg1 = (interactivity_t *)(argp1);
4186 result = (char *)interactivity_name(arg1);
4187 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
4188
4189 XSRETURN(argvi);
4190 fail:
4191
4192 SWIG_croak_null();
4193 }
4194 }
4195
4196
XS(_wrap_interactivity_seen)4197 XS(_wrap_interactivity_seen) {
4198 {
4199 interactivity_t *arg1 = (interactivity_t *) 0 ;
4200 interactivity_key arg2 ;
4201 void *argp1 = 0 ;
4202 int res1 = 0 ;
4203 int argvi = 0;
4204 gboolean result;
4205 dXSARGS;
4206
4207 if ((items < 2) || (items > 2)) {
4208 SWIG_croak("Usage: interactivity_seen(app,key);");
4209 }
4210 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_interactivity_t, 0 | 0 );
4211 if (!SWIG_IsOK(res1)) {
4212 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "interactivity_seen" "', argument " "1"" of type '" "interactivity_t *""'");
4213 }
4214 arg1 = (interactivity_t *)(argp1);
4215 {
4216 if (sizeof(signed int) == 1) {
4217 arg2 = amglue_SvI8(ST(1));
4218 } else if (sizeof(signed int) == 2) {
4219 arg2 = amglue_SvI16(ST(1));
4220 } else if (sizeof(signed int) == 4) {
4221 arg2 = amglue_SvI32(ST(1));
4222 } else if (sizeof(signed int) == 8) {
4223 arg2 = amglue_SvI64(ST(1));
4224 } else {
4225 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
4226 }
4227 }
4228 result = (gboolean)interactivity_seen(arg1,arg2);
4229 {
4230 if (result)
4231 ST(argvi) = &PL_sv_yes;
4232 else
4233 ST(argvi) = &PL_sv_no;
4234 argvi++;
4235 }
4236
4237
4238 XSRETURN(argvi);
4239 fail:
4240
4241
4242 SWIG_croak_null();
4243 }
4244 }
4245
4246
XS(_wrap_lookup_taperscan)4247 XS(_wrap_lookup_taperscan) {
4248 {
4249 char *arg1 = (char *) 0 ;
4250 int res1 ;
4251 char *buf1 = 0 ;
4252 int alloc1 = 0 ;
4253 int argvi = 0;
4254 taperscan_t *result = 0 ;
4255 dXSARGS;
4256
4257 if ((items < 1) || (items > 1)) {
4258 SWIG_croak("Usage: lookup_taperscan(identifier);");
4259 }
4260 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
4261 if (!SWIG_IsOK(res1)) {
4262 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "lookup_taperscan" "', argument " "1"" of type '" "char *""'");
4263 }
4264 arg1 = (char *)(buf1);
4265 result = (taperscan_t *)lookup_taperscan(arg1);
4266 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_taperscan_t, 0 | 0); argvi++ ;
4267 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
4268 XSRETURN(argvi);
4269 fail:
4270 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
4271 SWIG_croak_null();
4272 }
4273 }
4274
4275
XS(_wrap_taperscan_getconf)4276 XS(_wrap_taperscan_getconf) {
4277 {
4278 taperscan_t *arg1 = (taperscan_t *) 0 ;
4279 taperscan_key arg2 ;
4280 void *argp1 = 0 ;
4281 int res1 = 0 ;
4282 int argvi = 0;
4283 val_t *result = 0 ;
4284 dXSARGS;
4285
4286 if ((items < 2) || (items > 2)) {
4287 SWIG_croak("Usage: taperscan_getconf(app,key);");
4288 }
4289 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_taperscan_t, 0 | 0 );
4290 if (!SWIG_IsOK(res1)) {
4291 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "taperscan_getconf" "', argument " "1"" of type '" "taperscan_t *""'");
4292 }
4293 arg1 = (taperscan_t *)(argp1);
4294 {
4295 if (sizeof(signed int) == 1) {
4296 arg2 = amglue_SvI8(ST(1));
4297 } else if (sizeof(signed int) == 2) {
4298 arg2 = amglue_SvI16(ST(1));
4299 } else if (sizeof(signed int) == 4) {
4300 arg2 = amglue_SvI32(ST(1));
4301 } else if (sizeof(signed int) == 8) {
4302 arg2 = amglue_SvI64(ST(1));
4303 } else {
4304 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
4305 }
4306 }
4307 result = (val_t *)taperscan_getconf(arg1,arg2);
4308 {
4309 SV *results[3], **iter;
4310 int nresults;
4311
4312 /* save the stack, since val_t_to_sv may invoke arbitrary Perl code */
4313 SP += argvi; PUTBACK;
4314 nresults = val_t_to_sv(result, results);
4315 SPAGAIN; SP -= argvi;
4316 EXTEND(SP, nresults);
4317
4318 /* add val_t_to_sv's results to the stack */
4319 for (iter = results; nresults; iter++, nresults--) {
4320 ST(argvi) = *iter;
4321 argvi++;
4322 }
4323 }
4324
4325
4326 XSRETURN(argvi);
4327 fail:
4328
4329
4330 SWIG_croak_null();
4331 }
4332 }
4333
4334
XS(_wrap_taperscan_name)4335 XS(_wrap_taperscan_name) {
4336 {
4337 taperscan_t *arg1 = (taperscan_t *) 0 ;
4338 void *argp1 = 0 ;
4339 int res1 = 0 ;
4340 int argvi = 0;
4341 char *result = 0 ;
4342 dXSARGS;
4343
4344 if ((items < 1) || (items > 1)) {
4345 SWIG_croak("Usage: taperscan_name(app);");
4346 }
4347 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_taperscan_t, 0 | 0 );
4348 if (!SWIG_IsOK(res1)) {
4349 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "taperscan_name" "', argument " "1"" of type '" "taperscan_t *""'");
4350 }
4351 arg1 = (taperscan_t *)(argp1);
4352 result = (char *)taperscan_name(arg1);
4353 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
4354
4355 XSRETURN(argvi);
4356 fail:
4357
4358 SWIG_croak_null();
4359 }
4360 }
4361
4362
XS(_wrap_taperscan_seen)4363 XS(_wrap_taperscan_seen) {
4364 {
4365 taperscan_t *arg1 = (taperscan_t *) 0 ;
4366 taperscan_key arg2 ;
4367 void *argp1 = 0 ;
4368 int res1 = 0 ;
4369 int argvi = 0;
4370 gboolean result;
4371 dXSARGS;
4372
4373 if ((items < 2) || (items > 2)) {
4374 SWIG_croak("Usage: taperscan_seen(app,key);");
4375 }
4376 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_taperscan_t, 0 | 0 );
4377 if (!SWIG_IsOK(res1)) {
4378 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "taperscan_seen" "', argument " "1"" of type '" "taperscan_t *""'");
4379 }
4380 arg1 = (taperscan_t *)(argp1);
4381 {
4382 if (sizeof(signed int) == 1) {
4383 arg2 = amglue_SvI8(ST(1));
4384 } else if (sizeof(signed int) == 2) {
4385 arg2 = amglue_SvI16(ST(1));
4386 } else if (sizeof(signed int) == 4) {
4387 arg2 = amglue_SvI32(ST(1));
4388 } else if (sizeof(signed int) == 8) {
4389 arg2 = amglue_SvI64(ST(1));
4390 } else {
4391 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
4392 }
4393 }
4394 result = (gboolean)taperscan_seen(arg1,arg2);
4395 {
4396 if (result)
4397 ST(argvi) = &PL_sv_yes;
4398 else
4399 ST(argvi) = &PL_sv_no;
4400 argvi++;
4401 }
4402
4403
4404 XSRETURN(argvi);
4405 fail:
4406
4407
4408 SWIG_croak_null();
4409 }
4410 }
4411
4412
XS(_wrap_getconf_unit_divisor)4413 XS(_wrap_getconf_unit_divisor) {
4414 {
4415 int argvi = 0;
4416 long result;
4417 dXSARGS;
4418
4419 if ((items < 0) || (items > 0)) {
4420 SWIG_croak("Usage: getconf_unit_divisor();");
4421 }
4422 result = (long)getconf_unit_divisor();
4423 {
4424 SV *for_stack;
4425 SP += argvi; PUTBACK;
4426 for_stack = sv_2mortal(amglue_newSVi64(result));
4427 SPAGAIN; SP -= argvi;
4428 ST(argvi) = for_stack;
4429 argvi++;
4430 }
4431 XSRETURN(argvi);
4432 fail:
4433 SWIG_croak_null();
4434 }
4435 }
4436
4437
XS(_wrap_config_init)4438 XS(_wrap_config_init) {
4439 {
4440 config_init_flags arg1 ;
4441 char *arg2 = (char *) 0 ;
4442 int res2 ;
4443 char *buf2 = 0 ;
4444 int alloc2 = 0 ;
4445 int argvi = 0;
4446 cfgerr_level_t result;
4447 dXSARGS;
4448
4449 if ((items < 2) || (items > 2)) {
4450 SWIG_croak("Usage: config_init(flags,arg_config_name);");
4451 }
4452 {
4453 if (sizeof(signed int) == 1) {
4454 arg1 = amglue_SvI8(ST(0));
4455 } else if (sizeof(signed int) == 2) {
4456 arg1 = amglue_SvI16(ST(0));
4457 } else if (sizeof(signed int) == 4) {
4458 arg1 = amglue_SvI32(ST(0));
4459 } else if (sizeof(signed int) == 8) {
4460 arg1 = amglue_SvI64(ST(0));
4461 } else {
4462 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
4463 }
4464 }
4465 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
4466 if (!SWIG_IsOK(res2)) {
4467 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "config_init" "', argument " "2"" of type '" "char *""'");
4468 }
4469 arg2 = (char *)(buf2);
4470 result = (cfgerr_level_t)config_init(arg1,arg2);
4471 {
4472 SV *for_stack;
4473 SP += argvi; PUTBACK;
4474 for_stack = sv_2mortal(amglue_newSVi64(result));
4475 SPAGAIN; SP -= argvi;
4476 ST(argvi) = for_stack;
4477 argvi++;
4478 }
4479
4480 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
4481 XSRETURN(argvi);
4482 fail:
4483
4484 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
4485 SWIG_croak_null();
4486 }
4487 }
4488
4489
XS(_wrap_config_uninit)4490 XS(_wrap_config_uninit) {
4491 {
4492 int argvi = 0;
4493 dXSARGS;
4494
4495 if ((items < 0) || (items > 0)) {
4496 SWIG_croak("Usage: config_uninit();");
4497 }
4498 config_uninit();
4499 ST(argvi) = sv_newmortal();
4500 XSRETURN(argvi);
4501 fail:
4502 SWIG_croak_null();
4503 }
4504 }
4505
4506
XS(_wrap_get_config_options)4507 XS(_wrap_get_config_options) {
4508 {
4509 int arg1 ;
4510 int argvi = 0;
4511 char **result = 0 ;
4512 dXSARGS;
4513
4514 if ((items < 1) || (items > 1)) {
4515 SWIG_croak("Usage: get_config_options(first);");
4516 }
4517 {
4518 if (sizeof(signed int) == 1) {
4519 arg1 = amglue_SvI8(ST(0));
4520 } else if (sizeof(signed int) == 2) {
4521 arg1 = amglue_SvI16(ST(0));
4522 } else if (sizeof(signed int) == 4) {
4523 arg1 = amglue_SvI32(ST(0));
4524 } else if (sizeof(signed int) == 8) {
4525 arg1 = amglue_SvI64(ST(0));
4526 } else {
4527 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
4528 }
4529 }
4530 result = (char **)get_config_options(arg1);
4531 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_p_char, 0 | 0); argvi++ ;
4532
4533 XSRETURN(argvi);
4534 fail:
4535
4536 SWIG_croak_null();
4537 }
4538 }
4539
4540
XS(_wrap_get_config_name)4541 XS(_wrap_get_config_name) {
4542 {
4543 int argvi = 0;
4544 char *result = 0 ;
4545 dXSARGS;
4546
4547 if ((items < 0) || (items > 0)) {
4548 SWIG_croak("Usage: get_config_name();");
4549 }
4550 result = (char *)get_config_name();
4551 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
4552 XSRETURN(argvi);
4553 fail:
4554 SWIG_croak_null();
4555 }
4556 }
4557
4558
XS(_wrap_get_config_dir)4559 XS(_wrap_get_config_dir) {
4560 {
4561 int argvi = 0;
4562 char *result = 0 ;
4563 dXSARGS;
4564
4565 if ((items < 0) || (items > 0)) {
4566 SWIG_croak("Usage: get_config_dir();");
4567 }
4568 result = (char *)get_config_dir();
4569 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
4570 XSRETURN(argvi);
4571 fail:
4572 SWIG_croak_null();
4573 }
4574 }
4575
4576
XS(_wrap_get_config_filename)4577 XS(_wrap_get_config_filename) {
4578 {
4579 int argvi = 0;
4580 char *result = 0 ;
4581 dXSARGS;
4582
4583 if ((items < 0) || (items > 0)) {
4584 SWIG_croak("Usage: get_config_filename();");
4585 }
4586 result = (char *)get_config_filename();
4587 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
4588 XSRETURN(argvi);
4589 fail:
4590 SWIG_croak_null();
4591 }
4592 }
4593
4594
XS(_wrap_config_print_errors)4595 XS(_wrap_config_print_errors) {
4596 {
4597 int argvi = 0;
4598 dXSARGS;
4599
4600 if ((items < 0) || (items > 0)) {
4601 SWIG_croak("Usage: config_print_errors();");
4602 }
4603 config_print_errors();
4604 ST(argvi) = sv_newmortal();
4605 XSRETURN(argvi);
4606 fail:
4607 SWIG_croak_null();
4608 }
4609 }
4610
4611
XS(_wrap_config_clear_errors)4612 XS(_wrap_config_clear_errors) {
4613 {
4614 int argvi = 0;
4615 dXSARGS;
4616
4617 if ((items < 0) || (items > 0)) {
4618 SWIG_croak("Usage: config_clear_errors();");
4619 }
4620 config_clear_errors();
4621 ST(argvi) = sv_newmortal();
4622 XSRETURN(argvi);
4623 fail:
4624 SWIG_croak_null();
4625 }
4626 }
4627
4628
XS(_wrap_config_errors)4629 XS(_wrap_config_errors) {
4630 {
4631 GSList **arg1 = (GSList **) 0 ;
4632 GSList *templist1 ;
4633 int argvi = 0;
4634 cfgerr_level_t result;
4635 dXSARGS;
4636
4637 {
4638 templist1 = NULL;
4639 arg1 = &templist1;
4640 }
4641 if ((items < 0) || (items > 0)) {
4642 SWIG_croak("Usage: config_errors();");
4643 }
4644 result = (cfgerr_level_t)config_errors(arg1);
4645 {
4646 SV *for_stack;
4647 SP += argvi; PUTBACK;
4648 for_stack = sv_2mortal(amglue_newSVi64(result));
4649 SPAGAIN; SP -= argvi;
4650 ST(argvi) = for_stack;
4651 argvi++;
4652 }
4653 {
4654 GSList *it = *arg1;
4655
4656 EXTEND(SP, g_slist_length(it));
4657 while (it) {
4658 ST(argvi) = sv_2mortal(newSVpv(it->data, 0));
4659 argvi++;
4660 it = it->next;
4661 }
4662 }
4663
4664 XSRETURN(argvi);
4665 fail:
4666
4667 SWIG_croak_null();
4668 }
4669 }
4670
4671
XS(_wrap_new_config_overrides)4672 XS(_wrap_new_config_overrides) {
4673 {
4674 int arg1 ;
4675 int argvi = 0;
4676 config_overrides_t *result = 0 ;
4677 dXSARGS;
4678
4679 if ((items < 1) || (items > 1)) {
4680 SWIG_croak("Usage: new_config_overrides(size_estimate);");
4681 }
4682 {
4683 if (sizeof(signed int) == 1) {
4684 arg1 = amglue_SvI8(ST(0));
4685 } else if (sizeof(signed int) == 2) {
4686 arg1 = amglue_SvI16(ST(0));
4687 } else if (sizeof(signed int) == 4) {
4688 arg1 = amglue_SvI32(ST(0));
4689 } else if (sizeof(signed int) == 8) {
4690 arg1 = amglue_SvI64(ST(0));
4691 } else {
4692 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
4693 }
4694 }
4695 result = (config_overrides_t *)new_config_overrides(arg1);
4696 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_config_overrides_t, 0 | 0); argvi++ ;
4697
4698 XSRETURN(argvi);
4699 fail:
4700
4701 SWIG_croak_null();
4702 }
4703 }
4704
4705
XS(_wrap_free_config_overrides)4706 XS(_wrap_free_config_overrides) {
4707 {
4708 config_overrides_t *arg1 = (config_overrides_t *) 0 ;
4709 void *argp1 = 0 ;
4710 int res1 = 0 ;
4711 int argvi = 0;
4712 dXSARGS;
4713
4714 if ((items < 1) || (items > 1)) {
4715 SWIG_croak("Usage: free_config_overrides(co);");
4716 }
4717 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_config_overrides_t, 0 | 0 );
4718 if (!SWIG_IsOK(res1)) {
4719 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "free_config_overrides" "', argument " "1"" of type '" "config_overrides_t *""'");
4720 }
4721 arg1 = (config_overrides_t *)(argp1);
4722 free_config_overrides(arg1);
4723 ST(argvi) = sv_newmortal();
4724
4725 XSRETURN(argvi);
4726 fail:
4727
4728 SWIG_croak_null();
4729 }
4730 }
4731
4732
XS(_wrap_add_config_override)4733 XS(_wrap_add_config_override) {
4734 {
4735 config_overrides_t *arg1 = (config_overrides_t *) 0 ;
4736 char *arg2 = (char *) 0 ;
4737 char *arg3 = (char *) 0 ;
4738 void *argp1 = 0 ;
4739 int res1 = 0 ;
4740 int res2 ;
4741 char *buf2 = 0 ;
4742 int alloc2 = 0 ;
4743 int res3 ;
4744 char *buf3 = 0 ;
4745 int alloc3 = 0 ;
4746 int argvi = 0;
4747 dXSARGS;
4748
4749 if ((items < 3) || (items > 3)) {
4750 SWIG_croak("Usage: add_config_override(co,key,value);");
4751 }
4752 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_config_overrides_t, 0 | 0 );
4753 if (!SWIG_IsOK(res1)) {
4754 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "add_config_override" "', argument " "1"" of type '" "config_overrides_t *""'");
4755 }
4756 arg1 = (config_overrides_t *)(argp1);
4757 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
4758 if (!SWIG_IsOK(res2)) {
4759 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "add_config_override" "', argument " "2"" of type '" "char *""'");
4760 }
4761 arg2 = (char *)(buf2);
4762 res3 = SWIG_AsCharPtrAndSize(ST(2), &buf3, NULL, &alloc3);
4763 if (!SWIG_IsOK(res3)) {
4764 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "add_config_override" "', argument " "3"" of type '" "char *""'");
4765 }
4766 arg3 = (char *)(buf3);
4767 add_config_override(arg1,arg2,arg3);
4768 ST(argvi) = sv_newmortal();
4769
4770 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
4771 if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
4772 XSRETURN(argvi);
4773 fail:
4774
4775 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
4776 if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
4777 SWIG_croak_null();
4778 }
4779 }
4780
4781
XS(_wrap_add_config_override_opt)4782 XS(_wrap_add_config_override_opt) {
4783 {
4784 config_overrides_t *arg1 = (config_overrides_t *) 0 ;
4785 char *arg2 = (char *) 0 ;
4786 void *argp1 = 0 ;
4787 int res1 = 0 ;
4788 int res2 ;
4789 char *buf2 = 0 ;
4790 int alloc2 = 0 ;
4791 int argvi = 0;
4792 dXSARGS;
4793
4794 if ((items < 2) || (items > 2)) {
4795 SWIG_croak("Usage: add_config_override_opt(co,optarg);");
4796 }
4797 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_config_overrides_t, 0 | 0 );
4798 if (!SWIG_IsOK(res1)) {
4799 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "add_config_override_opt" "', argument " "1"" of type '" "config_overrides_t *""'");
4800 }
4801 arg1 = (config_overrides_t *)(argp1);
4802 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
4803 if (!SWIG_IsOK(res2)) {
4804 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "add_config_override_opt" "', argument " "2"" of type '" "char *""'");
4805 }
4806 arg2 = (char *)(buf2);
4807 add_config_override_opt(arg1,arg2);
4808 ST(argvi) = sv_newmortal();
4809
4810 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
4811 XSRETURN(argvi);
4812 fail:
4813
4814 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
4815 SWIG_croak_null();
4816 }
4817 }
4818
4819
XS(_wrap_set_config_overrides)4820 XS(_wrap_set_config_overrides) {
4821 {
4822 config_overrides_t *arg1 = (config_overrides_t *) 0 ;
4823 void *argp1 = 0 ;
4824 int res1 = 0 ;
4825 int argvi = 0;
4826 dXSARGS;
4827
4828 if ((items < 1) || (items > 1)) {
4829 SWIG_croak("Usage: set_config_overrides(co);");
4830 }
4831 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_config_overrides_t, 0 | 0 );
4832 if (!SWIG_IsOK(res1)) {
4833 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "set_config_overrides" "', argument " "1"" of type '" "config_overrides_t *""'");
4834 }
4835 arg1 = (config_overrides_t *)(argp1);
4836 set_config_overrides(arg1);
4837 ST(argvi) = sv_newmortal();
4838
4839 XSRETURN(argvi);
4840 fail:
4841
4842 SWIG_croak_null();
4843 }
4844 }
4845
4846
XS(_wrap_dump_configuration)4847 XS(_wrap_dump_configuration) {
4848 {
4849 gboolean arg1 ;
4850 gboolean arg2 ;
4851 int argvi = 0;
4852 dXSARGS;
4853
4854 if ((items < 2) || (items > 2)) {
4855 SWIG_croak("Usage: dump_configuration(print_default,print_source);");
4856 }
4857 {
4858 arg1 = SvTRUE(ST(0));
4859 }
4860 {
4861 arg2 = SvTRUE(ST(1));
4862 }
4863 dump_configuration(arg1,arg2);
4864 ST(argvi) = sv_newmortal();
4865
4866
4867 XSRETURN(argvi);
4868 fail:
4869
4870
4871 SWIG_croak_null();
4872 }
4873 }
4874
4875
XS(_wrap_config_dir_relative)4876 XS(_wrap_config_dir_relative) {
4877 {
4878 char *arg1 = (char *) 0 ;
4879 int res1 ;
4880 char *buf1 = 0 ;
4881 int alloc1 = 0 ;
4882 int argvi = 0;
4883 char *result = 0 ;
4884 dXSARGS;
4885
4886 if ((items < 1) || (items > 1)) {
4887 SWIG_croak("Usage: config_dir_relative(filename);");
4888 }
4889 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
4890 if (!SWIG_IsOK(res1)) {
4891 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "config_dir_relative" "', argument " "1"" of type '" "char *""'");
4892 }
4893 arg1 = (char *)(buf1);
4894 result = (char *)config_dir_relative(arg1);
4895 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
4896 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
4897 free((char*)result);
4898 XSRETURN(argvi);
4899 fail:
4900 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
4901 SWIG_croak_null();
4902 }
4903 }
4904
4905
XS(_wrap_taperalgo2str)4906 XS(_wrap_taperalgo2str) {
4907 {
4908 taperalgo_t arg1 ;
4909 int argvi = 0;
4910 char *result = 0 ;
4911 dXSARGS;
4912
4913 if ((items < 1) || (items > 1)) {
4914 SWIG_croak("Usage: taperalgo2str(taperalgo);");
4915 }
4916 {
4917 if (sizeof(signed int) == 1) {
4918 arg1 = amglue_SvI8(ST(0));
4919 } else if (sizeof(signed int) == 2) {
4920 arg1 = amglue_SvI16(ST(0));
4921 } else if (sizeof(signed int) == 4) {
4922 arg1 = amglue_SvI32(ST(0));
4923 } else if (sizeof(signed int) == 8) {
4924 arg1 = amglue_SvI64(ST(0));
4925 } else {
4926 g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
4927 }
4928 }
4929 result = (char *)taperalgo2str(arg1);
4930 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
4931
4932 XSRETURN(argvi);
4933 fail:
4934
4935 SWIG_croak_null();
4936 }
4937 }
4938
4939
XS(_wrap_find_multiplier)4940 XS(_wrap_find_multiplier) {
4941 {
4942 char *arg1 = (char *) 0 ;
4943 int res1 ;
4944 char *buf1 = 0 ;
4945 int alloc1 = 0 ;
4946 int argvi = 0;
4947 gint64 result;
4948 dXSARGS;
4949
4950 if ((items < 1) || (items > 1)) {
4951 SWIG_croak("Usage: find_multiplier(casestr);");
4952 }
4953 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
4954 if (!SWIG_IsOK(res1)) {
4955 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "find_multiplier" "', argument " "1"" of type '" "char *""'");
4956 }
4957 arg1 = (char *)(buf1);
4958 result = find_multiplier(arg1);
4959 {
4960 SV *for_stack;
4961 SP += argvi; PUTBACK;
4962 for_stack = sv_2mortal(amglue_newSVi64(result));
4963 SPAGAIN; SP -= argvi;
4964 ST(argvi) = for_stack;
4965 argvi++;
4966 }
4967 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
4968 XSRETURN(argvi);
4969 fail:
4970 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
4971 SWIG_croak_null();
4972 }
4973 }
4974
4975
XS(_wrap_C_string_to_boolean)4976 XS(_wrap_C_string_to_boolean) {
4977 {
4978 char *arg1 = (char *) 0 ;
4979 int res1 ;
4980 char *buf1 = 0 ;
4981 int alloc1 = 0 ;
4982 int argvi = 0;
4983 int result;
4984 dXSARGS;
4985
4986 if ((items < 1) || (items > 1)) {
4987 SWIG_croak("Usage: C_string_to_boolean(str);");
4988 }
4989 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
4990 if (!SWIG_IsOK(res1)) {
4991 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "C_string_to_boolean" "', argument " "1"" of type '" "char const *""'");
4992 }
4993 arg1 = (char *)(buf1);
4994 result = (int)string_to_boolean((char const *)arg1);
4995 {
4996 SV *for_stack;
4997 SP += argvi; PUTBACK;
4998 for_stack = sv_2mortal(amglue_newSVi64(result));
4999 SPAGAIN; SP -= argvi;
5000 ST(argvi) = for_stack;
5001 argvi++;
5002 }
5003 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
5004 XSRETURN(argvi);
5005 fail:
5006 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
5007 SWIG_croak_null();
5008 }
5009 }
5010
5011
XS(_wrap_amandaify_property_name)5012 XS(_wrap_amandaify_property_name) {
5013 {
5014 gchar *arg1 = (gchar *) 0 ;
5015 int res1 ;
5016 char *buf1 = 0 ;
5017 int alloc1 = 0 ;
5018 int argvi = 0;
5019 gchar *result = 0 ;
5020 dXSARGS;
5021
5022 if ((items < 1) || (items > 1)) {
5023 SWIG_croak("Usage: amandaify_property_name(name);");
5024 }
5025 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
5026 if (!SWIG_IsOK(res1)) {
5027 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "amandaify_property_name" "', argument " "1"" of type '" "gchar const *""'");
5028 }
5029 arg1 = (gchar *)(buf1);
5030 result = (gchar *)amandaify_property_name((char const *)arg1);
5031 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
5032 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
5033 free((char*)result);
5034 XSRETURN(argvi);
5035 fail:
5036 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
5037 SWIG_croak_null();
5038 }
5039 }
5040
5041
5042
5043 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (BEGIN) -------- */
5044
5045 static swig_type_info _swigt__p_application_t = {"_p_application_t", "application_t *", 0, 0, (void*)0, 0};
5046 static swig_type_info _swigt__p_changer_config_t = {"_p_changer_config_t", "changer_config_t *", 0, 0, (void*)0, 0};
5047 static swig_type_info _swigt__p_char = {"_p_char", "gchar *|char *", 0, 0, (void*)0, 0};
5048 static swig_type_info _swigt__p_config_overrides_t = {"_p_config_overrides_t", "config_overrides_t *", 0, 0, (void*)0, 0};
5049 static swig_type_info _swigt__p_device_config_t = {"_p_device_config_t", "device_config_t *", 0, 0, (void*)0, 0};
5050 static swig_type_info _swigt__p_double = {"_p_double", "double *|gdouble *", 0, 0, (void*)0, 0};
5051 static swig_type_info _swigt__p_dumptype_t = {"_p_dumptype_t", "dumptype_t *", 0, 0, (void*)0, 0};
5052 static swig_type_info _swigt__p_float = {"_p_float", "float *|gfloat *", 0, 0, (void*)0, 0};
5053 static swig_type_info _swigt__p_holdingdisk_t = {"_p_holdingdisk_t", "holdingdisk_t *", 0, 0, (void*)0, 0};
5054 static swig_type_info _swigt__p_int = {"_p_int", "taperscan_key *|application_key *|strategy_t *|pp_script_key *|int *|autolabel_enum_t *|comp_t *|dump_holdingdisk_t *|changer_config_key *|confparm_key *|interface_key *|device_config_key *|holdingdisk_key *|dumptype_key *|tapetype_key *|interactivity_key *|part_cache_type_t *|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};
5055 static swig_type_info _swigt__p_interactivity_t = {"_p_interactivity_t", "interactivity_t *", 0, 0, (void*)0, 0};
5056 static swig_type_info _swigt__p_interface_t = {"_p_interface_t", "interface_t *", 0, 0, (void*)0, 0};
5057 static swig_type_info _swigt__p_p_GSList = {"_p_p_GSList", "GSList **", 0, 0, (void*)0, 0};
5058 static swig_type_info _swigt__p_p_char = {"_p_p_char", "char **", 0, 0, (void*)0, 0};
5059 static swig_type_info _swigt__p_pp_script_t = {"_p_pp_script_t", "pp_script_t *", 0, 0, (void*)0, 0};
5060 static swig_type_info _swigt__p_taperscan_t = {"_p_taperscan_t", "taperscan_t *", 0, 0, (void*)0, 0};
5061 static swig_type_info _swigt__p_tapetype_t = {"_p_tapetype_t", "tapetype_t *", 0, 0, (void*)0, 0};
5062 static swig_type_info _swigt__p_unsigned_char = {"_p_unsigned_char", "guchar *|unsigned char *", 0, 0, (void*)0, 0};
5063
5064 static swig_type_info *swig_type_initial[] = {
5065 &_swigt__p_application_t,
5066 &_swigt__p_changer_config_t,
5067 &_swigt__p_char,
5068 &_swigt__p_config_overrides_t,
5069 &_swigt__p_device_config_t,
5070 &_swigt__p_double,
5071 &_swigt__p_dumptype_t,
5072 &_swigt__p_float,
5073 &_swigt__p_holdingdisk_t,
5074 &_swigt__p_int,
5075 &_swigt__p_interactivity_t,
5076 &_swigt__p_interface_t,
5077 &_swigt__p_p_GSList,
5078 &_swigt__p_p_char,
5079 &_swigt__p_pp_script_t,
5080 &_swigt__p_taperscan_t,
5081 &_swigt__p_tapetype_t,
5082 &_swigt__p_unsigned_char,
5083 };
5084
5085 static swig_cast_info _swigc__p_application_t[] = { {&_swigt__p_application_t, 0, 0, 0},{0, 0, 0, 0}};
5086 static swig_cast_info _swigc__p_changer_config_t[] = { {&_swigt__p_changer_config_t, 0, 0, 0},{0, 0, 0, 0}};
5087 static swig_cast_info _swigc__p_char[] = { {&_swigt__p_char, 0, 0, 0},{0, 0, 0, 0}};
5088 static swig_cast_info _swigc__p_config_overrides_t[] = { {&_swigt__p_config_overrides_t, 0, 0, 0},{0, 0, 0, 0}};
5089 static swig_cast_info _swigc__p_device_config_t[] = { {&_swigt__p_device_config_t, 0, 0, 0},{0, 0, 0, 0}};
5090 static swig_cast_info _swigc__p_double[] = { {&_swigt__p_double, 0, 0, 0},{0, 0, 0, 0}};
5091 static swig_cast_info _swigc__p_dumptype_t[] = { {&_swigt__p_dumptype_t, 0, 0, 0},{0, 0, 0, 0}};
5092 static swig_cast_info _swigc__p_float[] = { {&_swigt__p_float, 0, 0, 0},{0, 0, 0, 0}};
5093 static swig_cast_info _swigc__p_holdingdisk_t[] = { {&_swigt__p_holdingdisk_t, 0, 0, 0},{0, 0, 0, 0}};
5094 static swig_cast_info _swigc__p_int[] = { {&_swigt__p_int, 0, 0, 0},{0, 0, 0, 0}};
5095 static swig_cast_info _swigc__p_interactivity_t[] = { {&_swigt__p_interactivity_t, 0, 0, 0},{0, 0, 0, 0}};
5096 static swig_cast_info _swigc__p_interface_t[] = { {&_swigt__p_interface_t, 0, 0, 0},{0, 0, 0, 0}};
5097 static swig_cast_info _swigc__p_p_GSList[] = { {&_swigt__p_p_GSList, 0, 0, 0},{0, 0, 0, 0}};
5098 static swig_cast_info _swigc__p_p_char[] = { {&_swigt__p_p_char, 0, 0, 0},{0, 0, 0, 0}};
5099 static swig_cast_info _swigc__p_pp_script_t[] = { {&_swigt__p_pp_script_t, 0, 0, 0},{0, 0, 0, 0}};
5100 static swig_cast_info _swigc__p_taperscan_t[] = { {&_swigt__p_taperscan_t, 0, 0, 0},{0, 0, 0, 0}};
5101 static swig_cast_info _swigc__p_tapetype_t[] = { {&_swigt__p_tapetype_t, 0, 0, 0},{0, 0, 0, 0}};
5102 static swig_cast_info _swigc__p_unsigned_char[] = { {&_swigt__p_unsigned_char, 0, 0, 0},{0, 0, 0, 0}};
5103
5104 static swig_cast_info *swig_cast_initial[] = {
5105 _swigc__p_application_t,
5106 _swigc__p_changer_config_t,
5107 _swigc__p_char,
5108 _swigc__p_config_overrides_t,
5109 _swigc__p_device_config_t,
5110 _swigc__p_double,
5111 _swigc__p_dumptype_t,
5112 _swigc__p_float,
5113 _swigc__p_holdingdisk_t,
5114 _swigc__p_int,
5115 _swigc__p_interactivity_t,
5116 _swigc__p_interface_t,
5117 _swigc__p_p_GSList,
5118 _swigc__p_p_char,
5119 _swigc__p_pp_script_t,
5120 _swigc__p_taperscan_t,
5121 _swigc__p_tapetype_t,
5122 _swigc__p_unsigned_char,
5123 };
5124
5125
5126 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (END) -------- */
5127
5128 static swig_constant_info swig_constants[] = {
5129 {0,0,0,0,0,0}
5130 };
5131 #ifdef __cplusplus
5132 }
5133 #endif
5134 static swig_variable_info swig_variables[] = {
5135 { "Amanda::Configc::debug_amandad", MAGIC_CLASS _wrap_debug_amandad_set, MAGIC_CLASS _wrap_debug_amandad_get,0 },
5136 { "Amanda::Configc::debug_recovery", MAGIC_CLASS _wrap_debug_recovery_set, MAGIC_CLASS _wrap_debug_recovery_get,0 },
5137 { "Amanda::Configc::debug_amidxtaped", MAGIC_CLASS _wrap_debug_amidxtaped_set, MAGIC_CLASS _wrap_debug_amidxtaped_get,0 },
5138 { "Amanda::Configc::debug_amindexd", MAGIC_CLASS _wrap_debug_amindexd_set, MAGIC_CLASS _wrap_debug_amindexd_get,0 },
5139 { "Amanda::Configc::debug_amrecover", MAGIC_CLASS _wrap_debug_amrecover_set, MAGIC_CLASS _wrap_debug_amrecover_get,0 },
5140 { "Amanda::Configc::debug_auth", MAGIC_CLASS _wrap_debug_auth_set, MAGIC_CLASS _wrap_debug_auth_get,0 },
5141 { "Amanda::Configc::debug_event", MAGIC_CLASS _wrap_debug_event_set, MAGIC_CLASS _wrap_debug_event_get,0 },
5142 { "Amanda::Configc::debug_holding", MAGIC_CLASS _wrap_debug_holding_set, MAGIC_CLASS _wrap_debug_holding_get,0 },
5143 { "Amanda::Configc::debug_protocol", MAGIC_CLASS _wrap_debug_protocol_set, MAGIC_CLASS _wrap_debug_protocol_get,0 },
5144 { "Amanda::Configc::debug_planner", MAGIC_CLASS _wrap_debug_planner_set, MAGIC_CLASS _wrap_debug_planner_get,0 },
5145 { "Amanda::Configc::debug_driver", MAGIC_CLASS _wrap_debug_driver_set, MAGIC_CLASS _wrap_debug_driver_get,0 },
5146 { "Amanda::Configc::debug_dumper", MAGIC_CLASS _wrap_debug_dumper_set, MAGIC_CLASS _wrap_debug_dumper_get,0 },
5147 { "Amanda::Configc::debug_chunker", MAGIC_CLASS _wrap_debug_chunker_set, MAGIC_CLASS _wrap_debug_chunker_get,0 },
5148 { "Amanda::Configc::debug_taper", MAGIC_CLASS _wrap_debug_taper_set, MAGIC_CLASS _wrap_debug_taper_get,0 },
5149 { "Amanda::Configc::debug_selfcheck", MAGIC_CLASS _wrap_debug_selfcheck_set, MAGIC_CLASS _wrap_debug_selfcheck_get,0 },
5150 { "Amanda::Configc::debug_sendsize", MAGIC_CLASS _wrap_debug_sendsize_set, MAGIC_CLASS _wrap_debug_sendsize_get,0 },
5151 { "Amanda::Configc::debug_sendbackup", MAGIC_CLASS _wrap_debug_sendbackup_set, MAGIC_CLASS _wrap_debug_sendbackup_get,0 },
5152 {0,0,0,0}
5153 };
5154 static swig_command_info swig_commands[] = {
5155 {"Amanda::Configc::data_path_from_string", _wrap_data_path_from_string},
5156 {"Amanda::Configc::getconf", _wrap_getconf},
5157 {"Amanda::Configc::getconf_seen", _wrap_getconf_seen},
5158 {"Amanda::Configc::getconf_linenum", _wrap_getconf_linenum},
5159 {"Amanda::Configc::getconf_byname", _wrap_getconf_byname},
5160 {"Amanda::Configc::getconf_list", _wrap_getconf_list},
5161 {"Amanda::Configc::getconf_byname_strs", _wrap_getconf_byname_strs},
5162 {"Amanda::Configc::lookup_tapetype", _wrap_lookup_tapetype},
5163 {"Amanda::Configc::tapetype_getconf", _wrap_tapetype_getconf},
5164 {"Amanda::Configc::tapetype_name", _wrap_tapetype_name},
5165 {"Amanda::Configc::tapetype_seen", _wrap_tapetype_seen},
5166 {"Amanda::Configc::lookup_dumptype", _wrap_lookup_dumptype},
5167 {"Amanda::Configc::dumptype_getconf", _wrap_dumptype_getconf},
5168 {"Amanda::Configc::dumptype_name", _wrap_dumptype_name},
5169 {"Amanda::Configc::dumptype_seen", _wrap_dumptype_seen},
5170 {"Amanda::Configc::lookup_interface", _wrap_lookup_interface},
5171 {"Amanda::Configc::interface_getconf", _wrap_interface_getconf},
5172 {"Amanda::Configc::interface_name", _wrap_interface_name},
5173 {"Amanda::Configc::interface_seen", _wrap_interface_seen},
5174 {"Amanda::Configc::lookup_holdingdisk", _wrap_lookup_holdingdisk},
5175 {"Amanda::Configc::getconf_holdingdisks", _wrap_getconf_holdingdisks},
5176 {"Amanda::Configc::holdingdisk_getconf", _wrap_holdingdisk_getconf},
5177 {"Amanda::Configc::holdingdisk_name", _wrap_holdingdisk_name},
5178 {"Amanda::Configc::holdingdisk_seen", _wrap_holdingdisk_seen},
5179 {"Amanda::Configc::lookup_application", _wrap_lookup_application},
5180 {"Amanda::Configc::application_getconf", _wrap_application_getconf},
5181 {"Amanda::Configc::application_name", _wrap_application_name},
5182 {"Amanda::Configc::application_seen", _wrap_application_seen},
5183 {"Amanda::Configc::lookup_pp_script", _wrap_lookup_pp_script},
5184 {"Amanda::Configc::pp_script_getconf", _wrap_pp_script_getconf},
5185 {"Amanda::Configc::pp_script_name", _wrap_pp_script_name},
5186 {"Amanda::Configc::pp_script_seen", _wrap_pp_script_seen},
5187 {"Amanda::Configc::lookup_device_config", _wrap_lookup_device_config},
5188 {"Amanda::Configc::device_config_getconf", _wrap_device_config_getconf},
5189 {"Amanda::Configc::device_config_name", _wrap_device_config_name},
5190 {"Amanda::Configc::device_config_seen", _wrap_device_config_seen},
5191 {"Amanda::Configc::lookup_changer_config", _wrap_lookup_changer_config},
5192 {"Amanda::Configc::changer_config_getconf", _wrap_changer_config_getconf},
5193 {"Amanda::Configc::changer_config_name", _wrap_changer_config_name},
5194 {"Amanda::Configc::changer_config_seen", _wrap_changer_config_seen},
5195 {"Amanda::Configc::lookup_interactivity", _wrap_lookup_interactivity},
5196 {"Amanda::Configc::interactivity_getconf", _wrap_interactivity_getconf},
5197 {"Amanda::Configc::interactivity_name", _wrap_interactivity_name},
5198 {"Amanda::Configc::interactivity_seen", _wrap_interactivity_seen},
5199 {"Amanda::Configc::lookup_taperscan", _wrap_lookup_taperscan},
5200 {"Amanda::Configc::taperscan_getconf", _wrap_taperscan_getconf},
5201 {"Amanda::Configc::taperscan_name", _wrap_taperscan_name},
5202 {"Amanda::Configc::taperscan_seen", _wrap_taperscan_seen},
5203 {"Amanda::Configc::getconf_unit_divisor", _wrap_getconf_unit_divisor},
5204 {"Amanda::Configc::config_init", _wrap_config_init},
5205 {"Amanda::Configc::config_uninit", _wrap_config_uninit},
5206 {"Amanda::Configc::get_config_options", _wrap_get_config_options},
5207 {"Amanda::Configc::get_config_name", _wrap_get_config_name},
5208 {"Amanda::Configc::get_config_dir", _wrap_get_config_dir},
5209 {"Amanda::Configc::get_config_filename", _wrap_get_config_filename},
5210 {"Amanda::Configc::config_print_errors", _wrap_config_print_errors},
5211 {"Amanda::Configc::config_clear_errors", _wrap_config_clear_errors},
5212 {"Amanda::Configc::config_errors", _wrap_config_errors},
5213 {"Amanda::Configc::new_config_overrides", _wrap_new_config_overrides},
5214 {"Amanda::Configc::free_config_overrides", _wrap_free_config_overrides},
5215 {"Amanda::Configc::add_config_override", _wrap_add_config_override},
5216 {"Amanda::Configc::add_config_override_opt", _wrap_add_config_override_opt},
5217 {"Amanda::Configc::set_config_overrides", _wrap_set_config_overrides},
5218 {"Amanda::Configc::dump_configuration", _wrap_dump_configuration},
5219 {"Amanda::Configc::config_dir_relative", _wrap_config_dir_relative},
5220 {"Amanda::Configc::taperalgo2str", _wrap_taperalgo2str},
5221 {"Amanda::Configc::find_multiplier", _wrap_find_multiplier},
5222 {"Amanda::Configc::C_string_to_boolean", _wrap_C_string_to_boolean},
5223 {"Amanda::Configc::amandaify_property_name", _wrap_amandaify_property_name},
5224 {0,0}
5225 };
5226 /* -----------------------------------------------------------------------------
5227 * Type initialization:
5228 * This problem is tough by the requirement that no dynamic
5229 * memory is used. Also, since swig_type_info structures store pointers to
5230 * swig_cast_info structures and swig_cast_info structures store pointers back
5231 * to swig_type_info structures, we need some lookup code at initialization.
5232 * The idea is that swig generates all the structures that are needed.
5233 * The runtime then collects these partially filled structures.
5234 * The SWIG_InitializeModule function takes these initial arrays out of
5235 * swig_module, and does all the lookup, filling in the swig_module.types
5236 * array with the correct data and linking the correct swig_cast_info
5237 * structures together.
5238 *
5239 * The generated swig_type_info structures are assigned statically to an initial
5240 * array. We just loop through that array, and handle each type individually.
5241 * First we lookup if this type has been already loaded, and if so, use the
5242 * loaded structure instead of the generated one. Then we have to fill in the
5243 * cast linked list. The cast data is initially stored in something like a
5244 * two-dimensional array. Each row corresponds to a type (there are the same
5245 * number of rows as there are in the swig_type_initial array). Each entry in
5246 * a column is one of the swig_cast_info structures for that type.
5247 * The cast_initial array is actually an array of arrays, because each row has
5248 * a variable number of columns. So to actually build the cast linked list,
5249 * we find the array of casts associated with the type, and loop through it
5250 * adding the casts to the list. The one last trick we need to do is making
5251 * sure the type pointer in the swig_cast_info struct is correct.
5252 *
5253 * First off, we lookup the cast->type name to see if it is already loaded.
5254 * There are three cases to handle:
5255 * 1) If the cast->type has already been loaded AND the type we are adding
5256 * casting info to has not been loaded (it is in this module), THEN we
5257 * replace the cast->type pointer with the type pointer that has already
5258 * been loaded.
5259 * 2) If BOTH types (the one we are adding casting info to, and the
5260 * cast->type) are loaded, THEN the cast info has already been loaded by
5261 * the previous module so we just ignore it.
5262 * 3) Finally, if cast->type has not already been loaded, then we add that
5263 * swig_cast_info to the linked list (because the cast->type) pointer will
5264 * be correct.
5265 * ----------------------------------------------------------------------------- */
5266
5267 #ifdef __cplusplus
5268 extern "C" {
5269 #if 0
5270 } /* c-mode */
5271 #endif
5272 #endif
5273
5274 #if 0
5275 #define SWIGRUNTIME_DEBUG
5276 #endif
5277
5278
5279 SWIGRUNTIME void
SWIG_InitializeModule(void * clientdata)5280 SWIG_InitializeModule(void *clientdata) {
5281 size_t i;
5282 swig_module_info *module_head, *iter;
5283 int init;
5284
5285 /* check to see if the circular list has been setup, if not, set it up */
5286 if (swig_module.next==0) {
5287 /* Initialize the swig_module */
5288 swig_module.type_initial = swig_type_initial;
5289 swig_module.cast_initial = swig_cast_initial;
5290 swig_module.next = &swig_module;
5291 init = 1;
5292 } else {
5293 init = 0;
5294 }
5295
5296 /* Try and load any already created modules */
5297 module_head = SWIG_GetModule(clientdata);
5298 if (!module_head) {
5299 /* This is the first module loaded for this interpreter */
5300 /* so set the swig module into the interpreter */
5301 SWIG_SetModule(clientdata, &swig_module);
5302 } else {
5303 /* the interpreter has loaded a SWIG module, but has it loaded this one? */
5304 iter=module_head;
5305 do {
5306 if (iter==&swig_module) {
5307 /* Our module is already in the list, so there's nothing more to do. */
5308 return;
5309 }
5310 iter=iter->next;
5311 } while (iter!= module_head);
5312
5313 /* otherwise we must add our module into the list */
5314 swig_module.next = module_head->next;
5315 module_head->next = &swig_module;
5316 }
5317
5318 /* When multiple interpreters are used, a module could have already been initialized in
5319 a different interpreter, but not yet have a pointer in this interpreter.
5320 In this case, we do not want to continue adding types... everything should be
5321 set up already */
5322 if (init == 0) return;
5323
5324 /* Now work on filling in swig_module.types */
5325 #ifdef SWIGRUNTIME_DEBUG
5326 printf("SWIG_InitializeModule: size %d\n", swig_module.size);
5327 #endif
5328 for (i = 0; i < swig_module.size; ++i) {
5329 swig_type_info *type = 0;
5330 swig_type_info *ret;
5331 swig_cast_info *cast;
5332
5333 #ifdef SWIGRUNTIME_DEBUG
5334 printf("SWIG_InitializeModule: type %d %s\n", i, swig_module.type_initial[i]->name);
5335 #endif
5336
5337 /* if there is another module already loaded */
5338 if (swig_module.next != &swig_module) {
5339 type = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, swig_module.type_initial[i]->name);
5340 }
5341 if (type) {
5342 /* Overwrite clientdata field */
5343 #ifdef SWIGRUNTIME_DEBUG
5344 printf("SWIG_InitializeModule: found type %s\n", type->name);
5345 #endif
5346 if (swig_module.type_initial[i]->clientdata) {
5347 type->clientdata = swig_module.type_initial[i]->clientdata;
5348 #ifdef SWIGRUNTIME_DEBUG
5349 printf("SWIG_InitializeModule: found and overwrite type %s \n", type->name);
5350 #endif
5351 }
5352 } else {
5353 type = swig_module.type_initial[i];
5354 }
5355
5356 /* Insert casting types */
5357 cast = swig_module.cast_initial[i];
5358 while (cast->type) {
5359 /* Don't need to add information already in the list */
5360 ret = 0;
5361 #ifdef SWIGRUNTIME_DEBUG
5362 printf("SWIG_InitializeModule: look cast %s\n", cast->type->name);
5363 #endif
5364 if (swig_module.next != &swig_module) {
5365 ret = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, cast->type->name);
5366 #ifdef SWIGRUNTIME_DEBUG
5367 if (ret) printf("SWIG_InitializeModule: found cast %s\n", ret->name);
5368 #endif
5369 }
5370 if (ret) {
5371 if (type == swig_module.type_initial[i]) {
5372 #ifdef SWIGRUNTIME_DEBUG
5373 printf("SWIG_InitializeModule: skip old type %s\n", ret->name);
5374 #endif
5375 cast->type = ret;
5376 ret = 0;
5377 } else {
5378 /* Check for casting already in the list */
5379 swig_cast_info *ocast = SWIG_TypeCheck(ret->name, type);
5380 #ifdef SWIGRUNTIME_DEBUG
5381 if (ocast) printf("SWIG_InitializeModule: skip old cast %s\n", ret->name);
5382 #endif
5383 if (!ocast) ret = 0;
5384 }
5385 }
5386
5387 if (!ret) {
5388 #ifdef SWIGRUNTIME_DEBUG
5389 printf("SWIG_InitializeModule: adding cast %s\n", cast->type->name);
5390 #endif
5391 if (type->cast) {
5392 type->cast->prev = cast;
5393 cast->next = type->cast;
5394 }
5395 type->cast = cast;
5396 }
5397 cast++;
5398 }
5399 /* Set entry in modules->types array equal to the type */
5400 swig_module.types[i] = type;
5401 }
5402 swig_module.types[i] = 0;
5403
5404 #ifdef SWIGRUNTIME_DEBUG
5405 printf("**** SWIG_InitializeModule: Cast List ******\n");
5406 for (i = 0; i < swig_module.size; ++i) {
5407 int j = 0;
5408 swig_cast_info *cast = swig_module.cast_initial[i];
5409 printf("SWIG_InitializeModule: type %d %s\n", i, swig_module.type_initial[i]->name);
5410 while (cast->type) {
5411 printf("SWIG_InitializeModule: cast type %s\n", cast->type->name);
5412 cast++;
5413 ++j;
5414 }
5415 printf("---- Total casts: %d\n",j);
5416 }
5417 printf("**** SWIG_InitializeModule: Cast List ******\n");
5418 #endif
5419 }
5420
5421 /* This function will propagate the clientdata field of type to
5422 * any new swig_type_info structures that have been added into the list
5423 * of equivalent types. It is like calling
5424 * SWIG_TypeClientData(type, clientdata) a second time.
5425 */
5426 SWIGRUNTIME void
SWIG_PropagateClientData(void)5427 SWIG_PropagateClientData(void) {
5428 size_t i;
5429 swig_cast_info *equiv;
5430 static int init_run = 0;
5431
5432 if (init_run) return;
5433 init_run = 1;
5434
5435 for (i = 0; i < swig_module.size; i++) {
5436 if (swig_module.types[i]->clientdata) {
5437 equiv = swig_module.types[i]->cast;
5438 while (equiv) {
5439 if (!equiv->converter) {
5440 if (equiv->type && !equiv->type->clientdata)
5441 SWIG_TypeClientData(equiv->type, swig_module.types[i]->clientdata);
5442 }
5443 equiv = equiv->next;
5444 }
5445 }
5446 }
5447 }
5448
5449 #ifdef __cplusplus
5450 #if 0
5451 {
5452 /* c-mode */
5453 #endif
5454 }
5455 #endif
5456
5457
5458
5459 #if defined(__cplusplus) && ! defined(XSPROTO)
5460 extern "C"
5461 #endif
5462
XS(SWIG_init)5463 XS(SWIG_init) {
5464 dXSARGS;
5465 int i;
5466
5467 SWIG_InitializeModule(0);
5468
5469 /* Install commands */
5470 for (i = 0; swig_commands[i].name; i++) {
5471 /* Casts only needed for Perl < 5.10. */
5472 #ifdef __cplusplus
5473 newXS(const_cast<char*>(swig_commands[i].name), swig_commands[i].wrapper, const_cast<char*>(__FILE__));
5474 #else
5475 newXS((char*)swig_commands[i].name, swig_commands[i].wrapper, (char*)__FILE__);
5476 #endif
5477 }
5478
5479 /* Install variables */
5480 for (i = 0; swig_variables[i].name; i++) {
5481 SV *sv;
5482 sv = get_sv(swig_variables[i].name, TRUE | 0x2 | GV_ADDMULTI);
5483 if (swig_variables[i].type) {
5484 SWIG_MakePtr(sv,(void *)1, *swig_variables[i].type,0);
5485 } else {
5486 sv_setiv(sv,(IV) 0);
5487 }
5488 swig_create_magic(sv, swig_variables[i].name, swig_variables[i].set, swig_variables[i].get);
5489 }
5490
5491 /* Install constant */
5492 for (i = 0; swig_constants[i].type; i++) {
5493 SV *sv;
5494 sv = get_sv(swig_constants[i].name, TRUE | 0x2 | GV_ADDMULTI);
5495 switch(swig_constants[i].type) {
5496 case SWIG_INT:
5497 sv_setiv(sv, (IV) swig_constants[i].lvalue);
5498 break;
5499 case SWIG_FLOAT:
5500 sv_setnv(sv, (double) swig_constants[i].dvalue);
5501 break;
5502 case SWIG_STRING:
5503 sv_setpv(sv, (const char *) swig_constants[i].pvalue);
5504 break;
5505 case SWIG_POINTER:
5506 SWIG_MakePtr(sv, swig_constants[i].pvalue, *(swig_constants[i].ptype),0);
5507 break;
5508 case SWIG_BINARY:
5509 SWIG_MakePackedObj(sv, swig_constants[i].pvalue, swig_constants[i].lvalue, *(swig_constants[i].ptype));
5510 break;
5511 default:
5512 break;
5513 }
5514 SvREADONLY_on(sv);
5515 }
5516
5517 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5518 SV *sv = get_sv((char*) SWIG_prefix "CNF_ORG", TRUE | 0x2 | GV_ADDMULTI);
5519 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_ORG)));
5520 SvREADONLY_on(sv);
5521 } while(0) /*@SWIG@*/;
5522 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5523 SV *sv = get_sv((char*) SWIG_prefix "CNF_CONF", TRUE | 0x2 | GV_ADDMULTI);
5524 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_CONF)));
5525 SvREADONLY_on(sv);
5526 } while(0) /*@SWIG@*/;
5527 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5528 SV *sv = get_sv((char*) SWIG_prefix "CNF_AMDUMP_SERVER", TRUE | 0x2 | GV_ADDMULTI);
5529 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_AMDUMP_SERVER)));
5530 SvREADONLY_on(sv);
5531 } while(0) /*@SWIG@*/;
5532 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5533 SV *sv = get_sv((char*) SWIG_prefix "CNF_INDEX_SERVER", TRUE | 0x2 | GV_ADDMULTI);
5534 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_INDEX_SERVER)));
5535 SvREADONLY_on(sv);
5536 } while(0) /*@SWIG@*/;
5537 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5538 SV *sv = get_sv((char*) SWIG_prefix "CNF_TAPE_SERVER", TRUE | 0x2 | GV_ADDMULTI);
5539 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_TAPE_SERVER)));
5540 SvREADONLY_on(sv);
5541 } while(0) /*@SWIG@*/;
5542 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5543 SV *sv = get_sv((char*) SWIG_prefix "CNF_AUTH", TRUE | 0x2 | GV_ADDMULTI);
5544 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_AUTH)));
5545 SvREADONLY_on(sv);
5546 } while(0) /*@SWIG@*/;
5547 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5548 SV *sv = get_sv((char*) SWIG_prefix "CNF_SSH_KEYS", TRUE | 0x2 | GV_ADDMULTI);
5549 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_SSH_KEYS)));
5550 SvREADONLY_on(sv);
5551 } while(0) /*@SWIG@*/;
5552 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5553 SV *sv = get_sv((char*) SWIG_prefix "CNF_AMANDAD_PATH", TRUE | 0x2 | GV_ADDMULTI);
5554 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_AMANDAD_PATH)));
5555 SvREADONLY_on(sv);
5556 } while(0) /*@SWIG@*/;
5557 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5558 SV *sv = get_sv((char*) SWIG_prefix "CNF_CLIENT_USERNAME", TRUE | 0x2 | GV_ADDMULTI);
5559 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_CLIENT_USERNAME)));
5560 SvREADONLY_on(sv);
5561 } while(0) /*@SWIG@*/;
5562 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5563 SV *sv = get_sv((char*) SWIG_prefix "CNF_CLIENT_PORT", TRUE | 0x2 | GV_ADDMULTI);
5564 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_CLIENT_PORT)));
5565 SvREADONLY_on(sv);
5566 } while(0) /*@SWIG@*/;
5567 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5568 SV *sv = get_sv((char*) SWIG_prefix "CNF_GNUTAR_LIST_DIR", TRUE | 0x2 | GV_ADDMULTI);
5569 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_GNUTAR_LIST_DIR)));
5570 SvREADONLY_on(sv);
5571 } while(0) /*@SWIG@*/;
5572 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5573 SV *sv = get_sv((char*) SWIG_prefix "CNF_AMANDATES", TRUE | 0x2 | GV_ADDMULTI);
5574 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_AMANDATES)));
5575 SvREADONLY_on(sv);
5576 } while(0) /*@SWIG@*/;
5577 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5578 SV *sv = get_sv((char*) SWIG_prefix "CNF_MAILER", TRUE | 0x2 | GV_ADDMULTI);
5579 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_MAILER)));
5580 SvREADONLY_on(sv);
5581 } while(0) /*@SWIG@*/;
5582 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5583 SV *sv = get_sv((char*) SWIG_prefix "CNF_MAILTO", TRUE | 0x2 | GV_ADDMULTI);
5584 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_MAILTO)));
5585 SvREADONLY_on(sv);
5586 } while(0) /*@SWIG@*/;
5587 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5588 SV *sv = get_sv((char*) SWIG_prefix "CNF_DUMPUSER", TRUE | 0x2 | GV_ADDMULTI);
5589 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DUMPUSER)));
5590 SvREADONLY_on(sv);
5591 } while(0) /*@SWIG@*/;
5592 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5593 SV *sv = get_sv((char*) SWIG_prefix "CNF_TAPEDEV", TRUE | 0x2 | GV_ADDMULTI);
5594 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_TAPEDEV)));
5595 SvREADONLY_on(sv);
5596 } while(0) /*@SWIG@*/;
5597 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5598 SV *sv = get_sv((char*) SWIG_prefix "CNF_DEVICE_PROPERTY", TRUE | 0x2 | GV_ADDMULTI);
5599 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DEVICE_PROPERTY)));
5600 SvREADONLY_on(sv);
5601 } while(0) /*@SWIG@*/;
5602 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5603 SV *sv = get_sv((char*) SWIG_prefix "CNF_PROPERTY", TRUE | 0x2 | GV_ADDMULTI);
5604 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_PROPERTY)));
5605 SvREADONLY_on(sv);
5606 } while(0) /*@SWIG@*/;
5607 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5608 SV *sv = get_sv((char*) SWIG_prefix "CNF_CHANGERDEV", TRUE | 0x2 | GV_ADDMULTI);
5609 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_CHANGERDEV)));
5610 SvREADONLY_on(sv);
5611 } while(0) /*@SWIG@*/;
5612 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5613 SV *sv = get_sv((char*) SWIG_prefix "CNF_CHANGERFILE", TRUE | 0x2 | GV_ADDMULTI);
5614 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_CHANGERFILE)));
5615 SvREADONLY_on(sv);
5616 } while(0) /*@SWIG@*/;
5617 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5618 SV *sv = get_sv((char*) SWIG_prefix "CNF_LABELSTR", TRUE | 0x2 | GV_ADDMULTI);
5619 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_LABELSTR)));
5620 SvREADONLY_on(sv);
5621 } while(0) /*@SWIG@*/;
5622 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5623 SV *sv = get_sv((char*) SWIG_prefix "CNF_AUTOLABEL", TRUE | 0x2 | GV_ADDMULTI);
5624 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_AUTOLABEL)));
5625 SvREADONLY_on(sv);
5626 } while(0) /*@SWIG@*/;
5627 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5628 SV *sv = get_sv((char*) SWIG_prefix "CNF_META_AUTOLABEL", TRUE | 0x2 | GV_ADDMULTI);
5629 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_META_AUTOLABEL)));
5630 SvREADONLY_on(sv);
5631 } while(0) /*@SWIG@*/;
5632 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5633 SV *sv = get_sv((char*) SWIG_prefix "CNF_TAPELIST", TRUE | 0x2 | GV_ADDMULTI);
5634 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_TAPELIST)));
5635 SvREADONLY_on(sv);
5636 } while(0) /*@SWIG@*/;
5637 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5638 SV *sv = get_sv((char*) SWIG_prefix "CNF_DISKFILE", TRUE | 0x2 | GV_ADDMULTI);
5639 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DISKFILE)));
5640 SvREADONLY_on(sv);
5641 } while(0) /*@SWIG@*/;
5642 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5643 SV *sv = get_sv((char*) SWIG_prefix "CNF_INFOFILE", TRUE | 0x2 | GV_ADDMULTI);
5644 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_INFOFILE)));
5645 SvREADONLY_on(sv);
5646 } while(0) /*@SWIG@*/;
5647 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5648 SV *sv = get_sv((char*) SWIG_prefix "CNF_LOGDIR", TRUE | 0x2 | GV_ADDMULTI);
5649 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_LOGDIR)));
5650 SvREADONLY_on(sv);
5651 } while(0) /*@SWIG@*/;
5652 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5653 SV *sv = get_sv((char*) SWIG_prefix "CNF_INDEXDIR", TRUE | 0x2 | GV_ADDMULTI);
5654 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_INDEXDIR)));
5655 SvREADONLY_on(sv);
5656 } while(0) /*@SWIG@*/;
5657 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5658 SV *sv = get_sv((char*) SWIG_prefix "CNF_TAPETYPE", TRUE | 0x2 | GV_ADDMULTI);
5659 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_TAPETYPE)));
5660 SvREADONLY_on(sv);
5661 } while(0) /*@SWIG@*/;
5662 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5663 SV *sv = get_sv((char*) SWIG_prefix "CNF_DUMPCYCLE", TRUE | 0x2 | GV_ADDMULTI);
5664 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DUMPCYCLE)));
5665 SvREADONLY_on(sv);
5666 } while(0) /*@SWIG@*/;
5667 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5668 SV *sv = get_sv((char*) SWIG_prefix "CNF_RUNSPERCYCLE", TRUE | 0x2 | GV_ADDMULTI);
5669 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_RUNSPERCYCLE)));
5670 SvREADONLY_on(sv);
5671 } while(0) /*@SWIG@*/;
5672 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5673 SV *sv = get_sv((char*) SWIG_prefix "CNF_TAPECYCLE", TRUE | 0x2 | GV_ADDMULTI);
5674 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_TAPECYCLE)));
5675 SvREADONLY_on(sv);
5676 } while(0) /*@SWIG@*/;
5677 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5678 SV *sv = get_sv((char*) SWIG_prefix "CNF_NETUSAGE", TRUE | 0x2 | GV_ADDMULTI);
5679 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_NETUSAGE)));
5680 SvREADONLY_on(sv);
5681 } while(0) /*@SWIG@*/;
5682 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5683 SV *sv = get_sv((char*) SWIG_prefix "CNF_INPARALLEL", TRUE | 0x2 | GV_ADDMULTI);
5684 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_INPARALLEL)));
5685 SvREADONLY_on(sv);
5686 } while(0) /*@SWIG@*/;
5687 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5688 SV *sv = get_sv((char*) SWIG_prefix "CNF_DUMPORDER", TRUE | 0x2 | GV_ADDMULTI);
5689 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DUMPORDER)));
5690 SvREADONLY_on(sv);
5691 } while(0) /*@SWIG@*/;
5692 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5693 SV *sv = get_sv((char*) SWIG_prefix "CNF_BUMPPERCENT", TRUE | 0x2 | GV_ADDMULTI);
5694 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_BUMPPERCENT)));
5695 SvREADONLY_on(sv);
5696 } while(0) /*@SWIG@*/;
5697 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5698 SV *sv = get_sv((char*) SWIG_prefix "CNF_BUMPSIZE", TRUE | 0x2 | GV_ADDMULTI);
5699 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_BUMPSIZE)));
5700 SvREADONLY_on(sv);
5701 } while(0) /*@SWIG@*/;
5702 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5703 SV *sv = get_sv((char*) SWIG_prefix "CNF_BUMPMULT", TRUE | 0x2 | GV_ADDMULTI);
5704 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_BUMPMULT)));
5705 SvREADONLY_on(sv);
5706 } while(0) /*@SWIG@*/;
5707 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5708 SV *sv = get_sv((char*) SWIG_prefix "CNF_BUMPDAYS", TRUE | 0x2 | GV_ADDMULTI);
5709 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_BUMPDAYS)));
5710 SvREADONLY_on(sv);
5711 } while(0) /*@SWIG@*/;
5712 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5713 SV *sv = get_sv((char*) SWIG_prefix "CNF_TPCHANGER", TRUE | 0x2 | GV_ADDMULTI);
5714 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_TPCHANGER)));
5715 SvREADONLY_on(sv);
5716 } while(0) /*@SWIG@*/;
5717 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5718 SV *sv = get_sv((char*) SWIG_prefix "CNF_RUNTAPES", TRUE | 0x2 | GV_ADDMULTI);
5719 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_RUNTAPES)));
5720 SvREADONLY_on(sv);
5721 } while(0) /*@SWIG@*/;
5722 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5723 SV *sv = get_sv((char*) SWIG_prefix "CNF_MAX_DLE_BY_VOLUME", TRUE | 0x2 | GV_ADDMULTI);
5724 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_MAX_DLE_BY_VOLUME)));
5725 SvREADONLY_on(sv);
5726 } while(0) /*@SWIG@*/;
5727 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5728 SV *sv = get_sv((char*) SWIG_prefix "CNF_MAXDUMPS", TRUE | 0x2 | GV_ADDMULTI);
5729 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_MAXDUMPS)));
5730 SvREADONLY_on(sv);
5731 } while(0) /*@SWIG@*/;
5732 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5733 SV *sv = get_sv((char*) SWIG_prefix "CNF_ETIMEOUT", TRUE | 0x2 | GV_ADDMULTI);
5734 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_ETIMEOUT)));
5735 SvREADONLY_on(sv);
5736 } while(0) /*@SWIG@*/;
5737 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5738 SV *sv = get_sv((char*) SWIG_prefix "CNF_DTIMEOUT", TRUE | 0x2 | GV_ADDMULTI);
5739 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DTIMEOUT)));
5740 SvREADONLY_on(sv);
5741 } while(0) /*@SWIG@*/;
5742 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5743 SV *sv = get_sv((char*) SWIG_prefix "CNF_CTIMEOUT", TRUE | 0x2 | GV_ADDMULTI);
5744 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_CTIMEOUT)));
5745 SvREADONLY_on(sv);
5746 } while(0) /*@SWIG@*/;
5747 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5748 SV *sv = get_sv((char*) SWIG_prefix "CNF_DEVICE_OUTPUT_BUFFER_SIZE", TRUE | 0x2 | GV_ADDMULTI);
5749 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DEVICE_OUTPUT_BUFFER_SIZE)));
5750 SvREADONLY_on(sv);
5751 } while(0) /*@SWIG@*/;
5752 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5753 SV *sv = get_sv((char*) SWIG_prefix "CNF_PRINTER", TRUE | 0x2 | GV_ADDMULTI);
5754 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_PRINTER)));
5755 SvREADONLY_on(sv);
5756 } while(0) /*@SWIG@*/;
5757 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5758 SV *sv = get_sv((char*) SWIG_prefix "CNF_AUTOFLUSH", TRUE | 0x2 | GV_ADDMULTI);
5759 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_AUTOFLUSH)));
5760 SvREADONLY_on(sv);
5761 } while(0) /*@SWIG@*/;
5762 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5763 SV *sv = get_sv((char*) SWIG_prefix "CNF_RESERVE", TRUE | 0x2 | GV_ADDMULTI);
5764 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_RESERVE)));
5765 SvREADONLY_on(sv);
5766 } while(0) /*@SWIG@*/;
5767 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5768 SV *sv = get_sv((char*) SWIG_prefix "CNF_MAXDUMPSIZE", TRUE | 0x2 | GV_ADDMULTI);
5769 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_MAXDUMPSIZE)));
5770 SvREADONLY_on(sv);
5771 } while(0) /*@SWIG@*/;
5772 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5773 SV *sv = get_sv((char*) SWIG_prefix "CNF_COLUMNSPEC", TRUE | 0x2 | GV_ADDMULTI);
5774 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_COLUMNSPEC)));
5775 SvREADONLY_on(sv);
5776 } while(0) /*@SWIG@*/;
5777 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5778 SV *sv = get_sv((char*) SWIG_prefix "CNF_AMRECOVER_DO_FSF", TRUE | 0x2 | GV_ADDMULTI);
5779 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_AMRECOVER_DO_FSF)));
5780 SvREADONLY_on(sv);
5781 } while(0) /*@SWIG@*/;
5782 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5783 SV *sv = get_sv((char*) SWIG_prefix "CNF_AMRECOVER_CHECK_LABEL", TRUE | 0x2 | GV_ADDMULTI);
5784 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_AMRECOVER_CHECK_LABEL)));
5785 SvREADONLY_on(sv);
5786 } while(0) /*@SWIG@*/;
5787 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5788 SV *sv = get_sv((char*) SWIG_prefix "CNF_AMRECOVER_CHANGER", TRUE | 0x2 | GV_ADDMULTI);
5789 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_AMRECOVER_CHANGER)));
5790 SvREADONLY_on(sv);
5791 } while(0) /*@SWIG@*/;
5792 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5793 SV *sv = get_sv((char*) SWIG_prefix "CNF_TAPERALGO", TRUE | 0x2 | GV_ADDMULTI);
5794 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_TAPERALGO)));
5795 SvREADONLY_on(sv);
5796 } while(0) /*@SWIG@*/;
5797 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5798 SV *sv = get_sv((char*) SWIG_prefix "CNF_FLUSH_THRESHOLD_DUMPED", TRUE | 0x2 | GV_ADDMULTI);
5799 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_FLUSH_THRESHOLD_DUMPED)));
5800 SvREADONLY_on(sv);
5801 } while(0) /*@SWIG@*/;
5802 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5803 SV *sv = get_sv((char*) SWIG_prefix "CNF_FLUSH_THRESHOLD_SCHEDULED", TRUE | 0x2 | GV_ADDMULTI);
5804 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_FLUSH_THRESHOLD_SCHEDULED)));
5805 SvREADONLY_on(sv);
5806 } while(0) /*@SWIG@*/;
5807 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5808 SV *sv = get_sv((char*) SWIG_prefix "CNF_TAPERFLUSH", TRUE | 0x2 | GV_ADDMULTI);
5809 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_TAPERFLUSH)));
5810 SvREADONLY_on(sv);
5811 } while(0) /*@SWIG@*/;
5812 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5813 SV *sv = get_sv((char*) SWIG_prefix "CNF_DISPLAYUNIT", TRUE | 0x2 | GV_ADDMULTI);
5814 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DISPLAYUNIT)));
5815 SvREADONLY_on(sv);
5816 } while(0) /*@SWIG@*/;
5817 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5818 SV *sv = get_sv((char*) SWIG_prefix "CNF_KRB5KEYTAB", TRUE | 0x2 | GV_ADDMULTI);
5819 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_KRB5KEYTAB)));
5820 SvREADONLY_on(sv);
5821 } while(0) /*@SWIG@*/;
5822 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5823 SV *sv = get_sv((char*) SWIG_prefix "CNF_KRB5PRINCIPAL", TRUE | 0x2 | GV_ADDMULTI);
5824 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_KRB5PRINCIPAL)));
5825 SvREADONLY_on(sv);
5826 } while(0) /*@SWIG@*/;
5827 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5828 SV *sv = get_sv((char*) SWIG_prefix "CNF_LABEL_NEW_TAPES", TRUE | 0x2 | GV_ADDMULTI);
5829 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_LABEL_NEW_TAPES)));
5830 SvREADONLY_on(sv);
5831 } while(0) /*@SWIG@*/;
5832 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5833 SV *sv = get_sv((char*) SWIG_prefix "CNF_USETIMESTAMPS", TRUE | 0x2 | GV_ADDMULTI);
5834 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_USETIMESTAMPS)));
5835 SvREADONLY_on(sv);
5836 } while(0) /*@SWIG@*/;
5837 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5838 SV *sv = get_sv((char*) SWIG_prefix "CNF_REP_TRIES", TRUE | 0x2 | GV_ADDMULTI);
5839 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_REP_TRIES)));
5840 SvREADONLY_on(sv);
5841 } while(0) /*@SWIG@*/;
5842 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5843 SV *sv = get_sv((char*) SWIG_prefix "CNF_CONNECT_TRIES", TRUE | 0x2 | GV_ADDMULTI);
5844 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_CONNECT_TRIES)));
5845 SvREADONLY_on(sv);
5846 } while(0) /*@SWIG@*/;
5847 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5848 SV *sv = get_sv((char*) SWIG_prefix "CNF_REQ_TRIES", TRUE | 0x2 | GV_ADDMULTI);
5849 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_REQ_TRIES)));
5850 SvREADONLY_on(sv);
5851 } while(0) /*@SWIG@*/;
5852 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5853 SV *sv = get_sv((char*) SWIG_prefix "CNF_DEBUG_AMANDAD", TRUE | 0x2 | GV_ADDMULTI);
5854 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DEBUG_AMANDAD)));
5855 SvREADONLY_on(sv);
5856 } while(0) /*@SWIG@*/;
5857 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5858 SV *sv = get_sv((char*) SWIG_prefix "CNF_DEBUG_RECOVERY", TRUE | 0x2 | GV_ADDMULTI);
5859 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DEBUG_RECOVERY)));
5860 SvREADONLY_on(sv);
5861 } while(0) /*@SWIG@*/;
5862 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5863 SV *sv = get_sv((char*) SWIG_prefix "CNF_DEBUG_AMIDXTAPED", TRUE | 0x2 | GV_ADDMULTI);
5864 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DEBUG_AMIDXTAPED)));
5865 SvREADONLY_on(sv);
5866 } while(0) /*@SWIG@*/;
5867 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5868 SV *sv = get_sv((char*) SWIG_prefix "CNF_DEBUG_AMINDEXD", TRUE | 0x2 | GV_ADDMULTI);
5869 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DEBUG_AMINDEXD)));
5870 SvREADONLY_on(sv);
5871 } while(0) /*@SWIG@*/;
5872 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5873 SV *sv = get_sv((char*) SWIG_prefix "CNF_DEBUG_AMRECOVER", TRUE | 0x2 | GV_ADDMULTI);
5874 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DEBUG_AMRECOVER)));
5875 SvREADONLY_on(sv);
5876 } while(0) /*@SWIG@*/;
5877 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5878 SV *sv = get_sv((char*) SWIG_prefix "CNF_DEBUG_AUTH", TRUE | 0x2 | GV_ADDMULTI);
5879 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DEBUG_AUTH)));
5880 SvREADONLY_on(sv);
5881 } while(0) /*@SWIG@*/;
5882 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5883 SV *sv = get_sv((char*) SWIG_prefix "CNF_DEBUG_EVENT", TRUE | 0x2 | GV_ADDMULTI);
5884 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DEBUG_EVENT)));
5885 SvREADONLY_on(sv);
5886 } while(0) /*@SWIG@*/;
5887 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5888 SV *sv = get_sv((char*) SWIG_prefix "CNF_DEBUG_HOLDING", TRUE | 0x2 | GV_ADDMULTI);
5889 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DEBUG_HOLDING)));
5890 SvREADONLY_on(sv);
5891 } while(0) /*@SWIG@*/;
5892 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5893 SV *sv = get_sv((char*) SWIG_prefix "CNF_DEBUG_PROTOCOL", TRUE | 0x2 | GV_ADDMULTI);
5894 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DEBUG_PROTOCOL)));
5895 SvREADONLY_on(sv);
5896 } while(0) /*@SWIG@*/;
5897 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5898 SV *sv = get_sv((char*) SWIG_prefix "CNF_DEBUG_PLANNER", TRUE | 0x2 | GV_ADDMULTI);
5899 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DEBUG_PLANNER)));
5900 SvREADONLY_on(sv);
5901 } while(0) /*@SWIG@*/;
5902 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5903 SV *sv = get_sv((char*) SWIG_prefix "CNF_DEBUG_DRIVER", TRUE | 0x2 | GV_ADDMULTI);
5904 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DEBUG_DRIVER)));
5905 SvREADONLY_on(sv);
5906 } while(0) /*@SWIG@*/;
5907 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5908 SV *sv = get_sv((char*) SWIG_prefix "CNF_DEBUG_DUMPER", TRUE | 0x2 | GV_ADDMULTI);
5909 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DEBUG_DUMPER)));
5910 SvREADONLY_on(sv);
5911 } while(0) /*@SWIG@*/;
5912 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5913 SV *sv = get_sv((char*) SWIG_prefix "CNF_DEBUG_CHUNKER", TRUE | 0x2 | GV_ADDMULTI);
5914 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DEBUG_CHUNKER)));
5915 SvREADONLY_on(sv);
5916 } while(0) /*@SWIG@*/;
5917 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5918 SV *sv = get_sv((char*) SWIG_prefix "CNF_DEBUG_TAPER", TRUE | 0x2 | GV_ADDMULTI);
5919 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DEBUG_TAPER)));
5920 SvREADONLY_on(sv);
5921 } while(0) /*@SWIG@*/;
5922 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5923 SV *sv = get_sv((char*) SWIG_prefix "CNF_DEBUG_SELFCHECK", TRUE | 0x2 | GV_ADDMULTI);
5924 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DEBUG_SELFCHECK)));
5925 SvREADONLY_on(sv);
5926 } while(0) /*@SWIG@*/;
5927 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5928 SV *sv = get_sv((char*) SWIG_prefix "CNF_DEBUG_SENDSIZE", TRUE | 0x2 | GV_ADDMULTI);
5929 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DEBUG_SENDSIZE)));
5930 SvREADONLY_on(sv);
5931 } while(0) /*@SWIG@*/;
5932 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5933 SV *sv = get_sv((char*) SWIG_prefix "CNF_DEBUG_SENDBACKUP", TRUE | 0x2 | GV_ADDMULTI);
5934 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_DEBUG_SENDBACKUP)));
5935 SvREADONLY_on(sv);
5936 } while(0) /*@SWIG@*/;
5937 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5938 SV *sv = get_sv((char*) SWIG_prefix "CNF_RESERVED_UDP_PORT", TRUE | 0x2 | GV_ADDMULTI);
5939 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_RESERVED_UDP_PORT)));
5940 SvREADONLY_on(sv);
5941 } while(0) /*@SWIG@*/;
5942 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5943 SV *sv = get_sv((char*) SWIG_prefix "CNF_RESERVED_TCP_PORT", TRUE | 0x2 | GV_ADDMULTI);
5944 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_RESERVED_TCP_PORT)));
5945 SvREADONLY_on(sv);
5946 } while(0) /*@SWIG@*/;
5947 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5948 SV *sv = get_sv((char*) SWIG_prefix "CNF_UNRESERVED_TCP_PORT", TRUE | 0x2 | GV_ADDMULTI);
5949 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_UNRESERVED_TCP_PORT)));
5950 SvREADONLY_on(sv);
5951 } while(0) /*@SWIG@*/;
5952 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5953 SV *sv = get_sv((char*) SWIG_prefix "CNF_HOLDINGDISK", TRUE | 0x2 | GV_ADDMULTI);
5954 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_HOLDINGDISK)));
5955 SvREADONLY_on(sv);
5956 } while(0) /*@SWIG@*/;
5957 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5958 SV *sv = get_sv((char*) SWIG_prefix "CNF_SEND_AMREPORT_ON", TRUE | 0x2 | GV_ADDMULTI);
5959 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_SEND_AMREPORT_ON)));
5960 SvREADONLY_on(sv);
5961 } while(0) /*@SWIG@*/;
5962 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5963 SV *sv = get_sv((char*) SWIG_prefix "CNF_TAPER_PARALLEL_WRITE", TRUE | 0x2 | GV_ADDMULTI);
5964 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_TAPER_PARALLEL_WRITE)));
5965 SvREADONLY_on(sv);
5966 } while(0) /*@SWIG@*/;
5967 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5968 SV *sv = get_sv((char*) SWIG_prefix "CNF_RECOVERY_LIMIT", TRUE | 0x2 | GV_ADDMULTI);
5969 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_RECOVERY_LIMIT)));
5970 SvREADONLY_on(sv);
5971 } while(0) /*@SWIG@*/;
5972 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5973 SV *sv = get_sv((char*) SWIG_prefix "CNF_INTERACTIVITY", TRUE | 0x2 | GV_ADDMULTI);
5974 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_INTERACTIVITY)));
5975 SvREADONLY_on(sv);
5976 } while(0) /*@SWIG@*/;
5977 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5978 SV *sv = get_sv((char*) SWIG_prefix "CNF_TAPERSCAN", TRUE | 0x2 | GV_ADDMULTI);
5979 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_TAPERSCAN)));
5980 SvREADONLY_on(sv);
5981 } while(0) /*@SWIG@*/;
5982 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5983 SV *sv = get_sv((char*) SWIG_prefix "CNF_EJECT_VOLUME", TRUE | 0x2 | GV_ADDMULTI);
5984 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_EJECT_VOLUME)));
5985 SvREADONLY_on(sv);
5986 } while(0) /*@SWIG@*/;
5987 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5988 SV *sv = get_sv((char*) SWIG_prefix "CNF_TMPDIR", TRUE | 0x2 | GV_ADDMULTI);
5989 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_TMPDIR)));
5990 SvREADONLY_on(sv);
5991 } while(0) /*@SWIG@*/;
5992 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5993 SV *sv = get_sv((char*) SWIG_prefix "CNF_REPORT_USE_MEDIA", TRUE | 0x2 | GV_ADDMULTI);
5994 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_REPORT_USE_MEDIA)));
5995 SvREADONLY_on(sv);
5996 } while(0) /*@SWIG@*/;
5997 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5998 SV *sv = get_sv((char*) SWIG_prefix "CNF_REPORT_NEXT_MEDIA", TRUE | 0x2 | GV_ADDMULTI);
5999 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_REPORT_NEXT_MEDIA)));
6000 SvREADONLY_on(sv);
6001 } while(0) /*@SWIG@*/;
6002 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6003 SV *sv = get_sv((char*) SWIG_prefix "CNF_REPORT_FORMAT", TRUE | 0x2 | GV_ADDMULTI);
6004 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CNF_REPORT_FORMAT)));
6005 SvREADONLY_on(sv);
6006 } while(0) /*@SWIG@*/;
6007 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6008 SV *sv = get_sv((char*) SWIG_prefix "TAPETYPE_COMMENT", TRUE | 0x2 | GV_ADDMULTI);
6009 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(TAPETYPE_COMMENT)));
6010 SvREADONLY_on(sv);
6011 } while(0) /*@SWIG@*/;
6012 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6013 SV *sv = get_sv((char*) SWIG_prefix "TAPETYPE_LBL_TEMPL", TRUE | 0x2 | GV_ADDMULTI);
6014 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(TAPETYPE_LBL_TEMPL)));
6015 SvREADONLY_on(sv);
6016 } while(0) /*@SWIG@*/;
6017 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6018 SV *sv = get_sv((char*) SWIG_prefix "TAPETYPE_BLOCKSIZE", TRUE | 0x2 | GV_ADDMULTI);
6019 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(TAPETYPE_BLOCKSIZE)));
6020 SvREADONLY_on(sv);
6021 } while(0) /*@SWIG@*/;
6022 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6023 SV *sv = get_sv((char*) SWIG_prefix "TAPETYPE_READBLOCKSIZE", TRUE | 0x2 | GV_ADDMULTI);
6024 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(TAPETYPE_READBLOCKSIZE)));
6025 SvREADONLY_on(sv);
6026 } while(0) /*@SWIG@*/;
6027 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6028 SV *sv = get_sv((char*) SWIG_prefix "TAPETYPE_LENGTH", TRUE | 0x2 | GV_ADDMULTI);
6029 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(TAPETYPE_LENGTH)));
6030 SvREADONLY_on(sv);
6031 } while(0) /*@SWIG@*/;
6032 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6033 SV *sv = get_sv((char*) SWIG_prefix "TAPETYPE_FILEMARK", TRUE | 0x2 | GV_ADDMULTI);
6034 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(TAPETYPE_FILEMARK)));
6035 SvREADONLY_on(sv);
6036 } while(0) /*@SWIG@*/;
6037 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6038 SV *sv = get_sv((char*) SWIG_prefix "TAPETYPE_SPEED", TRUE | 0x2 | GV_ADDMULTI);
6039 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(TAPETYPE_SPEED)));
6040 SvREADONLY_on(sv);
6041 } while(0) /*@SWIG@*/;
6042 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6043 SV *sv = get_sv((char*) SWIG_prefix "TAPETYPE_PART_SIZE", TRUE | 0x2 | GV_ADDMULTI);
6044 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(TAPETYPE_PART_SIZE)));
6045 SvREADONLY_on(sv);
6046 } while(0) /*@SWIG@*/;
6047 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6048 SV *sv = get_sv((char*) SWIG_prefix "TAPETYPE_PART_CACHE_TYPE", TRUE | 0x2 | GV_ADDMULTI);
6049 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(TAPETYPE_PART_CACHE_TYPE)));
6050 SvREADONLY_on(sv);
6051 } while(0) /*@SWIG@*/;
6052 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6053 SV *sv = get_sv((char*) SWIG_prefix "TAPETYPE_PART_CACHE_DIR", TRUE | 0x2 | GV_ADDMULTI);
6054 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(TAPETYPE_PART_CACHE_DIR)));
6055 SvREADONLY_on(sv);
6056 } while(0) /*@SWIG@*/;
6057 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6058 SV *sv = get_sv((char*) SWIG_prefix "TAPETYPE_PART_CACHE_MAX_SIZE", TRUE | 0x2 | GV_ADDMULTI);
6059 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(TAPETYPE_PART_CACHE_MAX_SIZE)));
6060 SvREADONLY_on(sv);
6061 } while(0) /*@SWIG@*/;
6062 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6063 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_COMMENT", TRUE | 0x2 | GV_ADDMULTI);
6064 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_COMMENT)));
6065 SvREADONLY_on(sv);
6066 } while(0) /*@SWIG@*/;
6067 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6068 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_PROGRAM", TRUE | 0x2 | GV_ADDMULTI);
6069 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_PROGRAM)));
6070 SvREADONLY_on(sv);
6071 } while(0) /*@SWIG@*/;
6072 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6073 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_SRVCOMPPROG", TRUE | 0x2 | GV_ADDMULTI);
6074 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_SRVCOMPPROG)));
6075 SvREADONLY_on(sv);
6076 } while(0) /*@SWIG@*/;
6077 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6078 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_CLNTCOMPPROG", TRUE | 0x2 | GV_ADDMULTI);
6079 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_CLNTCOMPPROG)));
6080 SvREADONLY_on(sv);
6081 } while(0) /*@SWIG@*/;
6082 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6083 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_SRV_ENCRYPT", TRUE | 0x2 | GV_ADDMULTI);
6084 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_SRV_ENCRYPT)));
6085 SvREADONLY_on(sv);
6086 } while(0) /*@SWIG@*/;
6087 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6088 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_CLNT_ENCRYPT", TRUE | 0x2 | GV_ADDMULTI);
6089 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_CLNT_ENCRYPT)));
6090 SvREADONLY_on(sv);
6091 } while(0) /*@SWIG@*/;
6092 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6093 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_AMANDAD_PATH", TRUE | 0x2 | GV_ADDMULTI);
6094 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_AMANDAD_PATH)));
6095 SvREADONLY_on(sv);
6096 } while(0) /*@SWIG@*/;
6097 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6098 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_CLIENT_USERNAME", TRUE | 0x2 | GV_ADDMULTI);
6099 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_CLIENT_USERNAME)));
6100 SvREADONLY_on(sv);
6101 } while(0) /*@SWIG@*/;
6102 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6103 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_CLIENT_PORT", TRUE | 0x2 | GV_ADDMULTI);
6104 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_CLIENT_PORT)));
6105 SvREADONLY_on(sv);
6106 } while(0) /*@SWIG@*/;
6107 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6108 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_SSH_KEYS", TRUE | 0x2 | GV_ADDMULTI);
6109 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_SSH_KEYS)));
6110 SvREADONLY_on(sv);
6111 } while(0) /*@SWIG@*/;
6112 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6113 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_AUTH", TRUE | 0x2 | GV_ADDMULTI);
6114 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_AUTH)));
6115 SvREADONLY_on(sv);
6116 } while(0) /*@SWIG@*/;
6117 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6118 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_EXCLUDE", TRUE | 0x2 | GV_ADDMULTI);
6119 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_EXCLUDE)));
6120 SvREADONLY_on(sv);
6121 } while(0) /*@SWIG@*/;
6122 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6123 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_INCLUDE", TRUE | 0x2 | GV_ADDMULTI);
6124 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_INCLUDE)));
6125 SvREADONLY_on(sv);
6126 } while(0) /*@SWIG@*/;
6127 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6128 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_PRIORITY", TRUE | 0x2 | GV_ADDMULTI);
6129 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_PRIORITY)));
6130 SvREADONLY_on(sv);
6131 } while(0) /*@SWIG@*/;
6132 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6133 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_DUMPCYCLE", TRUE | 0x2 | GV_ADDMULTI);
6134 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_DUMPCYCLE)));
6135 SvREADONLY_on(sv);
6136 } while(0) /*@SWIG@*/;
6137 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6138 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_MAXDUMPS", TRUE | 0x2 | GV_ADDMULTI);
6139 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_MAXDUMPS)));
6140 SvREADONLY_on(sv);
6141 } while(0) /*@SWIG@*/;
6142 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6143 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_MAXPROMOTEDAY", TRUE | 0x2 | GV_ADDMULTI);
6144 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_MAXPROMOTEDAY)));
6145 SvREADONLY_on(sv);
6146 } while(0) /*@SWIG@*/;
6147 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6148 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_BUMPPERCENT", TRUE | 0x2 | GV_ADDMULTI);
6149 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_BUMPPERCENT)));
6150 SvREADONLY_on(sv);
6151 } while(0) /*@SWIG@*/;
6152 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6153 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_BUMPSIZE", TRUE | 0x2 | GV_ADDMULTI);
6154 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_BUMPSIZE)));
6155 SvREADONLY_on(sv);
6156 } while(0) /*@SWIG@*/;
6157 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6158 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_BUMPDAYS", TRUE | 0x2 | GV_ADDMULTI);
6159 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_BUMPDAYS)));
6160 SvREADONLY_on(sv);
6161 } while(0) /*@SWIG@*/;
6162 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6163 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_BUMPMULT", TRUE | 0x2 | GV_ADDMULTI);
6164 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_BUMPMULT)));
6165 SvREADONLY_on(sv);
6166 } while(0) /*@SWIG@*/;
6167 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6168 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_STARTTIME", TRUE | 0x2 | GV_ADDMULTI);
6169 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_STARTTIME)));
6170 SvREADONLY_on(sv);
6171 } while(0) /*@SWIG@*/;
6172 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6173 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_STRATEGY", TRUE | 0x2 | GV_ADDMULTI);
6174 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_STRATEGY)));
6175 SvREADONLY_on(sv);
6176 } while(0) /*@SWIG@*/;
6177 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6178 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_ESTIMATELIST", TRUE | 0x2 | GV_ADDMULTI);
6179 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_ESTIMATELIST)));
6180 SvREADONLY_on(sv);
6181 } while(0) /*@SWIG@*/;
6182 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6183 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_COMPRESS", TRUE | 0x2 | GV_ADDMULTI);
6184 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_COMPRESS)));
6185 SvREADONLY_on(sv);
6186 } while(0) /*@SWIG@*/;
6187 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6188 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_ENCRYPT", TRUE | 0x2 | GV_ADDMULTI);
6189 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_ENCRYPT)));
6190 SvREADONLY_on(sv);
6191 } while(0) /*@SWIG@*/;
6192 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6193 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_SRV_DECRYPT_OPT", TRUE | 0x2 | GV_ADDMULTI);
6194 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_SRV_DECRYPT_OPT)));
6195 SvREADONLY_on(sv);
6196 } while(0) /*@SWIG@*/;
6197 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6198 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_CLNT_DECRYPT_OPT", TRUE | 0x2 | GV_ADDMULTI);
6199 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_CLNT_DECRYPT_OPT)));
6200 SvREADONLY_on(sv);
6201 } while(0) /*@SWIG@*/;
6202 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6203 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_COMPRATE", TRUE | 0x2 | GV_ADDMULTI);
6204 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_COMPRATE)));
6205 SvREADONLY_on(sv);
6206 } while(0) /*@SWIG@*/;
6207 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6208 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_TAPE_SPLITSIZE", TRUE | 0x2 | GV_ADDMULTI);
6209 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_TAPE_SPLITSIZE)));
6210 SvREADONLY_on(sv);
6211 } while(0) /*@SWIG@*/;
6212 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6213 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_FALLBACK_SPLITSIZE", TRUE | 0x2 | GV_ADDMULTI);
6214 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_FALLBACK_SPLITSIZE)));
6215 SvREADONLY_on(sv);
6216 } while(0) /*@SWIG@*/;
6217 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6218 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_SPLIT_DISKBUFFER", TRUE | 0x2 | GV_ADDMULTI);
6219 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_SPLIT_DISKBUFFER)));
6220 SvREADONLY_on(sv);
6221 } while(0) /*@SWIG@*/;
6222 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6223 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_RECORD", TRUE | 0x2 | GV_ADDMULTI);
6224 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_RECORD)));
6225 SvREADONLY_on(sv);
6226 } while(0) /*@SWIG@*/;
6227 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6228 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_SKIP_INCR", TRUE | 0x2 | GV_ADDMULTI);
6229 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_SKIP_INCR)));
6230 SvREADONLY_on(sv);
6231 } while(0) /*@SWIG@*/;
6232 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6233 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_SKIP_FULL", TRUE | 0x2 | GV_ADDMULTI);
6234 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_SKIP_FULL)));
6235 SvREADONLY_on(sv);
6236 } while(0) /*@SWIG@*/;
6237 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6238 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_HOLDINGDISK", TRUE | 0x2 | GV_ADDMULTI);
6239 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_HOLDINGDISK)));
6240 SvREADONLY_on(sv);
6241 } while(0) /*@SWIG@*/;
6242 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6243 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_KENCRYPT", TRUE | 0x2 | GV_ADDMULTI);
6244 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_KENCRYPT)));
6245 SvREADONLY_on(sv);
6246 } while(0) /*@SWIG@*/;
6247 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6248 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_IGNORE", TRUE | 0x2 | GV_ADDMULTI);
6249 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_IGNORE)));
6250 SvREADONLY_on(sv);
6251 } while(0) /*@SWIG@*/;
6252 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6253 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_INDEX", TRUE | 0x2 | GV_ADDMULTI);
6254 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_INDEX)));
6255 SvREADONLY_on(sv);
6256 } while(0) /*@SWIG@*/;
6257 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6258 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_APPLICATION", TRUE | 0x2 | GV_ADDMULTI);
6259 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_APPLICATION)));
6260 SvREADONLY_on(sv);
6261 } while(0) /*@SWIG@*/;
6262 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6263 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_SCRIPTLIST", TRUE | 0x2 | GV_ADDMULTI);
6264 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_SCRIPTLIST)));
6265 SvREADONLY_on(sv);
6266 } while(0) /*@SWIG@*/;
6267 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6268 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_PROPERTY", TRUE | 0x2 | GV_ADDMULTI);
6269 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_PROPERTY)));
6270 SvREADONLY_on(sv);
6271 } while(0) /*@SWIG@*/;
6272 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6273 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_DATA_PATH", TRUE | 0x2 | GV_ADDMULTI);
6274 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_DATA_PATH)));
6275 SvREADONLY_on(sv);
6276 } while(0) /*@SWIG@*/;
6277 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6278 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_ALLOW_SPLIT", TRUE | 0x2 | GV_ADDMULTI);
6279 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_ALLOW_SPLIT)));
6280 SvREADONLY_on(sv);
6281 } while(0) /*@SWIG@*/;
6282 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6283 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_MAX_WARNINGS", TRUE | 0x2 | GV_ADDMULTI);
6284 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_MAX_WARNINGS)));
6285 SvREADONLY_on(sv);
6286 } while(0) /*@SWIG@*/;
6287 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6288 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_RECOVERY_LIMIT", TRUE | 0x2 | GV_ADDMULTI);
6289 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_RECOVERY_LIMIT)));
6290 SvREADONLY_on(sv);
6291 } while(0) /*@SWIG@*/;
6292 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6293 SV *sv = get_sv((char*) SWIG_prefix "DUMPTYPE_DUMP_LIMIT", TRUE | 0x2 | GV_ADDMULTI);
6294 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DUMPTYPE_DUMP_LIMIT)));
6295 SvREADONLY_on(sv);
6296 } while(0) /*@SWIG@*/;
6297 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6298 SV *sv = get_sv((char*) SWIG_prefix "INTER_COMMENT", TRUE | 0x2 | GV_ADDMULTI);
6299 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(INTER_COMMENT)));
6300 SvREADONLY_on(sv);
6301 } while(0) /*@SWIG@*/;
6302 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6303 SV *sv = get_sv((char*) SWIG_prefix "INTER_MAXUSAGE", TRUE | 0x2 | GV_ADDMULTI);
6304 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(INTER_MAXUSAGE)));
6305 SvREADONLY_on(sv);
6306 } while(0) /*@SWIG@*/;
6307 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6308 SV *sv = get_sv((char*) SWIG_prefix "HOLDING_COMMENT", TRUE | 0x2 | GV_ADDMULTI);
6309 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(HOLDING_COMMENT)));
6310 SvREADONLY_on(sv);
6311 } while(0) /*@SWIG@*/;
6312 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6313 SV *sv = get_sv((char*) SWIG_prefix "HOLDING_DISKDIR", TRUE | 0x2 | GV_ADDMULTI);
6314 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(HOLDING_DISKDIR)));
6315 SvREADONLY_on(sv);
6316 } while(0) /*@SWIG@*/;
6317 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6318 SV *sv = get_sv((char*) SWIG_prefix "HOLDING_DISKSIZE", TRUE | 0x2 | GV_ADDMULTI);
6319 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(HOLDING_DISKSIZE)));
6320 SvREADONLY_on(sv);
6321 } while(0) /*@SWIG@*/;
6322 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6323 SV *sv = get_sv((char*) SWIG_prefix "HOLDING_CHUNKSIZE", TRUE | 0x2 | GV_ADDMULTI);
6324 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(HOLDING_CHUNKSIZE)));
6325 SvREADONLY_on(sv);
6326 } while(0) /*@SWIG@*/;
6327 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6328 SV *sv = get_sv((char*) SWIG_prefix "APPLICATION_COMMENT", TRUE | 0x2 | GV_ADDMULTI);
6329 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(APPLICATION_COMMENT)));
6330 SvREADONLY_on(sv);
6331 } while(0) /*@SWIG@*/;
6332 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6333 SV *sv = get_sv((char*) SWIG_prefix "APPLICATION_PLUGIN", TRUE | 0x2 | GV_ADDMULTI);
6334 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(APPLICATION_PLUGIN)));
6335 SvREADONLY_on(sv);
6336 } while(0) /*@SWIG@*/;
6337 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6338 SV *sv = get_sv((char*) SWIG_prefix "APPLICATION_PROPERTY", TRUE | 0x2 | GV_ADDMULTI);
6339 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(APPLICATION_PROPERTY)));
6340 SvREADONLY_on(sv);
6341 } while(0) /*@SWIG@*/;
6342 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6343 SV *sv = get_sv((char*) SWIG_prefix "APPLICATION_CLIENT_NAME", TRUE | 0x2 | GV_ADDMULTI);
6344 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(APPLICATION_CLIENT_NAME)));
6345 SvREADONLY_on(sv);
6346 } while(0) /*@SWIG@*/;
6347 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6348 SV *sv = get_sv((char*) SWIG_prefix "PP_SCRIPT_COMMENT", TRUE | 0x2 | GV_ADDMULTI);
6349 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PP_SCRIPT_COMMENT)));
6350 SvREADONLY_on(sv);
6351 } while(0) /*@SWIG@*/;
6352 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6353 SV *sv = get_sv((char*) SWIG_prefix "PP_SCRIPT_PLUGIN", TRUE | 0x2 | GV_ADDMULTI);
6354 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PP_SCRIPT_PLUGIN)));
6355 SvREADONLY_on(sv);
6356 } while(0) /*@SWIG@*/;
6357 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6358 SV *sv = get_sv((char*) SWIG_prefix "PP_SCRIPT_PROPERTY", TRUE | 0x2 | GV_ADDMULTI);
6359 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PP_SCRIPT_PROPERTY)));
6360 SvREADONLY_on(sv);
6361 } while(0) /*@SWIG@*/;
6362 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6363 SV *sv = get_sv((char*) SWIG_prefix "PP_SCRIPT_EXECUTE_ON", TRUE | 0x2 | GV_ADDMULTI);
6364 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PP_SCRIPT_EXECUTE_ON)));
6365 SvREADONLY_on(sv);
6366 } while(0) /*@SWIG@*/;
6367 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6368 SV *sv = get_sv((char*) SWIG_prefix "PP_SCRIPT_EXECUTE_WHERE", TRUE | 0x2 | GV_ADDMULTI);
6369 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PP_SCRIPT_EXECUTE_WHERE)));
6370 SvREADONLY_on(sv);
6371 } while(0) /*@SWIG@*/;
6372 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6373 SV *sv = get_sv((char*) SWIG_prefix "PP_SCRIPT_ORDER", TRUE | 0x2 | GV_ADDMULTI);
6374 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PP_SCRIPT_ORDER)));
6375 SvREADONLY_on(sv);
6376 } while(0) /*@SWIG@*/;
6377 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6378 SV *sv = get_sv((char*) SWIG_prefix "PP_SCRIPT_SINGLE_EXECUTION", TRUE | 0x2 | GV_ADDMULTI);
6379 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PP_SCRIPT_SINGLE_EXECUTION)));
6380 SvREADONLY_on(sv);
6381 } while(0) /*@SWIG@*/;
6382 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6383 SV *sv = get_sv((char*) SWIG_prefix "PP_SCRIPT_CLIENT_NAME", TRUE | 0x2 | GV_ADDMULTI);
6384 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PP_SCRIPT_CLIENT_NAME)));
6385 SvREADONLY_on(sv);
6386 } while(0) /*@SWIG@*/;
6387 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6388 SV *sv = get_sv((char*) SWIG_prefix "DEVICE_CONFIG_COMMENT", TRUE | 0x2 | GV_ADDMULTI);
6389 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DEVICE_CONFIG_COMMENT)));
6390 SvREADONLY_on(sv);
6391 } while(0) /*@SWIG@*/;
6392 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6393 SV *sv = get_sv((char*) SWIG_prefix "DEVICE_CONFIG_TAPEDEV", TRUE | 0x2 | GV_ADDMULTI);
6394 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DEVICE_CONFIG_TAPEDEV)));
6395 SvREADONLY_on(sv);
6396 } while(0) /*@SWIG@*/;
6397 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6398 SV *sv = get_sv((char*) SWIG_prefix "DEVICE_CONFIG_DEVICE_PROPERTY", TRUE | 0x2 | GV_ADDMULTI);
6399 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DEVICE_CONFIG_DEVICE_PROPERTY)));
6400 SvREADONLY_on(sv);
6401 } while(0) /*@SWIG@*/;
6402 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6403 SV *sv = get_sv((char*) SWIG_prefix "CHANGER_CONFIG_COMMENT", TRUE | 0x2 | GV_ADDMULTI);
6404 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CHANGER_CONFIG_COMMENT)));
6405 SvREADONLY_on(sv);
6406 } while(0) /*@SWIG@*/;
6407 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6408 SV *sv = get_sv((char*) SWIG_prefix "CHANGER_CONFIG_TAPEDEV", TRUE | 0x2 | GV_ADDMULTI);
6409 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CHANGER_CONFIG_TAPEDEV)));
6410 SvREADONLY_on(sv);
6411 } while(0) /*@SWIG@*/;
6412 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6413 SV *sv = get_sv((char*) SWIG_prefix "CHANGER_CONFIG_TPCHANGER", TRUE | 0x2 | GV_ADDMULTI);
6414 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CHANGER_CONFIG_TPCHANGER)));
6415 SvREADONLY_on(sv);
6416 } while(0) /*@SWIG@*/;
6417 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6418 SV *sv = get_sv((char*) SWIG_prefix "CHANGER_CONFIG_CHANGERDEV", TRUE | 0x2 | GV_ADDMULTI);
6419 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CHANGER_CONFIG_CHANGERDEV)));
6420 SvREADONLY_on(sv);
6421 } while(0) /*@SWIG@*/;
6422 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6423 SV *sv = get_sv((char*) SWIG_prefix "CHANGER_CONFIG_CHANGERFILE", TRUE | 0x2 | GV_ADDMULTI);
6424 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CHANGER_CONFIG_CHANGERFILE)));
6425 SvREADONLY_on(sv);
6426 } while(0) /*@SWIG@*/;
6427 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6428 SV *sv = get_sv((char*) SWIG_prefix "CHANGER_CONFIG_PROPERTY", TRUE | 0x2 | GV_ADDMULTI);
6429 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CHANGER_CONFIG_PROPERTY)));
6430 SvREADONLY_on(sv);
6431 } while(0) /*@SWIG@*/;
6432 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6433 SV *sv = get_sv((char*) SWIG_prefix "CHANGER_CONFIG_DEVICE_PROPERTY", TRUE | 0x2 | GV_ADDMULTI);
6434 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CHANGER_CONFIG_DEVICE_PROPERTY)));
6435 SvREADONLY_on(sv);
6436 } while(0) /*@SWIG@*/;
6437 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6438 SV *sv = get_sv((char*) SWIG_prefix "INTERACTIVITY_COMMENT", TRUE | 0x2 | GV_ADDMULTI);
6439 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(INTERACTIVITY_COMMENT)));
6440 SvREADONLY_on(sv);
6441 } while(0) /*@SWIG@*/;
6442 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6443 SV *sv = get_sv((char*) SWIG_prefix "INTERACTIVITY_PLUGIN", TRUE | 0x2 | GV_ADDMULTI);
6444 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(INTERACTIVITY_PLUGIN)));
6445 SvREADONLY_on(sv);
6446 } while(0) /*@SWIG@*/;
6447 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6448 SV *sv = get_sv((char*) SWIG_prefix "INTERACTIVITY_PROPERTY", TRUE | 0x2 | GV_ADDMULTI);
6449 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(INTERACTIVITY_PROPERTY)));
6450 SvREADONLY_on(sv);
6451 } while(0) /*@SWIG@*/;
6452 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6453 SV *sv = get_sv((char*) SWIG_prefix "TAPERSCAN_COMMENT", TRUE | 0x2 | GV_ADDMULTI);
6454 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(TAPERSCAN_COMMENT)));
6455 SvREADONLY_on(sv);
6456 } while(0) /*@SWIG@*/;
6457 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6458 SV *sv = get_sv((char*) SWIG_prefix "TAPERSCAN_PLUGIN", TRUE | 0x2 | GV_ADDMULTI);
6459 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(TAPERSCAN_PLUGIN)));
6460 SvREADONLY_on(sv);
6461 } while(0) /*@SWIG@*/;
6462 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6463 SV *sv = get_sv((char*) SWIG_prefix "TAPERSCAN_PROPERTY", TRUE | 0x2 | GV_ADDMULTI);
6464 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(TAPERSCAN_PROPERTY)));
6465 SvREADONLY_on(sv);
6466 } while(0) /*@SWIG@*/;
6467 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6468 SV *sv = get_sv((char*) SWIG_prefix "HOLD_NEVER", TRUE | 0x2 | GV_ADDMULTI);
6469 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(HOLD_NEVER)));
6470 SvREADONLY_on(sv);
6471 } while(0) /*@SWIG@*/;
6472 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6473 SV *sv = get_sv((char*) SWIG_prefix "HOLD_AUTO", TRUE | 0x2 | GV_ADDMULTI);
6474 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(HOLD_AUTO)));
6475 SvREADONLY_on(sv);
6476 } while(0) /*@SWIG@*/;
6477 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6478 SV *sv = get_sv((char*) SWIG_prefix "HOLD_REQUIRED", TRUE | 0x2 | GV_ADDMULTI);
6479 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(HOLD_REQUIRED)));
6480 SvREADONLY_on(sv);
6481 } while(0) /*@SWIG@*/;
6482 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6483 SV *sv = get_sv((char*) SWIG_prefix "COMP_NONE", TRUE | 0x2 | GV_ADDMULTI);
6484 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(COMP_NONE)));
6485 SvREADONLY_on(sv);
6486 } while(0) /*@SWIG@*/;
6487 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6488 SV *sv = get_sv((char*) SWIG_prefix "COMP_FAST", TRUE | 0x2 | GV_ADDMULTI);
6489 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(COMP_FAST)));
6490 SvREADONLY_on(sv);
6491 } while(0) /*@SWIG@*/;
6492 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6493 SV *sv = get_sv((char*) SWIG_prefix "COMP_BEST", TRUE | 0x2 | GV_ADDMULTI);
6494 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(COMP_BEST)));
6495 SvREADONLY_on(sv);
6496 } while(0) /*@SWIG@*/;
6497 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6498 SV *sv = get_sv((char*) SWIG_prefix "COMP_CUST", TRUE | 0x2 | GV_ADDMULTI);
6499 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(COMP_CUST)));
6500 SvREADONLY_on(sv);
6501 } while(0) /*@SWIG@*/;
6502 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6503 SV *sv = get_sv((char*) SWIG_prefix "COMP_SERVER_FAST", TRUE | 0x2 | GV_ADDMULTI);
6504 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(COMP_SERVER_FAST)));
6505 SvREADONLY_on(sv);
6506 } while(0) /*@SWIG@*/;
6507 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6508 SV *sv = get_sv((char*) SWIG_prefix "COMP_SERVER_BEST", TRUE | 0x2 | GV_ADDMULTI);
6509 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(COMP_SERVER_BEST)));
6510 SvREADONLY_on(sv);
6511 } while(0) /*@SWIG@*/;
6512 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6513 SV *sv = get_sv((char*) SWIG_prefix "COMP_SERVER_CUST", TRUE | 0x2 | GV_ADDMULTI);
6514 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(COMP_SERVER_CUST)));
6515 SvREADONLY_on(sv);
6516 } while(0) /*@SWIG@*/;
6517 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6518 SV *sv = get_sv((char*) SWIG_prefix "ENCRYPT_NONE", TRUE | 0x2 | GV_ADDMULTI);
6519 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(ENCRYPT_NONE)));
6520 SvREADONLY_on(sv);
6521 } while(0) /*@SWIG@*/;
6522 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6523 SV *sv = get_sv((char*) SWIG_prefix "ENCRYPT_CUST", TRUE | 0x2 | GV_ADDMULTI);
6524 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(ENCRYPT_CUST)));
6525 SvREADONLY_on(sv);
6526 } while(0) /*@SWIG@*/;
6527 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6528 SV *sv = get_sv((char*) SWIG_prefix "ENCRYPT_SERV_CUST", TRUE | 0x2 | GV_ADDMULTI);
6529 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(ENCRYPT_SERV_CUST)));
6530 SvREADONLY_on(sv);
6531 } while(0) /*@SWIG@*/;
6532 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6533 SV *sv = get_sv((char*) SWIG_prefix "DS_SKIP", TRUE | 0x2 | GV_ADDMULTI);
6534 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DS_SKIP)));
6535 SvREADONLY_on(sv);
6536 } while(0) /*@SWIG@*/;
6537 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6538 SV *sv = get_sv((char*) SWIG_prefix "DS_STANDARD", TRUE | 0x2 | GV_ADDMULTI);
6539 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DS_STANDARD)));
6540 SvREADONLY_on(sv);
6541 } while(0) /*@SWIG@*/;
6542 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6543 SV *sv = get_sv((char*) SWIG_prefix "DS_NOFULL", TRUE | 0x2 | GV_ADDMULTI);
6544 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DS_NOFULL)));
6545 SvREADONLY_on(sv);
6546 } while(0) /*@SWIG@*/;
6547 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6548 SV *sv = get_sv((char*) SWIG_prefix "DS_NOINC", TRUE | 0x2 | GV_ADDMULTI);
6549 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DS_NOINC)));
6550 SvREADONLY_on(sv);
6551 } while(0) /*@SWIG@*/;
6552 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6553 SV *sv = get_sv((char*) SWIG_prefix "DS_4", TRUE | 0x2 | GV_ADDMULTI);
6554 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DS_4)));
6555 SvREADONLY_on(sv);
6556 } while(0) /*@SWIG@*/;
6557 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6558 SV *sv = get_sv((char*) SWIG_prefix "DS_5", TRUE | 0x2 | GV_ADDMULTI);
6559 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DS_5)));
6560 SvREADONLY_on(sv);
6561 } while(0) /*@SWIG@*/;
6562 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6563 SV *sv = get_sv((char*) SWIG_prefix "DS_HANOI", TRUE | 0x2 | GV_ADDMULTI);
6564 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DS_HANOI)));
6565 SvREADONLY_on(sv);
6566 } while(0) /*@SWIG@*/;
6567 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6568 SV *sv = get_sv((char*) SWIG_prefix "DS_INCRONLY", TRUE | 0x2 | GV_ADDMULTI);
6569 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DS_INCRONLY)));
6570 SvREADONLY_on(sv);
6571 } while(0) /*@SWIG@*/;
6572 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6573 SV *sv = get_sv((char*) SWIG_prefix "ES_CLIENT", TRUE | 0x2 | GV_ADDMULTI);
6574 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(ES_CLIENT)));
6575 SvREADONLY_on(sv);
6576 } while(0) /*@SWIG@*/;
6577 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6578 SV *sv = get_sv((char*) SWIG_prefix "ES_SERVER", TRUE | 0x2 | GV_ADDMULTI);
6579 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(ES_SERVER)));
6580 SvREADONLY_on(sv);
6581 } while(0) /*@SWIG@*/;
6582 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6583 SV *sv = get_sv((char*) SWIG_prefix "ES_CALCSIZE", TRUE | 0x2 | GV_ADDMULTI);
6584 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(ES_CALCSIZE)));
6585 SvREADONLY_on(sv);
6586 } while(0) /*@SWIG@*/;
6587 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6588 SV *sv = get_sv((char*) SWIG_prefix "AL_OTHER_CONFIG", TRUE | 0x2 | GV_ADDMULTI);
6589 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(AL_OTHER_CONFIG)));
6590 SvREADONLY_on(sv);
6591 } while(0) /*@SWIG@*/;
6592 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6593 SV *sv = get_sv((char*) SWIG_prefix "AL_NON_AMANDA", TRUE | 0x2 | GV_ADDMULTI);
6594 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(AL_NON_AMANDA)));
6595 SvREADONLY_on(sv);
6596 } while(0) /*@SWIG@*/;
6597 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6598 SV *sv = get_sv((char*) SWIG_prefix "AL_VOLUME_ERROR", TRUE | 0x2 | GV_ADDMULTI);
6599 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(AL_VOLUME_ERROR)));
6600 SvREADONLY_on(sv);
6601 } while(0) /*@SWIG@*/;
6602 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6603 SV *sv = get_sv((char*) SWIG_prefix "AL_EMPTY", TRUE | 0x2 | GV_ADDMULTI);
6604 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(AL_EMPTY)));
6605 SvREADONLY_on(sv);
6606 } while(0) /*@SWIG@*/;
6607 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6608 SV *sv = get_sv((char*) SWIG_prefix "ALGO_FIRST", TRUE | 0x2 | GV_ADDMULTI);
6609 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(ALGO_FIRST)));
6610 SvREADONLY_on(sv);
6611 } while(0) /*@SWIG@*/;
6612 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6613 SV *sv = get_sv((char*) SWIG_prefix "ALGO_FIRSTFIT", TRUE | 0x2 | GV_ADDMULTI);
6614 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(ALGO_FIRSTFIT)));
6615 SvREADONLY_on(sv);
6616 } while(0) /*@SWIG@*/;
6617 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6618 SV *sv = get_sv((char*) SWIG_prefix "ALGO_LARGEST", TRUE | 0x2 | GV_ADDMULTI);
6619 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(ALGO_LARGEST)));
6620 SvREADONLY_on(sv);
6621 } while(0) /*@SWIG@*/;
6622 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6623 SV *sv = get_sv((char*) SWIG_prefix "ALGO_LARGESTFIT", TRUE | 0x2 | GV_ADDMULTI);
6624 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(ALGO_LARGESTFIT)));
6625 SvREADONLY_on(sv);
6626 } while(0) /*@SWIG@*/;
6627 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6628 SV *sv = get_sv((char*) SWIG_prefix "ALGO_SMALLEST", TRUE | 0x2 | GV_ADDMULTI);
6629 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(ALGO_SMALLEST)));
6630 SvREADONLY_on(sv);
6631 } while(0) /*@SWIG@*/;
6632 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6633 SV *sv = get_sv((char*) SWIG_prefix "ALGO_LAST", TRUE | 0x2 | GV_ADDMULTI);
6634 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(ALGO_LAST)));
6635 SvREADONLY_on(sv);
6636 } while(0) /*@SWIG@*/;
6637 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6638 SV *sv = get_sv((char*) SWIG_prefix "EXECUTE_ON_PRE_AMCHECK", TRUE | 0x2 | GV_ADDMULTI);
6639 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(EXECUTE_ON_PRE_AMCHECK)));
6640 SvREADONLY_on(sv);
6641 } while(0) /*@SWIG@*/;
6642 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6643 SV *sv = get_sv((char*) SWIG_prefix "EXECUTE_ON_PRE_DLE_AMCHECK", TRUE | 0x2 | GV_ADDMULTI);
6644 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(EXECUTE_ON_PRE_DLE_AMCHECK)));
6645 SvREADONLY_on(sv);
6646 } while(0) /*@SWIG@*/;
6647 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6648 SV *sv = get_sv((char*) SWIG_prefix "EXECUTE_ON_PRE_HOST_AMCHECK", TRUE | 0x2 | GV_ADDMULTI);
6649 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(EXECUTE_ON_PRE_HOST_AMCHECK)));
6650 SvREADONLY_on(sv);
6651 } while(0) /*@SWIG@*/;
6652 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6653 SV *sv = get_sv((char*) SWIG_prefix "EXECUTE_ON_POST_AMCHECK", TRUE | 0x2 | GV_ADDMULTI);
6654 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(EXECUTE_ON_POST_AMCHECK)));
6655 SvREADONLY_on(sv);
6656 } while(0) /*@SWIG@*/;
6657 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6658 SV *sv = get_sv((char*) SWIG_prefix "EXECUTE_ON_POST_DLE_AMCHECK", TRUE | 0x2 | GV_ADDMULTI);
6659 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(EXECUTE_ON_POST_DLE_AMCHECK)));
6660 SvREADONLY_on(sv);
6661 } while(0) /*@SWIG@*/;
6662 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6663 SV *sv = get_sv((char*) SWIG_prefix "EXECUTE_ON_POST_HOST_AMCHECK", TRUE | 0x2 | GV_ADDMULTI);
6664 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(EXECUTE_ON_POST_HOST_AMCHECK)));
6665 SvREADONLY_on(sv);
6666 } while(0) /*@SWIG@*/;
6667 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6668 SV *sv = get_sv((char*) SWIG_prefix "EXECUTE_ON_PRE_ESTIMATE", TRUE | 0x2 | GV_ADDMULTI);
6669 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(EXECUTE_ON_PRE_ESTIMATE)));
6670 SvREADONLY_on(sv);
6671 } while(0) /*@SWIG@*/;
6672 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6673 SV *sv = get_sv((char*) SWIG_prefix "EXECUTE_ON_PRE_DLE_ESTIMATE", TRUE | 0x2 | GV_ADDMULTI);
6674 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(EXECUTE_ON_PRE_DLE_ESTIMATE)));
6675 SvREADONLY_on(sv);
6676 } while(0) /*@SWIG@*/;
6677 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6678 SV *sv = get_sv((char*) SWIG_prefix "EXECUTE_ON_PRE_HOST_ESTIMATE", TRUE | 0x2 | GV_ADDMULTI);
6679 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(EXECUTE_ON_PRE_HOST_ESTIMATE)));
6680 SvREADONLY_on(sv);
6681 } while(0) /*@SWIG@*/;
6682 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6683 SV *sv = get_sv((char*) SWIG_prefix "EXECUTE_ON_POST_ESTIMATE", TRUE | 0x2 | GV_ADDMULTI);
6684 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(EXECUTE_ON_POST_ESTIMATE)));
6685 SvREADONLY_on(sv);
6686 } while(0) /*@SWIG@*/;
6687 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6688 SV *sv = get_sv((char*) SWIG_prefix "EXECUTE_ON_POST_DLE_ESTIMATE", TRUE | 0x2 | GV_ADDMULTI);
6689 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(EXECUTE_ON_POST_DLE_ESTIMATE)));
6690 SvREADONLY_on(sv);
6691 } while(0) /*@SWIG@*/;
6692 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6693 SV *sv = get_sv((char*) SWIG_prefix "EXECUTE_ON_POST_HOST_ESTIMATE", TRUE | 0x2 | GV_ADDMULTI);
6694 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(EXECUTE_ON_POST_HOST_ESTIMATE)));
6695 SvREADONLY_on(sv);
6696 } while(0) /*@SWIG@*/;
6697 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6698 SV *sv = get_sv((char*) SWIG_prefix "EXECUTE_ON_PRE_BACKUP", TRUE | 0x2 | GV_ADDMULTI);
6699 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(EXECUTE_ON_PRE_BACKUP)));
6700 SvREADONLY_on(sv);
6701 } while(0) /*@SWIG@*/;
6702 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6703 SV *sv = get_sv((char*) SWIG_prefix "EXECUTE_ON_PRE_DLE_BACKUP", TRUE | 0x2 | GV_ADDMULTI);
6704 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(EXECUTE_ON_PRE_DLE_BACKUP)));
6705 SvREADONLY_on(sv);
6706 } while(0) /*@SWIG@*/;
6707 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6708 SV *sv = get_sv((char*) SWIG_prefix "EXECUTE_ON_PRE_HOST_BACKUP", TRUE | 0x2 | GV_ADDMULTI);
6709 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(EXECUTE_ON_PRE_HOST_BACKUP)));
6710 SvREADONLY_on(sv);
6711 } while(0) /*@SWIG@*/;
6712 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6713 SV *sv = get_sv((char*) SWIG_prefix "EXECUTE_ON_POST_BACKUP", TRUE | 0x2 | GV_ADDMULTI);
6714 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(EXECUTE_ON_POST_BACKUP)));
6715 SvREADONLY_on(sv);
6716 } while(0) /*@SWIG@*/;
6717 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6718 SV *sv = get_sv((char*) SWIG_prefix "EXECUTE_ON_POST_DLE_BACKUP", TRUE | 0x2 | GV_ADDMULTI);
6719 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(EXECUTE_ON_POST_DLE_BACKUP)));
6720 SvREADONLY_on(sv);
6721 } while(0) /*@SWIG@*/;
6722 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6723 SV *sv = get_sv((char*) SWIG_prefix "EXECUTE_ON_POST_HOST_BACKUP", TRUE | 0x2 | GV_ADDMULTI);
6724 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(EXECUTE_ON_POST_HOST_BACKUP)));
6725 SvREADONLY_on(sv);
6726 } while(0) /*@SWIG@*/;
6727 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6728 SV *sv = get_sv((char*) SWIG_prefix "SEND_AMREPORT_ALL", TRUE | 0x2 | GV_ADDMULTI);
6729 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(SEND_AMREPORT_ALL)));
6730 SvREADONLY_on(sv);
6731 } while(0) /*@SWIG@*/;
6732 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6733 SV *sv = get_sv((char*) SWIG_prefix "SEND_AMREPORT_STRANGE", TRUE | 0x2 | GV_ADDMULTI);
6734 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(SEND_AMREPORT_STRANGE)));
6735 SvREADONLY_on(sv);
6736 } while(0) /*@SWIG@*/;
6737 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6738 SV *sv = get_sv((char*) SWIG_prefix "SEND_AMREPORT_ERROR", TRUE | 0x2 | GV_ADDMULTI);
6739 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(SEND_AMREPORT_ERROR)));
6740 SvREADONLY_on(sv);
6741 } while(0) /*@SWIG@*/;
6742 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6743 SV *sv = get_sv((char*) SWIG_prefix "SEND_AMREPORT_NEVER", TRUE | 0x2 | GV_ADDMULTI);
6744 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(SEND_AMREPORT_NEVER)));
6745 SvREADONLY_on(sv);
6746 } while(0) /*@SWIG@*/;
6747 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6748 SV *sv = get_sv((char*) SWIG_prefix "DATA_PATH_AMANDA", TRUE | 0x2 | GV_ADDMULTI);
6749 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DATA_PATH_AMANDA)));
6750 SvREADONLY_on(sv);
6751 } while(0) /*@SWIG@*/;
6752 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6753 SV *sv = get_sv((char*) SWIG_prefix "DATA_PATH_DIRECTTCP", TRUE | 0x2 | GV_ADDMULTI);
6754 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(DATA_PATH_DIRECTTCP)));
6755 SvREADONLY_on(sv);
6756 } while(0) /*@SWIG@*/;
6757 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6758 SV *sv = get_sv((char*) SWIG_prefix "PART_CACHE_TYPE_NONE", TRUE | 0x2 | GV_ADDMULTI);
6759 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PART_CACHE_TYPE_NONE)));
6760 SvREADONLY_on(sv);
6761 } while(0) /*@SWIG@*/;
6762 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6763 SV *sv = get_sv((char*) SWIG_prefix "PART_CACHE_TYPE_DISK", TRUE | 0x2 | GV_ADDMULTI);
6764 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PART_CACHE_TYPE_DISK)));
6765 SvREADONLY_on(sv);
6766 } while(0) /*@SWIG@*/;
6767 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6768 SV *sv = get_sv((char*) SWIG_prefix "PART_CACHE_TYPE_MEMORY", TRUE | 0x2 | GV_ADDMULTI);
6769 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(PART_CACHE_TYPE_MEMORY)));
6770 SvREADONLY_on(sv);
6771 } while(0) /*@SWIG@*/;
6772 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6773 SV *sv = get_sv((char*) SWIG_prefix "CFGERR_OK", TRUE | 0x2 | GV_ADDMULTI);
6774 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CFGERR_OK)));
6775 SvREADONLY_on(sv);
6776 } while(0) /*@SWIG@*/;
6777 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6778 SV *sv = get_sv((char*) SWIG_prefix "CFGERR_WARNINGS", TRUE | 0x2 | GV_ADDMULTI);
6779 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CFGERR_WARNINGS)));
6780 SvREADONLY_on(sv);
6781 } while(0) /*@SWIG@*/;
6782 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6783 SV *sv = get_sv((char*) SWIG_prefix "CFGERR_ERRORS", TRUE | 0x2 | GV_ADDMULTI);
6784 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CFGERR_ERRORS)));
6785 SvREADONLY_on(sv);
6786 } while(0) /*@SWIG@*/;
6787 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6788 SV *sv = get_sv((char*) SWIG_prefix "CONFIG_INIT_EXPLICIT_NAME", TRUE | 0x2 | GV_ADDMULTI);
6789 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CONFIG_INIT_EXPLICIT_NAME)));
6790 SvREADONLY_on(sv);
6791 } while(0) /*@SWIG@*/;
6792 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6793 SV *sv = get_sv((char*) SWIG_prefix "CONFIG_INIT_USE_CWD", TRUE | 0x2 | GV_ADDMULTI);
6794 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CONFIG_INIT_USE_CWD)));
6795 SvREADONLY_on(sv);
6796 } while(0) /*@SWIG@*/;
6797 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6798 SV *sv = get_sv((char*) SWIG_prefix "CONFIG_INIT_CLIENT", TRUE | 0x2 | GV_ADDMULTI);
6799 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CONFIG_INIT_CLIENT)));
6800 SvREADONLY_on(sv);
6801 } while(0) /*@SWIG@*/;
6802 /*@SWIG:/usr/share/swig/3.0.7/perl5/perltypemaps.swg,65,%set_constant@*/ do {
6803 SV *sv = get_sv((char*) SWIG_prefix "CONFIG_INIT_OVERLAY", TRUE | 0x2 | GV_ADDMULTI);
6804 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(CONFIG_INIT_OVERLAY)));
6805 SvREADONLY_on(sv);
6806 } while(0) /*@SWIG@*/;
6807 ST(0) = &PL_sv_yes;
6808 XSRETURN(1);
6809 }
6810
6811