1 /* ----------------------------------------------------------------------------
2 * This file was automatically generated by SWIG (http://www.swig.org).
3 * Version 4.0.1
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
12 #ifndef SWIGPERL
13 #define SWIGPERL
14 #endif
15
16 #define SWIG_CASTRANK_MODE
17
18 /* -----------------------------------------------------------------------------
19 * This section contains generic SWIG labels for method/variable
20 * declarations/attributes, and other compiler dependent labels.
21 * ----------------------------------------------------------------------------- */
22
23 /* template workaround for compilers that cannot correctly implement the C++ standard */
24 #ifndef SWIGTEMPLATEDISAMBIGUATOR
25 # if defined(__SUNPRO_CC) && (__SUNPRO_CC <= 0x560)
26 # define SWIGTEMPLATEDISAMBIGUATOR template
27 # elif defined(__HP_aCC)
28 /* Needed even with `aCC -AA' when `aCC -V' reports HP ANSI C++ B3910B A.03.55 */
29 /* If we find a maximum version that requires this, the test would be __HP_aCC <= 35500 for A.03.55 */
30 # define SWIGTEMPLATEDISAMBIGUATOR template
31 # else
32 # define SWIGTEMPLATEDISAMBIGUATOR
33 # endif
34 #endif
35
36 /* inline attribute */
37 #ifndef SWIGINLINE
38 # if defined(__cplusplus) || (defined(__GNUC__) && !defined(__STRICT_ANSI__))
39 # define SWIGINLINE inline
40 # else
41 # define SWIGINLINE
42 # endif
43 #endif
44
45 /* attribute recognised by some compilers to avoid 'unused' warnings */
46 #ifndef SWIGUNUSED
47 # if defined(__GNUC__)
48 # if !(defined(__cplusplus)) || (__GNUC__ > 3 || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4))
49 # define SWIGUNUSED __attribute__ ((__unused__))
50 # else
51 # define SWIGUNUSED
52 # endif
53 # elif defined(__ICC)
54 # define SWIGUNUSED __attribute__ ((__unused__))
55 # else
56 # define SWIGUNUSED
57 # endif
58 #endif
59
60 #ifndef SWIG_MSC_UNSUPPRESS_4505
61 # if defined(_MSC_VER)
62 # pragma warning(disable : 4505) /* unreferenced local function has been removed */
63 # endif
64 #endif
65
66 #ifndef SWIGUNUSEDPARM
67 # ifdef __cplusplus
68 # define SWIGUNUSEDPARM(p)
69 # else
70 # define SWIGUNUSEDPARM(p) p SWIGUNUSED
71 # endif
72 #endif
73
74 /* internal SWIG method */
75 #ifndef SWIGINTERN
76 # define SWIGINTERN static SWIGUNUSED
77 #endif
78
79 /* internal inline SWIG method */
80 #ifndef SWIGINTERNINLINE
81 # define SWIGINTERNINLINE SWIGINTERN SWIGINLINE
82 #endif
83
84 /* exporting methods */
85 #if defined(__GNUC__)
86 # if (__GNUC__ >= 4) || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4)
87 # ifndef GCC_HASCLASSVISIBILITY
88 # define GCC_HASCLASSVISIBILITY
89 # endif
90 # endif
91 #endif
92
93 #ifndef SWIGEXPORT
94 # if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
95 # if defined(STATIC_LINKED)
96 # define SWIGEXPORT
97 # else
98 # define SWIGEXPORT __declspec(dllexport)
99 # endif
100 # else
101 # if defined(__GNUC__) && defined(GCC_HASCLASSVISIBILITY)
102 # define SWIGEXPORT __attribute__ ((visibility("default")))
103 # else
104 # define SWIGEXPORT
105 # endif
106 # endif
107 #endif
108
109 /* calling conventions for Windows */
110 #ifndef SWIGSTDCALL
111 # if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
112 # define SWIGSTDCALL __stdcall
113 # else
114 # define SWIGSTDCALL
115 # endif
116 #endif
117
118 /* Deal with Microsoft's attempt at deprecating C standard runtime functions */
119 #if !defined(SWIG_NO_CRT_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_CRT_SECURE_NO_DEPRECATE)
120 # define _CRT_SECURE_NO_DEPRECATE
121 #endif
122
123 /* Deal with Microsoft's attempt at deprecating methods in the standard C++ library */
124 #if !defined(SWIG_NO_SCL_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_SCL_SECURE_NO_DEPRECATE)
125 # define _SCL_SECURE_NO_DEPRECATE
126 #endif
127
128 /* Deal with Apple's deprecated 'AssertMacros.h' from Carbon-framework */
129 #if defined(__APPLE__) && !defined(__ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES)
130 # define __ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES 0
131 #endif
132
133 /* Intel's compiler complains if a variable which was never initialised is
134 * cast to void, which is a common idiom which we use to indicate that we
135 * are aware a variable isn't used. So we just silence that warning.
136 * See: https://github.com/swig/swig/issues/192 for more discussion.
137 */
138 #ifdef __INTEL_COMPILER
139 # pragma warning disable 592
140 #endif
141
142 /* -----------------------------------------------------------------------------
143 * swigrun.swg
144 *
145 * This file contains generic C API SWIG runtime support for pointer
146 * type checking.
147 * ----------------------------------------------------------------------------- */
148
149 /* This should only be incremented when either the layout of swig_type_info changes,
150 or for whatever reason, the runtime changes incompatibly */
151 #define SWIG_RUNTIME_VERSION "4"
152
153 /* define SWIG_TYPE_TABLE_NAME as "SWIG_TYPE_TABLE" */
154 #ifdef SWIG_TYPE_TABLE
155 # define SWIG_QUOTE_STRING(x) #x
156 # define SWIG_EXPAND_AND_QUOTE_STRING(x) SWIG_QUOTE_STRING(x)
157 # define SWIG_TYPE_TABLE_NAME SWIG_EXPAND_AND_QUOTE_STRING(SWIG_TYPE_TABLE)
158 #else
159 # define SWIG_TYPE_TABLE_NAME
160 #endif
161
162 /*
163 You can use the SWIGRUNTIME and SWIGRUNTIMEINLINE macros for
164 creating a static or dynamic library from the SWIG runtime code.
165 In 99.9% of the cases, SWIG just needs to declare them as 'static'.
166
167 But only do this if strictly necessary, ie, if you have problems
168 with your compiler or suchlike.
169 */
170
171 #ifndef SWIGRUNTIME
172 # define SWIGRUNTIME SWIGINTERN
173 #endif
174
175 #ifndef SWIGRUNTIMEINLINE
176 # define SWIGRUNTIMEINLINE SWIGRUNTIME SWIGINLINE
177 #endif
178
179 /* Generic buffer size */
180 #ifndef SWIG_BUFFER_SIZE
181 # define SWIG_BUFFER_SIZE 1024
182 #endif
183
184 /* Flags for pointer conversions */
185 #define SWIG_POINTER_DISOWN 0x1
186 #define SWIG_CAST_NEW_MEMORY 0x2
187 #define SWIG_POINTER_NO_NULL 0x4
188
189 /* Flags for new pointer objects */
190 #define SWIG_POINTER_OWN 0x1
191
192
193 /*
194 Flags/methods for returning states.
195
196 The SWIG conversion methods, as ConvertPtr, return an integer
197 that tells if the conversion was successful or not. And if not,
198 an error code can be returned (see swigerrors.swg for the codes).
199
200 Use the following macros/flags to set or process the returning
201 states.
202
203 In old versions of SWIG, code such as the following was usually written:
204
205 if (SWIG_ConvertPtr(obj,vptr,ty.flags) != -1) {
206 // success code
207 } else {
208 //fail code
209 }
210
211 Now you can be more explicit:
212
213 int res = SWIG_ConvertPtr(obj,vptr,ty.flags);
214 if (SWIG_IsOK(res)) {
215 // success code
216 } else {
217 // fail code
218 }
219
220 which is the same really, but now you can also do
221
222 Type *ptr;
223 int res = SWIG_ConvertPtr(obj,(void **)(&ptr),ty.flags);
224 if (SWIG_IsOK(res)) {
225 // success code
226 if (SWIG_IsNewObj(res) {
227 ...
228 delete *ptr;
229 } else {
230 ...
231 }
232 } else {
233 // fail code
234 }
235
236 I.e., now SWIG_ConvertPtr can return new objects and you can
237 identify the case and take care of the deallocation. Of course that
238 also requires SWIG_ConvertPtr to return new result values, such as
239
240 int SWIG_ConvertPtr(obj, ptr,...) {
241 if (<obj is ok>) {
242 if (<need new object>) {
243 *ptr = <ptr to new allocated object>;
244 return SWIG_NEWOBJ;
245 } else {
246 *ptr = <ptr to old object>;
247 return SWIG_OLDOBJ;
248 }
249 } else {
250 return SWIG_BADOBJ;
251 }
252 }
253
254 Of course, returning the plain '0(success)/-1(fail)' still works, but you can be
255 more explicit by returning SWIG_BADOBJ, SWIG_ERROR or any of the
256 SWIG errors code.
257
258 Finally, if the SWIG_CASTRANK_MODE is enabled, the result code
259 allows to return the 'cast rank', for example, if you have this
260
261 int food(double)
262 int fooi(int);
263
264 and you call
265
266 food(1) // cast rank '1' (1 -> 1.0)
267 fooi(1) // cast rank '0'
268
269 just use the SWIG_AddCast()/SWIG_CheckState()
270 */
271
272 #define SWIG_OK (0)
273 #define SWIG_ERROR (-1)
274 #define SWIG_IsOK(r) (r >= 0)
275 #define SWIG_ArgError(r) ((r != SWIG_ERROR) ? r : SWIG_TypeError)
276
277 /* The CastRankLimit says how many bits are used for the cast rank */
278 #define SWIG_CASTRANKLIMIT (1 << 8)
279 /* The NewMask denotes the object was created (using new/malloc) */
280 #define SWIG_NEWOBJMASK (SWIG_CASTRANKLIMIT << 1)
281 /* The TmpMask is for in/out typemaps that use temporal objects */
282 #define SWIG_TMPOBJMASK (SWIG_NEWOBJMASK << 1)
283 /* Simple returning values */
284 #define SWIG_BADOBJ (SWIG_ERROR)
285 #define SWIG_OLDOBJ (SWIG_OK)
286 #define SWIG_NEWOBJ (SWIG_OK | SWIG_NEWOBJMASK)
287 #define SWIG_TMPOBJ (SWIG_OK | SWIG_TMPOBJMASK)
288 /* Check, add and del mask methods */
289 #define SWIG_AddNewMask(r) (SWIG_IsOK(r) ? (r | SWIG_NEWOBJMASK) : r)
290 #define SWIG_DelNewMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_NEWOBJMASK) : r)
291 #define SWIG_IsNewObj(r) (SWIG_IsOK(r) && (r & SWIG_NEWOBJMASK))
292 #define SWIG_AddTmpMask(r) (SWIG_IsOK(r) ? (r | SWIG_TMPOBJMASK) : r)
293 #define SWIG_DelTmpMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_TMPOBJMASK) : r)
294 #define SWIG_IsTmpObj(r) (SWIG_IsOK(r) && (r & SWIG_TMPOBJMASK))
295
296 /* Cast-Rank Mode */
297 #if defined(SWIG_CASTRANK_MODE)
298 # ifndef SWIG_TypeRank
299 # define SWIG_TypeRank unsigned long
300 # endif
301 # ifndef SWIG_MAXCASTRANK /* Default cast allowed */
302 # define SWIG_MAXCASTRANK (2)
303 # endif
304 # define SWIG_CASTRANKMASK ((SWIG_CASTRANKLIMIT) -1)
305 # define SWIG_CastRank(r) (r & SWIG_CASTRANKMASK)
SWIG_AddCast(int r)306 SWIGINTERNINLINE int SWIG_AddCast(int r) {
307 return SWIG_IsOK(r) ? ((SWIG_CastRank(r) < SWIG_MAXCASTRANK) ? (r + 1) : SWIG_ERROR) : r;
308 }
SWIG_CheckState(int r)309 SWIGINTERNINLINE int SWIG_CheckState(int r) {
310 return SWIG_IsOK(r) ? SWIG_CastRank(r) + 1 : 0;
311 }
312 #else /* no cast-rank mode */
313 # define SWIG_AddCast(r) (r)
314 # define SWIG_CheckState(r) (SWIG_IsOK(r) ? 1 : 0)
315 #endif
316
317
318 #include <string.h>
319
320 #ifdef __cplusplus
321 extern "C" {
322 #endif
323
324 typedef void *(*swig_converter_func)(void *, int *);
325 typedef struct swig_type_info *(*swig_dycast_func)(void **);
326
327 /* Structure to store information on one type */
328 typedef struct swig_type_info {
329 const char *name; /* mangled name of this type */
330 const char *str; /* human readable name of this type */
331 swig_dycast_func dcast; /* dynamic cast function down a hierarchy */
332 struct swig_cast_info *cast; /* linked list of types that can cast into this type */
333 void *clientdata; /* language specific type data */
334 int owndata; /* flag if the structure owns the clientdata */
335 } swig_type_info;
336
337 /* Structure to store a type and conversion function used for casting */
338 typedef struct swig_cast_info {
339 swig_type_info *type; /* pointer to type that is equivalent to this type */
340 swig_converter_func converter; /* function to cast the void pointers */
341 struct swig_cast_info *next; /* pointer to next cast in linked list */
342 struct swig_cast_info *prev; /* pointer to the previous cast */
343 } swig_cast_info;
344
345 /* Structure used to store module information
346 * Each module generates one structure like this, and the runtime collects
347 * all of these structures and stores them in a circularly linked list.*/
348 typedef struct swig_module_info {
349 swig_type_info **types; /* Array of pointers to swig_type_info structures that are in this module */
350 size_t size; /* Number of types in this module */
351 struct swig_module_info *next; /* Pointer to next element in circularly linked list */
352 swig_type_info **type_initial; /* Array of initially generated type structures */
353 swig_cast_info **cast_initial; /* Array of initially generated casting structures */
354 void *clientdata; /* Language specific module data */
355 } swig_module_info;
356
357 /*
358 Compare two type names skipping the space characters, therefore
359 "char*" == "char *" and "Class<int>" == "Class<int >", etc.
360
361 Return 0 when the two name types are equivalent, as in
362 strncmp, but skipping ' '.
363 */
364 SWIGRUNTIME int
SWIG_TypeNameComp(const char * f1,const char * l1,const char * f2,const char * l2)365 SWIG_TypeNameComp(const char *f1, const char *l1,
366 const char *f2, const char *l2) {
367 for (;(f1 != l1) && (f2 != l2); ++f1, ++f2) {
368 while ((*f1 == ' ') && (f1 != l1)) ++f1;
369 while ((*f2 == ' ') && (f2 != l2)) ++f2;
370 if (*f1 != *f2) return (*f1 > *f2) ? 1 : -1;
371 }
372 return (int)((l1 - f1) - (l2 - f2));
373 }
374
375 /*
376 Check type equivalence in a name list like <name1>|<name2>|...
377 Return 0 if equal, -1 if nb < tb, 1 if nb > tb
378 */
379 SWIGRUNTIME int
SWIG_TypeCmp(const char * nb,const char * tb)380 SWIG_TypeCmp(const char *nb, const char *tb) {
381 int equiv = 1;
382 const char* te = tb + strlen(tb);
383 const char* ne = nb;
384 while (equiv != 0 && *ne) {
385 for (nb = ne; *ne; ++ne) {
386 if (*ne == '|') break;
387 }
388 equiv = SWIG_TypeNameComp(nb, ne, tb, te);
389 if (*ne) ++ne;
390 }
391 return equiv;
392 }
393
394 /*
395 Check type equivalence in a name list like <name1>|<name2>|...
396 Return 0 if not equal, 1 if equal
397 */
398 SWIGRUNTIME int
SWIG_TypeEquiv(const char * nb,const char * tb)399 SWIG_TypeEquiv(const char *nb, const char *tb) {
400 return SWIG_TypeCmp(nb, tb) == 0 ? 1 : 0;
401 }
402
403 /*
404 Check the typename
405 */
406 SWIGRUNTIME swig_cast_info *
SWIG_TypeCheck(const char * c,swig_type_info * ty)407 SWIG_TypeCheck(const char *c, swig_type_info *ty) {
408 if (ty) {
409 swig_cast_info *iter = ty->cast;
410 while (iter) {
411 if (strcmp(iter->type->name, c) == 0) {
412 if (iter == ty->cast)
413 return iter;
414 /* Move iter to the top of the linked list */
415 iter->prev->next = iter->next;
416 if (iter->next)
417 iter->next->prev = iter->prev;
418 iter->next = ty->cast;
419 iter->prev = 0;
420 if (ty->cast) ty->cast->prev = iter;
421 ty->cast = iter;
422 return iter;
423 }
424 iter = iter->next;
425 }
426 }
427 return 0;
428 }
429
430 /*
431 Identical to SWIG_TypeCheck, except strcmp is replaced with a pointer comparison
432 */
433 SWIGRUNTIME swig_cast_info *
SWIG_TypeCheckStruct(swig_type_info * from,swig_type_info * ty)434 SWIG_TypeCheckStruct(swig_type_info *from, swig_type_info *ty) {
435 if (ty) {
436 swig_cast_info *iter = ty->cast;
437 while (iter) {
438 if (iter->type == from) {
439 if (iter == ty->cast)
440 return iter;
441 /* Move iter to the top of the linked list */
442 iter->prev->next = iter->next;
443 if (iter->next)
444 iter->next->prev = iter->prev;
445 iter->next = ty->cast;
446 iter->prev = 0;
447 if (ty->cast) ty->cast->prev = iter;
448 ty->cast = iter;
449 return iter;
450 }
451 iter = iter->next;
452 }
453 }
454 return 0;
455 }
456
457 /*
458 Cast a pointer up an inheritance hierarchy
459 */
460 SWIGRUNTIMEINLINE void *
SWIG_TypeCast(swig_cast_info * ty,void * ptr,int * newmemory)461 SWIG_TypeCast(swig_cast_info *ty, void *ptr, int *newmemory) {
462 return ((!ty) || (!ty->converter)) ? ptr : (*ty->converter)(ptr, newmemory);
463 }
464
465 /*
466 Dynamic pointer casting. Down an inheritance hierarchy
467 */
468 SWIGRUNTIME swig_type_info *
SWIG_TypeDynamicCast(swig_type_info * ty,void ** ptr)469 SWIG_TypeDynamicCast(swig_type_info *ty, void **ptr) {
470 swig_type_info *lastty = ty;
471 if (!ty || !ty->dcast) return ty;
472 while (ty && (ty->dcast)) {
473 ty = (*ty->dcast)(ptr);
474 if (ty) lastty = ty;
475 }
476 return lastty;
477 }
478
479 /*
480 Return the name associated with this type
481 */
482 SWIGRUNTIMEINLINE const char *
SWIG_TypeName(const swig_type_info * ty)483 SWIG_TypeName(const swig_type_info *ty) {
484 return ty->name;
485 }
486
487 /*
488 Return the pretty name associated with this type,
489 that is an unmangled type name in a form presentable to the user.
490 */
491 SWIGRUNTIME const char *
SWIG_TypePrettyName(const swig_type_info * type)492 SWIG_TypePrettyName(const swig_type_info *type) {
493 /* The "str" field contains the equivalent pretty names of the
494 type, separated by vertical-bar characters. We choose
495 to print the last name, as it is often (?) the most
496 specific. */
497 if (!type) return NULL;
498 if (type->str != NULL) {
499 const char *last_name = type->str;
500 const char *s;
501 for (s = type->str; *s; s++)
502 if (*s == '|') last_name = s+1;
503 return last_name;
504 }
505 else
506 return type->name;
507 }
508
509 /*
510 Set the clientdata field for a type
511 */
512 SWIGRUNTIME void
SWIG_TypeClientData(swig_type_info * ti,void * clientdata)513 SWIG_TypeClientData(swig_type_info *ti, void *clientdata) {
514 swig_cast_info *cast = ti->cast;
515 /* if (ti->clientdata == clientdata) return; */
516 ti->clientdata = clientdata;
517
518 while (cast) {
519 if (!cast->converter) {
520 swig_type_info *tc = cast->type;
521 if (!tc->clientdata) {
522 SWIG_TypeClientData(tc, clientdata);
523 }
524 }
525 cast = cast->next;
526 }
527 }
528 SWIGRUNTIME void
SWIG_TypeNewClientData(swig_type_info * ti,void * clientdata)529 SWIG_TypeNewClientData(swig_type_info *ti, void *clientdata) {
530 SWIG_TypeClientData(ti, clientdata);
531 ti->owndata = 1;
532 }
533
534 /*
535 Search for a swig_type_info structure only by mangled name
536 Search is a O(log #types)
537
538 We start searching at module start, and finish searching when start == end.
539 Note: if start == end at the beginning of the function, we go all the way around
540 the circular list.
541 */
542 SWIGRUNTIME swig_type_info *
SWIG_MangledTypeQueryModule(swig_module_info * start,swig_module_info * end,const char * name)543 SWIG_MangledTypeQueryModule(swig_module_info *start,
544 swig_module_info *end,
545 const char *name) {
546 swig_module_info *iter = start;
547 do {
548 if (iter->size) {
549 size_t l = 0;
550 size_t r = iter->size - 1;
551 do {
552 /* since l+r >= 0, we can (>> 1) instead (/ 2) */
553 size_t i = (l + r) >> 1;
554 const char *iname = iter->types[i]->name;
555 if (iname) {
556 int compare = strcmp(name, iname);
557 if (compare == 0) {
558 return iter->types[i];
559 } else if (compare < 0) {
560 if (i) {
561 r = i - 1;
562 } else {
563 break;
564 }
565 } else if (compare > 0) {
566 l = i + 1;
567 }
568 } else {
569 break; /* should never happen */
570 }
571 } while (l <= r);
572 }
573 iter = iter->next;
574 } while (iter != end);
575 return 0;
576 }
577
578 /*
579 Search for a swig_type_info structure for either a mangled name or a human readable name.
580 It first searches the mangled names of the types, which is a O(log #types)
581 If a type is not found it then searches the human readable names, which is O(#types).
582
583 We start searching at module start, and finish searching when start == end.
584 Note: if start == end at the beginning of the function, we go all the way around
585 the circular list.
586 */
587 SWIGRUNTIME swig_type_info *
SWIG_TypeQueryModule(swig_module_info * start,swig_module_info * end,const char * name)588 SWIG_TypeQueryModule(swig_module_info *start,
589 swig_module_info *end,
590 const char *name) {
591 /* STEP 1: Search the name field using binary search */
592 swig_type_info *ret = SWIG_MangledTypeQueryModule(start, end, name);
593 if (ret) {
594 return ret;
595 } else {
596 /* STEP 2: If the type hasn't been found, do a complete search
597 of the str field (the human readable name) */
598 swig_module_info *iter = start;
599 do {
600 size_t i = 0;
601 for (; i < iter->size; ++i) {
602 if (iter->types[i]->str && (SWIG_TypeEquiv(iter->types[i]->str, name)))
603 return iter->types[i];
604 }
605 iter = iter->next;
606 } while (iter != end);
607 }
608
609 /* neither found a match */
610 return 0;
611 }
612
613 /*
614 Pack binary data into a string
615 */
616 SWIGRUNTIME char *
SWIG_PackData(char * c,void * ptr,size_t sz)617 SWIG_PackData(char *c, void *ptr, size_t sz) {
618 static const char hex[17] = "0123456789abcdef";
619 const unsigned char *u = (unsigned char *) ptr;
620 const unsigned char *eu = u + sz;
621 for (; u != eu; ++u) {
622 unsigned char uu = *u;
623 *(c++) = hex[(uu & 0xf0) >> 4];
624 *(c++) = hex[uu & 0xf];
625 }
626 return c;
627 }
628
629 /*
630 Unpack binary data from a string
631 */
632 SWIGRUNTIME const char *
SWIG_UnpackData(const char * c,void * ptr,size_t sz)633 SWIG_UnpackData(const char *c, void *ptr, size_t sz) {
634 unsigned char *u = (unsigned char *) ptr;
635 const unsigned char *eu = u + sz;
636 for (; u != eu; ++u) {
637 char d = *(c++);
638 unsigned char uu;
639 if ((d >= '0') && (d <= '9'))
640 uu = (unsigned char)((d - '0') << 4);
641 else if ((d >= 'a') && (d <= 'f'))
642 uu = (unsigned char)((d - ('a'-10)) << 4);
643 else
644 return (char *) 0;
645 d = *(c++);
646 if ((d >= '0') && (d <= '9'))
647 uu |= (unsigned char)(d - '0');
648 else if ((d >= 'a') && (d <= 'f'))
649 uu |= (unsigned char)(d - ('a'-10));
650 else
651 return (char *) 0;
652 *u = uu;
653 }
654 return c;
655 }
656
657 /*
658 Pack 'void *' into a string buffer.
659 */
660 SWIGRUNTIME char *
SWIG_PackVoidPtr(char * buff,void * ptr,const char * name,size_t bsz)661 SWIG_PackVoidPtr(char *buff, void *ptr, const char *name, size_t bsz) {
662 char *r = buff;
663 if ((2*sizeof(void *) + 2) > bsz) return 0;
664 *(r++) = '_';
665 r = SWIG_PackData(r,&ptr,sizeof(void *));
666 if (strlen(name) + 1 > (bsz - (r - buff))) return 0;
667 strcpy(r,name);
668 return buff;
669 }
670
671 SWIGRUNTIME const char *
SWIG_UnpackVoidPtr(const char * c,void ** ptr,const char * name)672 SWIG_UnpackVoidPtr(const char *c, void **ptr, const char *name) {
673 if (*c != '_') {
674 if (strcmp(c,"NULL") == 0) {
675 *ptr = (void *) 0;
676 return name;
677 } else {
678 return 0;
679 }
680 }
681 return SWIG_UnpackData(++c,ptr,sizeof(void *));
682 }
683
684 SWIGRUNTIME char *
SWIG_PackDataName(char * buff,void * ptr,size_t sz,const char * name,size_t bsz)685 SWIG_PackDataName(char *buff, void *ptr, size_t sz, const char *name, size_t bsz) {
686 char *r = buff;
687 size_t lname = (name ? strlen(name) : 0);
688 if ((2*sz + 2 + lname) > bsz) return 0;
689 *(r++) = '_';
690 r = SWIG_PackData(r,ptr,sz);
691 if (lname) {
692 strncpy(r,name,lname+1);
693 } else {
694 *r = 0;
695 }
696 return buff;
697 }
698
699 SWIGRUNTIME const char *
SWIG_UnpackDataName(const char * c,void * ptr,size_t sz,const char * name)700 SWIG_UnpackDataName(const char *c, void *ptr, size_t sz, const char *name) {
701 if (*c != '_') {
702 if (strcmp(c,"NULL") == 0) {
703 memset(ptr,0,sz);
704 return name;
705 } else {
706 return 0;
707 }
708 }
709 return SWIG_UnpackData(++c,ptr,sz);
710 }
711
712 #ifdef __cplusplus
713 }
714 #endif
715
716 /* Errors in SWIG */
717 #define SWIG_UnknownError -1
718 #define SWIG_IOError -2
719 #define SWIG_RuntimeError -3
720 #define SWIG_IndexError -4
721 #define SWIG_TypeError -5
722 #define SWIG_DivisionByZero -6
723 #define SWIG_OverflowError -7
724 #define SWIG_SyntaxError -8
725 #define SWIG_ValueError -9
726 #define SWIG_SystemError -10
727 #define SWIG_AttributeError -11
728 #define SWIG_MemoryError -12
729 #define SWIG_NullReferenceError -13
730
731
732
733 #ifdef __cplusplus
734 /* Needed on some windows machines---since MS plays funny games with the header files under C++ */
735 #include <math.h>
736 #include <stdlib.h>
737 extern "C" {
738 #endif
739 #include "EXTERN.h"
740 #include "perl.h"
741 #include "XSUB.h"
742
743 /* Add in functionality missing in older versions of Perl. Much of this is based on Devel-PPPort on cpan. */
744
745 /* Add PERL_REVISION, PERL_VERSION, PERL_SUBVERSION if missing */
746 #ifndef PERL_REVISION
747 # if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
748 # define PERL_PATCHLEVEL_H_IMPLICIT
749 # include <patchlevel.h>
750 # endif
751 # if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
752 # include <could_not_find_Perl_patchlevel.h>
753 # endif
754 # ifndef PERL_REVISION
755 # define PERL_REVISION (5)
756 # define PERL_VERSION PATCHLEVEL
757 # define PERL_SUBVERSION SUBVERSION
758 # endif
759 #endif
760
761 #if defined(WIN32) && defined(PERL_OBJECT) && !defined(PerlIO_exportFILE)
762 #define PerlIO_exportFILE(fh,fl) (FILE*)(fh)
763 #endif
764
765 #ifndef SvIOK_UV
766 # define SvIOK_UV(sv) (SvIOK(sv) && (SvUVX(sv) == SvIVX(sv)))
767 #endif
768
769 #ifndef SvUOK
770 # define SvUOK(sv) SvIOK_UV(sv)
771 #endif
772
773 #if ((PERL_VERSION < 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION <= 5)))
774 # define PL_sv_undef sv_undef
775 # define PL_na na
776 # define PL_errgv errgv
777 # define PL_sv_no sv_no
778 # define PL_sv_yes sv_yes
779 # define PL_markstack_ptr markstack_ptr
780 #endif
781
782 #ifndef IVSIZE
783 # ifdef LONGSIZE
784 # define IVSIZE LONGSIZE
785 # else
786 # define IVSIZE 4 /* A bold guess, but the best we can make. */
787 # endif
788 #endif
789
790 #ifndef INT2PTR
791 # if (IVSIZE == PTRSIZE) && (UVSIZE == PTRSIZE)
792 # define PTRV UV
793 # define INT2PTR(any,d) (any)(d)
794 # else
795 # if PTRSIZE == LONGSIZE
796 # define PTRV unsigned long
797 # else
798 # define PTRV unsigned
799 # endif
800 # define INT2PTR(any,d) (any)(PTRV)(d)
801 # endif
802
803 # define NUM2PTR(any,d) (any)(PTRV)(d)
804 # define PTR2IV(p) INT2PTR(IV,p)
805 # define PTR2UV(p) INT2PTR(UV,p)
806 # define PTR2NV(p) NUM2PTR(NV,p)
807
808 # if PTRSIZE == LONGSIZE
809 # define PTR2ul(p) (unsigned long)(p)
810 # else
811 # define PTR2ul(p) INT2PTR(unsigned long,p)
812 # endif
813 #endif /* !INT2PTR */
814
815 #ifndef SvPV_nolen
816 # define SvPV_nolen(x) SvPV(x,PL_na)
817 #endif
818
819 #ifndef get_sv
820 # define get_sv perl_get_sv
821 #endif
822
823 #ifndef ERRSV
824 # define ERRSV get_sv("@",FALSE)
825 #endif
826
827 #ifndef pTHX_
828 #define pTHX_
829 #endif
830
831 #include <string.h>
832 #ifdef __cplusplus
833 }
834 #endif
835
836 /* -----------------------------------------------------------------------------
837 * error manipulation
838 * ----------------------------------------------------------------------------- */
839
840 SWIGINTERN const char*
SWIG_Perl_ErrorType(int code)841 SWIG_Perl_ErrorType(int code) {
842 switch(code) {
843 case SWIG_MemoryError:
844 return "MemoryError";
845 case SWIG_IOError:
846 return "IOError";
847 case SWIG_RuntimeError:
848 return "RuntimeError";
849 case SWIG_IndexError:
850 return "IndexError";
851 case SWIG_TypeError:
852 return "TypeError";
853 case SWIG_DivisionByZero:
854 return "ZeroDivisionError";
855 case SWIG_OverflowError:
856 return "OverflowError";
857 case SWIG_SyntaxError:
858 return "SyntaxError";
859 case SWIG_ValueError:
860 return "ValueError";
861 case SWIG_SystemError:
862 return "SystemError";
863 case SWIG_AttributeError:
864 return "AttributeError";
865 default:
866 return "RuntimeError";
867 }
868 }
869
870
871 /* -----------------------------------------------------------------------------
872 * perlrun.swg
873 *
874 * This file contains the runtime support for Perl modules
875 * and includes code for managing global variables and pointer
876 * type checking.
877 * ----------------------------------------------------------------------------- */
878
879 #ifdef PERL_OBJECT
880 #define SWIG_PERL_OBJECT_DECL CPerlObj *SWIGUNUSEDPARM(pPerl),
881 #define SWIG_PERL_OBJECT_CALL pPerl,
882 #else
883 #define SWIG_PERL_OBJECT_DECL
884 #define SWIG_PERL_OBJECT_CALL
885 #endif
886
887 /* Common SWIG API */
888
889 /* for raw pointers */
890 #define SWIG_ConvertPtr(obj, pp, type, flags) SWIG_Perl_ConvertPtr(SWIG_PERL_OBJECT_CALL obj, pp, type, flags)
891 #define SWIG_ConvertPtrAndOwn(obj, pp, type, flags,own) SWIG_Perl_ConvertPtrAndOwn(SWIG_PERL_OBJECT_CALL obj, pp, type, flags, own)
892 #define SWIG_NewPointerObj(p, type, flags) SWIG_Perl_NewPointerObj(SWIG_PERL_OBJECT_CALL p, type, flags)
893 #define SWIG_AcquirePtr(ptr, src) SWIG_Perl_AcquirePtr(ptr, src)
894 #define swig_owntype int
895
896 /* for raw packed data */
897 #define SWIG_ConvertPacked(obj, p, s, type) SWIG_Perl_ConvertPacked(SWIG_PERL_OBJECT_CALL obj, p, s, type)
898 #define SWIG_NewPackedObj(p, s, type) SWIG_Perl_NewPackedObj(SWIG_PERL_OBJECT_CALL p, s, type)
899
900 /* for class or struct pointers */
901 #define SWIG_ConvertInstance(obj, pptr, type, flags) SWIG_ConvertPtr(obj, pptr, type, flags)
902 #define SWIG_NewInstanceObj(ptr, type, flags) SWIG_NewPointerObj(ptr, type, flags)
903
904 /* for C or C++ function pointers */
905 #define SWIG_ConvertFunctionPtr(obj, pptr, type) SWIG_ConvertPtr(obj, pptr, type, 0)
906 #define SWIG_NewFunctionPtrObj(ptr, type) SWIG_NewPointerObj(ptr, type, 0)
907
908 /* for C++ member pointers, ie, member methods */
909 #define SWIG_ConvertMember(obj, ptr, sz, ty) SWIG_ConvertPacked(obj, ptr, sz, ty)
910 #define SWIG_NewMemberObj(ptr, sz, type) SWIG_NewPackedObj(ptr, sz, type)
911
912
913 /* Runtime API */
914
915 #define SWIG_GetModule(clientdata) SWIG_Perl_GetModule(clientdata)
916 #define SWIG_SetModule(clientdata, pointer) SWIG_Perl_SetModule(pointer)
917
918
919 /* Error manipulation */
920
921 #define SWIG_ErrorType(code) SWIG_Perl_ErrorType(code)
922 #define SWIG_Error(code, msg) sv_setpvf(get_sv("@", GV_ADD), "%s %s", SWIG_ErrorType(code), msg)
923 #define SWIG_fail goto fail
924
925 /* Perl-specific SWIG API */
926
927 #define SWIG_MakePtr(sv, ptr, type, flags) SWIG_Perl_MakePtr(SWIG_PERL_OBJECT_CALL sv, ptr, type, flags)
928 #define SWIG_MakePackedObj(sv, p, s, type) SWIG_Perl_MakePackedObj(SWIG_PERL_OBJECT_CALL sv, p, s, type)
929 #define SWIG_SetError(str) SWIG_Error(SWIG_RuntimeError, str)
930
931
932 #define SWIG_PERL_DECL_ARGS_1(arg1) (SWIG_PERL_OBJECT_DECL arg1)
933 #define SWIG_PERL_CALL_ARGS_1(arg1) (SWIG_PERL_OBJECT_CALL arg1)
934 #define SWIG_PERL_DECL_ARGS_2(arg1, arg2) (SWIG_PERL_OBJECT_DECL arg1, arg2)
935 #define SWIG_PERL_CALL_ARGS_2(arg1, arg2) (SWIG_PERL_OBJECT_CALL arg1, arg2)
936
937 /* -----------------------------------------------------------------------------
938 * pointers/data manipulation
939 * ----------------------------------------------------------------------------- */
940
941 /* For backward compatibility only */
942 #define SWIG_POINTER_EXCEPTION 0
943
944 #ifdef __cplusplus
945 extern "C" {
946 #endif
947
948 #define SWIG_OWNER SWIG_POINTER_OWN
949 #define SWIG_SHADOW SWIG_OWNER << 1
950
951 #define SWIG_MAYBE_PERL_OBJECT SWIG_PERL_OBJECT_DECL
952
953 /* SWIG Perl macros */
954
955 /* Macro to declare an XS function */
956 #ifndef XSPROTO
957 # define XSPROTO(name) void name(pTHX_ CV* cv)
958 #endif
959
960 /* Macro to call an XS function */
961 #ifdef PERL_OBJECT
962 # define SWIG_CALLXS(_name) _name(cv,pPerl)
963 #else
964 # ifndef MULTIPLICITY
965 # define SWIG_CALLXS(_name) _name(cv)
966 # else
967 # define SWIG_CALLXS(_name) _name(PERL_GET_THX, cv)
968 # endif
969 #endif
970
971 #ifdef PERL_OBJECT
972 #define MAGIC_PPERL CPerlObj *pPerl = (CPerlObj *) this;
973
974 #ifdef __cplusplus
975 extern "C" {
976 #endif
977 typedef int (CPerlObj::*SwigMagicFunc)(SV *, MAGIC *);
978 #ifdef __cplusplus
979 }
980 #endif
981
982 #define SWIG_MAGIC(a,b) (SV *a, MAGIC *b)
983 #define SWIGCLASS_STATIC
984
985 #else /* PERL_OBJECT */
986
987 #define MAGIC_PPERL
988 #define SWIGCLASS_STATIC static SWIGUNUSED
989
990 #ifndef MULTIPLICITY
991 #define SWIG_MAGIC(a,b) (SV *a, MAGIC *b)
992
993 #ifdef __cplusplus
994 extern "C" {
995 #endif
996 typedef int (*SwigMagicFunc)(SV *, MAGIC *);
997 #ifdef __cplusplus
998 }
999 #endif
1000
1001 #else /* MULTIPLICITY */
1002
1003 #define SWIG_MAGIC(a,b) (struct interpreter *interp, SV *a, MAGIC *b)
1004
1005 #ifdef __cplusplus
1006 extern "C" {
1007 #endif
1008 typedef int (*SwigMagicFunc)(struct interpreter *, SV *, MAGIC *);
1009 #ifdef __cplusplus
1010 }
1011 #endif
1012
1013 #endif /* MULTIPLICITY */
1014 #endif /* PERL_OBJECT */
1015
1016 # ifdef PERL_OBJECT
1017 # define SWIG_croak_null() SWIG_Perl_croak_null(pPerl)
SWIG_Perl_croak_null(CPerlObj * pPerl)1018 static void SWIGUNUSED SWIG_Perl_croak_null(CPerlObj *pPerl)
1019 # else
1020 static void SWIGUNUSED SWIG_croak_null()
1021 # endif
1022 {
1023 SV *err = get_sv("@", GV_ADD);
1024 # if (PERL_VERSION < 6)
1025 croak("%_", err);
1026 # else
1027 if (sv_isobject(err))
1028 croak(0);
1029 else
1030 croak("%s", SvPV_nolen(err));
1031 # endif
1032 }
1033
1034
1035 /*
1036 Define how strict is the cast between strings and integers/doubles
1037 when overloading between these types occurs.
1038
1039 The default is making it as strict as possible by using SWIG_AddCast
1040 when needed.
1041
1042 You can use -DSWIG_PERL_NO_STRICT_STR2NUM at compilation time to
1043 disable the SWIG_AddCast, making the casting between string and
1044 numbers less strict.
1045
1046 In the end, we try to solve the overloading between strings and
1047 numerical types in the more natural way, but if you can avoid it,
1048 well, avoid it using %rename, for example.
1049 */
1050 #ifndef SWIG_PERL_NO_STRICT_STR2NUM
1051 # ifndef SWIG_PERL_STRICT_STR2NUM
1052 # define SWIG_PERL_STRICT_STR2NUM
1053 # endif
1054 #endif
1055 #ifdef SWIG_PERL_STRICT_STR2NUM
1056 /* string takes precedence */
1057 #define SWIG_Str2NumCast(x) SWIG_AddCast(x)
1058 #else
1059 /* number takes precedence */
1060 #define SWIG_Str2NumCast(x) x
1061 #endif
1062
1063
1064
1065 #include <stdlib.h>
1066
1067 SWIGRUNTIME const char *
SWIG_Perl_TypeProxyName(const swig_type_info * type)1068 SWIG_Perl_TypeProxyName(const swig_type_info *type) {
1069 if (!type) return NULL;
1070 if (type->clientdata != NULL) {
1071 return (const char*) type->clientdata;
1072 }
1073 else {
1074 return type->name;
1075 }
1076 }
1077
1078 /* Identical to SWIG_TypeCheck, except for strcmp comparison */
1079 SWIGRUNTIME swig_cast_info *
SWIG_TypeProxyCheck(const char * c,swig_type_info * ty)1080 SWIG_TypeProxyCheck(const char *c, swig_type_info *ty) {
1081 if (ty) {
1082 swig_cast_info *iter = ty->cast;
1083 while (iter) {
1084 if (strcmp(SWIG_Perl_TypeProxyName(iter->type), c) == 0) {
1085 if (iter == ty->cast)
1086 return iter;
1087 /* Move iter to the top of the linked list */
1088 iter->prev->next = iter->next;
1089 if (iter->next)
1090 iter->next->prev = iter->prev;
1091 iter->next = ty->cast;
1092 iter->prev = 0;
1093 if (ty->cast) ty->cast->prev = iter;
1094 ty->cast = iter;
1095 return iter;
1096 }
1097 iter = iter->next;
1098 }
1099 }
1100 return 0;
1101 }
1102
1103 /* Acquire a pointer value */
1104
1105 SWIGRUNTIME int
SWIG_Perl_AcquirePtr(SWIG_MAYBE_PERL_OBJECT SV * sv,int own)1106 SWIG_Perl_AcquirePtr(SWIG_MAYBE_PERL_OBJECT SV *sv, int own) {
1107 /* TODO */
1108 return 0;
1109 }
1110
1111 /* Function for getting a pointer value */
1112
1113 SWIGRUNTIME int
SWIG_Perl_ConvertPtrAndOwn(SWIG_MAYBE_PERL_OBJECT SV * sv,void ** ptr,swig_type_info * _t,int flags,int * own)1114 SWIG_Perl_ConvertPtrAndOwn(SWIG_MAYBE_PERL_OBJECT SV *sv, void **ptr, swig_type_info *_t, int flags, int *own) {
1115 swig_cast_info *tc;
1116 void *voidptr = (void *)0;
1117 SV *tsv = 0;
1118
1119 if (own)
1120 *own = 0;
1121
1122 /* If magical, apply more magic */
1123 if (SvGMAGICAL(sv))
1124 mg_get(sv);
1125
1126 /* Check to see if this is an object */
1127 if (sv_isobject(sv)) {
1128 IV tmp = 0;
1129 tsv = (SV*) SvRV(sv);
1130 if ((SvTYPE(tsv) == SVt_PVHV)) {
1131 MAGIC *mg;
1132 if (SvMAGICAL(tsv)) {
1133 mg = mg_find(tsv,'P');
1134 if (mg) {
1135 sv = mg->mg_obj;
1136 if (sv_isobject(sv)) {
1137 tsv = (SV*)SvRV(sv);
1138 tmp = SvIV(tsv);
1139 }
1140 }
1141 } else {
1142 return SWIG_ERROR;
1143 }
1144 } else {
1145 tmp = SvIV(tsv);
1146 }
1147 voidptr = INT2PTR(void *,tmp);
1148 } else if (! SvOK(sv)) { /* Check for undef */
1149 *(ptr) = (void *) 0;
1150 return (flags & SWIG_POINTER_NO_NULL) ? SWIG_NullReferenceError : SWIG_OK;
1151 } else if (SvTYPE(sv) == SVt_RV) { /* Check for NULL pointer */
1152 if (!SvROK(sv)) {
1153 /* In Perl 5.12 and later, SVt_RV == SVt_IV, so sv could be a valid integer value. */
1154 if (SvIOK(sv)) {
1155 return SWIG_ERROR;
1156 } else {
1157 /* NULL pointer (reference to undef). */
1158 *(ptr) = (void *) 0;
1159 return SWIG_OK;
1160 }
1161 } else {
1162 return SWIG_ERROR;
1163 }
1164 } else { /* Don't know what it is */
1165 return SWIG_ERROR;
1166 }
1167 if (_t) {
1168 /* Now see if the types match */
1169 char *_c = HvNAME(SvSTASH(SvRV(sv)));
1170 tc = SWIG_TypeProxyCheck(_c,_t);
1171 #ifdef SWIG_DIRECTORS
1172 if (!tc && !sv_derived_from(sv,SWIG_Perl_TypeProxyName(_t))) {
1173 #else
1174 if (!tc) {
1175 #endif
1176 return SWIG_ERROR;
1177 }
1178 {
1179 int newmemory = 0;
1180 *ptr = SWIG_TypeCast(tc,voidptr,&newmemory);
1181 if (newmemory == SWIG_CAST_NEW_MEMORY) {
1182 assert(own); /* badly formed typemap which will lead to a memory leak - it must set and use own to delete *ptr */
1183 if (own)
1184 *own = *own | SWIG_CAST_NEW_MEMORY;
1185 }
1186 }
1187 } else {
1188 *ptr = voidptr;
1189 }
1190
1191 /*
1192 * DISOWN implementation: we need a perl guru to check this one.
1193 */
1194 if (tsv && (flags & SWIG_POINTER_DISOWN)) {
1195 /*
1196 * almost copy paste code from below SWIG_POINTER_OWN setting
1197 */
1198 SV *obj = sv;
1199 HV *stash = SvSTASH(SvRV(obj));
1200 GV *gv = *(GV**)hv_fetch(stash, "OWNER", 5, TRUE);
1201 if (isGV(gv)) {
1202 HV *hv = GvHVn(gv);
1203 /*
1204 * To set ownership (see below), a newSViv(1) entry is added.
1205 * Hence, to remove ownership, we delete the entry.
1206 */
1207 if (hv_exists_ent(hv, obj, 0)) {
1208 hv_delete_ent(hv, obj, 0, 0);
1209 }
1210 }
1211 }
1212 return SWIG_OK;
1213 }
1214
1215 SWIGRUNTIME int
1216 SWIG_Perl_ConvertPtr(SWIG_MAYBE_PERL_OBJECT SV *sv, void **ptr, swig_type_info *_t, int flags) {
1217 return SWIG_Perl_ConvertPtrAndOwn(sv, ptr, _t, flags, 0);
1218 }
1219
1220 SWIGRUNTIME void
1221 SWIG_Perl_MakePtr(SWIG_MAYBE_PERL_OBJECT SV *sv, void *ptr, swig_type_info *t, int flags) {
1222 if (ptr && (flags & (SWIG_SHADOW | SWIG_POINTER_OWN))) {
1223 SV *self;
1224 SV *obj=newSV(0);
1225 HV *hash=newHV();
1226 HV *stash;
1227 sv_setref_pv(obj, SWIG_Perl_TypeProxyName(t), ptr);
1228 stash=SvSTASH(SvRV(obj));
1229 if (flags & SWIG_POINTER_OWN) {
1230 HV *hv;
1231 GV *gv = *(GV**)hv_fetch(stash, "OWNER", 5, TRUE);
1232 if (!isGV(gv))
1233 gv_init(gv, stash, "OWNER", 5, FALSE);
1234 hv=GvHVn(gv);
1235 hv_store_ent(hv, obj, newSViv(1), 0);
1236 }
1237 sv_magic((SV *)hash, (SV *)obj, 'P', Nullch, 0);
1238 SvREFCNT_dec(obj);
1239 self=newRV_noinc((SV *)hash);
1240 sv_setsv(sv, self);
1241 SvREFCNT_dec((SV *)self);
1242 sv_bless(sv, stash);
1243 }
1244 else {
1245 sv_setref_pv(sv, SWIG_Perl_TypeProxyName(t), ptr);
1246 }
1247 }
1248
1249 SWIGRUNTIMEINLINE SV *
1250 SWIG_Perl_NewPointerObj(SWIG_MAYBE_PERL_OBJECT void *ptr, swig_type_info *t, int flags) {
1251 SV *result = sv_newmortal();
1252 SWIG_MakePtr(result, ptr, t, flags);
1253 return result;
1254 }
1255
1256 SWIGRUNTIME void
1257 SWIG_Perl_MakePackedObj(SWIG_MAYBE_PERL_OBJECT SV *sv, void *ptr, int sz, swig_type_info *type) {
1258 char result[1024];
1259 char *r = result;
1260 if ((2*sz + 1 + strlen(SWIG_Perl_TypeProxyName(type))) > 1000) return;
1261 *(r++) = '_';
1262 r = SWIG_PackData(r,ptr,sz);
1263 strcpy(r,SWIG_Perl_TypeProxyName(type));
1264 sv_setpv(sv, result);
1265 }
1266
1267 SWIGRUNTIME SV *
1268 SWIG_Perl_NewPackedObj(SWIG_MAYBE_PERL_OBJECT void *ptr, int sz, swig_type_info *type) {
1269 SV *result = sv_newmortal();
1270 SWIG_Perl_MakePackedObj(result, ptr, sz, type);
1271 return result;
1272 }
1273
1274 /* Convert a packed pointer value */
1275 SWIGRUNTIME int
1276 SWIG_Perl_ConvertPacked(SWIG_MAYBE_PERL_OBJECT SV *obj, void *ptr, int sz, swig_type_info *ty) {
1277 swig_cast_info *tc;
1278 const char *c = 0;
1279
1280 if ((!obj) || (!SvOK(obj))) return SWIG_ERROR;
1281 c = SvPV_nolen(obj);
1282 /* Pointer values must start with leading underscore */
1283 if (*c != '_') return SWIG_ERROR;
1284 c++;
1285 c = SWIG_UnpackData(c,ptr,sz);
1286 if (ty) {
1287 tc = SWIG_TypeCheck(c,ty);
1288 if (!tc) return SWIG_ERROR;
1289 }
1290 return SWIG_OK;
1291 }
1292
1293
1294 /* Macros for low-level exception handling */
1295 #define SWIG_croak(x) { SWIG_Error(SWIG_RuntimeError, x); SWIG_fail; }
1296
1297
1298 typedef XSPROTO(SwigPerlWrapper);
1299 typedef SwigPerlWrapper *SwigPerlWrapperPtr;
1300
1301 /* Structure for command table */
1302 typedef struct {
1303 const char *name;
1304 SwigPerlWrapperPtr wrapper;
1305 } swig_command_info;
1306
1307 /* Information for constant table */
1308
1309 #define SWIG_INT 1
1310 #define SWIG_FLOAT 2
1311 #define SWIG_STRING 3
1312 #define SWIG_POINTER 4
1313 #define SWIG_BINARY 5
1314
1315 /* Constant information structure */
1316 typedef struct swig_constant_info {
1317 int type;
1318 const char *name;
1319 long lvalue;
1320 double dvalue;
1321 void *pvalue;
1322 swig_type_info **ptype;
1323 } swig_constant_info;
1324
1325
1326 /* Structure for variable table */
1327 typedef struct {
1328 const char *name;
1329 SwigMagicFunc set;
1330 SwigMagicFunc get;
1331 swig_type_info **type;
1332 } swig_variable_info;
1333
1334 /* Magic variable code */
1335 #ifndef PERL_OBJECT
1336 # ifdef __cplusplus
1337 # define swig_create_magic(s,a,b,c) _swig_create_magic(s,const_cast<char*>(a),b,c)
1338 # else
1339 # define swig_create_magic(s,a,b,c) _swig_create_magic(s,(char*)(a),b,c)
1340 # endif
1341 # ifndef MULTIPLICITY
1342 SWIGRUNTIME void _swig_create_magic(SV *sv, char *name, int (*set)(SV *, MAGIC *), int (*get)(SV *,MAGIC *))
1343 # else
1344 SWIGRUNTIME void _swig_create_magic(SV *sv, char *name, int (*set)(struct interpreter*, SV *, MAGIC *), int (*get)(struct interpreter*, SV *,MAGIC *))
1345 # endif
1346 #else
1347 # define swig_create_magic(s,a,b,c) _swig_create_magic(pPerl,s,a,b,c)
1348 SWIGRUNTIME void _swig_create_magic(CPerlObj *pPerl, SV *sv, const char *name, int (CPerlObj::*set)(SV *, MAGIC *), int (CPerlObj::*get)(SV *, MAGIC *))
1349 #endif
1350 {
1351 MAGIC *mg;
1352 sv_magic(sv,sv,'U',name,strlen(name));
1353 mg = mg_find(sv,'U');
1354 mg->mg_virtual = (MGVTBL *) malloc(sizeof(MGVTBL));
1355 mg->mg_virtual->svt_get = (SwigMagicFunc) get;
1356 mg->mg_virtual->svt_set = (SwigMagicFunc) set;
1357 mg->mg_virtual->svt_len = 0;
1358 mg->mg_virtual->svt_clear = 0;
1359 mg->mg_virtual->svt_free = 0;
1360 }
1361
1362
1363 SWIGRUNTIME swig_module_info *
1364 SWIG_Perl_GetModule(void *SWIGUNUSEDPARM(clientdata)) {
1365 static void *type_pointer = (void *)0;
1366 SV *pointer;
1367
1368 /* first check if pointer already created */
1369 if (!type_pointer) {
1370 pointer = get_sv("swig_runtime_data::type_pointer" SWIG_RUNTIME_VERSION SWIG_TYPE_TABLE_NAME, FALSE | GV_ADDMULTI);
1371 if (pointer && SvOK(pointer)) {
1372 type_pointer = INT2PTR(swig_type_info **, SvIV(pointer));
1373 }
1374 }
1375
1376 return (swig_module_info *) type_pointer;
1377 }
1378
1379 SWIGRUNTIME void
1380 SWIG_Perl_SetModule(swig_module_info *module) {
1381 SV *pointer;
1382
1383 /* create a new pointer */
1384 pointer = get_sv("swig_runtime_data::type_pointer" SWIG_RUNTIME_VERSION SWIG_TYPE_TABLE_NAME, TRUE | GV_ADDMULTI);
1385 sv_setiv(pointer, PTR2IV(module));
1386 }
1387
1388 #ifdef __cplusplus
1389 }
1390 #endif
1391
1392 /* Workaround perl5 global namespace pollution. Note that undefining library
1393 * functions like fopen will not solve the problem on all platforms as fopen
1394 * might be a macro on Windows but not necessarily on other operating systems. */
1395 #ifdef do_open
1396 #undef do_open
1397 #endif
1398 #ifdef do_close
1399 #undef do_close
1400 #endif
1401 #ifdef do_exec
1402 #undef do_exec
1403 #endif
1404 #ifdef scalar
1405 #undef scalar
1406 #endif
1407 #ifdef list
1408 #undef list
1409 #endif
1410 #ifdef apply
1411 #undef apply
1412 #endif
1413 #ifdef convert
1414 #undef convert
1415 #endif
1416 #ifdef Error
1417 #undef Error
1418 #endif
1419 #ifdef form
1420 #undef form
1421 #endif
1422 #ifdef vform
1423 #undef vform
1424 #endif
1425 #ifdef LABEL
1426 #undef LABEL
1427 #endif
1428 #ifdef METHOD
1429 #undef METHOD
1430 #endif
1431 #ifdef Move
1432 #undef Move
1433 #endif
1434 #ifdef yylex
1435 #undef yylex
1436 #endif
1437 #ifdef yyparse
1438 #undef yyparse
1439 #endif
1440 #ifdef yyerror
1441 #undef yyerror
1442 #endif
1443 #ifdef invert
1444 #undef invert
1445 #endif
1446 #ifdef ref
1447 #undef ref
1448 #endif
1449 #ifdef read
1450 #undef read
1451 #endif
1452 #ifdef write
1453 #undef write
1454 #endif
1455 #ifdef eof
1456 #undef eof
1457 #endif
1458 #ifdef close
1459 #undef close
1460 #endif
1461 #ifdef rewind
1462 #undef rewind
1463 #endif
1464 #ifdef free
1465 #undef free
1466 #endif
1467 #ifdef malloc
1468 #undef malloc
1469 #endif
1470 #ifdef calloc
1471 #undef calloc
1472 #endif
1473 #ifdef Stat
1474 #undef Stat
1475 #endif
1476 #ifdef check
1477 #undef check
1478 #endif
1479 #ifdef seekdir
1480 #undef seekdir
1481 #endif
1482 #ifdef open
1483 #undef open
1484 #endif
1485 #ifdef readdir
1486 #undef readdir
1487 #endif
1488 #ifdef bind
1489 #undef bind
1490 #endif
1491 #ifdef access
1492 #undef access
1493 #endif
1494 #ifdef stat
1495 #undef stat
1496 #endif
1497 #ifdef seed
1498 #undef seed
1499 #endif
1500
1501 #ifdef bool
1502 /* Leave if macro is from C99 stdbool.h */
1503 #ifndef __bool_true_false_are_defined
1504 #undef bool
1505 #endif
1506 #endif
1507
1508
1509
1510
1511 #define SWIG_exception_fail(code, msg) do { SWIG_Error(code, msg); SWIG_fail; } while(0)
1512
1513 #define SWIG_contract_assert(expr, msg) if (!(expr)) { SWIG_Error(SWIG_RuntimeError, msg); SWIG_fail; } else
1514
1515
1516
1517 /* -------- TYPES TABLE (BEGIN) -------- */
1518
1519 #define SWIGTYPE_p_FILE swig_types[0]
1520 #define SWIGTYPE_p_char swig_types[1]
1521 #define SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void swig_types[2]
1522 #define SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void swig_types[3]
1523 #define SWIGTYPE_p_f_p_void__double swig_types[4]
1524 #define SWIGTYPE_p_f_p_void__unsigned_long swig_types[5]
1525 #define SWIGTYPE_p_f_p_void_unsigned_long__void swig_types[6]
1526 #define SWIGTYPE_p_gsl_rng swig_types[7]
1527 #define SWIGTYPE_p_gsl_rng_type swig_types[8]
1528 #define SWIGTYPE_p_p_gsl_rng_type swig_types[9]
1529 #define SWIGTYPE_p_void swig_types[10]
1530 static swig_type_info *swig_types[12];
1531 static swig_module_info swig_module = {swig_types, 11, 0, 0, 0, 0};
1532 #define SWIG_TypeQuery(name) SWIG_TypeQueryModule(&swig_module, &swig_module, name)
1533 #define SWIG_MangledTypeQuery(name) SWIG_MangledTypeQueryModule(&swig_module, &swig_module, name)
1534
1535 /* -------- TYPES TABLE (END) -------- */
1536
1537 #define SWIG_init boot_Math__GSL__RNG
1538
1539 #define SWIG_name "Math::GSL::RNGc::boot_Math__GSL__RNG"
1540 #define SWIG_prefix "Math::GSL::RNGc::"
1541
1542 #define SWIGVERSION 0x040001
1543 #define SWIG_VERSION SWIGVERSION
1544
1545
1546 #define SWIG_as_voidptr(a) (void *)((const void *)(a))
1547 #define SWIG_as_voidptrptr(a) ((void)SWIG_as_voidptr(*a),(void**)(a))
1548
1549
1550 #ifdef __cplusplus
1551 extern "C"
1552 #endif
1553 #ifndef PERL_OBJECT
1554 #ifndef MULTIPLICITY
1555 SWIGEXPORT void SWIG_init (CV* cv);
1556 #else
1557 SWIGEXPORT void SWIG_init (pTHXo_ CV* cv);
1558 #endif
1559 #else
1560 SWIGEXPORT void SWIG_init (CV *cv, CPerlObj *);
1561 #endif
1562
1563
1564 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(double value)1565 SWIG_From_double SWIG_PERL_DECL_ARGS_1(double value)
1566 {
1567 return sv_2mortal(newSVnv(value));
1568 }
1569
1570
1571 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(long value)1572 SWIG_From_long SWIG_PERL_DECL_ARGS_1(long value)
1573 {
1574 SV *sv;
1575 if (IVSIZE >= sizeof(value) || (value >= IV_MIN && value <= IV_MAX))
1576 sv = newSViv(value);
1577 else
1578 sv = newSVpvf("%ld", value);
1579 return sv_2mortal(sv);
1580 }
1581
1582
1583 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(int value)1584 SWIG_From_int SWIG_PERL_DECL_ARGS_1(int value)
1585 {
1586 return SWIG_From_long SWIG_PERL_CALL_ARGS_1(value);
1587 }
1588
1589
1590 SWIGINTERN swig_type_info*
SWIG_pchar_descriptor(void)1591 SWIG_pchar_descriptor(void)
1592 {
1593 static int init = 0;
1594 static swig_type_info* info = 0;
1595 if (!init) {
1596 info = SWIG_TypeQuery("_p_char");
1597 init = 1;
1598 }
1599 return info;
1600 }
1601
1602
1603 SWIGINTERN int
SWIG_AsCharPtrAndSize(SV * obj,char ** cptr,size_t * psize,int * alloc)1604 SWIG_AsCharPtrAndSize(SV *obj, char** cptr, size_t* psize, int *alloc)
1605 {
1606 if (SvMAGICAL(obj)) {
1607 SV *tmp = sv_newmortal();
1608 SvSetSV(tmp, obj);
1609 obj = tmp;
1610 }
1611 if (SvPOK(obj)) {
1612 STRLEN len = 0;
1613 char *cstr = SvPV(obj, len);
1614 size_t size = len + 1;
1615 if (cptr) {
1616 if (alloc) {
1617 if (*alloc == SWIG_NEWOBJ) {
1618 *cptr = (char *)memcpy(malloc((size)*sizeof(char)), cstr, sizeof(char)*(size));
1619 } else {
1620 *cptr = cstr;
1621 *alloc = SWIG_OLDOBJ;
1622 }
1623 }
1624 }
1625 if (psize) *psize = size;
1626 return SWIG_OK;
1627 } else {
1628 swig_type_info* pchar_descriptor = SWIG_pchar_descriptor();
1629 if (pchar_descriptor) {
1630 char* vptr = 0;
1631 if (SWIG_ConvertPtr(obj, (void**)&vptr, pchar_descriptor, 0) == SWIG_OK) {
1632 if (cptr) *cptr = vptr;
1633 if (psize) *psize = vptr ? (strlen(vptr) + 1) : 0;
1634 if (alloc) *alloc = SWIG_OLDOBJ;
1635 return SWIG_OK;
1636 }
1637 }
1638 }
1639 return SWIG_TypeError;
1640 }
1641
1642
1643
1644
1645
1646 #include <limits.h>
1647 #if !defined(SWIG_NO_LLONG_MAX)
1648 # if !defined(LLONG_MAX) && defined(__GNUC__) && defined (__LONG_LONG_MAX__)
1649 # define LLONG_MAX __LONG_LONG_MAX__
1650 # define LLONG_MIN (-LLONG_MAX - 1LL)
1651 # define ULLONG_MAX (LLONG_MAX * 2ULL + 1ULL)
1652 # endif
1653 #endif
1654
1655
1656 #include <stdlib.h>
1657 #ifdef _MSC_VER
1658 # ifndef strtoull
1659 # define strtoull _strtoui64
1660 # endif
1661 # ifndef strtoll
1662 # define strtoll _strtoi64
1663 # endif
1664 #endif
1665
1666
1667 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,double * val)1668 SWIG_AsVal_double SWIG_PERL_DECL_ARGS_2(SV *obj, double *val)
1669 {
1670 if (SvNIOK(obj)) {
1671 if (val) *val = SvNV(obj);
1672 return SWIG_OK;
1673 } else if (SvIOK(obj)) {
1674 if (val) *val = (double) SvIV(obj);
1675 return SWIG_AddCast(SWIG_OK);
1676 } else {
1677 const char *nptr = SvPV_nolen(obj);
1678 if (nptr) {
1679 char *endptr;
1680 double v;
1681 errno = 0;
1682 v = strtod(nptr, &endptr);
1683 if (errno == ERANGE) {
1684 errno = 0;
1685 return SWIG_OverflowError;
1686 } else {
1687 if (*endptr == '\0') {
1688 if (val) *val = v;
1689 return SWIG_Str2NumCast(SWIG_OK);
1690 }
1691 }
1692 }
1693 }
1694 return SWIG_TypeError;
1695 }
1696
1697
1698 #include <float.h>
1699
1700
1701 #include <math.h>
1702
1703
1704 SWIGINTERNINLINE int
SWIG_CanCastAsInteger(double * d,double min,double max)1705 SWIG_CanCastAsInteger(double *d, double min, double max) {
1706 double x = *d;
1707 if ((min <= x && x <= max)) {
1708 double fx = floor(x);
1709 double cx = ceil(x);
1710 double rd = ((x - fx) < 0.5) ? fx : cx; /* simple rint */
1711 if ((errno == EDOM) || (errno == ERANGE)) {
1712 errno = 0;
1713 } else {
1714 double summ, reps, diff;
1715 if (rd < x) {
1716 diff = x - rd;
1717 } else if (rd > x) {
1718 diff = rd - x;
1719 } else {
1720 return 1;
1721 }
1722 summ = rd + x;
1723 reps = diff/summ;
1724 if (reps < 8*DBL_EPSILON) {
1725 *d = rd;
1726 return 1;
1727 }
1728 }
1729 }
1730 return 0;
1731 }
1732
1733
1734 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,long * val)1735 SWIG_AsVal_long SWIG_PERL_DECL_ARGS_2(SV *obj, long* val)
1736 {
1737 if (SvUOK(obj)) {
1738 UV v = SvUV(obj);
1739 if (UVSIZE < sizeof(*val) || v <= LONG_MAX) {
1740 if (val) *val = v;
1741 return SWIG_OK;
1742 }
1743 return SWIG_OverflowError;
1744 } else if (SvIOK(obj)) {
1745 IV v = SvIV(obj);
1746 if (IVSIZE <= sizeof(*val) || (v >= LONG_MIN && v <= LONG_MAX)) {
1747 if(val) *val = v;
1748 return SWIG_OK;
1749 }
1750 return SWIG_OverflowError;
1751 } else {
1752 int dispatch = 0;
1753 const char *nptr = SvPV_nolen(obj);
1754 if (nptr) {
1755 char *endptr;
1756 long v;
1757 errno = 0;
1758 v = strtol(nptr, &endptr,0);
1759 if (errno == ERANGE) {
1760 errno = 0;
1761 return SWIG_OverflowError;
1762 } else {
1763 if (*endptr == '\0') {
1764 if (val) *val = v;
1765 return SWIG_Str2NumCast(SWIG_OK);
1766 }
1767 }
1768 }
1769 if (!dispatch) {
1770 double d;
1771 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
1772 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, LONG_MIN, LONG_MAX)) {
1773 if (val) *val = (long)(d);
1774 return res;
1775 }
1776 }
1777 }
1778 return SWIG_TypeError;
1779 }
1780
1781
1782 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,int * val)1783 SWIG_AsVal_int SWIG_PERL_DECL_ARGS_2(SV * obj, int *val)
1784 {
1785 long v;
1786 int res = SWIG_AsVal_long SWIG_PERL_CALL_ARGS_2(obj, &v);
1787 if (SWIG_IsOK(res)) {
1788 if ((v < INT_MIN || v > INT_MAX)) {
1789 return SWIG_OverflowError;
1790 } else {
1791 if (val) *val = (int)(v);
1792 }
1793 }
1794 return res;
1795 }
1796
1797
1798 SWIGINTERNINLINE SV *
SWIG_FromCharPtrAndSize(const char * carray,size_t size)1799 SWIG_FromCharPtrAndSize(const char* carray, size_t size)
1800 {
1801 SV *obj = sv_newmortal();
1802 if (carray) {
1803 sv_setpvn(obj, carray, size);
1804 } else {
1805 sv_setsv(obj, &PL_sv_undef);
1806 }
1807 return obj;
1808 }
1809
1810
1811 SWIGINTERNINLINE SV *
SWIG_FromCharPtr(const char * cptr)1812 SWIG_FromCharPtr(const char *cptr)
1813 {
1814 return SWIG_FromCharPtrAndSize(cptr, (cptr ? strlen(cptr) : 0));
1815 }
1816
1817
1818 #include "gsl/gsl_nan.h"
1819 #include "gsl/gsl_errno.h"
1820 #include "gsl/gsl_math.h"
1821 #include "gsl/gsl_monte.h"
1822
1823
1824 struct perl_array {
1825 I32 len;
1826 AV *array;
1827 };
1828
1829
1830
1831 enum awType { awDouble, awFloat, awInt, awUnsigned };
1832
1833 typedef struct {
1834 I32 size;
1835 enum awType type;
1836 void * data;
1837 } array_wrapper;
1838
array_wrapper_alloc(int numelem,enum awType type)1839 array_wrapper * array_wrapper_alloc(int numelem, enum awType type){
1840 array_wrapper * rv = malloc(sizeof(array_wrapper));
1841
1842 if (rv == NULL)
1843 croak("array_wrapper_alloc: can't malloc wrapper\n");
1844
1845 switch (type){
1846 case awDouble:
1847 rv->data = malloc(sizeof(double) * numelem);
1848 break;
1849 case awFloat:
1850 rv->data = malloc(sizeof(float) * numelem);
1851 break;
1852 case awInt:
1853 rv->data = malloc(sizeof(int) * numelem);
1854 break;
1855 case awUnsigned:
1856 rv->data = malloc(sizeof(unsigned int) * numelem);
1857 break;
1858 default:
1859 croak("array_wrapper_alloc: type should be awDouble, awFloat, awInt, or awUnsigned");
1860 }
1861
1862 if (rv->data == NULL)
1863 croak("array_wrapper_alloc: can't malloc data");
1864
1865 rv->size = numelem;
1866 rv->type = type;
1867 return rv;
1868 }
1869
array_wrapper_free(array_wrapper * daw)1870 void array_wrapper_free(array_wrapper * daw){
1871 free(daw->data);
1872 free(daw);
1873 }
1874
1875
1876 /* structure to hold required information while the gsl function call
1877 for each callback
1878 */
1879 struct gsl_function_perl {
1880 gsl_function C_gsl_function;
1881 SV * function;
1882 SV * params;
1883 };
1884
1885 struct gsl_function_fdf_perl {
1886 gsl_function_fdf C_gsl_function_fdf;
1887 SV * f;
1888 SV * df;
1889 SV * fdf;
1890 SV * params;
1891 };
1892
1893 struct gsl_monte_function_perl {
1894 gsl_monte_function C_gsl_monte_function;
1895 SV * f;
1896 SV * dim;
1897 SV * params;
1898 };
1899
gsl_function_perl_free(struct gsl_function_perl * perl_f)1900 void gsl_function_perl_free(struct gsl_function_perl * perl_f){
1901 if (perl_f != NULL) {
1902 SvREFCNT_dec(perl_f->function);
1903 SvREFCNT_dec(perl_f->params);
1904 Safefree(perl_f);
1905 }
1906 }
1907
gsl_function_fdf_perl_free(struct gsl_function_fdf_perl * perl_fdf)1908 void gsl_function_fdf_perl_free(struct gsl_function_fdf_perl * perl_fdf){
1909 if (perl_fdf != NULL) {
1910 SvREFCNT_dec(perl_fdf->f);
1911 SvREFCNT_dec(perl_fdf->df);
1912 SvREFCNT_dec(perl_fdf->fdf);
1913 SvREFCNT_dec(perl_fdf->params);
1914 Safefree(perl_fdf);
1915 }
1916 }
1917
1918 /* These functions (C callbacks) calls the perl callbacks.
1919 Info for perl callback can be found using the 'void*params' parameter
1920 */
call_gsl_function_x_params(SV * function,double x,SV * params)1921 double call_gsl_function_x_params(SV* function, double x, SV *params){
1922 unsigned int count;
1923 double y;
1924 dSP;
1925
1926 //fprintf(stderr, "LOOKUP CALLBACK\n");
1927 ENTER;
1928 SAVETMPS;
1929
1930 PUSHMARK(SP);
1931 XPUSHs(sv_2mortal(newSVnv((double)x)));
1932 XPUSHs(params);
1933 PUTBACK; /* make local stack pointer global */
1934
1935 count = call_sv(function, G_SCALAR);
1936 SPAGAIN;
1937
1938 if (count != 1)
1939 croak("Expected to call subroutine in scalar context!");
1940
1941 y = POPn;
1942
1943 PUTBACK; /* make local stack pointer global */
1944 FREETMPS;
1945 LEAVE;
1946
1947 return y;
1948 }
1949
call_gsl_function(double x,void * params)1950 double call_gsl_function(double x , void *params){
1951 struct gsl_function_perl *F=(struct gsl_function_perl*)params;
1952 return call_gsl_function_x_params( F->function, x, F->params );
1953 }
1954
call_gsl_function_fdf_f(double x,void * params)1955 double call_gsl_function_fdf_f(double x , void *params){
1956 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1957 return call_gsl_function_x_params( F->f, x, F->params );
1958 }
1959
call_gsl_function_fdf_df(double x,void * params)1960 double call_gsl_function_fdf_df(double x , void *params){
1961 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1962 return call_gsl_function_x_params( F->df, x, F->params );
1963 }
1964
call_gsl_function_fdf_fdf(double x,void * params,double * f,double * df)1965 void call_gsl_function_fdf_fdf(double x , void *params, double *f, double *df ){
1966 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1967
1968 dSP;
1969
1970 ENTER;
1971 SAVETMPS;
1972
1973 PUSHMARK(SP);
1974 EXTEND(SP, 2);
1975 PUSHs(sv_2mortal(newSVnv((double)x)));
1976 PUSHs(F->params);
1977 PUTBACK; /* make local stack pointer global */
1978
1979 {
1980 unsigned int count = call_sv(F->fdf, G_ARRAY);
1981 SPAGAIN;
1982
1983 if (count != 2)
1984 croak( "Expected two return values, got %d", count );
1985 }
1986
1987 *df = POPn;
1988 *f = POPn;
1989
1990 PUTBACK; /* make local stack pointer global */
1991 FREETMPS;
1992 LEAVE;
1993 }
1994
call_gsl_monte_function(double * x_array,size_t dim,void * params)1995 double call_gsl_monte_function(double *x_array , size_t dim, void *params){
1996 struct gsl_monte_function_perl *F=(struct gsl_monte_function_perl*)params;
1997 unsigned int count;
1998 unsigned int i;
1999 AV* perl_array;
2000 double y;
2001 dSP;
2002
2003 //fprintf(stderr, "LOOKUP CALLBACK\n");
2004 ENTER;
2005 SAVETMPS;
2006
2007 PUSHMARK(SP);
2008 perl_array=newAV();
2009 sv_2mortal((SV*)perl_array);
2010 XPUSHs(sv_2mortal(newRV((SV *)perl_array)));
2011 for(i=0; i<dim; i++) {
2012 /* no mortal : it is referenced by the array */
2013 av_push(perl_array, newSVnv(x_array[i]));
2014 }
2015 XPUSHs(sv_2mortal(newSViv(dim)));
2016 XPUSHs(F->params);
2017 PUTBACK; /* make local stack pointer global */
2018
2019 count = call_sv(F->f, G_SCALAR);
2020 SPAGAIN;
2021
2022 if (count != 1)
2023 croak("Expected to call subroutine in scalar context!");
2024
2025 y = POPn;
2026
2027 PUTBACK; /* make local stack pointer global */
2028 FREETMPS;
2029 LEAVE;
2030
2031 return y;
2032 }
2033
2034
gsl_function_fdf_extract(char * param_name,HV * hash,SV * func[])2035 void gsl_function_fdf_extract( char* param_name, HV* hash, SV* func[] ) {
2036 static const char *keys[3] = { "f", "df", "fdf" };
2037
2038 int ikey;
2039
2040 for ( ikey = 0 ; ikey < 3 ; ++ikey ) {
2041 func[ikey] = 0;
2042 const char* key = keys[ikey];
2043 /* it just so happens that strlen(keys[ikey]) == ikey + 1 */
2044 SV** pp_sv = hv_fetch( hash, key, ikey+1, 0 );
2045 SV* function;
2046
2047 if ( !pp_sv )
2048 croak("Math::GSL : %s: missing key %s!", param_name, key);
2049
2050 function = *pp_sv;
2051
2052 if ( SvPOK(function) || ( SvROK( function ) && SvTYPE(SvRV(function)) == SVt_PVCV ) ) {
2053 /* hold on to SV after the enclosing hash goes away */
2054 SvREFCNT_inc( function );
2055 func[ikey] = function;
2056 }
2057 else {
2058 croak( "Math::GSL : %s: key %s is not a reference to code!", param_name, key);
2059 }
2060 }
2061 }
2062
2063
2064
2065 #include "gsl/gsl_inline.h"
2066 #include "gsl/gsl_rng.h"
2067
2068
2069 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,unsigned long * val)2070 SWIG_AsVal_unsigned_SS_long SWIG_PERL_DECL_ARGS_2(SV *obj, unsigned long *val)
2071 {
2072 if (SvUOK(obj)) {
2073 UV v = SvUV(obj);
2074 if (UVSIZE <= sizeof(*val) || v <= ULONG_MAX) {
2075 if (val) *val = v;
2076 return SWIG_OK;
2077 }
2078 return SWIG_OverflowError;
2079 } else if (SvIOK(obj)) {
2080 IV v = SvIV(obj);
2081 if (v >= 0 && (IVSIZE <= sizeof(*val) || v <= ULONG_MAX)) {
2082 if (val) *val = v;
2083 return SWIG_OK;
2084 }
2085 return SWIG_OverflowError;
2086 } else {
2087 int dispatch = 0;
2088 const char *nptr = SvPV_nolen(obj);
2089 if (nptr) {
2090 char *endptr;
2091 unsigned long v;
2092 errno = 0;
2093 v = strtoul(nptr, &endptr,0);
2094 if (errno == ERANGE) {
2095 errno = 0;
2096 return SWIG_OverflowError;
2097 } else {
2098 if (*endptr == '\0') {
2099 if (val) *val = v;
2100 return SWIG_Str2NumCast(SWIG_OK);
2101 }
2102 }
2103 }
2104 if (!dispatch) {
2105 double d;
2106 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
2107 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, 0, ULONG_MAX)) {
2108 if (val) *val = (unsigned long)(d);
2109 return res;
2110 }
2111 }
2112 }
2113 return SWIG_TypeError;
2114 }
2115
2116
2117 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(unsigned long value)2118 SWIG_From_unsigned_SS_long SWIG_PERL_DECL_ARGS_1(unsigned long value)
2119 {
2120 SV *sv;
2121 if (UVSIZE >= sizeof(value) || value <= UV_MAX)
2122 sv = newSVuv(value);
2123 else
2124 sv = newSVpvf("%lu", value);
2125 return sv_2mortal(sv);
2126 }
2127
2128
2129 #if defined(LLONG_MAX) && !defined(SWIG_LONG_LONG_AVAILABLE)
2130 # define SWIG_LONG_LONG_AVAILABLE
2131 #endif
2132
2133
2134 #ifdef SWIG_LONG_LONG_AVAILABLE
2135 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,unsigned long long * val)2136 SWIG_AsVal_unsigned_SS_long_SS_long SWIG_PERL_DECL_ARGS_2(SV *obj, unsigned long long *val)
2137 {
2138 if (SvUOK(obj)) {
2139 /* pretty sure this should be conditional on
2140 * (UVSIZE <= sizeof(*val) || v <= ULLONG_MAX) */
2141 if (val) *val = SvUV(obj);
2142 return SWIG_OK;
2143 } else if (SvIOK(obj)) {
2144 IV v = SvIV(obj);
2145 if (v >= 0 && (IVSIZE <= sizeof(*val) || v <= ULLONG_MAX)) {
2146 if (val) *val = v;
2147 return SWIG_OK;
2148 } else {
2149 return SWIG_OverflowError;
2150 }
2151 } else {
2152 int dispatch = 0;
2153 const char *nptr = SvPV_nolen(obj);
2154 if (nptr) {
2155 char *endptr;
2156 unsigned long long v;
2157 errno = 0;
2158 v = strtoull(nptr, &endptr,0);
2159 if (errno == ERANGE) {
2160 errno = 0;
2161 return SWIG_OverflowError;
2162 } else {
2163 if (*endptr == '\0') {
2164 if (val) *val = v;
2165 return SWIG_Str2NumCast(SWIG_OK);
2166 }
2167 }
2168 }
2169 if (!dispatch) {
2170 const double mant_max = 1LL << DBL_MANT_DIG;
2171 double d;
2172 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
2173 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, 0, mant_max)) {
2174 if (val) *val = (unsigned long long)(d);
2175 return res;
2176 }
2177 }
2178 }
2179 return SWIG_TypeError;
2180 }
2181 #endif
2182
2183
2184 SWIGINTERNINLINE int
SWIG_PERL_DECL_ARGS_2(SV * obj,size_t * val)2185 SWIG_AsVal_size_t SWIG_PERL_DECL_ARGS_2(SV * obj, size_t *val)
2186 {
2187 int res = SWIG_TypeError;
2188 #ifdef SWIG_LONG_LONG_AVAILABLE
2189 if (sizeof(size_t) <= sizeof(unsigned long)) {
2190 #endif
2191 unsigned long v;
2192 res = SWIG_AsVal_unsigned_SS_long SWIG_PERL_CALL_ARGS_2(obj, val ? &v : 0);
2193 if (SWIG_IsOK(res) && val) *val = (size_t)(v);
2194 #ifdef SWIG_LONG_LONG_AVAILABLE
2195 } else if (sizeof(size_t) <= sizeof(unsigned long long)) {
2196 unsigned long long v;
2197 res = SWIG_AsVal_unsigned_SS_long_SS_long SWIG_PERL_CALL_ARGS_2(obj, val ? &v : 0);
2198 if (SWIG_IsOK(res) && val) *val = (size_t)(v);
2199 }
2200 #endif
2201 return res;
2202 }
2203
2204
2205 #include <stdio.h>
2206 #if (defined(_MSC_VER) && (_MSC_VER < 1900)) || defined(__BORLANDC__) || defined(_WATCOM)
2207 # ifndef snprintf
2208 # define snprintf _snprintf
2209 # endif
2210 #endif
2211
2212
2213 #ifdef SWIG_LONG_LONG_AVAILABLE
2214 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(unsigned long long value)2215 SWIG_From_unsigned_SS_long_SS_long SWIG_PERL_DECL_ARGS_1(unsigned long long value)
2216 {
2217 SV *sv;
2218 if (UVSIZE >= sizeof(value) || value <= UV_MAX)
2219 sv = newSVuv((UV)(value));
2220 else {
2221 //sv = newSVpvf("%llu", value); doesn't work in non 64bit Perl
2222 char temp[256];
2223 sprintf(temp, "%llu", value);
2224 sv = newSVpv(temp, 0);
2225 }
2226 return sv_2mortal(sv);
2227 }
2228 #endif
2229
2230
2231 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(size_t value)2232 SWIG_From_size_t SWIG_PERL_DECL_ARGS_1(size_t value)
2233 {
2234 #ifdef SWIG_LONG_LONG_AVAILABLE
2235 if (sizeof(size_t) <= sizeof(unsigned long)) {
2236 #endif
2237 return SWIG_From_unsigned_SS_long SWIG_PERL_CALL_ARGS_1((unsigned long)(value));
2238 #ifdef SWIG_LONG_LONG_AVAILABLE
2239 } else {
2240 /* assume sizeof(size_t) <= sizeof(unsigned long long) */
2241 return SWIG_From_unsigned_SS_long_SS_long SWIG_PERL_CALL_ARGS_1((unsigned long long)(value));
2242 }
2243 #endif
2244 }
2245
2246 #ifdef __cplusplus
2247 extern "C" {
2248 #endif
2249
2250 #ifdef PERL_OBJECT
2251 #define MAGIC_CLASS _wrap_Math__GSL__RNG_var::
2252 class _wrap_Math__GSL__RNG_var : public CPerlObj {
2253 public:
2254 #else
2255 #define MAGIC_CLASS
2256 #endif
swig_magic_readonly(pTHX_ SV * SWIGUNUSEDPARM (sv),MAGIC * SWIGUNUSEDPARM (mg))2257 SWIGCLASS_STATIC int swig_magic_readonly(pTHX_ SV *SWIGUNUSEDPARM(sv), MAGIC *SWIGUNUSEDPARM(mg)) {
2258 MAGIC_PPERL
2259 croak("Value is read-only.");
2260 return 0;
2261 }
_wrap_gsl_rng_borosh13_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2262 SWIGCLASS_STATIC int _wrap_gsl_rng_borosh13_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2263 MAGIC_PPERL
2264 {
2265 void *argp = 0;
2266 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
2267 if (!SWIG_IsOK(res)) {
2268 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_borosh13""' of type '""gsl_rng_type const *""'");
2269 }
2270 gsl_rng_borosh13 = (gsl_rng_type *)(argp);
2271 }
2272 fail:
2273 return 1;
2274 }
2275
2276
_wrap_gsl_rng_borosh13_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2277 SWIGCLASS_STATIC int _wrap_gsl_rng_borosh13_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2278 MAGIC_PPERL
2279 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_borosh13));
2280 return 1;
2281 }
2282
2283
_wrap_gsl_rng_coveyou_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2284 SWIGCLASS_STATIC int _wrap_gsl_rng_coveyou_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2285 MAGIC_PPERL
2286 {
2287 void *argp = 0;
2288 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
2289 if (!SWIG_IsOK(res)) {
2290 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_coveyou""' of type '""gsl_rng_type const *""'");
2291 }
2292 gsl_rng_coveyou = (gsl_rng_type *)(argp);
2293 }
2294 fail:
2295 return 1;
2296 }
2297
2298
_wrap_gsl_rng_coveyou_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2299 SWIGCLASS_STATIC int _wrap_gsl_rng_coveyou_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2300 MAGIC_PPERL
2301 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_coveyou));
2302 return 1;
2303 }
2304
2305
_wrap_gsl_rng_cmrg_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2306 SWIGCLASS_STATIC int _wrap_gsl_rng_cmrg_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2307 MAGIC_PPERL
2308 {
2309 void *argp = 0;
2310 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
2311 if (!SWIG_IsOK(res)) {
2312 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_cmrg""' of type '""gsl_rng_type const *""'");
2313 }
2314 gsl_rng_cmrg = (gsl_rng_type *)(argp);
2315 }
2316 fail:
2317 return 1;
2318 }
2319
2320
_wrap_gsl_rng_cmrg_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2321 SWIGCLASS_STATIC int _wrap_gsl_rng_cmrg_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2322 MAGIC_PPERL
2323 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_cmrg));
2324 return 1;
2325 }
2326
2327
_wrap_gsl_rng_fishman18_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2328 SWIGCLASS_STATIC int _wrap_gsl_rng_fishman18_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2329 MAGIC_PPERL
2330 {
2331 void *argp = 0;
2332 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
2333 if (!SWIG_IsOK(res)) {
2334 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_fishman18""' of type '""gsl_rng_type const *""'");
2335 }
2336 gsl_rng_fishman18 = (gsl_rng_type *)(argp);
2337 }
2338 fail:
2339 return 1;
2340 }
2341
2342
_wrap_gsl_rng_fishman18_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2343 SWIGCLASS_STATIC int _wrap_gsl_rng_fishman18_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2344 MAGIC_PPERL
2345 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_fishman18));
2346 return 1;
2347 }
2348
2349
_wrap_gsl_rng_fishman20_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2350 SWIGCLASS_STATIC int _wrap_gsl_rng_fishman20_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2351 MAGIC_PPERL
2352 {
2353 void *argp = 0;
2354 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
2355 if (!SWIG_IsOK(res)) {
2356 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_fishman20""' of type '""gsl_rng_type const *""'");
2357 }
2358 gsl_rng_fishman20 = (gsl_rng_type *)(argp);
2359 }
2360 fail:
2361 return 1;
2362 }
2363
2364
_wrap_gsl_rng_fishman20_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2365 SWIGCLASS_STATIC int _wrap_gsl_rng_fishman20_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2366 MAGIC_PPERL
2367 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_fishman20));
2368 return 1;
2369 }
2370
2371
_wrap_gsl_rng_fishman2x_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2372 SWIGCLASS_STATIC int _wrap_gsl_rng_fishman2x_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2373 MAGIC_PPERL
2374 {
2375 void *argp = 0;
2376 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
2377 if (!SWIG_IsOK(res)) {
2378 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_fishman2x""' of type '""gsl_rng_type const *""'");
2379 }
2380 gsl_rng_fishman2x = (gsl_rng_type *)(argp);
2381 }
2382 fail:
2383 return 1;
2384 }
2385
2386
_wrap_gsl_rng_fishman2x_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2387 SWIGCLASS_STATIC int _wrap_gsl_rng_fishman2x_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2388 MAGIC_PPERL
2389 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_fishman2x));
2390 return 1;
2391 }
2392
2393
_wrap_gsl_rng_gfsr4_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2394 SWIGCLASS_STATIC int _wrap_gsl_rng_gfsr4_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2395 MAGIC_PPERL
2396 {
2397 void *argp = 0;
2398 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
2399 if (!SWIG_IsOK(res)) {
2400 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_gfsr4""' of type '""gsl_rng_type const *""'");
2401 }
2402 gsl_rng_gfsr4 = (gsl_rng_type *)(argp);
2403 }
2404 fail:
2405 return 1;
2406 }
2407
2408
_wrap_gsl_rng_gfsr4_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2409 SWIGCLASS_STATIC int _wrap_gsl_rng_gfsr4_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2410 MAGIC_PPERL
2411 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_gfsr4));
2412 return 1;
2413 }
2414
2415
_wrap_gsl_rng_knuthran_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2416 SWIGCLASS_STATIC int _wrap_gsl_rng_knuthran_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2417 MAGIC_PPERL
2418 {
2419 void *argp = 0;
2420 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
2421 if (!SWIG_IsOK(res)) {
2422 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_knuthran""' of type '""gsl_rng_type const *""'");
2423 }
2424 gsl_rng_knuthran = (gsl_rng_type *)(argp);
2425 }
2426 fail:
2427 return 1;
2428 }
2429
2430
_wrap_gsl_rng_knuthran_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2431 SWIGCLASS_STATIC int _wrap_gsl_rng_knuthran_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2432 MAGIC_PPERL
2433 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_knuthran));
2434 return 1;
2435 }
2436
2437
_wrap_gsl_rng_knuthran2_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2438 SWIGCLASS_STATIC int _wrap_gsl_rng_knuthran2_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2439 MAGIC_PPERL
2440 {
2441 void *argp = 0;
2442 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
2443 if (!SWIG_IsOK(res)) {
2444 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_knuthran2""' of type '""gsl_rng_type const *""'");
2445 }
2446 gsl_rng_knuthran2 = (gsl_rng_type *)(argp);
2447 }
2448 fail:
2449 return 1;
2450 }
2451
2452
_wrap_gsl_rng_knuthran2_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2453 SWIGCLASS_STATIC int _wrap_gsl_rng_knuthran2_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2454 MAGIC_PPERL
2455 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_knuthran2));
2456 return 1;
2457 }
2458
2459
_wrap_gsl_rng_knuthran2002_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2460 SWIGCLASS_STATIC int _wrap_gsl_rng_knuthran2002_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2461 MAGIC_PPERL
2462 {
2463 void *argp = 0;
2464 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
2465 if (!SWIG_IsOK(res)) {
2466 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_knuthran2002""' of type '""gsl_rng_type const *""'");
2467 }
2468 gsl_rng_knuthran2002 = (gsl_rng_type *)(argp);
2469 }
2470 fail:
2471 return 1;
2472 }
2473
2474
_wrap_gsl_rng_knuthran2002_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2475 SWIGCLASS_STATIC int _wrap_gsl_rng_knuthran2002_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2476 MAGIC_PPERL
2477 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_knuthran2002));
2478 return 1;
2479 }
2480
2481
_wrap_gsl_rng_lecuyer21_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2482 SWIGCLASS_STATIC int _wrap_gsl_rng_lecuyer21_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2483 MAGIC_PPERL
2484 {
2485 void *argp = 0;
2486 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
2487 if (!SWIG_IsOK(res)) {
2488 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_lecuyer21""' of type '""gsl_rng_type const *""'");
2489 }
2490 gsl_rng_lecuyer21 = (gsl_rng_type *)(argp);
2491 }
2492 fail:
2493 return 1;
2494 }
2495
2496
_wrap_gsl_rng_lecuyer21_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2497 SWIGCLASS_STATIC int _wrap_gsl_rng_lecuyer21_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2498 MAGIC_PPERL
2499 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_lecuyer21));
2500 return 1;
2501 }
2502
2503
_wrap_gsl_rng_minstd_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2504 SWIGCLASS_STATIC int _wrap_gsl_rng_minstd_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2505 MAGIC_PPERL
2506 {
2507 void *argp = 0;
2508 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
2509 if (!SWIG_IsOK(res)) {
2510 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_minstd""' of type '""gsl_rng_type const *""'");
2511 }
2512 gsl_rng_minstd = (gsl_rng_type *)(argp);
2513 }
2514 fail:
2515 return 1;
2516 }
2517
2518
_wrap_gsl_rng_minstd_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2519 SWIGCLASS_STATIC int _wrap_gsl_rng_minstd_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2520 MAGIC_PPERL
2521 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_minstd));
2522 return 1;
2523 }
2524
2525
_wrap_gsl_rng_mrg_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2526 SWIGCLASS_STATIC int _wrap_gsl_rng_mrg_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2527 MAGIC_PPERL
2528 {
2529 void *argp = 0;
2530 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
2531 if (!SWIG_IsOK(res)) {
2532 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_mrg""' of type '""gsl_rng_type const *""'");
2533 }
2534 gsl_rng_mrg = (gsl_rng_type *)(argp);
2535 }
2536 fail:
2537 return 1;
2538 }
2539
2540
_wrap_gsl_rng_mrg_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2541 SWIGCLASS_STATIC int _wrap_gsl_rng_mrg_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2542 MAGIC_PPERL
2543 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_mrg));
2544 return 1;
2545 }
2546
2547
_wrap_gsl_rng_mt19937_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2548 SWIGCLASS_STATIC int _wrap_gsl_rng_mt19937_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2549 MAGIC_PPERL
2550 {
2551 void *argp = 0;
2552 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
2553 if (!SWIG_IsOK(res)) {
2554 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_mt19937""' of type '""gsl_rng_type const *""'");
2555 }
2556 gsl_rng_mt19937 = (gsl_rng_type *)(argp);
2557 }
2558 fail:
2559 return 1;
2560 }
2561
2562
_wrap_gsl_rng_mt19937_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2563 SWIGCLASS_STATIC int _wrap_gsl_rng_mt19937_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2564 MAGIC_PPERL
2565 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_mt19937));
2566 return 1;
2567 }
2568
2569
_wrap_gsl_rng_mt19937_1999_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2570 SWIGCLASS_STATIC int _wrap_gsl_rng_mt19937_1999_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2571 MAGIC_PPERL
2572 {
2573 void *argp = 0;
2574 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
2575 if (!SWIG_IsOK(res)) {
2576 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_mt19937_1999""' of type '""gsl_rng_type const *""'");
2577 }
2578 gsl_rng_mt19937_1999 = (gsl_rng_type *)(argp);
2579 }
2580 fail:
2581 return 1;
2582 }
2583
2584
_wrap_gsl_rng_mt19937_1999_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2585 SWIGCLASS_STATIC int _wrap_gsl_rng_mt19937_1999_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2586 MAGIC_PPERL
2587 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_mt19937_1999));
2588 return 1;
2589 }
2590
2591
_wrap_gsl_rng_mt19937_1998_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2592 SWIGCLASS_STATIC int _wrap_gsl_rng_mt19937_1998_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2593 MAGIC_PPERL
2594 {
2595 void *argp = 0;
2596 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
2597 if (!SWIG_IsOK(res)) {
2598 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_mt19937_1998""' of type '""gsl_rng_type const *""'");
2599 }
2600 gsl_rng_mt19937_1998 = (gsl_rng_type *)(argp);
2601 }
2602 fail:
2603 return 1;
2604 }
2605
2606
_wrap_gsl_rng_mt19937_1998_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2607 SWIGCLASS_STATIC int _wrap_gsl_rng_mt19937_1998_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2608 MAGIC_PPERL
2609 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_mt19937_1998));
2610 return 1;
2611 }
2612
2613
_wrap_gsl_rng_r250_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2614 SWIGCLASS_STATIC int _wrap_gsl_rng_r250_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2615 MAGIC_PPERL
2616 {
2617 void *argp = 0;
2618 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
2619 if (!SWIG_IsOK(res)) {
2620 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_r250""' of type '""gsl_rng_type const *""'");
2621 }
2622 gsl_rng_r250 = (gsl_rng_type *)(argp);
2623 }
2624 fail:
2625 return 1;
2626 }
2627
2628
_wrap_gsl_rng_r250_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2629 SWIGCLASS_STATIC int _wrap_gsl_rng_r250_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2630 MAGIC_PPERL
2631 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_r250));
2632 return 1;
2633 }
2634
2635
_wrap_gsl_rng_ran0_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2636 SWIGCLASS_STATIC int _wrap_gsl_rng_ran0_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2637 MAGIC_PPERL
2638 {
2639 void *argp = 0;
2640 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
2641 if (!SWIG_IsOK(res)) {
2642 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_ran0""' of type '""gsl_rng_type const *""'");
2643 }
2644 gsl_rng_ran0 = (gsl_rng_type *)(argp);
2645 }
2646 fail:
2647 return 1;
2648 }
2649
2650
_wrap_gsl_rng_ran0_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2651 SWIGCLASS_STATIC int _wrap_gsl_rng_ran0_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2652 MAGIC_PPERL
2653 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_ran0));
2654 return 1;
2655 }
2656
2657
_wrap_gsl_rng_ran1_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2658 SWIGCLASS_STATIC int _wrap_gsl_rng_ran1_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2659 MAGIC_PPERL
2660 {
2661 void *argp = 0;
2662 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
2663 if (!SWIG_IsOK(res)) {
2664 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_ran1""' of type '""gsl_rng_type const *""'");
2665 }
2666 gsl_rng_ran1 = (gsl_rng_type *)(argp);
2667 }
2668 fail:
2669 return 1;
2670 }
2671
2672
_wrap_gsl_rng_ran1_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2673 SWIGCLASS_STATIC int _wrap_gsl_rng_ran1_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2674 MAGIC_PPERL
2675 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_ran1));
2676 return 1;
2677 }
2678
2679
_wrap_gsl_rng_ran2_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2680 SWIGCLASS_STATIC int _wrap_gsl_rng_ran2_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2681 MAGIC_PPERL
2682 {
2683 void *argp = 0;
2684 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
2685 if (!SWIG_IsOK(res)) {
2686 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_ran2""' of type '""gsl_rng_type const *""'");
2687 }
2688 gsl_rng_ran2 = (gsl_rng_type *)(argp);
2689 }
2690 fail:
2691 return 1;
2692 }
2693
2694
_wrap_gsl_rng_ran2_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2695 SWIGCLASS_STATIC int _wrap_gsl_rng_ran2_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2696 MAGIC_PPERL
2697 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_ran2));
2698 return 1;
2699 }
2700
2701
_wrap_gsl_rng_ran3_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2702 SWIGCLASS_STATIC int _wrap_gsl_rng_ran3_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2703 MAGIC_PPERL
2704 {
2705 void *argp = 0;
2706 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
2707 if (!SWIG_IsOK(res)) {
2708 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_ran3""' of type '""gsl_rng_type const *""'");
2709 }
2710 gsl_rng_ran3 = (gsl_rng_type *)(argp);
2711 }
2712 fail:
2713 return 1;
2714 }
2715
2716
_wrap_gsl_rng_ran3_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2717 SWIGCLASS_STATIC int _wrap_gsl_rng_ran3_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2718 MAGIC_PPERL
2719 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_ran3));
2720 return 1;
2721 }
2722
2723
_wrap_gsl_rng_rand_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2724 SWIGCLASS_STATIC int _wrap_gsl_rng_rand_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2725 MAGIC_PPERL
2726 {
2727 void *argp = 0;
2728 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
2729 if (!SWIG_IsOK(res)) {
2730 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_rand""' of type '""gsl_rng_type const *""'");
2731 }
2732 gsl_rng_rand = (gsl_rng_type *)(argp);
2733 }
2734 fail:
2735 return 1;
2736 }
2737
2738
_wrap_gsl_rng_rand_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2739 SWIGCLASS_STATIC int _wrap_gsl_rng_rand_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2740 MAGIC_PPERL
2741 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_rand));
2742 return 1;
2743 }
2744
2745
_wrap_gsl_rng_rand48_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2746 SWIGCLASS_STATIC int _wrap_gsl_rng_rand48_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2747 MAGIC_PPERL
2748 {
2749 void *argp = 0;
2750 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
2751 if (!SWIG_IsOK(res)) {
2752 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_rand48""' of type '""gsl_rng_type const *""'");
2753 }
2754 gsl_rng_rand48 = (gsl_rng_type *)(argp);
2755 }
2756 fail:
2757 return 1;
2758 }
2759
2760
_wrap_gsl_rng_rand48_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2761 SWIGCLASS_STATIC int _wrap_gsl_rng_rand48_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2762 MAGIC_PPERL
2763 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_rand48));
2764 return 1;
2765 }
2766
2767
_wrap_gsl_rng_random128_bsd_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2768 SWIGCLASS_STATIC int _wrap_gsl_rng_random128_bsd_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2769 MAGIC_PPERL
2770 {
2771 void *argp = 0;
2772 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
2773 if (!SWIG_IsOK(res)) {
2774 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_random128_bsd""' of type '""gsl_rng_type const *""'");
2775 }
2776 gsl_rng_random128_bsd = (gsl_rng_type *)(argp);
2777 }
2778 fail:
2779 return 1;
2780 }
2781
2782
_wrap_gsl_rng_random128_bsd_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2783 SWIGCLASS_STATIC int _wrap_gsl_rng_random128_bsd_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2784 MAGIC_PPERL
2785 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_random128_bsd));
2786 return 1;
2787 }
2788
2789
_wrap_gsl_rng_random128_glibc2_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2790 SWIGCLASS_STATIC int _wrap_gsl_rng_random128_glibc2_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2791 MAGIC_PPERL
2792 {
2793 void *argp = 0;
2794 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
2795 if (!SWIG_IsOK(res)) {
2796 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_random128_glibc2""' of type '""gsl_rng_type const *""'");
2797 }
2798 gsl_rng_random128_glibc2 = (gsl_rng_type *)(argp);
2799 }
2800 fail:
2801 return 1;
2802 }
2803
2804
_wrap_gsl_rng_random128_glibc2_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2805 SWIGCLASS_STATIC int _wrap_gsl_rng_random128_glibc2_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2806 MAGIC_PPERL
2807 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_random128_glibc2));
2808 return 1;
2809 }
2810
2811
_wrap_gsl_rng_random128_libc5_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2812 SWIGCLASS_STATIC int _wrap_gsl_rng_random128_libc5_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2813 MAGIC_PPERL
2814 {
2815 void *argp = 0;
2816 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
2817 if (!SWIG_IsOK(res)) {
2818 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_random128_libc5""' of type '""gsl_rng_type const *""'");
2819 }
2820 gsl_rng_random128_libc5 = (gsl_rng_type *)(argp);
2821 }
2822 fail:
2823 return 1;
2824 }
2825
2826
_wrap_gsl_rng_random128_libc5_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2827 SWIGCLASS_STATIC int _wrap_gsl_rng_random128_libc5_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2828 MAGIC_PPERL
2829 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_random128_libc5));
2830 return 1;
2831 }
2832
2833
_wrap_gsl_rng_random256_bsd_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2834 SWIGCLASS_STATIC int _wrap_gsl_rng_random256_bsd_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2835 MAGIC_PPERL
2836 {
2837 void *argp = 0;
2838 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
2839 if (!SWIG_IsOK(res)) {
2840 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_random256_bsd""' of type '""gsl_rng_type const *""'");
2841 }
2842 gsl_rng_random256_bsd = (gsl_rng_type *)(argp);
2843 }
2844 fail:
2845 return 1;
2846 }
2847
2848
_wrap_gsl_rng_random256_bsd_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2849 SWIGCLASS_STATIC int _wrap_gsl_rng_random256_bsd_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2850 MAGIC_PPERL
2851 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_random256_bsd));
2852 return 1;
2853 }
2854
2855
_wrap_gsl_rng_random256_glibc2_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2856 SWIGCLASS_STATIC int _wrap_gsl_rng_random256_glibc2_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2857 MAGIC_PPERL
2858 {
2859 void *argp = 0;
2860 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
2861 if (!SWIG_IsOK(res)) {
2862 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_random256_glibc2""' of type '""gsl_rng_type const *""'");
2863 }
2864 gsl_rng_random256_glibc2 = (gsl_rng_type *)(argp);
2865 }
2866 fail:
2867 return 1;
2868 }
2869
2870
_wrap_gsl_rng_random256_glibc2_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2871 SWIGCLASS_STATIC int _wrap_gsl_rng_random256_glibc2_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2872 MAGIC_PPERL
2873 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_random256_glibc2));
2874 return 1;
2875 }
2876
2877
_wrap_gsl_rng_random256_libc5_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2878 SWIGCLASS_STATIC int _wrap_gsl_rng_random256_libc5_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2879 MAGIC_PPERL
2880 {
2881 void *argp = 0;
2882 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
2883 if (!SWIG_IsOK(res)) {
2884 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_random256_libc5""' of type '""gsl_rng_type const *""'");
2885 }
2886 gsl_rng_random256_libc5 = (gsl_rng_type *)(argp);
2887 }
2888 fail:
2889 return 1;
2890 }
2891
2892
_wrap_gsl_rng_random256_libc5_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2893 SWIGCLASS_STATIC int _wrap_gsl_rng_random256_libc5_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2894 MAGIC_PPERL
2895 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_random256_libc5));
2896 return 1;
2897 }
2898
2899
_wrap_gsl_rng_random32_bsd_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2900 SWIGCLASS_STATIC int _wrap_gsl_rng_random32_bsd_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2901 MAGIC_PPERL
2902 {
2903 void *argp = 0;
2904 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
2905 if (!SWIG_IsOK(res)) {
2906 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_random32_bsd""' of type '""gsl_rng_type const *""'");
2907 }
2908 gsl_rng_random32_bsd = (gsl_rng_type *)(argp);
2909 }
2910 fail:
2911 return 1;
2912 }
2913
2914
_wrap_gsl_rng_random32_bsd_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2915 SWIGCLASS_STATIC int _wrap_gsl_rng_random32_bsd_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2916 MAGIC_PPERL
2917 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_random32_bsd));
2918 return 1;
2919 }
2920
2921
_wrap_gsl_rng_random32_glibc2_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2922 SWIGCLASS_STATIC int _wrap_gsl_rng_random32_glibc2_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2923 MAGIC_PPERL
2924 {
2925 void *argp = 0;
2926 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
2927 if (!SWIG_IsOK(res)) {
2928 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_random32_glibc2""' of type '""gsl_rng_type const *""'");
2929 }
2930 gsl_rng_random32_glibc2 = (gsl_rng_type *)(argp);
2931 }
2932 fail:
2933 return 1;
2934 }
2935
2936
_wrap_gsl_rng_random32_glibc2_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2937 SWIGCLASS_STATIC int _wrap_gsl_rng_random32_glibc2_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2938 MAGIC_PPERL
2939 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_random32_glibc2));
2940 return 1;
2941 }
2942
2943
_wrap_gsl_rng_random32_libc5_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2944 SWIGCLASS_STATIC int _wrap_gsl_rng_random32_libc5_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2945 MAGIC_PPERL
2946 {
2947 void *argp = 0;
2948 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
2949 if (!SWIG_IsOK(res)) {
2950 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_random32_libc5""' of type '""gsl_rng_type const *""'");
2951 }
2952 gsl_rng_random32_libc5 = (gsl_rng_type *)(argp);
2953 }
2954 fail:
2955 return 1;
2956 }
2957
2958
_wrap_gsl_rng_random32_libc5_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2959 SWIGCLASS_STATIC int _wrap_gsl_rng_random32_libc5_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2960 MAGIC_PPERL
2961 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_random32_libc5));
2962 return 1;
2963 }
2964
2965
_wrap_gsl_rng_random64_bsd_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2966 SWIGCLASS_STATIC int _wrap_gsl_rng_random64_bsd_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2967 MAGIC_PPERL
2968 {
2969 void *argp = 0;
2970 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
2971 if (!SWIG_IsOK(res)) {
2972 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_random64_bsd""' of type '""gsl_rng_type const *""'");
2973 }
2974 gsl_rng_random64_bsd = (gsl_rng_type *)(argp);
2975 }
2976 fail:
2977 return 1;
2978 }
2979
2980
_wrap_gsl_rng_random64_bsd_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2981 SWIGCLASS_STATIC int _wrap_gsl_rng_random64_bsd_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2982 MAGIC_PPERL
2983 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_random64_bsd));
2984 return 1;
2985 }
2986
2987
_wrap_gsl_rng_random64_glibc2_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2988 SWIGCLASS_STATIC int _wrap_gsl_rng_random64_glibc2_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2989 MAGIC_PPERL
2990 {
2991 void *argp = 0;
2992 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
2993 if (!SWIG_IsOK(res)) {
2994 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_random64_glibc2""' of type '""gsl_rng_type const *""'");
2995 }
2996 gsl_rng_random64_glibc2 = (gsl_rng_type *)(argp);
2997 }
2998 fail:
2999 return 1;
3000 }
3001
3002
_wrap_gsl_rng_random64_glibc2_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3003 SWIGCLASS_STATIC int _wrap_gsl_rng_random64_glibc2_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
3004 MAGIC_PPERL
3005 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_random64_glibc2));
3006 return 1;
3007 }
3008
3009
_wrap_gsl_rng_random64_libc5_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3010 SWIGCLASS_STATIC int _wrap_gsl_rng_random64_libc5_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
3011 MAGIC_PPERL
3012 {
3013 void *argp = 0;
3014 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
3015 if (!SWIG_IsOK(res)) {
3016 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_random64_libc5""' of type '""gsl_rng_type const *""'");
3017 }
3018 gsl_rng_random64_libc5 = (gsl_rng_type *)(argp);
3019 }
3020 fail:
3021 return 1;
3022 }
3023
3024
_wrap_gsl_rng_random64_libc5_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3025 SWIGCLASS_STATIC int _wrap_gsl_rng_random64_libc5_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
3026 MAGIC_PPERL
3027 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_random64_libc5));
3028 return 1;
3029 }
3030
3031
_wrap_gsl_rng_random8_bsd_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3032 SWIGCLASS_STATIC int _wrap_gsl_rng_random8_bsd_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
3033 MAGIC_PPERL
3034 {
3035 void *argp = 0;
3036 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
3037 if (!SWIG_IsOK(res)) {
3038 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_random8_bsd""' of type '""gsl_rng_type const *""'");
3039 }
3040 gsl_rng_random8_bsd = (gsl_rng_type *)(argp);
3041 }
3042 fail:
3043 return 1;
3044 }
3045
3046
_wrap_gsl_rng_random8_bsd_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3047 SWIGCLASS_STATIC int _wrap_gsl_rng_random8_bsd_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
3048 MAGIC_PPERL
3049 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_random8_bsd));
3050 return 1;
3051 }
3052
3053
_wrap_gsl_rng_random8_glibc2_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3054 SWIGCLASS_STATIC int _wrap_gsl_rng_random8_glibc2_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
3055 MAGIC_PPERL
3056 {
3057 void *argp = 0;
3058 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
3059 if (!SWIG_IsOK(res)) {
3060 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_random8_glibc2""' of type '""gsl_rng_type const *""'");
3061 }
3062 gsl_rng_random8_glibc2 = (gsl_rng_type *)(argp);
3063 }
3064 fail:
3065 return 1;
3066 }
3067
3068
_wrap_gsl_rng_random8_glibc2_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3069 SWIGCLASS_STATIC int _wrap_gsl_rng_random8_glibc2_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
3070 MAGIC_PPERL
3071 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_random8_glibc2));
3072 return 1;
3073 }
3074
3075
_wrap_gsl_rng_random8_libc5_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3076 SWIGCLASS_STATIC int _wrap_gsl_rng_random8_libc5_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
3077 MAGIC_PPERL
3078 {
3079 void *argp = 0;
3080 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
3081 if (!SWIG_IsOK(res)) {
3082 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_random8_libc5""' of type '""gsl_rng_type const *""'");
3083 }
3084 gsl_rng_random8_libc5 = (gsl_rng_type *)(argp);
3085 }
3086 fail:
3087 return 1;
3088 }
3089
3090
_wrap_gsl_rng_random8_libc5_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3091 SWIGCLASS_STATIC int _wrap_gsl_rng_random8_libc5_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
3092 MAGIC_PPERL
3093 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_random8_libc5));
3094 return 1;
3095 }
3096
3097
_wrap_gsl_rng_random_bsd_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3098 SWIGCLASS_STATIC int _wrap_gsl_rng_random_bsd_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
3099 MAGIC_PPERL
3100 {
3101 void *argp = 0;
3102 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
3103 if (!SWIG_IsOK(res)) {
3104 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_random_bsd""' of type '""gsl_rng_type const *""'");
3105 }
3106 gsl_rng_random_bsd = (gsl_rng_type *)(argp);
3107 }
3108 fail:
3109 return 1;
3110 }
3111
3112
_wrap_gsl_rng_random_bsd_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3113 SWIGCLASS_STATIC int _wrap_gsl_rng_random_bsd_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
3114 MAGIC_PPERL
3115 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_random_bsd));
3116 return 1;
3117 }
3118
3119
_wrap_gsl_rng_random_glibc2_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3120 SWIGCLASS_STATIC int _wrap_gsl_rng_random_glibc2_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
3121 MAGIC_PPERL
3122 {
3123 void *argp = 0;
3124 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
3125 if (!SWIG_IsOK(res)) {
3126 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_random_glibc2""' of type '""gsl_rng_type const *""'");
3127 }
3128 gsl_rng_random_glibc2 = (gsl_rng_type *)(argp);
3129 }
3130 fail:
3131 return 1;
3132 }
3133
3134
_wrap_gsl_rng_random_glibc2_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3135 SWIGCLASS_STATIC int _wrap_gsl_rng_random_glibc2_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
3136 MAGIC_PPERL
3137 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_random_glibc2));
3138 return 1;
3139 }
3140
3141
_wrap_gsl_rng_random_libc5_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3142 SWIGCLASS_STATIC int _wrap_gsl_rng_random_libc5_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
3143 MAGIC_PPERL
3144 {
3145 void *argp = 0;
3146 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
3147 if (!SWIG_IsOK(res)) {
3148 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_random_libc5""' of type '""gsl_rng_type const *""'");
3149 }
3150 gsl_rng_random_libc5 = (gsl_rng_type *)(argp);
3151 }
3152 fail:
3153 return 1;
3154 }
3155
3156
_wrap_gsl_rng_random_libc5_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3157 SWIGCLASS_STATIC int _wrap_gsl_rng_random_libc5_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
3158 MAGIC_PPERL
3159 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_random_libc5));
3160 return 1;
3161 }
3162
3163
_wrap_gsl_rng_randu_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3164 SWIGCLASS_STATIC int _wrap_gsl_rng_randu_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
3165 MAGIC_PPERL
3166 {
3167 void *argp = 0;
3168 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
3169 if (!SWIG_IsOK(res)) {
3170 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_randu""' of type '""gsl_rng_type const *""'");
3171 }
3172 gsl_rng_randu = (gsl_rng_type *)(argp);
3173 }
3174 fail:
3175 return 1;
3176 }
3177
3178
_wrap_gsl_rng_randu_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3179 SWIGCLASS_STATIC int _wrap_gsl_rng_randu_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
3180 MAGIC_PPERL
3181 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_randu));
3182 return 1;
3183 }
3184
3185
_wrap_gsl_rng_ranf_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3186 SWIGCLASS_STATIC int _wrap_gsl_rng_ranf_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
3187 MAGIC_PPERL
3188 {
3189 void *argp = 0;
3190 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
3191 if (!SWIG_IsOK(res)) {
3192 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_ranf""' of type '""gsl_rng_type const *""'");
3193 }
3194 gsl_rng_ranf = (gsl_rng_type *)(argp);
3195 }
3196 fail:
3197 return 1;
3198 }
3199
3200
_wrap_gsl_rng_ranf_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3201 SWIGCLASS_STATIC int _wrap_gsl_rng_ranf_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
3202 MAGIC_PPERL
3203 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_ranf));
3204 return 1;
3205 }
3206
3207
_wrap_gsl_rng_ranlux_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3208 SWIGCLASS_STATIC int _wrap_gsl_rng_ranlux_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
3209 MAGIC_PPERL
3210 {
3211 void *argp = 0;
3212 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
3213 if (!SWIG_IsOK(res)) {
3214 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_ranlux""' of type '""gsl_rng_type const *""'");
3215 }
3216 gsl_rng_ranlux = (gsl_rng_type *)(argp);
3217 }
3218 fail:
3219 return 1;
3220 }
3221
3222
_wrap_gsl_rng_ranlux_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3223 SWIGCLASS_STATIC int _wrap_gsl_rng_ranlux_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
3224 MAGIC_PPERL
3225 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_ranlux));
3226 return 1;
3227 }
3228
3229
_wrap_gsl_rng_ranlux389_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3230 SWIGCLASS_STATIC int _wrap_gsl_rng_ranlux389_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
3231 MAGIC_PPERL
3232 {
3233 void *argp = 0;
3234 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
3235 if (!SWIG_IsOK(res)) {
3236 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_ranlux389""' of type '""gsl_rng_type const *""'");
3237 }
3238 gsl_rng_ranlux389 = (gsl_rng_type *)(argp);
3239 }
3240 fail:
3241 return 1;
3242 }
3243
3244
_wrap_gsl_rng_ranlux389_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3245 SWIGCLASS_STATIC int _wrap_gsl_rng_ranlux389_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
3246 MAGIC_PPERL
3247 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_ranlux389));
3248 return 1;
3249 }
3250
3251
_wrap_gsl_rng_ranlxd1_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3252 SWIGCLASS_STATIC int _wrap_gsl_rng_ranlxd1_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
3253 MAGIC_PPERL
3254 {
3255 void *argp = 0;
3256 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
3257 if (!SWIG_IsOK(res)) {
3258 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_ranlxd1""' of type '""gsl_rng_type const *""'");
3259 }
3260 gsl_rng_ranlxd1 = (gsl_rng_type *)(argp);
3261 }
3262 fail:
3263 return 1;
3264 }
3265
3266
_wrap_gsl_rng_ranlxd1_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3267 SWIGCLASS_STATIC int _wrap_gsl_rng_ranlxd1_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
3268 MAGIC_PPERL
3269 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_ranlxd1));
3270 return 1;
3271 }
3272
3273
_wrap_gsl_rng_ranlxd2_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3274 SWIGCLASS_STATIC int _wrap_gsl_rng_ranlxd2_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
3275 MAGIC_PPERL
3276 {
3277 void *argp = 0;
3278 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
3279 if (!SWIG_IsOK(res)) {
3280 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_ranlxd2""' of type '""gsl_rng_type const *""'");
3281 }
3282 gsl_rng_ranlxd2 = (gsl_rng_type *)(argp);
3283 }
3284 fail:
3285 return 1;
3286 }
3287
3288
_wrap_gsl_rng_ranlxd2_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3289 SWIGCLASS_STATIC int _wrap_gsl_rng_ranlxd2_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
3290 MAGIC_PPERL
3291 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_ranlxd2));
3292 return 1;
3293 }
3294
3295
_wrap_gsl_rng_ranlxs0_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3296 SWIGCLASS_STATIC int _wrap_gsl_rng_ranlxs0_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
3297 MAGIC_PPERL
3298 {
3299 void *argp = 0;
3300 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
3301 if (!SWIG_IsOK(res)) {
3302 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_ranlxs0""' of type '""gsl_rng_type const *""'");
3303 }
3304 gsl_rng_ranlxs0 = (gsl_rng_type *)(argp);
3305 }
3306 fail:
3307 return 1;
3308 }
3309
3310
_wrap_gsl_rng_ranlxs0_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3311 SWIGCLASS_STATIC int _wrap_gsl_rng_ranlxs0_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
3312 MAGIC_PPERL
3313 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_ranlxs0));
3314 return 1;
3315 }
3316
3317
_wrap_gsl_rng_ranlxs1_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3318 SWIGCLASS_STATIC int _wrap_gsl_rng_ranlxs1_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
3319 MAGIC_PPERL
3320 {
3321 void *argp = 0;
3322 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
3323 if (!SWIG_IsOK(res)) {
3324 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_ranlxs1""' of type '""gsl_rng_type const *""'");
3325 }
3326 gsl_rng_ranlxs1 = (gsl_rng_type *)(argp);
3327 }
3328 fail:
3329 return 1;
3330 }
3331
3332
_wrap_gsl_rng_ranlxs1_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3333 SWIGCLASS_STATIC int _wrap_gsl_rng_ranlxs1_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
3334 MAGIC_PPERL
3335 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_ranlxs1));
3336 return 1;
3337 }
3338
3339
_wrap_gsl_rng_ranlxs2_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3340 SWIGCLASS_STATIC int _wrap_gsl_rng_ranlxs2_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
3341 MAGIC_PPERL
3342 {
3343 void *argp = 0;
3344 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
3345 if (!SWIG_IsOK(res)) {
3346 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_ranlxs2""' of type '""gsl_rng_type const *""'");
3347 }
3348 gsl_rng_ranlxs2 = (gsl_rng_type *)(argp);
3349 }
3350 fail:
3351 return 1;
3352 }
3353
3354
_wrap_gsl_rng_ranlxs2_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3355 SWIGCLASS_STATIC int _wrap_gsl_rng_ranlxs2_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
3356 MAGIC_PPERL
3357 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_ranlxs2));
3358 return 1;
3359 }
3360
3361
_wrap_gsl_rng_ranmar_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3362 SWIGCLASS_STATIC int _wrap_gsl_rng_ranmar_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
3363 MAGIC_PPERL
3364 {
3365 void *argp = 0;
3366 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
3367 if (!SWIG_IsOK(res)) {
3368 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_ranmar""' of type '""gsl_rng_type const *""'");
3369 }
3370 gsl_rng_ranmar = (gsl_rng_type *)(argp);
3371 }
3372 fail:
3373 return 1;
3374 }
3375
3376
_wrap_gsl_rng_ranmar_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3377 SWIGCLASS_STATIC int _wrap_gsl_rng_ranmar_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
3378 MAGIC_PPERL
3379 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_ranmar));
3380 return 1;
3381 }
3382
3383
_wrap_gsl_rng_slatec_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3384 SWIGCLASS_STATIC int _wrap_gsl_rng_slatec_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
3385 MAGIC_PPERL
3386 {
3387 void *argp = 0;
3388 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
3389 if (!SWIG_IsOK(res)) {
3390 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_slatec""' of type '""gsl_rng_type const *""'");
3391 }
3392 gsl_rng_slatec = (gsl_rng_type *)(argp);
3393 }
3394 fail:
3395 return 1;
3396 }
3397
3398
_wrap_gsl_rng_slatec_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3399 SWIGCLASS_STATIC int _wrap_gsl_rng_slatec_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
3400 MAGIC_PPERL
3401 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_slatec));
3402 return 1;
3403 }
3404
3405
_wrap_gsl_rng_taus_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3406 SWIGCLASS_STATIC int _wrap_gsl_rng_taus_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
3407 MAGIC_PPERL
3408 {
3409 void *argp = 0;
3410 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
3411 if (!SWIG_IsOK(res)) {
3412 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_taus""' of type '""gsl_rng_type const *""'");
3413 }
3414 gsl_rng_taus = (gsl_rng_type *)(argp);
3415 }
3416 fail:
3417 return 1;
3418 }
3419
3420
_wrap_gsl_rng_taus_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3421 SWIGCLASS_STATIC int _wrap_gsl_rng_taus_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
3422 MAGIC_PPERL
3423 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_taus));
3424 return 1;
3425 }
3426
3427
_wrap_gsl_rng_taus2_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3428 SWIGCLASS_STATIC int _wrap_gsl_rng_taus2_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
3429 MAGIC_PPERL
3430 {
3431 void *argp = 0;
3432 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
3433 if (!SWIG_IsOK(res)) {
3434 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_taus2""' of type '""gsl_rng_type const *""'");
3435 }
3436 gsl_rng_taus2 = (gsl_rng_type *)(argp);
3437 }
3438 fail:
3439 return 1;
3440 }
3441
3442
_wrap_gsl_rng_taus2_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3443 SWIGCLASS_STATIC int _wrap_gsl_rng_taus2_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
3444 MAGIC_PPERL
3445 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_taus2));
3446 return 1;
3447 }
3448
3449
_wrap_gsl_rng_taus113_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3450 SWIGCLASS_STATIC int _wrap_gsl_rng_taus113_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
3451 MAGIC_PPERL
3452 {
3453 void *argp = 0;
3454 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
3455 if (!SWIG_IsOK(res)) {
3456 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_taus113""' of type '""gsl_rng_type const *""'");
3457 }
3458 gsl_rng_taus113 = (gsl_rng_type *)(argp);
3459 }
3460 fail:
3461 return 1;
3462 }
3463
3464
_wrap_gsl_rng_taus113_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3465 SWIGCLASS_STATIC int _wrap_gsl_rng_taus113_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
3466 MAGIC_PPERL
3467 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_taus113));
3468 return 1;
3469 }
3470
3471
_wrap_gsl_rng_transputer_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3472 SWIGCLASS_STATIC int _wrap_gsl_rng_transputer_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
3473 MAGIC_PPERL
3474 {
3475 void *argp = 0;
3476 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
3477 if (!SWIG_IsOK(res)) {
3478 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_transputer""' of type '""gsl_rng_type const *""'");
3479 }
3480 gsl_rng_transputer = (gsl_rng_type *)(argp);
3481 }
3482 fail:
3483 return 1;
3484 }
3485
3486
_wrap_gsl_rng_transputer_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3487 SWIGCLASS_STATIC int _wrap_gsl_rng_transputer_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
3488 MAGIC_PPERL
3489 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_transputer));
3490 return 1;
3491 }
3492
3493
_wrap_gsl_rng_tt800_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3494 SWIGCLASS_STATIC int _wrap_gsl_rng_tt800_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
3495 MAGIC_PPERL
3496 {
3497 void *argp = 0;
3498 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
3499 if (!SWIG_IsOK(res)) {
3500 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_tt800""' of type '""gsl_rng_type const *""'");
3501 }
3502 gsl_rng_tt800 = (gsl_rng_type *)(argp);
3503 }
3504 fail:
3505 return 1;
3506 }
3507
3508
_wrap_gsl_rng_tt800_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3509 SWIGCLASS_STATIC int _wrap_gsl_rng_tt800_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
3510 MAGIC_PPERL
3511 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_tt800));
3512 return 1;
3513 }
3514
3515
_wrap_gsl_rng_uni_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3516 SWIGCLASS_STATIC int _wrap_gsl_rng_uni_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
3517 MAGIC_PPERL
3518 {
3519 void *argp = 0;
3520 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
3521 if (!SWIG_IsOK(res)) {
3522 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_uni""' of type '""gsl_rng_type const *""'");
3523 }
3524 gsl_rng_uni = (gsl_rng_type *)(argp);
3525 }
3526 fail:
3527 return 1;
3528 }
3529
3530
_wrap_gsl_rng_uni_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3531 SWIGCLASS_STATIC int _wrap_gsl_rng_uni_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
3532 MAGIC_PPERL
3533 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_uni));
3534 return 1;
3535 }
3536
3537
_wrap_gsl_rng_uni32_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3538 SWIGCLASS_STATIC int _wrap_gsl_rng_uni32_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
3539 MAGIC_PPERL
3540 {
3541 void *argp = 0;
3542 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
3543 if (!SWIG_IsOK(res)) {
3544 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_uni32""' of type '""gsl_rng_type const *""'");
3545 }
3546 gsl_rng_uni32 = (gsl_rng_type *)(argp);
3547 }
3548 fail:
3549 return 1;
3550 }
3551
3552
_wrap_gsl_rng_uni32_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3553 SWIGCLASS_STATIC int _wrap_gsl_rng_uni32_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
3554 MAGIC_PPERL
3555 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_uni32));
3556 return 1;
3557 }
3558
3559
_wrap_gsl_rng_vax_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3560 SWIGCLASS_STATIC int _wrap_gsl_rng_vax_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
3561 MAGIC_PPERL
3562 {
3563 void *argp = 0;
3564 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
3565 if (!SWIG_IsOK(res)) {
3566 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_vax""' of type '""gsl_rng_type const *""'");
3567 }
3568 gsl_rng_vax = (gsl_rng_type *)(argp);
3569 }
3570 fail:
3571 return 1;
3572 }
3573
3574
_wrap_gsl_rng_vax_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3575 SWIGCLASS_STATIC int _wrap_gsl_rng_vax_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
3576 MAGIC_PPERL
3577 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_vax));
3578 return 1;
3579 }
3580
3581
_wrap_gsl_rng_waterman14_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3582 SWIGCLASS_STATIC int _wrap_gsl_rng_waterman14_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
3583 MAGIC_PPERL
3584 {
3585 void *argp = 0;
3586 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
3587 if (!SWIG_IsOK(res)) {
3588 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_waterman14""' of type '""gsl_rng_type const *""'");
3589 }
3590 gsl_rng_waterman14 = (gsl_rng_type *)(argp);
3591 }
3592 fail:
3593 return 1;
3594 }
3595
3596
_wrap_gsl_rng_waterman14_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3597 SWIGCLASS_STATIC int _wrap_gsl_rng_waterman14_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
3598 MAGIC_PPERL
3599 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_waterman14));
3600 return 1;
3601 }
3602
3603
_wrap_gsl_rng_zuf_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3604 SWIGCLASS_STATIC int _wrap_gsl_rng_zuf_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
3605 MAGIC_PPERL
3606 {
3607 void *argp = 0;
3608 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
3609 if (!SWIG_IsOK(res)) {
3610 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_zuf""' of type '""gsl_rng_type const *""'");
3611 }
3612 gsl_rng_zuf = (gsl_rng_type *)(argp);
3613 }
3614 fail:
3615 return 1;
3616 }
3617
3618
_wrap_gsl_rng_zuf_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3619 SWIGCLASS_STATIC int _wrap_gsl_rng_zuf_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
3620 MAGIC_PPERL
3621 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_zuf));
3622 return 1;
3623 }
3624
3625
_wrap_gsl_rng_default_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3626 SWIGCLASS_STATIC int _wrap_gsl_rng_default_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
3627 MAGIC_PPERL
3628 {
3629 void *argp = 0;
3630 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_rng_type, 0 );
3631 if (!SWIG_IsOK(res)) {
3632 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_default""' of type '""gsl_rng_type const *""'");
3633 }
3634 gsl_rng_default = (gsl_rng_type *)(argp);
3635 }
3636 fail:
3637 return 1;
3638 }
3639
3640
_wrap_gsl_rng_default_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3641 SWIGCLASS_STATIC int _wrap_gsl_rng_default_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
3642 MAGIC_PPERL
3643 sv_setiv(SvRV(sv),PTR2IV(gsl_rng_default));
3644 return 1;
3645 }
3646
3647
_wrap_gsl_rng_default_seed_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3648 SWIGCLASS_STATIC int _wrap_gsl_rng_default_seed_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
3649 MAGIC_PPERL
3650 {
3651 unsigned long val;
3652 int res = SWIG_AsVal_unsigned_SS_long SWIG_PERL_CALL_ARGS_2(sv, &val);
3653 if (!SWIG_IsOK(res)) {
3654 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_rng_default_seed""' of type '""unsigned long""'");
3655 }
3656 gsl_rng_default_seed = (unsigned long)(val);
3657 }
3658 fail:
3659 return 1;
3660 }
3661
3662
_wrap_gsl_rng_default_seed_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))3663 SWIGCLASS_STATIC int _wrap_gsl_rng_default_seed_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
3664 MAGIC_PPERL
3665 sv_setsv(sv,SWIG_From_unsigned_SS_long SWIG_PERL_CALL_ARGS_1((unsigned long)(gsl_rng_default_seed))) ;
3666 return 1;
3667 }
3668
3669
3670
3671
3672 #ifdef PERL_OBJECT
3673 };
3674 #endif
3675
3676 #ifdef __cplusplus
3677 }
3678 #endif
3679
3680 #ifdef __cplusplus
3681 extern "C" {
3682 #endif
XS(_wrap_gsl_error)3683 XS(_wrap_gsl_error) {
3684 {
3685 char *arg1 = (char *) 0 ;
3686 char *arg2 = (char *) 0 ;
3687 int arg3 ;
3688 int arg4 ;
3689 int res1 ;
3690 char *buf1 = 0 ;
3691 int alloc1 = 0 ;
3692 int res2 ;
3693 char *buf2 = 0 ;
3694 int alloc2 = 0 ;
3695 int val3 ;
3696 int ecode3 = 0 ;
3697 int val4 ;
3698 int ecode4 = 0 ;
3699 int argvi = 0;
3700 dXSARGS;
3701
3702 if ((items < 4) || (items > 4)) {
3703 SWIG_croak("Usage: gsl_error(reason,file,line,gsl_errno);");
3704 }
3705 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
3706 if (!SWIG_IsOK(res1)) {
3707 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_error" "', argument " "1"" of type '" "char const *""'");
3708 }
3709 arg1 = (char *)(buf1);
3710 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
3711 if (!SWIG_IsOK(res2)) {
3712 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_error" "', argument " "2"" of type '" "char const *""'");
3713 }
3714 arg2 = (char *)(buf2);
3715 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
3716 if (!SWIG_IsOK(ecode3)) {
3717 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_error" "', argument " "3"" of type '" "int""'");
3718 }
3719 arg3 = (int)(val3);
3720 ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
3721 if (!SWIG_IsOK(ecode4)) {
3722 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_error" "', argument " "4"" of type '" "int""'");
3723 }
3724 arg4 = (int)(val4);
3725 gsl_error((char const *)arg1,(char const *)arg2,arg3,arg4);
3726 ST(argvi) = &PL_sv_undef;
3727 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
3728 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
3729
3730
3731 XSRETURN(argvi);
3732 fail:
3733 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
3734 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
3735
3736
3737 SWIG_croak_null();
3738 }
3739 }
3740
3741
XS(_wrap_gsl_stream_printf)3742 XS(_wrap_gsl_stream_printf) {
3743 {
3744 char *arg1 = (char *) 0 ;
3745 char *arg2 = (char *) 0 ;
3746 int arg3 ;
3747 char *arg4 = (char *) 0 ;
3748 int res1 ;
3749 char *buf1 = 0 ;
3750 int alloc1 = 0 ;
3751 int res2 ;
3752 char *buf2 = 0 ;
3753 int alloc2 = 0 ;
3754 int val3 ;
3755 int ecode3 = 0 ;
3756 int res4 ;
3757 char *buf4 = 0 ;
3758 int alloc4 = 0 ;
3759 int argvi = 0;
3760 dXSARGS;
3761
3762 if ((items < 4) || (items > 4)) {
3763 SWIG_croak("Usage: gsl_stream_printf(label,file,line,reason);");
3764 }
3765 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
3766 if (!SWIG_IsOK(res1)) {
3767 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_stream_printf" "', argument " "1"" of type '" "char const *""'");
3768 }
3769 arg1 = (char *)(buf1);
3770 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
3771 if (!SWIG_IsOK(res2)) {
3772 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_stream_printf" "', argument " "2"" of type '" "char const *""'");
3773 }
3774 arg2 = (char *)(buf2);
3775 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
3776 if (!SWIG_IsOK(ecode3)) {
3777 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_stream_printf" "', argument " "3"" of type '" "int""'");
3778 }
3779 arg3 = (int)(val3);
3780 res4 = SWIG_AsCharPtrAndSize(ST(3), &buf4, NULL, &alloc4);
3781 if (!SWIG_IsOK(res4)) {
3782 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_stream_printf" "', argument " "4"" of type '" "char const *""'");
3783 }
3784 arg4 = (char *)(buf4);
3785 gsl_stream_printf((char const *)arg1,(char const *)arg2,arg3,(char const *)arg4);
3786 ST(argvi) = &PL_sv_undef;
3787 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
3788 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
3789
3790 if (alloc4 == SWIG_NEWOBJ) free((char*)buf4);
3791 XSRETURN(argvi);
3792 fail:
3793 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
3794 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
3795
3796 if (alloc4 == SWIG_NEWOBJ) free((char*)buf4);
3797 SWIG_croak_null();
3798 }
3799 }
3800
3801
XS(_wrap_gsl_strerror)3802 XS(_wrap_gsl_strerror) {
3803 {
3804 int arg1 ;
3805 int val1 ;
3806 int ecode1 = 0 ;
3807 int argvi = 0;
3808 char *result = 0 ;
3809 dXSARGS;
3810
3811 if ((items < 1) || (items > 1)) {
3812 SWIG_croak("Usage: gsl_strerror(gsl_errno);");
3813 }
3814 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
3815 if (!SWIG_IsOK(ecode1)) {
3816 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_strerror" "', argument " "1"" of type '" "int""'");
3817 }
3818 arg1 = (int)(val1);
3819 result = (char *)gsl_strerror(arg1);
3820 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
3821
3822 XSRETURN(argvi);
3823 fail:
3824
3825 SWIG_croak_null();
3826 }
3827 }
3828
3829
XS(_wrap_gsl_set_error_handler)3830 XS(_wrap_gsl_set_error_handler) {
3831 {
3832 gsl_error_handler_t *arg1 = (gsl_error_handler_t *) 0 ;
3833 int argvi = 0;
3834 gsl_error_handler_t *result = 0 ;
3835 dXSARGS;
3836
3837 if ((items < 1) || (items > 1)) {
3838 SWIG_croak("Usage: gsl_set_error_handler(new_handler);");
3839 }
3840 {
3841 int res = SWIG_ConvertFunctionPtr(ST(0), (void**)(&arg1), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void);
3842 if (!SWIG_IsOK(res)) {
3843 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_set_error_handler" "', argument " "1"" of type '" "gsl_error_handler_t *""'");
3844 }
3845 }
3846 result = (gsl_error_handler_t *)gsl_set_error_handler(arg1);
3847 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void); argvi++ ;
3848
3849 XSRETURN(argvi);
3850 fail:
3851
3852 SWIG_croak_null();
3853 }
3854 }
3855
3856
XS(_wrap_gsl_set_error_handler_off)3857 XS(_wrap_gsl_set_error_handler_off) {
3858 {
3859 int argvi = 0;
3860 gsl_error_handler_t *result = 0 ;
3861 dXSARGS;
3862
3863 if ((items < 0) || (items > 0)) {
3864 SWIG_croak("Usage: gsl_set_error_handler_off();");
3865 }
3866 result = (gsl_error_handler_t *)gsl_set_error_handler_off();
3867 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void); argvi++ ;
3868 XSRETURN(argvi);
3869 fail:
3870 SWIG_croak_null();
3871 }
3872 }
3873
3874
XS(_wrap_gsl_set_stream_handler)3875 XS(_wrap_gsl_set_stream_handler) {
3876 {
3877 gsl_stream_handler_t *arg1 = (gsl_stream_handler_t *) 0 ;
3878 int argvi = 0;
3879 gsl_stream_handler_t *result = 0 ;
3880 dXSARGS;
3881
3882 if ((items < 1) || (items > 1)) {
3883 SWIG_croak("Usage: gsl_set_stream_handler(new_handler);");
3884 }
3885 {
3886 int res = SWIG_ConvertFunctionPtr(ST(0), (void**)(&arg1), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void);
3887 if (!SWIG_IsOK(res)) {
3888 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_set_stream_handler" "', argument " "1"" of type '" "gsl_stream_handler_t *""'");
3889 }
3890 }
3891 result = (gsl_stream_handler_t *)gsl_set_stream_handler(arg1);
3892 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void); argvi++ ;
3893
3894 XSRETURN(argvi);
3895 fail:
3896
3897 SWIG_croak_null();
3898 }
3899 }
3900
3901
XS(_wrap_gsl_set_stream)3902 XS(_wrap_gsl_set_stream) {
3903 {
3904 FILE *arg1 = (FILE *) 0 ;
3905 void *argp1 = 0 ;
3906 int res1 = 0 ;
3907 int argvi = 0;
3908 FILE *result = 0 ;
3909 dXSARGS;
3910
3911 if ((items < 1) || (items > 1)) {
3912 SWIG_croak("Usage: gsl_set_stream(new_stream);");
3913 }
3914 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
3915 if (!SWIG_IsOK(res1)) {
3916 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_set_stream" "', argument " "1"" of type '" "FILE *""'");
3917 }
3918 arg1 = (FILE *)(argp1);
3919 result = (FILE *)gsl_set_stream(arg1);
3920 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_FILE, 0 | 0); argvi++ ;
3921
3922 XSRETURN(argvi);
3923 fail:
3924
3925 SWIG_croak_null();
3926 }
3927 }
3928
3929
XS(_wrap_gsl_rng_type_name_set)3930 XS(_wrap_gsl_rng_type_name_set) {
3931 {
3932 gsl_rng_type *arg1 = (gsl_rng_type *) 0 ;
3933 char *arg2 = (char *) 0 ;
3934 void *argp1 = 0 ;
3935 int res1 = 0 ;
3936 int res2 ;
3937 char *buf2 = 0 ;
3938 int alloc2 = 0 ;
3939 int argvi = 0;
3940 dXSARGS;
3941
3942 if ((items < 2) || (items > 2)) {
3943 SWIG_croak("Usage: gsl_rng_type_name_set(self,name);");
3944 }
3945 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_rng_type, 0 | 0 );
3946 if (!SWIG_IsOK(res1)) {
3947 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_rng_type_name_set" "', argument " "1"" of type '" "gsl_rng_type *""'");
3948 }
3949 arg1 = (gsl_rng_type *)(argp1);
3950 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
3951 if (!SWIG_IsOK(res2)) {
3952 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_rng_type_name_set" "', argument " "2"" of type '" "char const *""'");
3953 }
3954 arg2 = (char *)(buf2);
3955 if (arg2) {
3956 size_t size = strlen((const char *)((const char *)(arg2))) + 1;
3957 arg1->name = (char const *)(char *)memcpy(malloc((size)*sizeof(char)), arg2, sizeof(char)*(size));
3958 } else {
3959 arg1->name = 0;
3960 }
3961 ST(argvi) = &PL_sv_undef;
3962
3963 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
3964 XSRETURN(argvi);
3965 fail:
3966
3967 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
3968 SWIG_croak_null();
3969 }
3970 }
3971
3972
XS(_wrap_gsl_rng_type_name_get)3973 XS(_wrap_gsl_rng_type_name_get) {
3974 {
3975 gsl_rng_type *arg1 = (gsl_rng_type *) 0 ;
3976 void *argp1 = 0 ;
3977 int res1 = 0 ;
3978 int argvi = 0;
3979 char *result = 0 ;
3980 dXSARGS;
3981
3982 if ((items < 1) || (items > 1)) {
3983 SWIG_croak("Usage: gsl_rng_type_name_get(self);");
3984 }
3985 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_rng_type, 0 | 0 );
3986 if (!SWIG_IsOK(res1)) {
3987 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_rng_type_name_get" "', argument " "1"" of type '" "gsl_rng_type *""'");
3988 }
3989 arg1 = (gsl_rng_type *)(argp1);
3990 result = (char *) ((arg1)->name);
3991 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
3992
3993 XSRETURN(argvi);
3994 fail:
3995
3996 SWIG_croak_null();
3997 }
3998 }
3999
4000
XS(_wrap_gsl_rng_type_max_set)4001 XS(_wrap_gsl_rng_type_max_set) {
4002 {
4003 gsl_rng_type *arg1 = (gsl_rng_type *) 0 ;
4004 unsigned long arg2 ;
4005 void *argp1 = 0 ;
4006 int res1 = 0 ;
4007 unsigned long val2 ;
4008 int ecode2 = 0 ;
4009 int argvi = 0;
4010 dXSARGS;
4011
4012 if ((items < 2) || (items > 2)) {
4013 SWIG_croak("Usage: gsl_rng_type_max_set(self,max);");
4014 }
4015 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_rng_type, 0 | 0 );
4016 if (!SWIG_IsOK(res1)) {
4017 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_rng_type_max_set" "', argument " "1"" of type '" "gsl_rng_type *""'");
4018 }
4019 arg1 = (gsl_rng_type *)(argp1);
4020 ecode2 = SWIG_AsVal_unsigned_SS_long SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4021 if (!SWIG_IsOK(ecode2)) {
4022 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_rng_type_max_set" "', argument " "2"" of type '" "unsigned long""'");
4023 }
4024 arg2 = (unsigned long)(val2);
4025 if (arg1) (arg1)->max = arg2;
4026 ST(argvi) = &PL_sv_undef;
4027
4028
4029 XSRETURN(argvi);
4030 fail:
4031
4032
4033 SWIG_croak_null();
4034 }
4035 }
4036
4037
XS(_wrap_gsl_rng_type_max_get)4038 XS(_wrap_gsl_rng_type_max_get) {
4039 {
4040 gsl_rng_type *arg1 = (gsl_rng_type *) 0 ;
4041 void *argp1 = 0 ;
4042 int res1 = 0 ;
4043 int argvi = 0;
4044 unsigned long result;
4045 dXSARGS;
4046
4047 if ((items < 1) || (items > 1)) {
4048 SWIG_croak("Usage: gsl_rng_type_max_get(self);");
4049 }
4050 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_rng_type, 0 | 0 );
4051 if (!SWIG_IsOK(res1)) {
4052 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_rng_type_max_get" "', argument " "1"" of type '" "gsl_rng_type *""'");
4053 }
4054 arg1 = (gsl_rng_type *)(argp1);
4055 result = (unsigned long) ((arg1)->max);
4056 ST(argvi) = SWIG_From_unsigned_SS_long SWIG_PERL_CALL_ARGS_1((unsigned long)(result)); argvi++ ;
4057
4058 XSRETURN(argvi);
4059 fail:
4060
4061 SWIG_croak_null();
4062 }
4063 }
4064
4065
XS(_wrap_gsl_rng_type_min_set)4066 XS(_wrap_gsl_rng_type_min_set) {
4067 {
4068 gsl_rng_type *arg1 = (gsl_rng_type *) 0 ;
4069 unsigned long arg2 ;
4070 void *argp1 = 0 ;
4071 int res1 = 0 ;
4072 unsigned long val2 ;
4073 int ecode2 = 0 ;
4074 int argvi = 0;
4075 dXSARGS;
4076
4077 if ((items < 2) || (items > 2)) {
4078 SWIG_croak("Usage: gsl_rng_type_min_set(self,min);");
4079 }
4080 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_rng_type, 0 | 0 );
4081 if (!SWIG_IsOK(res1)) {
4082 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_rng_type_min_set" "', argument " "1"" of type '" "gsl_rng_type *""'");
4083 }
4084 arg1 = (gsl_rng_type *)(argp1);
4085 ecode2 = SWIG_AsVal_unsigned_SS_long SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4086 if (!SWIG_IsOK(ecode2)) {
4087 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_rng_type_min_set" "', argument " "2"" of type '" "unsigned long""'");
4088 }
4089 arg2 = (unsigned long)(val2);
4090 if (arg1) (arg1)->min = arg2;
4091 ST(argvi) = &PL_sv_undef;
4092
4093
4094 XSRETURN(argvi);
4095 fail:
4096
4097
4098 SWIG_croak_null();
4099 }
4100 }
4101
4102
XS(_wrap_gsl_rng_type_min_get)4103 XS(_wrap_gsl_rng_type_min_get) {
4104 {
4105 gsl_rng_type *arg1 = (gsl_rng_type *) 0 ;
4106 void *argp1 = 0 ;
4107 int res1 = 0 ;
4108 int argvi = 0;
4109 unsigned long result;
4110 dXSARGS;
4111
4112 if ((items < 1) || (items > 1)) {
4113 SWIG_croak("Usage: gsl_rng_type_min_get(self);");
4114 }
4115 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_rng_type, 0 | 0 );
4116 if (!SWIG_IsOK(res1)) {
4117 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_rng_type_min_get" "', argument " "1"" of type '" "gsl_rng_type *""'");
4118 }
4119 arg1 = (gsl_rng_type *)(argp1);
4120 result = (unsigned long) ((arg1)->min);
4121 ST(argvi) = SWIG_From_unsigned_SS_long SWIG_PERL_CALL_ARGS_1((unsigned long)(result)); argvi++ ;
4122
4123 XSRETURN(argvi);
4124 fail:
4125
4126 SWIG_croak_null();
4127 }
4128 }
4129
4130
XS(_wrap_gsl_rng_type_size_set)4131 XS(_wrap_gsl_rng_type_size_set) {
4132 {
4133 gsl_rng_type *arg1 = (gsl_rng_type *) 0 ;
4134 size_t arg2 ;
4135 void *argp1 = 0 ;
4136 int res1 = 0 ;
4137 size_t val2 ;
4138 int ecode2 = 0 ;
4139 int argvi = 0;
4140 dXSARGS;
4141
4142 if ((items < 2) || (items > 2)) {
4143 SWIG_croak("Usage: gsl_rng_type_size_set(self,size);");
4144 }
4145 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_rng_type, 0 | 0 );
4146 if (!SWIG_IsOK(res1)) {
4147 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_rng_type_size_set" "', argument " "1"" of type '" "gsl_rng_type *""'");
4148 }
4149 arg1 = (gsl_rng_type *)(argp1);
4150 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4151 if (!SWIG_IsOK(ecode2)) {
4152 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_rng_type_size_set" "', argument " "2"" of type '" "size_t""'");
4153 }
4154 arg2 = (size_t)(val2);
4155 if (arg1) (arg1)->size = arg2;
4156 ST(argvi) = &PL_sv_undef;
4157
4158
4159 XSRETURN(argvi);
4160 fail:
4161
4162
4163 SWIG_croak_null();
4164 }
4165 }
4166
4167
XS(_wrap_gsl_rng_type_size_get)4168 XS(_wrap_gsl_rng_type_size_get) {
4169 {
4170 gsl_rng_type *arg1 = (gsl_rng_type *) 0 ;
4171 void *argp1 = 0 ;
4172 int res1 = 0 ;
4173 int argvi = 0;
4174 size_t result;
4175 dXSARGS;
4176
4177 if ((items < 1) || (items > 1)) {
4178 SWIG_croak("Usage: gsl_rng_type_size_get(self);");
4179 }
4180 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_rng_type, 0 | 0 );
4181 if (!SWIG_IsOK(res1)) {
4182 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_rng_type_size_get" "', argument " "1"" of type '" "gsl_rng_type *""'");
4183 }
4184 arg1 = (gsl_rng_type *)(argp1);
4185 result = ((arg1)->size);
4186 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
4187
4188 XSRETURN(argvi);
4189 fail:
4190
4191 SWIG_croak_null();
4192 }
4193 }
4194
4195
XS(_wrap_gsl_rng_type_set_set)4196 XS(_wrap_gsl_rng_type_set_set) {
4197 {
4198 gsl_rng_type *arg1 = (gsl_rng_type *) 0 ;
4199 void (*arg2)(void *,unsigned long) = (void (*)(void *,unsigned long)) 0 ;
4200 void *argp1 = 0 ;
4201 int res1 = 0 ;
4202 int argvi = 0;
4203 dXSARGS;
4204
4205 if ((items < 2) || (items > 2)) {
4206 SWIG_croak("Usage: gsl_rng_type_set_set(self,set);");
4207 }
4208 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_rng_type, 0 | 0 );
4209 if (!SWIG_IsOK(res1)) {
4210 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_rng_type_set_set" "', argument " "1"" of type '" "gsl_rng_type *""'");
4211 }
4212 arg1 = (gsl_rng_type *)(argp1);
4213 {
4214 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_p_void_unsigned_long__void);
4215 if (!SWIG_IsOK(res)) {
4216 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_rng_type_set_set" "', argument " "2"" of type '" "void (*)(void *,unsigned long)""'");
4217 }
4218 }
4219 if (arg1) (arg1)->set = arg2;
4220 ST(argvi) = &PL_sv_undef;
4221
4222
4223 XSRETURN(argvi);
4224 fail:
4225
4226
4227 SWIG_croak_null();
4228 }
4229 }
4230
4231
XS(_wrap_gsl_rng_type_set_get)4232 XS(_wrap_gsl_rng_type_set_get) {
4233 {
4234 gsl_rng_type *arg1 = (gsl_rng_type *) 0 ;
4235 void *argp1 = 0 ;
4236 int res1 = 0 ;
4237 int argvi = 0;
4238 void (*result)(void *,unsigned long) = 0 ;
4239 dXSARGS;
4240
4241 if ((items < 1) || (items > 1)) {
4242 SWIG_croak("Usage: gsl_rng_type_set_get(self);");
4243 }
4244 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_rng_type, 0 | 0 );
4245 if (!SWIG_IsOK(res1)) {
4246 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_rng_type_set_get" "', argument " "1"" of type '" "gsl_rng_type *""'");
4247 }
4248 arg1 = (gsl_rng_type *)(argp1);
4249 result = (void (*)(void *,unsigned long)) ((arg1)->set);
4250 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_void_unsigned_long__void); argvi++ ;
4251
4252 XSRETURN(argvi);
4253 fail:
4254
4255 SWIG_croak_null();
4256 }
4257 }
4258
4259
XS(_wrap_gsl_rng_type_get_set)4260 XS(_wrap_gsl_rng_type_get_set) {
4261 {
4262 gsl_rng_type *arg1 = (gsl_rng_type *) 0 ;
4263 unsigned long (*arg2)(void *) = (unsigned long (*)(void *)) 0 ;
4264 void *argp1 = 0 ;
4265 int res1 = 0 ;
4266 int argvi = 0;
4267 dXSARGS;
4268
4269 if ((items < 2) || (items > 2)) {
4270 SWIG_croak("Usage: gsl_rng_type_get_set(self,get);");
4271 }
4272 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_rng_type, 0 | 0 );
4273 if (!SWIG_IsOK(res1)) {
4274 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_rng_type_get_set" "', argument " "1"" of type '" "gsl_rng_type *""'");
4275 }
4276 arg1 = (gsl_rng_type *)(argp1);
4277 {
4278 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_p_void__unsigned_long);
4279 if (!SWIG_IsOK(res)) {
4280 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_rng_type_get_set" "', argument " "2"" of type '" "unsigned long (*)(void *)""'");
4281 }
4282 }
4283 if (arg1) (arg1)->get = arg2;
4284 ST(argvi) = &PL_sv_undef;
4285
4286
4287 XSRETURN(argvi);
4288 fail:
4289
4290
4291 SWIG_croak_null();
4292 }
4293 }
4294
4295
XS(_wrap_gsl_rng_type_get_get)4296 XS(_wrap_gsl_rng_type_get_get) {
4297 {
4298 gsl_rng_type *arg1 = (gsl_rng_type *) 0 ;
4299 void *argp1 = 0 ;
4300 int res1 = 0 ;
4301 int argvi = 0;
4302 unsigned long (*result)(void *) = 0 ;
4303 dXSARGS;
4304
4305 if ((items < 1) || (items > 1)) {
4306 SWIG_croak("Usage: gsl_rng_type_get_get(self);");
4307 }
4308 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_rng_type, 0 | 0 );
4309 if (!SWIG_IsOK(res1)) {
4310 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_rng_type_get_get" "', argument " "1"" of type '" "gsl_rng_type *""'");
4311 }
4312 arg1 = (gsl_rng_type *)(argp1);
4313 result = (unsigned long (*)(void *)) ((arg1)->get);
4314 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_void__unsigned_long); argvi++ ;
4315
4316 XSRETURN(argvi);
4317 fail:
4318
4319 SWIG_croak_null();
4320 }
4321 }
4322
4323
XS(_wrap_gsl_rng_type_get_double_set)4324 XS(_wrap_gsl_rng_type_get_double_set) {
4325 {
4326 gsl_rng_type *arg1 = (gsl_rng_type *) 0 ;
4327 double (*arg2)(void *) = (double (*)(void *)) 0 ;
4328 void *argp1 = 0 ;
4329 int res1 = 0 ;
4330 int argvi = 0;
4331 dXSARGS;
4332
4333 if ((items < 2) || (items > 2)) {
4334 SWIG_croak("Usage: gsl_rng_type_get_double_set(self,get_double);");
4335 }
4336 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_rng_type, 0 | 0 );
4337 if (!SWIG_IsOK(res1)) {
4338 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_rng_type_get_double_set" "', argument " "1"" of type '" "gsl_rng_type *""'");
4339 }
4340 arg1 = (gsl_rng_type *)(argp1);
4341 {
4342 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_p_void__double);
4343 if (!SWIG_IsOK(res)) {
4344 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_rng_type_get_double_set" "', argument " "2"" of type '" "double (*)(void *)""'");
4345 }
4346 }
4347 if (arg1) (arg1)->get_double = arg2;
4348 ST(argvi) = &PL_sv_undef;
4349
4350
4351 XSRETURN(argvi);
4352 fail:
4353
4354
4355 SWIG_croak_null();
4356 }
4357 }
4358
4359
XS(_wrap_gsl_rng_type_get_double_get)4360 XS(_wrap_gsl_rng_type_get_double_get) {
4361 {
4362 gsl_rng_type *arg1 = (gsl_rng_type *) 0 ;
4363 void *argp1 = 0 ;
4364 int res1 = 0 ;
4365 int argvi = 0;
4366 double (*result)(void *) = 0 ;
4367 dXSARGS;
4368
4369 if ((items < 1) || (items > 1)) {
4370 SWIG_croak("Usage: gsl_rng_type_get_double_get(self);");
4371 }
4372 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_rng_type, 0 | 0 );
4373 if (!SWIG_IsOK(res1)) {
4374 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_rng_type_get_double_get" "', argument " "1"" of type '" "gsl_rng_type *""'");
4375 }
4376 arg1 = (gsl_rng_type *)(argp1);
4377 result = (double (*)(void *)) ((arg1)->get_double);
4378 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_void__double); argvi++ ;
4379
4380 XSRETURN(argvi);
4381 fail:
4382
4383 SWIG_croak_null();
4384 }
4385 }
4386
4387
XS(_wrap_new_gsl_rng_type)4388 XS(_wrap_new_gsl_rng_type) {
4389 {
4390 int argvi = 0;
4391 gsl_rng_type *result = 0 ;
4392 dXSARGS;
4393
4394 if ((items < 0) || (items > 0)) {
4395 SWIG_croak("Usage: new_gsl_rng_type();");
4396 }
4397 result = (gsl_rng_type *)calloc(1, sizeof(gsl_rng_type));
4398 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_rng_type, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
4399 XSRETURN(argvi);
4400 fail:
4401 SWIG_croak_null();
4402 }
4403 }
4404
4405
XS(_wrap_delete_gsl_rng_type)4406 XS(_wrap_delete_gsl_rng_type) {
4407 {
4408 gsl_rng_type *arg1 = (gsl_rng_type *) 0 ;
4409 void *argp1 = 0 ;
4410 int res1 = 0 ;
4411 int argvi = 0;
4412 dXSARGS;
4413
4414 if ((items < 1) || (items > 1)) {
4415 SWIG_croak("Usage: delete_gsl_rng_type(self);");
4416 }
4417 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_rng_type, SWIG_POINTER_DISOWN | 0 );
4418 if (!SWIG_IsOK(res1)) {
4419 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_rng_type" "', argument " "1"" of type '" "gsl_rng_type *""'");
4420 }
4421 arg1 = (gsl_rng_type *)(argp1);
4422 free((char *) arg1);
4423 ST(argvi) = &PL_sv_undef;
4424
4425 XSRETURN(argvi);
4426 fail:
4427
4428 SWIG_croak_null();
4429 }
4430 }
4431
4432
XS(_wrap_gsl_rng_type_set)4433 XS(_wrap_gsl_rng_type_set) {
4434 {
4435 gsl_rng *arg1 = (gsl_rng *) 0 ;
4436 gsl_rng_type *arg2 = (gsl_rng_type *) 0 ;
4437 void *argp1 = 0 ;
4438 int res1 = 0 ;
4439 void *argp2 = 0 ;
4440 int res2 = 0 ;
4441 int argvi = 0;
4442 dXSARGS;
4443
4444 if ((items < 2) || (items > 2)) {
4445 SWIG_croak("Usage: gsl_rng_type_set(self,type);");
4446 }
4447 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_rng, 0 | 0 );
4448 if (!SWIG_IsOK(res1)) {
4449 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_rng_type_set" "', argument " "1"" of type '" "gsl_rng *""'");
4450 }
4451 arg1 = (gsl_rng *)(argp1);
4452 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_rng_type, SWIG_POINTER_DISOWN | 0 );
4453 if (!SWIG_IsOK(res2)) {
4454 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_rng_type_set" "', argument " "2"" of type '" "gsl_rng_type const *""'");
4455 }
4456 arg2 = (gsl_rng_type *)(argp2);
4457 if (arg1) (arg1)->type = (gsl_rng_type const *)arg2;
4458 ST(argvi) = &PL_sv_undef;
4459
4460
4461 XSRETURN(argvi);
4462 fail:
4463
4464
4465 SWIG_croak_null();
4466 }
4467 }
4468
4469
XS(_wrap_gsl_rng_type_get)4470 XS(_wrap_gsl_rng_type_get) {
4471 {
4472 gsl_rng *arg1 = (gsl_rng *) 0 ;
4473 void *argp1 = 0 ;
4474 int res1 = 0 ;
4475 int argvi = 0;
4476 gsl_rng_type *result = 0 ;
4477 dXSARGS;
4478
4479 if ((items < 1) || (items > 1)) {
4480 SWIG_croak("Usage: gsl_rng_type_get(self);");
4481 }
4482 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_rng, 0 | 0 );
4483 if (!SWIG_IsOK(res1)) {
4484 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_rng_type_get" "', argument " "1"" of type '" "gsl_rng *""'");
4485 }
4486 arg1 = (gsl_rng *)(argp1);
4487 result = (gsl_rng_type *) ((arg1)->type);
4488 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_rng_type, 0 | SWIG_SHADOW); argvi++ ;
4489
4490 XSRETURN(argvi);
4491 fail:
4492
4493 SWIG_croak_null();
4494 }
4495 }
4496
4497
XS(_wrap_gsl_rng_state_set)4498 XS(_wrap_gsl_rng_state_set) {
4499 {
4500 gsl_rng *arg1 = (gsl_rng *) 0 ;
4501 void *arg2 = (void *) 0 ;
4502 void *argp1 = 0 ;
4503 int res1 = 0 ;
4504 int res2 ;
4505 int argvi = 0;
4506 dXSARGS;
4507
4508 if ((items < 2) || (items > 2)) {
4509 SWIG_croak("Usage: gsl_rng_state_set(self,state);");
4510 }
4511 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_rng, 0 | 0 );
4512 if (!SWIG_IsOK(res1)) {
4513 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_rng_state_set" "', argument " "1"" of type '" "gsl_rng *""'");
4514 }
4515 arg1 = (gsl_rng *)(argp1);
4516 res2 = SWIG_ConvertPtr(ST(1),SWIG_as_voidptrptr(&arg2), 0, SWIG_POINTER_DISOWN);
4517 if (!SWIG_IsOK(res2)) {
4518 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_rng_state_set" "', argument " "2"" of type '" "void *""'");
4519 }
4520 if (arg1) (arg1)->state = arg2;
4521 ST(argvi) = &PL_sv_undef;
4522
4523
4524 XSRETURN(argvi);
4525 fail:
4526
4527
4528 SWIG_croak_null();
4529 }
4530 }
4531
4532
XS(_wrap_gsl_rng_state_get)4533 XS(_wrap_gsl_rng_state_get) {
4534 {
4535 gsl_rng *arg1 = (gsl_rng *) 0 ;
4536 void *argp1 = 0 ;
4537 int res1 = 0 ;
4538 int argvi = 0;
4539 void *result = 0 ;
4540 dXSARGS;
4541
4542 if ((items < 1) || (items > 1)) {
4543 SWIG_croak("Usage: gsl_rng_state_get(self);");
4544 }
4545 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_rng, 0 | 0 );
4546 if (!SWIG_IsOK(res1)) {
4547 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_rng_state_get" "', argument " "1"" of type '" "gsl_rng *""'");
4548 }
4549 arg1 = (gsl_rng *)(argp1);
4550 result = (void *) ((arg1)->state);
4551 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_void, 0 | 0); argvi++ ;
4552
4553 XSRETURN(argvi);
4554 fail:
4555
4556 SWIG_croak_null();
4557 }
4558 }
4559
4560
XS(_wrap_new_gsl_rng)4561 XS(_wrap_new_gsl_rng) {
4562 {
4563 int argvi = 0;
4564 gsl_rng *result = 0 ;
4565 dXSARGS;
4566
4567 if ((items < 0) || (items > 0)) {
4568 SWIG_croak("Usage: new_gsl_rng();");
4569 }
4570 result = (gsl_rng *)calloc(1, sizeof(gsl_rng));
4571 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_rng, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
4572 XSRETURN(argvi);
4573 fail:
4574 SWIG_croak_null();
4575 }
4576 }
4577
4578
XS(_wrap_delete_gsl_rng)4579 XS(_wrap_delete_gsl_rng) {
4580 {
4581 gsl_rng *arg1 = (gsl_rng *) 0 ;
4582 void *argp1 = 0 ;
4583 int res1 = 0 ;
4584 int argvi = 0;
4585 dXSARGS;
4586
4587 if ((items < 1) || (items > 1)) {
4588 SWIG_croak("Usage: delete_gsl_rng(self);");
4589 }
4590 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_rng, SWIG_POINTER_DISOWN | 0 );
4591 if (!SWIG_IsOK(res1)) {
4592 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_rng" "', argument " "1"" of type '" "gsl_rng *""'");
4593 }
4594 arg1 = (gsl_rng *)(argp1);
4595 free((char *) arg1);
4596 ST(argvi) = &PL_sv_undef;
4597
4598 XSRETURN(argvi);
4599 fail:
4600
4601 SWIG_croak_null();
4602 }
4603 }
4604
4605
XS(_wrap_gsl_rng_types_setup)4606 XS(_wrap_gsl_rng_types_setup) {
4607 {
4608 int argvi = 0;
4609 gsl_rng_type **result = 0 ;
4610 dXSARGS;
4611
4612 if ((items < 0) || (items > 0)) {
4613 SWIG_croak("Usage: gsl_rng_types_setup();");
4614 }
4615 result = (gsl_rng_type **)gsl_rng_types_setup();
4616 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_p_gsl_rng_type, 0 | 0); argvi++ ;
4617 XSRETURN(argvi);
4618 fail:
4619 SWIG_croak_null();
4620 }
4621 }
4622
4623
XS(_wrap_gsl_rng_alloc)4624 XS(_wrap_gsl_rng_alloc) {
4625 {
4626 gsl_rng_type *arg1 = (gsl_rng_type *) 0 ;
4627 void *argp1 = 0 ;
4628 int res1 = 0 ;
4629 int argvi = 0;
4630 gsl_rng *result = 0 ;
4631 dXSARGS;
4632
4633 if ((items < 1) || (items > 1)) {
4634 SWIG_croak("Usage: gsl_rng_alloc(T);");
4635 }
4636 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_rng_type, 0 | 0 );
4637 if (!SWIG_IsOK(res1)) {
4638 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_rng_alloc" "', argument " "1"" of type '" "gsl_rng_type const *""'");
4639 }
4640 arg1 = (gsl_rng_type *)(argp1);
4641 result = (gsl_rng *)gsl_rng_alloc((gsl_rng_type const *)arg1);
4642 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_rng, 0 | SWIG_SHADOW); argvi++ ;
4643
4644 XSRETURN(argvi);
4645 fail:
4646
4647 SWIG_croak_null();
4648 }
4649 }
4650
4651
XS(_wrap_gsl_rng_memcpy)4652 XS(_wrap_gsl_rng_memcpy) {
4653 {
4654 gsl_rng *arg1 = (gsl_rng *) 0 ;
4655 gsl_rng *arg2 = (gsl_rng *) 0 ;
4656 void *argp1 = 0 ;
4657 int res1 = 0 ;
4658 void *argp2 = 0 ;
4659 int res2 = 0 ;
4660 int argvi = 0;
4661 int result;
4662 dXSARGS;
4663
4664 if ((items < 2) || (items > 2)) {
4665 SWIG_croak("Usage: gsl_rng_memcpy(dest,src);");
4666 }
4667 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_rng, 0 | 0 );
4668 if (!SWIG_IsOK(res1)) {
4669 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_rng_memcpy" "', argument " "1"" of type '" "gsl_rng *""'");
4670 }
4671 arg1 = (gsl_rng *)(argp1);
4672 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_rng, 0 | 0 );
4673 if (!SWIG_IsOK(res2)) {
4674 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_rng_memcpy" "', argument " "2"" of type '" "gsl_rng const *""'");
4675 }
4676 arg2 = (gsl_rng *)(argp2);
4677 result = (int)gsl_rng_memcpy(arg1,(gsl_rng const *)arg2);
4678 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4679
4680
4681 XSRETURN(argvi);
4682 fail:
4683
4684
4685 SWIG_croak_null();
4686 }
4687 }
4688
4689
XS(_wrap_gsl_rng_clone)4690 XS(_wrap_gsl_rng_clone) {
4691 {
4692 gsl_rng *arg1 = (gsl_rng *) 0 ;
4693 void *argp1 = 0 ;
4694 int res1 = 0 ;
4695 int argvi = 0;
4696 gsl_rng *result = 0 ;
4697 dXSARGS;
4698
4699 if ((items < 1) || (items > 1)) {
4700 SWIG_croak("Usage: gsl_rng_clone(r);");
4701 }
4702 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_rng, 0 | 0 );
4703 if (!SWIG_IsOK(res1)) {
4704 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_rng_clone" "', argument " "1"" of type '" "gsl_rng const *""'");
4705 }
4706 arg1 = (gsl_rng *)(argp1);
4707 result = (gsl_rng *)gsl_rng_clone((gsl_rng const *)arg1);
4708 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_rng, 0 | SWIG_SHADOW); argvi++ ;
4709
4710 XSRETURN(argvi);
4711 fail:
4712
4713 SWIG_croak_null();
4714 }
4715 }
4716
4717
XS(_wrap_gsl_rng_free)4718 XS(_wrap_gsl_rng_free) {
4719 {
4720 gsl_rng *arg1 = (gsl_rng *) 0 ;
4721 void *argp1 = 0 ;
4722 int res1 = 0 ;
4723 int argvi = 0;
4724 dXSARGS;
4725
4726 if ((items < 1) || (items > 1)) {
4727 SWIG_croak("Usage: gsl_rng_free(r);");
4728 }
4729 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_rng, 0 | 0 );
4730 if (!SWIG_IsOK(res1)) {
4731 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_rng_free" "', argument " "1"" of type '" "gsl_rng *""'");
4732 }
4733 arg1 = (gsl_rng *)(argp1);
4734 gsl_rng_free(arg1);
4735 ST(argvi) = &PL_sv_undef;
4736
4737 XSRETURN(argvi);
4738 fail:
4739
4740 SWIG_croak_null();
4741 }
4742 }
4743
4744
XS(_wrap_gsl_rng_set)4745 XS(_wrap_gsl_rng_set) {
4746 {
4747 gsl_rng *arg1 = (gsl_rng *) 0 ;
4748 unsigned long arg2 ;
4749 void *argp1 = 0 ;
4750 int res1 = 0 ;
4751 unsigned long val2 ;
4752 int ecode2 = 0 ;
4753 int argvi = 0;
4754 dXSARGS;
4755
4756 if ((items < 2) || (items > 2)) {
4757 SWIG_croak("Usage: gsl_rng_set(r,seed);");
4758 }
4759 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_rng, 0 | 0 );
4760 if (!SWIG_IsOK(res1)) {
4761 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_rng_set" "', argument " "1"" of type '" "gsl_rng const *""'");
4762 }
4763 arg1 = (gsl_rng *)(argp1);
4764 ecode2 = SWIG_AsVal_unsigned_SS_long SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4765 if (!SWIG_IsOK(ecode2)) {
4766 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_rng_set" "', argument " "2"" of type '" "unsigned long""'");
4767 }
4768 arg2 = (unsigned long)(val2);
4769 gsl_rng_set((gsl_rng const *)arg1,arg2);
4770 ST(argvi) = &PL_sv_undef;
4771
4772
4773 XSRETURN(argvi);
4774 fail:
4775
4776
4777 SWIG_croak_null();
4778 }
4779 }
4780
4781
XS(_wrap_gsl_rng_max)4782 XS(_wrap_gsl_rng_max) {
4783 {
4784 gsl_rng *arg1 = (gsl_rng *) 0 ;
4785 void *argp1 = 0 ;
4786 int res1 = 0 ;
4787 int argvi = 0;
4788 unsigned long result;
4789 dXSARGS;
4790
4791 if ((items < 1) || (items > 1)) {
4792 SWIG_croak("Usage: gsl_rng_max(r);");
4793 }
4794 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_rng, 0 | 0 );
4795 if (!SWIG_IsOK(res1)) {
4796 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_rng_max" "', argument " "1"" of type '" "gsl_rng const *""'");
4797 }
4798 arg1 = (gsl_rng *)(argp1);
4799 result = (unsigned long)gsl_rng_max((gsl_rng const *)arg1);
4800 ST(argvi) = SWIG_From_unsigned_SS_long SWIG_PERL_CALL_ARGS_1((unsigned long)(result)); argvi++ ;
4801
4802 XSRETURN(argvi);
4803 fail:
4804
4805 SWIG_croak_null();
4806 }
4807 }
4808
4809
XS(_wrap_gsl_rng_min)4810 XS(_wrap_gsl_rng_min) {
4811 {
4812 gsl_rng *arg1 = (gsl_rng *) 0 ;
4813 void *argp1 = 0 ;
4814 int res1 = 0 ;
4815 int argvi = 0;
4816 unsigned long result;
4817 dXSARGS;
4818
4819 if ((items < 1) || (items > 1)) {
4820 SWIG_croak("Usage: gsl_rng_min(r);");
4821 }
4822 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_rng, 0 | 0 );
4823 if (!SWIG_IsOK(res1)) {
4824 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_rng_min" "', argument " "1"" of type '" "gsl_rng const *""'");
4825 }
4826 arg1 = (gsl_rng *)(argp1);
4827 result = (unsigned long)gsl_rng_min((gsl_rng const *)arg1);
4828 ST(argvi) = SWIG_From_unsigned_SS_long SWIG_PERL_CALL_ARGS_1((unsigned long)(result)); argvi++ ;
4829
4830 XSRETURN(argvi);
4831 fail:
4832
4833 SWIG_croak_null();
4834 }
4835 }
4836
4837
XS(_wrap_gsl_rng_name)4838 XS(_wrap_gsl_rng_name) {
4839 {
4840 gsl_rng *arg1 = (gsl_rng *) 0 ;
4841 void *argp1 = 0 ;
4842 int res1 = 0 ;
4843 int argvi = 0;
4844 char *result = 0 ;
4845 dXSARGS;
4846
4847 if ((items < 1) || (items > 1)) {
4848 SWIG_croak("Usage: gsl_rng_name(r);");
4849 }
4850 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_rng, 0 | 0 );
4851 if (!SWIG_IsOK(res1)) {
4852 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_rng_name" "', argument " "1"" of type '" "gsl_rng const *""'");
4853 }
4854 arg1 = (gsl_rng *)(argp1);
4855 result = (char *)gsl_rng_name((gsl_rng const *)arg1);
4856 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
4857
4858 XSRETURN(argvi);
4859 fail:
4860
4861 SWIG_croak_null();
4862 }
4863 }
4864
4865
XS(_wrap_gsl_rng_fread)4866 XS(_wrap_gsl_rng_fread) {
4867 {
4868 FILE *arg1 = (FILE *) 0 ;
4869 gsl_rng *arg2 = (gsl_rng *) 0 ;
4870 void *argp1 = 0 ;
4871 int res1 = 0 ;
4872 void *argp2 = 0 ;
4873 int res2 = 0 ;
4874 int argvi = 0;
4875 int result;
4876 dXSARGS;
4877
4878 if ((items < 2) || (items > 2)) {
4879 SWIG_croak("Usage: gsl_rng_fread(stream,r);");
4880 }
4881 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
4882 if (!SWIG_IsOK(res1)) {
4883 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_rng_fread" "', argument " "1"" of type '" "FILE *""'");
4884 }
4885 arg1 = (FILE *)(argp1);
4886 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_rng, 0 | 0 );
4887 if (!SWIG_IsOK(res2)) {
4888 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_rng_fread" "', argument " "2"" of type '" "gsl_rng *""'");
4889 }
4890 arg2 = (gsl_rng *)(argp2);
4891 result = (int)gsl_rng_fread(arg1,arg2);
4892 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4893
4894
4895 XSRETURN(argvi);
4896 fail:
4897
4898
4899 SWIG_croak_null();
4900 }
4901 }
4902
4903
XS(_wrap_gsl_rng_fwrite)4904 XS(_wrap_gsl_rng_fwrite) {
4905 {
4906 FILE *arg1 = (FILE *) 0 ;
4907 gsl_rng *arg2 = (gsl_rng *) 0 ;
4908 void *argp1 = 0 ;
4909 int res1 = 0 ;
4910 void *argp2 = 0 ;
4911 int res2 = 0 ;
4912 int argvi = 0;
4913 int result;
4914 dXSARGS;
4915
4916 if ((items < 2) || (items > 2)) {
4917 SWIG_croak("Usage: gsl_rng_fwrite(stream,r);");
4918 }
4919 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
4920 if (!SWIG_IsOK(res1)) {
4921 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_rng_fwrite" "', argument " "1"" of type '" "FILE *""'");
4922 }
4923 arg1 = (FILE *)(argp1);
4924 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_rng, 0 | 0 );
4925 if (!SWIG_IsOK(res2)) {
4926 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_rng_fwrite" "', argument " "2"" of type '" "gsl_rng const *""'");
4927 }
4928 arg2 = (gsl_rng *)(argp2);
4929 result = (int)gsl_rng_fwrite(arg1,(gsl_rng const *)arg2);
4930 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4931
4932
4933 XSRETURN(argvi);
4934 fail:
4935
4936
4937 SWIG_croak_null();
4938 }
4939 }
4940
4941
XS(_wrap_gsl_rng_size)4942 XS(_wrap_gsl_rng_size) {
4943 {
4944 gsl_rng *arg1 = (gsl_rng *) 0 ;
4945 void *argp1 = 0 ;
4946 int res1 = 0 ;
4947 int argvi = 0;
4948 size_t result;
4949 dXSARGS;
4950
4951 if ((items < 1) || (items > 1)) {
4952 SWIG_croak("Usage: gsl_rng_size(r);");
4953 }
4954 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_rng, 0 | 0 );
4955 if (!SWIG_IsOK(res1)) {
4956 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_rng_size" "', argument " "1"" of type '" "gsl_rng const *""'");
4957 }
4958 arg1 = (gsl_rng *)(argp1);
4959 result = gsl_rng_size((gsl_rng const *)arg1);
4960 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
4961
4962 XSRETURN(argvi);
4963 fail:
4964
4965 SWIG_croak_null();
4966 }
4967 }
4968
4969
XS(_wrap_gsl_rng_state)4970 XS(_wrap_gsl_rng_state) {
4971 {
4972 gsl_rng *arg1 = (gsl_rng *) 0 ;
4973 void *argp1 = 0 ;
4974 int res1 = 0 ;
4975 int argvi = 0;
4976 void *result = 0 ;
4977 dXSARGS;
4978
4979 if ((items < 1) || (items > 1)) {
4980 SWIG_croak("Usage: gsl_rng_state(r);");
4981 }
4982 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_rng, 0 | 0 );
4983 if (!SWIG_IsOK(res1)) {
4984 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_rng_state" "', argument " "1"" of type '" "gsl_rng const *""'");
4985 }
4986 arg1 = (gsl_rng *)(argp1);
4987 result = (void *)gsl_rng_state((gsl_rng const *)arg1);
4988 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_void, 0 | 0); argvi++ ;
4989
4990 XSRETURN(argvi);
4991 fail:
4992
4993 SWIG_croak_null();
4994 }
4995 }
4996
4997
XS(_wrap_gsl_rng_print_state)4998 XS(_wrap_gsl_rng_print_state) {
4999 {
5000 gsl_rng *arg1 = (gsl_rng *) 0 ;
5001 void *argp1 = 0 ;
5002 int res1 = 0 ;
5003 int argvi = 0;
5004 dXSARGS;
5005
5006 if ((items < 1) || (items > 1)) {
5007 SWIG_croak("Usage: gsl_rng_print_state(r);");
5008 }
5009 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_rng, 0 | 0 );
5010 if (!SWIG_IsOK(res1)) {
5011 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_rng_print_state" "', argument " "1"" of type '" "gsl_rng const *""'");
5012 }
5013 arg1 = (gsl_rng *)(argp1);
5014 gsl_rng_print_state((gsl_rng const *)arg1);
5015 ST(argvi) = &PL_sv_undef;
5016
5017 XSRETURN(argvi);
5018 fail:
5019
5020 SWIG_croak_null();
5021 }
5022 }
5023
5024
XS(_wrap_gsl_rng_env_setup)5025 XS(_wrap_gsl_rng_env_setup) {
5026 {
5027 int argvi = 0;
5028 gsl_rng_type *result = 0 ;
5029 dXSARGS;
5030
5031 if ((items < 0) || (items > 0)) {
5032 SWIG_croak("Usage: gsl_rng_env_setup();");
5033 }
5034 result = (gsl_rng_type *)gsl_rng_env_setup();
5035 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_rng_type, 0 | SWIG_SHADOW); argvi++ ;
5036 XSRETURN(argvi);
5037 fail:
5038 SWIG_croak_null();
5039 }
5040 }
5041
5042
XS(_wrap_gsl_rng_get)5043 XS(_wrap_gsl_rng_get) {
5044 {
5045 gsl_rng *arg1 = (gsl_rng *) 0 ;
5046 void *argp1 = 0 ;
5047 int res1 = 0 ;
5048 int argvi = 0;
5049 unsigned long result;
5050 dXSARGS;
5051
5052 if ((items < 1) || (items > 1)) {
5053 SWIG_croak("Usage: gsl_rng_get(r);");
5054 }
5055 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_rng, 0 | 0 );
5056 if (!SWIG_IsOK(res1)) {
5057 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_rng_get" "', argument " "1"" of type '" "gsl_rng const *""'");
5058 }
5059 arg1 = (gsl_rng *)(argp1);
5060 result = (unsigned long)gsl_rng_get((gsl_rng const *)arg1);
5061 ST(argvi) = SWIG_From_unsigned_SS_long SWIG_PERL_CALL_ARGS_1((unsigned long)(result)); argvi++ ;
5062
5063 XSRETURN(argvi);
5064 fail:
5065
5066 SWIG_croak_null();
5067 }
5068 }
5069
5070
XS(_wrap_gsl_rng_uniform)5071 XS(_wrap_gsl_rng_uniform) {
5072 {
5073 gsl_rng *arg1 = (gsl_rng *) 0 ;
5074 void *argp1 = 0 ;
5075 int res1 = 0 ;
5076 int argvi = 0;
5077 double result;
5078 dXSARGS;
5079
5080 if ((items < 1) || (items > 1)) {
5081 SWIG_croak("Usage: gsl_rng_uniform(r);");
5082 }
5083 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_rng, 0 | 0 );
5084 if (!SWIG_IsOK(res1)) {
5085 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_rng_uniform" "', argument " "1"" of type '" "gsl_rng const *""'");
5086 }
5087 arg1 = (gsl_rng *)(argp1);
5088 result = (double)gsl_rng_uniform((gsl_rng const *)arg1);
5089 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
5090
5091 XSRETURN(argvi);
5092 fail:
5093
5094 SWIG_croak_null();
5095 }
5096 }
5097
5098
XS(_wrap_gsl_rng_uniform_pos)5099 XS(_wrap_gsl_rng_uniform_pos) {
5100 {
5101 gsl_rng *arg1 = (gsl_rng *) 0 ;
5102 void *argp1 = 0 ;
5103 int res1 = 0 ;
5104 int argvi = 0;
5105 double result;
5106 dXSARGS;
5107
5108 if ((items < 1) || (items > 1)) {
5109 SWIG_croak("Usage: gsl_rng_uniform_pos(r);");
5110 }
5111 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_rng, 0 | 0 );
5112 if (!SWIG_IsOK(res1)) {
5113 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_rng_uniform_pos" "', argument " "1"" of type '" "gsl_rng const *""'");
5114 }
5115 arg1 = (gsl_rng *)(argp1);
5116 result = (double)gsl_rng_uniform_pos((gsl_rng const *)arg1);
5117 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
5118
5119 XSRETURN(argvi);
5120 fail:
5121
5122 SWIG_croak_null();
5123 }
5124 }
5125
5126
XS(_wrap_gsl_rng_uniform_int)5127 XS(_wrap_gsl_rng_uniform_int) {
5128 {
5129 gsl_rng *arg1 = (gsl_rng *) 0 ;
5130 unsigned long arg2 ;
5131 void *argp1 = 0 ;
5132 int res1 = 0 ;
5133 unsigned long val2 ;
5134 int ecode2 = 0 ;
5135 int argvi = 0;
5136 unsigned long result;
5137 dXSARGS;
5138
5139 if ((items < 2) || (items > 2)) {
5140 SWIG_croak("Usage: gsl_rng_uniform_int(r,n);");
5141 }
5142 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_rng, 0 | 0 );
5143 if (!SWIG_IsOK(res1)) {
5144 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_rng_uniform_int" "', argument " "1"" of type '" "gsl_rng const *""'");
5145 }
5146 arg1 = (gsl_rng *)(argp1);
5147 ecode2 = SWIG_AsVal_unsigned_SS_long SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5148 if (!SWIG_IsOK(ecode2)) {
5149 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_rng_uniform_int" "', argument " "2"" of type '" "unsigned long""'");
5150 }
5151 arg2 = (unsigned long)(val2);
5152 result = (unsigned long)gsl_rng_uniform_int((gsl_rng const *)arg1,arg2);
5153 ST(argvi) = SWIG_From_unsigned_SS_long SWIG_PERL_CALL_ARGS_1((unsigned long)(result)); argvi++ ;
5154
5155
5156 XSRETURN(argvi);
5157 fail:
5158
5159
5160 SWIG_croak_null();
5161 }
5162 }
5163
5164
5165
5166 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (BEGIN) -------- */
5167
5168 static swig_type_info _swigt__p_FILE = {"_p_FILE", "FILE *", 0, 0, (void*)0, 0};
5169 static swig_type_info _swigt__p_char = {"_p_char", "char *", 0, 0, (void*)0, 0};
5170 static swig_type_info _swigt__p_f_p_q_const__char_p_q_const__char_int_int__void = {"_p_f_p_q_const__char_p_q_const__char_int_int__void", "void (*)(char const *,char const *,int,int)|gsl_error_handler_t *", 0, 0, (void*)0, 0};
5171 static swig_type_info _swigt__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void = {"_p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void", "gsl_stream_handler_t *|void (*)(char const *,char const *,int,char const *)", 0, 0, (void*)0, 0};
5172 static swig_type_info _swigt__p_f_p_void__double = {"_p_f_p_void__double", "double (*)(void *)", 0, 0, (void*)0, 0};
5173 static swig_type_info _swigt__p_f_p_void__unsigned_long = {"_p_f_p_void__unsigned_long", "unsigned long (*)(void *)", 0, 0, (void*)0, 0};
5174 static swig_type_info _swigt__p_f_p_void_unsigned_long__void = {"_p_f_p_void_unsigned_long__void", "void (*)(void *,unsigned long)", 0, 0, (void*)0, 0};
5175 static swig_type_info _swigt__p_gsl_rng = {"_p_gsl_rng", "gsl_rng *", 0, 0, (void*)"Math::GSL::RNG::gsl_rng", 0};
5176 static swig_type_info _swigt__p_gsl_rng_type = {"_p_gsl_rng_type", "gsl_rng_type *", 0, 0, (void*)"Math::GSL::RNG::gsl_rng_type", 0};
5177 static swig_type_info _swigt__p_p_gsl_rng_type = {"_p_p_gsl_rng_type", "gsl_rng_type **", 0, 0, (void*)0, 0};
5178 static swig_type_info _swigt__p_void = {"_p_void", "void *", 0, 0, (void*)0, 0};
5179
5180 static swig_type_info *swig_type_initial[] = {
5181 &_swigt__p_FILE,
5182 &_swigt__p_char,
5183 &_swigt__p_f_p_q_const__char_p_q_const__char_int_int__void,
5184 &_swigt__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void,
5185 &_swigt__p_f_p_void__double,
5186 &_swigt__p_f_p_void__unsigned_long,
5187 &_swigt__p_f_p_void_unsigned_long__void,
5188 &_swigt__p_gsl_rng,
5189 &_swigt__p_gsl_rng_type,
5190 &_swigt__p_p_gsl_rng_type,
5191 &_swigt__p_void,
5192 };
5193
5194 static swig_cast_info _swigc__p_FILE[] = { {&_swigt__p_FILE, 0, 0, 0},{0, 0, 0, 0}};
5195 static swig_cast_info _swigc__p_char[] = { {&_swigt__p_char, 0, 0, 0},{0, 0, 0, 0}};
5196 static swig_cast_info _swigc__p_f_p_q_const__char_p_q_const__char_int_int__void[] = { {&_swigt__p_f_p_q_const__char_p_q_const__char_int_int__void, 0, 0, 0},{0, 0, 0, 0}};
5197 static swig_cast_info _swigc__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void[] = { {&_swigt__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void, 0, 0, 0},{0, 0, 0, 0}};
5198 static swig_cast_info _swigc__p_f_p_void__double[] = { {&_swigt__p_f_p_void__double, 0, 0, 0},{0, 0, 0, 0}};
5199 static swig_cast_info _swigc__p_f_p_void__unsigned_long[] = { {&_swigt__p_f_p_void__unsigned_long, 0, 0, 0},{0, 0, 0, 0}};
5200 static swig_cast_info _swigc__p_f_p_void_unsigned_long__void[] = { {&_swigt__p_f_p_void_unsigned_long__void, 0, 0, 0},{0, 0, 0, 0}};
5201 static swig_cast_info _swigc__p_gsl_rng[] = { {&_swigt__p_gsl_rng, 0, 0, 0},{0, 0, 0, 0}};
5202 static swig_cast_info _swigc__p_gsl_rng_type[] = { {&_swigt__p_gsl_rng_type, 0, 0, 0},{0, 0, 0, 0}};
5203 static swig_cast_info _swigc__p_p_gsl_rng_type[] = { {&_swigt__p_p_gsl_rng_type, 0, 0, 0},{0, 0, 0, 0}};
5204 static swig_cast_info _swigc__p_void[] = { {&_swigt__p_void, 0, 0, 0},{0, 0, 0, 0}};
5205
5206 static swig_cast_info *swig_cast_initial[] = {
5207 _swigc__p_FILE,
5208 _swigc__p_char,
5209 _swigc__p_f_p_q_const__char_p_q_const__char_int_int__void,
5210 _swigc__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void,
5211 _swigc__p_f_p_void__double,
5212 _swigc__p_f_p_void__unsigned_long,
5213 _swigc__p_f_p_void_unsigned_long__void,
5214 _swigc__p_gsl_rng,
5215 _swigc__p_gsl_rng_type,
5216 _swigc__p_p_gsl_rng_type,
5217 _swigc__p_void,
5218 };
5219
5220
5221 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (END) -------- */
5222
5223 static swig_constant_info swig_constants[] = {
5224 {0,0,0,0,0,0}
5225 };
5226 #ifdef __cplusplus
5227 }
5228 #endif
5229 static swig_variable_info swig_variables[] = {
5230 { "Math::GSL::RNGc::gsl_rng_borosh13", MAGIC_CLASS _wrap_gsl_rng_borosh13_set, MAGIC_CLASS _wrap_gsl_rng_borosh13_get,&SWIGTYPE_p_gsl_rng_type },
5231 { "Math::GSL::RNGc::gsl_rng_coveyou", MAGIC_CLASS _wrap_gsl_rng_coveyou_set, MAGIC_CLASS _wrap_gsl_rng_coveyou_get,&SWIGTYPE_p_gsl_rng_type },
5232 { "Math::GSL::RNGc::gsl_rng_cmrg", MAGIC_CLASS _wrap_gsl_rng_cmrg_set, MAGIC_CLASS _wrap_gsl_rng_cmrg_get,&SWIGTYPE_p_gsl_rng_type },
5233 { "Math::GSL::RNGc::gsl_rng_fishman18", MAGIC_CLASS _wrap_gsl_rng_fishman18_set, MAGIC_CLASS _wrap_gsl_rng_fishman18_get,&SWIGTYPE_p_gsl_rng_type },
5234 { "Math::GSL::RNGc::gsl_rng_fishman20", MAGIC_CLASS _wrap_gsl_rng_fishman20_set, MAGIC_CLASS _wrap_gsl_rng_fishman20_get,&SWIGTYPE_p_gsl_rng_type },
5235 { "Math::GSL::RNGc::gsl_rng_fishman2x", MAGIC_CLASS _wrap_gsl_rng_fishman2x_set, MAGIC_CLASS _wrap_gsl_rng_fishman2x_get,&SWIGTYPE_p_gsl_rng_type },
5236 { "Math::GSL::RNGc::gsl_rng_gfsr4", MAGIC_CLASS _wrap_gsl_rng_gfsr4_set, MAGIC_CLASS _wrap_gsl_rng_gfsr4_get,&SWIGTYPE_p_gsl_rng_type },
5237 { "Math::GSL::RNGc::gsl_rng_knuthran", MAGIC_CLASS _wrap_gsl_rng_knuthran_set, MAGIC_CLASS _wrap_gsl_rng_knuthran_get,&SWIGTYPE_p_gsl_rng_type },
5238 { "Math::GSL::RNGc::gsl_rng_knuthran2", MAGIC_CLASS _wrap_gsl_rng_knuthran2_set, MAGIC_CLASS _wrap_gsl_rng_knuthran2_get,&SWIGTYPE_p_gsl_rng_type },
5239 { "Math::GSL::RNGc::gsl_rng_knuthran2002", MAGIC_CLASS _wrap_gsl_rng_knuthran2002_set, MAGIC_CLASS _wrap_gsl_rng_knuthran2002_get,&SWIGTYPE_p_gsl_rng_type },
5240 { "Math::GSL::RNGc::gsl_rng_lecuyer21", MAGIC_CLASS _wrap_gsl_rng_lecuyer21_set, MAGIC_CLASS _wrap_gsl_rng_lecuyer21_get,&SWIGTYPE_p_gsl_rng_type },
5241 { "Math::GSL::RNGc::gsl_rng_minstd", MAGIC_CLASS _wrap_gsl_rng_minstd_set, MAGIC_CLASS _wrap_gsl_rng_minstd_get,&SWIGTYPE_p_gsl_rng_type },
5242 { "Math::GSL::RNGc::gsl_rng_mrg", MAGIC_CLASS _wrap_gsl_rng_mrg_set, MAGIC_CLASS _wrap_gsl_rng_mrg_get,&SWIGTYPE_p_gsl_rng_type },
5243 { "Math::GSL::RNGc::gsl_rng_mt19937", MAGIC_CLASS _wrap_gsl_rng_mt19937_set, MAGIC_CLASS _wrap_gsl_rng_mt19937_get,&SWIGTYPE_p_gsl_rng_type },
5244 { "Math::GSL::RNGc::gsl_rng_mt19937_1999", MAGIC_CLASS _wrap_gsl_rng_mt19937_1999_set, MAGIC_CLASS _wrap_gsl_rng_mt19937_1999_get,&SWIGTYPE_p_gsl_rng_type },
5245 { "Math::GSL::RNGc::gsl_rng_mt19937_1998", MAGIC_CLASS _wrap_gsl_rng_mt19937_1998_set, MAGIC_CLASS _wrap_gsl_rng_mt19937_1998_get,&SWIGTYPE_p_gsl_rng_type },
5246 { "Math::GSL::RNGc::gsl_rng_r250", MAGIC_CLASS _wrap_gsl_rng_r250_set, MAGIC_CLASS _wrap_gsl_rng_r250_get,&SWIGTYPE_p_gsl_rng_type },
5247 { "Math::GSL::RNGc::gsl_rng_ran0", MAGIC_CLASS _wrap_gsl_rng_ran0_set, MAGIC_CLASS _wrap_gsl_rng_ran0_get,&SWIGTYPE_p_gsl_rng_type },
5248 { "Math::GSL::RNGc::gsl_rng_ran1", MAGIC_CLASS _wrap_gsl_rng_ran1_set, MAGIC_CLASS _wrap_gsl_rng_ran1_get,&SWIGTYPE_p_gsl_rng_type },
5249 { "Math::GSL::RNGc::gsl_rng_ran2", MAGIC_CLASS _wrap_gsl_rng_ran2_set, MAGIC_CLASS _wrap_gsl_rng_ran2_get,&SWIGTYPE_p_gsl_rng_type },
5250 { "Math::GSL::RNGc::gsl_rng_ran3", MAGIC_CLASS _wrap_gsl_rng_ran3_set, MAGIC_CLASS _wrap_gsl_rng_ran3_get,&SWIGTYPE_p_gsl_rng_type },
5251 { "Math::GSL::RNGc::gsl_rng_rand", MAGIC_CLASS _wrap_gsl_rng_rand_set, MAGIC_CLASS _wrap_gsl_rng_rand_get,&SWIGTYPE_p_gsl_rng_type },
5252 { "Math::GSL::RNGc::gsl_rng_rand48", MAGIC_CLASS _wrap_gsl_rng_rand48_set, MAGIC_CLASS _wrap_gsl_rng_rand48_get,&SWIGTYPE_p_gsl_rng_type },
5253 { "Math::GSL::RNGc::gsl_rng_random128_bsd", MAGIC_CLASS _wrap_gsl_rng_random128_bsd_set, MAGIC_CLASS _wrap_gsl_rng_random128_bsd_get,&SWIGTYPE_p_gsl_rng_type },
5254 { "Math::GSL::RNGc::gsl_rng_random128_glibc2", MAGIC_CLASS _wrap_gsl_rng_random128_glibc2_set, MAGIC_CLASS _wrap_gsl_rng_random128_glibc2_get,&SWIGTYPE_p_gsl_rng_type },
5255 { "Math::GSL::RNGc::gsl_rng_random128_libc5", MAGIC_CLASS _wrap_gsl_rng_random128_libc5_set, MAGIC_CLASS _wrap_gsl_rng_random128_libc5_get,&SWIGTYPE_p_gsl_rng_type },
5256 { "Math::GSL::RNGc::gsl_rng_random256_bsd", MAGIC_CLASS _wrap_gsl_rng_random256_bsd_set, MAGIC_CLASS _wrap_gsl_rng_random256_bsd_get,&SWIGTYPE_p_gsl_rng_type },
5257 { "Math::GSL::RNGc::gsl_rng_random256_glibc2", MAGIC_CLASS _wrap_gsl_rng_random256_glibc2_set, MAGIC_CLASS _wrap_gsl_rng_random256_glibc2_get,&SWIGTYPE_p_gsl_rng_type },
5258 { "Math::GSL::RNGc::gsl_rng_random256_libc5", MAGIC_CLASS _wrap_gsl_rng_random256_libc5_set, MAGIC_CLASS _wrap_gsl_rng_random256_libc5_get,&SWIGTYPE_p_gsl_rng_type },
5259 { "Math::GSL::RNGc::gsl_rng_random32_bsd", MAGIC_CLASS _wrap_gsl_rng_random32_bsd_set, MAGIC_CLASS _wrap_gsl_rng_random32_bsd_get,&SWIGTYPE_p_gsl_rng_type },
5260 { "Math::GSL::RNGc::gsl_rng_random32_glibc2", MAGIC_CLASS _wrap_gsl_rng_random32_glibc2_set, MAGIC_CLASS _wrap_gsl_rng_random32_glibc2_get,&SWIGTYPE_p_gsl_rng_type },
5261 { "Math::GSL::RNGc::gsl_rng_random32_libc5", MAGIC_CLASS _wrap_gsl_rng_random32_libc5_set, MAGIC_CLASS _wrap_gsl_rng_random32_libc5_get,&SWIGTYPE_p_gsl_rng_type },
5262 { "Math::GSL::RNGc::gsl_rng_random64_bsd", MAGIC_CLASS _wrap_gsl_rng_random64_bsd_set, MAGIC_CLASS _wrap_gsl_rng_random64_bsd_get,&SWIGTYPE_p_gsl_rng_type },
5263 { "Math::GSL::RNGc::gsl_rng_random64_glibc2", MAGIC_CLASS _wrap_gsl_rng_random64_glibc2_set, MAGIC_CLASS _wrap_gsl_rng_random64_glibc2_get,&SWIGTYPE_p_gsl_rng_type },
5264 { "Math::GSL::RNGc::gsl_rng_random64_libc5", MAGIC_CLASS _wrap_gsl_rng_random64_libc5_set, MAGIC_CLASS _wrap_gsl_rng_random64_libc5_get,&SWIGTYPE_p_gsl_rng_type },
5265 { "Math::GSL::RNGc::gsl_rng_random8_bsd", MAGIC_CLASS _wrap_gsl_rng_random8_bsd_set, MAGIC_CLASS _wrap_gsl_rng_random8_bsd_get,&SWIGTYPE_p_gsl_rng_type },
5266 { "Math::GSL::RNGc::gsl_rng_random8_glibc2", MAGIC_CLASS _wrap_gsl_rng_random8_glibc2_set, MAGIC_CLASS _wrap_gsl_rng_random8_glibc2_get,&SWIGTYPE_p_gsl_rng_type },
5267 { "Math::GSL::RNGc::gsl_rng_random8_libc5", MAGIC_CLASS _wrap_gsl_rng_random8_libc5_set, MAGIC_CLASS _wrap_gsl_rng_random8_libc5_get,&SWIGTYPE_p_gsl_rng_type },
5268 { "Math::GSL::RNGc::gsl_rng_random_bsd", MAGIC_CLASS _wrap_gsl_rng_random_bsd_set, MAGIC_CLASS _wrap_gsl_rng_random_bsd_get,&SWIGTYPE_p_gsl_rng_type },
5269 { "Math::GSL::RNGc::gsl_rng_random_glibc2", MAGIC_CLASS _wrap_gsl_rng_random_glibc2_set, MAGIC_CLASS _wrap_gsl_rng_random_glibc2_get,&SWIGTYPE_p_gsl_rng_type },
5270 { "Math::GSL::RNGc::gsl_rng_random_libc5", MAGIC_CLASS _wrap_gsl_rng_random_libc5_set, MAGIC_CLASS _wrap_gsl_rng_random_libc5_get,&SWIGTYPE_p_gsl_rng_type },
5271 { "Math::GSL::RNGc::gsl_rng_randu", MAGIC_CLASS _wrap_gsl_rng_randu_set, MAGIC_CLASS _wrap_gsl_rng_randu_get,&SWIGTYPE_p_gsl_rng_type },
5272 { "Math::GSL::RNGc::gsl_rng_ranf", MAGIC_CLASS _wrap_gsl_rng_ranf_set, MAGIC_CLASS _wrap_gsl_rng_ranf_get,&SWIGTYPE_p_gsl_rng_type },
5273 { "Math::GSL::RNGc::gsl_rng_ranlux", MAGIC_CLASS _wrap_gsl_rng_ranlux_set, MAGIC_CLASS _wrap_gsl_rng_ranlux_get,&SWIGTYPE_p_gsl_rng_type },
5274 { "Math::GSL::RNGc::gsl_rng_ranlux389", MAGIC_CLASS _wrap_gsl_rng_ranlux389_set, MAGIC_CLASS _wrap_gsl_rng_ranlux389_get,&SWIGTYPE_p_gsl_rng_type },
5275 { "Math::GSL::RNGc::gsl_rng_ranlxd1", MAGIC_CLASS _wrap_gsl_rng_ranlxd1_set, MAGIC_CLASS _wrap_gsl_rng_ranlxd1_get,&SWIGTYPE_p_gsl_rng_type },
5276 { "Math::GSL::RNGc::gsl_rng_ranlxd2", MAGIC_CLASS _wrap_gsl_rng_ranlxd2_set, MAGIC_CLASS _wrap_gsl_rng_ranlxd2_get,&SWIGTYPE_p_gsl_rng_type },
5277 { "Math::GSL::RNGc::gsl_rng_ranlxs0", MAGIC_CLASS _wrap_gsl_rng_ranlxs0_set, MAGIC_CLASS _wrap_gsl_rng_ranlxs0_get,&SWIGTYPE_p_gsl_rng_type },
5278 { "Math::GSL::RNGc::gsl_rng_ranlxs1", MAGIC_CLASS _wrap_gsl_rng_ranlxs1_set, MAGIC_CLASS _wrap_gsl_rng_ranlxs1_get,&SWIGTYPE_p_gsl_rng_type },
5279 { "Math::GSL::RNGc::gsl_rng_ranlxs2", MAGIC_CLASS _wrap_gsl_rng_ranlxs2_set, MAGIC_CLASS _wrap_gsl_rng_ranlxs2_get,&SWIGTYPE_p_gsl_rng_type },
5280 { "Math::GSL::RNGc::gsl_rng_ranmar", MAGIC_CLASS _wrap_gsl_rng_ranmar_set, MAGIC_CLASS _wrap_gsl_rng_ranmar_get,&SWIGTYPE_p_gsl_rng_type },
5281 { "Math::GSL::RNGc::gsl_rng_slatec", MAGIC_CLASS _wrap_gsl_rng_slatec_set, MAGIC_CLASS _wrap_gsl_rng_slatec_get,&SWIGTYPE_p_gsl_rng_type },
5282 { "Math::GSL::RNGc::gsl_rng_taus", MAGIC_CLASS _wrap_gsl_rng_taus_set, MAGIC_CLASS _wrap_gsl_rng_taus_get,&SWIGTYPE_p_gsl_rng_type },
5283 { "Math::GSL::RNGc::gsl_rng_taus2", MAGIC_CLASS _wrap_gsl_rng_taus2_set, MAGIC_CLASS _wrap_gsl_rng_taus2_get,&SWIGTYPE_p_gsl_rng_type },
5284 { "Math::GSL::RNGc::gsl_rng_taus113", MAGIC_CLASS _wrap_gsl_rng_taus113_set, MAGIC_CLASS _wrap_gsl_rng_taus113_get,&SWIGTYPE_p_gsl_rng_type },
5285 { "Math::GSL::RNGc::gsl_rng_transputer", MAGIC_CLASS _wrap_gsl_rng_transputer_set, MAGIC_CLASS _wrap_gsl_rng_transputer_get,&SWIGTYPE_p_gsl_rng_type },
5286 { "Math::GSL::RNGc::gsl_rng_tt800", MAGIC_CLASS _wrap_gsl_rng_tt800_set, MAGIC_CLASS _wrap_gsl_rng_tt800_get,&SWIGTYPE_p_gsl_rng_type },
5287 { "Math::GSL::RNGc::gsl_rng_uni", MAGIC_CLASS _wrap_gsl_rng_uni_set, MAGIC_CLASS _wrap_gsl_rng_uni_get,&SWIGTYPE_p_gsl_rng_type },
5288 { "Math::GSL::RNGc::gsl_rng_uni32", MAGIC_CLASS _wrap_gsl_rng_uni32_set, MAGIC_CLASS _wrap_gsl_rng_uni32_get,&SWIGTYPE_p_gsl_rng_type },
5289 { "Math::GSL::RNGc::gsl_rng_vax", MAGIC_CLASS _wrap_gsl_rng_vax_set, MAGIC_CLASS _wrap_gsl_rng_vax_get,&SWIGTYPE_p_gsl_rng_type },
5290 { "Math::GSL::RNGc::gsl_rng_waterman14", MAGIC_CLASS _wrap_gsl_rng_waterman14_set, MAGIC_CLASS _wrap_gsl_rng_waterman14_get,&SWIGTYPE_p_gsl_rng_type },
5291 { "Math::GSL::RNGc::gsl_rng_zuf", MAGIC_CLASS _wrap_gsl_rng_zuf_set, MAGIC_CLASS _wrap_gsl_rng_zuf_get,&SWIGTYPE_p_gsl_rng_type },
5292 { "Math::GSL::RNGc::gsl_rng_default", MAGIC_CLASS _wrap_gsl_rng_default_set, MAGIC_CLASS _wrap_gsl_rng_default_get,&SWIGTYPE_p_gsl_rng_type },
5293 { "Math::GSL::RNGc::gsl_rng_default_seed", MAGIC_CLASS _wrap_gsl_rng_default_seed_set, MAGIC_CLASS _wrap_gsl_rng_default_seed_get,0 },
5294 {0,0,0,0}
5295 };
5296 static swig_command_info swig_commands[] = {
5297 {"Math::GSL::RNGc::gsl_error", _wrap_gsl_error},
5298 {"Math::GSL::RNGc::gsl_stream_printf", _wrap_gsl_stream_printf},
5299 {"Math::GSL::RNGc::gsl_strerror", _wrap_gsl_strerror},
5300 {"Math::GSL::RNGc::gsl_set_error_handler", _wrap_gsl_set_error_handler},
5301 {"Math::GSL::RNGc::gsl_set_error_handler_off", _wrap_gsl_set_error_handler_off},
5302 {"Math::GSL::RNGc::gsl_set_stream_handler", _wrap_gsl_set_stream_handler},
5303 {"Math::GSL::RNGc::gsl_set_stream", _wrap_gsl_set_stream},
5304 {"Math::GSL::RNGc::gsl_rng_type_name_set", _wrap_gsl_rng_type_name_set},
5305 {"Math::GSL::RNGc::gsl_rng_type_name_get", _wrap_gsl_rng_type_name_get},
5306 {"Math::GSL::RNGc::gsl_rng_type_max_set", _wrap_gsl_rng_type_max_set},
5307 {"Math::GSL::RNGc::gsl_rng_type_max_get", _wrap_gsl_rng_type_max_get},
5308 {"Math::GSL::RNGc::gsl_rng_type_min_set", _wrap_gsl_rng_type_min_set},
5309 {"Math::GSL::RNGc::gsl_rng_type_min_get", _wrap_gsl_rng_type_min_get},
5310 {"Math::GSL::RNGc::gsl_rng_type_size_set", _wrap_gsl_rng_type_size_set},
5311 {"Math::GSL::RNGc::gsl_rng_type_size_get", _wrap_gsl_rng_type_size_get},
5312 {"Math::GSL::RNGc::gsl_rng_type_set_set", _wrap_gsl_rng_type_set_set},
5313 {"Math::GSL::RNGc::gsl_rng_type_set_get", _wrap_gsl_rng_type_set_get},
5314 {"Math::GSL::RNGc::gsl_rng_type_get_set", _wrap_gsl_rng_type_get_set},
5315 {"Math::GSL::RNGc::gsl_rng_type_get_get", _wrap_gsl_rng_type_get_get},
5316 {"Math::GSL::RNGc::gsl_rng_type_get_double_set", _wrap_gsl_rng_type_get_double_set},
5317 {"Math::GSL::RNGc::gsl_rng_type_get_double_get", _wrap_gsl_rng_type_get_double_get},
5318 {"Math::GSL::RNGc::new_gsl_rng_type", _wrap_new_gsl_rng_type},
5319 {"Math::GSL::RNGc::delete_gsl_rng_type", _wrap_delete_gsl_rng_type},
5320 {"Math::GSL::RNGc::gsl_rng_type_set", _wrap_gsl_rng_type_set},
5321 {"Math::GSL::RNGc::gsl_rng_type_get", _wrap_gsl_rng_type_get},
5322 {"Math::GSL::RNGc::gsl_rng_state_set", _wrap_gsl_rng_state_set},
5323 {"Math::GSL::RNGc::gsl_rng_state_get", _wrap_gsl_rng_state_get},
5324 {"Math::GSL::RNGc::new_gsl_rng", _wrap_new_gsl_rng},
5325 {"Math::GSL::RNGc::delete_gsl_rng", _wrap_delete_gsl_rng},
5326 {"Math::GSL::RNGc::gsl_rng_types_setup", _wrap_gsl_rng_types_setup},
5327 {"Math::GSL::RNGc::gsl_rng_alloc", _wrap_gsl_rng_alloc},
5328 {"Math::GSL::RNGc::gsl_rng_memcpy", _wrap_gsl_rng_memcpy},
5329 {"Math::GSL::RNGc::gsl_rng_clone", _wrap_gsl_rng_clone},
5330 {"Math::GSL::RNGc::gsl_rng_free", _wrap_gsl_rng_free},
5331 {"Math::GSL::RNGc::gsl_rng_set", _wrap_gsl_rng_set},
5332 {"Math::GSL::RNGc::gsl_rng_max", _wrap_gsl_rng_max},
5333 {"Math::GSL::RNGc::gsl_rng_min", _wrap_gsl_rng_min},
5334 {"Math::GSL::RNGc::gsl_rng_name", _wrap_gsl_rng_name},
5335 {"Math::GSL::RNGc::gsl_rng_fread", _wrap_gsl_rng_fread},
5336 {"Math::GSL::RNGc::gsl_rng_fwrite", _wrap_gsl_rng_fwrite},
5337 {"Math::GSL::RNGc::gsl_rng_size", _wrap_gsl_rng_size},
5338 {"Math::GSL::RNGc::gsl_rng_state", _wrap_gsl_rng_state},
5339 {"Math::GSL::RNGc::gsl_rng_print_state", _wrap_gsl_rng_print_state},
5340 {"Math::GSL::RNGc::gsl_rng_env_setup", _wrap_gsl_rng_env_setup},
5341 {"Math::GSL::RNGc::gsl_rng_get", _wrap_gsl_rng_get},
5342 {"Math::GSL::RNGc::gsl_rng_uniform", _wrap_gsl_rng_uniform},
5343 {"Math::GSL::RNGc::gsl_rng_uniform_pos", _wrap_gsl_rng_uniform_pos},
5344 {"Math::GSL::RNGc::gsl_rng_uniform_int", _wrap_gsl_rng_uniform_int},
5345 {0,0}
5346 };
5347 /* -----------------------------------------------------------------------------
5348 * Type initialization:
5349 * This problem is tough by the requirement that no dynamic
5350 * memory is used. Also, since swig_type_info structures store pointers to
5351 * swig_cast_info structures and swig_cast_info structures store pointers back
5352 * to swig_type_info structures, we need some lookup code at initialization.
5353 * The idea is that swig generates all the structures that are needed.
5354 * The runtime then collects these partially filled structures.
5355 * The SWIG_InitializeModule function takes these initial arrays out of
5356 * swig_module, and does all the lookup, filling in the swig_module.types
5357 * array with the correct data and linking the correct swig_cast_info
5358 * structures together.
5359 *
5360 * The generated swig_type_info structures are assigned statically to an initial
5361 * array. We just loop through that array, and handle each type individually.
5362 * First we lookup if this type has been already loaded, and if so, use the
5363 * loaded structure instead of the generated one. Then we have to fill in the
5364 * cast linked list. The cast data is initially stored in something like a
5365 * two-dimensional array. Each row corresponds to a type (there are the same
5366 * number of rows as there are in the swig_type_initial array). Each entry in
5367 * a column is one of the swig_cast_info structures for that type.
5368 * The cast_initial array is actually an array of arrays, because each row has
5369 * a variable number of columns. So to actually build the cast linked list,
5370 * we find the array of casts associated with the type, and loop through it
5371 * adding the casts to the list. The one last trick we need to do is making
5372 * sure the type pointer in the swig_cast_info struct is correct.
5373 *
5374 * First off, we lookup the cast->type name to see if it is already loaded.
5375 * There are three cases to handle:
5376 * 1) If the cast->type has already been loaded AND the type we are adding
5377 * casting info to has not been loaded (it is in this module), THEN we
5378 * replace the cast->type pointer with the type pointer that has already
5379 * been loaded.
5380 * 2) If BOTH types (the one we are adding casting info to, and the
5381 * cast->type) are loaded, THEN the cast info has already been loaded by
5382 * the previous module so we just ignore it.
5383 * 3) Finally, if cast->type has not already been loaded, then we add that
5384 * swig_cast_info to the linked list (because the cast->type) pointer will
5385 * be correct.
5386 * ----------------------------------------------------------------------------- */
5387
5388 #ifdef __cplusplus
5389 extern "C" {
5390 #if 0
5391 } /* c-mode */
5392 #endif
5393 #endif
5394
5395 #if 0
5396 #define SWIGRUNTIME_DEBUG
5397 #endif
5398
5399
5400 SWIGRUNTIME void
SWIG_InitializeModule(void * clientdata)5401 SWIG_InitializeModule(void *clientdata) {
5402 size_t i;
5403 swig_module_info *module_head, *iter;
5404 int init;
5405
5406 /* check to see if the circular list has been setup, if not, set it up */
5407 if (swig_module.next==0) {
5408 /* Initialize the swig_module */
5409 swig_module.type_initial = swig_type_initial;
5410 swig_module.cast_initial = swig_cast_initial;
5411 swig_module.next = &swig_module;
5412 init = 1;
5413 } else {
5414 init = 0;
5415 }
5416
5417 /* Try and load any already created modules */
5418 module_head = SWIG_GetModule(clientdata);
5419 if (!module_head) {
5420 /* This is the first module loaded for this interpreter */
5421 /* so set the swig module into the interpreter */
5422 SWIG_SetModule(clientdata, &swig_module);
5423 } else {
5424 /* the interpreter has loaded a SWIG module, but has it loaded this one? */
5425 iter=module_head;
5426 do {
5427 if (iter==&swig_module) {
5428 /* Our module is already in the list, so there's nothing more to do. */
5429 return;
5430 }
5431 iter=iter->next;
5432 } while (iter!= module_head);
5433
5434 /* otherwise we must add our module into the list */
5435 swig_module.next = module_head->next;
5436 module_head->next = &swig_module;
5437 }
5438
5439 /* When multiple interpreters are used, a module could have already been initialized in
5440 a different interpreter, but not yet have a pointer in this interpreter.
5441 In this case, we do not want to continue adding types... everything should be
5442 set up already */
5443 if (init == 0) return;
5444
5445 /* Now work on filling in swig_module.types */
5446 #ifdef SWIGRUNTIME_DEBUG
5447 printf("SWIG_InitializeModule: size %lu\n", (unsigned long)swig_module.size);
5448 #endif
5449 for (i = 0; i < swig_module.size; ++i) {
5450 swig_type_info *type = 0;
5451 swig_type_info *ret;
5452 swig_cast_info *cast;
5453
5454 #ifdef SWIGRUNTIME_DEBUG
5455 printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
5456 #endif
5457
5458 /* if there is another module already loaded */
5459 if (swig_module.next != &swig_module) {
5460 type = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, swig_module.type_initial[i]->name);
5461 }
5462 if (type) {
5463 /* Overwrite clientdata field */
5464 #ifdef SWIGRUNTIME_DEBUG
5465 printf("SWIG_InitializeModule: found type %s\n", type->name);
5466 #endif
5467 if (swig_module.type_initial[i]->clientdata) {
5468 type->clientdata = swig_module.type_initial[i]->clientdata;
5469 #ifdef SWIGRUNTIME_DEBUG
5470 printf("SWIG_InitializeModule: found and overwrite type %s \n", type->name);
5471 #endif
5472 }
5473 } else {
5474 type = swig_module.type_initial[i];
5475 }
5476
5477 /* Insert casting types */
5478 cast = swig_module.cast_initial[i];
5479 while (cast->type) {
5480 /* Don't need to add information already in the list */
5481 ret = 0;
5482 #ifdef SWIGRUNTIME_DEBUG
5483 printf("SWIG_InitializeModule: look cast %s\n", cast->type->name);
5484 #endif
5485 if (swig_module.next != &swig_module) {
5486 ret = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, cast->type->name);
5487 #ifdef SWIGRUNTIME_DEBUG
5488 if (ret) printf("SWIG_InitializeModule: found cast %s\n", ret->name);
5489 #endif
5490 }
5491 if (ret) {
5492 if (type == swig_module.type_initial[i]) {
5493 #ifdef SWIGRUNTIME_DEBUG
5494 printf("SWIG_InitializeModule: skip old type %s\n", ret->name);
5495 #endif
5496 cast->type = ret;
5497 ret = 0;
5498 } else {
5499 /* Check for casting already in the list */
5500 swig_cast_info *ocast = SWIG_TypeCheck(ret->name, type);
5501 #ifdef SWIGRUNTIME_DEBUG
5502 if (ocast) printf("SWIG_InitializeModule: skip old cast %s\n", ret->name);
5503 #endif
5504 if (!ocast) ret = 0;
5505 }
5506 }
5507
5508 if (!ret) {
5509 #ifdef SWIGRUNTIME_DEBUG
5510 printf("SWIG_InitializeModule: adding cast %s\n", cast->type->name);
5511 #endif
5512 if (type->cast) {
5513 type->cast->prev = cast;
5514 cast->next = type->cast;
5515 }
5516 type->cast = cast;
5517 }
5518 cast++;
5519 }
5520 /* Set entry in modules->types array equal to the type */
5521 swig_module.types[i] = type;
5522 }
5523 swig_module.types[i] = 0;
5524
5525 #ifdef SWIGRUNTIME_DEBUG
5526 printf("**** SWIG_InitializeModule: Cast List ******\n");
5527 for (i = 0; i < swig_module.size; ++i) {
5528 int j = 0;
5529 swig_cast_info *cast = swig_module.cast_initial[i];
5530 printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
5531 while (cast->type) {
5532 printf("SWIG_InitializeModule: cast type %s\n", cast->type->name);
5533 cast++;
5534 ++j;
5535 }
5536 printf("---- Total casts: %d\n",j);
5537 }
5538 printf("**** SWIG_InitializeModule: Cast List ******\n");
5539 #endif
5540 }
5541
5542 /* This function will propagate the clientdata field of type to
5543 * any new swig_type_info structures that have been added into the list
5544 * of equivalent types. It is like calling
5545 * SWIG_TypeClientData(type, clientdata) a second time.
5546 */
5547 SWIGRUNTIME void
SWIG_PropagateClientData(void)5548 SWIG_PropagateClientData(void) {
5549 size_t i;
5550 swig_cast_info *equiv;
5551 static int init_run = 0;
5552
5553 if (init_run) return;
5554 init_run = 1;
5555
5556 for (i = 0; i < swig_module.size; i++) {
5557 if (swig_module.types[i]->clientdata) {
5558 equiv = swig_module.types[i]->cast;
5559 while (equiv) {
5560 if (!equiv->converter) {
5561 if (equiv->type && !equiv->type->clientdata)
5562 SWIG_TypeClientData(equiv->type, swig_module.types[i]->clientdata);
5563 }
5564 equiv = equiv->next;
5565 }
5566 }
5567 }
5568 }
5569
5570 #ifdef __cplusplus
5571 #if 0
5572 {
5573 /* c-mode */
5574 #endif
5575 }
5576 #endif
5577
5578
5579
5580 #if defined(__cplusplus) && ! defined(XSPROTO)
5581 extern "C"
5582 #endif
5583
XS(SWIG_init)5584 XS(SWIG_init) {
5585 dXSARGS;
5586 int i;
5587 (void)items;
5588
5589 SWIG_InitializeModule(0);
5590
5591 /* Install commands */
5592 for (i = 0; swig_commands[i].name; i++) {
5593 /* Casts only needed for Perl < 5.10. */
5594 #ifdef __cplusplus
5595 newXS(const_cast<char*>(swig_commands[i].name), swig_commands[i].wrapper, const_cast<char*>(__FILE__));
5596 #else
5597 newXS((char*)swig_commands[i].name, swig_commands[i].wrapper, (char*)__FILE__);
5598 #endif
5599 }
5600
5601 /* Install variables */
5602 for (i = 0; swig_variables[i].name; i++) {
5603 SV *sv;
5604 sv = get_sv(swig_variables[i].name, TRUE | 0x2 | GV_ADDMULTI);
5605 if (swig_variables[i].type) {
5606 SWIG_MakePtr(sv,(void *)1, *swig_variables[i].type,0);
5607 } else {
5608 sv_setiv(sv,(IV) 0);
5609 }
5610 swig_create_magic(sv, swig_variables[i].name, swig_variables[i].set, swig_variables[i].get);
5611 }
5612
5613 /* Install constant */
5614 for (i = 0; swig_constants[i].type; i++) {
5615 SV *sv;
5616 sv = get_sv(swig_constants[i].name, TRUE | 0x2 | GV_ADDMULTI);
5617 switch(swig_constants[i].type) {
5618 case SWIG_INT:
5619 sv_setiv(sv, (IV) swig_constants[i].lvalue);
5620 break;
5621 case SWIG_FLOAT:
5622 sv_setnv(sv, (double) swig_constants[i].dvalue);
5623 break;
5624 case SWIG_STRING:
5625 sv_setpv(sv, (const char *) swig_constants[i].pvalue);
5626 break;
5627 case SWIG_POINTER:
5628 SWIG_MakePtr(sv, swig_constants[i].pvalue, *(swig_constants[i].ptype),0);
5629 break;
5630 case SWIG_BINARY:
5631 SWIG_MakePackedObj(sv, swig_constants[i].pvalue, swig_constants[i].lvalue, *(swig_constants[i].ptype));
5632 break;
5633 default:
5634 break;
5635 }
5636 SvREADONLY_on(sv);
5637 }
5638
5639 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5640 SV *sv = get_sv((char*) SWIG_prefix "GSL_VERSION", TRUE | 0x2 | GV_ADDMULTI);
5641 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(2.7)));
5642 SvREADONLY_on(sv);
5643 } while(0) /*@SWIG@*/;
5644 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5645 SV *sv = get_sv((char*) SWIG_prefix "GSL_MAJOR_VERSION", TRUE | 0x2 | GV_ADDMULTI);
5646 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(2)));
5647 SvREADONLY_on(sv);
5648 } while(0) /*@SWIG@*/;
5649 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5650 SV *sv = get_sv((char*) SWIG_prefix "GSL_MINOR_VERSION", TRUE | 0x2 | GV_ADDMULTI);
5651 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(7)));
5652 SvREADONLY_on(sv);
5653 } while(0) /*@SWIG@*/;
5654 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5655 SV *sv = get_sv((char*) SWIG_prefix "GSL_POSZERO", TRUE | 0x2 | GV_ADDMULTI);
5656 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)((+0.0))));
5657 SvREADONLY_on(sv);
5658 } while(0) /*@SWIG@*/;
5659 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5660 SV *sv = get_sv((char*) SWIG_prefix "GSL_NEGZERO", TRUE | 0x2 | GV_ADDMULTI);
5661 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)((-0.0))));
5662 SvREADONLY_on(sv);
5663 } while(0) /*@SWIG@*/;
5664 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5665 SV *sv = get_sv((char*) SWIG_prefix "GSL_SUCCESS", TRUE | 0x2 | GV_ADDMULTI);
5666 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_SUCCESS)));
5667 SvREADONLY_on(sv);
5668 } while(0) /*@SWIG@*/;
5669 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5670 SV *sv = get_sv((char*) SWIG_prefix "GSL_FAILURE", TRUE | 0x2 | GV_ADDMULTI);
5671 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_FAILURE)));
5672 SvREADONLY_on(sv);
5673 } while(0) /*@SWIG@*/;
5674 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5675 SV *sv = get_sv((char*) SWIG_prefix "GSL_CONTINUE", TRUE | 0x2 | GV_ADDMULTI);
5676 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_CONTINUE)));
5677 SvREADONLY_on(sv);
5678 } while(0) /*@SWIG@*/;
5679 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5680 SV *sv = get_sv((char*) SWIG_prefix "GSL_EDOM", TRUE | 0x2 | GV_ADDMULTI);
5681 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EDOM)));
5682 SvREADONLY_on(sv);
5683 } while(0) /*@SWIG@*/;
5684 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5685 SV *sv = get_sv((char*) SWIG_prefix "GSL_ERANGE", TRUE | 0x2 | GV_ADDMULTI);
5686 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ERANGE)));
5687 SvREADONLY_on(sv);
5688 } while(0) /*@SWIG@*/;
5689 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5690 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFAULT", TRUE | 0x2 | GV_ADDMULTI);
5691 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFAULT)));
5692 SvREADONLY_on(sv);
5693 } while(0) /*@SWIG@*/;
5694 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5695 SV *sv = get_sv((char*) SWIG_prefix "GSL_EINVAL", TRUE | 0x2 | GV_ADDMULTI);
5696 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EINVAL)));
5697 SvREADONLY_on(sv);
5698 } while(0) /*@SWIG@*/;
5699 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5700 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFAILED", TRUE | 0x2 | GV_ADDMULTI);
5701 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFAILED)));
5702 SvREADONLY_on(sv);
5703 } while(0) /*@SWIG@*/;
5704 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5705 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFACTOR", TRUE | 0x2 | GV_ADDMULTI);
5706 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFACTOR)));
5707 SvREADONLY_on(sv);
5708 } while(0) /*@SWIG@*/;
5709 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5710 SV *sv = get_sv((char*) SWIG_prefix "GSL_ESANITY", TRUE | 0x2 | GV_ADDMULTI);
5711 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ESANITY)));
5712 SvREADONLY_on(sv);
5713 } while(0) /*@SWIG@*/;
5714 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5715 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOMEM", TRUE | 0x2 | GV_ADDMULTI);
5716 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOMEM)));
5717 SvREADONLY_on(sv);
5718 } while(0) /*@SWIG@*/;
5719 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5720 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADFUNC", TRUE | 0x2 | GV_ADDMULTI);
5721 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADFUNC)));
5722 SvREADONLY_on(sv);
5723 } while(0) /*@SWIG@*/;
5724 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5725 SV *sv = get_sv((char*) SWIG_prefix "GSL_ERUNAWAY", TRUE | 0x2 | GV_ADDMULTI);
5726 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ERUNAWAY)));
5727 SvREADONLY_on(sv);
5728 } while(0) /*@SWIG@*/;
5729 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5730 SV *sv = get_sv((char*) SWIG_prefix "GSL_EMAXITER", TRUE | 0x2 | GV_ADDMULTI);
5731 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EMAXITER)));
5732 SvREADONLY_on(sv);
5733 } while(0) /*@SWIG@*/;
5734 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5735 SV *sv = get_sv((char*) SWIG_prefix "GSL_EZERODIV", TRUE | 0x2 | GV_ADDMULTI);
5736 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EZERODIV)));
5737 SvREADONLY_on(sv);
5738 } while(0) /*@SWIG@*/;
5739 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5740 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADTOL", TRUE | 0x2 | GV_ADDMULTI);
5741 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADTOL)));
5742 SvREADONLY_on(sv);
5743 } while(0) /*@SWIG@*/;
5744 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5745 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOL", TRUE | 0x2 | GV_ADDMULTI);
5746 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOL)));
5747 SvREADONLY_on(sv);
5748 } while(0) /*@SWIG@*/;
5749 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5750 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNDRFLW", TRUE | 0x2 | GV_ADDMULTI);
5751 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNDRFLW)));
5752 SvREADONLY_on(sv);
5753 } while(0) /*@SWIG@*/;
5754 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5755 SV *sv = get_sv((char*) SWIG_prefix "GSL_EOVRFLW", TRUE | 0x2 | GV_ADDMULTI);
5756 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EOVRFLW)));
5757 SvREADONLY_on(sv);
5758 } while(0) /*@SWIG@*/;
5759 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5760 SV *sv = get_sv((char*) SWIG_prefix "GSL_ELOSS", TRUE | 0x2 | GV_ADDMULTI);
5761 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ELOSS)));
5762 SvREADONLY_on(sv);
5763 } while(0) /*@SWIG@*/;
5764 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5765 SV *sv = get_sv((char*) SWIG_prefix "GSL_EROUND", TRUE | 0x2 | GV_ADDMULTI);
5766 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EROUND)));
5767 SvREADONLY_on(sv);
5768 } while(0) /*@SWIG@*/;
5769 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5770 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADLEN", TRUE | 0x2 | GV_ADDMULTI);
5771 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADLEN)));
5772 SvREADONLY_on(sv);
5773 } while(0) /*@SWIG@*/;
5774 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5775 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOTSQR", TRUE | 0x2 | GV_ADDMULTI);
5776 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOTSQR)));
5777 SvREADONLY_on(sv);
5778 } while(0) /*@SWIG@*/;
5779 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5780 SV *sv = get_sv((char*) SWIG_prefix "GSL_ESING", TRUE | 0x2 | GV_ADDMULTI);
5781 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ESING)));
5782 SvREADONLY_on(sv);
5783 } while(0) /*@SWIG@*/;
5784 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5785 SV *sv = get_sv((char*) SWIG_prefix "GSL_EDIVERGE", TRUE | 0x2 | GV_ADDMULTI);
5786 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EDIVERGE)));
5787 SvREADONLY_on(sv);
5788 } while(0) /*@SWIG@*/;
5789 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5790 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNSUP", TRUE | 0x2 | GV_ADDMULTI);
5791 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNSUP)));
5792 SvREADONLY_on(sv);
5793 } while(0) /*@SWIG@*/;
5794 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5795 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNIMPL", TRUE | 0x2 | GV_ADDMULTI);
5796 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNIMPL)));
5797 SvREADONLY_on(sv);
5798 } while(0) /*@SWIG@*/;
5799 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5800 SV *sv = get_sv((char*) SWIG_prefix "GSL_ECACHE", TRUE | 0x2 | GV_ADDMULTI);
5801 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ECACHE)));
5802 SvREADONLY_on(sv);
5803 } while(0) /*@SWIG@*/;
5804 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5805 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETABLE", TRUE | 0x2 | GV_ADDMULTI);
5806 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETABLE)));
5807 SvREADONLY_on(sv);
5808 } while(0) /*@SWIG@*/;
5809 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5810 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOPROG", TRUE | 0x2 | GV_ADDMULTI);
5811 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOPROG)));
5812 SvREADONLY_on(sv);
5813 } while(0) /*@SWIG@*/;
5814 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5815 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOPROGJ", TRUE | 0x2 | GV_ADDMULTI);
5816 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOPROGJ)));
5817 SvREADONLY_on(sv);
5818 } while(0) /*@SWIG@*/;
5819 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5820 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLF", TRUE | 0x2 | GV_ADDMULTI);
5821 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLF)));
5822 SvREADONLY_on(sv);
5823 } while(0) /*@SWIG@*/;
5824 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5825 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLX", TRUE | 0x2 | GV_ADDMULTI);
5826 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLX)));
5827 SvREADONLY_on(sv);
5828 } while(0) /*@SWIG@*/;
5829 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5830 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLG", TRUE | 0x2 | GV_ADDMULTI);
5831 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLG)));
5832 SvREADONLY_on(sv);
5833 } while(0) /*@SWIG@*/;
5834 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
5835 SV *sv = get_sv((char*) SWIG_prefix "GSL_EOF", TRUE | 0x2 | GV_ADDMULTI);
5836 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EOF)));
5837 SvREADONLY_on(sv);
5838 } while(0) /*@SWIG@*/;
5839 SWIG_TypeClientData(SWIGTYPE_p_gsl_rng_type, (void*) "Math::GSL::RNG::gsl_rng_type");
5840 SWIG_TypeClientData(SWIGTYPE_p_gsl_rng, (void*) "Math::GSL::RNG::gsl_rng");
5841 ST(0) = &PL_sv_yes;
5842 XSRETURN(1);
5843 }
5844
5845