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_double swig_types[2]
1522 #define SWIGTYPE_p_f_double_a___double_p_void__int swig_types[3]
1523 #define SWIGTYPE_p_f_double_p_void__double swig_types[4]
1524 #define SWIGTYPE_p_f_double_p_void_p_double_p_double__void swig_types[5]
1525 #define SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void swig_types[6]
1526 #define SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void swig_types[7]
1527 #define SWIGTYPE_p_f_p_q_const__struct_gsl_function_struct_double_double_p_double_p_double_p_double_p_double__void swig_types[8]
1528 #define SWIGTYPE_p_f_q_const__size_t_p_double_p_double_p_gsl_integration_fixed_params__int swig_types[9]
1529 #define SWIGTYPE_p_f_q_const__size_t_p_q_const__gsl_integration_fixed_params__int swig_types[10]
1530 #define SWIGTYPE_p_gsl_function_fdf_struct swig_types[11]
1531 #define SWIGTYPE_p_gsl_function_struct swig_types[12]
1532 #define SWIGTYPE_p_gsl_function_vec_struct swig_types[13]
1533 #define SWIGTYPE_p_gsl_integration_cquad_ival swig_types[14]
1534 #define SWIGTYPE_p_gsl_integration_cquad_workspace swig_types[15]
1535 #define SWIGTYPE_p_gsl_integration_fixed_params swig_types[16]
1536 #define SWIGTYPE_p_gsl_integration_fixed_type swig_types[17]
1537 #define SWIGTYPE_p_gsl_integration_fixed_workspace swig_types[18]
1538 #define SWIGTYPE_p_gsl_integration_glfixed_table swig_types[19]
1539 #define SWIGTYPE_p_gsl_integration_qawo_table swig_types[20]
1540 #define SWIGTYPE_p_gsl_integration_qaws_table swig_types[21]
1541 #define SWIGTYPE_p_gsl_integration_romberg_workspace swig_types[22]
1542 #define SWIGTYPE_p_gsl_integration_workspace swig_types[23]
1543 #define SWIGTYPE_p_size_t swig_types[24]
1544 #define SWIGTYPE_p_void swig_types[25]
1545 static swig_type_info *swig_types[27];
1546 static swig_module_info swig_module = {swig_types, 26, 0, 0, 0, 0};
1547 #define SWIG_TypeQuery(name) SWIG_TypeQueryModule(&swig_module, &swig_module, name)
1548 #define SWIG_MangledTypeQuery(name) SWIG_MangledTypeQueryModule(&swig_module, &swig_module, name)
1549
1550 /* -------- TYPES TABLE (END) -------- */
1551
1552 #define SWIG_init boot_Math__GSL__Integration
1553
1554 #define SWIG_name "Math::GSL::Integrationc::boot_Math__GSL__Integration"
1555 #define SWIG_prefix "Math::GSL::Integrationc::"
1556
1557 #define SWIGVERSION 0x040001
1558 #define SWIG_VERSION SWIGVERSION
1559
1560
1561 #define SWIG_as_voidptr(a) (void *)((const void *)(a))
1562 #define SWIG_as_voidptrptr(a) ((void)SWIG_as_voidptr(*a),(void**)(a))
1563
1564
1565 #ifdef __cplusplus
1566 extern "C"
1567 #endif
1568 #ifndef PERL_OBJECT
1569 #ifndef MULTIPLICITY
1570 SWIGEXPORT void SWIG_init (CV* cv);
1571 #else
1572 SWIGEXPORT void SWIG_init (pTHXo_ CV* cv);
1573 #endif
1574 #else
1575 SWIGEXPORT void SWIG_init (CV *cv, CPerlObj *);
1576 #endif
1577
1578
1579 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(double value)1580 SWIG_From_double SWIG_PERL_DECL_ARGS_1(double value)
1581 {
1582 return sv_2mortal(newSVnv(value));
1583 }
1584
1585
1586 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(long value)1587 SWIG_From_long SWIG_PERL_DECL_ARGS_1(long value)
1588 {
1589 SV *sv;
1590 if (IVSIZE >= sizeof(value) || (value >= IV_MIN && value <= IV_MAX))
1591 sv = newSViv(value);
1592 else
1593 sv = newSVpvf("%ld", value);
1594 return sv_2mortal(sv);
1595 }
1596
1597
1598 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(int value)1599 SWIG_From_int SWIG_PERL_DECL_ARGS_1(int value)
1600 {
1601 return SWIG_From_long SWIG_PERL_CALL_ARGS_1(value);
1602 }
1603
1604
1605 SWIGINTERN swig_type_info*
SWIG_pchar_descriptor(void)1606 SWIG_pchar_descriptor(void)
1607 {
1608 static int init = 0;
1609 static swig_type_info* info = 0;
1610 if (!init) {
1611 info = SWIG_TypeQuery("_p_char");
1612 init = 1;
1613 }
1614 return info;
1615 }
1616
1617
1618 SWIGINTERN int
SWIG_AsCharPtrAndSize(SV * obj,char ** cptr,size_t * psize,int * alloc)1619 SWIG_AsCharPtrAndSize(SV *obj, char** cptr, size_t* psize, int *alloc)
1620 {
1621 if (SvMAGICAL(obj)) {
1622 SV *tmp = sv_newmortal();
1623 SvSetSV(tmp, obj);
1624 obj = tmp;
1625 }
1626 if (SvPOK(obj)) {
1627 STRLEN len = 0;
1628 char *cstr = SvPV(obj, len);
1629 size_t size = len + 1;
1630 if (cptr) {
1631 if (alloc) {
1632 if (*alloc == SWIG_NEWOBJ) {
1633 *cptr = (char *)memcpy(malloc((size)*sizeof(char)), cstr, sizeof(char)*(size));
1634 } else {
1635 *cptr = cstr;
1636 *alloc = SWIG_OLDOBJ;
1637 }
1638 }
1639 }
1640 if (psize) *psize = size;
1641 return SWIG_OK;
1642 } else {
1643 swig_type_info* pchar_descriptor = SWIG_pchar_descriptor();
1644 if (pchar_descriptor) {
1645 char* vptr = 0;
1646 if (SWIG_ConvertPtr(obj, (void**)&vptr, pchar_descriptor, 0) == SWIG_OK) {
1647 if (cptr) *cptr = vptr;
1648 if (psize) *psize = vptr ? (strlen(vptr) + 1) : 0;
1649 if (alloc) *alloc = SWIG_OLDOBJ;
1650 return SWIG_OK;
1651 }
1652 }
1653 }
1654 return SWIG_TypeError;
1655 }
1656
1657
1658
1659
1660
1661 #include <limits.h>
1662 #if !defined(SWIG_NO_LLONG_MAX)
1663 # if !defined(LLONG_MAX) && defined(__GNUC__) && defined (__LONG_LONG_MAX__)
1664 # define LLONG_MAX __LONG_LONG_MAX__
1665 # define LLONG_MIN (-LLONG_MAX - 1LL)
1666 # define ULLONG_MAX (LLONG_MAX * 2ULL + 1ULL)
1667 # endif
1668 #endif
1669
1670
1671 #include <stdlib.h>
1672 #ifdef _MSC_VER
1673 # ifndef strtoull
1674 # define strtoull _strtoui64
1675 # endif
1676 # ifndef strtoll
1677 # define strtoll _strtoi64
1678 # endif
1679 #endif
1680
1681
1682 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,double * val)1683 SWIG_AsVal_double SWIG_PERL_DECL_ARGS_2(SV *obj, double *val)
1684 {
1685 if (SvNIOK(obj)) {
1686 if (val) *val = SvNV(obj);
1687 return SWIG_OK;
1688 } else if (SvIOK(obj)) {
1689 if (val) *val = (double) SvIV(obj);
1690 return SWIG_AddCast(SWIG_OK);
1691 } else {
1692 const char *nptr = SvPV_nolen(obj);
1693 if (nptr) {
1694 char *endptr;
1695 double v;
1696 errno = 0;
1697 v = strtod(nptr, &endptr);
1698 if (errno == ERANGE) {
1699 errno = 0;
1700 return SWIG_OverflowError;
1701 } else {
1702 if (*endptr == '\0') {
1703 if (val) *val = v;
1704 return SWIG_Str2NumCast(SWIG_OK);
1705 }
1706 }
1707 }
1708 }
1709 return SWIG_TypeError;
1710 }
1711
1712
1713 #include <float.h>
1714
1715
1716 #include <math.h>
1717
1718
1719 SWIGINTERNINLINE int
SWIG_CanCastAsInteger(double * d,double min,double max)1720 SWIG_CanCastAsInteger(double *d, double min, double max) {
1721 double x = *d;
1722 if ((min <= x && x <= max)) {
1723 double fx = floor(x);
1724 double cx = ceil(x);
1725 double rd = ((x - fx) < 0.5) ? fx : cx; /* simple rint */
1726 if ((errno == EDOM) || (errno == ERANGE)) {
1727 errno = 0;
1728 } else {
1729 double summ, reps, diff;
1730 if (rd < x) {
1731 diff = x - rd;
1732 } else if (rd > x) {
1733 diff = rd - x;
1734 } else {
1735 return 1;
1736 }
1737 summ = rd + x;
1738 reps = diff/summ;
1739 if (reps < 8*DBL_EPSILON) {
1740 *d = rd;
1741 return 1;
1742 }
1743 }
1744 }
1745 return 0;
1746 }
1747
1748
1749 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,long * val)1750 SWIG_AsVal_long SWIG_PERL_DECL_ARGS_2(SV *obj, long* val)
1751 {
1752 if (SvUOK(obj)) {
1753 UV v = SvUV(obj);
1754 if (UVSIZE < sizeof(*val) || v <= LONG_MAX) {
1755 if (val) *val = v;
1756 return SWIG_OK;
1757 }
1758 return SWIG_OverflowError;
1759 } else if (SvIOK(obj)) {
1760 IV v = SvIV(obj);
1761 if (IVSIZE <= sizeof(*val) || (v >= LONG_MIN && v <= LONG_MAX)) {
1762 if(val) *val = v;
1763 return SWIG_OK;
1764 }
1765 return SWIG_OverflowError;
1766 } else {
1767 int dispatch = 0;
1768 const char *nptr = SvPV_nolen(obj);
1769 if (nptr) {
1770 char *endptr;
1771 long v;
1772 errno = 0;
1773 v = strtol(nptr, &endptr,0);
1774 if (errno == ERANGE) {
1775 errno = 0;
1776 return SWIG_OverflowError;
1777 } else {
1778 if (*endptr == '\0') {
1779 if (val) *val = v;
1780 return SWIG_Str2NumCast(SWIG_OK);
1781 }
1782 }
1783 }
1784 if (!dispatch) {
1785 double d;
1786 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
1787 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, LONG_MIN, LONG_MAX)) {
1788 if (val) *val = (long)(d);
1789 return res;
1790 }
1791 }
1792 }
1793 return SWIG_TypeError;
1794 }
1795
1796
1797 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,int * val)1798 SWIG_AsVal_int SWIG_PERL_DECL_ARGS_2(SV * obj, int *val)
1799 {
1800 long v;
1801 int res = SWIG_AsVal_long SWIG_PERL_CALL_ARGS_2(obj, &v);
1802 if (SWIG_IsOK(res)) {
1803 if ((v < INT_MIN || v > INT_MAX)) {
1804 return SWIG_OverflowError;
1805 } else {
1806 if (val) *val = (int)(v);
1807 }
1808 }
1809 return res;
1810 }
1811
1812
1813 SWIGINTERNINLINE SV *
SWIG_FromCharPtrAndSize(const char * carray,size_t size)1814 SWIG_FromCharPtrAndSize(const char* carray, size_t size)
1815 {
1816 SV *obj = sv_newmortal();
1817 if (carray) {
1818 sv_setpvn(obj, carray, size);
1819 } else {
1820 sv_setsv(obj, &PL_sv_undef);
1821 }
1822 return obj;
1823 }
1824
1825
1826 SWIGINTERNINLINE SV *
SWIG_FromCharPtr(const char * cptr)1827 SWIG_FromCharPtr(const char *cptr)
1828 {
1829 return SWIG_FromCharPtrAndSize(cptr, (cptr ? strlen(cptr) : 0));
1830 }
1831
1832
1833 #include "gsl/gsl_nan.h"
1834 #include "gsl/gsl_errno.h"
1835 #include "gsl/gsl_math.h"
1836 #include "gsl/gsl_monte.h"
1837
1838
1839 struct perl_array {
1840 I32 len;
1841 AV *array;
1842 };
1843
1844
1845
1846 enum awType { awDouble, awFloat, awInt, awUnsigned };
1847
1848 typedef struct {
1849 I32 size;
1850 enum awType type;
1851 void * data;
1852 } array_wrapper;
1853
array_wrapper_alloc(int numelem,enum awType type)1854 array_wrapper * array_wrapper_alloc(int numelem, enum awType type){
1855 array_wrapper * rv = malloc(sizeof(array_wrapper));
1856
1857 if (rv == NULL)
1858 croak("array_wrapper_alloc: can't malloc wrapper\n");
1859
1860 switch (type){
1861 case awDouble:
1862 rv->data = malloc(sizeof(double) * numelem);
1863 break;
1864 case awFloat:
1865 rv->data = malloc(sizeof(float) * numelem);
1866 break;
1867 case awInt:
1868 rv->data = malloc(sizeof(int) * numelem);
1869 break;
1870 case awUnsigned:
1871 rv->data = malloc(sizeof(unsigned int) * numelem);
1872 break;
1873 default:
1874 croak("array_wrapper_alloc: type should be awDouble, awFloat, awInt, or awUnsigned");
1875 }
1876
1877 if (rv->data == NULL)
1878 croak("array_wrapper_alloc: can't malloc data");
1879
1880 rv->size = numelem;
1881 rv->type = type;
1882 return rv;
1883 }
1884
array_wrapper_free(array_wrapper * daw)1885 void array_wrapper_free(array_wrapper * daw){
1886 free(daw->data);
1887 free(daw);
1888 }
1889
1890
1891 /* structure to hold required information while the gsl function call
1892 for each callback
1893 */
1894 struct gsl_function_perl {
1895 gsl_function C_gsl_function;
1896 SV * function;
1897 SV * params;
1898 };
1899
1900 struct gsl_function_fdf_perl {
1901 gsl_function_fdf C_gsl_function_fdf;
1902 SV * f;
1903 SV * df;
1904 SV * fdf;
1905 SV * params;
1906 };
1907
1908 struct gsl_monte_function_perl {
1909 gsl_monte_function C_gsl_monte_function;
1910 SV * f;
1911 SV * dim;
1912 SV * params;
1913 };
1914
gsl_function_perl_free(struct gsl_function_perl * perl_f)1915 void gsl_function_perl_free(struct gsl_function_perl * perl_f){
1916 if (perl_f != NULL) {
1917 SvREFCNT_dec(perl_f->function);
1918 SvREFCNT_dec(perl_f->params);
1919 Safefree(perl_f);
1920 }
1921 }
1922
gsl_function_fdf_perl_free(struct gsl_function_fdf_perl * perl_fdf)1923 void gsl_function_fdf_perl_free(struct gsl_function_fdf_perl * perl_fdf){
1924 if (perl_fdf != NULL) {
1925 SvREFCNT_dec(perl_fdf->f);
1926 SvREFCNT_dec(perl_fdf->df);
1927 SvREFCNT_dec(perl_fdf->fdf);
1928 SvREFCNT_dec(perl_fdf->params);
1929 Safefree(perl_fdf);
1930 }
1931 }
1932
1933 /* These functions (C callbacks) calls the perl callbacks.
1934 Info for perl callback can be found using the 'void*params' parameter
1935 */
call_gsl_function_x_params(SV * function,double x,SV * params)1936 double call_gsl_function_x_params(SV* function, double x, SV *params){
1937 unsigned int count;
1938 double y;
1939 dSP;
1940
1941 //fprintf(stderr, "LOOKUP CALLBACK\n");
1942 ENTER;
1943 SAVETMPS;
1944
1945 PUSHMARK(SP);
1946 XPUSHs(sv_2mortal(newSVnv((double)x)));
1947 XPUSHs(params);
1948 PUTBACK; /* make local stack pointer global */
1949
1950 count = call_sv(function, G_SCALAR);
1951 SPAGAIN;
1952
1953 if (count != 1)
1954 croak("Expected to call subroutine in scalar context!");
1955
1956 y = POPn;
1957
1958 PUTBACK; /* make local stack pointer global */
1959 FREETMPS;
1960 LEAVE;
1961
1962 return y;
1963 }
1964
call_gsl_function(double x,void * params)1965 double call_gsl_function(double x , void *params){
1966 struct gsl_function_perl *F=(struct gsl_function_perl*)params;
1967 return call_gsl_function_x_params( F->function, x, F->params );
1968 }
1969
call_gsl_function_fdf_f(double x,void * params)1970 double call_gsl_function_fdf_f(double x , void *params){
1971 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1972 return call_gsl_function_x_params( F->f, x, F->params );
1973 }
1974
call_gsl_function_fdf_df(double x,void * params)1975 double call_gsl_function_fdf_df(double x , void *params){
1976 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1977 return call_gsl_function_x_params( F->df, x, F->params );
1978 }
1979
call_gsl_function_fdf_fdf(double x,void * params,double * f,double * df)1980 void call_gsl_function_fdf_fdf(double x , void *params, double *f, double *df ){
1981 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1982
1983 dSP;
1984
1985 ENTER;
1986 SAVETMPS;
1987
1988 PUSHMARK(SP);
1989 EXTEND(SP, 2);
1990 PUSHs(sv_2mortal(newSVnv((double)x)));
1991 PUSHs(F->params);
1992 PUTBACK; /* make local stack pointer global */
1993
1994 {
1995 unsigned int count = call_sv(F->fdf, G_ARRAY);
1996 SPAGAIN;
1997
1998 if (count != 2)
1999 croak( "Expected two return values, got %d", count );
2000 }
2001
2002 *df = POPn;
2003 *f = POPn;
2004
2005 PUTBACK; /* make local stack pointer global */
2006 FREETMPS;
2007 LEAVE;
2008 }
2009
call_gsl_monte_function(double * x_array,size_t dim,void * params)2010 double call_gsl_monte_function(double *x_array , size_t dim, void *params){
2011 struct gsl_monte_function_perl *F=(struct gsl_monte_function_perl*)params;
2012 unsigned int count;
2013 unsigned int i;
2014 AV* perl_array;
2015 double y;
2016 dSP;
2017
2018 //fprintf(stderr, "LOOKUP CALLBACK\n");
2019 ENTER;
2020 SAVETMPS;
2021
2022 PUSHMARK(SP);
2023 perl_array=newAV();
2024 sv_2mortal((SV*)perl_array);
2025 XPUSHs(sv_2mortal(newRV((SV *)perl_array)));
2026 for(i=0; i<dim; i++) {
2027 /* no mortal : it is referenced by the array */
2028 av_push(perl_array, newSVnv(x_array[i]));
2029 }
2030 XPUSHs(sv_2mortal(newSViv(dim)));
2031 XPUSHs(F->params);
2032 PUTBACK; /* make local stack pointer global */
2033
2034 count = call_sv(F->f, G_SCALAR);
2035 SPAGAIN;
2036
2037 if (count != 1)
2038 croak("Expected to call subroutine in scalar context!");
2039
2040 y = POPn;
2041
2042 PUTBACK; /* make local stack pointer global */
2043 FREETMPS;
2044 LEAVE;
2045
2046 return y;
2047 }
2048
2049
gsl_function_fdf_extract(char * param_name,HV * hash,SV * func[])2050 void gsl_function_fdf_extract( char* param_name, HV* hash, SV* func[] ) {
2051 static const char *keys[3] = { "f", "df", "fdf" };
2052
2053 int ikey;
2054
2055 for ( ikey = 0 ; ikey < 3 ; ++ikey ) {
2056 func[ikey] = 0;
2057 const char* key = keys[ikey];
2058 /* it just so happens that strlen(keys[ikey]) == ikey + 1 */
2059 SV** pp_sv = hv_fetch( hash, key, ikey+1, 0 );
2060 SV* function;
2061
2062 if ( !pp_sv )
2063 croak("Math::GSL : %s: missing key %s!", param_name, key);
2064
2065 function = *pp_sv;
2066
2067 if ( SvPOK(function) || ( SvROK( function ) && SvTYPE(SvRV(function)) == SVt_PVCV ) ) {
2068 /* hold on to SV after the enclosing hash goes away */
2069 SvREFCNT_inc( function );
2070 func[ikey] = function;
2071 }
2072 else {
2073 croak( "Math::GSL : %s: key %s is not a reference to code!", param_name, key);
2074 }
2075 }
2076 }
2077
2078
2079
2080 #ifndef GSL_VAR
2081 #include "gsl/gsl_types.h"
2082 #endif
2083
2084 #include "gsl/gsl_integration.h"
2085 #include "gsl/gsl_math.h"
2086
2087
2088 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,unsigned long * val)2089 SWIG_AsVal_unsigned_SS_long SWIG_PERL_DECL_ARGS_2(SV *obj, unsigned long *val)
2090 {
2091 if (SvUOK(obj)) {
2092 UV v = SvUV(obj);
2093 if (UVSIZE <= sizeof(*val) || v <= ULONG_MAX) {
2094 if (val) *val = v;
2095 return SWIG_OK;
2096 }
2097 return SWIG_OverflowError;
2098 } else if (SvIOK(obj)) {
2099 IV v = SvIV(obj);
2100 if (v >= 0 && (IVSIZE <= sizeof(*val) || v <= ULONG_MAX)) {
2101 if (val) *val = v;
2102 return SWIG_OK;
2103 }
2104 return SWIG_OverflowError;
2105 } else {
2106 int dispatch = 0;
2107 const char *nptr = SvPV_nolen(obj);
2108 if (nptr) {
2109 char *endptr;
2110 unsigned long v;
2111 errno = 0;
2112 v = strtoul(nptr, &endptr,0);
2113 if (errno == ERANGE) {
2114 errno = 0;
2115 return SWIG_OverflowError;
2116 } else {
2117 if (*endptr == '\0') {
2118 if (val) *val = v;
2119 return SWIG_Str2NumCast(SWIG_OK);
2120 }
2121 }
2122 }
2123 if (!dispatch) {
2124 double d;
2125 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
2126 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, 0, ULONG_MAX)) {
2127 if (val) *val = (unsigned long)(d);
2128 return res;
2129 }
2130 }
2131 }
2132 return SWIG_TypeError;
2133 }
2134
2135
2136 #if defined(LLONG_MAX) && !defined(SWIG_LONG_LONG_AVAILABLE)
2137 # define SWIG_LONG_LONG_AVAILABLE
2138 #endif
2139
2140
2141 #ifdef SWIG_LONG_LONG_AVAILABLE
2142 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,unsigned long long * val)2143 SWIG_AsVal_unsigned_SS_long_SS_long SWIG_PERL_DECL_ARGS_2(SV *obj, unsigned long long *val)
2144 {
2145 if (SvUOK(obj)) {
2146 /* pretty sure this should be conditional on
2147 * (UVSIZE <= sizeof(*val) || v <= ULLONG_MAX) */
2148 if (val) *val = SvUV(obj);
2149 return SWIG_OK;
2150 } else if (SvIOK(obj)) {
2151 IV v = SvIV(obj);
2152 if (v >= 0 && (IVSIZE <= sizeof(*val) || v <= ULLONG_MAX)) {
2153 if (val) *val = v;
2154 return SWIG_OK;
2155 } else {
2156 return SWIG_OverflowError;
2157 }
2158 } else {
2159 int dispatch = 0;
2160 const char *nptr = SvPV_nolen(obj);
2161 if (nptr) {
2162 char *endptr;
2163 unsigned long long v;
2164 errno = 0;
2165 v = strtoull(nptr, &endptr,0);
2166 if (errno == ERANGE) {
2167 errno = 0;
2168 return SWIG_OverflowError;
2169 } else {
2170 if (*endptr == '\0') {
2171 if (val) *val = v;
2172 return SWIG_Str2NumCast(SWIG_OK);
2173 }
2174 }
2175 }
2176 if (!dispatch) {
2177 const double mant_max = 1LL << DBL_MANT_DIG;
2178 double d;
2179 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
2180 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, 0, mant_max)) {
2181 if (val) *val = (unsigned long long)(d);
2182 return res;
2183 }
2184 }
2185 }
2186 return SWIG_TypeError;
2187 }
2188 #endif
2189
2190
2191 SWIGINTERNINLINE int
SWIG_PERL_DECL_ARGS_2(SV * obj,size_t * val)2192 SWIG_AsVal_size_t SWIG_PERL_DECL_ARGS_2(SV * obj, size_t *val)
2193 {
2194 int res = SWIG_TypeError;
2195 #ifdef SWIG_LONG_LONG_AVAILABLE
2196 if (sizeof(size_t) <= sizeof(unsigned long)) {
2197 #endif
2198 unsigned long v;
2199 res = SWIG_AsVal_unsigned_SS_long SWIG_PERL_CALL_ARGS_2(obj, val ? &v : 0);
2200 if (SWIG_IsOK(res) && val) *val = (size_t)(v);
2201 #ifdef SWIG_LONG_LONG_AVAILABLE
2202 } else if (sizeof(size_t) <= sizeof(unsigned long long)) {
2203 unsigned long long v;
2204 res = SWIG_AsVal_unsigned_SS_long_SS_long SWIG_PERL_CALL_ARGS_2(obj, val ? &v : 0);
2205 if (SWIG_IsOK(res) && val) *val = (size_t)(v);
2206 }
2207 #endif
2208 return res;
2209 }
2210
2211
2212 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(unsigned long value)2213 SWIG_From_unsigned_SS_long SWIG_PERL_DECL_ARGS_1(unsigned long value)
2214 {
2215 SV *sv;
2216 if (UVSIZE >= sizeof(value) || value <= UV_MAX)
2217 sv = newSVuv(value);
2218 else
2219 sv = newSVpvf("%lu", value);
2220 return sv_2mortal(sv);
2221 }
2222
2223
2224 #include <stdio.h>
2225 #if (defined(_MSC_VER) && (_MSC_VER < 1900)) || defined(__BORLANDC__) || defined(_WATCOM)
2226 # ifndef snprintf
2227 # define snprintf _snprintf
2228 # endif
2229 #endif
2230
2231
2232 #ifdef SWIG_LONG_LONG_AVAILABLE
2233 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(unsigned long long value)2234 SWIG_From_unsigned_SS_long_SS_long SWIG_PERL_DECL_ARGS_1(unsigned long long value)
2235 {
2236 SV *sv;
2237 if (UVSIZE >= sizeof(value) || value <= UV_MAX)
2238 sv = newSVuv((UV)(value));
2239 else {
2240 //sv = newSVpvf("%llu", value); doesn't work in non 64bit Perl
2241 char temp[256];
2242 sprintf(temp, "%llu", value);
2243 sv = newSVpv(temp, 0);
2244 }
2245 return sv_2mortal(sv);
2246 }
2247 #endif
2248
2249
2250 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(size_t value)2251 SWIG_From_size_t SWIG_PERL_DECL_ARGS_1(size_t value)
2252 {
2253 #ifdef SWIG_LONG_LONG_AVAILABLE
2254 if (sizeof(size_t) <= sizeof(unsigned long)) {
2255 #endif
2256 return SWIG_From_unsigned_SS_long SWIG_PERL_CALL_ARGS_1((unsigned long)(value));
2257 #ifdef SWIG_LONG_LONG_AVAILABLE
2258 } else {
2259 /* assume sizeof(size_t) <= sizeof(unsigned long long) */
2260 return SWIG_From_unsigned_SS_long_SS_long SWIG_PERL_CALL_ARGS_1((unsigned long long)(value));
2261 }
2262 #endif
2263 }
2264
2265 #ifdef __cplusplus
2266 extern "C" {
2267 #endif
2268
2269 #ifdef PERL_OBJECT
2270 #define MAGIC_CLASS _wrap_Math__GSL__Integration_var::
2271 class _wrap_Math__GSL__Integration_var : public CPerlObj {
2272 public:
2273 #else
2274 #define MAGIC_CLASS
2275 #endif
swig_magic_readonly(pTHX_ SV * SWIGUNUSEDPARM (sv),MAGIC * SWIGUNUSEDPARM (mg))2276 SWIGCLASS_STATIC int swig_magic_readonly(pTHX_ SV *SWIGUNUSEDPARM(sv), MAGIC *SWIGUNUSEDPARM(mg)) {
2277 MAGIC_PPERL
2278 croak("Value is read-only.");
2279 return 0;
2280 }
_wrap_gsl_integration_fixed_legendre_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2281 SWIGCLASS_STATIC int _wrap_gsl_integration_fixed_legendre_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2282 MAGIC_PPERL
2283 {
2284 void *argp = 0;
2285 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_integration_fixed_type, 0 );
2286 if (!SWIG_IsOK(res)) {
2287 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_integration_fixed_legendre""' of type '""gsl_integration_fixed_type const *""'");
2288 }
2289 gsl_integration_fixed_legendre = (gsl_integration_fixed_type *)(argp);
2290 }
2291 fail:
2292 return 1;
2293 }
2294
2295
_wrap_gsl_integration_fixed_legendre_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2296 SWIGCLASS_STATIC int _wrap_gsl_integration_fixed_legendre_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2297 MAGIC_PPERL
2298 sv_setiv(SvRV(sv),PTR2IV(gsl_integration_fixed_legendre));
2299 return 1;
2300 }
2301
2302
_wrap_gsl_integration_fixed_chebyshev_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2303 SWIGCLASS_STATIC int _wrap_gsl_integration_fixed_chebyshev_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2304 MAGIC_PPERL
2305 {
2306 void *argp = 0;
2307 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_integration_fixed_type, 0 );
2308 if (!SWIG_IsOK(res)) {
2309 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_integration_fixed_chebyshev""' of type '""gsl_integration_fixed_type const *""'");
2310 }
2311 gsl_integration_fixed_chebyshev = (gsl_integration_fixed_type *)(argp);
2312 }
2313 fail:
2314 return 1;
2315 }
2316
2317
_wrap_gsl_integration_fixed_chebyshev_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2318 SWIGCLASS_STATIC int _wrap_gsl_integration_fixed_chebyshev_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2319 MAGIC_PPERL
2320 sv_setiv(SvRV(sv),PTR2IV(gsl_integration_fixed_chebyshev));
2321 return 1;
2322 }
2323
2324
_wrap_gsl_integration_fixed_gegenbauer_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2325 SWIGCLASS_STATIC int _wrap_gsl_integration_fixed_gegenbauer_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2326 MAGIC_PPERL
2327 {
2328 void *argp = 0;
2329 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_integration_fixed_type, 0 );
2330 if (!SWIG_IsOK(res)) {
2331 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_integration_fixed_gegenbauer""' of type '""gsl_integration_fixed_type const *""'");
2332 }
2333 gsl_integration_fixed_gegenbauer = (gsl_integration_fixed_type *)(argp);
2334 }
2335 fail:
2336 return 1;
2337 }
2338
2339
_wrap_gsl_integration_fixed_gegenbauer_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2340 SWIGCLASS_STATIC int _wrap_gsl_integration_fixed_gegenbauer_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2341 MAGIC_PPERL
2342 sv_setiv(SvRV(sv),PTR2IV(gsl_integration_fixed_gegenbauer));
2343 return 1;
2344 }
2345
2346
_wrap_gsl_integration_fixed_jacobi_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2347 SWIGCLASS_STATIC int _wrap_gsl_integration_fixed_jacobi_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2348 MAGIC_PPERL
2349 {
2350 void *argp = 0;
2351 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_integration_fixed_type, 0 );
2352 if (!SWIG_IsOK(res)) {
2353 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_integration_fixed_jacobi""' of type '""gsl_integration_fixed_type const *""'");
2354 }
2355 gsl_integration_fixed_jacobi = (gsl_integration_fixed_type *)(argp);
2356 }
2357 fail:
2358 return 1;
2359 }
2360
2361
_wrap_gsl_integration_fixed_jacobi_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2362 SWIGCLASS_STATIC int _wrap_gsl_integration_fixed_jacobi_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2363 MAGIC_PPERL
2364 sv_setiv(SvRV(sv),PTR2IV(gsl_integration_fixed_jacobi));
2365 return 1;
2366 }
2367
2368
_wrap_gsl_integration_fixed_laguerre_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2369 SWIGCLASS_STATIC int _wrap_gsl_integration_fixed_laguerre_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2370 MAGIC_PPERL
2371 {
2372 void *argp = 0;
2373 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_integration_fixed_type, 0 );
2374 if (!SWIG_IsOK(res)) {
2375 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_integration_fixed_laguerre""' of type '""gsl_integration_fixed_type const *""'");
2376 }
2377 gsl_integration_fixed_laguerre = (gsl_integration_fixed_type *)(argp);
2378 }
2379 fail:
2380 return 1;
2381 }
2382
2383
_wrap_gsl_integration_fixed_laguerre_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2384 SWIGCLASS_STATIC int _wrap_gsl_integration_fixed_laguerre_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2385 MAGIC_PPERL
2386 sv_setiv(SvRV(sv),PTR2IV(gsl_integration_fixed_laguerre));
2387 return 1;
2388 }
2389
2390
_wrap_gsl_integration_fixed_hermite_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2391 SWIGCLASS_STATIC int _wrap_gsl_integration_fixed_hermite_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2392 MAGIC_PPERL
2393 {
2394 void *argp = 0;
2395 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_integration_fixed_type, 0 );
2396 if (!SWIG_IsOK(res)) {
2397 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_integration_fixed_hermite""' of type '""gsl_integration_fixed_type const *""'");
2398 }
2399 gsl_integration_fixed_hermite = (gsl_integration_fixed_type *)(argp);
2400 }
2401 fail:
2402 return 1;
2403 }
2404
2405
_wrap_gsl_integration_fixed_hermite_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2406 SWIGCLASS_STATIC int _wrap_gsl_integration_fixed_hermite_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2407 MAGIC_PPERL
2408 sv_setiv(SvRV(sv),PTR2IV(gsl_integration_fixed_hermite));
2409 return 1;
2410 }
2411
2412
_wrap_gsl_integration_fixed_exponential_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2413 SWIGCLASS_STATIC int _wrap_gsl_integration_fixed_exponential_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2414 MAGIC_PPERL
2415 {
2416 void *argp = 0;
2417 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_integration_fixed_type, 0 );
2418 if (!SWIG_IsOK(res)) {
2419 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_integration_fixed_exponential""' of type '""gsl_integration_fixed_type const *""'");
2420 }
2421 gsl_integration_fixed_exponential = (gsl_integration_fixed_type *)(argp);
2422 }
2423 fail:
2424 return 1;
2425 }
2426
2427
_wrap_gsl_integration_fixed_exponential_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2428 SWIGCLASS_STATIC int _wrap_gsl_integration_fixed_exponential_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2429 MAGIC_PPERL
2430 sv_setiv(SvRV(sv),PTR2IV(gsl_integration_fixed_exponential));
2431 return 1;
2432 }
2433
2434
_wrap_gsl_integration_fixed_rational_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2435 SWIGCLASS_STATIC int _wrap_gsl_integration_fixed_rational_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2436 MAGIC_PPERL
2437 {
2438 void *argp = 0;
2439 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_integration_fixed_type, 0 );
2440 if (!SWIG_IsOK(res)) {
2441 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_integration_fixed_rational""' of type '""gsl_integration_fixed_type const *""'");
2442 }
2443 gsl_integration_fixed_rational = (gsl_integration_fixed_type *)(argp);
2444 }
2445 fail:
2446 return 1;
2447 }
2448
2449
_wrap_gsl_integration_fixed_rational_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2450 SWIGCLASS_STATIC int _wrap_gsl_integration_fixed_rational_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2451 MAGIC_PPERL
2452 sv_setiv(SvRV(sv),PTR2IV(gsl_integration_fixed_rational));
2453 return 1;
2454 }
2455
2456
_wrap_gsl_integration_fixed_chebyshev2_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2457 SWIGCLASS_STATIC int _wrap_gsl_integration_fixed_chebyshev2_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2458 MAGIC_PPERL
2459 {
2460 void *argp = 0;
2461 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_integration_fixed_type, 0 );
2462 if (!SWIG_IsOK(res)) {
2463 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_integration_fixed_chebyshev2""' of type '""gsl_integration_fixed_type const *""'");
2464 }
2465 gsl_integration_fixed_chebyshev2 = (gsl_integration_fixed_type *)(argp);
2466 }
2467 fail:
2468 return 1;
2469 }
2470
2471
_wrap_gsl_integration_fixed_chebyshev2_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2472 SWIGCLASS_STATIC int _wrap_gsl_integration_fixed_chebyshev2_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2473 MAGIC_PPERL
2474 sv_setiv(SvRV(sv),PTR2IV(gsl_integration_fixed_chebyshev2));
2475 return 1;
2476 }
2477
2478
2479
2480
2481 #ifdef PERL_OBJECT
2482 };
2483 #endif
2484
2485 #ifdef __cplusplus
2486 }
2487 #endif
2488
2489 #ifdef __cplusplus
2490 extern "C" {
2491 #endif
XS(_wrap_gsl_error)2492 XS(_wrap_gsl_error) {
2493 {
2494 char *arg1 = (char *) 0 ;
2495 char *arg2 = (char *) 0 ;
2496 int arg3 ;
2497 int arg4 ;
2498 int res1 ;
2499 char *buf1 = 0 ;
2500 int alloc1 = 0 ;
2501 int res2 ;
2502 char *buf2 = 0 ;
2503 int alloc2 = 0 ;
2504 int val3 ;
2505 int ecode3 = 0 ;
2506 int val4 ;
2507 int ecode4 = 0 ;
2508 int argvi = 0;
2509 dXSARGS;
2510
2511 if ((items < 4) || (items > 4)) {
2512 SWIG_croak("Usage: gsl_error(reason,file,line,gsl_errno);");
2513 }
2514 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2515 if (!SWIG_IsOK(res1)) {
2516 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_error" "', argument " "1"" of type '" "char const *""'");
2517 }
2518 arg1 = (char *)(buf1);
2519 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
2520 if (!SWIG_IsOK(res2)) {
2521 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_error" "', argument " "2"" of type '" "char const *""'");
2522 }
2523 arg2 = (char *)(buf2);
2524 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
2525 if (!SWIG_IsOK(ecode3)) {
2526 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_error" "', argument " "3"" of type '" "int""'");
2527 }
2528 arg3 = (int)(val3);
2529 ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
2530 if (!SWIG_IsOK(ecode4)) {
2531 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_error" "', argument " "4"" of type '" "int""'");
2532 }
2533 arg4 = (int)(val4);
2534 gsl_error((char const *)arg1,(char const *)arg2,arg3,arg4);
2535 ST(argvi) = &PL_sv_undef;
2536 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2537 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2538
2539
2540 XSRETURN(argvi);
2541 fail:
2542 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2543 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2544
2545
2546 SWIG_croak_null();
2547 }
2548 }
2549
2550
XS(_wrap_gsl_stream_printf)2551 XS(_wrap_gsl_stream_printf) {
2552 {
2553 char *arg1 = (char *) 0 ;
2554 char *arg2 = (char *) 0 ;
2555 int arg3 ;
2556 char *arg4 = (char *) 0 ;
2557 int res1 ;
2558 char *buf1 = 0 ;
2559 int alloc1 = 0 ;
2560 int res2 ;
2561 char *buf2 = 0 ;
2562 int alloc2 = 0 ;
2563 int val3 ;
2564 int ecode3 = 0 ;
2565 int res4 ;
2566 char *buf4 = 0 ;
2567 int alloc4 = 0 ;
2568 int argvi = 0;
2569 dXSARGS;
2570
2571 if ((items < 4) || (items > 4)) {
2572 SWIG_croak("Usage: gsl_stream_printf(label,file,line,reason);");
2573 }
2574 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2575 if (!SWIG_IsOK(res1)) {
2576 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_stream_printf" "', argument " "1"" of type '" "char const *""'");
2577 }
2578 arg1 = (char *)(buf1);
2579 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
2580 if (!SWIG_IsOK(res2)) {
2581 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_stream_printf" "', argument " "2"" of type '" "char const *""'");
2582 }
2583 arg2 = (char *)(buf2);
2584 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
2585 if (!SWIG_IsOK(ecode3)) {
2586 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_stream_printf" "', argument " "3"" of type '" "int""'");
2587 }
2588 arg3 = (int)(val3);
2589 res4 = SWIG_AsCharPtrAndSize(ST(3), &buf4, NULL, &alloc4);
2590 if (!SWIG_IsOK(res4)) {
2591 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_stream_printf" "', argument " "4"" of type '" "char const *""'");
2592 }
2593 arg4 = (char *)(buf4);
2594 gsl_stream_printf((char const *)arg1,(char const *)arg2,arg3,(char const *)arg4);
2595 ST(argvi) = &PL_sv_undef;
2596 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2597 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2598
2599 if (alloc4 == SWIG_NEWOBJ) free((char*)buf4);
2600 XSRETURN(argvi);
2601 fail:
2602 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2603 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2604
2605 if (alloc4 == SWIG_NEWOBJ) free((char*)buf4);
2606 SWIG_croak_null();
2607 }
2608 }
2609
2610
XS(_wrap_gsl_strerror)2611 XS(_wrap_gsl_strerror) {
2612 {
2613 int arg1 ;
2614 int val1 ;
2615 int ecode1 = 0 ;
2616 int argvi = 0;
2617 char *result = 0 ;
2618 dXSARGS;
2619
2620 if ((items < 1) || (items > 1)) {
2621 SWIG_croak("Usage: gsl_strerror(gsl_errno);");
2622 }
2623 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2624 if (!SWIG_IsOK(ecode1)) {
2625 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_strerror" "', argument " "1"" of type '" "int""'");
2626 }
2627 arg1 = (int)(val1);
2628 result = (char *)gsl_strerror(arg1);
2629 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
2630
2631 XSRETURN(argvi);
2632 fail:
2633
2634 SWIG_croak_null();
2635 }
2636 }
2637
2638
XS(_wrap_gsl_set_error_handler)2639 XS(_wrap_gsl_set_error_handler) {
2640 {
2641 gsl_error_handler_t *arg1 = (gsl_error_handler_t *) 0 ;
2642 int argvi = 0;
2643 gsl_error_handler_t *result = 0 ;
2644 dXSARGS;
2645
2646 if ((items < 1) || (items > 1)) {
2647 SWIG_croak("Usage: gsl_set_error_handler(new_handler);");
2648 }
2649 {
2650 int res = SWIG_ConvertFunctionPtr(ST(0), (void**)(&arg1), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void);
2651 if (!SWIG_IsOK(res)) {
2652 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_set_error_handler" "', argument " "1"" of type '" "gsl_error_handler_t *""'");
2653 }
2654 }
2655 result = (gsl_error_handler_t *)gsl_set_error_handler(arg1);
2656 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void); argvi++ ;
2657
2658 XSRETURN(argvi);
2659 fail:
2660
2661 SWIG_croak_null();
2662 }
2663 }
2664
2665
XS(_wrap_gsl_set_error_handler_off)2666 XS(_wrap_gsl_set_error_handler_off) {
2667 {
2668 int argvi = 0;
2669 gsl_error_handler_t *result = 0 ;
2670 dXSARGS;
2671
2672 if ((items < 0) || (items > 0)) {
2673 SWIG_croak("Usage: gsl_set_error_handler_off();");
2674 }
2675 result = (gsl_error_handler_t *)gsl_set_error_handler_off();
2676 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void); argvi++ ;
2677 XSRETURN(argvi);
2678 fail:
2679 SWIG_croak_null();
2680 }
2681 }
2682
2683
XS(_wrap_gsl_set_stream_handler)2684 XS(_wrap_gsl_set_stream_handler) {
2685 {
2686 gsl_stream_handler_t *arg1 = (gsl_stream_handler_t *) 0 ;
2687 int argvi = 0;
2688 gsl_stream_handler_t *result = 0 ;
2689 dXSARGS;
2690
2691 if ((items < 1) || (items > 1)) {
2692 SWIG_croak("Usage: gsl_set_stream_handler(new_handler);");
2693 }
2694 {
2695 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);
2696 if (!SWIG_IsOK(res)) {
2697 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_set_stream_handler" "', argument " "1"" of type '" "gsl_stream_handler_t *""'");
2698 }
2699 }
2700 result = (gsl_stream_handler_t *)gsl_set_stream_handler(arg1);
2701 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void); argvi++ ;
2702
2703 XSRETURN(argvi);
2704 fail:
2705
2706 SWIG_croak_null();
2707 }
2708 }
2709
2710
XS(_wrap_gsl_set_stream)2711 XS(_wrap_gsl_set_stream) {
2712 {
2713 FILE *arg1 = (FILE *) 0 ;
2714 void *argp1 = 0 ;
2715 int res1 = 0 ;
2716 int argvi = 0;
2717 FILE *result = 0 ;
2718 dXSARGS;
2719
2720 if ((items < 1) || (items > 1)) {
2721 SWIG_croak("Usage: gsl_set_stream(new_stream);");
2722 }
2723 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
2724 if (!SWIG_IsOK(res1)) {
2725 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_set_stream" "', argument " "1"" of type '" "FILE *""'");
2726 }
2727 arg1 = (FILE *)(argp1);
2728 result = (FILE *)gsl_set_stream(arg1);
2729 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_FILE, 0 | 0); argvi++ ;
2730
2731 XSRETURN(argvi);
2732 fail:
2733
2734 SWIG_croak_null();
2735 }
2736 }
2737
2738
XS(_wrap_gsl_integration_workspace_limit_set)2739 XS(_wrap_gsl_integration_workspace_limit_set) {
2740 {
2741 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
2742 size_t arg2 ;
2743 void *argp1 = 0 ;
2744 int res1 = 0 ;
2745 size_t val2 ;
2746 int ecode2 = 0 ;
2747 int argvi = 0;
2748 dXSARGS;
2749
2750 if ((items < 2) || (items > 2)) {
2751 SWIG_croak("Usage: gsl_integration_workspace_limit_set(self,limit);");
2752 }
2753 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
2754 if (!SWIG_IsOK(res1)) {
2755 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_limit_set" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
2756 }
2757 arg1 = (gsl_integration_workspace *)(argp1);
2758 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
2759 if (!SWIG_IsOK(ecode2)) {
2760 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_workspace_limit_set" "', argument " "2"" of type '" "size_t""'");
2761 }
2762 arg2 = (size_t)(val2);
2763 if (arg1) (arg1)->limit = arg2;
2764 ST(argvi) = &PL_sv_undef;
2765
2766
2767 XSRETURN(argvi);
2768 fail:
2769
2770
2771 SWIG_croak_null();
2772 }
2773 }
2774
2775
XS(_wrap_gsl_integration_workspace_limit_get)2776 XS(_wrap_gsl_integration_workspace_limit_get) {
2777 {
2778 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
2779 void *argp1 = 0 ;
2780 int res1 = 0 ;
2781 int argvi = 0;
2782 size_t result;
2783 dXSARGS;
2784
2785 if ((items < 1) || (items > 1)) {
2786 SWIG_croak("Usage: gsl_integration_workspace_limit_get(self);");
2787 }
2788 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
2789 if (!SWIG_IsOK(res1)) {
2790 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_limit_get" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
2791 }
2792 arg1 = (gsl_integration_workspace *)(argp1);
2793 result = ((arg1)->limit);
2794 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
2795
2796 XSRETURN(argvi);
2797 fail:
2798
2799 SWIG_croak_null();
2800 }
2801 }
2802
2803
XS(_wrap_gsl_integration_workspace_size_set)2804 XS(_wrap_gsl_integration_workspace_size_set) {
2805 {
2806 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
2807 size_t arg2 ;
2808 void *argp1 = 0 ;
2809 int res1 = 0 ;
2810 size_t val2 ;
2811 int ecode2 = 0 ;
2812 int argvi = 0;
2813 dXSARGS;
2814
2815 if ((items < 2) || (items > 2)) {
2816 SWIG_croak("Usage: gsl_integration_workspace_size_set(self,size);");
2817 }
2818 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
2819 if (!SWIG_IsOK(res1)) {
2820 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_size_set" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
2821 }
2822 arg1 = (gsl_integration_workspace *)(argp1);
2823 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
2824 if (!SWIG_IsOK(ecode2)) {
2825 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_workspace_size_set" "', argument " "2"" of type '" "size_t""'");
2826 }
2827 arg2 = (size_t)(val2);
2828 if (arg1) (arg1)->size = arg2;
2829 ST(argvi) = &PL_sv_undef;
2830
2831
2832 XSRETURN(argvi);
2833 fail:
2834
2835
2836 SWIG_croak_null();
2837 }
2838 }
2839
2840
XS(_wrap_gsl_integration_workspace_size_get)2841 XS(_wrap_gsl_integration_workspace_size_get) {
2842 {
2843 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
2844 void *argp1 = 0 ;
2845 int res1 = 0 ;
2846 int argvi = 0;
2847 size_t result;
2848 dXSARGS;
2849
2850 if ((items < 1) || (items > 1)) {
2851 SWIG_croak("Usage: gsl_integration_workspace_size_get(self);");
2852 }
2853 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
2854 if (!SWIG_IsOK(res1)) {
2855 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_size_get" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
2856 }
2857 arg1 = (gsl_integration_workspace *)(argp1);
2858 result = ((arg1)->size);
2859 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
2860
2861 XSRETURN(argvi);
2862 fail:
2863
2864 SWIG_croak_null();
2865 }
2866 }
2867
2868
XS(_wrap_gsl_integration_workspace_nrmax_set)2869 XS(_wrap_gsl_integration_workspace_nrmax_set) {
2870 {
2871 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
2872 size_t arg2 ;
2873 void *argp1 = 0 ;
2874 int res1 = 0 ;
2875 size_t val2 ;
2876 int ecode2 = 0 ;
2877 int argvi = 0;
2878 dXSARGS;
2879
2880 if ((items < 2) || (items > 2)) {
2881 SWIG_croak("Usage: gsl_integration_workspace_nrmax_set(self,nrmax);");
2882 }
2883 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
2884 if (!SWIG_IsOK(res1)) {
2885 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_nrmax_set" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
2886 }
2887 arg1 = (gsl_integration_workspace *)(argp1);
2888 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
2889 if (!SWIG_IsOK(ecode2)) {
2890 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_workspace_nrmax_set" "', argument " "2"" of type '" "size_t""'");
2891 }
2892 arg2 = (size_t)(val2);
2893 if (arg1) (arg1)->nrmax = arg2;
2894 ST(argvi) = &PL_sv_undef;
2895
2896
2897 XSRETURN(argvi);
2898 fail:
2899
2900
2901 SWIG_croak_null();
2902 }
2903 }
2904
2905
XS(_wrap_gsl_integration_workspace_nrmax_get)2906 XS(_wrap_gsl_integration_workspace_nrmax_get) {
2907 {
2908 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
2909 void *argp1 = 0 ;
2910 int res1 = 0 ;
2911 int argvi = 0;
2912 size_t result;
2913 dXSARGS;
2914
2915 if ((items < 1) || (items > 1)) {
2916 SWIG_croak("Usage: gsl_integration_workspace_nrmax_get(self);");
2917 }
2918 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
2919 if (!SWIG_IsOK(res1)) {
2920 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_nrmax_get" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
2921 }
2922 arg1 = (gsl_integration_workspace *)(argp1);
2923 result = ((arg1)->nrmax);
2924 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
2925
2926 XSRETURN(argvi);
2927 fail:
2928
2929 SWIG_croak_null();
2930 }
2931 }
2932
2933
XS(_wrap_gsl_integration_workspace_i_set)2934 XS(_wrap_gsl_integration_workspace_i_set) {
2935 {
2936 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
2937 size_t arg2 ;
2938 void *argp1 = 0 ;
2939 int res1 = 0 ;
2940 size_t val2 ;
2941 int ecode2 = 0 ;
2942 int argvi = 0;
2943 dXSARGS;
2944
2945 if ((items < 2) || (items > 2)) {
2946 SWIG_croak("Usage: gsl_integration_workspace_i_set(self,i);");
2947 }
2948 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
2949 if (!SWIG_IsOK(res1)) {
2950 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_i_set" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
2951 }
2952 arg1 = (gsl_integration_workspace *)(argp1);
2953 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
2954 if (!SWIG_IsOK(ecode2)) {
2955 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_workspace_i_set" "', argument " "2"" of type '" "size_t""'");
2956 }
2957 arg2 = (size_t)(val2);
2958 if (arg1) (arg1)->i = arg2;
2959 ST(argvi) = &PL_sv_undef;
2960
2961
2962 XSRETURN(argvi);
2963 fail:
2964
2965
2966 SWIG_croak_null();
2967 }
2968 }
2969
2970
XS(_wrap_gsl_integration_workspace_i_get)2971 XS(_wrap_gsl_integration_workspace_i_get) {
2972 {
2973 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
2974 void *argp1 = 0 ;
2975 int res1 = 0 ;
2976 int argvi = 0;
2977 size_t result;
2978 dXSARGS;
2979
2980 if ((items < 1) || (items > 1)) {
2981 SWIG_croak("Usage: gsl_integration_workspace_i_get(self);");
2982 }
2983 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
2984 if (!SWIG_IsOK(res1)) {
2985 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_i_get" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
2986 }
2987 arg1 = (gsl_integration_workspace *)(argp1);
2988 result = ((arg1)->i);
2989 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
2990
2991 XSRETURN(argvi);
2992 fail:
2993
2994 SWIG_croak_null();
2995 }
2996 }
2997
2998
XS(_wrap_gsl_integration_workspace_maximum_level_set)2999 XS(_wrap_gsl_integration_workspace_maximum_level_set) {
3000 {
3001 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
3002 size_t arg2 ;
3003 void *argp1 = 0 ;
3004 int res1 = 0 ;
3005 size_t val2 ;
3006 int ecode2 = 0 ;
3007 int argvi = 0;
3008 dXSARGS;
3009
3010 if ((items < 2) || (items > 2)) {
3011 SWIG_croak("Usage: gsl_integration_workspace_maximum_level_set(self,maximum_level);");
3012 }
3013 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
3014 if (!SWIG_IsOK(res1)) {
3015 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_maximum_level_set" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
3016 }
3017 arg1 = (gsl_integration_workspace *)(argp1);
3018 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
3019 if (!SWIG_IsOK(ecode2)) {
3020 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_workspace_maximum_level_set" "', argument " "2"" of type '" "size_t""'");
3021 }
3022 arg2 = (size_t)(val2);
3023 if (arg1) (arg1)->maximum_level = arg2;
3024 ST(argvi) = &PL_sv_undef;
3025
3026
3027 XSRETURN(argvi);
3028 fail:
3029
3030
3031 SWIG_croak_null();
3032 }
3033 }
3034
3035
XS(_wrap_gsl_integration_workspace_maximum_level_get)3036 XS(_wrap_gsl_integration_workspace_maximum_level_get) {
3037 {
3038 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
3039 void *argp1 = 0 ;
3040 int res1 = 0 ;
3041 int argvi = 0;
3042 size_t result;
3043 dXSARGS;
3044
3045 if ((items < 1) || (items > 1)) {
3046 SWIG_croak("Usage: gsl_integration_workspace_maximum_level_get(self);");
3047 }
3048 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
3049 if (!SWIG_IsOK(res1)) {
3050 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_maximum_level_get" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
3051 }
3052 arg1 = (gsl_integration_workspace *)(argp1);
3053 result = ((arg1)->maximum_level);
3054 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
3055
3056 XSRETURN(argvi);
3057 fail:
3058
3059 SWIG_croak_null();
3060 }
3061 }
3062
3063
XS(_wrap_gsl_integration_workspace_alist_set)3064 XS(_wrap_gsl_integration_workspace_alist_set) {
3065 {
3066 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
3067 double *arg2 = (double *) 0 ;
3068 void *argp1 = 0 ;
3069 int res1 = 0 ;
3070 void *argp2 = 0 ;
3071 int res2 = 0 ;
3072 int argvi = 0;
3073 dXSARGS;
3074
3075 if ((items < 2) || (items > 2)) {
3076 SWIG_croak("Usage: gsl_integration_workspace_alist_set(self,alist);");
3077 }
3078 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
3079 if (!SWIG_IsOK(res1)) {
3080 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_alist_set" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
3081 }
3082 arg1 = (gsl_integration_workspace *)(argp1);
3083 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
3084 if (!SWIG_IsOK(res2)) {
3085 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_workspace_alist_set" "', argument " "2"" of type '" "double *""'");
3086 }
3087 arg2 = (double *)(argp2);
3088 if (arg1) (arg1)->alist = arg2;
3089 ST(argvi) = &PL_sv_undef;
3090
3091
3092 XSRETURN(argvi);
3093 fail:
3094
3095
3096 SWIG_croak_null();
3097 }
3098 }
3099
3100
XS(_wrap_gsl_integration_workspace_alist_get)3101 XS(_wrap_gsl_integration_workspace_alist_get) {
3102 {
3103 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
3104 void *argp1 = 0 ;
3105 int res1 = 0 ;
3106 int argvi = 0;
3107 double *result = 0 ;
3108 dXSARGS;
3109
3110 if ((items < 1) || (items > 1)) {
3111 SWIG_croak("Usage: gsl_integration_workspace_alist_get(self);");
3112 }
3113 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
3114 if (!SWIG_IsOK(res1)) {
3115 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_alist_get" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
3116 }
3117 arg1 = (gsl_integration_workspace *)(argp1);
3118 result = (double *) ((arg1)->alist);
3119 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
3120
3121 XSRETURN(argvi);
3122 fail:
3123
3124 SWIG_croak_null();
3125 }
3126 }
3127
3128
XS(_wrap_gsl_integration_workspace_blist_set)3129 XS(_wrap_gsl_integration_workspace_blist_set) {
3130 {
3131 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
3132 double *arg2 = (double *) 0 ;
3133 void *argp1 = 0 ;
3134 int res1 = 0 ;
3135 void *argp2 = 0 ;
3136 int res2 = 0 ;
3137 int argvi = 0;
3138 dXSARGS;
3139
3140 if ((items < 2) || (items > 2)) {
3141 SWIG_croak("Usage: gsl_integration_workspace_blist_set(self,blist);");
3142 }
3143 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
3144 if (!SWIG_IsOK(res1)) {
3145 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_blist_set" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
3146 }
3147 arg1 = (gsl_integration_workspace *)(argp1);
3148 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
3149 if (!SWIG_IsOK(res2)) {
3150 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_workspace_blist_set" "', argument " "2"" of type '" "double *""'");
3151 }
3152 arg2 = (double *)(argp2);
3153 if (arg1) (arg1)->blist = arg2;
3154 ST(argvi) = &PL_sv_undef;
3155
3156
3157 XSRETURN(argvi);
3158 fail:
3159
3160
3161 SWIG_croak_null();
3162 }
3163 }
3164
3165
XS(_wrap_gsl_integration_workspace_blist_get)3166 XS(_wrap_gsl_integration_workspace_blist_get) {
3167 {
3168 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
3169 void *argp1 = 0 ;
3170 int res1 = 0 ;
3171 int argvi = 0;
3172 double *result = 0 ;
3173 dXSARGS;
3174
3175 if ((items < 1) || (items > 1)) {
3176 SWIG_croak("Usage: gsl_integration_workspace_blist_get(self);");
3177 }
3178 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
3179 if (!SWIG_IsOK(res1)) {
3180 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_blist_get" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
3181 }
3182 arg1 = (gsl_integration_workspace *)(argp1);
3183 result = (double *) ((arg1)->blist);
3184 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
3185
3186 XSRETURN(argvi);
3187 fail:
3188
3189 SWIG_croak_null();
3190 }
3191 }
3192
3193
XS(_wrap_gsl_integration_workspace_rlist_set)3194 XS(_wrap_gsl_integration_workspace_rlist_set) {
3195 {
3196 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
3197 double *arg2 = (double *) 0 ;
3198 void *argp1 = 0 ;
3199 int res1 = 0 ;
3200 void *argp2 = 0 ;
3201 int res2 = 0 ;
3202 int argvi = 0;
3203 dXSARGS;
3204
3205 if ((items < 2) || (items > 2)) {
3206 SWIG_croak("Usage: gsl_integration_workspace_rlist_set(self,rlist);");
3207 }
3208 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
3209 if (!SWIG_IsOK(res1)) {
3210 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_rlist_set" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
3211 }
3212 arg1 = (gsl_integration_workspace *)(argp1);
3213 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
3214 if (!SWIG_IsOK(res2)) {
3215 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_workspace_rlist_set" "', argument " "2"" of type '" "double *""'");
3216 }
3217 arg2 = (double *)(argp2);
3218 if (arg1) (arg1)->rlist = arg2;
3219 ST(argvi) = &PL_sv_undef;
3220
3221
3222 XSRETURN(argvi);
3223 fail:
3224
3225
3226 SWIG_croak_null();
3227 }
3228 }
3229
3230
XS(_wrap_gsl_integration_workspace_rlist_get)3231 XS(_wrap_gsl_integration_workspace_rlist_get) {
3232 {
3233 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
3234 void *argp1 = 0 ;
3235 int res1 = 0 ;
3236 int argvi = 0;
3237 double *result = 0 ;
3238 dXSARGS;
3239
3240 if ((items < 1) || (items > 1)) {
3241 SWIG_croak("Usage: gsl_integration_workspace_rlist_get(self);");
3242 }
3243 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
3244 if (!SWIG_IsOK(res1)) {
3245 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_rlist_get" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
3246 }
3247 arg1 = (gsl_integration_workspace *)(argp1);
3248 result = (double *) ((arg1)->rlist);
3249 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
3250
3251 XSRETURN(argvi);
3252 fail:
3253
3254 SWIG_croak_null();
3255 }
3256 }
3257
3258
XS(_wrap_gsl_integration_workspace_elist_set)3259 XS(_wrap_gsl_integration_workspace_elist_set) {
3260 {
3261 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
3262 double *arg2 = (double *) 0 ;
3263 void *argp1 = 0 ;
3264 int res1 = 0 ;
3265 void *argp2 = 0 ;
3266 int res2 = 0 ;
3267 int argvi = 0;
3268 dXSARGS;
3269
3270 if ((items < 2) || (items > 2)) {
3271 SWIG_croak("Usage: gsl_integration_workspace_elist_set(self,elist);");
3272 }
3273 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
3274 if (!SWIG_IsOK(res1)) {
3275 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_elist_set" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
3276 }
3277 arg1 = (gsl_integration_workspace *)(argp1);
3278 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
3279 if (!SWIG_IsOK(res2)) {
3280 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_workspace_elist_set" "', argument " "2"" of type '" "double *""'");
3281 }
3282 arg2 = (double *)(argp2);
3283 if (arg1) (arg1)->elist = arg2;
3284 ST(argvi) = &PL_sv_undef;
3285
3286
3287 XSRETURN(argvi);
3288 fail:
3289
3290
3291 SWIG_croak_null();
3292 }
3293 }
3294
3295
XS(_wrap_gsl_integration_workspace_elist_get)3296 XS(_wrap_gsl_integration_workspace_elist_get) {
3297 {
3298 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
3299 void *argp1 = 0 ;
3300 int res1 = 0 ;
3301 int argvi = 0;
3302 double *result = 0 ;
3303 dXSARGS;
3304
3305 if ((items < 1) || (items > 1)) {
3306 SWIG_croak("Usage: gsl_integration_workspace_elist_get(self);");
3307 }
3308 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
3309 if (!SWIG_IsOK(res1)) {
3310 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_elist_get" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
3311 }
3312 arg1 = (gsl_integration_workspace *)(argp1);
3313 result = (double *) ((arg1)->elist);
3314 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
3315
3316 XSRETURN(argvi);
3317 fail:
3318
3319 SWIG_croak_null();
3320 }
3321 }
3322
3323
XS(_wrap_gsl_integration_workspace_order_set)3324 XS(_wrap_gsl_integration_workspace_order_set) {
3325 {
3326 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
3327 size_t *arg2 = (size_t *) 0 ;
3328 void *argp1 = 0 ;
3329 int res1 = 0 ;
3330 void *argp2 = 0 ;
3331 int res2 = 0 ;
3332 int argvi = 0;
3333 dXSARGS;
3334
3335 if ((items < 2) || (items > 2)) {
3336 SWIG_croak("Usage: gsl_integration_workspace_order_set(self,order);");
3337 }
3338 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
3339 if (!SWIG_IsOK(res1)) {
3340 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_order_set" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
3341 }
3342 arg1 = (gsl_integration_workspace *)(argp1);
3343 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_size_t, SWIG_POINTER_DISOWN | 0 );
3344 if (!SWIG_IsOK(res2)) {
3345 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_workspace_order_set" "', argument " "2"" of type '" "size_t *""'");
3346 }
3347 arg2 = (size_t *)(argp2);
3348 if (arg1) (arg1)->order = arg2;
3349 ST(argvi) = &PL_sv_undef;
3350
3351
3352 XSRETURN(argvi);
3353 fail:
3354
3355
3356 SWIG_croak_null();
3357 }
3358 }
3359
3360
XS(_wrap_gsl_integration_workspace_order_get)3361 XS(_wrap_gsl_integration_workspace_order_get) {
3362 {
3363 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
3364 void *argp1 = 0 ;
3365 int res1 = 0 ;
3366 int argvi = 0;
3367 size_t *result = 0 ;
3368 dXSARGS;
3369
3370 if ((items < 1) || (items > 1)) {
3371 SWIG_croak("Usage: gsl_integration_workspace_order_get(self);");
3372 }
3373 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
3374 if (!SWIG_IsOK(res1)) {
3375 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_order_get" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
3376 }
3377 arg1 = (gsl_integration_workspace *)(argp1);
3378 result = (size_t *) ((arg1)->order);
3379 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_size_t, 0 | 0); argvi++ ;
3380
3381 XSRETURN(argvi);
3382 fail:
3383
3384 SWIG_croak_null();
3385 }
3386 }
3387
3388
XS(_wrap_gsl_integration_workspace_level_set)3389 XS(_wrap_gsl_integration_workspace_level_set) {
3390 {
3391 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
3392 size_t *arg2 = (size_t *) 0 ;
3393 void *argp1 = 0 ;
3394 int res1 = 0 ;
3395 void *argp2 = 0 ;
3396 int res2 = 0 ;
3397 int argvi = 0;
3398 dXSARGS;
3399
3400 if ((items < 2) || (items > 2)) {
3401 SWIG_croak("Usage: gsl_integration_workspace_level_set(self,level);");
3402 }
3403 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
3404 if (!SWIG_IsOK(res1)) {
3405 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_level_set" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
3406 }
3407 arg1 = (gsl_integration_workspace *)(argp1);
3408 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_size_t, SWIG_POINTER_DISOWN | 0 );
3409 if (!SWIG_IsOK(res2)) {
3410 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_workspace_level_set" "', argument " "2"" of type '" "size_t *""'");
3411 }
3412 arg2 = (size_t *)(argp2);
3413 if (arg1) (arg1)->level = arg2;
3414 ST(argvi) = &PL_sv_undef;
3415
3416
3417 XSRETURN(argvi);
3418 fail:
3419
3420
3421 SWIG_croak_null();
3422 }
3423 }
3424
3425
XS(_wrap_gsl_integration_workspace_level_get)3426 XS(_wrap_gsl_integration_workspace_level_get) {
3427 {
3428 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
3429 void *argp1 = 0 ;
3430 int res1 = 0 ;
3431 int argvi = 0;
3432 size_t *result = 0 ;
3433 dXSARGS;
3434
3435 if ((items < 1) || (items > 1)) {
3436 SWIG_croak("Usage: gsl_integration_workspace_level_get(self);");
3437 }
3438 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
3439 if (!SWIG_IsOK(res1)) {
3440 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_level_get" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
3441 }
3442 arg1 = (gsl_integration_workspace *)(argp1);
3443 result = (size_t *) ((arg1)->level);
3444 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_size_t, 0 | 0); argvi++ ;
3445
3446 XSRETURN(argvi);
3447 fail:
3448
3449 SWIG_croak_null();
3450 }
3451 }
3452
3453
XS(_wrap_new_gsl_integration_workspace)3454 XS(_wrap_new_gsl_integration_workspace) {
3455 {
3456 int argvi = 0;
3457 gsl_integration_workspace *result = 0 ;
3458 dXSARGS;
3459
3460 if ((items < 0) || (items > 0)) {
3461 SWIG_croak("Usage: new_gsl_integration_workspace();");
3462 }
3463 result = (gsl_integration_workspace *)calloc(1, sizeof(gsl_integration_workspace));
3464 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_integration_workspace, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
3465 XSRETURN(argvi);
3466 fail:
3467 SWIG_croak_null();
3468 }
3469 }
3470
3471
XS(_wrap_delete_gsl_integration_workspace)3472 XS(_wrap_delete_gsl_integration_workspace) {
3473 {
3474 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
3475 void *argp1 = 0 ;
3476 int res1 = 0 ;
3477 int argvi = 0;
3478 dXSARGS;
3479
3480 if ((items < 1) || (items > 1)) {
3481 SWIG_croak("Usage: delete_gsl_integration_workspace(self);");
3482 }
3483 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, SWIG_POINTER_DISOWN | 0 );
3484 if (!SWIG_IsOK(res1)) {
3485 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_integration_workspace" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
3486 }
3487 arg1 = (gsl_integration_workspace *)(argp1);
3488 free((char *) arg1);
3489 ST(argvi) = &PL_sv_undef;
3490
3491 XSRETURN(argvi);
3492 fail:
3493
3494 SWIG_croak_null();
3495 }
3496 }
3497
3498
XS(_wrap_gsl_integration_workspace_alloc)3499 XS(_wrap_gsl_integration_workspace_alloc) {
3500 {
3501 size_t arg1 ;
3502 size_t val1 ;
3503 int ecode1 = 0 ;
3504 int argvi = 0;
3505 gsl_integration_workspace *result = 0 ;
3506 dXSARGS;
3507
3508 if ((items < 1) || (items > 1)) {
3509 SWIG_croak("Usage: gsl_integration_workspace_alloc(n);");
3510 }
3511 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
3512 if (!SWIG_IsOK(ecode1)) {
3513 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_integration_workspace_alloc" "', argument " "1"" of type '" "size_t""'");
3514 }
3515 arg1 = (size_t)(val1);
3516 result = (gsl_integration_workspace *)gsl_integration_workspace_alloc(arg1);
3517 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_integration_workspace, 0 | SWIG_SHADOW); argvi++ ;
3518
3519 XSRETURN(argvi);
3520 fail:
3521
3522 SWIG_croak_null();
3523 }
3524 }
3525
3526
XS(_wrap_gsl_integration_workspace_free)3527 XS(_wrap_gsl_integration_workspace_free) {
3528 {
3529 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
3530 void *argp1 = 0 ;
3531 int res1 = 0 ;
3532 int argvi = 0;
3533 dXSARGS;
3534
3535 if ((items < 1) || (items > 1)) {
3536 SWIG_croak("Usage: gsl_integration_workspace_free(w);");
3537 }
3538 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
3539 if (!SWIG_IsOK(res1)) {
3540 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_free" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
3541 }
3542 arg1 = (gsl_integration_workspace *)(argp1);
3543 gsl_integration_workspace_free(arg1);
3544 ST(argvi) = &PL_sv_undef;
3545
3546 XSRETURN(argvi);
3547 fail:
3548
3549 SWIG_croak_null();
3550 }
3551 }
3552
3553
XS(_wrap_gsl_integration_qaws_table_alpha_set)3554 XS(_wrap_gsl_integration_qaws_table_alpha_set) {
3555 {
3556 gsl_integration_qaws_table *arg1 = (gsl_integration_qaws_table *) 0 ;
3557 double arg2 ;
3558 void *argp1 = 0 ;
3559 int res1 = 0 ;
3560 double val2 ;
3561 int ecode2 = 0 ;
3562 int argvi = 0;
3563 dXSARGS;
3564
3565 if ((items < 2) || (items > 2)) {
3566 SWIG_croak("Usage: gsl_integration_qaws_table_alpha_set(self,alpha);");
3567 }
3568 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qaws_table, 0 | 0 );
3569 if (!SWIG_IsOK(res1)) {
3570 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qaws_table_alpha_set" "', argument " "1"" of type '" "gsl_integration_qaws_table *""'");
3571 }
3572 arg1 = (gsl_integration_qaws_table *)(argp1);
3573 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
3574 if (!SWIG_IsOK(ecode2)) {
3575 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qaws_table_alpha_set" "', argument " "2"" of type '" "double""'");
3576 }
3577 arg2 = (double)(val2);
3578 if (arg1) (arg1)->alpha = arg2;
3579 ST(argvi) = &PL_sv_undef;
3580
3581
3582 XSRETURN(argvi);
3583 fail:
3584
3585
3586 SWIG_croak_null();
3587 }
3588 }
3589
3590
XS(_wrap_gsl_integration_qaws_table_alpha_get)3591 XS(_wrap_gsl_integration_qaws_table_alpha_get) {
3592 {
3593 gsl_integration_qaws_table *arg1 = (gsl_integration_qaws_table *) 0 ;
3594 void *argp1 = 0 ;
3595 int res1 = 0 ;
3596 int argvi = 0;
3597 double result;
3598 dXSARGS;
3599
3600 if ((items < 1) || (items > 1)) {
3601 SWIG_croak("Usage: gsl_integration_qaws_table_alpha_get(self);");
3602 }
3603 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qaws_table, 0 | 0 );
3604 if (!SWIG_IsOK(res1)) {
3605 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qaws_table_alpha_get" "', argument " "1"" of type '" "gsl_integration_qaws_table *""'");
3606 }
3607 arg1 = (gsl_integration_qaws_table *)(argp1);
3608 result = (double) ((arg1)->alpha);
3609 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
3610
3611 XSRETURN(argvi);
3612 fail:
3613
3614 SWIG_croak_null();
3615 }
3616 }
3617
3618
XS(_wrap_gsl_integration_qaws_table_beta_set)3619 XS(_wrap_gsl_integration_qaws_table_beta_set) {
3620 {
3621 gsl_integration_qaws_table *arg1 = (gsl_integration_qaws_table *) 0 ;
3622 double arg2 ;
3623 void *argp1 = 0 ;
3624 int res1 = 0 ;
3625 double val2 ;
3626 int ecode2 = 0 ;
3627 int argvi = 0;
3628 dXSARGS;
3629
3630 if ((items < 2) || (items > 2)) {
3631 SWIG_croak("Usage: gsl_integration_qaws_table_beta_set(self,beta);");
3632 }
3633 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qaws_table, 0 | 0 );
3634 if (!SWIG_IsOK(res1)) {
3635 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qaws_table_beta_set" "', argument " "1"" of type '" "gsl_integration_qaws_table *""'");
3636 }
3637 arg1 = (gsl_integration_qaws_table *)(argp1);
3638 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
3639 if (!SWIG_IsOK(ecode2)) {
3640 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qaws_table_beta_set" "', argument " "2"" of type '" "double""'");
3641 }
3642 arg2 = (double)(val2);
3643 if (arg1) (arg1)->beta = arg2;
3644 ST(argvi) = &PL_sv_undef;
3645
3646
3647 XSRETURN(argvi);
3648 fail:
3649
3650
3651 SWIG_croak_null();
3652 }
3653 }
3654
3655
XS(_wrap_gsl_integration_qaws_table_beta_get)3656 XS(_wrap_gsl_integration_qaws_table_beta_get) {
3657 {
3658 gsl_integration_qaws_table *arg1 = (gsl_integration_qaws_table *) 0 ;
3659 void *argp1 = 0 ;
3660 int res1 = 0 ;
3661 int argvi = 0;
3662 double result;
3663 dXSARGS;
3664
3665 if ((items < 1) || (items > 1)) {
3666 SWIG_croak("Usage: gsl_integration_qaws_table_beta_get(self);");
3667 }
3668 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qaws_table, 0 | 0 );
3669 if (!SWIG_IsOK(res1)) {
3670 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qaws_table_beta_get" "', argument " "1"" of type '" "gsl_integration_qaws_table *""'");
3671 }
3672 arg1 = (gsl_integration_qaws_table *)(argp1);
3673 result = (double) ((arg1)->beta);
3674 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
3675
3676 XSRETURN(argvi);
3677 fail:
3678
3679 SWIG_croak_null();
3680 }
3681 }
3682
3683
XS(_wrap_gsl_integration_qaws_table_mu_set)3684 XS(_wrap_gsl_integration_qaws_table_mu_set) {
3685 {
3686 gsl_integration_qaws_table *arg1 = (gsl_integration_qaws_table *) 0 ;
3687 int arg2 ;
3688 void *argp1 = 0 ;
3689 int res1 = 0 ;
3690 int val2 ;
3691 int ecode2 = 0 ;
3692 int argvi = 0;
3693 dXSARGS;
3694
3695 if ((items < 2) || (items > 2)) {
3696 SWIG_croak("Usage: gsl_integration_qaws_table_mu_set(self,mu);");
3697 }
3698 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qaws_table, 0 | 0 );
3699 if (!SWIG_IsOK(res1)) {
3700 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qaws_table_mu_set" "', argument " "1"" of type '" "gsl_integration_qaws_table *""'");
3701 }
3702 arg1 = (gsl_integration_qaws_table *)(argp1);
3703 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
3704 if (!SWIG_IsOK(ecode2)) {
3705 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qaws_table_mu_set" "', argument " "2"" of type '" "int""'");
3706 }
3707 arg2 = (int)(val2);
3708 if (arg1) (arg1)->mu = arg2;
3709 ST(argvi) = &PL_sv_undef;
3710
3711
3712 XSRETURN(argvi);
3713 fail:
3714
3715
3716 SWIG_croak_null();
3717 }
3718 }
3719
3720
XS(_wrap_gsl_integration_qaws_table_mu_get)3721 XS(_wrap_gsl_integration_qaws_table_mu_get) {
3722 {
3723 gsl_integration_qaws_table *arg1 = (gsl_integration_qaws_table *) 0 ;
3724 void *argp1 = 0 ;
3725 int res1 = 0 ;
3726 int argvi = 0;
3727 int result;
3728 dXSARGS;
3729
3730 if ((items < 1) || (items > 1)) {
3731 SWIG_croak("Usage: gsl_integration_qaws_table_mu_get(self);");
3732 }
3733 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qaws_table, 0 | 0 );
3734 if (!SWIG_IsOK(res1)) {
3735 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qaws_table_mu_get" "', argument " "1"" of type '" "gsl_integration_qaws_table *""'");
3736 }
3737 arg1 = (gsl_integration_qaws_table *)(argp1);
3738 result = (int) ((arg1)->mu);
3739 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3740
3741 XSRETURN(argvi);
3742 fail:
3743
3744 SWIG_croak_null();
3745 }
3746 }
3747
3748
XS(_wrap_gsl_integration_qaws_table_nu_set)3749 XS(_wrap_gsl_integration_qaws_table_nu_set) {
3750 {
3751 gsl_integration_qaws_table *arg1 = (gsl_integration_qaws_table *) 0 ;
3752 int arg2 ;
3753 void *argp1 = 0 ;
3754 int res1 = 0 ;
3755 int val2 ;
3756 int ecode2 = 0 ;
3757 int argvi = 0;
3758 dXSARGS;
3759
3760 if ((items < 2) || (items > 2)) {
3761 SWIG_croak("Usage: gsl_integration_qaws_table_nu_set(self,nu);");
3762 }
3763 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qaws_table, 0 | 0 );
3764 if (!SWIG_IsOK(res1)) {
3765 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qaws_table_nu_set" "', argument " "1"" of type '" "gsl_integration_qaws_table *""'");
3766 }
3767 arg1 = (gsl_integration_qaws_table *)(argp1);
3768 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
3769 if (!SWIG_IsOK(ecode2)) {
3770 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qaws_table_nu_set" "', argument " "2"" of type '" "int""'");
3771 }
3772 arg2 = (int)(val2);
3773 if (arg1) (arg1)->nu = arg2;
3774 ST(argvi) = &PL_sv_undef;
3775
3776
3777 XSRETURN(argvi);
3778 fail:
3779
3780
3781 SWIG_croak_null();
3782 }
3783 }
3784
3785
XS(_wrap_gsl_integration_qaws_table_nu_get)3786 XS(_wrap_gsl_integration_qaws_table_nu_get) {
3787 {
3788 gsl_integration_qaws_table *arg1 = (gsl_integration_qaws_table *) 0 ;
3789 void *argp1 = 0 ;
3790 int res1 = 0 ;
3791 int argvi = 0;
3792 int result;
3793 dXSARGS;
3794
3795 if ((items < 1) || (items > 1)) {
3796 SWIG_croak("Usage: gsl_integration_qaws_table_nu_get(self);");
3797 }
3798 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qaws_table, 0 | 0 );
3799 if (!SWIG_IsOK(res1)) {
3800 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qaws_table_nu_get" "', argument " "1"" of type '" "gsl_integration_qaws_table *""'");
3801 }
3802 arg1 = (gsl_integration_qaws_table *)(argp1);
3803 result = (int) ((arg1)->nu);
3804 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3805
3806 XSRETURN(argvi);
3807 fail:
3808
3809 SWIG_croak_null();
3810 }
3811 }
3812
3813
XS(_wrap_gsl_integration_qaws_table_ri_set)3814 XS(_wrap_gsl_integration_qaws_table_ri_set) {
3815 {
3816 gsl_integration_qaws_table *arg1 = (gsl_integration_qaws_table *) 0 ;
3817 double *arg2 ;
3818 void *argp1 = 0 ;
3819 int res1 = 0 ;
3820 void *argp2 = 0 ;
3821 int res2 = 0 ;
3822 int argvi = 0;
3823 dXSARGS;
3824
3825 if ((items < 2) || (items > 2)) {
3826 SWIG_croak("Usage: gsl_integration_qaws_table_ri_set(self,ri);");
3827 }
3828 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qaws_table, 0 | 0 );
3829 if (!SWIG_IsOK(res1)) {
3830 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qaws_table_ri_set" "', argument " "1"" of type '" "gsl_integration_qaws_table *""'");
3831 }
3832 arg1 = (gsl_integration_qaws_table *)(argp1);
3833 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
3834 if (!SWIG_IsOK(res2)) {
3835 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_qaws_table_ri_set" "', argument " "2"" of type '" "double [25]""'");
3836 }
3837 arg2 = (double *)(argp2);
3838 {
3839 if (arg2) {
3840 size_t ii = 0;
3841 for (; ii < (size_t)25; ++ii) *(double *)&arg1->ri[ii] = *((double *)arg2 + ii);
3842 } else {
3843 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""ri""' of type '""double [25]""'");
3844 }
3845 }
3846 ST(argvi) = &PL_sv_undef;
3847
3848
3849 XSRETURN(argvi);
3850 fail:
3851
3852
3853 SWIG_croak_null();
3854 }
3855 }
3856
3857
XS(_wrap_gsl_integration_qaws_table_ri_get)3858 XS(_wrap_gsl_integration_qaws_table_ri_get) {
3859 {
3860 gsl_integration_qaws_table *arg1 = (gsl_integration_qaws_table *) 0 ;
3861 void *argp1 = 0 ;
3862 int res1 = 0 ;
3863 int argvi = 0;
3864 double *result = 0 ;
3865 dXSARGS;
3866
3867 if ((items < 1) || (items > 1)) {
3868 SWIG_croak("Usage: gsl_integration_qaws_table_ri_get(self);");
3869 }
3870 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qaws_table, 0 | 0 );
3871 if (!SWIG_IsOK(res1)) {
3872 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qaws_table_ri_get" "', argument " "1"" of type '" "gsl_integration_qaws_table *""'");
3873 }
3874 arg1 = (gsl_integration_qaws_table *)(argp1);
3875 result = (double *)(double *) ((arg1)->ri);
3876 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
3877
3878 XSRETURN(argvi);
3879 fail:
3880
3881 SWIG_croak_null();
3882 }
3883 }
3884
3885
XS(_wrap_gsl_integration_qaws_table_rj_set)3886 XS(_wrap_gsl_integration_qaws_table_rj_set) {
3887 {
3888 gsl_integration_qaws_table *arg1 = (gsl_integration_qaws_table *) 0 ;
3889 double *arg2 ;
3890 void *argp1 = 0 ;
3891 int res1 = 0 ;
3892 void *argp2 = 0 ;
3893 int res2 = 0 ;
3894 int argvi = 0;
3895 dXSARGS;
3896
3897 if ((items < 2) || (items > 2)) {
3898 SWIG_croak("Usage: gsl_integration_qaws_table_rj_set(self,rj);");
3899 }
3900 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qaws_table, 0 | 0 );
3901 if (!SWIG_IsOK(res1)) {
3902 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qaws_table_rj_set" "', argument " "1"" of type '" "gsl_integration_qaws_table *""'");
3903 }
3904 arg1 = (gsl_integration_qaws_table *)(argp1);
3905 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
3906 if (!SWIG_IsOK(res2)) {
3907 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_qaws_table_rj_set" "', argument " "2"" of type '" "double [25]""'");
3908 }
3909 arg2 = (double *)(argp2);
3910 {
3911 if (arg2) {
3912 size_t ii = 0;
3913 for (; ii < (size_t)25; ++ii) *(double *)&arg1->rj[ii] = *((double *)arg2 + ii);
3914 } else {
3915 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""rj""' of type '""double [25]""'");
3916 }
3917 }
3918 ST(argvi) = &PL_sv_undef;
3919
3920
3921 XSRETURN(argvi);
3922 fail:
3923
3924
3925 SWIG_croak_null();
3926 }
3927 }
3928
3929
XS(_wrap_gsl_integration_qaws_table_rj_get)3930 XS(_wrap_gsl_integration_qaws_table_rj_get) {
3931 {
3932 gsl_integration_qaws_table *arg1 = (gsl_integration_qaws_table *) 0 ;
3933 void *argp1 = 0 ;
3934 int res1 = 0 ;
3935 int argvi = 0;
3936 double *result = 0 ;
3937 dXSARGS;
3938
3939 if ((items < 1) || (items > 1)) {
3940 SWIG_croak("Usage: gsl_integration_qaws_table_rj_get(self);");
3941 }
3942 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qaws_table, 0 | 0 );
3943 if (!SWIG_IsOK(res1)) {
3944 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qaws_table_rj_get" "', argument " "1"" of type '" "gsl_integration_qaws_table *""'");
3945 }
3946 arg1 = (gsl_integration_qaws_table *)(argp1);
3947 result = (double *)(double *) ((arg1)->rj);
3948 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
3949
3950 XSRETURN(argvi);
3951 fail:
3952
3953 SWIG_croak_null();
3954 }
3955 }
3956
3957
XS(_wrap_gsl_integration_qaws_table_rg_set)3958 XS(_wrap_gsl_integration_qaws_table_rg_set) {
3959 {
3960 gsl_integration_qaws_table *arg1 = (gsl_integration_qaws_table *) 0 ;
3961 double *arg2 ;
3962 void *argp1 = 0 ;
3963 int res1 = 0 ;
3964 void *argp2 = 0 ;
3965 int res2 = 0 ;
3966 int argvi = 0;
3967 dXSARGS;
3968
3969 if ((items < 2) || (items > 2)) {
3970 SWIG_croak("Usage: gsl_integration_qaws_table_rg_set(self,rg);");
3971 }
3972 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qaws_table, 0 | 0 );
3973 if (!SWIG_IsOK(res1)) {
3974 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qaws_table_rg_set" "', argument " "1"" of type '" "gsl_integration_qaws_table *""'");
3975 }
3976 arg1 = (gsl_integration_qaws_table *)(argp1);
3977 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
3978 if (!SWIG_IsOK(res2)) {
3979 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_qaws_table_rg_set" "', argument " "2"" of type '" "double [25]""'");
3980 }
3981 arg2 = (double *)(argp2);
3982 {
3983 if (arg2) {
3984 size_t ii = 0;
3985 for (; ii < (size_t)25; ++ii) *(double *)&arg1->rg[ii] = *((double *)arg2 + ii);
3986 } else {
3987 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""rg""' of type '""double [25]""'");
3988 }
3989 }
3990 ST(argvi) = &PL_sv_undef;
3991
3992
3993 XSRETURN(argvi);
3994 fail:
3995
3996
3997 SWIG_croak_null();
3998 }
3999 }
4000
4001
XS(_wrap_gsl_integration_qaws_table_rg_get)4002 XS(_wrap_gsl_integration_qaws_table_rg_get) {
4003 {
4004 gsl_integration_qaws_table *arg1 = (gsl_integration_qaws_table *) 0 ;
4005 void *argp1 = 0 ;
4006 int res1 = 0 ;
4007 int argvi = 0;
4008 double *result = 0 ;
4009 dXSARGS;
4010
4011 if ((items < 1) || (items > 1)) {
4012 SWIG_croak("Usage: gsl_integration_qaws_table_rg_get(self);");
4013 }
4014 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qaws_table, 0 | 0 );
4015 if (!SWIG_IsOK(res1)) {
4016 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qaws_table_rg_get" "', argument " "1"" of type '" "gsl_integration_qaws_table *""'");
4017 }
4018 arg1 = (gsl_integration_qaws_table *)(argp1);
4019 result = (double *)(double *) ((arg1)->rg);
4020 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
4021
4022 XSRETURN(argvi);
4023 fail:
4024
4025 SWIG_croak_null();
4026 }
4027 }
4028
4029
XS(_wrap_gsl_integration_qaws_table_rh_set)4030 XS(_wrap_gsl_integration_qaws_table_rh_set) {
4031 {
4032 gsl_integration_qaws_table *arg1 = (gsl_integration_qaws_table *) 0 ;
4033 double *arg2 ;
4034 void *argp1 = 0 ;
4035 int res1 = 0 ;
4036 void *argp2 = 0 ;
4037 int res2 = 0 ;
4038 int argvi = 0;
4039 dXSARGS;
4040
4041 if ((items < 2) || (items > 2)) {
4042 SWIG_croak("Usage: gsl_integration_qaws_table_rh_set(self,rh);");
4043 }
4044 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qaws_table, 0 | 0 );
4045 if (!SWIG_IsOK(res1)) {
4046 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qaws_table_rh_set" "', argument " "1"" of type '" "gsl_integration_qaws_table *""'");
4047 }
4048 arg1 = (gsl_integration_qaws_table *)(argp1);
4049 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
4050 if (!SWIG_IsOK(res2)) {
4051 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_qaws_table_rh_set" "', argument " "2"" of type '" "double [25]""'");
4052 }
4053 arg2 = (double *)(argp2);
4054 {
4055 if (arg2) {
4056 size_t ii = 0;
4057 for (; ii < (size_t)25; ++ii) *(double *)&arg1->rh[ii] = *((double *)arg2 + ii);
4058 } else {
4059 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""rh""' of type '""double [25]""'");
4060 }
4061 }
4062 ST(argvi) = &PL_sv_undef;
4063
4064
4065 XSRETURN(argvi);
4066 fail:
4067
4068
4069 SWIG_croak_null();
4070 }
4071 }
4072
4073
XS(_wrap_gsl_integration_qaws_table_rh_get)4074 XS(_wrap_gsl_integration_qaws_table_rh_get) {
4075 {
4076 gsl_integration_qaws_table *arg1 = (gsl_integration_qaws_table *) 0 ;
4077 void *argp1 = 0 ;
4078 int res1 = 0 ;
4079 int argvi = 0;
4080 double *result = 0 ;
4081 dXSARGS;
4082
4083 if ((items < 1) || (items > 1)) {
4084 SWIG_croak("Usage: gsl_integration_qaws_table_rh_get(self);");
4085 }
4086 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qaws_table, 0 | 0 );
4087 if (!SWIG_IsOK(res1)) {
4088 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qaws_table_rh_get" "', argument " "1"" of type '" "gsl_integration_qaws_table *""'");
4089 }
4090 arg1 = (gsl_integration_qaws_table *)(argp1);
4091 result = (double *)(double *) ((arg1)->rh);
4092 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
4093
4094 XSRETURN(argvi);
4095 fail:
4096
4097 SWIG_croak_null();
4098 }
4099 }
4100
4101
XS(_wrap_new_gsl_integration_qaws_table)4102 XS(_wrap_new_gsl_integration_qaws_table) {
4103 {
4104 int argvi = 0;
4105 gsl_integration_qaws_table *result = 0 ;
4106 dXSARGS;
4107
4108 if ((items < 0) || (items > 0)) {
4109 SWIG_croak("Usage: new_gsl_integration_qaws_table();");
4110 }
4111 result = (gsl_integration_qaws_table *)calloc(1, sizeof(gsl_integration_qaws_table));
4112 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_integration_qaws_table, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
4113 XSRETURN(argvi);
4114 fail:
4115 SWIG_croak_null();
4116 }
4117 }
4118
4119
XS(_wrap_delete_gsl_integration_qaws_table)4120 XS(_wrap_delete_gsl_integration_qaws_table) {
4121 {
4122 gsl_integration_qaws_table *arg1 = (gsl_integration_qaws_table *) 0 ;
4123 void *argp1 = 0 ;
4124 int res1 = 0 ;
4125 int argvi = 0;
4126 dXSARGS;
4127
4128 if ((items < 1) || (items > 1)) {
4129 SWIG_croak("Usage: delete_gsl_integration_qaws_table(self);");
4130 }
4131 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qaws_table, SWIG_POINTER_DISOWN | 0 );
4132 if (!SWIG_IsOK(res1)) {
4133 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_integration_qaws_table" "', argument " "1"" of type '" "gsl_integration_qaws_table *""'");
4134 }
4135 arg1 = (gsl_integration_qaws_table *)(argp1);
4136 free((char *) arg1);
4137 ST(argvi) = &PL_sv_undef;
4138
4139 XSRETURN(argvi);
4140 fail:
4141
4142 SWIG_croak_null();
4143 }
4144 }
4145
4146
XS(_wrap_gsl_integration_qaws_table_alloc)4147 XS(_wrap_gsl_integration_qaws_table_alloc) {
4148 {
4149 double arg1 ;
4150 double arg2 ;
4151 int arg3 ;
4152 int arg4 ;
4153 double val1 ;
4154 int ecode1 = 0 ;
4155 double val2 ;
4156 int ecode2 = 0 ;
4157 int val3 ;
4158 int ecode3 = 0 ;
4159 int val4 ;
4160 int ecode4 = 0 ;
4161 int argvi = 0;
4162 gsl_integration_qaws_table *result = 0 ;
4163 dXSARGS;
4164
4165 if ((items < 4) || (items > 4)) {
4166 SWIG_croak("Usage: gsl_integration_qaws_table_alloc(alpha,beta,mu,nu);");
4167 }
4168 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
4169 if (!SWIG_IsOK(ecode1)) {
4170 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_integration_qaws_table_alloc" "', argument " "1"" of type '" "double""'");
4171 }
4172 arg1 = (double)(val1);
4173 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4174 if (!SWIG_IsOK(ecode2)) {
4175 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qaws_table_alloc" "', argument " "2"" of type '" "double""'");
4176 }
4177 arg2 = (double)(val2);
4178 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
4179 if (!SWIG_IsOK(ecode3)) {
4180 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qaws_table_alloc" "', argument " "3"" of type '" "int""'");
4181 }
4182 arg3 = (int)(val3);
4183 ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
4184 if (!SWIG_IsOK(ecode4)) {
4185 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_integration_qaws_table_alloc" "', argument " "4"" of type '" "int""'");
4186 }
4187 arg4 = (int)(val4);
4188 result = (gsl_integration_qaws_table *)gsl_integration_qaws_table_alloc(arg1,arg2,arg3,arg4);
4189 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_integration_qaws_table, 0 | SWIG_SHADOW); argvi++ ;
4190
4191
4192
4193
4194 XSRETURN(argvi);
4195 fail:
4196
4197
4198
4199
4200 SWIG_croak_null();
4201 }
4202 }
4203
4204
XS(_wrap_gsl_integration_qaws_table_set)4205 XS(_wrap_gsl_integration_qaws_table_set) {
4206 {
4207 gsl_integration_qaws_table *arg1 = (gsl_integration_qaws_table *) 0 ;
4208 double arg2 ;
4209 double arg3 ;
4210 int arg4 ;
4211 int arg5 ;
4212 void *argp1 = 0 ;
4213 int res1 = 0 ;
4214 double val2 ;
4215 int ecode2 = 0 ;
4216 double val3 ;
4217 int ecode3 = 0 ;
4218 int val4 ;
4219 int ecode4 = 0 ;
4220 int val5 ;
4221 int ecode5 = 0 ;
4222 int argvi = 0;
4223 int result;
4224 dXSARGS;
4225
4226 if ((items < 5) || (items > 5)) {
4227 SWIG_croak("Usage: gsl_integration_qaws_table_set(t,alpha,beta,mu,nu);");
4228 }
4229 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qaws_table, 0 | 0 );
4230 if (!SWIG_IsOK(res1)) {
4231 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qaws_table_set" "', argument " "1"" of type '" "gsl_integration_qaws_table *""'");
4232 }
4233 arg1 = (gsl_integration_qaws_table *)(argp1);
4234 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4235 if (!SWIG_IsOK(ecode2)) {
4236 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qaws_table_set" "', argument " "2"" of type '" "double""'");
4237 }
4238 arg2 = (double)(val2);
4239 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
4240 if (!SWIG_IsOK(ecode3)) {
4241 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qaws_table_set" "', argument " "3"" of type '" "double""'");
4242 }
4243 arg3 = (double)(val3);
4244 ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
4245 if (!SWIG_IsOK(ecode4)) {
4246 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_integration_qaws_table_set" "', argument " "4"" of type '" "int""'");
4247 }
4248 arg4 = (int)(val4);
4249 ecode5 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
4250 if (!SWIG_IsOK(ecode5)) {
4251 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_integration_qaws_table_set" "', argument " "5"" of type '" "int""'");
4252 }
4253 arg5 = (int)(val5);
4254 result = (int)gsl_integration_qaws_table_set(arg1,arg2,arg3,arg4,arg5);
4255 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4256
4257
4258
4259
4260
4261 XSRETURN(argvi);
4262 fail:
4263
4264
4265
4266
4267
4268 SWIG_croak_null();
4269 }
4270 }
4271
4272
XS(_wrap_gsl_integration_qaws_table_free)4273 XS(_wrap_gsl_integration_qaws_table_free) {
4274 {
4275 gsl_integration_qaws_table *arg1 = (gsl_integration_qaws_table *) 0 ;
4276 void *argp1 = 0 ;
4277 int res1 = 0 ;
4278 int argvi = 0;
4279 dXSARGS;
4280
4281 if ((items < 1) || (items > 1)) {
4282 SWIG_croak("Usage: gsl_integration_qaws_table_free(t);");
4283 }
4284 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qaws_table, 0 | 0 );
4285 if (!SWIG_IsOK(res1)) {
4286 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qaws_table_free" "', argument " "1"" of type '" "gsl_integration_qaws_table *""'");
4287 }
4288 arg1 = (gsl_integration_qaws_table *)(argp1);
4289 gsl_integration_qaws_table_free(arg1);
4290 ST(argvi) = &PL_sv_undef;
4291
4292 XSRETURN(argvi);
4293 fail:
4294
4295 SWIG_croak_null();
4296 }
4297 }
4298
4299
XS(_wrap_gsl_integration_qawo_table_n_set)4300 XS(_wrap_gsl_integration_qawo_table_n_set) {
4301 {
4302 gsl_integration_qawo_table *arg1 = (gsl_integration_qawo_table *) 0 ;
4303 size_t arg2 ;
4304 void *argp1 = 0 ;
4305 int res1 = 0 ;
4306 size_t val2 ;
4307 int ecode2 = 0 ;
4308 int argvi = 0;
4309 dXSARGS;
4310
4311 if ((items < 2) || (items > 2)) {
4312 SWIG_croak("Usage: gsl_integration_qawo_table_n_set(self,n);");
4313 }
4314 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qawo_table, 0 | 0 );
4315 if (!SWIG_IsOK(res1)) {
4316 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qawo_table_n_set" "', argument " "1"" of type '" "gsl_integration_qawo_table *""'");
4317 }
4318 arg1 = (gsl_integration_qawo_table *)(argp1);
4319 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4320 if (!SWIG_IsOK(ecode2)) {
4321 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qawo_table_n_set" "', argument " "2"" of type '" "size_t""'");
4322 }
4323 arg2 = (size_t)(val2);
4324 if (arg1) (arg1)->n = arg2;
4325 ST(argvi) = &PL_sv_undef;
4326
4327
4328 XSRETURN(argvi);
4329 fail:
4330
4331
4332 SWIG_croak_null();
4333 }
4334 }
4335
4336
XS(_wrap_gsl_integration_qawo_table_n_get)4337 XS(_wrap_gsl_integration_qawo_table_n_get) {
4338 {
4339 gsl_integration_qawo_table *arg1 = (gsl_integration_qawo_table *) 0 ;
4340 void *argp1 = 0 ;
4341 int res1 = 0 ;
4342 int argvi = 0;
4343 size_t result;
4344 dXSARGS;
4345
4346 if ((items < 1) || (items > 1)) {
4347 SWIG_croak("Usage: gsl_integration_qawo_table_n_get(self);");
4348 }
4349 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qawo_table, 0 | 0 );
4350 if (!SWIG_IsOK(res1)) {
4351 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qawo_table_n_get" "', argument " "1"" of type '" "gsl_integration_qawo_table *""'");
4352 }
4353 arg1 = (gsl_integration_qawo_table *)(argp1);
4354 result = ((arg1)->n);
4355 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
4356
4357 XSRETURN(argvi);
4358 fail:
4359
4360 SWIG_croak_null();
4361 }
4362 }
4363
4364
XS(_wrap_gsl_integration_qawo_table_omega_set)4365 XS(_wrap_gsl_integration_qawo_table_omega_set) {
4366 {
4367 gsl_integration_qawo_table *arg1 = (gsl_integration_qawo_table *) 0 ;
4368 double arg2 ;
4369 void *argp1 = 0 ;
4370 int res1 = 0 ;
4371 double val2 ;
4372 int ecode2 = 0 ;
4373 int argvi = 0;
4374 dXSARGS;
4375
4376 if ((items < 2) || (items > 2)) {
4377 SWIG_croak("Usage: gsl_integration_qawo_table_omega_set(self,omega);");
4378 }
4379 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qawo_table, 0 | 0 );
4380 if (!SWIG_IsOK(res1)) {
4381 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qawo_table_omega_set" "', argument " "1"" of type '" "gsl_integration_qawo_table *""'");
4382 }
4383 arg1 = (gsl_integration_qawo_table *)(argp1);
4384 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4385 if (!SWIG_IsOK(ecode2)) {
4386 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qawo_table_omega_set" "', argument " "2"" of type '" "double""'");
4387 }
4388 arg2 = (double)(val2);
4389 if (arg1) (arg1)->omega = arg2;
4390 ST(argvi) = &PL_sv_undef;
4391
4392
4393 XSRETURN(argvi);
4394 fail:
4395
4396
4397 SWIG_croak_null();
4398 }
4399 }
4400
4401
XS(_wrap_gsl_integration_qawo_table_omega_get)4402 XS(_wrap_gsl_integration_qawo_table_omega_get) {
4403 {
4404 gsl_integration_qawo_table *arg1 = (gsl_integration_qawo_table *) 0 ;
4405 void *argp1 = 0 ;
4406 int res1 = 0 ;
4407 int argvi = 0;
4408 double result;
4409 dXSARGS;
4410
4411 if ((items < 1) || (items > 1)) {
4412 SWIG_croak("Usage: gsl_integration_qawo_table_omega_get(self);");
4413 }
4414 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qawo_table, 0 | 0 );
4415 if (!SWIG_IsOK(res1)) {
4416 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qawo_table_omega_get" "', argument " "1"" of type '" "gsl_integration_qawo_table *""'");
4417 }
4418 arg1 = (gsl_integration_qawo_table *)(argp1);
4419 result = (double) ((arg1)->omega);
4420 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
4421
4422 XSRETURN(argvi);
4423 fail:
4424
4425 SWIG_croak_null();
4426 }
4427 }
4428
4429
XS(_wrap_gsl_integration_qawo_table_L_set)4430 XS(_wrap_gsl_integration_qawo_table_L_set) {
4431 {
4432 gsl_integration_qawo_table *arg1 = (gsl_integration_qawo_table *) 0 ;
4433 double arg2 ;
4434 void *argp1 = 0 ;
4435 int res1 = 0 ;
4436 double val2 ;
4437 int ecode2 = 0 ;
4438 int argvi = 0;
4439 dXSARGS;
4440
4441 if ((items < 2) || (items > 2)) {
4442 SWIG_croak("Usage: gsl_integration_qawo_table_L_set(self,L);");
4443 }
4444 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qawo_table, 0 | 0 );
4445 if (!SWIG_IsOK(res1)) {
4446 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qawo_table_L_set" "', argument " "1"" of type '" "gsl_integration_qawo_table *""'");
4447 }
4448 arg1 = (gsl_integration_qawo_table *)(argp1);
4449 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4450 if (!SWIG_IsOK(ecode2)) {
4451 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qawo_table_L_set" "', argument " "2"" of type '" "double""'");
4452 }
4453 arg2 = (double)(val2);
4454 if (arg1) (arg1)->L = arg2;
4455 ST(argvi) = &PL_sv_undef;
4456
4457
4458 XSRETURN(argvi);
4459 fail:
4460
4461
4462 SWIG_croak_null();
4463 }
4464 }
4465
4466
XS(_wrap_gsl_integration_qawo_table_L_get)4467 XS(_wrap_gsl_integration_qawo_table_L_get) {
4468 {
4469 gsl_integration_qawo_table *arg1 = (gsl_integration_qawo_table *) 0 ;
4470 void *argp1 = 0 ;
4471 int res1 = 0 ;
4472 int argvi = 0;
4473 double result;
4474 dXSARGS;
4475
4476 if ((items < 1) || (items > 1)) {
4477 SWIG_croak("Usage: gsl_integration_qawo_table_L_get(self);");
4478 }
4479 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qawo_table, 0 | 0 );
4480 if (!SWIG_IsOK(res1)) {
4481 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qawo_table_L_get" "', argument " "1"" of type '" "gsl_integration_qawo_table *""'");
4482 }
4483 arg1 = (gsl_integration_qawo_table *)(argp1);
4484 result = (double) ((arg1)->L);
4485 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
4486
4487 XSRETURN(argvi);
4488 fail:
4489
4490 SWIG_croak_null();
4491 }
4492 }
4493
4494
XS(_wrap_gsl_integration_qawo_table_par_set)4495 XS(_wrap_gsl_integration_qawo_table_par_set) {
4496 {
4497 gsl_integration_qawo_table *arg1 = (gsl_integration_qawo_table *) 0 ;
4498 double arg2 ;
4499 void *argp1 = 0 ;
4500 int res1 = 0 ;
4501 double val2 ;
4502 int ecode2 = 0 ;
4503 int argvi = 0;
4504 dXSARGS;
4505
4506 if ((items < 2) || (items > 2)) {
4507 SWIG_croak("Usage: gsl_integration_qawo_table_par_set(self,par);");
4508 }
4509 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qawo_table, 0 | 0 );
4510 if (!SWIG_IsOK(res1)) {
4511 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qawo_table_par_set" "', argument " "1"" of type '" "gsl_integration_qawo_table *""'");
4512 }
4513 arg1 = (gsl_integration_qawo_table *)(argp1);
4514 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4515 if (!SWIG_IsOK(ecode2)) {
4516 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qawo_table_par_set" "', argument " "2"" of type '" "double""'");
4517 }
4518 arg2 = (double)(val2);
4519 if (arg1) (arg1)->par = arg2;
4520 ST(argvi) = &PL_sv_undef;
4521
4522
4523 XSRETURN(argvi);
4524 fail:
4525
4526
4527 SWIG_croak_null();
4528 }
4529 }
4530
4531
XS(_wrap_gsl_integration_qawo_table_par_get)4532 XS(_wrap_gsl_integration_qawo_table_par_get) {
4533 {
4534 gsl_integration_qawo_table *arg1 = (gsl_integration_qawo_table *) 0 ;
4535 void *argp1 = 0 ;
4536 int res1 = 0 ;
4537 int argvi = 0;
4538 double result;
4539 dXSARGS;
4540
4541 if ((items < 1) || (items > 1)) {
4542 SWIG_croak("Usage: gsl_integration_qawo_table_par_get(self);");
4543 }
4544 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qawo_table, 0 | 0 );
4545 if (!SWIG_IsOK(res1)) {
4546 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qawo_table_par_get" "', argument " "1"" of type '" "gsl_integration_qawo_table *""'");
4547 }
4548 arg1 = (gsl_integration_qawo_table *)(argp1);
4549 result = (double) ((arg1)->par);
4550 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
4551
4552 XSRETURN(argvi);
4553 fail:
4554
4555 SWIG_croak_null();
4556 }
4557 }
4558
4559
XS(_wrap_gsl_integration_qawo_table_sine_set)4560 XS(_wrap_gsl_integration_qawo_table_sine_set) {
4561 {
4562 gsl_integration_qawo_table *arg1 = (gsl_integration_qawo_table *) 0 ;
4563 enum gsl_integration_qawo_enum arg2 ;
4564 void *argp1 = 0 ;
4565 int res1 = 0 ;
4566 int val2 ;
4567 int ecode2 = 0 ;
4568 int argvi = 0;
4569 dXSARGS;
4570
4571 if ((items < 2) || (items > 2)) {
4572 SWIG_croak("Usage: gsl_integration_qawo_table_sine_set(self,sine);");
4573 }
4574 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qawo_table, 0 | 0 );
4575 if (!SWIG_IsOK(res1)) {
4576 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qawo_table_sine_set" "', argument " "1"" of type '" "gsl_integration_qawo_table *""'");
4577 }
4578 arg1 = (gsl_integration_qawo_table *)(argp1);
4579 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4580 if (!SWIG_IsOK(ecode2)) {
4581 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qawo_table_sine_set" "', argument " "2"" of type '" "enum gsl_integration_qawo_enum""'");
4582 }
4583 arg2 = (enum gsl_integration_qawo_enum)(val2);
4584 if (arg1) (arg1)->sine = arg2;
4585 ST(argvi) = &PL_sv_undef;
4586
4587
4588 XSRETURN(argvi);
4589 fail:
4590
4591
4592 SWIG_croak_null();
4593 }
4594 }
4595
4596
XS(_wrap_gsl_integration_qawo_table_sine_get)4597 XS(_wrap_gsl_integration_qawo_table_sine_get) {
4598 {
4599 gsl_integration_qawo_table *arg1 = (gsl_integration_qawo_table *) 0 ;
4600 void *argp1 = 0 ;
4601 int res1 = 0 ;
4602 int argvi = 0;
4603 enum gsl_integration_qawo_enum result;
4604 dXSARGS;
4605
4606 if ((items < 1) || (items > 1)) {
4607 SWIG_croak("Usage: gsl_integration_qawo_table_sine_get(self);");
4608 }
4609 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qawo_table, 0 | 0 );
4610 if (!SWIG_IsOK(res1)) {
4611 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qawo_table_sine_get" "', argument " "1"" of type '" "gsl_integration_qawo_table *""'");
4612 }
4613 arg1 = (gsl_integration_qawo_table *)(argp1);
4614 result = (enum gsl_integration_qawo_enum) ((arg1)->sine);
4615 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4616
4617 XSRETURN(argvi);
4618 fail:
4619
4620 SWIG_croak_null();
4621 }
4622 }
4623
4624
XS(_wrap_gsl_integration_qawo_table_chebmo_set)4625 XS(_wrap_gsl_integration_qawo_table_chebmo_set) {
4626 {
4627 gsl_integration_qawo_table *arg1 = (gsl_integration_qawo_table *) 0 ;
4628 double *arg2 = (double *) 0 ;
4629 void *argp1 = 0 ;
4630 int res1 = 0 ;
4631 void *argp2 = 0 ;
4632 int res2 = 0 ;
4633 int argvi = 0;
4634 dXSARGS;
4635
4636 if ((items < 2) || (items > 2)) {
4637 SWIG_croak("Usage: gsl_integration_qawo_table_chebmo_set(self,chebmo);");
4638 }
4639 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qawo_table, 0 | 0 );
4640 if (!SWIG_IsOK(res1)) {
4641 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qawo_table_chebmo_set" "', argument " "1"" of type '" "gsl_integration_qawo_table *""'");
4642 }
4643 arg1 = (gsl_integration_qawo_table *)(argp1);
4644 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
4645 if (!SWIG_IsOK(res2)) {
4646 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_qawo_table_chebmo_set" "', argument " "2"" of type '" "double *""'");
4647 }
4648 arg2 = (double *)(argp2);
4649 if (arg1) (arg1)->chebmo = arg2;
4650 ST(argvi) = &PL_sv_undef;
4651
4652
4653 XSRETURN(argvi);
4654 fail:
4655
4656
4657 SWIG_croak_null();
4658 }
4659 }
4660
4661
XS(_wrap_gsl_integration_qawo_table_chebmo_get)4662 XS(_wrap_gsl_integration_qawo_table_chebmo_get) {
4663 {
4664 gsl_integration_qawo_table *arg1 = (gsl_integration_qawo_table *) 0 ;
4665 void *argp1 = 0 ;
4666 int res1 = 0 ;
4667 int argvi = 0;
4668 double *result = 0 ;
4669 dXSARGS;
4670
4671 if ((items < 1) || (items > 1)) {
4672 SWIG_croak("Usage: gsl_integration_qawo_table_chebmo_get(self);");
4673 }
4674 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qawo_table, 0 | 0 );
4675 if (!SWIG_IsOK(res1)) {
4676 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qawo_table_chebmo_get" "', argument " "1"" of type '" "gsl_integration_qawo_table *""'");
4677 }
4678 arg1 = (gsl_integration_qawo_table *)(argp1);
4679 result = (double *) ((arg1)->chebmo);
4680 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
4681
4682 XSRETURN(argvi);
4683 fail:
4684
4685 SWIG_croak_null();
4686 }
4687 }
4688
4689
XS(_wrap_new_gsl_integration_qawo_table)4690 XS(_wrap_new_gsl_integration_qawo_table) {
4691 {
4692 int argvi = 0;
4693 gsl_integration_qawo_table *result = 0 ;
4694 dXSARGS;
4695
4696 if ((items < 0) || (items > 0)) {
4697 SWIG_croak("Usage: new_gsl_integration_qawo_table();");
4698 }
4699 result = (gsl_integration_qawo_table *)calloc(1, sizeof(gsl_integration_qawo_table));
4700 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_integration_qawo_table, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
4701 XSRETURN(argvi);
4702 fail:
4703 SWIG_croak_null();
4704 }
4705 }
4706
4707
XS(_wrap_delete_gsl_integration_qawo_table)4708 XS(_wrap_delete_gsl_integration_qawo_table) {
4709 {
4710 gsl_integration_qawo_table *arg1 = (gsl_integration_qawo_table *) 0 ;
4711 void *argp1 = 0 ;
4712 int res1 = 0 ;
4713 int argvi = 0;
4714 dXSARGS;
4715
4716 if ((items < 1) || (items > 1)) {
4717 SWIG_croak("Usage: delete_gsl_integration_qawo_table(self);");
4718 }
4719 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qawo_table, SWIG_POINTER_DISOWN | 0 );
4720 if (!SWIG_IsOK(res1)) {
4721 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_integration_qawo_table" "', argument " "1"" of type '" "gsl_integration_qawo_table *""'");
4722 }
4723 arg1 = (gsl_integration_qawo_table *)(argp1);
4724 free((char *) arg1);
4725 ST(argvi) = &PL_sv_undef;
4726
4727 XSRETURN(argvi);
4728 fail:
4729
4730 SWIG_croak_null();
4731 }
4732 }
4733
4734
XS(_wrap_gsl_integration_qawo_table_alloc)4735 XS(_wrap_gsl_integration_qawo_table_alloc) {
4736 {
4737 double arg1 ;
4738 double arg2 ;
4739 enum gsl_integration_qawo_enum arg3 ;
4740 size_t arg4 ;
4741 double val1 ;
4742 int ecode1 = 0 ;
4743 double val2 ;
4744 int ecode2 = 0 ;
4745 int val3 ;
4746 int ecode3 = 0 ;
4747 size_t val4 ;
4748 int ecode4 = 0 ;
4749 int argvi = 0;
4750 gsl_integration_qawo_table *result = 0 ;
4751 dXSARGS;
4752
4753 if ((items < 4) || (items > 4)) {
4754 SWIG_croak("Usage: gsl_integration_qawo_table_alloc(omega,L,sine,n);");
4755 }
4756 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
4757 if (!SWIG_IsOK(ecode1)) {
4758 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_integration_qawo_table_alloc" "', argument " "1"" of type '" "double""'");
4759 }
4760 arg1 = (double)(val1);
4761 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4762 if (!SWIG_IsOK(ecode2)) {
4763 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qawo_table_alloc" "', argument " "2"" of type '" "double""'");
4764 }
4765 arg2 = (double)(val2);
4766 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
4767 if (!SWIG_IsOK(ecode3)) {
4768 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qawo_table_alloc" "', argument " "3"" of type '" "enum gsl_integration_qawo_enum""'");
4769 }
4770 arg3 = (enum gsl_integration_qawo_enum)(val3);
4771 ecode4 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
4772 if (!SWIG_IsOK(ecode4)) {
4773 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_integration_qawo_table_alloc" "', argument " "4"" of type '" "size_t""'");
4774 }
4775 arg4 = (size_t)(val4);
4776 result = (gsl_integration_qawo_table *)gsl_integration_qawo_table_alloc(arg1,arg2,arg3,arg4);
4777 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_integration_qawo_table, 0 | SWIG_SHADOW); argvi++ ;
4778
4779
4780
4781
4782 XSRETURN(argvi);
4783 fail:
4784
4785
4786
4787
4788 SWIG_croak_null();
4789 }
4790 }
4791
4792
XS(_wrap_gsl_integration_qawo_table_set)4793 XS(_wrap_gsl_integration_qawo_table_set) {
4794 {
4795 gsl_integration_qawo_table *arg1 = (gsl_integration_qawo_table *) 0 ;
4796 double arg2 ;
4797 double arg3 ;
4798 enum gsl_integration_qawo_enum arg4 ;
4799 void *argp1 = 0 ;
4800 int res1 = 0 ;
4801 double val2 ;
4802 int ecode2 = 0 ;
4803 double val3 ;
4804 int ecode3 = 0 ;
4805 int val4 ;
4806 int ecode4 = 0 ;
4807 int argvi = 0;
4808 int result;
4809 dXSARGS;
4810
4811 if ((items < 4) || (items > 4)) {
4812 SWIG_croak("Usage: gsl_integration_qawo_table_set(t,omega,L,sine);");
4813 }
4814 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qawo_table, 0 | 0 );
4815 if (!SWIG_IsOK(res1)) {
4816 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qawo_table_set" "', argument " "1"" of type '" "gsl_integration_qawo_table *""'");
4817 }
4818 arg1 = (gsl_integration_qawo_table *)(argp1);
4819 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4820 if (!SWIG_IsOK(ecode2)) {
4821 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qawo_table_set" "', argument " "2"" of type '" "double""'");
4822 }
4823 arg2 = (double)(val2);
4824 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
4825 if (!SWIG_IsOK(ecode3)) {
4826 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qawo_table_set" "', argument " "3"" of type '" "double""'");
4827 }
4828 arg3 = (double)(val3);
4829 ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
4830 if (!SWIG_IsOK(ecode4)) {
4831 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_integration_qawo_table_set" "', argument " "4"" of type '" "enum gsl_integration_qawo_enum""'");
4832 }
4833 arg4 = (enum gsl_integration_qawo_enum)(val4);
4834 result = (int)gsl_integration_qawo_table_set(arg1,arg2,arg3,arg4);
4835 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4836
4837
4838
4839
4840 XSRETURN(argvi);
4841 fail:
4842
4843
4844
4845
4846 SWIG_croak_null();
4847 }
4848 }
4849
4850
XS(_wrap_gsl_integration_qawo_table_set_length)4851 XS(_wrap_gsl_integration_qawo_table_set_length) {
4852 {
4853 gsl_integration_qawo_table *arg1 = (gsl_integration_qawo_table *) 0 ;
4854 double arg2 ;
4855 void *argp1 = 0 ;
4856 int res1 = 0 ;
4857 double val2 ;
4858 int ecode2 = 0 ;
4859 int argvi = 0;
4860 int result;
4861 dXSARGS;
4862
4863 if ((items < 2) || (items > 2)) {
4864 SWIG_croak("Usage: gsl_integration_qawo_table_set_length(t,L);");
4865 }
4866 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qawo_table, 0 | 0 );
4867 if (!SWIG_IsOK(res1)) {
4868 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qawo_table_set_length" "', argument " "1"" of type '" "gsl_integration_qawo_table *""'");
4869 }
4870 arg1 = (gsl_integration_qawo_table *)(argp1);
4871 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4872 if (!SWIG_IsOK(ecode2)) {
4873 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qawo_table_set_length" "', argument " "2"" of type '" "double""'");
4874 }
4875 arg2 = (double)(val2);
4876 result = (int)gsl_integration_qawo_table_set_length(arg1,arg2);
4877 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4878
4879
4880 XSRETURN(argvi);
4881 fail:
4882
4883
4884 SWIG_croak_null();
4885 }
4886 }
4887
4888
XS(_wrap_gsl_integration_qawo_table_free)4889 XS(_wrap_gsl_integration_qawo_table_free) {
4890 {
4891 gsl_integration_qawo_table *arg1 = (gsl_integration_qawo_table *) 0 ;
4892 void *argp1 = 0 ;
4893 int res1 = 0 ;
4894 int argvi = 0;
4895 dXSARGS;
4896
4897 if ((items < 1) || (items > 1)) {
4898 SWIG_croak("Usage: gsl_integration_qawo_table_free(t);");
4899 }
4900 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qawo_table, 0 | 0 );
4901 if (!SWIG_IsOK(res1)) {
4902 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qawo_table_free" "', argument " "1"" of type '" "gsl_integration_qawo_table *""'");
4903 }
4904 arg1 = (gsl_integration_qawo_table *)(argp1);
4905 gsl_integration_qawo_table_free(arg1);
4906 ST(argvi) = &PL_sv_undef;
4907
4908 XSRETURN(argvi);
4909 fail:
4910
4911 SWIG_croak_null();
4912 }
4913 }
4914
4915
XS(_wrap_gsl_integration_qk15)4916 XS(_wrap_gsl_integration_qk15) {
4917 {
4918 gsl_function *arg1 = (gsl_function *) 0 ;
4919 double arg2 ;
4920 double arg3 ;
4921 double *arg4 = (double *) 0 ;
4922 double *arg5 = (double *) 0 ;
4923 double *arg6 = (double *) 0 ;
4924 double *arg7 = (double *) 0 ;
4925 double val2 ;
4926 int ecode2 = 0 ;
4927 double val3 ;
4928 int ecode3 = 0 ;
4929 double temp4 ;
4930 int res4 = SWIG_TMPOBJ ;
4931 double temp5 ;
4932 int res5 = SWIG_TMPOBJ ;
4933 void *argp6 = 0 ;
4934 int res6 = 0 ;
4935 void *argp7 = 0 ;
4936 int res7 = 0 ;
4937 int argvi = 0;
4938 dXSARGS;
4939
4940 arg4 = &temp4;
4941 arg5 = &temp5;
4942 if ((items < 5) || (items > 5)) {
4943 SWIG_croak("Usage: gsl_integration_qk15(f,a,b,resabs,resasc);");
4944 }
4945 {
4946 SV * function = 0;
4947 SV * params = 0;
4948 struct gsl_function_perl *w_gsl_function;
4949 Newx(w_gsl_function, 1, struct gsl_function_perl);
4950
4951 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
4952 AV* array=(AV*)SvRV(ST(0));
4953 SV ** p_function = 0;
4954 if (av_len(array)<0) {
4955 croak("Math::GSL : $f is an empty array!");
4956 }
4957 if (av_len(array)>1) {
4958 croak("Math::GSL : $f is an array with more than 2 elements!");
4959 }
4960 p_function = av_fetch(array, 0, 0);
4961 function = *p_function;
4962 if (av_len(array)>0) {
4963 SV ** p_params = 0;
4964 p_params = av_fetch(array, 1, 0);
4965 params = *p_params;
4966 }
4967 } else {
4968 function = ST(0);
4969 }
4970
4971 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
4972 croak("Math::GSL : $f is not a reference to code!");
4973 }
4974
4975 function = newSVsv(function);
4976
4977 if (! params) {
4978 params=&PL_sv_undef;
4979 }
4980 params = newSVsv(params);
4981
4982 w_gsl_function->params = params;
4983 w_gsl_function->function = function;
4984 w_gsl_function->C_gsl_function.params = w_gsl_function;
4985 w_gsl_function->C_gsl_function.function = &call_gsl_function;
4986
4987 arg1 = &(w_gsl_function->C_gsl_function);
4988 }
4989 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4990 if (!SWIG_IsOK(ecode2)) {
4991 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qk15" "', argument " "2"" of type '" "double""'");
4992 }
4993 arg2 = (double)(val2);
4994 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
4995 if (!SWIG_IsOK(ecode3)) {
4996 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qk15" "', argument " "3"" of type '" "double""'");
4997 }
4998 arg3 = (double)(val3);
4999 res6 = SWIG_ConvertPtr(ST(3), &argp6,SWIGTYPE_p_double, 0 | 0 );
5000 if (!SWIG_IsOK(res6)) {
5001 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_integration_qk15" "', argument " "6"" of type '" "double *""'");
5002 }
5003 arg6 = (double *)(argp6);
5004 res7 = SWIG_ConvertPtr(ST(4), &argp7,SWIGTYPE_p_double, 0 | 0 );
5005 if (!SWIG_IsOK(res7)) {
5006 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_integration_qk15" "', argument " "7"" of type '" "double *""'");
5007 }
5008 arg7 = (double *)(argp7);
5009 gsl_integration_qk15((struct gsl_function_struct const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7);
5010 ST(argvi) = &PL_sv_undef;
5011 if (SWIG_IsTmpObj(res4)) {
5012 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++ ;
5013 } else {
5014 int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
5015 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_double, new_flags); argvi++ ;
5016 }
5017 if (SWIG_IsTmpObj(res5)) {
5018 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg5)); argvi++ ;
5019 } else {
5020 int new_flags = SWIG_IsNewObj(res5) ? (SWIG_POINTER_OWN | 0) : 0;
5021 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg5), SWIGTYPE_p_double, new_flags); argvi++ ;
5022 }
5023 {
5024 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
5025 gsl_function_perl_free(p);
5026 }
5027
5028
5029
5030
5031
5032
5033 XSRETURN(argvi);
5034 fail:
5035 {
5036 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
5037 gsl_function_perl_free(p);
5038 }
5039
5040
5041
5042
5043
5044
5045 SWIG_croak_null();
5046 }
5047 }
5048
5049
XS(_wrap_gsl_integration_qk21)5050 XS(_wrap_gsl_integration_qk21) {
5051 {
5052 gsl_function *arg1 = (gsl_function *) 0 ;
5053 double arg2 ;
5054 double arg3 ;
5055 double *arg4 = (double *) 0 ;
5056 double *arg5 = (double *) 0 ;
5057 double *arg6 = (double *) 0 ;
5058 double *arg7 = (double *) 0 ;
5059 double val2 ;
5060 int ecode2 = 0 ;
5061 double val3 ;
5062 int ecode3 = 0 ;
5063 double temp4 ;
5064 int res4 = SWIG_TMPOBJ ;
5065 double temp5 ;
5066 int res5 = SWIG_TMPOBJ ;
5067 void *argp6 = 0 ;
5068 int res6 = 0 ;
5069 void *argp7 = 0 ;
5070 int res7 = 0 ;
5071 int argvi = 0;
5072 dXSARGS;
5073
5074 arg4 = &temp4;
5075 arg5 = &temp5;
5076 if ((items < 5) || (items > 5)) {
5077 SWIG_croak("Usage: gsl_integration_qk21(f,a,b,resabs,resasc);");
5078 }
5079 {
5080 SV * function = 0;
5081 SV * params = 0;
5082 struct gsl_function_perl *w_gsl_function;
5083 Newx(w_gsl_function, 1, struct gsl_function_perl);
5084
5085 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
5086 AV* array=(AV*)SvRV(ST(0));
5087 SV ** p_function = 0;
5088 if (av_len(array)<0) {
5089 croak("Math::GSL : $f is an empty array!");
5090 }
5091 if (av_len(array)>1) {
5092 croak("Math::GSL : $f is an array with more than 2 elements!");
5093 }
5094 p_function = av_fetch(array, 0, 0);
5095 function = *p_function;
5096 if (av_len(array)>0) {
5097 SV ** p_params = 0;
5098 p_params = av_fetch(array, 1, 0);
5099 params = *p_params;
5100 }
5101 } else {
5102 function = ST(0);
5103 }
5104
5105 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
5106 croak("Math::GSL : $f is not a reference to code!");
5107 }
5108
5109 function = newSVsv(function);
5110
5111 if (! params) {
5112 params=&PL_sv_undef;
5113 }
5114 params = newSVsv(params);
5115
5116 w_gsl_function->params = params;
5117 w_gsl_function->function = function;
5118 w_gsl_function->C_gsl_function.params = w_gsl_function;
5119 w_gsl_function->C_gsl_function.function = &call_gsl_function;
5120
5121 arg1 = &(w_gsl_function->C_gsl_function);
5122 }
5123 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5124 if (!SWIG_IsOK(ecode2)) {
5125 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qk21" "', argument " "2"" of type '" "double""'");
5126 }
5127 arg2 = (double)(val2);
5128 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
5129 if (!SWIG_IsOK(ecode3)) {
5130 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qk21" "', argument " "3"" of type '" "double""'");
5131 }
5132 arg3 = (double)(val3);
5133 res6 = SWIG_ConvertPtr(ST(3), &argp6,SWIGTYPE_p_double, 0 | 0 );
5134 if (!SWIG_IsOK(res6)) {
5135 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_integration_qk21" "', argument " "6"" of type '" "double *""'");
5136 }
5137 arg6 = (double *)(argp6);
5138 res7 = SWIG_ConvertPtr(ST(4), &argp7,SWIGTYPE_p_double, 0 | 0 );
5139 if (!SWIG_IsOK(res7)) {
5140 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_integration_qk21" "', argument " "7"" of type '" "double *""'");
5141 }
5142 arg7 = (double *)(argp7);
5143 gsl_integration_qk21((struct gsl_function_struct const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7);
5144 ST(argvi) = &PL_sv_undef;
5145 if (SWIG_IsTmpObj(res4)) {
5146 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++ ;
5147 } else {
5148 int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
5149 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_double, new_flags); argvi++ ;
5150 }
5151 if (SWIG_IsTmpObj(res5)) {
5152 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg5)); argvi++ ;
5153 } else {
5154 int new_flags = SWIG_IsNewObj(res5) ? (SWIG_POINTER_OWN | 0) : 0;
5155 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg5), SWIGTYPE_p_double, new_flags); argvi++ ;
5156 }
5157 {
5158 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
5159 gsl_function_perl_free(p);
5160 }
5161
5162
5163
5164
5165
5166
5167 XSRETURN(argvi);
5168 fail:
5169 {
5170 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
5171 gsl_function_perl_free(p);
5172 }
5173
5174
5175
5176
5177
5178
5179 SWIG_croak_null();
5180 }
5181 }
5182
5183
XS(_wrap_gsl_integration_qk31)5184 XS(_wrap_gsl_integration_qk31) {
5185 {
5186 gsl_function *arg1 = (gsl_function *) 0 ;
5187 double arg2 ;
5188 double arg3 ;
5189 double *arg4 = (double *) 0 ;
5190 double *arg5 = (double *) 0 ;
5191 double *arg6 = (double *) 0 ;
5192 double *arg7 = (double *) 0 ;
5193 double val2 ;
5194 int ecode2 = 0 ;
5195 double val3 ;
5196 int ecode3 = 0 ;
5197 double temp4 ;
5198 int res4 = SWIG_TMPOBJ ;
5199 double temp5 ;
5200 int res5 = SWIG_TMPOBJ ;
5201 void *argp6 = 0 ;
5202 int res6 = 0 ;
5203 void *argp7 = 0 ;
5204 int res7 = 0 ;
5205 int argvi = 0;
5206 dXSARGS;
5207
5208 arg4 = &temp4;
5209 arg5 = &temp5;
5210 if ((items < 5) || (items > 5)) {
5211 SWIG_croak("Usage: gsl_integration_qk31(f,a,b,resabs,resasc);");
5212 }
5213 {
5214 SV * function = 0;
5215 SV * params = 0;
5216 struct gsl_function_perl *w_gsl_function;
5217 Newx(w_gsl_function, 1, struct gsl_function_perl);
5218
5219 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
5220 AV* array=(AV*)SvRV(ST(0));
5221 SV ** p_function = 0;
5222 if (av_len(array)<0) {
5223 croak("Math::GSL : $f is an empty array!");
5224 }
5225 if (av_len(array)>1) {
5226 croak("Math::GSL : $f is an array with more than 2 elements!");
5227 }
5228 p_function = av_fetch(array, 0, 0);
5229 function = *p_function;
5230 if (av_len(array)>0) {
5231 SV ** p_params = 0;
5232 p_params = av_fetch(array, 1, 0);
5233 params = *p_params;
5234 }
5235 } else {
5236 function = ST(0);
5237 }
5238
5239 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
5240 croak("Math::GSL : $f is not a reference to code!");
5241 }
5242
5243 function = newSVsv(function);
5244
5245 if (! params) {
5246 params=&PL_sv_undef;
5247 }
5248 params = newSVsv(params);
5249
5250 w_gsl_function->params = params;
5251 w_gsl_function->function = function;
5252 w_gsl_function->C_gsl_function.params = w_gsl_function;
5253 w_gsl_function->C_gsl_function.function = &call_gsl_function;
5254
5255 arg1 = &(w_gsl_function->C_gsl_function);
5256 }
5257 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5258 if (!SWIG_IsOK(ecode2)) {
5259 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qk31" "', argument " "2"" of type '" "double""'");
5260 }
5261 arg2 = (double)(val2);
5262 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
5263 if (!SWIG_IsOK(ecode3)) {
5264 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qk31" "', argument " "3"" of type '" "double""'");
5265 }
5266 arg3 = (double)(val3);
5267 res6 = SWIG_ConvertPtr(ST(3), &argp6,SWIGTYPE_p_double, 0 | 0 );
5268 if (!SWIG_IsOK(res6)) {
5269 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_integration_qk31" "', argument " "6"" of type '" "double *""'");
5270 }
5271 arg6 = (double *)(argp6);
5272 res7 = SWIG_ConvertPtr(ST(4), &argp7,SWIGTYPE_p_double, 0 | 0 );
5273 if (!SWIG_IsOK(res7)) {
5274 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_integration_qk31" "', argument " "7"" of type '" "double *""'");
5275 }
5276 arg7 = (double *)(argp7);
5277 gsl_integration_qk31((struct gsl_function_struct const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7);
5278 ST(argvi) = &PL_sv_undef;
5279 if (SWIG_IsTmpObj(res4)) {
5280 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++ ;
5281 } else {
5282 int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
5283 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_double, new_flags); argvi++ ;
5284 }
5285 if (SWIG_IsTmpObj(res5)) {
5286 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg5)); argvi++ ;
5287 } else {
5288 int new_flags = SWIG_IsNewObj(res5) ? (SWIG_POINTER_OWN | 0) : 0;
5289 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg5), SWIGTYPE_p_double, new_flags); argvi++ ;
5290 }
5291 {
5292 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
5293 gsl_function_perl_free(p);
5294 }
5295
5296
5297
5298
5299
5300
5301 XSRETURN(argvi);
5302 fail:
5303 {
5304 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
5305 gsl_function_perl_free(p);
5306 }
5307
5308
5309
5310
5311
5312
5313 SWIG_croak_null();
5314 }
5315 }
5316
5317
XS(_wrap_gsl_integration_qk41)5318 XS(_wrap_gsl_integration_qk41) {
5319 {
5320 gsl_function *arg1 = (gsl_function *) 0 ;
5321 double arg2 ;
5322 double arg3 ;
5323 double *arg4 = (double *) 0 ;
5324 double *arg5 = (double *) 0 ;
5325 double *arg6 = (double *) 0 ;
5326 double *arg7 = (double *) 0 ;
5327 double val2 ;
5328 int ecode2 = 0 ;
5329 double val3 ;
5330 int ecode3 = 0 ;
5331 double temp4 ;
5332 int res4 = SWIG_TMPOBJ ;
5333 double temp5 ;
5334 int res5 = SWIG_TMPOBJ ;
5335 void *argp6 = 0 ;
5336 int res6 = 0 ;
5337 void *argp7 = 0 ;
5338 int res7 = 0 ;
5339 int argvi = 0;
5340 dXSARGS;
5341
5342 arg4 = &temp4;
5343 arg5 = &temp5;
5344 if ((items < 5) || (items > 5)) {
5345 SWIG_croak("Usage: gsl_integration_qk41(f,a,b,resabs,resasc);");
5346 }
5347 {
5348 SV * function = 0;
5349 SV * params = 0;
5350 struct gsl_function_perl *w_gsl_function;
5351 Newx(w_gsl_function, 1, struct gsl_function_perl);
5352
5353 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
5354 AV* array=(AV*)SvRV(ST(0));
5355 SV ** p_function = 0;
5356 if (av_len(array)<0) {
5357 croak("Math::GSL : $f is an empty array!");
5358 }
5359 if (av_len(array)>1) {
5360 croak("Math::GSL : $f is an array with more than 2 elements!");
5361 }
5362 p_function = av_fetch(array, 0, 0);
5363 function = *p_function;
5364 if (av_len(array)>0) {
5365 SV ** p_params = 0;
5366 p_params = av_fetch(array, 1, 0);
5367 params = *p_params;
5368 }
5369 } else {
5370 function = ST(0);
5371 }
5372
5373 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
5374 croak("Math::GSL : $f is not a reference to code!");
5375 }
5376
5377 function = newSVsv(function);
5378
5379 if (! params) {
5380 params=&PL_sv_undef;
5381 }
5382 params = newSVsv(params);
5383
5384 w_gsl_function->params = params;
5385 w_gsl_function->function = function;
5386 w_gsl_function->C_gsl_function.params = w_gsl_function;
5387 w_gsl_function->C_gsl_function.function = &call_gsl_function;
5388
5389 arg1 = &(w_gsl_function->C_gsl_function);
5390 }
5391 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5392 if (!SWIG_IsOK(ecode2)) {
5393 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qk41" "', argument " "2"" of type '" "double""'");
5394 }
5395 arg2 = (double)(val2);
5396 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
5397 if (!SWIG_IsOK(ecode3)) {
5398 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qk41" "', argument " "3"" of type '" "double""'");
5399 }
5400 arg3 = (double)(val3);
5401 res6 = SWIG_ConvertPtr(ST(3), &argp6,SWIGTYPE_p_double, 0 | 0 );
5402 if (!SWIG_IsOK(res6)) {
5403 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_integration_qk41" "', argument " "6"" of type '" "double *""'");
5404 }
5405 arg6 = (double *)(argp6);
5406 res7 = SWIG_ConvertPtr(ST(4), &argp7,SWIGTYPE_p_double, 0 | 0 );
5407 if (!SWIG_IsOK(res7)) {
5408 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_integration_qk41" "', argument " "7"" of type '" "double *""'");
5409 }
5410 arg7 = (double *)(argp7);
5411 gsl_integration_qk41((struct gsl_function_struct const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7);
5412 ST(argvi) = &PL_sv_undef;
5413 if (SWIG_IsTmpObj(res4)) {
5414 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++ ;
5415 } else {
5416 int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
5417 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_double, new_flags); argvi++ ;
5418 }
5419 if (SWIG_IsTmpObj(res5)) {
5420 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg5)); argvi++ ;
5421 } else {
5422 int new_flags = SWIG_IsNewObj(res5) ? (SWIG_POINTER_OWN | 0) : 0;
5423 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg5), SWIGTYPE_p_double, new_flags); argvi++ ;
5424 }
5425 {
5426 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
5427 gsl_function_perl_free(p);
5428 }
5429
5430
5431
5432
5433
5434
5435 XSRETURN(argvi);
5436 fail:
5437 {
5438 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
5439 gsl_function_perl_free(p);
5440 }
5441
5442
5443
5444
5445
5446
5447 SWIG_croak_null();
5448 }
5449 }
5450
5451
XS(_wrap_gsl_integration_qk51)5452 XS(_wrap_gsl_integration_qk51) {
5453 {
5454 gsl_function *arg1 = (gsl_function *) 0 ;
5455 double arg2 ;
5456 double arg3 ;
5457 double *arg4 = (double *) 0 ;
5458 double *arg5 = (double *) 0 ;
5459 double *arg6 = (double *) 0 ;
5460 double *arg7 = (double *) 0 ;
5461 double val2 ;
5462 int ecode2 = 0 ;
5463 double val3 ;
5464 int ecode3 = 0 ;
5465 double temp4 ;
5466 int res4 = SWIG_TMPOBJ ;
5467 double temp5 ;
5468 int res5 = SWIG_TMPOBJ ;
5469 void *argp6 = 0 ;
5470 int res6 = 0 ;
5471 void *argp7 = 0 ;
5472 int res7 = 0 ;
5473 int argvi = 0;
5474 dXSARGS;
5475
5476 arg4 = &temp4;
5477 arg5 = &temp5;
5478 if ((items < 5) || (items > 5)) {
5479 SWIG_croak("Usage: gsl_integration_qk51(f,a,b,resabs,resasc);");
5480 }
5481 {
5482 SV * function = 0;
5483 SV * params = 0;
5484 struct gsl_function_perl *w_gsl_function;
5485 Newx(w_gsl_function, 1, struct gsl_function_perl);
5486
5487 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
5488 AV* array=(AV*)SvRV(ST(0));
5489 SV ** p_function = 0;
5490 if (av_len(array)<0) {
5491 croak("Math::GSL : $f is an empty array!");
5492 }
5493 if (av_len(array)>1) {
5494 croak("Math::GSL : $f is an array with more than 2 elements!");
5495 }
5496 p_function = av_fetch(array, 0, 0);
5497 function = *p_function;
5498 if (av_len(array)>0) {
5499 SV ** p_params = 0;
5500 p_params = av_fetch(array, 1, 0);
5501 params = *p_params;
5502 }
5503 } else {
5504 function = ST(0);
5505 }
5506
5507 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
5508 croak("Math::GSL : $f is not a reference to code!");
5509 }
5510
5511 function = newSVsv(function);
5512
5513 if (! params) {
5514 params=&PL_sv_undef;
5515 }
5516 params = newSVsv(params);
5517
5518 w_gsl_function->params = params;
5519 w_gsl_function->function = function;
5520 w_gsl_function->C_gsl_function.params = w_gsl_function;
5521 w_gsl_function->C_gsl_function.function = &call_gsl_function;
5522
5523 arg1 = &(w_gsl_function->C_gsl_function);
5524 }
5525 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5526 if (!SWIG_IsOK(ecode2)) {
5527 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qk51" "', argument " "2"" of type '" "double""'");
5528 }
5529 arg2 = (double)(val2);
5530 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
5531 if (!SWIG_IsOK(ecode3)) {
5532 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qk51" "', argument " "3"" of type '" "double""'");
5533 }
5534 arg3 = (double)(val3);
5535 res6 = SWIG_ConvertPtr(ST(3), &argp6,SWIGTYPE_p_double, 0 | 0 );
5536 if (!SWIG_IsOK(res6)) {
5537 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_integration_qk51" "', argument " "6"" of type '" "double *""'");
5538 }
5539 arg6 = (double *)(argp6);
5540 res7 = SWIG_ConvertPtr(ST(4), &argp7,SWIGTYPE_p_double, 0 | 0 );
5541 if (!SWIG_IsOK(res7)) {
5542 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_integration_qk51" "', argument " "7"" of type '" "double *""'");
5543 }
5544 arg7 = (double *)(argp7);
5545 gsl_integration_qk51((struct gsl_function_struct const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7);
5546 ST(argvi) = &PL_sv_undef;
5547 if (SWIG_IsTmpObj(res4)) {
5548 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++ ;
5549 } else {
5550 int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
5551 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_double, new_flags); argvi++ ;
5552 }
5553 if (SWIG_IsTmpObj(res5)) {
5554 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg5)); argvi++ ;
5555 } else {
5556 int new_flags = SWIG_IsNewObj(res5) ? (SWIG_POINTER_OWN | 0) : 0;
5557 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg5), SWIGTYPE_p_double, new_flags); argvi++ ;
5558 }
5559 {
5560 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
5561 gsl_function_perl_free(p);
5562 }
5563
5564
5565
5566
5567
5568
5569 XSRETURN(argvi);
5570 fail:
5571 {
5572 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
5573 gsl_function_perl_free(p);
5574 }
5575
5576
5577
5578
5579
5580
5581 SWIG_croak_null();
5582 }
5583 }
5584
5585
XS(_wrap_gsl_integration_qk61)5586 XS(_wrap_gsl_integration_qk61) {
5587 {
5588 gsl_function *arg1 = (gsl_function *) 0 ;
5589 double arg2 ;
5590 double arg3 ;
5591 double *arg4 = (double *) 0 ;
5592 double *arg5 = (double *) 0 ;
5593 double *arg6 = (double *) 0 ;
5594 double *arg7 = (double *) 0 ;
5595 double val2 ;
5596 int ecode2 = 0 ;
5597 double val3 ;
5598 int ecode3 = 0 ;
5599 double temp4 ;
5600 int res4 = SWIG_TMPOBJ ;
5601 double temp5 ;
5602 int res5 = SWIG_TMPOBJ ;
5603 void *argp6 = 0 ;
5604 int res6 = 0 ;
5605 void *argp7 = 0 ;
5606 int res7 = 0 ;
5607 int argvi = 0;
5608 dXSARGS;
5609
5610 arg4 = &temp4;
5611 arg5 = &temp5;
5612 if ((items < 5) || (items > 5)) {
5613 SWIG_croak("Usage: gsl_integration_qk61(f,a,b,resabs,resasc);");
5614 }
5615 {
5616 SV * function = 0;
5617 SV * params = 0;
5618 struct gsl_function_perl *w_gsl_function;
5619 Newx(w_gsl_function, 1, struct gsl_function_perl);
5620
5621 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
5622 AV* array=(AV*)SvRV(ST(0));
5623 SV ** p_function = 0;
5624 if (av_len(array)<0) {
5625 croak("Math::GSL : $f is an empty array!");
5626 }
5627 if (av_len(array)>1) {
5628 croak("Math::GSL : $f is an array with more than 2 elements!");
5629 }
5630 p_function = av_fetch(array, 0, 0);
5631 function = *p_function;
5632 if (av_len(array)>0) {
5633 SV ** p_params = 0;
5634 p_params = av_fetch(array, 1, 0);
5635 params = *p_params;
5636 }
5637 } else {
5638 function = ST(0);
5639 }
5640
5641 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
5642 croak("Math::GSL : $f is not a reference to code!");
5643 }
5644
5645 function = newSVsv(function);
5646
5647 if (! params) {
5648 params=&PL_sv_undef;
5649 }
5650 params = newSVsv(params);
5651
5652 w_gsl_function->params = params;
5653 w_gsl_function->function = function;
5654 w_gsl_function->C_gsl_function.params = w_gsl_function;
5655 w_gsl_function->C_gsl_function.function = &call_gsl_function;
5656
5657 arg1 = &(w_gsl_function->C_gsl_function);
5658 }
5659 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5660 if (!SWIG_IsOK(ecode2)) {
5661 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qk61" "', argument " "2"" of type '" "double""'");
5662 }
5663 arg2 = (double)(val2);
5664 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
5665 if (!SWIG_IsOK(ecode3)) {
5666 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qk61" "', argument " "3"" of type '" "double""'");
5667 }
5668 arg3 = (double)(val3);
5669 res6 = SWIG_ConvertPtr(ST(3), &argp6,SWIGTYPE_p_double, 0 | 0 );
5670 if (!SWIG_IsOK(res6)) {
5671 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_integration_qk61" "', argument " "6"" of type '" "double *""'");
5672 }
5673 arg6 = (double *)(argp6);
5674 res7 = SWIG_ConvertPtr(ST(4), &argp7,SWIGTYPE_p_double, 0 | 0 );
5675 if (!SWIG_IsOK(res7)) {
5676 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_integration_qk61" "', argument " "7"" of type '" "double *""'");
5677 }
5678 arg7 = (double *)(argp7);
5679 gsl_integration_qk61((struct gsl_function_struct const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7);
5680 ST(argvi) = &PL_sv_undef;
5681 if (SWIG_IsTmpObj(res4)) {
5682 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++ ;
5683 } else {
5684 int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
5685 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_double, new_flags); argvi++ ;
5686 }
5687 if (SWIG_IsTmpObj(res5)) {
5688 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg5)); argvi++ ;
5689 } else {
5690 int new_flags = SWIG_IsNewObj(res5) ? (SWIG_POINTER_OWN | 0) : 0;
5691 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg5), SWIGTYPE_p_double, new_flags); argvi++ ;
5692 }
5693 {
5694 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
5695 gsl_function_perl_free(p);
5696 }
5697
5698
5699
5700
5701
5702
5703 XSRETURN(argvi);
5704 fail:
5705 {
5706 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
5707 gsl_function_perl_free(p);
5708 }
5709
5710
5711
5712
5713
5714
5715 SWIG_croak_null();
5716 }
5717 }
5718
5719
XS(_wrap_gsl_integration_qcheb)5720 XS(_wrap_gsl_integration_qcheb) {
5721 {
5722 gsl_function *arg1 = (gsl_function *) 0 ;
5723 double arg2 ;
5724 double arg3 ;
5725 double *arg4 = (double *) 0 ;
5726 double *arg5 = (double *) 0 ;
5727 double val2 ;
5728 int ecode2 = 0 ;
5729 double val3 ;
5730 int ecode3 = 0 ;
5731 void *argp4 = 0 ;
5732 int res4 = 0 ;
5733 void *argp5 = 0 ;
5734 int res5 = 0 ;
5735 int argvi = 0;
5736 dXSARGS;
5737
5738 if ((items < 5) || (items > 5)) {
5739 SWIG_croak("Usage: gsl_integration_qcheb(f,a,b,cheb12,cheb24);");
5740 }
5741 {
5742 SV * function = 0;
5743 SV * params = 0;
5744 struct gsl_function_perl *w_gsl_function;
5745 Newx(w_gsl_function, 1, struct gsl_function_perl);
5746
5747 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
5748 AV* array=(AV*)SvRV(ST(0));
5749 SV ** p_function = 0;
5750 if (av_len(array)<0) {
5751 croak("Math::GSL : $f is an empty array!");
5752 }
5753 if (av_len(array)>1) {
5754 croak("Math::GSL : $f is an array with more than 2 elements!");
5755 }
5756 p_function = av_fetch(array, 0, 0);
5757 function = *p_function;
5758 if (av_len(array)>0) {
5759 SV ** p_params = 0;
5760 p_params = av_fetch(array, 1, 0);
5761 params = *p_params;
5762 }
5763 } else {
5764 function = ST(0);
5765 }
5766
5767 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
5768 croak("Math::GSL : $f is not a reference to code!");
5769 }
5770
5771 function = newSVsv(function);
5772
5773 if (! params) {
5774 params=&PL_sv_undef;
5775 }
5776 params = newSVsv(params);
5777
5778 w_gsl_function->params = params;
5779 w_gsl_function->function = function;
5780 w_gsl_function->C_gsl_function.params = w_gsl_function;
5781 w_gsl_function->C_gsl_function.function = &call_gsl_function;
5782
5783 arg1 = &(w_gsl_function->C_gsl_function);
5784 }
5785 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5786 if (!SWIG_IsOK(ecode2)) {
5787 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qcheb" "', argument " "2"" of type '" "double""'");
5788 }
5789 arg2 = (double)(val2);
5790 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
5791 if (!SWIG_IsOK(ecode3)) {
5792 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qcheb" "', argument " "3"" of type '" "double""'");
5793 }
5794 arg3 = (double)(val3);
5795 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_double, 0 | 0 );
5796 if (!SWIG_IsOK(res4)) {
5797 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_integration_qcheb" "', argument " "4"" of type '" "double *""'");
5798 }
5799 arg4 = (double *)(argp4);
5800 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_double, 0 | 0 );
5801 if (!SWIG_IsOK(res5)) {
5802 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_integration_qcheb" "', argument " "5"" of type '" "double *""'");
5803 }
5804 arg5 = (double *)(argp5);
5805 gsl_integration_qcheb(arg1,arg2,arg3,arg4,arg5);
5806 ST(argvi) = &PL_sv_undef;
5807 {
5808 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
5809 gsl_function_perl_free(p);
5810 }
5811
5812
5813
5814
5815 XSRETURN(argvi);
5816 fail:
5817 {
5818 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
5819 gsl_function_perl_free(p);
5820 }
5821
5822
5823
5824
5825 SWIG_croak_null();
5826 }
5827 }
5828
5829
XS(_wrap_gsl_integration_qk)5830 XS(_wrap_gsl_integration_qk) {
5831 {
5832 int arg1 ;
5833 double *arg2 ;
5834 double *arg3 ;
5835 double *arg4 ;
5836 double *arg5 ;
5837 double *arg6 ;
5838 gsl_function *arg7 = (gsl_function *) 0 ;
5839 double arg8 ;
5840 double arg9 ;
5841 double *arg10 = (double *) 0 ;
5842 double *arg11 = (double *) 0 ;
5843 double *arg12 = (double *) 0 ;
5844 double *arg13 = (double *) 0 ;
5845 int val1 ;
5846 int ecode1 = 0 ;
5847 void *argp5 = 0 ;
5848 int res5 = 0 ;
5849 void *argp6 = 0 ;
5850 int res6 = 0 ;
5851 double val8 ;
5852 int ecode8 = 0 ;
5853 double val9 ;
5854 int ecode9 = 0 ;
5855 double temp10 ;
5856 int res10 = SWIG_TMPOBJ ;
5857 double temp11 ;
5858 int res11 = SWIG_TMPOBJ ;
5859 void *argp12 = 0 ;
5860 int res12 = 0 ;
5861 void *argp13 = 0 ;
5862 int res13 = 0 ;
5863 int argvi = 0;
5864 dXSARGS;
5865
5866 arg10 = &temp10;
5867 arg11 = &temp11;
5868 if ((items < 11) || (items > 11)) {
5869 SWIG_croak("Usage: gsl_integration_qk(n,xgk,wg,wgk,fv1,fv2,f,a,b,resabs,resasc);");
5870 }
5871 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
5872 if (!SWIG_IsOK(ecode1)) {
5873 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_integration_qk" "', argument " "1"" of type '" "int""'");
5874 }
5875 arg1 = (int)(val1);
5876 {
5877 AV *tempav;
5878 I32 len;
5879 int i;
5880 SV **tv;
5881 if (!SvROK(ST(1)))
5882 croak("Math::GSL : $xgk is not a reference!");
5883 if (SvTYPE(SvRV(ST(1))) != SVt_PVAV)
5884 croak("Math::GSL : $xgk is not an array ref!");
5885
5886 tempav = (AV*)SvRV(ST(1));
5887 len = av_len(tempav);
5888 arg2 = (double *) malloc((len+2)*sizeof(double));
5889 for (i = 0; i <= len; i++) {
5890 tv = av_fetch(tempav, i, 0);
5891 arg2[i] = (double) SvNV(*tv);
5892 }
5893 }
5894 {
5895 AV *tempav;
5896 I32 len;
5897 int i;
5898 SV **tv;
5899 if (!SvROK(ST(2)))
5900 croak("Math::GSL : $wg is not a reference!");
5901 if (SvTYPE(SvRV(ST(2))) != SVt_PVAV)
5902 croak("Math::GSL : $wg is not an array ref!");
5903
5904 tempav = (AV*)SvRV(ST(2));
5905 len = av_len(tempav);
5906 arg3 = (double *) malloc((len+2)*sizeof(double));
5907 for (i = 0; i <= len; i++) {
5908 tv = av_fetch(tempav, i, 0);
5909 arg3[i] = (double) SvNV(*tv);
5910 }
5911 }
5912 {
5913 AV *tempav;
5914 I32 len;
5915 int i;
5916 SV **tv;
5917 if (!SvROK(ST(3)))
5918 croak("Math::GSL : $wgk is not a reference!");
5919 if (SvTYPE(SvRV(ST(3))) != SVt_PVAV)
5920 croak("Math::GSL : $wgk is not an array ref!");
5921
5922 tempav = (AV*)SvRV(ST(3));
5923 len = av_len(tempav);
5924 arg4 = (double *) malloc((len+2)*sizeof(double));
5925 for (i = 0; i <= len; i++) {
5926 tv = av_fetch(tempav, i, 0);
5927 arg4[i] = (double) SvNV(*tv);
5928 }
5929 }
5930 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_double, 0 | 0 );
5931 if (!SWIG_IsOK(res5)) {
5932 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_integration_qk" "', argument " "5"" of type '" "double []""'");
5933 }
5934 arg5 = (double *)(argp5);
5935 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_double, 0 | 0 );
5936 if (!SWIG_IsOK(res6)) {
5937 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_integration_qk" "', argument " "6"" of type '" "double []""'");
5938 }
5939 arg6 = (double *)(argp6);
5940 {
5941 SV * function = 0;
5942 SV * params = 0;
5943 struct gsl_function_perl *w_gsl_function;
5944 Newx(w_gsl_function, 1, struct gsl_function_perl);
5945
5946 if (SvROK(ST(6)) && (SvTYPE(SvRV(ST(6))) == SVt_PVAV)) {
5947 AV* array=(AV*)SvRV(ST(6));
5948 SV ** p_function = 0;
5949 if (av_len(array)<0) {
5950 croak("Math::GSL : $f is an empty array!");
5951 }
5952 if (av_len(array)>1) {
5953 croak("Math::GSL : $f is an array with more than 2 elements!");
5954 }
5955 p_function = av_fetch(array, 0, 0);
5956 function = *p_function;
5957 if (av_len(array)>0) {
5958 SV ** p_params = 0;
5959 p_params = av_fetch(array, 1, 0);
5960 params = *p_params;
5961 }
5962 } else {
5963 function = ST(6);
5964 }
5965
5966 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
5967 croak("Math::GSL : $f is not a reference to code!");
5968 }
5969
5970 function = newSVsv(function);
5971
5972 if (! params) {
5973 params=&PL_sv_undef;
5974 }
5975 params = newSVsv(params);
5976
5977 w_gsl_function->params = params;
5978 w_gsl_function->function = function;
5979 w_gsl_function->C_gsl_function.params = w_gsl_function;
5980 w_gsl_function->C_gsl_function.function = &call_gsl_function;
5981
5982 arg7 = &(w_gsl_function->C_gsl_function);
5983 }
5984 ecode8 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(7), &val8);
5985 if (!SWIG_IsOK(ecode8)) {
5986 SWIG_exception_fail(SWIG_ArgError(ecode8), "in method '" "gsl_integration_qk" "', argument " "8"" of type '" "double""'");
5987 }
5988 arg8 = (double)(val8);
5989 ecode9 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(8), &val9);
5990 if (!SWIG_IsOK(ecode9)) {
5991 SWIG_exception_fail(SWIG_ArgError(ecode9), "in method '" "gsl_integration_qk" "', argument " "9"" of type '" "double""'");
5992 }
5993 arg9 = (double)(val9);
5994 res12 = SWIG_ConvertPtr(ST(9), &argp12,SWIGTYPE_p_double, 0 | 0 );
5995 if (!SWIG_IsOK(res12)) {
5996 SWIG_exception_fail(SWIG_ArgError(res12), "in method '" "gsl_integration_qk" "', argument " "12"" of type '" "double *""'");
5997 }
5998 arg12 = (double *)(argp12);
5999 res13 = SWIG_ConvertPtr(ST(10), &argp13,SWIGTYPE_p_double, 0 | 0 );
6000 if (!SWIG_IsOK(res13)) {
6001 SWIG_exception_fail(SWIG_ArgError(res13), "in method '" "gsl_integration_qk" "', argument " "13"" of type '" "double *""'");
6002 }
6003 arg13 = (double *)(argp13);
6004 gsl_integration_qk(arg1,(double const (*))arg2,(double const (*))arg3,(double const (*))arg4,arg5,arg6,(struct gsl_function_struct const *)arg7,arg8,arg9,arg10,arg11,arg12,arg13);
6005 ST(argvi) = &PL_sv_undef;
6006 if (SWIG_IsTmpObj(res10)) {
6007 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg10)); argvi++ ;
6008 } else {
6009 int new_flags = SWIG_IsNewObj(res10) ? (SWIG_POINTER_OWN | 0) : 0;
6010 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg10), SWIGTYPE_p_double, new_flags); argvi++ ;
6011 }
6012 if (SWIG_IsTmpObj(res11)) {
6013 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg11)); argvi++ ;
6014 } else {
6015 int new_flags = SWIG_IsNewObj(res11) ? (SWIG_POINTER_OWN | 0) : 0;
6016 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg11), SWIGTYPE_p_double, new_flags); argvi++ ;
6017 }
6018
6019 {
6020 if (arg2) free(arg2);
6021 }
6022 {
6023 if (arg3) free(arg3);
6024 }
6025 {
6026 if (arg4) free(arg4);
6027 }
6028
6029
6030 {
6031 struct gsl_function_perl *p=(struct gsl_function_perl *) arg7->params;
6032 gsl_function_perl_free(p);
6033 }
6034
6035
6036
6037
6038
6039
6040 XSRETURN(argvi);
6041 fail:
6042
6043 {
6044 if (arg2) free(arg2);
6045 }
6046 {
6047 if (arg3) free(arg3);
6048 }
6049 {
6050 if (arg4) free(arg4);
6051 }
6052
6053
6054 {
6055 struct gsl_function_perl *p=(struct gsl_function_perl *) arg7->params;
6056 gsl_function_perl_free(p);
6057 }
6058
6059
6060
6061
6062
6063
6064 SWIG_croak_null();
6065 }
6066 }
6067
6068
XS(_wrap_gsl_integration_qng)6069 XS(_wrap_gsl_integration_qng) {
6070 {
6071 gsl_function *arg1 = (gsl_function *) 0 ;
6072 double arg2 ;
6073 double arg3 ;
6074 double arg4 ;
6075 double arg5 ;
6076 double *arg6 = (double *) 0 ;
6077 double *arg7 = (double *) 0 ;
6078 size_t *arg8 = (size_t *) 0 ;
6079 double val2 ;
6080 int ecode2 = 0 ;
6081 double val3 ;
6082 int ecode3 = 0 ;
6083 double val4 ;
6084 int ecode4 = 0 ;
6085 double val5 ;
6086 int ecode5 = 0 ;
6087 double temp6 ;
6088 int res6 = SWIG_TMPOBJ ;
6089 double temp7 ;
6090 int res7 = SWIG_TMPOBJ ;
6091 size_t temp8 ;
6092 int res8 = SWIG_TMPOBJ ;
6093 int argvi = 0;
6094 int result;
6095 dXSARGS;
6096
6097 arg6 = &temp6;
6098 arg7 = &temp7;
6099 arg8 = &temp8;
6100 if ((items < 5) || (items > 5)) {
6101 SWIG_croak("Usage: gsl_integration_qng(f,a,b,epsabs,epsrel);");
6102 }
6103 {
6104 SV * function = 0;
6105 SV * params = 0;
6106 struct gsl_function_perl *w_gsl_function;
6107 Newx(w_gsl_function, 1, struct gsl_function_perl);
6108
6109 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
6110 AV* array=(AV*)SvRV(ST(0));
6111 SV ** p_function = 0;
6112 if (av_len(array)<0) {
6113 croak("Math::GSL : $f is an empty array!");
6114 }
6115 if (av_len(array)>1) {
6116 croak("Math::GSL : $f is an array with more than 2 elements!");
6117 }
6118 p_function = av_fetch(array, 0, 0);
6119 function = *p_function;
6120 if (av_len(array)>0) {
6121 SV ** p_params = 0;
6122 p_params = av_fetch(array, 1, 0);
6123 params = *p_params;
6124 }
6125 } else {
6126 function = ST(0);
6127 }
6128
6129 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
6130 croak("Math::GSL : $f is not a reference to code!");
6131 }
6132
6133 function = newSVsv(function);
6134
6135 if (! params) {
6136 params=&PL_sv_undef;
6137 }
6138 params = newSVsv(params);
6139
6140 w_gsl_function->params = params;
6141 w_gsl_function->function = function;
6142 w_gsl_function->C_gsl_function.params = w_gsl_function;
6143 w_gsl_function->C_gsl_function.function = &call_gsl_function;
6144
6145 arg1 = &(w_gsl_function->C_gsl_function);
6146 }
6147 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6148 if (!SWIG_IsOK(ecode2)) {
6149 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qng" "', argument " "2"" of type '" "double""'");
6150 }
6151 arg2 = (double)(val2);
6152 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
6153 if (!SWIG_IsOK(ecode3)) {
6154 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qng" "', argument " "3"" of type '" "double""'");
6155 }
6156 arg3 = (double)(val3);
6157 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
6158 if (!SWIG_IsOK(ecode4)) {
6159 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_integration_qng" "', argument " "4"" of type '" "double""'");
6160 }
6161 arg4 = (double)(val4);
6162 ecode5 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
6163 if (!SWIG_IsOK(ecode5)) {
6164 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_integration_qng" "', argument " "5"" of type '" "double""'");
6165 }
6166 arg5 = (double)(val5);
6167 result = (int)gsl_integration_qng((struct gsl_function_struct const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8);
6168 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6169 if (SWIG_IsTmpObj(res6)) {
6170 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg6)); argvi++ ;
6171 } else {
6172 int new_flags = SWIG_IsNewObj(res6) ? (SWIG_POINTER_OWN | 0) : 0;
6173 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg6), SWIGTYPE_p_double, new_flags); argvi++ ;
6174 }
6175 if (SWIG_IsTmpObj(res7)) {
6176 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg7)); argvi++ ;
6177 } else {
6178 int new_flags = SWIG_IsNewObj(res7) ? (SWIG_POINTER_OWN | 0) : 0;
6179 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg7), SWIGTYPE_p_double, new_flags); argvi++ ;
6180 }
6181 if (SWIG_IsTmpObj(res8)) {
6182 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg8)); argvi++ ;
6183 } else {
6184 int new_flags = SWIG_IsNewObj(res8) ? (SWIG_POINTER_OWN | 0) : 0;
6185 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg8), SWIGTYPE_p_size_t, new_flags); argvi++ ;
6186 }
6187 {
6188 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
6189 gsl_function_perl_free(p);
6190 }
6191
6192
6193
6194
6195
6196
6197
6198 XSRETURN(argvi);
6199 fail:
6200 {
6201 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
6202 gsl_function_perl_free(p);
6203 }
6204
6205
6206
6207
6208
6209
6210
6211 SWIG_croak_null();
6212 }
6213 }
6214
6215
XS(_wrap_gsl_integration_qag)6216 XS(_wrap_gsl_integration_qag) {
6217 {
6218 gsl_function *arg1 = (gsl_function *) 0 ;
6219 double arg2 ;
6220 double arg3 ;
6221 double arg4 ;
6222 double arg5 ;
6223 size_t arg6 ;
6224 int arg7 ;
6225 gsl_integration_workspace *arg8 = (gsl_integration_workspace *) 0 ;
6226 double *arg9 = (double *) 0 ;
6227 double *arg10 = (double *) 0 ;
6228 double val2 ;
6229 int ecode2 = 0 ;
6230 double val3 ;
6231 int ecode3 = 0 ;
6232 double val4 ;
6233 int ecode4 = 0 ;
6234 double val5 ;
6235 int ecode5 = 0 ;
6236 size_t val6 ;
6237 int ecode6 = 0 ;
6238 int val7 ;
6239 int ecode7 = 0 ;
6240 void *argp8 = 0 ;
6241 int res8 = 0 ;
6242 double temp9 ;
6243 int res9 = SWIG_TMPOBJ ;
6244 double temp10 ;
6245 int res10 = SWIG_TMPOBJ ;
6246 int argvi = 0;
6247 int result;
6248 dXSARGS;
6249
6250 arg9 = &temp9;
6251 arg10 = &temp10;
6252 if ((items < 8) || (items > 8)) {
6253 SWIG_croak("Usage: gsl_integration_qag(f,a,b,epsabs,epsrel,limit,key,workspace);");
6254 }
6255 {
6256 SV * function = 0;
6257 SV * params = 0;
6258 struct gsl_function_perl *w_gsl_function;
6259 Newx(w_gsl_function, 1, struct gsl_function_perl);
6260
6261 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
6262 AV* array=(AV*)SvRV(ST(0));
6263 SV ** p_function = 0;
6264 if (av_len(array)<0) {
6265 croak("Math::GSL : $f is an empty array!");
6266 }
6267 if (av_len(array)>1) {
6268 croak("Math::GSL : $f is an array with more than 2 elements!");
6269 }
6270 p_function = av_fetch(array, 0, 0);
6271 function = *p_function;
6272 if (av_len(array)>0) {
6273 SV ** p_params = 0;
6274 p_params = av_fetch(array, 1, 0);
6275 params = *p_params;
6276 }
6277 } else {
6278 function = ST(0);
6279 }
6280
6281 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
6282 croak("Math::GSL : $f is not a reference to code!");
6283 }
6284
6285 function = newSVsv(function);
6286
6287 if (! params) {
6288 params=&PL_sv_undef;
6289 }
6290 params = newSVsv(params);
6291
6292 w_gsl_function->params = params;
6293 w_gsl_function->function = function;
6294 w_gsl_function->C_gsl_function.params = w_gsl_function;
6295 w_gsl_function->C_gsl_function.function = &call_gsl_function;
6296
6297 arg1 = &(w_gsl_function->C_gsl_function);
6298 }
6299 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6300 if (!SWIG_IsOK(ecode2)) {
6301 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qag" "', argument " "2"" of type '" "double""'");
6302 }
6303 arg2 = (double)(val2);
6304 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
6305 if (!SWIG_IsOK(ecode3)) {
6306 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qag" "', argument " "3"" of type '" "double""'");
6307 }
6308 arg3 = (double)(val3);
6309 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
6310 if (!SWIG_IsOK(ecode4)) {
6311 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_integration_qag" "', argument " "4"" of type '" "double""'");
6312 }
6313 arg4 = (double)(val4);
6314 ecode5 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
6315 if (!SWIG_IsOK(ecode5)) {
6316 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_integration_qag" "', argument " "5"" of type '" "double""'");
6317 }
6318 arg5 = (double)(val5);
6319 ecode6 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(5), &val6);
6320 if (!SWIG_IsOK(ecode6)) {
6321 SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "gsl_integration_qag" "', argument " "6"" of type '" "size_t""'");
6322 }
6323 arg6 = (size_t)(val6);
6324 ecode7 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(6), &val7);
6325 if (!SWIG_IsOK(ecode7)) {
6326 SWIG_exception_fail(SWIG_ArgError(ecode7), "in method '" "gsl_integration_qag" "', argument " "7"" of type '" "int""'");
6327 }
6328 arg7 = (int)(val7);
6329 res8 = SWIG_ConvertPtr(ST(7), &argp8,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
6330 if (!SWIG_IsOK(res8)) {
6331 SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_integration_qag" "', argument " "8"" of type '" "gsl_integration_workspace *""'");
6332 }
6333 arg8 = (gsl_integration_workspace *)(argp8);
6334 result = (int)gsl_integration_qag((struct gsl_function_struct const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10);
6335 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6336 if (SWIG_IsTmpObj(res9)) {
6337 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg9)); argvi++ ;
6338 } else {
6339 int new_flags = SWIG_IsNewObj(res9) ? (SWIG_POINTER_OWN | 0) : 0;
6340 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg9), SWIGTYPE_p_double, new_flags); argvi++ ;
6341 }
6342 if (SWIG_IsTmpObj(res10)) {
6343 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg10)); argvi++ ;
6344 } else {
6345 int new_flags = SWIG_IsNewObj(res10) ? (SWIG_POINTER_OWN | 0) : 0;
6346 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg10), SWIGTYPE_p_double, new_flags); argvi++ ;
6347 }
6348 {
6349 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
6350 gsl_function_perl_free(p);
6351 }
6352
6353
6354
6355
6356
6357
6358
6359
6360
6361 XSRETURN(argvi);
6362 fail:
6363 {
6364 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
6365 gsl_function_perl_free(p);
6366 }
6367
6368
6369
6370
6371
6372
6373
6374
6375
6376 SWIG_croak_null();
6377 }
6378 }
6379
6380
XS(_wrap_gsl_integration_qagi)6381 XS(_wrap_gsl_integration_qagi) {
6382 {
6383 gsl_function *arg1 = (gsl_function *) 0 ;
6384 double arg2 ;
6385 double arg3 ;
6386 size_t arg4 ;
6387 gsl_integration_workspace *arg5 = (gsl_integration_workspace *) 0 ;
6388 double *arg6 = (double *) 0 ;
6389 double *arg7 = (double *) 0 ;
6390 double val2 ;
6391 int ecode2 = 0 ;
6392 double val3 ;
6393 int ecode3 = 0 ;
6394 size_t val4 ;
6395 int ecode4 = 0 ;
6396 void *argp5 = 0 ;
6397 int res5 = 0 ;
6398 double temp6 ;
6399 int res6 = SWIG_TMPOBJ ;
6400 double temp7 ;
6401 int res7 = SWIG_TMPOBJ ;
6402 int argvi = 0;
6403 int result;
6404 dXSARGS;
6405
6406 arg6 = &temp6;
6407 arg7 = &temp7;
6408 if ((items < 5) || (items > 5)) {
6409 SWIG_croak("Usage: gsl_integration_qagi(f,epsabs,epsrel,limit,workspace);");
6410 }
6411 {
6412 SV * function = 0;
6413 SV * params = 0;
6414 struct gsl_function_perl *w_gsl_function;
6415 Newx(w_gsl_function, 1, struct gsl_function_perl);
6416
6417 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
6418 AV* array=(AV*)SvRV(ST(0));
6419 SV ** p_function = 0;
6420 if (av_len(array)<0) {
6421 croak("Math::GSL : $f is an empty array!");
6422 }
6423 if (av_len(array)>1) {
6424 croak("Math::GSL : $f is an array with more than 2 elements!");
6425 }
6426 p_function = av_fetch(array, 0, 0);
6427 function = *p_function;
6428 if (av_len(array)>0) {
6429 SV ** p_params = 0;
6430 p_params = av_fetch(array, 1, 0);
6431 params = *p_params;
6432 }
6433 } else {
6434 function = ST(0);
6435 }
6436
6437 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
6438 croak("Math::GSL : $f is not a reference to code!");
6439 }
6440
6441 function = newSVsv(function);
6442
6443 if (! params) {
6444 params=&PL_sv_undef;
6445 }
6446 params = newSVsv(params);
6447
6448 w_gsl_function->params = params;
6449 w_gsl_function->function = function;
6450 w_gsl_function->C_gsl_function.params = w_gsl_function;
6451 w_gsl_function->C_gsl_function.function = &call_gsl_function;
6452
6453 arg1 = &(w_gsl_function->C_gsl_function);
6454 }
6455 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6456 if (!SWIG_IsOK(ecode2)) {
6457 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qagi" "', argument " "2"" of type '" "double""'");
6458 }
6459 arg2 = (double)(val2);
6460 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
6461 if (!SWIG_IsOK(ecode3)) {
6462 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qagi" "', argument " "3"" of type '" "double""'");
6463 }
6464 arg3 = (double)(val3);
6465 ecode4 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
6466 if (!SWIG_IsOK(ecode4)) {
6467 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_integration_qagi" "', argument " "4"" of type '" "size_t""'");
6468 }
6469 arg4 = (size_t)(val4);
6470 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
6471 if (!SWIG_IsOK(res5)) {
6472 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_integration_qagi" "', argument " "5"" of type '" "gsl_integration_workspace *""'");
6473 }
6474 arg5 = (gsl_integration_workspace *)(argp5);
6475 result = (int)gsl_integration_qagi(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
6476 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6477 if (SWIG_IsTmpObj(res6)) {
6478 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg6)); argvi++ ;
6479 } else {
6480 int new_flags = SWIG_IsNewObj(res6) ? (SWIG_POINTER_OWN | 0) : 0;
6481 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg6), SWIGTYPE_p_double, new_flags); argvi++ ;
6482 }
6483 if (SWIG_IsTmpObj(res7)) {
6484 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg7)); argvi++ ;
6485 } else {
6486 int new_flags = SWIG_IsNewObj(res7) ? (SWIG_POINTER_OWN | 0) : 0;
6487 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg7), SWIGTYPE_p_double, new_flags); argvi++ ;
6488 }
6489 {
6490 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
6491 gsl_function_perl_free(p);
6492 }
6493
6494
6495
6496
6497
6498
6499 XSRETURN(argvi);
6500 fail:
6501 {
6502 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
6503 gsl_function_perl_free(p);
6504 }
6505
6506
6507
6508
6509
6510
6511 SWIG_croak_null();
6512 }
6513 }
6514
6515
XS(_wrap_gsl_integration_qagiu)6516 XS(_wrap_gsl_integration_qagiu) {
6517 {
6518 gsl_function *arg1 = (gsl_function *) 0 ;
6519 double arg2 ;
6520 double arg3 ;
6521 double arg4 ;
6522 size_t arg5 ;
6523 gsl_integration_workspace *arg6 = (gsl_integration_workspace *) 0 ;
6524 double *arg7 = (double *) 0 ;
6525 double *arg8 = (double *) 0 ;
6526 double val2 ;
6527 int ecode2 = 0 ;
6528 double val3 ;
6529 int ecode3 = 0 ;
6530 double val4 ;
6531 int ecode4 = 0 ;
6532 size_t val5 ;
6533 int ecode5 = 0 ;
6534 void *argp6 = 0 ;
6535 int res6 = 0 ;
6536 double temp7 ;
6537 int res7 = SWIG_TMPOBJ ;
6538 double temp8 ;
6539 int res8 = SWIG_TMPOBJ ;
6540 int argvi = 0;
6541 int result;
6542 dXSARGS;
6543
6544 arg7 = &temp7;
6545 arg8 = &temp8;
6546 if ((items < 6) || (items > 6)) {
6547 SWIG_croak("Usage: gsl_integration_qagiu(f,a,epsabs,epsrel,limit,workspace);");
6548 }
6549 {
6550 SV * function = 0;
6551 SV * params = 0;
6552 struct gsl_function_perl *w_gsl_function;
6553 Newx(w_gsl_function, 1, struct gsl_function_perl);
6554
6555 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
6556 AV* array=(AV*)SvRV(ST(0));
6557 SV ** p_function = 0;
6558 if (av_len(array)<0) {
6559 croak("Math::GSL : $f is an empty array!");
6560 }
6561 if (av_len(array)>1) {
6562 croak("Math::GSL : $f is an array with more than 2 elements!");
6563 }
6564 p_function = av_fetch(array, 0, 0);
6565 function = *p_function;
6566 if (av_len(array)>0) {
6567 SV ** p_params = 0;
6568 p_params = av_fetch(array, 1, 0);
6569 params = *p_params;
6570 }
6571 } else {
6572 function = ST(0);
6573 }
6574
6575 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
6576 croak("Math::GSL : $f is not a reference to code!");
6577 }
6578
6579 function = newSVsv(function);
6580
6581 if (! params) {
6582 params=&PL_sv_undef;
6583 }
6584 params = newSVsv(params);
6585
6586 w_gsl_function->params = params;
6587 w_gsl_function->function = function;
6588 w_gsl_function->C_gsl_function.params = w_gsl_function;
6589 w_gsl_function->C_gsl_function.function = &call_gsl_function;
6590
6591 arg1 = &(w_gsl_function->C_gsl_function);
6592 }
6593 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6594 if (!SWIG_IsOK(ecode2)) {
6595 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qagiu" "', argument " "2"" of type '" "double""'");
6596 }
6597 arg2 = (double)(val2);
6598 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
6599 if (!SWIG_IsOK(ecode3)) {
6600 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qagiu" "', argument " "3"" of type '" "double""'");
6601 }
6602 arg3 = (double)(val3);
6603 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
6604 if (!SWIG_IsOK(ecode4)) {
6605 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_integration_qagiu" "', argument " "4"" of type '" "double""'");
6606 }
6607 arg4 = (double)(val4);
6608 ecode5 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
6609 if (!SWIG_IsOK(ecode5)) {
6610 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_integration_qagiu" "', argument " "5"" of type '" "size_t""'");
6611 }
6612 arg5 = (size_t)(val5);
6613 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
6614 if (!SWIG_IsOK(res6)) {
6615 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_integration_qagiu" "', argument " "6"" of type '" "gsl_integration_workspace *""'");
6616 }
6617 arg6 = (gsl_integration_workspace *)(argp6);
6618 result = (int)gsl_integration_qagiu(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8);
6619 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6620 if (SWIG_IsTmpObj(res7)) {
6621 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg7)); argvi++ ;
6622 } else {
6623 int new_flags = SWIG_IsNewObj(res7) ? (SWIG_POINTER_OWN | 0) : 0;
6624 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg7), SWIGTYPE_p_double, new_flags); argvi++ ;
6625 }
6626 if (SWIG_IsTmpObj(res8)) {
6627 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg8)); argvi++ ;
6628 } else {
6629 int new_flags = SWIG_IsNewObj(res8) ? (SWIG_POINTER_OWN | 0) : 0;
6630 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg8), SWIGTYPE_p_double, new_flags); argvi++ ;
6631 }
6632 {
6633 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
6634 gsl_function_perl_free(p);
6635 }
6636
6637
6638
6639
6640
6641
6642
6643 XSRETURN(argvi);
6644 fail:
6645 {
6646 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
6647 gsl_function_perl_free(p);
6648 }
6649
6650
6651
6652
6653
6654
6655
6656 SWIG_croak_null();
6657 }
6658 }
6659
6660
XS(_wrap_gsl_integration_qagil)6661 XS(_wrap_gsl_integration_qagil) {
6662 {
6663 gsl_function *arg1 = (gsl_function *) 0 ;
6664 double arg2 ;
6665 double arg3 ;
6666 double arg4 ;
6667 size_t arg5 ;
6668 gsl_integration_workspace *arg6 = (gsl_integration_workspace *) 0 ;
6669 double *arg7 = (double *) 0 ;
6670 double *arg8 = (double *) 0 ;
6671 double val2 ;
6672 int ecode2 = 0 ;
6673 double val3 ;
6674 int ecode3 = 0 ;
6675 double val4 ;
6676 int ecode4 = 0 ;
6677 size_t val5 ;
6678 int ecode5 = 0 ;
6679 void *argp6 = 0 ;
6680 int res6 = 0 ;
6681 double temp7 ;
6682 int res7 = SWIG_TMPOBJ ;
6683 double temp8 ;
6684 int res8 = SWIG_TMPOBJ ;
6685 int argvi = 0;
6686 int result;
6687 dXSARGS;
6688
6689 arg7 = &temp7;
6690 arg8 = &temp8;
6691 if ((items < 6) || (items > 6)) {
6692 SWIG_croak("Usage: gsl_integration_qagil(f,b,epsabs,epsrel,limit,workspace);");
6693 }
6694 {
6695 SV * function = 0;
6696 SV * params = 0;
6697 struct gsl_function_perl *w_gsl_function;
6698 Newx(w_gsl_function, 1, struct gsl_function_perl);
6699
6700 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
6701 AV* array=(AV*)SvRV(ST(0));
6702 SV ** p_function = 0;
6703 if (av_len(array)<0) {
6704 croak("Math::GSL : $f is an empty array!");
6705 }
6706 if (av_len(array)>1) {
6707 croak("Math::GSL : $f is an array with more than 2 elements!");
6708 }
6709 p_function = av_fetch(array, 0, 0);
6710 function = *p_function;
6711 if (av_len(array)>0) {
6712 SV ** p_params = 0;
6713 p_params = av_fetch(array, 1, 0);
6714 params = *p_params;
6715 }
6716 } else {
6717 function = ST(0);
6718 }
6719
6720 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
6721 croak("Math::GSL : $f is not a reference to code!");
6722 }
6723
6724 function = newSVsv(function);
6725
6726 if (! params) {
6727 params=&PL_sv_undef;
6728 }
6729 params = newSVsv(params);
6730
6731 w_gsl_function->params = params;
6732 w_gsl_function->function = function;
6733 w_gsl_function->C_gsl_function.params = w_gsl_function;
6734 w_gsl_function->C_gsl_function.function = &call_gsl_function;
6735
6736 arg1 = &(w_gsl_function->C_gsl_function);
6737 }
6738 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6739 if (!SWIG_IsOK(ecode2)) {
6740 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qagil" "', argument " "2"" of type '" "double""'");
6741 }
6742 arg2 = (double)(val2);
6743 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
6744 if (!SWIG_IsOK(ecode3)) {
6745 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qagil" "', argument " "3"" of type '" "double""'");
6746 }
6747 arg3 = (double)(val3);
6748 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
6749 if (!SWIG_IsOK(ecode4)) {
6750 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_integration_qagil" "', argument " "4"" of type '" "double""'");
6751 }
6752 arg4 = (double)(val4);
6753 ecode5 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
6754 if (!SWIG_IsOK(ecode5)) {
6755 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_integration_qagil" "', argument " "5"" of type '" "size_t""'");
6756 }
6757 arg5 = (size_t)(val5);
6758 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
6759 if (!SWIG_IsOK(res6)) {
6760 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_integration_qagil" "', argument " "6"" of type '" "gsl_integration_workspace *""'");
6761 }
6762 arg6 = (gsl_integration_workspace *)(argp6);
6763 result = (int)gsl_integration_qagil(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8);
6764 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6765 if (SWIG_IsTmpObj(res7)) {
6766 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg7)); argvi++ ;
6767 } else {
6768 int new_flags = SWIG_IsNewObj(res7) ? (SWIG_POINTER_OWN | 0) : 0;
6769 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg7), SWIGTYPE_p_double, new_flags); argvi++ ;
6770 }
6771 if (SWIG_IsTmpObj(res8)) {
6772 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg8)); argvi++ ;
6773 } else {
6774 int new_flags = SWIG_IsNewObj(res8) ? (SWIG_POINTER_OWN | 0) : 0;
6775 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg8), SWIGTYPE_p_double, new_flags); argvi++ ;
6776 }
6777 {
6778 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
6779 gsl_function_perl_free(p);
6780 }
6781
6782
6783
6784
6785
6786
6787
6788 XSRETURN(argvi);
6789 fail:
6790 {
6791 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
6792 gsl_function_perl_free(p);
6793 }
6794
6795
6796
6797
6798
6799
6800
6801 SWIG_croak_null();
6802 }
6803 }
6804
6805
XS(_wrap_gsl_integration_qags)6806 XS(_wrap_gsl_integration_qags) {
6807 {
6808 gsl_function *arg1 = (gsl_function *) 0 ;
6809 double arg2 ;
6810 double arg3 ;
6811 double arg4 ;
6812 double arg5 ;
6813 size_t arg6 ;
6814 gsl_integration_workspace *arg7 = (gsl_integration_workspace *) 0 ;
6815 double *arg8 = (double *) 0 ;
6816 double *arg9 = (double *) 0 ;
6817 double val2 ;
6818 int ecode2 = 0 ;
6819 double val3 ;
6820 int ecode3 = 0 ;
6821 double val4 ;
6822 int ecode4 = 0 ;
6823 double val5 ;
6824 int ecode5 = 0 ;
6825 size_t val6 ;
6826 int ecode6 = 0 ;
6827 void *argp7 = 0 ;
6828 int res7 = 0 ;
6829 double temp8 ;
6830 int res8 = SWIG_TMPOBJ ;
6831 double temp9 ;
6832 int res9 = SWIG_TMPOBJ ;
6833 int argvi = 0;
6834 int result;
6835 dXSARGS;
6836
6837 arg8 = &temp8;
6838 arg9 = &temp9;
6839 if ((items < 7) || (items > 7)) {
6840 SWIG_croak("Usage: gsl_integration_qags(f,a,b,epsabs,epsrel,limit,workspace);");
6841 }
6842 {
6843 SV * function = 0;
6844 SV * params = 0;
6845 struct gsl_function_perl *w_gsl_function;
6846 Newx(w_gsl_function, 1, struct gsl_function_perl);
6847
6848 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
6849 AV* array=(AV*)SvRV(ST(0));
6850 SV ** p_function = 0;
6851 if (av_len(array)<0) {
6852 croak("Math::GSL : $f is an empty array!");
6853 }
6854 if (av_len(array)>1) {
6855 croak("Math::GSL : $f is an array with more than 2 elements!");
6856 }
6857 p_function = av_fetch(array, 0, 0);
6858 function = *p_function;
6859 if (av_len(array)>0) {
6860 SV ** p_params = 0;
6861 p_params = av_fetch(array, 1, 0);
6862 params = *p_params;
6863 }
6864 } else {
6865 function = ST(0);
6866 }
6867
6868 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
6869 croak("Math::GSL : $f is not a reference to code!");
6870 }
6871
6872 function = newSVsv(function);
6873
6874 if (! params) {
6875 params=&PL_sv_undef;
6876 }
6877 params = newSVsv(params);
6878
6879 w_gsl_function->params = params;
6880 w_gsl_function->function = function;
6881 w_gsl_function->C_gsl_function.params = w_gsl_function;
6882 w_gsl_function->C_gsl_function.function = &call_gsl_function;
6883
6884 arg1 = &(w_gsl_function->C_gsl_function);
6885 }
6886 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6887 if (!SWIG_IsOK(ecode2)) {
6888 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qags" "', argument " "2"" of type '" "double""'");
6889 }
6890 arg2 = (double)(val2);
6891 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
6892 if (!SWIG_IsOK(ecode3)) {
6893 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qags" "', argument " "3"" of type '" "double""'");
6894 }
6895 arg3 = (double)(val3);
6896 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
6897 if (!SWIG_IsOK(ecode4)) {
6898 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_integration_qags" "', argument " "4"" of type '" "double""'");
6899 }
6900 arg4 = (double)(val4);
6901 ecode5 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
6902 if (!SWIG_IsOK(ecode5)) {
6903 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_integration_qags" "', argument " "5"" of type '" "double""'");
6904 }
6905 arg5 = (double)(val5);
6906 ecode6 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(5), &val6);
6907 if (!SWIG_IsOK(ecode6)) {
6908 SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "gsl_integration_qags" "', argument " "6"" of type '" "size_t""'");
6909 }
6910 arg6 = (size_t)(val6);
6911 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
6912 if (!SWIG_IsOK(res7)) {
6913 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_integration_qags" "', argument " "7"" of type '" "gsl_integration_workspace *""'");
6914 }
6915 arg7 = (gsl_integration_workspace *)(argp7);
6916 result = (int)gsl_integration_qags((struct gsl_function_struct const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
6917 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6918 if (SWIG_IsTmpObj(res8)) {
6919 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg8)); argvi++ ;
6920 } else {
6921 int new_flags = SWIG_IsNewObj(res8) ? (SWIG_POINTER_OWN | 0) : 0;
6922 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg8), SWIGTYPE_p_double, new_flags); argvi++ ;
6923 }
6924 if (SWIG_IsTmpObj(res9)) {
6925 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg9)); argvi++ ;
6926 } else {
6927 int new_flags = SWIG_IsNewObj(res9) ? (SWIG_POINTER_OWN | 0) : 0;
6928 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg9), SWIGTYPE_p_double, new_flags); argvi++ ;
6929 }
6930 {
6931 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
6932 gsl_function_perl_free(p);
6933 }
6934
6935
6936
6937
6938
6939
6940
6941
6942 XSRETURN(argvi);
6943 fail:
6944 {
6945 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
6946 gsl_function_perl_free(p);
6947 }
6948
6949
6950
6951
6952
6953
6954
6955
6956 SWIG_croak_null();
6957 }
6958 }
6959
6960
XS(_wrap_gsl_integration_qagp)6961 XS(_wrap_gsl_integration_qagp) {
6962 {
6963 gsl_function *arg1 = (gsl_function *) 0 ;
6964 double *arg2 = (double *) 0 ;
6965 size_t arg3 ;
6966 double arg4 ;
6967 double arg5 ;
6968 size_t arg6 ;
6969 gsl_integration_workspace *arg7 = (gsl_integration_workspace *) 0 ;
6970 double *arg8 = (double *) 0 ;
6971 double *arg9 = (double *) 0 ;
6972 void *argp2 = 0 ;
6973 int res2 = 0 ;
6974 size_t val3 ;
6975 int ecode3 = 0 ;
6976 double val4 ;
6977 int ecode4 = 0 ;
6978 double val5 ;
6979 int ecode5 = 0 ;
6980 size_t val6 ;
6981 int ecode6 = 0 ;
6982 void *argp7 = 0 ;
6983 int res7 = 0 ;
6984 double temp8 ;
6985 int res8 = SWIG_TMPOBJ ;
6986 double temp9 ;
6987 int res9 = SWIG_TMPOBJ ;
6988 int argvi = 0;
6989 int result;
6990 dXSARGS;
6991
6992 arg8 = &temp8;
6993 arg9 = &temp9;
6994 if ((items < 7) || (items > 7)) {
6995 SWIG_croak("Usage: gsl_integration_qagp(f,pts,npts,epsabs,epsrel,limit,workspace);");
6996 }
6997 {
6998 SV * function = 0;
6999 SV * params = 0;
7000 struct gsl_function_perl *w_gsl_function;
7001 Newx(w_gsl_function, 1, struct gsl_function_perl);
7002
7003 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
7004 AV* array=(AV*)SvRV(ST(0));
7005 SV ** p_function = 0;
7006 if (av_len(array)<0) {
7007 croak("Math::GSL : $f is an empty array!");
7008 }
7009 if (av_len(array)>1) {
7010 croak("Math::GSL : $f is an array with more than 2 elements!");
7011 }
7012 p_function = av_fetch(array, 0, 0);
7013 function = *p_function;
7014 if (av_len(array)>0) {
7015 SV ** p_params = 0;
7016 p_params = av_fetch(array, 1, 0);
7017 params = *p_params;
7018 }
7019 } else {
7020 function = ST(0);
7021 }
7022
7023 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
7024 croak("Math::GSL : $f is not a reference to code!");
7025 }
7026
7027 function = newSVsv(function);
7028
7029 if (! params) {
7030 params=&PL_sv_undef;
7031 }
7032 params = newSVsv(params);
7033
7034 w_gsl_function->params = params;
7035 w_gsl_function->function = function;
7036 w_gsl_function->C_gsl_function.params = w_gsl_function;
7037 w_gsl_function->C_gsl_function.function = &call_gsl_function;
7038
7039 arg1 = &(w_gsl_function->C_gsl_function);
7040 }
7041 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
7042 if (!SWIG_IsOK(res2)) {
7043 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_qagp" "', argument " "2"" of type '" "double *""'");
7044 }
7045 arg2 = (double *)(argp2);
7046 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
7047 if (!SWIG_IsOK(ecode3)) {
7048 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qagp" "', argument " "3"" of type '" "size_t""'");
7049 }
7050 arg3 = (size_t)(val3);
7051 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
7052 if (!SWIG_IsOK(ecode4)) {
7053 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_integration_qagp" "', argument " "4"" of type '" "double""'");
7054 }
7055 arg4 = (double)(val4);
7056 ecode5 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
7057 if (!SWIG_IsOK(ecode5)) {
7058 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_integration_qagp" "', argument " "5"" of type '" "double""'");
7059 }
7060 arg5 = (double)(val5);
7061 ecode6 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(5), &val6);
7062 if (!SWIG_IsOK(ecode6)) {
7063 SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "gsl_integration_qagp" "', argument " "6"" of type '" "size_t""'");
7064 }
7065 arg6 = (size_t)(val6);
7066 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
7067 if (!SWIG_IsOK(res7)) {
7068 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_integration_qagp" "', argument " "7"" of type '" "gsl_integration_workspace *""'");
7069 }
7070 arg7 = (gsl_integration_workspace *)(argp7);
7071 result = (int)gsl_integration_qagp((struct gsl_function_struct const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
7072 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7073 if (SWIG_IsTmpObj(res8)) {
7074 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg8)); argvi++ ;
7075 } else {
7076 int new_flags = SWIG_IsNewObj(res8) ? (SWIG_POINTER_OWN | 0) : 0;
7077 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg8), SWIGTYPE_p_double, new_flags); argvi++ ;
7078 }
7079 if (SWIG_IsTmpObj(res9)) {
7080 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg9)); argvi++ ;
7081 } else {
7082 int new_flags = SWIG_IsNewObj(res9) ? (SWIG_POINTER_OWN | 0) : 0;
7083 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg9), SWIGTYPE_p_double, new_flags); argvi++ ;
7084 }
7085 {
7086 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
7087 gsl_function_perl_free(p);
7088 }
7089
7090
7091
7092
7093
7094
7095
7096
7097 XSRETURN(argvi);
7098 fail:
7099 {
7100 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
7101 gsl_function_perl_free(p);
7102 }
7103
7104
7105
7106
7107
7108
7109
7110
7111 SWIG_croak_null();
7112 }
7113 }
7114
7115
XS(_wrap_gsl_integration_qawc)7116 XS(_wrap_gsl_integration_qawc) {
7117 {
7118 gsl_function *arg1 = (gsl_function *) 0 ;
7119 double arg2 ;
7120 double arg3 ;
7121 double arg4 ;
7122 double arg5 ;
7123 double arg6 ;
7124 size_t arg7 ;
7125 gsl_integration_workspace *arg8 = (gsl_integration_workspace *) 0 ;
7126 double *arg9 = (double *) 0 ;
7127 double *arg10 = (double *) 0 ;
7128 double val2 ;
7129 int ecode2 = 0 ;
7130 double val3 ;
7131 int ecode3 = 0 ;
7132 double val4 ;
7133 int ecode4 = 0 ;
7134 double val5 ;
7135 int ecode5 = 0 ;
7136 double val6 ;
7137 int ecode6 = 0 ;
7138 size_t val7 ;
7139 int ecode7 = 0 ;
7140 void *argp8 = 0 ;
7141 int res8 = 0 ;
7142 double temp9 ;
7143 int res9 = SWIG_TMPOBJ ;
7144 double temp10 ;
7145 int res10 = SWIG_TMPOBJ ;
7146 int argvi = 0;
7147 int result;
7148 dXSARGS;
7149
7150 arg9 = &temp9;
7151 arg10 = &temp10;
7152 if ((items < 8) || (items > 8)) {
7153 SWIG_croak("Usage: gsl_integration_qawc(f,a,b,c,epsabs,epsrel,limit,workspace);");
7154 }
7155 {
7156 SV * function = 0;
7157 SV * params = 0;
7158 struct gsl_function_perl *w_gsl_function;
7159 Newx(w_gsl_function, 1, struct gsl_function_perl);
7160
7161 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
7162 AV* array=(AV*)SvRV(ST(0));
7163 SV ** p_function = 0;
7164 if (av_len(array)<0) {
7165 croak("Math::GSL : $f is an empty array!");
7166 }
7167 if (av_len(array)>1) {
7168 croak("Math::GSL : $f is an array with more than 2 elements!");
7169 }
7170 p_function = av_fetch(array, 0, 0);
7171 function = *p_function;
7172 if (av_len(array)>0) {
7173 SV ** p_params = 0;
7174 p_params = av_fetch(array, 1, 0);
7175 params = *p_params;
7176 }
7177 } else {
7178 function = ST(0);
7179 }
7180
7181 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
7182 croak("Math::GSL : $f is not a reference to code!");
7183 }
7184
7185 function = newSVsv(function);
7186
7187 if (! params) {
7188 params=&PL_sv_undef;
7189 }
7190 params = newSVsv(params);
7191
7192 w_gsl_function->params = params;
7193 w_gsl_function->function = function;
7194 w_gsl_function->C_gsl_function.params = w_gsl_function;
7195 w_gsl_function->C_gsl_function.function = &call_gsl_function;
7196
7197 arg1 = &(w_gsl_function->C_gsl_function);
7198 }
7199 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7200 if (!SWIG_IsOK(ecode2)) {
7201 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qawc" "', argument " "2"" of type '" "double""'");
7202 }
7203 arg2 = (double)(val2);
7204 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
7205 if (!SWIG_IsOK(ecode3)) {
7206 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qawc" "', argument " "3"" of type '" "double""'");
7207 }
7208 arg3 = (double)(val3);
7209 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
7210 if (!SWIG_IsOK(ecode4)) {
7211 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_integration_qawc" "', argument " "4"" of type '" "double""'");
7212 }
7213 arg4 = (double)(val4);
7214 ecode5 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
7215 if (!SWIG_IsOK(ecode5)) {
7216 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_integration_qawc" "', argument " "5"" of type '" "double""'");
7217 }
7218 arg5 = (double)(val5);
7219 ecode6 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(5), &val6);
7220 if (!SWIG_IsOK(ecode6)) {
7221 SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "gsl_integration_qawc" "', argument " "6"" of type '" "double""'");
7222 }
7223 arg6 = (double)(val6);
7224 ecode7 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(6), &val7);
7225 if (!SWIG_IsOK(ecode7)) {
7226 SWIG_exception_fail(SWIG_ArgError(ecode7), "in method '" "gsl_integration_qawc" "', argument " "7"" of type '" "size_t""'");
7227 }
7228 arg7 = (size_t)(val7);
7229 res8 = SWIG_ConvertPtr(ST(7), &argp8,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
7230 if (!SWIG_IsOK(res8)) {
7231 SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_integration_qawc" "', argument " "8"" of type '" "gsl_integration_workspace *""'");
7232 }
7233 arg8 = (gsl_integration_workspace *)(argp8);
7234 result = (int)gsl_integration_qawc(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10);
7235 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7236 if (SWIG_IsTmpObj(res9)) {
7237 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg9)); argvi++ ;
7238 } else {
7239 int new_flags = SWIG_IsNewObj(res9) ? (SWIG_POINTER_OWN | 0) : 0;
7240 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg9), SWIGTYPE_p_double, new_flags); argvi++ ;
7241 }
7242 if (SWIG_IsTmpObj(res10)) {
7243 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg10)); argvi++ ;
7244 } else {
7245 int new_flags = SWIG_IsNewObj(res10) ? (SWIG_POINTER_OWN | 0) : 0;
7246 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg10), SWIGTYPE_p_double, new_flags); argvi++ ;
7247 }
7248 {
7249 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
7250 gsl_function_perl_free(p);
7251 }
7252
7253
7254
7255
7256
7257
7258
7259
7260
7261 XSRETURN(argvi);
7262 fail:
7263 {
7264 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
7265 gsl_function_perl_free(p);
7266 }
7267
7268
7269
7270
7271
7272
7273
7274
7275
7276 SWIG_croak_null();
7277 }
7278 }
7279
7280
XS(_wrap_gsl_integration_qaws)7281 XS(_wrap_gsl_integration_qaws) {
7282 {
7283 gsl_function *arg1 = (gsl_function *) 0 ;
7284 double arg2 ;
7285 double arg3 ;
7286 gsl_integration_qaws_table *arg4 = (gsl_integration_qaws_table *) 0 ;
7287 double arg5 ;
7288 double arg6 ;
7289 size_t arg7 ;
7290 gsl_integration_workspace *arg8 = (gsl_integration_workspace *) 0 ;
7291 double *arg9 = (double *) 0 ;
7292 double *arg10 = (double *) 0 ;
7293 double val2 ;
7294 int ecode2 = 0 ;
7295 double val3 ;
7296 int ecode3 = 0 ;
7297 void *argp4 = 0 ;
7298 int res4 = 0 ;
7299 double val5 ;
7300 int ecode5 = 0 ;
7301 double val6 ;
7302 int ecode6 = 0 ;
7303 size_t val7 ;
7304 int ecode7 = 0 ;
7305 void *argp8 = 0 ;
7306 int res8 = 0 ;
7307 double temp9 ;
7308 int res9 = SWIG_TMPOBJ ;
7309 double temp10 ;
7310 int res10 = SWIG_TMPOBJ ;
7311 int argvi = 0;
7312 int result;
7313 dXSARGS;
7314
7315 arg9 = &temp9;
7316 arg10 = &temp10;
7317 if ((items < 8) || (items > 8)) {
7318 SWIG_croak("Usage: gsl_integration_qaws(f,a,b,t,epsabs,epsrel,limit,workspace);");
7319 }
7320 {
7321 SV * function = 0;
7322 SV * params = 0;
7323 struct gsl_function_perl *w_gsl_function;
7324 Newx(w_gsl_function, 1, struct gsl_function_perl);
7325
7326 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
7327 AV* array=(AV*)SvRV(ST(0));
7328 SV ** p_function = 0;
7329 if (av_len(array)<0) {
7330 croak("Math::GSL : $f is an empty array!");
7331 }
7332 if (av_len(array)>1) {
7333 croak("Math::GSL : $f is an array with more than 2 elements!");
7334 }
7335 p_function = av_fetch(array, 0, 0);
7336 function = *p_function;
7337 if (av_len(array)>0) {
7338 SV ** p_params = 0;
7339 p_params = av_fetch(array, 1, 0);
7340 params = *p_params;
7341 }
7342 } else {
7343 function = ST(0);
7344 }
7345
7346 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
7347 croak("Math::GSL : $f is not a reference to code!");
7348 }
7349
7350 function = newSVsv(function);
7351
7352 if (! params) {
7353 params=&PL_sv_undef;
7354 }
7355 params = newSVsv(params);
7356
7357 w_gsl_function->params = params;
7358 w_gsl_function->function = function;
7359 w_gsl_function->C_gsl_function.params = w_gsl_function;
7360 w_gsl_function->C_gsl_function.function = &call_gsl_function;
7361
7362 arg1 = &(w_gsl_function->C_gsl_function);
7363 }
7364 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7365 if (!SWIG_IsOK(ecode2)) {
7366 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qaws" "', argument " "2"" of type '" "double""'");
7367 }
7368 arg2 = (double)(val2);
7369 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
7370 if (!SWIG_IsOK(ecode3)) {
7371 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qaws" "', argument " "3"" of type '" "double""'");
7372 }
7373 arg3 = (double)(val3);
7374 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_integration_qaws_table, 0 | 0 );
7375 if (!SWIG_IsOK(res4)) {
7376 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_integration_qaws" "', argument " "4"" of type '" "gsl_integration_qaws_table *""'");
7377 }
7378 arg4 = (gsl_integration_qaws_table *)(argp4);
7379 ecode5 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
7380 if (!SWIG_IsOK(ecode5)) {
7381 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_integration_qaws" "', argument " "5"" of type '" "double""'");
7382 }
7383 arg5 = (double)(val5);
7384 ecode6 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(5), &val6);
7385 if (!SWIG_IsOK(ecode6)) {
7386 SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "gsl_integration_qaws" "', argument " "6"" of type '" "double""'");
7387 }
7388 arg6 = (double)(val6);
7389 ecode7 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(6), &val7);
7390 if (!SWIG_IsOK(ecode7)) {
7391 SWIG_exception_fail(SWIG_ArgError(ecode7), "in method '" "gsl_integration_qaws" "', argument " "7"" of type '" "size_t""'");
7392 }
7393 arg7 = (size_t)(val7);
7394 res8 = SWIG_ConvertPtr(ST(7), &argp8,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
7395 if (!SWIG_IsOK(res8)) {
7396 SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_integration_qaws" "', argument " "8"" of type '" "gsl_integration_workspace *""'");
7397 }
7398 arg8 = (gsl_integration_workspace *)(argp8);
7399 result = (int)gsl_integration_qaws(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10);
7400 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7401 if (SWIG_IsTmpObj(res9)) {
7402 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg9)); argvi++ ;
7403 } else {
7404 int new_flags = SWIG_IsNewObj(res9) ? (SWIG_POINTER_OWN | 0) : 0;
7405 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg9), SWIGTYPE_p_double, new_flags); argvi++ ;
7406 }
7407 if (SWIG_IsTmpObj(res10)) {
7408 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg10)); argvi++ ;
7409 } else {
7410 int new_flags = SWIG_IsNewObj(res10) ? (SWIG_POINTER_OWN | 0) : 0;
7411 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg10), SWIGTYPE_p_double, new_flags); argvi++ ;
7412 }
7413 {
7414 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
7415 gsl_function_perl_free(p);
7416 }
7417
7418
7419
7420
7421
7422
7423
7424
7425
7426 XSRETURN(argvi);
7427 fail:
7428 {
7429 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
7430 gsl_function_perl_free(p);
7431 }
7432
7433
7434
7435
7436
7437
7438
7439
7440
7441 SWIG_croak_null();
7442 }
7443 }
7444
7445
XS(_wrap_gsl_integration_qawo)7446 XS(_wrap_gsl_integration_qawo) {
7447 {
7448 gsl_function *arg1 = (gsl_function *) 0 ;
7449 double arg2 ;
7450 double arg3 ;
7451 double arg4 ;
7452 size_t arg5 ;
7453 gsl_integration_workspace *arg6 = (gsl_integration_workspace *) 0 ;
7454 gsl_integration_qawo_table *arg7 = (gsl_integration_qawo_table *) 0 ;
7455 double *arg8 = (double *) 0 ;
7456 double *arg9 = (double *) 0 ;
7457 double val2 ;
7458 int ecode2 = 0 ;
7459 double val3 ;
7460 int ecode3 = 0 ;
7461 double val4 ;
7462 int ecode4 = 0 ;
7463 size_t val5 ;
7464 int ecode5 = 0 ;
7465 void *argp6 = 0 ;
7466 int res6 = 0 ;
7467 void *argp7 = 0 ;
7468 int res7 = 0 ;
7469 double temp8 ;
7470 int res8 = SWIG_TMPOBJ ;
7471 double temp9 ;
7472 int res9 = SWIG_TMPOBJ ;
7473 int argvi = 0;
7474 int result;
7475 dXSARGS;
7476
7477 arg8 = &temp8;
7478 arg9 = &temp9;
7479 if ((items < 7) || (items > 7)) {
7480 SWIG_croak("Usage: gsl_integration_qawo(f,a,epsabs,epsrel,limit,workspace,wf);");
7481 }
7482 {
7483 SV * function = 0;
7484 SV * params = 0;
7485 struct gsl_function_perl *w_gsl_function;
7486 Newx(w_gsl_function, 1, struct gsl_function_perl);
7487
7488 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
7489 AV* array=(AV*)SvRV(ST(0));
7490 SV ** p_function = 0;
7491 if (av_len(array)<0) {
7492 croak("Math::GSL : $f is an empty array!");
7493 }
7494 if (av_len(array)>1) {
7495 croak("Math::GSL : $f is an array with more than 2 elements!");
7496 }
7497 p_function = av_fetch(array, 0, 0);
7498 function = *p_function;
7499 if (av_len(array)>0) {
7500 SV ** p_params = 0;
7501 p_params = av_fetch(array, 1, 0);
7502 params = *p_params;
7503 }
7504 } else {
7505 function = ST(0);
7506 }
7507
7508 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
7509 croak("Math::GSL : $f is not a reference to code!");
7510 }
7511
7512 function = newSVsv(function);
7513
7514 if (! params) {
7515 params=&PL_sv_undef;
7516 }
7517 params = newSVsv(params);
7518
7519 w_gsl_function->params = params;
7520 w_gsl_function->function = function;
7521 w_gsl_function->C_gsl_function.params = w_gsl_function;
7522 w_gsl_function->C_gsl_function.function = &call_gsl_function;
7523
7524 arg1 = &(w_gsl_function->C_gsl_function);
7525 }
7526 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7527 if (!SWIG_IsOK(ecode2)) {
7528 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qawo" "', argument " "2"" of type '" "double""'");
7529 }
7530 arg2 = (double)(val2);
7531 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
7532 if (!SWIG_IsOK(ecode3)) {
7533 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qawo" "', argument " "3"" of type '" "double""'");
7534 }
7535 arg3 = (double)(val3);
7536 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
7537 if (!SWIG_IsOK(ecode4)) {
7538 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_integration_qawo" "', argument " "4"" of type '" "double""'");
7539 }
7540 arg4 = (double)(val4);
7541 ecode5 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
7542 if (!SWIG_IsOK(ecode5)) {
7543 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_integration_qawo" "', argument " "5"" of type '" "size_t""'");
7544 }
7545 arg5 = (size_t)(val5);
7546 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
7547 if (!SWIG_IsOK(res6)) {
7548 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_integration_qawo" "', argument " "6"" of type '" "gsl_integration_workspace *""'");
7549 }
7550 arg6 = (gsl_integration_workspace *)(argp6);
7551 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_integration_qawo_table, 0 | 0 );
7552 if (!SWIG_IsOK(res7)) {
7553 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_integration_qawo" "', argument " "7"" of type '" "gsl_integration_qawo_table *""'");
7554 }
7555 arg7 = (gsl_integration_qawo_table *)(argp7);
7556 result = (int)gsl_integration_qawo(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
7557 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7558 if (SWIG_IsTmpObj(res8)) {
7559 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg8)); argvi++ ;
7560 } else {
7561 int new_flags = SWIG_IsNewObj(res8) ? (SWIG_POINTER_OWN | 0) : 0;
7562 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg8), SWIGTYPE_p_double, new_flags); argvi++ ;
7563 }
7564 if (SWIG_IsTmpObj(res9)) {
7565 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg9)); argvi++ ;
7566 } else {
7567 int new_flags = SWIG_IsNewObj(res9) ? (SWIG_POINTER_OWN | 0) : 0;
7568 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg9), SWIGTYPE_p_double, new_flags); argvi++ ;
7569 }
7570 {
7571 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
7572 gsl_function_perl_free(p);
7573 }
7574
7575
7576
7577
7578
7579
7580
7581
7582 XSRETURN(argvi);
7583 fail:
7584 {
7585 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
7586 gsl_function_perl_free(p);
7587 }
7588
7589
7590
7591
7592
7593
7594
7595
7596 SWIG_croak_null();
7597 }
7598 }
7599
7600
XS(_wrap_gsl_integration_qawf)7601 XS(_wrap_gsl_integration_qawf) {
7602 {
7603 gsl_function *arg1 = (gsl_function *) 0 ;
7604 double arg2 ;
7605 double arg3 ;
7606 size_t arg4 ;
7607 gsl_integration_workspace *arg5 = (gsl_integration_workspace *) 0 ;
7608 gsl_integration_workspace *arg6 = (gsl_integration_workspace *) 0 ;
7609 gsl_integration_qawo_table *arg7 = (gsl_integration_qawo_table *) 0 ;
7610 double *arg8 = (double *) 0 ;
7611 double *arg9 = (double *) 0 ;
7612 double val2 ;
7613 int ecode2 = 0 ;
7614 double val3 ;
7615 int ecode3 = 0 ;
7616 size_t val4 ;
7617 int ecode4 = 0 ;
7618 void *argp5 = 0 ;
7619 int res5 = 0 ;
7620 void *argp6 = 0 ;
7621 int res6 = 0 ;
7622 void *argp7 = 0 ;
7623 int res7 = 0 ;
7624 double temp8 ;
7625 int res8 = SWIG_TMPOBJ ;
7626 double temp9 ;
7627 int res9 = SWIG_TMPOBJ ;
7628 int argvi = 0;
7629 int result;
7630 dXSARGS;
7631
7632 arg8 = &temp8;
7633 arg9 = &temp9;
7634 if ((items < 7) || (items > 7)) {
7635 SWIG_croak("Usage: gsl_integration_qawf(f,a,epsabs,limit,workspace,cycle_workspace,wf);");
7636 }
7637 {
7638 SV * function = 0;
7639 SV * params = 0;
7640 struct gsl_function_perl *w_gsl_function;
7641 Newx(w_gsl_function, 1, struct gsl_function_perl);
7642
7643 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
7644 AV* array=(AV*)SvRV(ST(0));
7645 SV ** p_function = 0;
7646 if (av_len(array)<0) {
7647 croak("Math::GSL : $f is an empty array!");
7648 }
7649 if (av_len(array)>1) {
7650 croak("Math::GSL : $f is an array with more than 2 elements!");
7651 }
7652 p_function = av_fetch(array, 0, 0);
7653 function = *p_function;
7654 if (av_len(array)>0) {
7655 SV ** p_params = 0;
7656 p_params = av_fetch(array, 1, 0);
7657 params = *p_params;
7658 }
7659 } else {
7660 function = ST(0);
7661 }
7662
7663 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
7664 croak("Math::GSL : $f is not a reference to code!");
7665 }
7666
7667 function = newSVsv(function);
7668
7669 if (! params) {
7670 params=&PL_sv_undef;
7671 }
7672 params = newSVsv(params);
7673
7674 w_gsl_function->params = params;
7675 w_gsl_function->function = function;
7676 w_gsl_function->C_gsl_function.params = w_gsl_function;
7677 w_gsl_function->C_gsl_function.function = &call_gsl_function;
7678
7679 arg1 = &(w_gsl_function->C_gsl_function);
7680 }
7681 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7682 if (!SWIG_IsOK(ecode2)) {
7683 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qawf" "', argument " "2"" of type '" "double""'");
7684 }
7685 arg2 = (double)(val2);
7686 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
7687 if (!SWIG_IsOK(ecode3)) {
7688 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qawf" "', argument " "3"" of type '" "double""'");
7689 }
7690 arg3 = (double)(val3);
7691 ecode4 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
7692 if (!SWIG_IsOK(ecode4)) {
7693 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_integration_qawf" "', argument " "4"" of type '" "size_t""'");
7694 }
7695 arg4 = (size_t)(val4);
7696 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
7697 if (!SWIG_IsOK(res5)) {
7698 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_integration_qawf" "', argument " "5"" of type '" "gsl_integration_workspace *""'");
7699 }
7700 arg5 = (gsl_integration_workspace *)(argp5);
7701 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
7702 if (!SWIG_IsOK(res6)) {
7703 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_integration_qawf" "', argument " "6"" of type '" "gsl_integration_workspace *""'");
7704 }
7705 arg6 = (gsl_integration_workspace *)(argp6);
7706 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_integration_qawo_table, 0 | 0 );
7707 if (!SWIG_IsOK(res7)) {
7708 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_integration_qawf" "', argument " "7"" of type '" "gsl_integration_qawo_table *""'");
7709 }
7710 arg7 = (gsl_integration_qawo_table *)(argp7);
7711 result = (int)gsl_integration_qawf(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
7712 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7713 if (SWIG_IsTmpObj(res8)) {
7714 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg8)); argvi++ ;
7715 } else {
7716 int new_flags = SWIG_IsNewObj(res8) ? (SWIG_POINTER_OWN | 0) : 0;
7717 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg8), SWIGTYPE_p_double, new_flags); argvi++ ;
7718 }
7719 if (SWIG_IsTmpObj(res9)) {
7720 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg9)); argvi++ ;
7721 } else {
7722 int new_flags = SWIG_IsNewObj(res9) ? (SWIG_POINTER_OWN | 0) : 0;
7723 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg9), SWIGTYPE_p_double, new_flags); argvi++ ;
7724 }
7725 {
7726 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
7727 gsl_function_perl_free(p);
7728 }
7729
7730
7731
7732
7733
7734
7735
7736
7737 XSRETURN(argvi);
7738 fail:
7739 {
7740 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
7741 gsl_function_perl_free(p);
7742 }
7743
7744
7745
7746
7747
7748
7749
7750
7751 SWIG_croak_null();
7752 }
7753 }
7754
7755
XS(_wrap_gsl_integration_glfixed_table_n_set)7756 XS(_wrap_gsl_integration_glfixed_table_n_set) {
7757 {
7758 gsl_integration_glfixed_table *arg1 = (gsl_integration_glfixed_table *) 0 ;
7759 size_t arg2 ;
7760 void *argp1 = 0 ;
7761 int res1 = 0 ;
7762 size_t val2 ;
7763 int ecode2 = 0 ;
7764 int argvi = 0;
7765 dXSARGS;
7766
7767 if ((items < 2) || (items > 2)) {
7768 SWIG_croak("Usage: gsl_integration_glfixed_table_n_set(self,n);");
7769 }
7770 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_glfixed_table, 0 | 0 );
7771 if (!SWIG_IsOK(res1)) {
7772 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_glfixed_table_n_set" "', argument " "1"" of type '" "gsl_integration_glfixed_table *""'");
7773 }
7774 arg1 = (gsl_integration_glfixed_table *)(argp1);
7775 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7776 if (!SWIG_IsOK(ecode2)) {
7777 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_glfixed_table_n_set" "', argument " "2"" of type '" "size_t""'");
7778 }
7779 arg2 = (size_t)(val2);
7780 if (arg1) (arg1)->n = arg2;
7781 ST(argvi) = &PL_sv_undef;
7782
7783
7784 XSRETURN(argvi);
7785 fail:
7786
7787
7788 SWIG_croak_null();
7789 }
7790 }
7791
7792
XS(_wrap_gsl_integration_glfixed_table_n_get)7793 XS(_wrap_gsl_integration_glfixed_table_n_get) {
7794 {
7795 gsl_integration_glfixed_table *arg1 = (gsl_integration_glfixed_table *) 0 ;
7796 void *argp1 = 0 ;
7797 int res1 = 0 ;
7798 int argvi = 0;
7799 size_t result;
7800 dXSARGS;
7801
7802 if ((items < 1) || (items > 1)) {
7803 SWIG_croak("Usage: gsl_integration_glfixed_table_n_get(self);");
7804 }
7805 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_glfixed_table, 0 | 0 );
7806 if (!SWIG_IsOK(res1)) {
7807 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_glfixed_table_n_get" "', argument " "1"" of type '" "gsl_integration_glfixed_table *""'");
7808 }
7809 arg1 = (gsl_integration_glfixed_table *)(argp1);
7810 result = ((arg1)->n);
7811 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
7812
7813 XSRETURN(argvi);
7814 fail:
7815
7816 SWIG_croak_null();
7817 }
7818 }
7819
7820
XS(_wrap_gsl_integration_glfixed_table_x_set)7821 XS(_wrap_gsl_integration_glfixed_table_x_set) {
7822 {
7823 gsl_integration_glfixed_table *arg1 = (gsl_integration_glfixed_table *) 0 ;
7824 double *arg2 = (double *) 0 ;
7825 void *argp1 = 0 ;
7826 int res1 = 0 ;
7827 void *argp2 = 0 ;
7828 int res2 = 0 ;
7829 int argvi = 0;
7830 dXSARGS;
7831
7832 if ((items < 2) || (items > 2)) {
7833 SWIG_croak("Usage: gsl_integration_glfixed_table_x_set(self,x);");
7834 }
7835 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_glfixed_table, 0 | 0 );
7836 if (!SWIG_IsOK(res1)) {
7837 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_glfixed_table_x_set" "', argument " "1"" of type '" "gsl_integration_glfixed_table *""'");
7838 }
7839 arg1 = (gsl_integration_glfixed_table *)(argp1);
7840 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
7841 if (!SWIG_IsOK(res2)) {
7842 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_glfixed_table_x_set" "', argument " "2"" of type '" "double *""'");
7843 }
7844 arg2 = (double *)(argp2);
7845 if (arg1) (arg1)->x = arg2;
7846 ST(argvi) = &PL_sv_undef;
7847
7848
7849 XSRETURN(argvi);
7850 fail:
7851
7852
7853 SWIG_croak_null();
7854 }
7855 }
7856
7857
XS(_wrap_gsl_integration_glfixed_table_x_get)7858 XS(_wrap_gsl_integration_glfixed_table_x_get) {
7859 {
7860 gsl_integration_glfixed_table *arg1 = (gsl_integration_glfixed_table *) 0 ;
7861 void *argp1 = 0 ;
7862 int res1 = 0 ;
7863 int argvi = 0;
7864 double *result = 0 ;
7865 dXSARGS;
7866
7867 if ((items < 1) || (items > 1)) {
7868 SWIG_croak("Usage: gsl_integration_glfixed_table_x_get(self);");
7869 }
7870 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_glfixed_table, 0 | 0 );
7871 if (!SWIG_IsOK(res1)) {
7872 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_glfixed_table_x_get" "', argument " "1"" of type '" "gsl_integration_glfixed_table *""'");
7873 }
7874 arg1 = (gsl_integration_glfixed_table *)(argp1);
7875 result = (double *) ((arg1)->x);
7876 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
7877
7878 XSRETURN(argvi);
7879 fail:
7880
7881 SWIG_croak_null();
7882 }
7883 }
7884
7885
XS(_wrap_gsl_integration_glfixed_table_w_set)7886 XS(_wrap_gsl_integration_glfixed_table_w_set) {
7887 {
7888 gsl_integration_glfixed_table *arg1 = (gsl_integration_glfixed_table *) 0 ;
7889 double *arg2 = (double *) 0 ;
7890 void *argp1 = 0 ;
7891 int res1 = 0 ;
7892 void *argp2 = 0 ;
7893 int res2 = 0 ;
7894 int argvi = 0;
7895 dXSARGS;
7896
7897 if ((items < 2) || (items > 2)) {
7898 SWIG_croak("Usage: gsl_integration_glfixed_table_w_set(self,w);");
7899 }
7900 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_glfixed_table, 0 | 0 );
7901 if (!SWIG_IsOK(res1)) {
7902 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_glfixed_table_w_set" "', argument " "1"" of type '" "gsl_integration_glfixed_table *""'");
7903 }
7904 arg1 = (gsl_integration_glfixed_table *)(argp1);
7905 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
7906 if (!SWIG_IsOK(res2)) {
7907 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_glfixed_table_w_set" "', argument " "2"" of type '" "double *""'");
7908 }
7909 arg2 = (double *)(argp2);
7910 if (arg1) (arg1)->w = arg2;
7911 ST(argvi) = &PL_sv_undef;
7912
7913
7914 XSRETURN(argvi);
7915 fail:
7916
7917
7918 SWIG_croak_null();
7919 }
7920 }
7921
7922
XS(_wrap_gsl_integration_glfixed_table_w_get)7923 XS(_wrap_gsl_integration_glfixed_table_w_get) {
7924 {
7925 gsl_integration_glfixed_table *arg1 = (gsl_integration_glfixed_table *) 0 ;
7926 void *argp1 = 0 ;
7927 int res1 = 0 ;
7928 int argvi = 0;
7929 double *result = 0 ;
7930 dXSARGS;
7931
7932 if ((items < 1) || (items > 1)) {
7933 SWIG_croak("Usage: gsl_integration_glfixed_table_w_get(self);");
7934 }
7935 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_glfixed_table, 0 | 0 );
7936 if (!SWIG_IsOK(res1)) {
7937 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_glfixed_table_w_get" "', argument " "1"" of type '" "gsl_integration_glfixed_table *""'");
7938 }
7939 arg1 = (gsl_integration_glfixed_table *)(argp1);
7940 result = (double *) ((arg1)->w);
7941 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
7942
7943 XSRETURN(argvi);
7944 fail:
7945
7946 SWIG_croak_null();
7947 }
7948 }
7949
7950
XS(_wrap_gsl_integration_glfixed_table_precomputed_set)7951 XS(_wrap_gsl_integration_glfixed_table_precomputed_set) {
7952 {
7953 gsl_integration_glfixed_table *arg1 = (gsl_integration_glfixed_table *) 0 ;
7954 int arg2 ;
7955 void *argp1 = 0 ;
7956 int res1 = 0 ;
7957 int val2 ;
7958 int ecode2 = 0 ;
7959 int argvi = 0;
7960 dXSARGS;
7961
7962 if ((items < 2) || (items > 2)) {
7963 SWIG_croak("Usage: gsl_integration_glfixed_table_precomputed_set(self,precomputed);");
7964 }
7965 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_glfixed_table, 0 | 0 );
7966 if (!SWIG_IsOK(res1)) {
7967 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_glfixed_table_precomputed_set" "', argument " "1"" of type '" "gsl_integration_glfixed_table *""'");
7968 }
7969 arg1 = (gsl_integration_glfixed_table *)(argp1);
7970 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7971 if (!SWIG_IsOK(ecode2)) {
7972 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_glfixed_table_precomputed_set" "', argument " "2"" of type '" "int""'");
7973 }
7974 arg2 = (int)(val2);
7975 if (arg1) (arg1)->precomputed = arg2;
7976 ST(argvi) = &PL_sv_undef;
7977
7978
7979 XSRETURN(argvi);
7980 fail:
7981
7982
7983 SWIG_croak_null();
7984 }
7985 }
7986
7987
XS(_wrap_gsl_integration_glfixed_table_precomputed_get)7988 XS(_wrap_gsl_integration_glfixed_table_precomputed_get) {
7989 {
7990 gsl_integration_glfixed_table *arg1 = (gsl_integration_glfixed_table *) 0 ;
7991 void *argp1 = 0 ;
7992 int res1 = 0 ;
7993 int argvi = 0;
7994 int result;
7995 dXSARGS;
7996
7997 if ((items < 1) || (items > 1)) {
7998 SWIG_croak("Usage: gsl_integration_glfixed_table_precomputed_get(self);");
7999 }
8000 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_glfixed_table, 0 | 0 );
8001 if (!SWIG_IsOK(res1)) {
8002 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_glfixed_table_precomputed_get" "', argument " "1"" of type '" "gsl_integration_glfixed_table *""'");
8003 }
8004 arg1 = (gsl_integration_glfixed_table *)(argp1);
8005 result = (int) ((arg1)->precomputed);
8006 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8007
8008 XSRETURN(argvi);
8009 fail:
8010
8011 SWIG_croak_null();
8012 }
8013 }
8014
8015
XS(_wrap_new_gsl_integration_glfixed_table)8016 XS(_wrap_new_gsl_integration_glfixed_table) {
8017 {
8018 int argvi = 0;
8019 gsl_integration_glfixed_table *result = 0 ;
8020 dXSARGS;
8021
8022 if ((items < 0) || (items > 0)) {
8023 SWIG_croak("Usage: new_gsl_integration_glfixed_table();");
8024 }
8025 result = (gsl_integration_glfixed_table *)calloc(1, sizeof(gsl_integration_glfixed_table));
8026 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_integration_glfixed_table, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
8027 XSRETURN(argvi);
8028 fail:
8029 SWIG_croak_null();
8030 }
8031 }
8032
8033
XS(_wrap_delete_gsl_integration_glfixed_table)8034 XS(_wrap_delete_gsl_integration_glfixed_table) {
8035 {
8036 gsl_integration_glfixed_table *arg1 = (gsl_integration_glfixed_table *) 0 ;
8037 void *argp1 = 0 ;
8038 int res1 = 0 ;
8039 int argvi = 0;
8040 dXSARGS;
8041
8042 if ((items < 1) || (items > 1)) {
8043 SWIG_croak("Usage: delete_gsl_integration_glfixed_table(self);");
8044 }
8045 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_glfixed_table, SWIG_POINTER_DISOWN | 0 );
8046 if (!SWIG_IsOK(res1)) {
8047 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_integration_glfixed_table" "', argument " "1"" of type '" "gsl_integration_glfixed_table *""'");
8048 }
8049 arg1 = (gsl_integration_glfixed_table *)(argp1);
8050 free((char *) arg1);
8051 ST(argvi) = &PL_sv_undef;
8052
8053 XSRETURN(argvi);
8054 fail:
8055
8056 SWIG_croak_null();
8057 }
8058 }
8059
8060
XS(_wrap_gsl_integration_glfixed_table_alloc)8061 XS(_wrap_gsl_integration_glfixed_table_alloc) {
8062 {
8063 size_t arg1 ;
8064 size_t val1 ;
8065 int ecode1 = 0 ;
8066 int argvi = 0;
8067 gsl_integration_glfixed_table *result = 0 ;
8068 dXSARGS;
8069
8070 if ((items < 1) || (items > 1)) {
8071 SWIG_croak("Usage: gsl_integration_glfixed_table_alloc(n);");
8072 }
8073 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
8074 if (!SWIG_IsOK(ecode1)) {
8075 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_integration_glfixed_table_alloc" "', argument " "1"" of type '" "size_t""'");
8076 }
8077 arg1 = (size_t)(val1);
8078 result = (gsl_integration_glfixed_table *)gsl_integration_glfixed_table_alloc(arg1);
8079 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_integration_glfixed_table, 0 | SWIG_SHADOW); argvi++ ;
8080
8081 XSRETURN(argvi);
8082 fail:
8083
8084 SWIG_croak_null();
8085 }
8086 }
8087
8088
XS(_wrap_gsl_integration_glfixed_table_free)8089 XS(_wrap_gsl_integration_glfixed_table_free) {
8090 {
8091 gsl_integration_glfixed_table *arg1 = (gsl_integration_glfixed_table *) 0 ;
8092 void *argp1 = 0 ;
8093 int res1 = 0 ;
8094 int argvi = 0;
8095 dXSARGS;
8096
8097 if ((items < 1) || (items > 1)) {
8098 SWIG_croak("Usage: gsl_integration_glfixed_table_free(t);");
8099 }
8100 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_glfixed_table, 0 | 0 );
8101 if (!SWIG_IsOK(res1)) {
8102 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_glfixed_table_free" "', argument " "1"" of type '" "gsl_integration_glfixed_table *""'");
8103 }
8104 arg1 = (gsl_integration_glfixed_table *)(argp1);
8105 gsl_integration_glfixed_table_free(arg1);
8106 ST(argvi) = &PL_sv_undef;
8107
8108 XSRETURN(argvi);
8109 fail:
8110
8111 SWIG_croak_null();
8112 }
8113 }
8114
8115
XS(_wrap_gsl_integration_glfixed)8116 XS(_wrap_gsl_integration_glfixed) {
8117 {
8118 gsl_function *arg1 = (gsl_function *) 0 ;
8119 double arg2 ;
8120 double arg3 ;
8121 gsl_integration_glfixed_table *arg4 = (gsl_integration_glfixed_table *) 0 ;
8122 double val2 ;
8123 int ecode2 = 0 ;
8124 double val3 ;
8125 int ecode3 = 0 ;
8126 void *argp4 = 0 ;
8127 int res4 = 0 ;
8128 int argvi = 0;
8129 double result;
8130 dXSARGS;
8131
8132 if ((items < 4) || (items > 4)) {
8133 SWIG_croak("Usage: gsl_integration_glfixed(f,a,b,t);");
8134 }
8135 {
8136 SV * function = 0;
8137 SV * params = 0;
8138 struct gsl_function_perl *w_gsl_function;
8139 Newx(w_gsl_function, 1, struct gsl_function_perl);
8140
8141 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
8142 AV* array=(AV*)SvRV(ST(0));
8143 SV ** p_function = 0;
8144 if (av_len(array)<0) {
8145 croak("Math::GSL : $f is an empty array!");
8146 }
8147 if (av_len(array)>1) {
8148 croak("Math::GSL : $f is an array with more than 2 elements!");
8149 }
8150 p_function = av_fetch(array, 0, 0);
8151 function = *p_function;
8152 if (av_len(array)>0) {
8153 SV ** p_params = 0;
8154 p_params = av_fetch(array, 1, 0);
8155 params = *p_params;
8156 }
8157 } else {
8158 function = ST(0);
8159 }
8160
8161 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
8162 croak("Math::GSL : $f is not a reference to code!");
8163 }
8164
8165 function = newSVsv(function);
8166
8167 if (! params) {
8168 params=&PL_sv_undef;
8169 }
8170 params = newSVsv(params);
8171
8172 w_gsl_function->params = params;
8173 w_gsl_function->function = function;
8174 w_gsl_function->C_gsl_function.params = w_gsl_function;
8175 w_gsl_function->C_gsl_function.function = &call_gsl_function;
8176
8177 arg1 = &(w_gsl_function->C_gsl_function);
8178 }
8179 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8180 if (!SWIG_IsOK(ecode2)) {
8181 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_glfixed" "', argument " "2"" of type '" "double""'");
8182 }
8183 arg2 = (double)(val2);
8184 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
8185 if (!SWIG_IsOK(ecode3)) {
8186 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_glfixed" "', argument " "3"" of type '" "double""'");
8187 }
8188 arg3 = (double)(val3);
8189 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_integration_glfixed_table, 0 | 0 );
8190 if (!SWIG_IsOK(res4)) {
8191 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_integration_glfixed" "', argument " "4"" of type '" "gsl_integration_glfixed_table const *""'");
8192 }
8193 arg4 = (gsl_integration_glfixed_table *)(argp4);
8194 result = (double)gsl_integration_glfixed((struct gsl_function_struct const *)arg1,arg2,arg3,(gsl_integration_glfixed_table const *)arg4);
8195 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
8196 {
8197 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
8198 gsl_function_perl_free(p);
8199 }
8200
8201
8202
8203 XSRETURN(argvi);
8204 fail:
8205 {
8206 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
8207 gsl_function_perl_free(p);
8208 }
8209
8210
8211
8212 SWIG_croak_null();
8213 }
8214 }
8215
8216
XS(_wrap_gsl_integration_glfixed_point)8217 XS(_wrap_gsl_integration_glfixed_point) {
8218 {
8219 double arg1 ;
8220 double arg2 ;
8221 size_t arg3 ;
8222 double *arg4 = (double *) 0 ;
8223 double *arg5 = (double *) 0 ;
8224 gsl_integration_glfixed_table *arg6 = (gsl_integration_glfixed_table *) 0 ;
8225 double val1 ;
8226 int ecode1 = 0 ;
8227 double val2 ;
8228 int ecode2 = 0 ;
8229 size_t val3 ;
8230 int ecode3 = 0 ;
8231 void *argp4 = 0 ;
8232 int res4 = 0 ;
8233 void *argp5 = 0 ;
8234 int res5 = 0 ;
8235 void *argp6 = 0 ;
8236 int res6 = 0 ;
8237 int argvi = 0;
8238 int result;
8239 dXSARGS;
8240
8241 if ((items < 6) || (items > 6)) {
8242 SWIG_croak("Usage: gsl_integration_glfixed_point(a,b,i,xi,wi,t);");
8243 }
8244 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
8245 if (!SWIG_IsOK(ecode1)) {
8246 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_integration_glfixed_point" "', argument " "1"" of type '" "double""'");
8247 }
8248 arg1 = (double)(val1);
8249 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8250 if (!SWIG_IsOK(ecode2)) {
8251 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_glfixed_point" "', argument " "2"" of type '" "double""'");
8252 }
8253 arg2 = (double)(val2);
8254 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
8255 if (!SWIG_IsOK(ecode3)) {
8256 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_glfixed_point" "', argument " "3"" of type '" "size_t""'");
8257 }
8258 arg3 = (size_t)(val3);
8259 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_double, 0 | 0 );
8260 if (!SWIG_IsOK(res4)) {
8261 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_integration_glfixed_point" "', argument " "4"" of type '" "double *""'");
8262 }
8263 arg4 = (double *)(argp4);
8264 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_double, 0 | 0 );
8265 if (!SWIG_IsOK(res5)) {
8266 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_integration_glfixed_point" "', argument " "5"" of type '" "double *""'");
8267 }
8268 arg5 = (double *)(argp5);
8269 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_integration_glfixed_table, 0 | 0 );
8270 if (!SWIG_IsOK(res6)) {
8271 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_integration_glfixed_point" "', argument " "6"" of type '" "gsl_integration_glfixed_table const *""'");
8272 }
8273 arg6 = (gsl_integration_glfixed_table *)(argp6);
8274 result = (int)gsl_integration_glfixed_point(arg1,arg2,arg3,arg4,arg5,(gsl_integration_glfixed_table const *)arg6);
8275 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8276
8277
8278
8279
8280
8281
8282 XSRETURN(argvi);
8283 fail:
8284
8285
8286
8287
8288
8289
8290 SWIG_croak_null();
8291 }
8292 }
8293
8294
XS(_wrap_gsl_integration_cquad_ival_a_set)8295 XS(_wrap_gsl_integration_cquad_ival_a_set) {
8296 {
8297 gsl_integration_cquad_ival *arg1 = (gsl_integration_cquad_ival *) 0 ;
8298 double arg2 ;
8299 void *argp1 = 0 ;
8300 int res1 = 0 ;
8301 double val2 ;
8302 int ecode2 = 0 ;
8303 int argvi = 0;
8304 dXSARGS;
8305
8306 if ((items < 2) || (items > 2)) {
8307 SWIG_croak("Usage: gsl_integration_cquad_ival_a_set(self,a);");
8308 }
8309 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_ival, 0 | 0 );
8310 if (!SWIG_IsOK(res1)) {
8311 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_ival_a_set" "', argument " "1"" of type '" "gsl_integration_cquad_ival *""'");
8312 }
8313 arg1 = (gsl_integration_cquad_ival *)(argp1);
8314 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8315 if (!SWIG_IsOK(ecode2)) {
8316 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_cquad_ival_a_set" "', argument " "2"" of type '" "double""'");
8317 }
8318 arg2 = (double)(val2);
8319 if (arg1) (arg1)->a = arg2;
8320 ST(argvi) = &PL_sv_undef;
8321
8322
8323 XSRETURN(argvi);
8324 fail:
8325
8326
8327 SWIG_croak_null();
8328 }
8329 }
8330
8331
XS(_wrap_gsl_integration_cquad_ival_a_get)8332 XS(_wrap_gsl_integration_cquad_ival_a_get) {
8333 {
8334 gsl_integration_cquad_ival *arg1 = (gsl_integration_cquad_ival *) 0 ;
8335 void *argp1 = 0 ;
8336 int res1 = 0 ;
8337 int argvi = 0;
8338 double result;
8339 dXSARGS;
8340
8341 if ((items < 1) || (items > 1)) {
8342 SWIG_croak("Usage: gsl_integration_cquad_ival_a_get(self);");
8343 }
8344 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_ival, 0 | 0 );
8345 if (!SWIG_IsOK(res1)) {
8346 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_ival_a_get" "', argument " "1"" of type '" "gsl_integration_cquad_ival *""'");
8347 }
8348 arg1 = (gsl_integration_cquad_ival *)(argp1);
8349 result = (double) ((arg1)->a);
8350 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
8351
8352 XSRETURN(argvi);
8353 fail:
8354
8355 SWIG_croak_null();
8356 }
8357 }
8358
8359
XS(_wrap_gsl_integration_cquad_ival_b_set)8360 XS(_wrap_gsl_integration_cquad_ival_b_set) {
8361 {
8362 gsl_integration_cquad_ival *arg1 = (gsl_integration_cquad_ival *) 0 ;
8363 double arg2 ;
8364 void *argp1 = 0 ;
8365 int res1 = 0 ;
8366 double val2 ;
8367 int ecode2 = 0 ;
8368 int argvi = 0;
8369 dXSARGS;
8370
8371 if ((items < 2) || (items > 2)) {
8372 SWIG_croak("Usage: gsl_integration_cquad_ival_b_set(self,b);");
8373 }
8374 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_ival, 0 | 0 );
8375 if (!SWIG_IsOK(res1)) {
8376 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_ival_b_set" "', argument " "1"" of type '" "gsl_integration_cquad_ival *""'");
8377 }
8378 arg1 = (gsl_integration_cquad_ival *)(argp1);
8379 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8380 if (!SWIG_IsOK(ecode2)) {
8381 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_cquad_ival_b_set" "', argument " "2"" of type '" "double""'");
8382 }
8383 arg2 = (double)(val2);
8384 if (arg1) (arg1)->b = arg2;
8385 ST(argvi) = &PL_sv_undef;
8386
8387
8388 XSRETURN(argvi);
8389 fail:
8390
8391
8392 SWIG_croak_null();
8393 }
8394 }
8395
8396
XS(_wrap_gsl_integration_cquad_ival_b_get)8397 XS(_wrap_gsl_integration_cquad_ival_b_get) {
8398 {
8399 gsl_integration_cquad_ival *arg1 = (gsl_integration_cquad_ival *) 0 ;
8400 void *argp1 = 0 ;
8401 int res1 = 0 ;
8402 int argvi = 0;
8403 double result;
8404 dXSARGS;
8405
8406 if ((items < 1) || (items > 1)) {
8407 SWIG_croak("Usage: gsl_integration_cquad_ival_b_get(self);");
8408 }
8409 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_ival, 0 | 0 );
8410 if (!SWIG_IsOK(res1)) {
8411 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_ival_b_get" "', argument " "1"" of type '" "gsl_integration_cquad_ival *""'");
8412 }
8413 arg1 = (gsl_integration_cquad_ival *)(argp1);
8414 result = (double) ((arg1)->b);
8415 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
8416
8417 XSRETURN(argvi);
8418 fail:
8419
8420 SWIG_croak_null();
8421 }
8422 }
8423
8424
XS(_wrap_gsl_integration_cquad_ival_c_set)8425 XS(_wrap_gsl_integration_cquad_ival_c_set) {
8426 {
8427 gsl_integration_cquad_ival *arg1 = (gsl_integration_cquad_ival *) 0 ;
8428 double *arg2 ;
8429 void *argp1 = 0 ;
8430 int res1 = 0 ;
8431 void *argp2 = 0 ;
8432 int res2 = 0 ;
8433 int argvi = 0;
8434 dXSARGS;
8435
8436 if ((items < 2) || (items > 2)) {
8437 SWIG_croak("Usage: gsl_integration_cquad_ival_c_set(self,c);");
8438 }
8439 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_ival, 0 | 0 );
8440 if (!SWIG_IsOK(res1)) {
8441 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_ival_c_set" "', argument " "1"" of type '" "gsl_integration_cquad_ival *""'");
8442 }
8443 arg1 = (gsl_integration_cquad_ival *)(argp1);
8444 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
8445 if (!SWIG_IsOK(res2)) {
8446 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_cquad_ival_c_set" "', argument " "2"" of type '" "double [64]""'");
8447 }
8448 arg2 = (double *)(argp2);
8449 {
8450 if (arg2) {
8451 size_t ii = 0;
8452 for (; ii < (size_t)64; ++ii) *(double *)&arg1->c[ii] = *((double *)arg2 + ii);
8453 } else {
8454 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""c""' of type '""double [64]""'");
8455 }
8456 }
8457 ST(argvi) = &PL_sv_undef;
8458
8459
8460 XSRETURN(argvi);
8461 fail:
8462
8463
8464 SWIG_croak_null();
8465 }
8466 }
8467
8468
XS(_wrap_gsl_integration_cquad_ival_c_get)8469 XS(_wrap_gsl_integration_cquad_ival_c_get) {
8470 {
8471 gsl_integration_cquad_ival *arg1 = (gsl_integration_cquad_ival *) 0 ;
8472 void *argp1 = 0 ;
8473 int res1 = 0 ;
8474 int argvi = 0;
8475 double *result = 0 ;
8476 dXSARGS;
8477
8478 if ((items < 1) || (items > 1)) {
8479 SWIG_croak("Usage: gsl_integration_cquad_ival_c_get(self);");
8480 }
8481 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_ival, 0 | 0 );
8482 if (!SWIG_IsOK(res1)) {
8483 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_ival_c_get" "', argument " "1"" of type '" "gsl_integration_cquad_ival *""'");
8484 }
8485 arg1 = (gsl_integration_cquad_ival *)(argp1);
8486 result = (double *)(double *) ((arg1)->c);
8487 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
8488
8489 XSRETURN(argvi);
8490 fail:
8491
8492 SWIG_croak_null();
8493 }
8494 }
8495
8496
XS(_wrap_gsl_integration_cquad_ival_fx_set)8497 XS(_wrap_gsl_integration_cquad_ival_fx_set) {
8498 {
8499 gsl_integration_cquad_ival *arg1 = (gsl_integration_cquad_ival *) 0 ;
8500 double *arg2 ;
8501 void *argp1 = 0 ;
8502 int res1 = 0 ;
8503 void *argp2 = 0 ;
8504 int res2 = 0 ;
8505 int argvi = 0;
8506 dXSARGS;
8507
8508 if ((items < 2) || (items > 2)) {
8509 SWIG_croak("Usage: gsl_integration_cquad_ival_fx_set(self,fx);");
8510 }
8511 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_ival, 0 | 0 );
8512 if (!SWIG_IsOK(res1)) {
8513 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_ival_fx_set" "', argument " "1"" of type '" "gsl_integration_cquad_ival *""'");
8514 }
8515 arg1 = (gsl_integration_cquad_ival *)(argp1);
8516 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
8517 if (!SWIG_IsOK(res2)) {
8518 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_cquad_ival_fx_set" "', argument " "2"" of type '" "double [33]""'");
8519 }
8520 arg2 = (double *)(argp2);
8521 {
8522 if (arg2) {
8523 size_t ii = 0;
8524 for (; ii < (size_t)33; ++ii) *(double *)&arg1->fx[ii] = *((double *)arg2 + ii);
8525 } else {
8526 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""fx""' of type '""double [33]""'");
8527 }
8528 }
8529 ST(argvi) = &PL_sv_undef;
8530
8531
8532 XSRETURN(argvi);
8533 fail:
8534
8535
8536 SWIG_croak_null();
8537 }
8538 }
8539
8540
XS(_wrap_gsl_integration_cquad_ival_fx_get)8541 XS(_wrap_gsl_integration_cquad_ival_fx_get) {
8542 {
8543 gsl_integration_cquad_ival *arg1 = (gsl_integration_cquad_ival *) 0 ;
8544 void *argp1 = 0 ;
8545 int res1 = 0 ;
8546 int argvi = 0;
8547 double *result = 0 ;
8548 dXSARGS;
8549
8550 if ((items < 1) || (items > 1)) {
8551 SWIG_croak("Usage: gsl_integration_cquad_ival_fx_get(self);");
8552 }
8553 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_ival, 0 | 0 );
8554 if (!SWIG_IsOK(res1)) {
8555 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_ival_fx_get" "', argument " "1"" of type '" "gsl_integration_cquad_ival *""'");
8556 }
8557 arg1 = (gsl_integration_cquad_ival *)(argp1);
8558 result = (double *)(double *) ((arg1)->fx);
8559 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
8560
8561 XSRETURN(argvi);
8562 fail:
8563
8564 SWIG_croak_null();
8565 }
8566 }
8567
8568
XS(_wrap_gsl_integration_cquad_ival_igral_set)8569 XS(_wrap_gsl_integration_cquad_ival_igral_set) {
8570 {
8571 gsl_integration_cquad_ival *arg1 = (gsl_integration_cquad_ival *) 0 ;
8572 double arg2 ;
8573 void *argp1 = 0 ;
8574 int res1 = 0 ;
8575 double val2 ;
8576 int ecode2 = 0 ;
8577 int argvi = 0;
8578 dXSARGS;
8579
8580 if ((items < 2) || (items > 2)) {
8581 SWIG_croak("Usage: gsl_integration_cquad_ival_igral_set(self,igral);");
8582 }
8583 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_ival, 0 | 0 );
8584 if (!SWIG_IsOK(res1)) {
8585 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_ival_igral_set" "', argument " "1"" of type '" "gsl_integration_cquad_ival *""'");
8586 }
8587 arg1 = (gsl_integration_cquad_ival *)(argp1);
8588 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8589 if (!SWIG_IsOK(ecode2)) {
8590 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_cquad_ival_igral_set" "', argument " "2"" of type '" "double""'");
8591 }
8592 arg2 = (double)(val2);
8593 if (arg1) (arg1)->igral = arg2;
8594 ST(argvi) = &PL_sv_undef;
8595
8596
8597 XSRETURN(argvi);
8598 fail:
8599
8600
8601 SWIG_croak_null();
8602 }
8603 }
8604
8605
XS(_wrap_gsl_integration_cquad_ival_igral_get)8606 XS(_wrap_gsl_integration_cquad_ival_igral_get) {
8607 {
8608 gsl_integration_cquad_ival *arg1 = (gsl_integration_cquad_ival *) 0 ;
8609 void *argp1 = 0 ;
8610 int res1 = 0 ;
8611 int argvi = 0;
8612 double result;
8613 dXSARGS;
8614
8615 if ((items < 1) || (items > 1)) {
8616 SWIG_croak("Usage: gsl_integration_cquad_ival_igral_get(self);");
8617 }
8618 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_ival, 0 | 0 );
8619 if (!SWIG_IsOK(res1)) {
8620 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_ival_igral_get" "', argument " "1"" of type '" "gsl_integration_cquad_ival *""'");
8621 }
8622 arg1 = (gsl_integration_cquad_ival *)(argp1);
8623 result = (double) ((arg1)->igral);
8624 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
8625
8626 XSRETURN(argvi);
8627 fail:
8628
8629 SWIG_croak_null();
8630 }
8631 }
8632
8633
XS(_wrap_gsl_integration_cquad_ival_err_set)8634 XS(_wrap_gsl_integration_cquad_ival_err_set) {
8635 {
8636 gsl_integration_cquad_ival *arg1 = (gsl_integration_cquad_ival *) 0 ;
8637 double arg2 ;
8638 void *argp1 = 0 ;
8639 int res1 = 0 ;
8640 double val2 ;
8641 int ecode2 = 0 ;
8642 int argvi = 0;
8643 dXSARGS;
8644
8645 if ((items < 2) || (items > 2)) {
8646 SWIG_croak("Usage: gsl_integration_cquad_ival_err_set(self,err);");
8647 }
8648 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_ival, 0 | 0 );
8649 if (!SWIG_IsOK(res1)) {
8650 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_ival_err_set" "', argument " "1"" of type '" "gsl_integration_cquad_ival *""'");
8651 }
8652 arg1 = (gsl_integration_cquad_ival *)(argp1);
8653 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8654 if (!SWIG_IsOK(ecode2)) {
8655 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_cquad_ival_err_set" "', argument " "2"" of type '" "double""'");
8656 }
8657 arg2 = (double)(val2);
8658 if (arg1) (arg1)->err = arg2;
8659 ST(argvi) = &PL_sv_undef;
8660
8661
8662 XSRETURN(argvi);
8663 fail:
8664
8665
8666 SWIG_croak_null();
8667 }
8668 }
8669
8670
XS(_wrap_gsl_integration_cquad_ival_err_get)8671 XS(_wrap_gsl_integration_cquad_ival_err_get) {
8672 {
8673 gsl_integration_cquad_ival *arg1 = (gsl_integration_cquad_ival *) 0 ;
8674 void *argp1 = 0 ;
8675 int res1 = 0 ;
8676 int argvi = 0;
8677 double result;
8678 dXSARGS;
8679
8680 if ((items < 1) || (items > 1)) {
8681 SWIG_croak("Usage: gsl_integration_cquad_ival_err_get(self);");
8682 }
8683 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_ival, 0 | 0 );
8684 if (!SWIG_IsOK(res1)) {
8685 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_ival_err_get" "', argument " "1"" of type '" "gsl_integration_cquad_ival *""'");
8686 }
8687 arg1 = (gsl_integration_cquad_ival *)(argp1);
8688 result = (double) ((arg1)->err);
8689 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
8690
8691 XSRETURN(argvi);
8692 fail:
8693
8694 SWIG_croak_null();
8695 }
8696 }
8697
8698
XS(_wrap_gsl_integration_cquad_ival_depth_set)8699 XS(_wrap_gsl_integration_cquad_ival_depth_set) {
8700 {
8701 gsl_integration_cquad_ival *arg1 = (gsl_integration_cquad_ival *) 0 ;
8702 int arg2 ;
8703 void *argp1 = 0 ;
8704 int res1 = 0 ;
8705 int val2 ;
8706 int ecode2 = 0 ;
8707 int argvi = 0;
8708 dXSARGS;
8709
8710 if ((items < 2) || (items > 2)) {
8711 SWIG_croak("Usage: gsl_integration_cquad_ival_depth_set(self,depth);");
8712 }
8713 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_ival, 0 | 0 );
8714 if (!SWIG_IsOK(res1)) {
8715 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_ival_depth_set" "', argument " "1"" of type '" "gsl_integration_cquad_ival *""'");
8716 }
8717 arg1 = (gsl_integration_cquad_ival *)(argp1);
8718 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8719 if (!SWIG_IsOK(ecode2)) {
8720 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_cquad_ival_depth_set" "', argument " "2"" of type '" "int""'");
8721 }
8722 arg2 = (int)(val2);
8723 if (arg1) (arg1)->depth = arg2;
8724 ST(argvi) = &PL_sv_undef;
8725
8726
8727 XSRETURN(argvi);
8728 fail:
8729
8730
8731 SWIG_croak_null();
8732 }
8733 }
8734
8735
XS(_wrap_gsl_integration_cquad_ival_depth_get)8736 XS(_wrap_gsl_integration_cquad_ival_depth_get) {
8737 {
8738 gsl_integration_cquad_ival *arg1 = (gsl_integration_cquad_ival *) 0 ;
8739 void *argp1 = 0 ;
8740 int res1 = 0 ;
8741 int argvi = 0;
8742 int result;
8743 dXSARGS;
8744
8745 if ((items < 1) || (items > 1)) {
8746 SWIG_croak("Usage: gsl_integration_cquad_ival_depth_get(self);");
8747 }
8748 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_ival, 0 | 0 );
8749 if (!SWIG_IsOK(res1)) {
8750 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_ival_depth_get" "', argument " "1"" of type '" "gsl_integration_cquad_ival *""'");
8751 }
8752 arg1 = (gsl_integration_cquad_ival *)(argp1);
8753 result = (int) ((arg1)->depth);
8754 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8755
8756 XSRETURN(argvi);
8757 fail:
8758
8759 SWIG_croak_null();
8760 }
8761 }
8762
8763
XS(_wrap_gsl_integration_cquad_ival_rdepth_set)8764 XS(_wrap_gsl_integration_cquad_ival_rdepth_set) {
8765 {
8766 gsl_integration_cquad_ival *arg1 = (gsl_integration_cquad_ival *) 0 ;
8767 int arg2 ;
8768 void *argp1 = 0 ;
8769 int res1 = 0 ;
8770 int val2 ;
8771 int ecode2 = 0 ;
8772 int argvi = 0;
8773 dXSARGS;
8774
8775 if ((items < 2) || (items > 2)) {
8776 SWIG_croak("Usage: gsl_integration_cquad_ival_rdepth_set(self,rdepth);");
8777 }
8778 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_ival, 0 | 0 );
8779 if (!SWIG_IsOK(res1)) {
8780 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_ival_rdepth_set" "', argument " "1"" of type '" "gsl_integration_cquad_ival *""'");
8781 }
8782 arg1 = (gsl_integration_cquad_ival *)(argp1);
8783 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8784 if (!SWIG_IsOK(ecode2)) {
8785 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_cquad_ival_rdepth_set" "', argument " "2"" of type '" "int""'");
8786 }
8787 arg2 = (int)(val2);
8788 if (arg1) (arg1)->rdepth = arg2;
8789 ST(argvi) = &PL_sv_undef;
8790
8791
8792 XSRETURN(argvi);
8793 fail:
8794
8795
8796 SWIG_croak_null();
8797 }
8798 }
8799
8800
XS(_wrap_gsl_integration_cquad_ival_rdepth_get)8801 XS(_wrap_gsl_integration_cquad_ival_rdepth_get) {
8802 {
8803 gsl_integration_cquad_ival *arg1 = (gsl_integration_cquad_ival *) 0 ;
8804 void *argp1 = 0 ;
8805 int res1 = 0 ;
8806 int argvi = 0;
8807 int result;
8808 dXSARGS;
8809
8810 if ((items < 1) || (items > 1)) {
8811 SWIG_croak("Usage: gsl_integration_cquad_ival_rdepth_get(self);");
8812 }
8813 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_ival, 0 | 0 );
8814 if (!SWIG_IsOK(res1)) {
8815 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_ival_rdepth_get" "', argument " "1"" of type '" "gsl_integration_cquad_ival *""'");
8816 }
8817 arg1 = (gsl_integration_cquad_ival *)(argp1);
8818 result = (int) ((arg1)->rdepth);
8819 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8820
8821 XSRETURN(argvi);
8822 fail:
8823
8824 SWIG_croak_null();
8825 }
8826 }
8827
8828
XS(_wrap_gsl_integration_cquad_ival_ndiv_set)8829 XS(_wrap_gsl_integration_cquad_ival_ndiv_set) {
8830 {
8831 gsl_integration_cquad_ival *arg1 = (gsl_integration_cquad_ival *) 0 ;
8832 int arg2 ;
8833 void *argp1 = 0 ;
8834 int res1 = 0 ;
8835 int val2 ;
8836 int ecode2 = 0 ;
8837 int argvi = 0;
8838 dXSARGS;
8839
8840 if ((items < 2) || (items > 2)) {
8841 SWIG_croak("Usage: gsl_integration_cquad_ival_ndiv_set(self,ndiv);");
8842 }
8843 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_ival, 0 | 0 );
8844 if (!SWIG_IsOK(res1)) {
8845 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_ival_ndiv_set" "', argument " "1"" of type '" "gsl_integration_cquad_ival *""'");
8846 }
8847 arg1 = (gsl_integration_cquad_ival *)(argp1);
8848 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8849 if (!SWIG_IsOK(ecode2)) {
8850 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_cquad_ival_ndiv_set" "', argument " "2"" of type '" "int""'");
8851 }
8852 arg2 = (int)(val2);
8853 if (arg1) (arg1)->ndiv = arg2;
8854 ST(argvi) = &PL_sv_undef;
8855
8856
8857 XSRETURN(argvi);
8858 fail:
8859
8860
8861 SWIG_croak_null();
8862 }
8863 }
8864
8865
XS(_wrap_gsl_integration_cquad_ival_ndiv_get)8866 XS(_wrap_gsl_integration_cquad_ival_ndiv_get) {
8867 {
8868 gsl_integration_cquad_ival *arg1 = (gsl_integration_cquad_ival *) 0 ;
8869 void *argp1 = 0 ;
8870 int res1 = 0 ;
8871 int argvi = 0;
8872 int result;
8873 dXSARGS;
8874
8875 if ((items < 1) || (items > 1)) {
8876 SWIG_croak("Usage: gsl_integration_cquad_ival_ndiv_get(self);");
8877 }
8878 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_ival, 0 | 0 );
8879 if (!SWIG_IsOK(res1)) {
8880 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_ival_ndiv_get" "', argument " "1"" of type '" "gsl_integration_cquad_ival *""'");
8881 }
8882 arg1 = (gsl_integration_cquad_ival *)(argp1);
8883 result = (int) ((arg1)->ndiv);
8884 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8885
8886 XSRETURN(argvi);
8887 fail:
8888
8889 SWIG_croak_null();
8890 }
8891 }
8892
8893
XS(_wrap_new_gsl_integration_cquad_ival)8894 XS(_wrap_new_gsl_integration_cquad_ival) {
8895 {
8896 int argvi = 0;
8897 gsl_integration_cquad_ival *result = 0 ;
8898 dXSARGS;
8899
8900 if ((items < 0) || (items > 0)) {
8901 SWIG_croak("Usage: new_gsl_integration_cquad_ival();");
8902 }
8903 result = (gsl_integration_cquad_ival *)calloc(1, sizeof(gsl_integration_cquad_ival));
8904 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_integration_cquad_ival, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
8905 XSRETURN(argvi);
8906 fail:
8907 SWIG_croak_null();
8908 }
8909 }
8910
8911
XS(_wrap_delete_gsl_integration_cquad_ival)8912 XS(_wrap_delete_gsl_integration_cquad_ival) {
8913 {
8914 gsl_integration_cquad_ival *arg1 = (gsl_integration_cquad_ival *) 0 ;
8915 void *argp1 = 0 ;
8916 int res1 = 0 ;
8917 int argvi = 0;
8918 dXSARGS;
8919
8920 if ((items < 1) || (items > 1)) {
8921 SWIG_croak("Usage: delete_gsl_integration_cquad_ival(self);");
8922 }
8923 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_ival, SWIG_POINTER_DISOWN | 0 );
8924 if (!SWIG_IsOK(res1)) {
8925 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_integration_cquad_ival" "', argument " "1"" of type '" "gsl_integration_cquad_ival *""'");
8926 }
8927 arg1 = (gsl_integration_cquad_ival *)(argp1);
8928 free((char *) arg1);
8929 ST(argvi) = &PL_sv_undef;
8930
8931 XSRETURN(argvi);
8932 fail:
8933
8934 SWIG_croak_null();
8935 }
8936 }
8937
8938
XS(_wrap_gsl_integration_cquad_workspace_size_set)8939 XS(_wrap_gsl_integration_cquad_workspace_size_set) {
8940 {
8941 gsl_integration_cquad_workspace *arg1 = (gsl_integration_cquad_workspace *) 0 ;
8942 size_t arg2 ;
8943 void *argp1 = 0 ;
8944 int res1 = 0 ;
8945 size_t val2 ;
8946 int ecode2 = 0 ;
8947 int argvi = 0;
8948 dXSARGS;
8949
8950 if ((items < 2) || (items > 2)) {
8951 SWIG_croak("Usage: gsl_integration_cquad_workspace_size_set(self,size);");
8952 }
8953 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_workspace, 0 | 0 );
8954 if (!SWIG_IsOK(res1)) {
8955 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_workspace_size_set" "', argument " "1"" of type '" "gsl_integration_cquad_workspace *""'");
8956 }
8957 arg1 = (gsl_integration_cquad_workspace *)(argp1);
8958 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8959 if (!SWIG_IsOK(ecode2)) {
8960 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_cquad_workspace_size_set" "', argument " "2"" of type '" "size_t""'");
8961 }
8962 arg2 = (size_t)(val2);
8963 if (arg1) (arg1)->size = arg2;
8964 ST(argvi) = &PL_sv_undef;
8965
8966
8967 XSRETURN(argvi);
8968 fail:
8969
8970
8971 SWIG_croak_null();
8972 }
8973 }
8974
8975
XS(_wrap_gsl_integration_cquad_workspace_size_get)8976 XS(_wrap_gsl_integration_cquad_workspace_size_get) {
8977 {
8978 gsl_integration_cquad_workspace *arg1 = (gsl_integration_cquad_workspace *) 0 ;
8979 void *argp1 = 0 ;
8980 int res1 = 0 ;
8981 int argvi = 0;
8982 size_t result;
8983 dXSARGS;
8984
8985 if ((items < 1) || (items > 1)) {
8986 SWIG_croak("Usage: gsl_integration_cquad_workspace_size_get(self);");
8987 }
8988 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_workspace, 0 | 0 );
8989 if (!SWIG_IsOK(res1)) {
8990 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_workspace_size_get" "', argument " "1"" of type '" "gsl_integration_cquad_workspace *""'");
8991 }
8992 arg1 = (gsl_integration_cquad_workspace *)(argp1);
8993 result = ((arg1)->size);
8994 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
8995
8996 XSRETURN(argvi);
8997 fail:
8998
8999 SWIG_croak_null();
9000 }
9001 }
9002
9003
XS(_wrap_gsl_integration_cquad_workspace_ivals_set)9004 XS(_wrap_gsl_integration_cquad_workspace_ivals_set) {
9005 {
9006 gsl_integration_cquad_workspace *arg1 = (gsl_integration_cquad_workspace *) 0 ;
9007 gsl_integration_cquad_ival *arg2 = (gsl_integration_cquad_ival *) 0 ;
9008 void *argp1 = 0 ;
9009 int res1 = 0 ;
9010 void *argp2 = 0 ;
9011 int res2 = 0 ;
9012 int argvi = 0;
9013 dXSARGS;
9014
9015 if ((items < 2) || (items > 2)) {
9016 SWIG_croak("Usage: gsl_integration_cquad_workspace_ivals_set(self,ivals);");
9017 }
9018 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_workspace, 0 | 0 );
9019 if (!SWIG_IsOK(res1)) {
9020 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_workspace_ivals_set" "', argument " "1"" of type '" "gsl_integration_cquad_workspace *""'");
9021 }
9022 arg1 = (gsl_integration_cquad_workspace *)(argp1);
9023 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_integration_cquad_ival, SWIG_POINTER_DISOWN | 0 );
9024 if (!SWIG_IsOK(res2)) {
9025 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_cquad_workspace_ivals_set" "', argument " "2"" of type '" "gsl_integration_cquad_ival *""'");
9026 }
9027 arg2 = (gsl_integration_cquad_ival *)(argp2);
9028 if (arg1) (arg1)->ivals = arg2;
9029 ST(argvi) = &PL_sv_undef;
9030
9031
9032 XSRETURN(argvi);
9033 fail:
9034
9035
9036 SWIG_croak_null();
9037 }
9038 }
9039
9040
XS(_wrap_gsl_integration_cquad_workspace_ivals_get)9041 XS(_wrap_gsl_integration_cquad_workspace_ivals_get) {
9042 {
9043 gsl_integration_cquad_workspace *arg1 = (gsl_integration_cquad_workspace *) 0 ;
9044 void *argp1 = 0 ;
9045 int res1 = 0 ;
9046 int argvi = 0;
9047 gsl_integration_cquad_ival *result = 0 ;
9048 dXSARGS;
9049
9050 if ((items < 1) || (items > 1)) {
9051 SWIG_croak("Usage: gsl_integration_cquad_workspace_ivals_get(self);");
9052 }
9053 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_workspace, 0 | 0 );
9054 if (!SWIG_IsOK(res1)) {
9055 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_workspace_ivals_get" "', argument " "1"" of type '" "gsl_integration_cquad_workspace *""'");
9056 }
9057 arg1 = (gsl_integration_cquad_workspace *)(argp1);
9058 result = (gsl_integration_cquad_ival *) ((arg1)->ivals);
9059 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_integration_cquad_ival, 0 | SWIG_SHADOW); argvi++ ;
9060
9061 XSRETURN(argvi);
9062 fail:
9063
9064 SWIG_croak_null();
9065 }
9066 }
9067
9068
XS(_wrap_gsl_integration_cquad_workspace_heap_set)9069 XS(_wrap_gsl_integration_cquad_workspace_heap_set) {
9070 {
9071 gsl_integration_cquad_workspace *arg1 = (gsl_integration_cquad_workspace *) 0 ;
9072 size_t *arg2 = (size_t *) 0 ;
9073 void *argp1 = 0 ;
9074 int res1 = 0 ;
9075 void *argp2 = 0 ;
9076 int res2 = 0 ;
9077 int argvi = 0;
9078 dXSARGS;
9079
9080 if ((items < 2) || (items > 2)) {
9081 SWIG_croak("Usage: gsl_integration_cquad_workspace_heap_set(self,heap);");
9082 }
9083 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_workspace, 0 | 0 );
9084 if (!SWIG_IsOK(res1)) {
9085 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_workspace_heap_set" "', argument " "1"" of type '" "gsl_integration_cquad_workspace *""'");
9086 }
9087 arg1 = (gsl_integration_cquad_workspace *)(argp1);
9088 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_size_t, SWIG_POINTER_DISOWN | 0 );
9089 if (!SWIG_IsOK(res2)) {
9090 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_cquad_workspace_heap_set" "', argument " "2"" of type '" "size_t *""'");
9091 }
9092 arg2 = (size_t *)(argp2);
9093 if (arg1) (arg1)->heap = arg2;
9094 ST(argvi) = &PL_sv_undef;
9095
9096
9097 XSRETURN(argvi);
9098 fail:
9099
9100
9101 SWIG_croak_null();
9102 }
9103 }
9104
9105
XS(_wrap_gsl_integration_cquad_workspace_heap_get)9106 XS(_wrap_gsl_integration_cquad_workspace_heap_get) {
9107 {
9108 gsl_integration_cquad_workspace *arg1 = (gsl_integration_cquad_workspace *) 0 ;
9109 void *argp1 = 0 ;
9110 int res1 = 0 ;
9111 int argvi = 0;
9112 size_t *result = 0 ;
9113 dXSARGS;
9114
9115 if ((items < 1) || (items > 1)) {
9116 SWIG_croak("Usage: gsl_integration_cquad_workspace_heap_get(self);");
9117 }
9118 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_workspace, 0 | 0 );
9119 if (!SWIG_IsOK(res1)) {
9120 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_workspace_heap_get" "', argument " "1"" of type '" "gsl_integration_cquad_workspace *""'");
9121 }
9122 arg1 = (gsl_integration_cquad_workspace *)(argp1);
9123 result = (size_t *) ((arg1)->heap);
9124 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_size_t, 0 | 0); argvi++ ;
9125
9126 XSRETURN(argvi);
9127 fail:
9128
9129 SWIG_croak_null();
9130 }
9131 }
9132
9133
XS(_wrap_new_gsl_integration_cquad_workspace)9134 XS(_wrap_new_gsl_integration_cquad_workspace) {
9135 {
9136 int argvi = 0;
9137 gsl_integration_cquad_workspace *result = 0 ;
9138 dXSARGS;
9139
9140 if ((items < 0) || (items > 0)) {
9141 SWIG_croak("Usage: new_gsl_integration_cquad_workspace();");
9142 }
9143 result = (gsl_integration_cquad_workspace *)calloc(1, sizeof(gsl_integration_cquad_workspace));
9144 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_integration_cquad_workspace, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
9145 XSRETURN(argvi);
9146 fail:
9147 SWIG_croak_null();
9148 }
9149 }
9150
9151
XS(_wrap_delete_gsl_integration_cquad_workspace)9152 XS(_wrap_delete_gsl_integration_cquad_workspace) {
9153 {
9154 gsl_integration_cquad_workspace *arg1 = (gsl_integration_cquad_workspace *) 0 ;
9155 void *argp1 = 0 ;
9156 int res1 = 0 ;
9157 int argvi = 0;
9158 dXSARGS;
9159
9160 if ((items < 1) || (items > 1)) {
9161 SWIG_croak("Usage: delete_gsl_integration_cquad_workspace(self);");
9162 }
9163 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_workspace, SWIG_POINTER_DISOWN | 0 );
9164 if (!SWIG_IsOK(res1)) {
9165 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_integration_cquad_workspace" "', argument " "1"" of type '" "gsl_integration_cquad_workspace *""'");
9166 }
9167 arg1 = (gsl_integration_cquad_workspace *)(argp1);
9168 free((char *) arg1);
9169 ST(argvi) = &PL_sv_undef;
9170
9171 XSRETURN(argvi);
9172 fail:
9173
9174 SWIG_croak_null();
9175 }
9176 }
9177
9178
XS(_wrap_gsl_integration_cquad_workspace_alloc)9179 XS(_wrap_gsl_integration_cquad_workspace_alloc) {
9180 {
9181 size_t arg1 ;
9182 size_t val1 ;
9183 int ecode1 = 0 ;
9184 int argvi = 0;
9185 gsl_integration_cquad_workspace *result = 0 ;
9186 dXSARGS;
9187
9188 if ((items < 1) || (items > 1)) {
9189 SWIG_croak("Usage: gsl_integration_cquad_workspace_alloc(n);");
9190 }
9191 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
9192 if (!SWIG_IsOK(ecode1)) {
9193 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_integration_cquad_workspace_alloc" "', argument " "1"" of type '" "size_t""'");
9194 }
9195 arg1 = (size_t)(val1);
9196 result = (gsl_integration_cquad_workspace *)gsl_integration_cquad_workspace_alloc(arg1);
9197 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_integration_cquad_workspace, 0 | SWIG_SHADOW); argvi++ ;
9198
9199 XSRETURN(argvi);
9200 fail:
9201
9202 SWIG_croak_null();
9203 }
9204 }
9205
9206
XS(_wrap_gsl_integration_cquad_workspace_free)9207 XS(_wrap_gsl_integration_cquad_workspace_free) {
9208 {
9209 gsl_integration_cquad_workspace *arg1 = (gsl_integration_cquad_workspace *) 0 ;
9210 void *argp1 = 0 ;
9211 int res1 = 0 ;
9212 int argvi = 0;
9213 dXSARGS;
9214
9215 if ((items < 1) || (items > 1)) {
9216 SWIG_croak("Usage: gsl_integration_cquad_workspace_free(w);");
9217 }
9218 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_workspace, 0 | 0 );
9219 if (!SWIG_IsOK(res1)) {
9220 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_workspace_free" "', argument " "1"" of type '" "gsl_integration_cquad_workspace *""'");
9221 }
9222 arg1 = (gsl_integration_cquad_workspace *)(argp1);
9223 gsl_integration_cquad_workspace_free(arg1);
9224 ST(argvi) = &PL_sv_undef;
9225
9226 XSRETURN(argvi);
9227 fail:
9228
9229 SWIG_croak_null();
9230 }
9231 }
9232
9233
XS(_wrap_gsl_integration_cquad)9234 XS(_wrap_gsl_integration_cquad) {
9235 {
9236 gsl_function *arg1 = (gsl_function *) 0 ;
9237 double arg2 ;
9238 double arg3 ;
9239 double arg4 ;
9240 double arg5 ;
9241 gsl_integration_cquad_workspace *arg6 = (gsl_integration_cquad_workspace *) 0 ;
9242 double *arg7 = (double *) 0 ;
9243 double *arg8 = (double *) 0 ;
9244 size_t *arg9 = (size_t *) 0 ;
9245 double val2 ;
9246 int ecode2 = 0 ;
9247 double val3 ;
9248 int ecode3 = 0 ;
9249 double val4 ;
9250 int ecode4 = 0 ;
9251 double val5 ;
9252 int ecode5 = 0 ;
9253 void *argp6 = 0 ;
9254 int res6 = 0 ;
9255 double temp7 ;
9256 int res7 = SWIG_TMPOBJ ;
9257 double temp8 ;
9258 int res8 = SWIG_TMPOBJ ;
9259 void *argp9 = 0 ;
9260 int res9 = 0 ;
9261 int argvi = 0;
9262 int result;
9263 dXSARGS;
9264
9265 arg7 = &temp7;
9266 arg8 = &temp8;
9267 if ((items < 7) || (items > 7)) {
9268 SWIG_croak("Usage: gsl_integration_cquad(f,a,b,epsabs,epsrel,ws,nevals);");
9269 }
9270 {
9271 SV * function = 0;
9272 SV * params = 0;
9273 struct gsl_function_perl *w_gsl_function;
9274 Newx(w_gsl_function, 1, struct gsl_function_perl);
9275
9276 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
9277 AV* array=(AV*)SvRV(ST(0));
9278 SV ** p_function = 0;
9279 if (av_len(array)<0) {
9280 croak("Math::GSL : $f is an empty array!");
9281 }
9282 if (av_len(array)>1) {
9283 croak("Math::GSL : $f is an array with more than 2 elements!");
9284 }
9285 p_function = av_fetch(array, 0, 0);
9286 function = *p_function;
9287 if (av_len(array)>0) {
9288 SV ** p_params = 0;
9289 p_params = av_fetch(array, 1, 0);
9290 params = *p_params;
9291 }
9292 } else {
9293 function = ST(0);
9294 }
9295
9296 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
9297 croak("Math::GSL : $f is not a reference to code!");
9298 }
9299
9300 function = newSVsv(function);
9301
9302 if (! params) {
9303 params=&PL_sv_undef;
9304 }
9305 params = newSVsv(params);
9306
9307 w_gsl_function->params = params;
9308 w_gsl_function->function = function;
9309 w_gsl_function->C_gsl_function.params = w_gsl_function;
9310 w_gsl_function->C_gsl_function.function = &call_gsl_function;
9311
9312 arg1 = &(w_gsl_function->C_gsl_function);
9313 }
9314 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9315 if (!SWIG_IsOK(ecode2)) {
9316 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_cquad" "', argument " "2"" of type '" "double""'");
9317 }
9318 arg2 = (double)(val2);
9319 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
9320 if (!SWIG_IsOK(ecode3)) {
9321 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_cquad" "', argument " "3"" of type '" "double""'");
9322 }
9323 arg3 = (double)(val3);
9324 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
9325 if (!SWIG_IsOK(ecode4)) {
9326 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_integration_cquad" "', argument " "4"" of type '" "double""'");
9327 }
9328 arg4 = (double)(val4);
9329 ecode5 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
9330 if (!SWIG_IsOK(ecode5)) {
9331 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_integration_cquad" "', argument " "5"" of type '" "double""'");
9332 }
9333 arg5 = (double)(val5);
9334 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_integration_cquad_workspace, 0 | 0 );
9335 if (!SWIG_IsOK(res6)) {
9336 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_integration_cquad" "', argument " "6"" of type '" "gsl_integration_cquad_workspace *""'");
9337 }
9338 arg6 = (gsl_integration_cquad_workspace *)(argp6);
9339 res9 = SWIG_ConvertPtr(ST(6), &argp9,SWIGTYPE_p_size_t, 0 | 0 );
9340 if (!SWIG_IsOK(res9)) {
9341 SWIG_exception_fail(SWIG_ArgError(res9), "in method '" "gsl_integration_cquad" "', argument " "9"" of type '" "size_t *""'");
9342 }
9343 arg9 = (size_t *)(argp9);
9344 result = (int)gsl_integration_cquad((struct gsl_function_struct const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
9345 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9346 if (SWIG_IsTmpObj(res7)) {
9347 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg7)); argvi++ ;
9348 } else {
9349 int new_flags = SWIG_IsNewObj(res7) ? (SWIG_POINTER_OWN | 0) : 0;
9350 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg7), SWIGTYPE_p_double, new_flags); argvi++ ;
9351 }
9352 if (SWIG_IsTmpObj(res8)) {
9353 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg8)); argvi++ ;
9354 } else {
9355 int new_flags = SWIG_IsNewObj(res8) ? (SWIG_POINTER_OWN | 0) : 0;
9356 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg8), SWIGTYPE_p_double, new_flags); argvi++ ;
9357 }
9358 {
9359 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
9360 gsl_function_perl_free(p);
9361 }
9362
9363
9364
9365
9366
9367
9368
9369
9370 XSRETURN(argvi);
9371 fail:
9372 {
9373 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
9374 gsl_function_perl_free(p);
9375 }
9376
9377
9378
9379
9380
9381
9382
9383
9384 SWIG_croak_null();
9385 }
9386 }
9387
9388
XS(_wrap_gsl_integration_romberg_workspace_n_set)9389 XS(_wrap_gsl_integration_romberg_workspace_n_set) {
9390 {
9391 gsl_integration_romberg_workspace *arg1 = (gsl_integration_romberg_workspace *) 0 ;
9392 size_t arg2 ;
9393 void *argp1 = 0 ;
9394 int res1 = 0 ;
9395 size_t val2 ;
9396 int ecode2 = 0 ;
9397 int argvi = 0;
9398 dXSARGS;
9399
9400 if ((items < 2) || (items > 2)) {
9401 SWIG_croak("Usage: gsl_integration_romberg_workspace_n_set(self,n);");
9402 }
9403 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_romberg_workspace, 0 | 0 );
9404 if (!SWIG_IsOK(res1)) {
9405 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_romberg_workspace_n_set" "', argument " "1"" of type '" "gsl_integration_romberg_workspace *""'");
9406 }
9407 arg1 = (gsl_integration_romberg_workspace *)(argp1);
9408 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9409 if (!SWIG_IsOK(ecode2)) {
9410 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_romberg_workspace_n_set" "', argument " "2"" of type '" "size_t""'");
9411 }
9412 arg2 = (size_t)(val2);
9413 if (arg1) (arg1)->n = arg2;
9414 ST(argvi) = &PL_sv_undef;
9415
9416
9417 XSRETURN(argvi);
9418 fail:
9419
9420
9421 SWIG_croak_null();
9422 }
9423 }
9424
9425
XS(_wrap_gsl_integration_romberg_workspace_n_get)9426 XS(_wrap_gsl_integration_romberg_workspace_n_get) {
9427 {
9428 gsl_integration_romberg_workspace *arg1 = (gsl_integration_romberg_workspace *) 0 ;
9429 void *argp1 = 0 ;
9430 int res1 = 0 ;
9431 int argvi = 0;
9432 size_t result;
9433 dXSARGS;
9434
9435 if ((items < 1) || (items > 1)) {
9436 SWIG_croak("Usage: gsl_integration_romberg_workspace_n_get(self);");
9437 }
9438 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_romberg_workspace, 0 | 0 );
9439 if (!SWIG_IsOK(res1)) {
9440 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_romberg_workspace_n_get" "', argument " "1"" of type '" "gsl_integration_romberg_workspace *""'");
9441 }
9442 arg1 = (gsl_integration_romberg_workspace *)(argp1);
9443 result = ((arg1)->n);
9444 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
9445
9446 XSRETURN(argvi);
9447 fail:
9448
9449 SWIG_croak_null();
9450 }
9451 }
9452
9453
XS(_wrap_gsl_integration_romberg_workspace_work1_set)9454 XS(_wrap_gsl_integration_romberg_workspace_work1_set) {
9455 {
9456 gsl_integration_romberg_workspace *arg1 = (gsl_integration_romberg_workspace *) 0 ;
9457 double *arg2 = (double *) 0 ;
9458 void *argp1 = 0 ;
9459 int res1 = 0 ;
9460 void *argp2 = 0 ;
9461 int res2 = 0 ;
9462 int argvi = 0;
9463 dXSARGS;
9464
9465 if ((items < 2) || (items > 2)) {
9466 SWIG_croak("Usage: gsl_integration_romberg_workspace_work1_set(self,work1);");
9467 }
9468 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_romberg_workspace, 0 | 0 );
9469 if (!SWIG_IsOK(res1)) {
9470 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_romberg_workspace_work1_set" "', argument " "1"" of type '" "gsl_integration_romberg_workspace *""'");
9471 }
9472 arg1 = (gsl_integration_romberg_workspace *)(argp1);
9473 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
9474 if (!SWIG_IsOK(res2)) {
9475 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_romberg_workspace_work1_set" "', argument " "2"" of type '" "double *""'");
9476 }
9477 arg2 = (double *)(argp2);
9478 if (arg1) (arg1)->work1 = arg2;
9479 ST(argvi) = &PL_sv_undef;
9480
9481
9482 XSRETURN(argvi);
9483 fail:
9484
9485
9486 SWIG_croak_null();
9487 }
9488 }
9489
9490
XS(_wrap_gsl_integration_romberg_workspace_work1_get)9491 XS(_wrap_gsl_integration_romberg_workspace_work1_get) {
9492 {
9493 gsl_integration_romberg_workspace *arg1 = (gsl_integration_romberg_workspace *) 0 ;
9494 void *argp1 = 0 ;
9495 int res1 = 0 ;
9496 int argvi = 0;
9497 double *result = 0 ;
9498 dXSARGS;
9499
9500 if ((items < 1) || (items > 1)) {
9501 SWIG_croak("Usage: gsl_integration_romberg_workspace_work1_get(self);");
9502 }
9503 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_romberg_workspace, 0 | 0 );
9504 if (!SWIG_IsOK(res1)) {
9505 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_romberg_workspace_work1_get" "', argument " "1"" of type '" "gsl_integration_romberg_workspace *""'");
9506 }
9507 arg1 = (gsl_integration_romberg_workspace *)(argp1);
9508 result = (double *) ((arg1)->work1);
9509 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
9510
9511 XSRETURN(argvi);
9512 fail:
9513
9514 SWIG_croak_null();
9515 }
9516 }
9517
9518
XS(_wrap_gsl_integration_romberg_workspace_work2_set)9519 XS(_wrap_gsl_integration_romberg_workspace_work2_set) {
9520 {
9521 gsl_integration_romberg_workspace *arg1 = (gsl_integration_romberg_workspace *) 0 ;
9522 double *arg2 = (double *) 0 ;
9523 void *argp1 = 0 ;
9524 int res1 = 0 ;
9525 void *argp2 = 0 ;
9526 int res2 = 0 ;
9527 int argvi = 0;
9528 dXSARGS;
9529
9530 if ((items < 2) || (items > 2)) {
9531 SWIG_croak("Usage: gsl_integration_romberg_workspace_work2_set(self,work2);");
9532 }
9533 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_romberg_workspace, 0 | 0 );
9534 if (!SWIG_IsOK(res1)) {
9535 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_romberg_workspace_work2_set" "', argument " "1"" of type '" "gsl_integration_romberg_workspace *""'");
9536 }
9537 arg1 = (gsl_integration_romberg_workspace *)(argp1);
9538 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
9539 if (!SWIG_IsOK(res2)) {
9540 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_romberg_workspace_work2_set" "', argument " "2"" of type '" "double *""'");
9541 }
9542 arg2 = (double *)(argp2);
9543 if (arg1) (arg1)->work2 = arg2;
9544 ST(argvi) = &PL_sv_undef;
9545
9546
9547 XSRETURN(argvi);
9548 fail:
9549
9550
9551 SWIG_croak_null();
9552 }
9553 }
9554
9555
XS(_wrap_gsl_integration_romberg_workspace_work2_get)9556 XS(_wrap_gsl_integration_romberg_workspace_work2_get) {
9557 {
9558 gsl_integration_romberg_workspace *arg1 = (gsl_integration_romberg_workspace *) 0 ;
9559 void *argp1 = 0 ;
9560 int res1 = 0 ;
9561 int argvi = 0;
9562 double *result = 0 ;
9563 dXSARGS;
9564
9565 if ((items < 1) || (items > 1)) {
9566 SWIG_croak("Usage: gsl_integration_romberg_workspace_work2_get(self);");
9567 }
9568 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_romberg_workspace, 0 | 0 );
9569 if (!SWIG_IsOK(res1)) {
9570 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_romberg_workspace_work2_get" "', argument " "1"" of type '" "gsl_integration_romberg_workspace *""'");
9571 }
9572 arg1 = (gsl_integration_romberg_workspace *)(argp1);
9573 result = (double *) ((arg1)->work2);
9574 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
9575
9576 XSRETURN(argvi);
9577 fail:
9578
9579 SWIG_croak_null();
9580 }
9581 }
9582
9583
XS(_wrap_new_gsl_integration_romberg_workspace)9584 XS(_wrap_new_gsl_integration_romberg_workspace) {
9585 {
9586 int argvi = 0;
9587 gsl_integration_romberg_workspace *result = 0 ;
9588 dXSARGS;
9589
9590 if ((items < 0) || (items > 0)) {
9591 SWIG_croak("Usage: new_gsl_integration_romberg_workspace();");
9592 }
9593 result = (gsl_integration_romberg_workspace *)calloc(1, sizeof(gsl_integration_romberg_workspace));
9594 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_integration_romberg_workspace, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
9595 XSRETURN(argvi);
9596 fail:
9597 SWIG_croak_null();
9598 }
9599 }
9600
9601
XS(_wrap_delete_gsl_integration_romberg_workspace)9602 XS(_wrap_delete_gsl_integration_romberg_workspace) {
9603 {
9604 gsl_integration_romberg_workspace *arg1 = (gsl_integration_romberg_workspace *) 0 ;
9605 void *argp1 = 0 ;
9606 int res1 = 0 ;
9607 int argvi = 0;
9608 dXSARGS;
9609
9610 if ((items < 1) || (items > 1)) {
9611 SWIG_croak("Usage: delete_gsl_integration_romberg_workspace(self);");
9612 }
9613 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_romberg_workspace, SWIG_POINTER_DISOWN | 0 );
9614 if (!SWIG_IsOK(res1)) {
9615 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_integration_romberg_workspace" "', argument " "1"" of type '" "gsl_integration_romberg_workspace *""'");
9616 }
9617 arg1 = (gsl_integration_romberg_workspace *)(argp1);
9618 free((char *) arg1);
9619 ST(argvi) = &PL_sv_undef;
9620
9621 XSRETURN(argvi);
9622 fail:
9623
9624 SWIG_croak_null();
9625 }
9626 }
9627
9628
XS(_wrap_gsl_integration_romberg_alloc)9629 XS(_wrap_gsl_integration_romberg_alloc) {
9630 {
9631 size_t arg1 ;
9632 size_t val1 ;
9633 int ecode1 = 0 ;
9634 int argvi = 0;
9635 gsl_integration_romberg_workspace *result = 0 ;
9636 dXSARGS;
9637
9638 if ((items < 1) || (items > 1)) {
9639 SWIG_croak("Usage: gsl_integration_romberg_alloc(n);");
9640 }
9641 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
9642 if (!SWIG_IsOK(ecode1)) {
9643 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_integration_romberg_alloc" "', argument " "1"" of type '" "size_t""'");
9644 }
9645 arg1 = (size_t)(val1);
9646 result = (gsl_integration_romberg_workspace *)gsl_integration_romberg_alloc(arg1);
9647 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_integration_romberg_workspace, 0 | SWIG_SHADOW); argvi++ ;
9648
9649 XSRETURN(argvi);
9650 fail:
9651
9652 SWIG_croak_null();
9653 }
9654 }
9655
9656
XS(_wrap_gsl_integration_romberg_free)9657 XS(_wrap_gsl_integration_romberg_free) {
9658 {
9659 gsl_integration_romberg_workspace *arg1 = (gsl_integration_romberg_workspace *) 0 ;
9660 void *argp1 = 0 ;
9661 int res1 = 0 ;
9662 int argvi = 0;
9663 dXSARGS;
9664
9665 if ((items < 1) || (items > 1)) {
9666 SWIG_croak("Usage: gsl_integration_romberg_free(w);");
9667 }
9668 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_romberg_workspace, 0 | 0 );
9669 if (!SWIG_IsOK(res1)) {
9670 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_romberg_free" "', argument " "1"" of type '" "gsl_integration_romberg_workspace *""'");
9671 }
9672 arg1 = (gsl_integration_romberg_workspace *)(argp1);
9673 gsl_integration_romberg_free(arg1);
9674 ST(argvi) = &PL_sv_undef;
9675
9676 XSRETURN(argvi);
9677 fail:
9678
9679 SWIG_croak_null();
9680 }
9681 }
9682
9683
XS(_wrap_gsl_integration_romberg)9684 XS(_wrap_gsl_integration_romberg) {
9685 {
9686 gsl_function *arg1 = (gsl_function *) 0 ;
9687 double arg2 ;
9688 double arg3 ;
9689 double arg4 ;
9690 double arg5 ;
9691 double *arg6 = (double *) 0 ;
9692 size_t *arg7 = (size_t *) 0 ;
9693 gsl_integration_romberg_workspace *arg8 = (gsl_integration_romberg_workspace *) 0 ;
9694 double val2 ;
9695 int ecode2 = 0 ;
9696 double val3 ;
9697 int ecode3 = 0 ;
9698 double val4 ;
9699 int ecode4 = 0 ;
9700 double val5 ;
9701 int ecode5 = 0 ;
9702 double temp6 ;
9703 int res6 = SWIG_TMPOBJ ;
9704 size_t temp7 ;
9705 int res7 = SWIG_TMPOBJ ;
9706 void *argp8 = 0 ;
9707 int res8 = 0 ;
9708 int argvi = 0;
9709 int result;
9710 dXSARGS;
9711
9712 arg6 = &temp6;
9713 arg7 = &temp7;
9714 if ((items < 6) || (items > 6)) {
9715 SWIG_croak("Usage: gsl_integration_romberg(f,a,b,epsabs,epsrel,w);");
9716 }
9717 {
9718 SV * function = 0;
9719 SV * params = 0;
9720 struct gsl_function_perl *w_gsl_function;
9721 Newx(w_gsl_function, 1, struct gsl_function_perl);
9722
9723 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
9724 AV* array=(AV*)SvRV(ST(0));
9725 SV ** p_function = 0;
9726 if (av_len(array)<0) {
9727 croak("Math::GSL : $f is an empty array!");
9728 }
9729 if (av_len(array)>1) {
9730 croak("Math::GSL : $f is an array with more than 2 elements!");
9731 }
9732 p_function = av_fetch(array, 0, 0);
9733 function = *p_function;
9734 if (av_len(array)>0) {
9735 SV ** p_params = 0;
9736 p_params = av_fetch(array, 1, 0);
9737 params = *p_params;
9738 }
9739 } else {
9740 function = ST(0);
9741 }
9742
9743 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
9744 croak("Math::GSL : $f is not a reference to code!");
9745 }
9746
9747 function = newSVsv(function);
9748
9749 if (! params) {
9750 params=&PL_sv_undef;
9751 }
9752 params = newSVsv(params);
9753
9754 w_gsl_function->params = params;
9755 w_gsl_function->function = function;
9756 w_gsl_function->C_gsl_function.params = w_gsl_function;
9757 w_gsl_function->C_gsl_function.function = &call_gsl_function;
9758
9759 arg1 = &(w_gsl_function->C_gsl_function);
9760 }
9761 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9762 if (!SWIG_IsOK(ecode2)) {
9763 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_romberg" "', argument " "2"" of type '" "double""'");
9764 }
9765 arg2 = (double)(val2);
9766 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
9767 if (!SWIG_IsOK(ecode3)) {
9768 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_romberg" "', argument " "3"" of type '" "double""'");
9769 }
9770 arg3 = (double)(val3);
9771 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
9772 if (!SWIG_IsOK(ecode4)) {
9773 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_integration_romberg" "', argument " "4"" of type '" "double""'");
9774 }
9775 arg4 = (double)(val4);
9776 ecode5 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
9777 if (!SWIG_IsOK(ecode5)) {
9778 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_integration_romberg" "', argument " "5"" of type '" "double""'");
9779 }
9780 arg5 = (double)(val5);
9781 res8 = SWIG_ConvertPtr(ST(5), &argp8,SWIGTYPE_p_gsl_integration_romberg_workspace, 0 | 0 );
9782 if (!SWIG_IsOK(res8)) {
9783 SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_integration_romberg" "', argument " "8"" of type '" "gsl_integration_romberg_workspace *""'");
9784 }
9785 arg8 = (gsl_integration_romberg_workspace *)(argp8);
9786 result = (int)gsl_integration_romberg((struct gsl_function_struct const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8);
9787 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9788 if (SWIG_IsTmpObj(res6)) {
9789 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg6)); argvi++ ;
9790 } else {
9791 int new_flags = SWIG_IsNewObj(res6) ? (SWIG_POINTER_OWN | 0) : 0;
9792 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg6), SWIGTYPE_p_double, new_flags); argvi++ ;
9793 }
9794 if (SWIG_IsTmpObj(res7)) {
9795 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg7)); argvi++ ;
9796 } else {
9797 int new_flags = SWIG_IsNewObj(res7) ? (SWIG_POINTER_OWN | 0) : 0;
9798 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg7), SWIGTYPE_p_size_t, new_flags); argvi++ ;
9799 }
9800 {
9801 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
9802 gsl_function_perl_free(p);
9803 }
9804
9805
9806
9807
9808
9809
9810
9811 XSRETURN(argvi);
9812 fail:
9813 {
9814 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
9815 gsl_function_perl_free(p);
9816 }
9817
9818
9819
9820
9821
9822
9823
9824 SWIG_croak_null();
9825 }
9826 }
9827
9828
XS(_wrap_gsl_integration_fixed_params_alpha_set)9829 XS(_wrap_gsl_integration_fixed_params_alpha_set) {
9830 {
9831 gsl_integration_fixed_params *arg1 = (gsl_integration_fixed_params *) 0 ;
9832 double arg2 ;
9833 void *argp1 = 0 ;
9834 int res1 = 0 ;
9835 double val2 ;
9836 int ecode2 = 0 ;
9837 int argvi = 0;
9838 dXSARGS;
9839
9840 if ((items < 2) || (items > 2)) {
9841 SWIG_croak("Usage: gsl_integration_fixed_params_alpha_set(self,alpha);");
9842 }
9843 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_params, 0 | 0 );
9844 if (!SWIG_IsOK(res1)) {
9845 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_fixed_params_alpha_set" "', argument " "1"" of type '" "gsl_integration_fixed_params *""'");
9846 }
9847 arg1 = (gsl_integration_fixed_params *)(argp1);
9848 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9849 if (!SWIG_IsOK(ecode2)) {
9850 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_fixed_params_alpha_set" "', argument " "2"" of type '" "double""'");
9851 }
9852 arg2 = (double)(val2);
9853 if (arg1) (arg1)->alpha = arg2;
9854 ST(argvi) = &PL_sv_undef;
9855
9856
9857 XSRETURN(argvi);
9858 fail:
9859
9860
9861 SWIG_croak_null();
9862 }
9863 }
9864
9865
XS(_wrap_gsl_integration_fixed_params_alpha_get)9866 XS(_wrap_gsl_integration_fixed_params_alpha_get) {
9867 {
9868 gsl_integration_fixed_params *arg1 = (gsl_integration_fixed_params *) 0 ;
9869 void *argp1 = 0 ;
9870 int res1 = 0 ;
9871 int argvi = 0;
9872 double result;
9873 dXSARGS;
9874
9875 if ((items < 1) || (items > 1)) {
9876 SWIG_croak("Usage: gsl_integration_fixed_params_alpha_get(self);");
9877 }
9878 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_params, 0 | 0 );
9879 if (!SWIG_IsOK(res1)) {
9880 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_fixed_params_alpha_get" "', argument " "1"" of type '" "gsl_integration_fixed_params *""'");
9881 }
9882 arg1 = (gsl_integration_fixed_params *)(argp1);
9883 result = (double) ((arg1)->alpha);
9884 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
9885
9886 XSRETURN(argvi);
9887 fail:
9888
9889 SWIG_croak_null();
9890 }
9891 }
9892
9893
XS(_wrap_gsl_integration_fixed_params_beta_set)9894 XS(_wrap_gsl_integration_fixed_params_beta_set) {
9895 {
9896 gsl_integration_fixed_params *arg1 = (gsl_integration_fixed_params *) 0 ;
9897 double arg2 ;
9898 void *argp1 = 0 ;
9899 int res1 = 0 ;
9900 double val2 ;
9901 int ecode2 = 0 ;
9902 int argvi = 0;
9903 dXSARGS;
9904
9905 if ((items < 2) || (items > 2)) {
9906 SWIG_croak("Usage: gsl_integration_fixed_params_beta_set(self,beta);");
9907 }
9908 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_params, 0 | 0 );
9909 if (!SWIG_IsOK(res1)) {
9910 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_fixed_params_beta_set" "', argument " "1"" of type '" "gsl_integration_fixed_params *""'");
9911 }
9912 arg1 = (gsl_integration_fixed_params *)(argp1);
9913 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9914 if (!SWIG_IsOK(ecode2)) {
9915 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_fixed_params_beta_set" "', argument " "2"" of type '" "double""'");
9916 }
9917 arg2 = (double)(val2);
9918 if (arg1) (arg1)->beta = arg2;
9919 ST(argvi) = &PL_sv_undef;
9920
9921
9922 XSRETURN(argvi);
9923 fail:
9924
9925
9926 SWIG_croak_null();
9927 }
9928 }
9929
9930
XS(_wrap_gsl_integration_fixed_params_beta_get)9931 XS(_wrap_gsl_integration_fixed_params_beta_get) {
9932 {
9933 gsl_integration_fixed_params *arg1 = (gsl_integration_fixed_params *) 0 ;
9934 void *argp1 = 0 ;
9935 int res1 = 0 ;
9936 int argvi = 0;
9937 double result;
9938 dXSARGS;
9939
9940 if ((items < 1) || (items > 1)) {
9941 SWIG_croak("Usage: gsl_integration_fixed_params_beta_get(self);");
9942 }
9943 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_params, 0 | 0 );
9944 if (!SWIG_IsOK(res1)) {
9945 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_fixed_params_beta_get" "', argument " "1"" of type '" "gsl_integration_fixed_params *""'");
9946 }
9947 arg1 = (gsl_integration_fixed_params *)(argp1);
9948 result = (double) ((arg1)->beta);
9949 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
9950
9951 XSRETURN(argvi);
9952 fail:
9953
9954 SWIG_croak_null();
9955 }
9956 }
9957
9958
XS(_wrap_gsl_integration_fixed_params_a_set)9959 XS(_wrap_gsl_integration_fixed_params_a_set) {
9960 {
9961 gsl_integration_fixed_params *arg1 = (gsl_integration_fixed_params *) 0 ;
9962 double arg2 ;
9963 void *argp1 = 0 ;
9964 int res1 = 0 ;
9965 double val2 ;
9966 int ecode2 = 0 ;
9967 int argvi = 0;
9968 dXSARGS;
9969
9970 if ((items < 2) || (items > 2)) {
9971 SWIG_croak("Usage: gsl_integration_fixed_params_a_set(self,a);");
9972 }
9973 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_params, 0 | 0 );
9974 if (!SWIG_IsOK(res1)) {
9975 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_fixed_params_a_set" "', argument " "1"" of type '" "gsl_integration_fixed_params *""'");
9976 }
9977 arg1 = (gsl_integration_fixed_params *)(argp1);
9978 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9979 if (!SWIG_IsOK(ecode2)) {
9980 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_fixed_params_a_set" "', argument " "2"" of type '" "double""'");
9981 }
9982 arg2 = (double)(val2);
9983 if (arg1) (arg1)->a = arg2;
9984 ST(argvi) = &PL_sv_undef;
9985
9986
9987 XSRETURN(argvi);
9988 fail:
9989
9990
9991 SWIG_croak_null();
9992 }
9993 }
9994
9995
XS(_wrap_gsl_integration_fixed_params_a_get)9996 XS(_wrap_gsl_integration_fixed_params_a_get) {
9997 {
9998 gsl_integration_fixed_params *arg1 = (gsl_integration_fixed_params *) 0 ;
9999 void *argp1 = 0 ;
10000 int res1 = 0 ;
10001 int argvi = 0;
10002 double result;
10003 dXSARGS;
10004
10005 if ((items < 1) || (items > 1)) {
10006 SWIG_croak("Usage: gsl_integration_fixed_params_a_get(self);");
10007 }
10008 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_params, 0 | 0 );
10009 if (!SWIG_IsOK(res1)) {
10010 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_fixed_params_a_get" "', argument " "1"" of type '" "gsl_integration_fixed_params *""'");
10011 }
10012 arg1 = (gsl_integration_fixed_params *)(argp1);
10013 result = (double) ((arg1)->a);
10014 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
10015
10016 XSRETURN(argvi);
10017 fail:
10018
10019 SWIG_croak_null();
10020 }
10021 }
10022
10023
XS(_wrap_gsl_integration_fixed_params_b_set)10024 XS(_wrap_gsl_integration_fixed_params_b_set) {
10025 {
10026 gsl_integration_fixed_params *arg1 = (gsl_integration_fixed_params *) 0 ;
10027 double arg2 ;
10028 void *argp1 = 0 ;
10029 int res1 = 0 ;
10030 double val2 ;
10031 int ecode2 = 0 ;
10032 int argvi = 0;
10033 dXSARGS;
10034
10035 if ((items < 2) || (items > 2)) {
10036 SWIG_croak("Usage: gsl_integration_fixed_params_b_set(self,b);");
10037 }
10038 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_params, 0 | 0 );
10039 if (!SWIG_IsOK(res1)) {
10040 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_fixed_params_b_set" "', argument " "1"" of type '" "gsl_integration_fixed_params *""'");
10041 }
10042 arg1 = (gsl_integration_fixed_params *)(argp1);
10043 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10044 if (!SWIG_IsOK(ecode2)) {
10045 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_fixed_params_b_set" "', argument " "2"" of type '" "double""'");
10046 }
10047 arg2 = (double)(val2);
10048 if (arg1) (arg1)->b = arg2;
10049 ST(argvi) = &PL_sv_undef;
10050
10051
10052 XSRETURN(argvi);
10053 fail:
10054
10055
10056 SWIG_croak_null();
10057 }
10058 }
10059
10060
XS(_wrap_gsl_integration_fixed_params_b_get)10061 XS(_wrap_gsl_integration_fixed_params_b_get) {
10062 {
10063 gsl_integration_fixed_params *arg1 = (gsl_integration_fixed_params *) 0 ;
10064 void *argp1 = 0 ;
10065 int res1 = 0 ;
10066 int argvi = 0;
10067 double result;
10068 dXSARGS;
10069
10070 if ((items < 1) || (items > 1)) {
10071 SWIG_croak("Usage: gsl_integration_fixed_params_b_get(self);");
10072 }
10073 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_params, 0 | 0 );
10074 if (!SWIG_IsOK(res1)) {
10075 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_fixed_params_b_get" "', argument " "1"" of type '" "gsl_integration_fixed_params *""'");
10076 }
10077 arg1 = (gsl_integration_fixed_params *)(argp1);
10078 result = (double) ((arg1)->b);
10079 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
10080
10081 XSRETURN(argvi);
10082 fail:
10083
10084 SWIG_croak_null();
10085 }
10086 }
10087
10088
XS(_wrap_gsl_integration_fixed_params_zemu_set)10089 XS(_wrap_gsl_integration_fixed_params_zemu_set) {
10090 {
10091 gsl_integration_fixed_params *arg1 = (gsl_integration_fixed_params *) 0 ;
10092 double arg2 ;
10093 void *argp1 = 0 ;
10094 int res1 = 0 ;
10095 double val2 ;
10096 int ecode2 = 0 ;
10097 int argvi = 0;
10098 dXSARGS;
10099
10100 if ((items < 2) || (items > 2)) {
10101 SWIG_croak("Usage: gsl_integration_fixed_params_zemu_set(self,zemu);");
10102 }
10103 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_params, 0 | 0 );
10104 if (!SWIG_IsOK(res1)) {
10105 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_fixed_params_zemu_set" "', argument " "1"" of type '" "gsl_integration_fixed_params *""'");
10106 }
10107 arg1 = (gsl_integration_fixed_params *)(argp1);
10108 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10109 if (!SWIG_IsOK(ecode2)) {
10110 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_fixed_params_zemu_set" "', argument " "2"" of type '" "double""'");
10111 }
10112 arg2 = (double)(val2);
10113 if (arg1) (arg1)->zemu = arg2;
10114 ST(argvi) = &PL_sv_undef;
10115
10116
10117 XSRETURN(argvi);
10118 fail:
10119
10120
10121 SWIG_croak_null();
10122 }
10123 }
10124
10125
XS(_wrap_gsl_integration_fixed_params_zemu_get)10126 XS(_wrap_gsl_integration_fixed_params_zemu_get) {
10127 {
10128 gsl_integration_fixed_params *arg1 = (gsl_integration_fixed_params *) 0 ;
10129 void *argp1 = 0 ;
10130 int res1 = 0 ;
10131 int argvi = 0;
10132 double result;
10133 dXSARGS;
10134
10135 if ((items < 1) || (items > 1)) {
10136 SWIG_croak("Usage: gsl_integration_fixed_params_zemu_get(self);");
10137 }
10138 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_params, 0 | 0 );
10139 if (!SWIG_IsOK(res1)) {
10140 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_fixed_params_zemu_get" "', argument " "1"" of type '" "gsl_integration_fixed_params *""'");
10141 }
10142 arg1 = (gsl_integration_fixed_params *)(argp1);
10143 result = (double) ((arg1)->zemu);
10144 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
10145
10146 XSRETURN(argvi);
10147 fail:
10148
10149 SWIG_croak_null();
10150 }
10151 }
10152
10153
XS(_wrap_gsl_integration_fixed_params_shft_set)10154 XS(_wrap_gsl_integration_fixed_params_shft_set) {
10155 {
10156 gsl_integration_fixed_params *arg1 = (gsl_integration_fixed_params *) 0 ;
10157 double arg2 ;
10158 void *argp1 = 0 ;
10159 int res1 = 0 ;
10160 double val2 ;
10161 int ecode2 = 0 ;
10162 int argvi = 0;
10163 dXSARGS;
10164
10165 if ((items < 2) || (items > 2)) {
10166 SWIG_croak("Usage: gsl_integration_fixed_params_shft_set(self,shft);");
10167 }
10168 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_params, 0 | 0 );
10169 if (!SWIG_IsOK(res1)) {
10170 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_fixed_params_shft_set" "', argument " "1"" of type '" "gsl_integration_fixed_params *""'");
10171 }
10172 arg1 = (gsl_integration_fixed_params *)(argp1);
10173 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10174 if (!SWIG_IsOK(ecode2)) {
10175 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_fixed_params_shft_set" "', argument " "2"" of type '" "double""'");
10176 }
10177 arg2 = (double)(val2);
10178 if (arg1) (arg1)->shft = arg2;
10179 ST(argvi) = &PL_sv_undef;
10180
10181
10182 XSRETURN(argvi);
10183 fail:
10184
10185
10186 SWIG_croak_null();
10187 }
10188 }
10189
10190
XS(_wrap_gsl_integration_fixed_params_shft_get)10191 XS(_wrap_gsl_integration_fixed_params_shft_get) {
10192 {
10193 gsl_integration_fixed_params *arg1 = (gsl_integration_fixed_params *) 0 ;
10194 void *argp1 = 0 ;
10195 int res1 = 0 ;
10196 int argvi = 0;
10197 double result;
10198 dXSARGS;
10199
10200 if ((items < 1) || (items > 1)) {
10201 SWIG_croak("Usage: gsl_integration_fixed_params_shft_get(self);");
10202 }
10203 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_params, 0 | 0 );
10204 if (!SWIG_IsOK(res1)) {
10205 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_fixed_params_shft_get" "', argument " "1"" of type '" "gsl_integration_fixed_params *""'");
10206 }
10207 arg1 = (gsl_integration_fixed_params *)(argp1);
10208 result = (double) ((arg1)->shft);
10209 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
10210
10211 XSRETURN(argvi);
10212 fail:
10213
10214 SWIG_croak_null();
10215 }
10216 }
10217
10218
XS(_wrap_gsl_integration_fixed_params_slp_set)10219 XS(_wrap_gsl_integration_fixed_params_slp_set) {
10220 {
10221 gsl_integration_fixed_params *arg1 = (gsl_integration_fixed_params *) 0 ;
10222 double arg2 ;
10223 void *argp1 = 0 ;
10224 int res1 = 0 ;
10225 double val2 ;
10226 int ecode2 = 0 ;
10227 int argvi = 0;
10228 dXSARGS;
10229
10230 if ((items < 2) || (items > 2)) {
10231 SWIG_croak("Usage: gsl_integration_fixed_params_slp_set(self,slp);");
10232 }
10233 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_params, 0 | 0 );
10234 if (!SWIG_IsOK(res1)) {
10235 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_fixed_params_slp_set" "', argument " "1"" of type '" "gsl_integration_fixed_params *""'");
10236 }
10237 arg1 = (gsl_integration_fixed_params *)(argp1);
10238 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10239 if (!SWIG_IsOK(ecode2)) {
10240 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_fixed_params_slp_set" "', argument " "2"" of type '" "double""'");
10241 }
10242 arg2 = (double)(val2);
10243 if (arg1) (arg1)->slp = arg2;
10244 ST(argvi) = &PL_sv_undef;
10245
10246
10247 XSRETURN(argvi);
10248 fail:
10249
10250
10251 SWIG_croak_null();
10252 }
10253 }
10254
10255
XS(_wrap_gsl_integration_fixed_params_slp_get)10256 XS(_wrap_gsl_integration_fixed_params_slp_get) {
10257 {
10258 gsl_integration_fixed_params *arg1 = (gsl_integration_fixed_params *) 0 ;
10259 void *argp1 = 0 ;
10260 int res1 = 0 ;
10261 int argvi = 0;
10262 double result;
10263 dXSARGS;
10264
10265 if ((items < 1) || (items > 1)) {
10266 SWIG_croak("Usage: gsl_integration_fixed_params_slp_get(self);");
10267 }
10268 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_params, 0 | 0 );
10269 if (!SWIG_IsOK(res1)) {
10270 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_fixed_params_slp_get" "', argument " "1"" of type '" "gsl_integration_fixed_params *""'");
10271 }
10272 arg1 = (gsl_integration_fixed_params *)(argp1);
10273 result = (double) ((arg1)->slp);
10274 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
10275
10276 XSRETURN(argvi);
10277 fail:
10278
10279 SWIG_croak_null();
10280 }
10281 }
10282
10283
XS(_wrap_gsl_integration_fixed_params_al_set)10284 XS(_wrap_gsl_integration_fixed_params_al_set) {
10285 {
10286 gsl_integration_fixed_params *arg1 = (gsl_integration_fixed_params *) 0 ;
10287 double arg2 ;
10288 void *argp1 = 0 ;
10289 int res1 = 0 ;
10290 double val2 ;
10291 int ecode2 = 0 ;
10292 int argvi = 0;
10293 dXSARGS;
10294
10295 if ((items < 2) || (items > 2)) {
10296 SWIG_croak("Usage: gsl_integration_fixed_params_al_set(self,al);");
10297 }
10298 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_params, 0 | 0 );
10299 if (!SWIG_IsOK(res1)) {
10300 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_fixed_params_al_set" "', argument " "1"" of type '" "gsl_integration_fixed_params *""'");
10301 }
10302 arg1 = (gsl_integration_fixed_params *)(argp1);
10303 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10304 if (!SWIG_IsOK(ecode2)) {
10305 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_fixed_params_al_set" "', argument " "2"" of type '" "double""'");
10306 }
10307 arg2 = (double)(val2);
10308 if (arg1) (arg1)->al = arg2;
10309 ST(argvi) = &PL_sv_undef;
10310
10311
10312 XSRETURN(argvi);
10313 fail:
10314
10315
10316 SWIG_croak_null();
10317 }
10318 }
10319
10320
XS(_wrap_gsl_integration_fixed_params_al_get)10321 XS(_wrap_gsl_integration_fixed_params_al_get) {
10322 {
10323 gsl_integration_fixed_params *arg1 = (gsl_integration_fixed_params *) 0 ;
10324 void *argp1 = 0 ;
10325 int res1 = 0 ;
10326 int argvi = 0;
10327 double result;
10328 dXSARGS;
10329
10330 if ((items < 1) || (items > 1)) {
10331 SWIG_croak("Usage: gsl_integration_fixed_params_al_get(self);");
10332 }
10333 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_params, 0 | 0 );
10334 if (!SWIG_IsOK(res1)) {
10335 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_fixed_params_al_get" "', argument " "1"" of type '" "gsl_integration_fixed_params *""'");
10336 }
10337 arg1 = (gsl_integration_fixed_params *)(argp1);
10338 result = (double) ((arg1)->al);
10339 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
10340
10341 XSRETURN(argvi);
10342 fail:
10343
10344 SWIG_croak_null();
10345 }
10346 }
10347
10348
XS(_wrap_gsl_integration_fixed_params_be_set)10349 XS(_wrap_gsl_integration_fixed_params_be_set) {
10350 {
10351 gsl_integration_fixed_params *arg1 = (gsl_integration_fixed_params *) 0 ;
10352 double arg2 ;
10353 void *argp1 = 0 ;
10354 int res1 = 0 ;
10355 double val2 ;
10356 int ecode2 = 0 ;
10357 int argvi = 0;
10358 dXSARGS;
10359
10360 if ((items < 2) || (items > 2)) {
10361 SWIG_croak("Usage: gsl_integration_fixed_params_be_set(self,be);");
10362 }
10363 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_params, 0 | 0 );
10364 if (!SWIG_IsOK(res1)) {
10365 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_fixed_params_be_set" "', argument " "1"" of type '" "gsl_integration_fixed_params *""'");
10366 }
10367 arg1 = (gsl_integration_fixed_params *)(argp1);
10368 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10369 if (!SWIG_IsOK(ecode2)) {
10370 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_fixed_params_be_set" "', argument " "2"" of type '" "double""'");
10371 }
10372 arg2 = (double)(val2);
10373 if (arg1) (arg1)->be = arg2;
10374 ST(argvi) = &PL_sv_undef;
10375
10376
10377 XSRETURN(argvi);
10378 fail:
10379
10380
10381 SWIG_croak_null();
10382 }
10383 }
10384
10385
XS(_wrap_gsl_integration_fixed_params_be_get)10386 XS(_wrap_gsl_integration_fixed_params_be_get) {
10387 {
10388 gsl_integration_fixed_params *arg1 = (gsl_integration_fixed_params *) 0 ;
10389 void *argp1 = 0 ;
10390 int res1 = 0 ;
10391 int argvi = 0;
10392 double result;
10393 dXSARGS;
10394
10395 if ((items < 1) || (items > 1)) {
10396 SWIG_croak("Usage: gsl_integration_fixed_params_be_get(self);");
10397 }
10398 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_params, 0 | 0 );
10399 if (!SWIG_IsOK(res1)) {
10400 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_fixed_params_be_get" "', argument " "1"" of type '" "gsl_integration_fixed_params *""'");
10401 }
10402 arg1 = (gsl_integration_fixed_params *)(argp1);
10403 result = (double) ((arg1)->be);
10404 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
10405
10406 XSRETURN(argvi);
10407 fail:
10408
10409 SWIG_croak_null();
10410 }
10411 }
10412
10413
XS(_wrap_new_gsl_integration_fixed_params)10414 XS(_wrap_new_gsl_integration_fixed_params) {
10415 {
10416 int argvi = 0;
10417 gsl_integration_fixed_params *result = 0 ;
10418 dXSARGS;
10419
10420 if ((items < 0) || (items > 0)) {
10421 SWIG_croak("Usage: new_gsl_integration_fixed_params();");
10422 }
10423 result = (gsl_integration_fixed_params *)calloc(1, sizeof(gsl_integration_fixed_params));
10424 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_integration_fixed_params, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
10425 XSRETURN(argvi);
10426 fail:
10427 SWIG_croak_null();
10428 }
10429 }
10430
10431
XS(_wrap_delete_gsl_integration_fixed_params)10432 XS(_wrap_delete_gsl_integration_fixed_params) {
10433 {
10434 gsl_integration_fixed_params *arg1 = (gsl_integration_fixed_params *) 0 ;
10435 void *argp1 = 0 ;
10436 int res1 = 0 ;
10437 int argvi = 0;
10438 dXSARGS;
10439
10440 if ((items < 1) || (items > 1)) {
10441 SWIG_croak("Usage: delete_gsl_integration_fixed_params(self);");
10442 }
10443 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_params, SWIG_POINTER_DISOWN | 0 );
10444 if (!SWIG_IsOK(res1)) {
10445 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_integration_fixed_params" "', argument " "1"" of type '" "gsl_integration_fixed_params *""'");
10446 }
10447 arg1 = (gsl_integration_fixed_params *)(argp1);
10448 free((char *) arg1);
10449 ST(argvi) = &PL_sv_undef;
10450
10451 XSRETURN(argvi);
10452 fail:
10453
10454 SWIG_croak_null();
10455 }
10456 }
10457
10458
XS(_wrap_gsl_integration_fixed_type_check_set)10459 XS(_wrap_gsl_integration_fixed_type_check_set) {
10460 {
10461 gsl_integration_fixed_type *arg1 = (gsl_integration_fixed_type *) 0 ;
10462 int (*arg2)(size_t const,gsl_integration_fixed_params const *) = (int (*)(size_t const,gsl_integration_fixed_params const *)) 0 ;
10463 void *argp1 = 0 ;
10464 int res1 = 0 ;
10465 int argvi = 0;
10466 dXSARGS;
10467
10468 if ((items < 2) || (items > 2)) {
10469 SWIG_croak("Usage: gsl_integration_fixed_type_check_set(self,check);");
10470 }
10471 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_type, 0 | 0 );
10472 if (!SWIG_IsOK(res1)) {
10473 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_fixed_type_check_set" "', argument " "1"" of type '" "gsl_integration_fixed_type *""'");
10474 }
10475 arg1 = (gsl_integration_fixed_type *)(argp1);
10476 {
10477 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_q_const__size_t_p_q_const__gsl_integration_fixed_params__int);
10478 if (!SWIG_IsOK(res)) {
10479 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_integration_fixed_type_check_set" "', argument " "2"" of type '" "int (*)(size_t const,gsl_integration_fixed_params const *)""'");
10480 }
10481 }
10482 if (arg1) (arg1)->check = arg2;
10483 ST(argvi) = &PL_sv_undef;
10484
10485
10486 XSRETURN(argvi);
10487 fail:
10488
10489
10490 SWIG_croak_null();
10491 }
10492 }
10493
10494
XS(_wrap_gsl_integration_fixed_type_check_get)10495 XS(_wrap_gsl_integration_fixed_type_check_get) {
10496 {
10497 gsl_integration_fixed_type *arg1 = (gsl_integration_fixed_type *) 0 ;
10498 void *argp1 = 0 ;
10499 int res1 = 0 ;
10500 int argvi = 0;
10501 int (*result)(size_t const,gsl_integration_fixed_params const *) = 0 ;
10502 dXSARGS;
10503
10504 if ((items < 1) || (items > 1)) {
10505 SWIG_croak("Usage: gsl_integration_fixed_type_check_get(self);");
10506 }
10507 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_type, 0 | 0 );
10508 if (!SWIG_IsOK(res1)) {
10509 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_fixed_type_check_get" "', argument " "1"" of type '" "gsl_integration_fixed_type *""'");
10510 }
10511 arg1 = (gsl_integration_fixed_type *)(argp1);
10512 result = (int (*)(size_t const,gsl_integration_fixed_params const *)) ((arg1)->check);
10513 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_q_const__size_t_p_q_const__gsl_integration_fixed_params__int); argvi++ ;
10514
10515 XSRETURN(argvi);
10516 fail:
10517
10518 SWIG_croak_null();
10519 }
10520 }
10521
10522
XS(_wrap_gsl_integration_fixed_type_init_set)10523 XS(_wrap_gsl_integration_fixed_type_init_set) {
10524 {
10525 gsl_integration_fixed_type *arg1 = (gsl_integration_fixed_type *) 0 ;
10526 int (*arg2)(size_t const,double *,double *,gsl_integration_fixed_params *) = (int (*)(size_t const,double *,double *,gsl_integration_fixed_params *)) 0 ;
10527 void *argp1 = 0 ;
10528 int res1 = 0 ;
10529 int argvi = 0;
10530 dXSARGS;
10531
10532 if ((items < 2) || (items > 2)) {
10533 SWIG_croak("Usage: gsl_integration_fixed_type_init_set(self,init);");
10534 }
10535 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_type, 0 | 0 );
10536 if (!SWIG_IsOK(res1)) {
10537 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_fixed_type_init_set" "', argument " "1"" of type '" "gsl_integration_fixed_type *""'");
10538 }
10539 arg1 = (gsl_integration_fixed_type *)(argp1);
10540 {
10541 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_q_const__size_t_p_double_p_double_p_gsl_integration_fixed_params__int);
10542 if (!SWIG_IsOK(res)) {
10543 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_integration_fixed_type_init_set" "', argument " "2"" of type '" "int (*)(size_t const,double *,double *,gsl_integration_fixed_params *)""'");
10544 }
10545 }
10546 if (arg1) (arg1)->init = arg2;
10547 ST(argvi) = &PL_sv_undef;
10548
10549
10550 XSRETURN(argvi);
10551 fail:
10552
10553
10554 SWIG_croak_null();
10555 }
10556 }
10557
10558
XS(_wrap_gsl_integration_fixed_type_init_get)10559 XS(_wrap_gsl_integration_fixed_type_init_get) {
10560 {
10561 gsl_integration_fixed_type *arg1 = (gsl_integration_fixed_type *) 0 ;
10562 void *argp1 = 0 ;
10563 int res1 = 0 ;
10564 int argvi = 0;
10565 int (*result)(size_t const,double *,double *,gsl_integration_fixed_params *) = 0 ;
10566 dXSARGS;
10567
10568 if ((items < 1) || (items > 1)) {
10569 SWIG_croak("Usage: gsl_integration_fixed_type_init_get(self);");
10570 }
10571 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_type, 0 | 0 );
10572 if (!SWIG_IsOK(res1)) {
10573 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_fixed_type_init_get" "', argument " "1"" of type '" "gsl_integration_fixed_type *""'");
10574 }
10575 arg1 = (gsl_integration_fixed_type *)(argp1);
10576 result = (int (*)(size_t const,double *,double *,gsl_integration_fixed_params *)) ((arg1)->init);
10577 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_q_const__size_t_p_double_p_double_p_gsl_integration_fixed_params__int); argvi++ ;
10578
10579 XSRETURN(argvi);
10580 fail:
10581
10582 SWIG_croak_null();
10583 }
10584 }
10585
10586
XS(_wrap_new_gsl_integration_fixed_type)10587 XS(_wrap_new_gsl_integration_fixed_type) {
10588 {
10589 int argvi = 0;
10590 gsl_integration_fixed_type *result = 0 ;
10591 dXSARGS;
10592
10593 if ((items < 0) || (items > 0)) {
10594 SWIG_croak("Usage: new_gsl_integration_fixed_type();");
10595 }
10596 result = (gsl_integration_fixed_type *)calloc(1, sizeof(gsl_integration_fixed_type));
10597 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_integration_fixed_type, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
10598 XSRETURN(argvi);
10599 fail:
10600 SWIG_croak_null();
10601 }
10602 }
10603
10604
XS(_wrap_delete_gsl_integration_fixed_type)10605 XS(_wrap_delete_gsl_integration_fixed_type) {
10606 {
10607 gsl_integration_fixed_type *arg1 = (gsl_integration_fixed_type *) 0 ;
10608 void *argp1 = 0 ;
10609 int res1 = 0 ;
10610 int argvi = 0;
10611 dXSARGS;
10612
10613 if ((items < 1) || (items > 1)) {
10614 SWIG_croak("Usage: delete_gsl_integration_fixed_type(self);");
10615 }
10616 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_type, SWIG_POINTER_DISOWN | 0 );
10617 if (!SWIG_IsOK(res1)) {
10618 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_integration_fixed_type" "', argument " "1"" of type '" "gsl_integration_fixed_type *""'");
10619 }
10620 arg1 = (gsl_integration_fixed_type *)(argp1);
10621 free((char *) arg1);
10622 ST(argvi) = &PL_sv_undef;
10623
10624 XSRETURN(argvi);
10625 fail:
10626
10627 SWIG_croak_null();
10628 }
10629 }
10630
10631
XS(_wrap_gsl_integration_fixed_workspace_n_set)10632 XS(_wrap_gsl_integration_fixed_workspace_n_set) {
10633 {
10634 gsl_integration_fixed_workspace *arg1 = (gsl_integration_fixed_workspace *) 0 ;
10635 size_t arg2 ;
10636 void *argp1 = 0 ;
10637 int res1 = 0 ;
10638 size_t val2 ;
10639 int ecode2 = 0 ;
10640 int argvi = 0;
10641 dXSARGS;
10642
10643 if ((items < 2) || (items > 2)) {
10644 SWIG_croak("Usage: gsl_integration_fixed_workspace_n_set(self,n);");
10645 }
10646 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_workspace, 0 | 0 );
10647 if (!SWIG_IsOK(res1)) {
10648 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_fixed_workspace_n_set" "', argument " "1"" of type '" "gsl_integration_fixed_workspace *""'");
10649 }
10650 arg1 = (gsl_integration_fixed_workspace *)(argp1);
10651 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10652 if (!SWIG_IsOK(ecode2)) {
10653 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_fixed_workspace_n_set" "', argument " "2"" of type '" "size_t""'");
10654 }
10655 arg2 = (size_t)(val2);
10656 if (arg1) (arg1)->n = arg2;
10657 ST(argvi) = &PL_sv_undef;
10658
10659
10660 XSRETURN(argvi);
10661 fail:
10662
10663
10664 SWIG_croak_null();
10665 }
10666 }
10667
10668
XS(_wrap_gsl_integration_fixed_workspace_n_get)10669 XS(_wrap_gsl_integration_fixed_workspace_n_get) {
10670 {
10671 gsl_integration_fixed_workspace *arg1 = (gsl_integration_fixed_workspace *) 0 ;
10672 void *argp1 = 0 ;
10673 int res1 = 0 ;
10674 int argvi = 0;
10675 size_t result;
10676 dXSARGS;
10677
10678 if ((items < 1) || (items > 1)) {
10679 SWIG_croak("Usage: gsl_integration_fixed_workspace_n_get(self);");
10680 }
10681 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_workspace, 0 | 0 );
10682 if (!SWIG_IsOK(res1)) {
10683 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_fixed_workspace_n_get" "', argument " "1"" of type '" "gsl_integration_fixed_workspace *""'");
10684 }
10685 arg1 = (gsl_integration_fixed_workspace *)(argp1);
10686 result = ((arg1)->n);
10687 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
10688
10689 XSRETURN(argvi);
10690 fail:
10691
10692 SWIG_croak_null();
10693 }
10694 }
10695
10696
XS(_wrap_gsl_integration_fixed_workspace_weights_set)10697 XS(_wrap_gsl_integration_fixed_workspace_weights_set) {
10698 {
10699 gsl_integration_fixed_workspace *arg1 = (gsl_integration_fixed_workspace *) 0 ;
10700 double *arg2 = (double *) 0 ;
10701 void *argp1 = 0 ;
10702 int res1 = 0 ;
10703 void *argp2 = 0 ;
10704 int res2 = 0 ;
10705 int argvi = 0;
10706 dXSARGS;
10707
10708 if ((items < 2) || (items > 2)) {
10709 SWIG_croak("Usage: gsl_integration_fixed_workspace_weights_set(self,weights);");
10710 }
10711 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_workspace, 0 | 0 );
10712 if (!SWIG_IsOK(res1)) {
10713 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_fixed_workspace_weights_set" "', argument " "1"" of type '" "gsl_integration_fixed_workspace *""'");
10714 }
10715 arg1 = (gsl_integration_fixed_workspace *)(argp1);
10716 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
10717 if (!SWIG_IsOK(res2)) {
10718 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_fixed_workspace_weights_set" "', argument " "2"" of type '" "double *""'");
10719 }
10720 arg2 = (double *)(argp2);
10721 if (arg1) (arg1)->weights = arg2;
10722 ST(argvi) = &PL_sv_undef;
10723
10724
10725 XSRETURN(argvi);
10726 fail:
10727
10728
10729 SWIG_croak_null();
10730 }
10731 }
10732
10733
XS(_wrap_gsl_integration_fixed_workspace_weights_get)10734 XS(_wrap_gsl_integration_fixed_workspace_weights_get) {
10735 {
10736 gsl_integration_fixed_workspace *arg1 = (gsl_integration_fixed_workspace *) 0 ;
10737 void *argp1 = 0 ;
10738 int res1 = 0 ;
10739 int argvi = 0;
10740 double *result = 0 ;
10741 dXSARGS;
10742
10743 if ((items < 1) || (items > 1)) {
10744 SWIG_croak("Usage: gsl_integration_fixed_workspace_weights_get(self);");
10745 }
10746 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_workspace, 0 | 0 );
10747 if (!SWIG_IsOK(res1)) {
10748 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_fixed_workspace_weights_get" "', argument " "1"" of type '" "gsl_integration_fixed_workspace *""'");
10749 }
10750 arg1 = (gsl_integration_fixed_workspace *)(argp1);
10751 result = (double *) ((arg1)->weights);
10752 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
10753
10754 XSRETURN(argvi);
10755 fail:
10756
10757 SWIG_croak_null();
10758 }
10759 }
10760
10761
XS(_wrap_gsl_integration_fixed_workspace_x_set)10762 XS(_wrap_gsl_integration_fixed_workspace_x_set) {
10763 {
10764 gsl_integration_fixed_workspace *arg1 = (gsl_integration_fixed_workspace *) 0 ;
10765 double *arg2 = (double *) 0 ;
10766 void *argp1 = 0 ;
10767 int res1 = 0 ;
10768 void *argp2 = 0 ;
10769 int res2 = 0 ;
10770 int argvi = 0;
10771 dXSARGS;
10772
10773 if ((items < 2) || (items > 2)) {
10774 SWIG_croak("Usage: gsl_integration_fixed_workspace_x_set(self,x);");
10775 }
10776 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_workspace, 0 | 0 );
10777 if (!SWIG_IsOK(res1)) {
10778 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_fixed_workspace_x_set" "', argument " "1"" of type '" "gsl_integration_fixed_workspace *""'");
10779 }
10780 arg1 = (gsl_integration_fixed_workspace *)(argp1);
10781 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
10782 if (!SWIG_IsOK(res2)) {
10783 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_fixed_workspace_x_set" "', argument " "2"" of type '" "double *""'");
10784 }
10785 arg2 = (double *)(argp2);
10786 if (arg1) (arg1)->x = arg2;
10787 ST(argvi) = &PL_sv_undef;
10788
10789
10790 XSRETURN(argvi);
10791 fail:
10792
10793
10794 SWIG_croak_null();
10795 }
10796 }
10797
10798
XS(_wrap_gsl_integration_fixed_workspace_x_get)10799 XS(_wrap_gsl_integration_fixed_workspace_x_get) {
10800 {
10801 gsl_integration_fixed_workspace *arg1 = (gsl_integration_fixed_workspace *) 0 ;
10802 void *argp1 = 0 ;
10803 int res1 = 0 ;
10804 int argvi = 0;
10805 double *result = 0 ;
10806 dXSARGS;
10807
10808 if ((items < 1) || (items > 1)) {
10809 SWIG_croak("Usage: gsl_integration_fixed_workspace_x_get(self);");
10810 }
10811 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_workspace, 0 | 0 );
10812 if (!SWIG_IsOK(res1)) {
10813 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_fixed_workspace_x_get" "', argument " "1"" of type '" "gsl_integration_fixed_workspace *""'");
10814 }
10815 arg1 = (gsl_integration_fixed_workspace *)(argp1);
10816 result = (double *) ((arg1)->x);
10817 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
10818
10819 XSRETURN(argvi);
10820 fail:
10821
10822 SWIG_croak_null();
10823 }
10824 }
10825
10826
XS(_wrap_gsl_integration_fixed_workspace_diag_set)10827 XS(_wrap_gsl_integration_fixed_workspace_diag_set) {
10828 {
10829 gsl_integration_fixed_workspace *arg1 = (gsl_integration_fixed_workspace *) 0 ;
10830 double *arg2 = (double *) 0 ;
10831 void *argp1 = 0 ;
10832 int res1 = 0 ;
10833 void *argp2 = 0 ;
10834 int res2 = 0 ;
10835 int argvi = 0;
10836 dXSARGS;
10837
10838 if ((items < 2) || (items > 2)) {
10839 SWIG_croak("Usage: gsl_integration_fixed_workspace_diag_set(self,diag);");
10840 }
10841 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_workspace, 0 | 0 );
10842 if (!SWIG_IsOK(res1)) {
10843 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_fixed_workspace_diag_set" "', argument " "1"" of type '" "gsl_integration_fixed_workspace *""'");
10844 }
10845 arg1 = (gsl_integration_fixed_workspace *)(argp1);
10846 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
10847 if (!SWIG_IsOK(res2)) {
10848 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_fixed_workspace_diag_set" "', argument " "2"" of type '" "double *""'");
10849 }
10850 arg2 = (double *)(argp2);
10851 if (arg1) (arg1)->diag = arg2;
10852 ST(argvi) = &PL_sv_undef;
10853
10854
10855 XSRETURN(argvi);
10856 fail:
10857
10858
10859 SWIG_croak_null();
10860 }
10861 }
10862
10863
XS(_wrap_gsl_integration_fixed_workspace_diag_get)10864 XS(_wrap_gsl_integration_fixed_workspace_diag_get) {
10865 {
10866 gsl_integration_fixed_workspace *arg1 = (gsl_integration_fixed_workspace *) 0 ;
10867 void *argp1 = 0 ;
10868 int res1 = 0 ;
10869 int argvi = 0;
10870 double *result = 0 ;
10871 dXSARGS;
10872
10873 if ((items < 1) || (items > 1)) {
10874 SWIG_croak("Usage: gsl_integration_fixed_workspace_diag_get(self);");
10875 }
10876 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_workspace, 0 | 0 );
10877 if (!SWIG_IsOK(res1)) {
10878 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_fixed_workspace_diag_get" "', argument " "1"" of type '" "gsl_integration_fixed_workspace *""'");
10879 }
10880 arg1 = (gsl_integration_fixed_workspace *)(argp1);
10881 result = (double *) ((arg1)->diag);
10882 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
10883
10884 XSRETURN(argvi);
10885 fail:
10886
10887 SWIG_croak_null();
10888 }
10889 }
10890
10891
XS(_wrap_gsl_integration_fixed_workspace_subdiag_set)10892 XS(_wrap_gsl_integration_fixed_workspace_subdiag_set) {
10893 {
10894 gsl_integration_fixed_workspace *arg1 = (gsl_integration_fixed_workspace *) 0 ;
10895 double *arg2 = (double *) 0 ;
10896 void *argp1 = 0 ;
10897 int res1 = 0 ;
10898 void *argp2 = 0 ;
10899 int res2 = 0 ;
10900 int argvi = 0;
10901 dXSARGS;
10902
10903 if ((items < 2) || (items > 2)) {
10904 SWIG_croak("Usage: gsl_integration_fixed_workspace_subdiag_set(self,subdiag);");
10905 }
10906 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_workspace, 0 | 0 );
10907 if (!SWIG_IsOK(res1)) {
10908 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_fixed_workspace_subdiag_set" "', argument " "1"" of type '" "gsl_integration_fixed_workspace *""'");
10909 }
10910 arg1 = (gsl_integration_fixed_workspace *)(argp1);
10911 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
10912 if (!SWIG_IsOK(res2)) {
10913 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_fixed_workspace_subdiag_set" "', argument " "2"" of type '" "double *""'");
10914 }
10915 arg2 = (double *)(argp2);
10916 if (arg1) (arg1)->subdiag = arg2;
10917 ST(argvi) = &PL_sv_undef;
10918
10919
10920 XSRETURN(argvi);
10921 fail:
10922
10923
10924 SWIG_croak_null();
10925 }
10926 }
10927
10928
XS(_wrap_gsl_integration_fixed_workspace_subdiag_get)10929 XS(_wrap_gsl_integration_fixed_workspace_subdiag_get) {
10930 {
10931 gsl_integration_fixed_workspace *arg1 = (gsl_integration_fixed_workspace *) 0 ;
10932 void *argp1 = 0 ;
10933 int res1 = 0 ;
10934 int argvi = 0;
10935 double *result = 0 ;
10936 dXSARGS;
10937
10938 if ((items < 1) || (items > 1)) {
10939 SWIG_croak("Usage: gsl_integration_fixed_workspace_subdiag_get(self);");
10940 }
10941 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_workspace, 0 | 0 );
10942 if (!SWIG_IsOK(res1)) {
10943 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_fixed_workspace_subdiag_get" "', argument " "1"" of type '" "gsl_integration_fixed_workspace *""'");
10944 }
10945 arg1 = (gsl_integration_fixed_workspace *)(argp1);
10946 result = (double *) ((arg1)->subdiag);
10947 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
10948
10949 XSRETURN(argvi);
10950 fail:
10951
10952 SWIG_croak_null();
10953 }
10954 }
10955
10956
XS(_wrap_gsl_integration_fixed_workspace_type_set)10957 XS(_wrap_gsl_integration_fixed_workspace_type_set) {
10958 {
10959 gsl_integration_fixed_workspace *arg1 = (gsl_integration_fixed_workspace *) 0 ;
10960 gsl_integration_fixed_type *arg2 = (gsl_integration_fixed_type *) 0 ;
10961 void *argp1 = 0 ;
10962 int res1 = 0 ;
10963 void *argp2 = 0 ;
10964 int res2 = 0 ;
10965 int argvi = 0;
10966 dXSARGS;
10967
10968 if ((items < 2) || (items > 2)) {
10969 SWIG_croak("Usage: gsl_integration_fixed_workspace_type_set(self,type);");
10970 }
10971 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_workspace, 0 | 0 );
10972 if (!SWIG_IsOK(res1)) {
10973 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_fixed_workspace_type_set" "', argument " "1"" of type '" "gsl_integration_fixed_workspace *""'");
10974 }
10975 arg1 = (gsl_integration_fixed_workspace *)(argp1);
10976 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_integration_fixed_type, SWIG_POINTER_DISOWN | 0 );
10977 if (!SWIG_IsOK(res2)) {
10978 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_fixed_workspace_type_set" "', argument " "2"" of type '" "gsl_integration_fixed_type const *""'");
10979 }
10980 arg2 = (gsl_integration_fixed_type *)(argp2);
10981 if (arg1) (arg1)->type = (gsl_integration_fixed_type const *)arg2;
10982 ST(argvi) = &PL_sv_undef;
10983
10984
10985 XSRETURN(argvi);
10986 fail:
10987
10988
10989 SWIG_croak_null();
10990 }
10991 }
10992
10993
XS(_wrap_gsl_integration_fixed_workspace_type_get)10994 XS(_wrap_gsl_integration_fixed_workspace_type_get) {
10995 {
10996 gsl_integration_fixed_workspace *arg1 = (gsl_integration_fixed_workspace *) 0 ;
10997 void *argp1 = 0 ;
10998 int res1 = 0 ;
10999 int argvi = 0;
11000 gsl_integration_fixed_type *result = 0 ;
11001 dXSARGS;
11002
11003 if ((items < 1) || (items > 1)) {
11004 SWIG_croak("Usage: gsl_integration_fixed_workspace_type_get(self);");
11005 }
11006 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_workspace, 0 | 0 );
11007 if (!SWIG_IsOK(res1)) {
11008 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_fixed_workspace_type_get" "', argument " "1"" of type '" "gsl_integration_fixed_workspace *""'");
11009 }
11010 arg1 = (gsl_integration_fixed_workspace *)(argp1);
11011 result = (gsl_integration_fixed_type *) ((arg1)->type);
11012 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_integration_fixed_type, 0 | SWIG_SHADOW); argvi++ ;
11013
11014 XSRETURN(argvi);
11015 fail:
11016
11017 SWIG_croak_null();
11018 }
11019 }
11020
11021
XS(_wrap_new_gsl_integration_fixed_workspace)11022 XS(_wrap_new_gsl_integration_fixed_workspace) {
11023 {
11024 int argvi = 0;
11025 gsl_integration_fixed_workspace *result = 0 ;
11026 dXSARGS;
11027
11028 if ((items < 0) || (items > 0)) {
11029 SWIG_croak("Usage: new_gsl_integration_fixed_workspace();");
11030 }
11031 result = (gsl_integration_fixed_workspace *)calloc(1, sizeof(gsl_integration_fixed_workspace));
11032 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_integration_fixed_workspace, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
11033 XSRETURN(argvi);
11034 fail:
11035 SWIG_croak_null();
11036 }
11037 }
11038
11039
XS(_wrap_delete_gsl_integration_fixed_workspace)11040 XS(_wrap_delete_gsl_integration_fixed_workspace) {
11041 {
11042 gsl_integration_fixed_workspace *arg1 = (gsl_integration_fixed_workspace *) 0 ;
11043 void *argp1 = 0 ;
11044 int res1 = 0 ;
11045 int argvi = 0;
11046 dXSARGS;
11047
11048 if ((items < 1) || (items > 1)) {
11049 SWIG_croak("Usage: delete_gsl_integration_fixed_workspace(self);");
11050 }
11051 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_workspace, SWIG_POINTER_DISOWN | 0 );
11052 if (!SWIG_IsOK(res1)) {
11053 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_integration_fixed_workspace" "', argument " "1"" of type '" "gsl_integration_fixed_workspace *""'");
11054 }
11055 arg1 = (gsl_integration_fixed_workspace *)(argp1);
11056 free((char *) arg1);
11057 ST(argvi) = &PL_sv_undef;
11058
11059 XSRETURN(argvi);
11060 fail:
11061
11062 SWIG_croak_null();
11063 }
11064 }
11065
11066
XS(_wrap_gsl_integration_fixed_alloc)11067 XS(_wrap_gsl_integration_fixed_alloc) {
11068 {
11069 gsl_integration_fixed_type *arg1 = (gsl_integration_fixed_type *) 0 ;
11070 size_t arg2 ;
11071 double arg3 ;
11072 double arg4 ;
11073 double arg5 ;
11074 double arg6 ;
11075 void *argp1 = 0 ;
11076 int res1 = 0 ;
11077 size_t val2 ;
11078 int ecode2 = 0 ;
11079 double val3 ;
11080 int ecode3 = 0 ;
11081 double val4 ;
11082 int ecode4 = 0 ;
11083 double val5 ;
11084 int ecode5 = 0 ;
11085 double val6 ;
11086 int ecode6 = 0 ;
11087 int argvi = 0;
11088 gsl_integration_fixed_workspace *result = 0 ;
11089 dXSARGS;
11090
11091 if ((items < 6) || (items > 6)) {
11092 SWIG_croak("Usage: gsl_integration_fixed_alloc(type,n,a,b,alpha,beta);");
11093 }
11094 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_type, 0 | 0 );
11095 if (!SWIG_IsOK(res1)) {
11096 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_fixed_alloc" "', argument " "1"" of type '" "gsl_integration_fixed_type const *""'");
11097 }
11098 arg1 = (gsl_integration_fixed_type *)(argp1);
11099 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
11100 if (!SWIG_IsOK(ecode2)) {
11101 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_fixed_alloc" "', argument " "2"" of type '" "size_t""'");
11102 }
11103 arg2 = (size_t)(val2);
11104 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
11105 if (!SWIG_IsOK(ecode3)) {
11106 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_fixed_alloc" "', argument " "3"" of type '" "double""'");
11107 }
11108 arg3 = (double)(val3);
11109 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
11110 if (!SWIG_IsOK(ecode4)) {
11111 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_integration_fixed_alloc" "', argument " "4"" of type '" "double""'");
11112 }
11113 arg4 = (double)(val4);
11114 ecode5 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
11115 if (!SWIG_IsOK(ecode5)) {
11116 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_integration_fixed_alloc" "', argument " "5"" of type '" "double""'");
11117 }
11118 arg5 = (double)(val5);
11119 ecode6 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(5), &val6);
11120 if (!SWIG_IsOK(ecode6)) {
11121 SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "gsl_integration_fixed_alloc" "', argument " "6"" of type '" "double""'");
11122 }
11123 arg6 = (double)(val6);
11124 result = (gsl_integration_fixed_workspace *)gsl_integration_fixed_alloc((gsl_integration_fixed_type const *)arg1,arg2,arg3,arg4,arg5,arg6);
11125 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_integration_fixed_workspace, 0 | SWIG_SHADOW); argvi++ ;
11126
11127
11128
11129
11130
11131
11132 XSRETURN(argvi);
11133 fail:
11134
11135
11136
11137
11138
11139
11140 SWIG_croak_null();
11141 }
11142 }
11143
11144
XS(_wrap_gsl_integration_fixed_free)11145 XS(_wrap_gsl_integration_fixed_free) {
11146 {
11147 gsl_integration_fixed_workspace *arg1 = (gsl_integration_fixed_workspace *) 0 ;
11148 void *argp1 = 0 ;
11149 int res1 = 0 ;
11150 int argvi = 0;
11151 dXSARGS;
11152
11153 if ((items < 1) || (items > 1)) {
11154 SWIG_croak("Usage: gsl_integration_fixed_free(w);");
11155 }
11156 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_workspace, 0 | 0 );
11157 if (!SWIG_IsOK(res1)) {
11158 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_fixed_free" "', argument " "1"" of type '" "gsl_integration_fixed_workspace *""'");
11159 }
11160 arg1 = (gsl_integration_fixed_workspace *)(argp1);
11161 gsl_integration_fixed_free(arg1);
11162 ST(argvi) = &PL_sv_undef;
11163
11164 XSRETURN(argvi);
11165 fail:
11166
11167 SWIG_croak_null();
11168 }
11169 }
11170
11171
XS(_wrap_gsl_integration_fixed_n)11172 XS(_wrap_gsl_integration_fixed_n) {
11173 {
11174 gsl_integration_fixed_workspace *arg1 = (gsl_integration_fixed_workspace *) 0 ;
11175 void *argp1 = 0 ;
11176 int res1 = 0 ;
11177 int argvi = 0;
11178 size_t result;
11179 dXSARGS;
11180
11181 if ((items < 1) || (items > 1)) {
11182 SWIG_croak("Usage: gsl_integration_fixed_n(w);");
11183 }
11184 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_workspace, 0 | 0 );
11185 if (!SWIG_IsOK(res1)) {
11186 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_fixed_n" "', argument " "1"" of type '" "gsl_integration_fixed_workspace const *""'");
11187 }
11188 arg1 = (gsl_integration_fixed_workspace *)(argp1);
11189 result = gsl_integration_fixed_n((gsl_integration_fixed_workspace const *)arg1);
11190 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
11191
11192 XSRETURN(argvi);
11193 fail:
11194
11195 SWIG_croak_null();
11196 }
11197 }
11198
11199
XS(_wrap_gsl_integration_fixed_nodes)11200 XS(_wrap_gsl_integration_fixed_nodes) {
11201 {
11202 gsl_integration_fixed_workspace *arg1 = (gsl_integration_fixed_workspace *) 0 ;
11203 void *argp1 = 0 ;
11204 int res1 = 0 ;
11205 int argvi = 0;
11206 double *result = 0 ;
11207 dXSARGS;
11208
11209 if ((items < 1) || (items > 1)) {
11210 SWIG_croak("Usage: gsl_integration_fixed_nodes(w);");
11211 }
11212 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_workspace, 0 | 0 );
11213 if (!SWIG_IsOK(res1)) {
11214 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_fixed_nodes" "', argument " "1"" of type '" "gsl_integration_fixed_workspace const *""'");
11215 }
11216 arg1 = (gsl_integration_fixed_workspace *)(argp1);
11217 result = (double *)gsl_integration_fixed_nodes((gsl_integration_fixed_workspace const *)arg1);
11218 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
11219
11220 XSRETURN(argvi);
11221 fail:
11222
11223 SWIG_croak_null();
11224 }
11225 }
11226
11227
XS(_wrap_gsl_integration_fixed_weights)11228 XS(_wrap_gsl_integration_fixed_weights) {
11229 {
11230 gsl_integration_fixed_workspace *arg1 = (gsl_integration_fixed_workspace *) 0 ;
11231 void *argp1 = 0 ;
11232 int res1 = 0 ;
11233 int argvi = 0;
11234 double *result = 0 ;
11235 dXSARGS;
11236
11237 if ((items < 1) || (items > 1)) {
11238 SWIG_croak("Usage: gsl_integration_fixed_weights(w);");
11239 }
11240 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_fixed_workspace, 0 | 0 );
11241 if (!SWIG_IsOK(res1)) {
11242 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_fixed_weights" "', argument " "1"" of type '" "gsl_integration_fixed_workspace const *""'");
11243 }
11244 arg1 = (gsl_integration_fixed_workspace *)(argp1);
11245 result = (double *)gsl_integration_fixed_weights((gsl_integration_fixed_workspace const *)arg1);
11246 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
11247
11248 XSRETURN(argvi);
11249 fail:
11250
11251 SWIG_croak_null();
11252 }
11253 }
11254
11255
XS(_wrap_gsl_integration_fixed)11256 XS(_wrap_gsl_integration_fixed) {
11257 {
11258 gsl_function *arg1 = (gsl_function *) 0 ;
11259 double *arg2 = (double *) 0 ;
11260 gsl_integration_fixed_workspace *arg3 = (gsl_integration_fixed_workspace *) 0 ;
11261 double temp2 ;
11262 int res2 = SWIG_TMPOBJ ;
11263 void *argp3 = 0 ;
11264 int res3 = 0 ;
11265 int argvi = 0;
11266 int result;
11267 dXSARGS;
11268
11269 arg2 = &temp2;
11270 if ((items < 2) || (items > 2)) {
11271 SWIG_croak("Usage: gsl_integration_fixed(func,w);");
11272 }
11273 {
11274 SV * function = 0;
11275 SV * params = 0;
11276 struct gsl_function_perl *w_gsl_function;
11277 Newx(w_gsl_function, 1, struct gsl_function_perl);
11278
11279 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
11280 AV* array=(AV*)SvRV(ST(0));
11281 SV ** p_function = 0;
11282 if (av_len(array)<0) {
11283 croak("Math::GSL : $func is an empty array!");
11284 }
11285 if (av_len(array)>1) {
11286 croak("Math::GSL : $func is an array with more than 2 elements!");
11287 }
11288 p_function = av_fetch(array, 0, 0);
11289 function = *p_function;
11290 if (av_len(array)>0) {
11291 SV ** p_params = 0;
11292 p_params = av_fetch(array, 1, 0);
11293 params = *p_params;
11294 }
11295 } else {
11296 function = ST(0);
11297 }
11298
11299 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
11300 croak("Math::GSL : $func is not a reference to code!");
11301 }
11302
11303 function = newSVsv(function);
11304
11305 if (! params) {
11306 params=&PL_sv_undef;
11307 }
11308 params = newSVsv(params);
11309
11310 w_gsl_function->params = params;
11311 w_gsl_function->function = function;
11312 w_gsl_function->C_gsl_function.params = w_gsl_function;
11313 w_gsl_function->C_gsl_function.function = &call_gsl_function;
11314
11315 arg1 = &(w_gsl_function->C_gsl_function);
11316 }
11317 res3 = SWIG_ConvertPtr(ST(1), &argp3,SWIGTYPE_p_gsl_integration_fixed_workspace, 0 | 0 );
11318 if (!SWIG_IsOK(res3)) {
11319 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_integration_fixed" "', argument " "3"" of type '" "gsl_integration_fixed_workspace const *""'");
11320 }
11321 arg3 = (gsl_integration_fixed_workspace *)(argp3);
11322 result = (int)gsl_integration_fixed((struct gsl_function_struct const *)arg1,arg2,(gsl_integration_fixed_workspace const *)arg3);
11323 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11324 if (SWIG_IsTmpObj(res2)) {
11325 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg2)); argvi++ ;
11326 } else {
11327 int new_flags = SWIG_IsNewObj(res2) ? (SWIG_POINTER_OWN | 0) : 0;
11328 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg2), SWIGTYPE_p_double, new_flags); argvi++ ;
11329 }
11330 {
11331 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
11332 gsl_function_perl_free(p);
11333 }
11334
11335
11336 XSRETURN(argvi);
11337 fail:
11338 {
11339 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
11340 gsl_function_perl_free(p);
11341 }
11342
11343
11344 SWIG_croak_null();
11345 }
11346 }
11347
11348
XS(_wrap_gsl_function_struct_function_set)11349 XS(_wrap_gsl_function_struct_function_set) {
11350 {
11351 struct gsl_function_struct *arg1 = (struct gsl_function_struct *) 0 ;
11352 double (*arg2)(double,void *) = (double (*)(double,void *)) 0 ;
11353 void *argp1 = 0 ;
11354 int res1 = 0 ;
11355 int argvi = 0;
11356 dXSARGS;
11357
11358 if ((items < 2) || (items > 2)) {
11359 SWIG_croak("Usage: gsl_function_struct_function_set(self,function);");
11360 }
11361 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_struct, 0 | 0 );
11362 if (!SWIG_IsOK(res1)) {
11363 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_struct_function_set" "', argument " "1"" of type '" "struct gsl_function_struct *""'");
11364 }
11365 arg1 = (struct gsl_function_struct *)(argp1);
11366 {
11367 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_double_p_void__double);
11368 if (!SWIG_IsOK(res)) {
11369 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_function_struct_function_set" "', argument " "2"" of type '" "double (*)(double,void *)""'");
11370 }
11371 }
11372 if (arg1) (arg1)->function = arg2;
11373 ST(argvi) = &PL_sv_undef;
11374
11375
11376 XSRETURN(argvi);
11377 fail:
11378
11379
11380 SWIG_croak_null();
11381 }
11382 }
11383
11384
XS(_wrap_gsl_function_struct_function_get)11385 XS(_wrap_gsl_function_struct_function_get) {
11386 {
11387 struct gsl_function_struct *arg1 = (struct gsl_function_struct *) 0 ;
11388 void *argp1 = 0 ;
11389 int res1 = 0 ;
11390 int argvi = 0;
11391 double (*result)(double,void *) = 0 ;
11392 dXSARGS;
11393
11394 if ((items < 1) || (items > 1)) {
11395 SWIG_croak("Usage: gsl_function_struct_function_get(self);");
11396 }
11397 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_struct, 0 | 0 );
11398 if (!SWIG_IsOK(res1)) {
11399 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_struct_function_get" "', argument " "1"" of type '" "struct gsl_function_struct *""'");
11400 }
11401 arg1 = (struct gsl_function_struct *)(argp1);
11402 result = (double (*)(double,void *)) ((arg1)->function);
11403 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_double_p_void__double); argvi++ ;
11404
11405 XSRETURN(argvi);
11406 fail:
11407
11408 SWIG_croak_null();
11409 }
11410 }
11411
11412
XS(_wrap_gsl_function_struct_params_set)11413 XS(_wrap_gsl_function_struct_params_set) {
11414 {
11415 struct gsl_function_struct *arg1 = (struct gsl_function_struct *) 0 ;
11416 void *arg2 = (void *) 0 ;
11417 void *argp1 = 0 ;
11418 int res1 = 0 ;
11419 int res2 ;
11420 int argvi = 0;
11421 dXSARGS;
11422
11423 if ((items < 2) || (items > 2)) {
11424 SWIG_croak("Usage: gsl_function_struct_params_set(self,params);");
11425 }
11426 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_struct, 0 | 0 );
11427 if (!SWIG_IsOK(res1)) {
11428 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_struct_params_set" "', argument " "1"" of type '" "struct gsl_function_struct *""'");
11429 }
11430 arg1 = (struct gsl_function_struct *)(argp1);
11431 res2 = SWIG_ConvertPtr(ST(1),SWIG_as_voidptrptr(&arg2), 0, SWIG_POINTER_DISOWN);
11432 if (!SWIG_IsOK(res2)) {
11433 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_function_struct_params_set" "', argument " "2"" of type '" "void *""'");
11434 }
11435 if (arg1) (arg1)->params = arg2;
11436 ST(argvi) = &PL_sv_undef;
11437
11438
11439 XSRETURN(argvi);
11440 fail:
11441
11442
11443 SWIG_croak_null();
11444 }
11445 }
11446
11447
XS(_wrap_gsl_function_struct_params_get)11448 XS(_wrap_gsl_function_struct_params_get) {
11449 {
11450 struct gsl_function_struct *arg1 = (struct gsl_function_struct *) 0 ;
11451 void *argp1 = 0 ;
11452 int res1 = 0 ;
11453 int argvi = 0;
11454 void *result = 0 ;
11455 dXSARGS;
11456
11457 if ((items < 1) || (items > 1)) {
11458 SWIG_croak("Usage: gsl_function_struct_params_get(self);");
11459 }
11460 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_struct, 0 | 0 );
11461 if (!SWIG_IsOK(res1)) {
11462 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_struct_params_get" "', argument " "1"" of type '" "struct gsl_function_struct *""'");
11463 }
11464 arg1 = (struct gsl_function_struct *)(argp1);
11465 result = (void *) ((arg1)->params);
11466 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_void, 0 | 0); argvi++ ;
11467
11468 XSRETURN(argvi);
11469 fail:
11470
11471 SWIG_croak_null();
11472 }
11473 }
11474
11475
XS(_wrap_new_gsl_function_struct)11476 XS(_wrap_new_gsl_function_struct) {
11477 {
11478 int argvi = 0;
11479 struct gsl_function_struct *result = 0 ;
11480 dXSARGS;
11481
11482 if ((items < 0) || (items > 0)) {
11483 SWIG_croak("Usage: new_gsl_function_struct();");
11484 }
11485 result = (struct gsl_function_struct *)calloc(1, sizeof(struct gsl_function_struct));
11486 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_function_struct, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
11487 XSRETURN(argvi);
11488 fail:
11489 SWIG_croak_null();
11490 }
11491 }
11492
11493
XS(_wrap_delete_gsl_function_struct)11494 XS(_wrap_delete_gsl_function_struct) {
11495 {
11496 struct gsl_function_struct *arg1 = (struct gsl_function_struct *) 0 ;
11497 void *argp1 = 0 ;
11498 int res1 = 0 ;
11499 int argvi = 0;
11500 dXSARGS;
11501
11502 if ((items < 1) || (items > 1)) {
11503 SWIG_croak("Usage: delete_gsl_function_struct(self);");
11504 }
11505 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_struct, SWIG_POINTER_DISOWN | 0 );
11506 if (!SWIG_IsOK(res1)) {
11507 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_function_struct" "', argument " "1"" of type '" "struct gsl_function_struct *""'");
11508 }
11509 arg1 = (struct gsl_function_struct *)(argp1);
11510 free((char *) arg1);
11511 ST(argvi) = &PL_sv_undef;
11512
11513 XSRETURN(argvi);
11514 fail:
11515
11516 SWIG_croak_null();
11517 }
11518 }
11519
11520
XS(_wrap_gsl_function_fdf_struct_f_set)11521 XS(_wrap_gsl_function_fdf_struct_f_set) {
11522 {
11523 struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
11524 double (*arg2)(double,void *) = (double (*)(double,void *)) 0 ;
11525 void *argp1 = 0 ;
11526 int res1 = 0 ;
11527 int argvi = 0;
11528 dXSARGS;
11529
11530 if ((items < 2) || (items > 2)) {
11531 SWIG_croak("Usage: gsl_function_fdf_struct_f_set(self,f);");
11532 }
11533 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, 0 | 0 );
11534 if (!SWIG_IsOK(res1)) {
11535 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_fdf_struct_f_set" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
11536 }
11537 arg1 = (struct gsl_function_fdf_struct *)(argp1);
11538 {
11539 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_double_p_void__double);
11540 if (!SWIG_IsOK(res)) {
11541 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_function_fdf_struct_f_set" "', argument " "2"" of type '" "double (*)(double,void *)""'");
11542 }
11543 }
11544 if (arg1) (arg1)->f = arg2;
11545 ST(argvi) = &PL_sv_undef;
11546
11547
11548 XSRETURN(argvi);
11549 fail:
11550
11551
11552 SWIG_croak_null();
11553 }
11554 }
11555
11556
XS(_wrap_gsl_function_fdf_struct_f_get)11557 XS(_wrap_gsl_function_fdf_struct_f_get) {
11558 {
11559 struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
11560 void *argp1 = 0 ;
11561 int res1 = 0 ;
11562 int argvi = 0;
11563 double (*result)(double,void *) = 0 ;
11564 dXSARGS;
11565
11566 if ((items < 1) || (items > 1)) {
11567 SWIG_croak("Usage: gsl_function_fdf_struct_f_get(self);");
11568 }
11569 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, 0 | 0 );
11570 if (!SWIG_IsOK(res1)) {
11571 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_fdf_struct_f_get" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
11572 }
11573 arg1 = (struct gsl_function_fdf_struct *)(argp1);
11574 result = (double (*)(double,void *)) ((arg1)->f);
11575 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_double_p_void__double); argvi++ ;
11576
11577 XSRETURN(argvi);
11578 fail:
11579
11580 SWIG_croak_null();
11581 }
11582 }
11583
11584
XS(_wrap_gsl_function_fdf_struct_df_set)11585 XS(_wrap_gsl_function_fdf_struct_df_set) {
11586 {
11587 struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
11588 double (*arg2)(double,void *) = (double (*)(double,void *)) 0 ;
11589 void *argp1 = 0 ;
11590 int res1 = 0 ;
11591 int argvi = 0;
11592 dXSARGS;
11593
11594 if ((items < 2) || (items > 2)) {
11595 SWIG_croak("Usage: gsl_function_fdf_struct_df_set(self,df);");
11596 }
11597 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, 0 | 0 );
11598 if (!SWIG_IsOK(res1)) {
11599 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_fdf_struct_df_set" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
11600 }
11601 arg1 = (struct gsl_function_fdf_struct *)(argp1);
11602 {
11603 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_double_p_void__double);
11604 if (!SWIG_IsOK(res)) {
11605 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_function_fdf_struct_df_set" "', argument " "2"" of type '" "double (*)(double,void *)""'");
11606 }
11607 }
11608 if (arg1) (arg1)->df = arg2;
11609 ST(argvi) = &PL_sv_undef;
11610
11611
11612 XSRETURN(argvi);
11613 fail:
11614
11615
11616 SWIG_croak_null();
11617 }
11618 }
11619
11620
XS(_wrap_gsl_function_fdf_struct_df_get)11621 XS(_wrap_gsl_function_fdf_struct_df_get) {
11622 {
11623 struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
11624 void *argp1 = 0 ;
11625 int res1 = 0 ;
11626 int argvi = 0;
11627 double (*result)(double,void *) = 0 ;
11628 dXSARGS;
11629
11630 if ((items < 1) || (items > 1)) {
11631 SWIG_croak("Usage: gsl_function_fdf_struct_df_get(self);");
11632 }
11633 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, 0 | 0 );
11634 if (!SWIG_IsOK(res1)) {
11635 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_fdf_struct_df_get" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
11636 }
11637 arg1 = (struct gsl_function_fdf_struct *)(argp1);
11638 result = (double (*)(double,void *)) ((arg1)->df);
11639 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_double_p_void__double); argvi++ ;
11640
11641 XSRETURN(argvi);
11642 fail:
11643
11644 SWIG_croak_null();
11645 }
11646 }
11647
11648
XS(_wrap_gsl_function_fdf_struct_fdf_set)11649 XS(_wrap_gsl_function_fdf_struct_fdf_set) {
11650 {
11651 struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
11652 void (*arg2)(double,void *,double *,double *) = (void (*)(double,void *,double *,double *)) 0 ;
11653 void *argp1 = 0 ;
11654 int res1 = 0 ;
11655 int argvi = 0;
11656 dXSARGS;
11657
11658 if ((items < 2) || (items > 2)) {
11659 SWIG_croak("Usage: gsl_function_fdf_struct_fdf_set(self,fdf);");
11660 }
11661 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, 0 | 0 );
11662 if (!SWIG_IsOK(res1)) {
11663 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_fdf_struct_fdf_set" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
11664 }
11665 arg1 = (struct gsl_function_fdf_struct *)(argp1);
11666 {
11667 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_double_p_void_p_double_p_double__void);
11668 if (!SWIG_IsOK(res)) {
11669 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_function_fdf_struct_fdf_set" "', argument " "2"" of type '" "void (*)(double,void *,double *,double *)""'");
11670 }
11671 }
11672 if (arg1) (arg1)->fdf = arg2;
11673 ST(argvi) = &PL_sv_undef;
11674
11675
11676 XSRETURN(argvi);
11677 fail:
11678
11679
11680 SWIG_croak_null();
11681 }
11682 }
11683
11684
XS(_wrap_gsl_function_fdf_struct_fdf_get)11685 XS(_wrap_gsl_function_fdf_struct_fdf_get) {
11686 {
11687 struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
11688 void *argp1 = 0 ;
11689 int res1 = 0 ;
11690 int argvi = 0;
11691 void (*result)(double,void *,double *,double *) = 0 ;
11692 dXSARGS;
11693
11694 if ((items < 1) || (items > 1)) {
11695 SWIG_croak("Usage: gsl_function_fdf_struct_fdf_get(self);");
11696 }
11697 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, 0 | 0 );
11698 if (!SWIG_IsOK(res1)) {
11699 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_fdf_struct_fdf_get" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
11700 }
11701 arg1 = (struct gsl_function_fdf_struct *)(argp1);
11702 result = (void (*)(double,void *,double *,double *)) ((arg1)->fdf);
11703 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_double_p_void_p_double_p_double__void); argvi++ ;
11704
11705 XSRETURN(argvi);
11706 fail:
11707
11708 SWIG_croak_null();
11709 }
11710 }
11711
11712
XS(_wrap_gsl_function_fdf_struct_params_set)11713 XS(_wrap_gsl_function_fdf_struct_params_set) {
11714 {
11715 struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
11716 void *arg2 = (void *) 0 ;
11717 void *argp1 = 0 ;
11718 int res1 = 0 ;
11719 int res2 ;
11720 int argvi = 0;
11721 dXSARGS;
11722
11723 if ((items < 2) || (items > 2)) {
11724 SWIG_croak("Usage: gsl_function_fdf_struct_params_set(self,params);");
11725 }
11726 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, 0 | 0 );
11727 if (!SWIG_IsOK(res1)) {
11728 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_fdf_struct_params_set" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
11729 }
11730 arg1 = (struct gsl_function_fdf_struct *)(argp1);
11731 res2 = SWIG_ConvertPtr(ST(1),SWIG_as_voidptrptr(&arg2), 0, SWIG_POINTER_DISOWN);
11732 if (!SWIG_IsOK(res2)) {
11733 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_function_fdf_struct_params_set" "', argument " "2"" of type '" "void *""'");
11734 }
11735 if (arg1) (arg1)->params = arg2;
11736 ST(argvi) = &PL_sv_undef;
11737
11738
11739 XSRETURN(argvi);
11740 fail:
11741
11742
11743 SWIG_croak_null();
11744 }
11745 }
11746
11747
XS(_wrap_gsl_function_fdf_struct_params_get)11748 XS(_wrap_gsl_function_fdf_struct_params_get) {
11749 {
11750 struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
11751 void *argp1 = 0 ;
11752 int res1 = 0 ;
11753 int argvi = 0;
11754 void *result = 0 ;
11755 dXSARGS;
11756
11757 if ((items < 1) || (items > 1)) {
11758 SWIG_croak("Usage: gsl_function_fdf_struct_params_get(self);");
11759 }
11760 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, 0 | 0 );
11761 if (!SWIG_IsOK(res1)) {
11762 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_fdf_struct_params_get" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
11763 }
11764 arg1 = (struct gsl_function_fdf_struct *)(argp1);
11765 result = (void *) ((arg1)->params);
11766 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_void, 0 | 0); argvi++ ;
11767
11768 XSRETURN(argvi);
11769 fail:
11770
11771 SWIG_croak_null();
11772 }
11773 }
11774
11775
XS(_wrap_new_gsl_function_fdf_struct)11776 XS(_wrap_new_gsl_function_fdf_struct) {
11777 {
11778 int argvi = 0;
11779 struct gsl_function_fdf_struct *result = 0 ;
11780 dXSARGS;
11781
11782 if ((items < 0) || (items > 0)) {
11783 SWIG_croak("Usage: new_gsl_function_fdf_struct();");
11784 }
11785 result = (struct gsl_function_fdf_struct *)calloc(1, sizeof(struct gsl_function_fdf_struct));
11786 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_function_fdf_struct, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
11787 XSRETURN(argvi);
11788 fail:
11789 SWIG_croak_null();
11790 }
11791 }
11792
11793
XS(_wrap_delete_gsl_function_fdf_struct)11794 XS(_wrap_delete_gsl_function_fdf_struct) {
11795 {
11796 struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
11797 void *argp1 = 0 ;
11798 int res1 = 0 ;
11799 int argvi = 0;
11800 dXSARGS;
11801
11802 if ((items < 1) || (items > 1)) {
11803 SWIG_croak("Usage: delete_gsl_function_fdf_struct(self);");
11804 }
11805 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, SWIG_POINTER_DISOWN | 0 );
11806 if (!SWIG_IsOK(res1)) {
11807 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_function_fdf_struct" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
11808 }
11809 arg1 = (struct gsl_function_fdf_struct *)(argp1);
11810 free((char *) arg1);
11811 ST(argvi) = &PL_sv_undef;
11812
11813 XSRETURN(argvi);
11814 fail:
11815
11816 SWIG_croak_null();
11817 }
11818 }
11819
11820
XS(_wrap_gsl_function_vec_struct_function_set)11821 XS(_wrap_gsl_function_vec_struct_function_set) {
11822 {
11823 struct gsl_function_vec_struct *arg1 = (struct gsl_function_vec_struct *) 0 ;
11824 int (*arg2)(double,double [],void *) = (int (*)(double,double [],void *)) 0 ;
11825 void *argp1 = 0 ;
11826 int res1 = 0 ;
11827 int argvi = 0;
11828 dXSARGS;
11829
11830 if ((items < 2) || (items > 2)) {
11831 SWIG_croak("Usage: gsl_function_vec_struct_function_set(self,function);");
11832 }
11833 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_vec_struct, 0 | 0 );
11834 if (!SWIG_IsOK(res1)) {
11835 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_vec_struct_function_set" "', argument " "1"" of type '" "struct gsl_function_vec_struct *""'");
11836 }
11837 arg1 = (struct gsl_function_vec_struct *)(argp1);
11838 {
11839 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_double_a___double_p_void__int);
11840 if (!SWIG_IsOK(res)) {
11841 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_function_vec_struct_function_set" "', argument " "2"" of type '" "int (*)(double,double [],void *)""'");
11842 }
11843 }
11844 if (arg1) (arg1)->function = arg2;
11845 ST(argvi) = &PL_sv_undef;
11846
11847
11848 XSRETURN(argvi);
11849 fail:
11850
11851
11852 SWIG_croak_null();
11853 }
11854 }
11855
11856
XS(_wrap_gsl_function_vec_struct_function_get)11857 XS(_wrap_gsl_function_vec_struct_function_get) {
11858 {
11859 struct gsl_function_vec_struct *arg1 = (struct gsl_function_vec_struct *) 0 ;
11860 void *argp1 = 0 ;
11861 int res1 = 0 ;
11862 int argvi = 0;
11863 int (*result)(double,double [],void *) = 0 ;
11864 dXSARGS;
11865
11866 if ((items < 1) || (items > 1)) {
11867 SWIG_croak("Usage: gsl_function_vec_struct_function_get(self);");
11868 }
11869 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_vec_struct, 0 | 0 );
11870 if (!SWIG_IsOK(res1)) {
11871 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_vec_struct_function_get" "', argument " "1"" of type '" "struct gsl_function_vec_struct *""'");
11872 }
11873 arg1 = (struct gsl_function_vec_struct *)(argp1);
11874 result = (int (*)(double,double [],void *)) ((arg1)->function);
11875 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_double_a___double_p_void__int); argvi++ ;
11876
11877 XSRETURN(argvi);
11878 fail:
11879
11880 SWIG_croak_null();
11881 }
11882 }
11883
11884
XS(_wrap_gsl_function_vec_struct_params_set)11885 XS(_wrap_gsl_function_vec_struct_params_set) {
11886 {
11887 struct gsl_function_vec_struct *arg1 = (struct gsl_function_vec_struct *) 0 ;
11888 void *arg2 = (void *) 0 ;
11889 void *argp1 = 0 ;
11890 int res1 = 0 ;
11891 int res2 ;
11892 int argvi = 0;
11893 dXSARGS;
11894
11895 if ((items < 2) || (items > 2)) {
11896 SWIG_croak("Usage: gsl_function_vec_struct_params_set(self,params);");
11897 }
11898 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_vec_struct, 0 | 0 );
11899 if (!SWIG_IsOK(res1)) {
11900 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_vec_struct_params_set" "', argument " "1"" of type '" "struct gsl_function_vec_struct *""'");
11901 }
11902 arg1 = (struct gsl_function_vec_struct *)(argp1);
11903 res2 = SWIG_ConvertPtr(ST(1),SWIG_as_voidptrptr(&arg2), 0, SWIG_POINTER_DISOWN);
11904 if (!SWIG_IsOK(res2)) {
11905 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_function_vec_struct_params_set" "', argument " "2"" of type '" "void *""'");
11906 }
11907 if (arg1) (arg1)->params = arg2;
11908 ST(argvi) = &PL_sv_undef;
11909
11910
11911 XSRETURN(argvi);
11912 fail:
11913
11914
11915 SWIG_croak_null();
11916 }
11917 }
11918
11919
XS(_wrap_gsl_function_vec_struct_params_get)11920 XS(_wrap_gsl_function_vec_struct_params_get) {
11921 {
11922 struct gsl_function_vec_struct *arg1 = (struct gsl_function_vec_struct *) 0 ;
11923 void *argp1 = 0 ;
11924 int res1 = 0 ;
11925 int argvi = 0;
11926 void *result = 0 ;
11927 dXSARGS;
11928
11929 if ((items < 1) || (items > 1)) {
11930 SWIG_croak("Usage: gsl_function_vec_struct_params_get(self);");
11931 }
11932 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_vec_struct, 0 | 0 );
11933 if (!SWIG_IsOK(res1)) {
11934 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_vec_struct_params_get" "', argument " "1"" of type '" "struct gsl_function_vec_struct *""'");
11935 }
11936 arg1 = (struct gsl_function_vec_struct *)(argp1);
11937 result = (void *) ((arg1)->params);
11938 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_void, 0 | 0); argvi++ ;
11939
11940 XSRETURN(argvi);
11941 fail:
11942
11943 SWIG_croak_null();
11944 }
11945 }
11946
11947
XS(_wrap_new_gsl_function_vec_struct)11948 XS(_wrap_new_gsl_function_vec_struct) {
11949 {
11950 int argvi = 0;
11951 struct gsl_function_vec_struct *result = 0 ;
11952 dXSARGS;
11953
11954 if ((items < 0) || (items > 0)) {
11955 SWIG_croak("Usage: new_gsl_function_vec_struct();");
11956 }
11957 result = (struct gsl_function_vec_struct *)calloc(1, sizeof(struct gsl_function_vec_struct));
11958 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_function_vec_struct, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
11959 XSRETURN(argvi);
11960 fail:
11961 SWIG_croak_null();
11962 }
11963 }
11964
11965
XS(_wrap_delete_gsl_function_vec_struct)11966 XS(_wrap_delete_gsl_function_vec_struct) {
11967 {
11968 struct gsl_function_vec_struct *arg1 = (struct gsl_function_vec_struct *) 0 ;
11969 void *argp1 = 0 ;
11970 int res1 = 0 ;
11971 int argvi = 0;
11972 dXSARGS;
11973
11974 if ((items < 1) || (items > 1)) {
11975 SWIG_croak("Usage: delete_gsl_function_vec_struct(self);");
11976 }
11977 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_vec_struct, SWIG_POINTER_DISOWN | 0 );
11978 if (!SWIG_IsOK(res1)) {
11979 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_function_vec_struct" "', argument " "1"" of type '" "struct gsl_function_vec_struct *""'");
11980 }
11981 arg1 = (struct gsl_function_vec_struct *)(argp1);
11982 free((char *) arg1);
11983 ST(argvi) = &PL_sv_undef;
11984
11985 XSRETURN(argvi);
11986 fail:
11987
11988 SWIG_croak_null();
11989 }
11990 }
11991
11992
11993
11994 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (BEGIN) -------- */
11995
11996 static swig_type_info _swigt__p_FILE = {"_p_FILE", "FILE *", 0, 0, (void*)0, 0};
11997 static swig_type_info _swigt__p_char = {"_p_char", "char *", 0, 0, (void*)0, 0};
11998 static swig_type_info _swigt__p_double = {"_p_double", "double *", 0, 0, (void*)0, 0};
11999 static swig_type_info _swigt__p_f_double_a___double_p_void__int = {"_p_f_double_a___double_p_void__int", "int (*)(double,double [],void *)", 0, 0, (void*)0, 0};
12000 static swig_type_info _swigt__p_f_double_p_void__double = {"_p_f_double_p_void__double", "double (*)(double,void *)", 0, 0, (void*)0, 0};
12001 static swig_type_info _swigt__p_f_double_p_void_p_double_p_double__void = {"_p_f_double_p_void_p_double_p_double__void", "void (*)(double,void *,double *,double *)", 0, 0, (void*)0, 0};
12002 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};
12003 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};
12004 static swig_type_info _swigt__p_f_p_q_const__struct_gsl_function_struct_double_double_p_double_p_double_p_double_p_double__void = {"_p_f_p_q_const__struct_gsl_function_struct_double_double_p_double_p_double_p_double_p_double__void", "void (*)(struct gsl_function_struct const *,double,double,double *,double *,double *,double *)|gsl_integration_rule *", 0, 0, (void*)0, 0};
12005 static swig_type_info _swigt__p_f_q_const__size_t_p_double_p_double_p_gsl_integration_fixed_params__int = {"_p_f_q_const__size_t_p_double_p_double_p_gsl_integration_fixed_params__int", "int (*)(size_t const,double *,double *,gsl_integration_fixed_params *)", 0, 0, (void*)0, 0};
12006 static swig_type_info _swigt__p_f_q_const__size_t_p_q_const__gsl_integration_fixed_params__int = {"_p_f_q_const__size_t_p_q_const__gsl_integration_fixed_params__int", "int (*)(size_t const,gsl_integration_fixed_params const *)", 0, 0, (void*)0, 0};
12007 static swig_type_info _swigt__p_gsl_function_fdf_struct = {"_p_gsl_function_fdf_struct", "struct gsl_function_fdf_struct *|gsl_function_fdf_struct *|gsl_function_fdf *", 0, 0, (void*)"Math::GSL::Integration::gsl_function_fdf_struct", 0};
12008 static swig_type_info _swigt__p_gsl_function_struct = {"_p_gsl_function_struct", "gsl_function *|struct gsl_function_struct *|gsl_function_struct *", 0, 0, (void*)"Math::GSL::Integration::gsl_function_struct", 0};
12009 static swig_type_info _swigt__p_gsl_function_vec_struct = {"_p_gsl_function_vec_struct", "gsl_function_vec *|struct gsl_function_vec_struct *|gsl_function_vec_struct *", 0, 0, (void*)"Math::GSL::Integration::gsl_function_vec_struct", 0};
12010 static swig_type_info _swigt__p_gsl_integration_cquad_ival = {"_p_gsl_integration_cquad_ival", "gsl_integration_cquad_ival *", 0, 0, (void*)"Math::GSL::Integration::gsl_integration_cquad_ival", 0};
12011 static swig_type_info _swigt__p_gsl_integration_cquad_workspace = {"_p_gsl_integration_cquad_workspace", "gsl_integration_cquad_workspace *", 0, 0, (void*)"Math::GSL::Integration::gsl_integration_cquad_workspace", 0};
12012 static swig_type_info _swigt__p_gsl_integration_fixed_params = {"_p_gsl_integration_fixed_params", "gsl_integration_fixed_params *", 0, 0, (void*)"Math::GSL::Integration::gsl_integration_fixed_params", 0};
12013 static swig_type_info _swigt__p_gsl_integration_fixed_type = {"_p_gsl_integration_fixed_type", "gsl_integration_fixed_type *", 0, 0, (void*)"Math::GSL::Integration::gsl_integration_fixed_type", 0};
12014 static swig_type_info _swigt__p_gsl_integration_fixed_workspace = {"_p_gsl_integration_fixed_workspace", "gsl_integration_fixed_workspace *", 0, 0, (void*)"Math::GSL::Integration::gsl_integration_fixed_workspace", 0};
12015 static swig_type_info _swigt__p_gsl_integration_glfixed_table = {"_p_gsl_integration_glfixed_table", "gsl_integration_glfixed_table *", 0, 0, (void*)"Math::GSL::Integration::gsl_integration_glfixed_table", 0};
12016 static swig_type_info _swigt__p_gsl_integration_qawo_table = {"_p_gsl_integration_qawo_table", "gsl_integration_qawo_table *", 0, 0, (void*)"Math::GSL::Integration::gsl_integration_qawo_table", 0};
12017 static swig_type_info _swigt__p_gsl_integration_qaws_table = {"_p_gsl_integration_qaws_table", "gsl_integration_qaws_table *", 0, 0, (void*)"Math::GSL::Integration::gsl_integration_qaws_table", 0};
12018 static swig_type_info _swigt__p_gsl_integration_romberg_workspace = {"_p_gsl_integration_romberg_workspace", "gsl_integration_romberg_workspace *", 0, 0, (void*)"Math::GSL::Integration::gsl_integration_romberg_workspace", 0};
12019 static swig_type_info _swigt__p_gsl_integration_workspace = {"_p_gsl_integration_workspace", "gsl_integration_workspace *", 0, 0, (void*)"Math::GSL::Integration::gsl_integration_workspace", 0};
12020 static swig_type_info _swigt__p_size_t = {"_p_size_t", "size_t *", 0, 0, (void*)0, 0};
12021 static swig_type_info _swigt__p_void = {"_p_void", "void *", 0, 0, (void*)0, 0};
12022
12023 static swig_type_info *swig_type_initial[] = {
12024 &_swigt__p_FILE,
12025 &_swigt__p_char,
12026 &_swigt__p_double,
12027 &_swigt__p_f_double_a___double_p_void__int,
12028 &_swigt__p_f_double_p_void__double,
12029 &_swigt__p_f_double_p_void_p_double_p_double__void,
12030 &_swigt__p_f_p_q_const__char_p_q_const__char_int_int__void,
12031 &_swigt__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void,
12032 &_swigt__p_f_p_q_const__struct_gsl_function_struct_double_double_p_double_p_double_p_double_p_double__void,
12033 &_swigt__p_f_q_const__size_t_p_double_p_double_p_gsl_integration_fixed_params__int,
12034 &_swigt__p_f_q_const__size_t_p_q_const__gsl_integration_fixed_params__int,
12035 &_swigt__p_gsl_function_fdf_struct,
12036 &_swigt__p_gsl_function_struct,
12037 &_swigt__p_gsl_function_vec_struct,
12038 &_swigt__p_gsl_integration_cquad_ival,
12039 &_swigt__p_gsl_integration_cquad_workspace,
12040 &_swigt__p_gsl_integration_fixed_params,
12041 &_swigt__p_gsl_integration_fixed_type,
12042 &_swigt__p_gsl_integration_fixed_workspace,
12043 &_swigt__p_gsl_integration_glfixed_table,
12044 &_swigt__p_gsl_integration_qawo_table,
12045 &_swigt__p_gsl_integration_qaws_table,
12046 &_swigt__p_gsl_integration_romberg_workspace,
12047 &_swigt__p_gsl_integration_workspace,
12048 &_swigt__p_size_t,
12049 &_swigt__p_void,
12050 };
12051
12052 static swig_cast_info _swigc__p_FILE[] = { {&_swigt__p_FILE, 0, 0, 0},{0, 0, 0, 0}};
12053 static swig_cast_info _swigc__p_char[] = { {&_swigt__p_char, 0, 0, 0},{0, 0, 0, 0}};
12054 static swig_cast_info _swigc__p_double[] = { {&_swigt__p_double, 0, 0, 0},{0, 0, 0, 0}};
12055 static swig_cast_info _swigc__p_f_double_a___double_p_void__int[] = { {&_swigt__p_f_double_a___double_p_void__int, 0, 0, 0},{0, 0, 0, 0}};
12056 static swig_cast_info _swigc__p_f_double_p_void__double[] = { {&_swigt__p_f_double_p_void__double, 0, 0, 0},{0, 0, 0, 0}};
12057 static swig_cast_info _swigc__p_f_double_p_void_p_double_p_double__void[] = { {&_swigt__p_f_double_p_void_p_double_p_double__void, 0, 0, 0},{0, 0, 0, 0}};
12058 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}};
12059 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}};
12060 static swig_cast_info _swigc__p_f_p_q_const__struct_gsl_function_struct_double_double_p_double_p_double_p_double_p_double__void[] = { {&_swigt__p_f_p_q_const__struct_gsl_function_struct_double_double_p_double_p_double_p_double_p_double__void, 0, 0, 0},{0, 0, 0, 0}};
12061 static swig_cast_info _swigc__p_f_q_const__size_t_p_double_p_double_p_gsl_integration_fixed_params__int[] = { {&_swigt__p_f_q_const__size_t_p_double_p_double_p_gsl_integration_fixed_params__int, 0, 0, 0},{0, 0, 0, 0}};
12062 static swig_cast_info _swigc__p_f_q_const__size_t_p_q_const__gsl_integration_fixed_params__int[] = { {&_swigt__p_f_q_const__size_t_p_q_const__gsl_integration_fixed_params__int, 0, 0, 0},{0, 0, 0, 0}};
12063 static swig_cast_info _swigc__p_gsl_function_fdf_struct[] = { {&_swigt__p_gsl_function_fdf_struct, 0, 0, 0},{0, 0, 0, 0}};
12064 static swig_cast_info _swigc__p_gsl_function_struct[] = { {&_swigt__p_gsl_function_struct, 0, 0, 0},{0, 0, 0, 0}};
12065 static swig_cast_info _swigc__p_gsl_function_vec_struct[] = { {&_swigt__p_gsl_function_vec_struct, 0, 0, 0},{0, 0, 0, 0}};
12066 static swig_cast_info _swigc__p_gsl_integration_cquad_ival[] = { {&_swigt__p_gsl_integration_cquad_ival, 0, 0, 0},{0, 0, 0, 0}};
12067 static swig_cast_info _swigc__p_gsl_integration_cquad_workspace[] = { {&_swigt__p_gsl_integration_cquad_workspace, 0, 0, 0},{0, 0, 0, 0}};
12068 static swig_cast_info _swigc__p_gsl_integration_fixed_params[] = { {&_swigt__p_gsl_integration_fixed_params, 0, 0, 0},{0, 0, 0, 0}};
12069 static swig_cast_info _swigc__p_gsl_integration_fixed_type[] = { {&_swigt__p_gsl_integration_fixed_type, 0, 0, 0},{0, 0, 0, 0}};
12070 static swig_cast_info _swigc__p_gsl_integration_fixed_workspace[] = { {&_swigt__p_gsl_integration_fixed_workspace, 0, 0, 0},{0, 0, 0, 0}};
12071 static swig_cast_info _swigc__p_gsl_integration_glfixed_table[] = { {&_swigt__p_gsl_integration_glfixed_table, 0, 0, 0},{0, 0, 0, 0}};
12072 static swig_cast_info _swigc__p_gsl_integration_qawo_table[] = { {&_swigt__p_gsl_integration_qawo_table, 0, 0, 0},{0, 0, 0, 0}};
12073 static swig_cast_info _swigc__p_gsl_integration_qaws_table[] = { {&_swigt__p_gsl_integration_qaws_table, 0, 0, 0},{0, 0, 0, 0}};
12074 static swig_cast_info _swigc__p_gsl_integration_romberg_workspace[] = { {&_swigt__p_gsl_integration_romberg_workspace, 0, 0, 0},{0, 0, 0, 0}};
12075 static swig_cast_info _swigc__p_gsl_integration_workspace[] = { {&_swigt__p_gsl_integration_workspace, 0, 0, 0},{0, 0, 0, 0}};
12076 static swig_cast_info _swigc__p_size_t[] = { {&_swigt__p_size_t, 0, 0, 0},{0, 0, 0, 0}};
12077 static swig_cast_info _swigc__p_void[] = { {&_swigt__p_void, 0, 0, 0},{0, 0, 0, 0}};
12078
12079 static swig_cast_info *swig_cast_initial[] = {
12080 _swigc__p_FILE,
12081 _swigc__p_char,
12082 _swigc__p_double,
12083 _swigc__p_f_double_a___double_p_void__int,
12084 _swigc__p_f_double_p_void__double,
12085 _swigc__p_f_double_p_void_p_double_p_double__void,
12086 _swigc__p_f_p_q_const__char_p_q_const__char_int_int__void,
12087 _swigc__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void,
12088 _swigc__p_f_p_q_const__struct_gsl_function_struct_double_double_p_double_p_double_p_double_p_double__void,
12089 _swigc__p_f_q_const__size_t_p_double_p_double_p_gsl_integration_fixed_params__int,
12090 _swigc__p_f_q_const__size_t_p_q_const__gsl_integration_fixed_params__int,
12091 _swigc__p_gsl_function_fdf_struct,
12092 _swigc__p_gsl_function_struct,
12093 _swigc__p_gsl_function_vec_struct,
12094 _swigc__p_gsl_integration_cquad_ival,
12095 _swigc__p_gsl_integration_cquad_workspace,
12096 _swigc__p_gsl_integration_fixed_params,
12097 _swigc__p_gsl_integration_fixed_type,
12098 _swigc__p_gsl_integration_fixed_workspace,
12099 _swigc__p_gsl_integration_glfixed_table,
12100 _swigc__p_gsl_integration_qawo_table,
12101 _swigc__p_gsl_integration_qaws_table,
12102 _swigc__p_gsl_integration_romberg_workspace,
12103 _swigc__p_gsl_integration_workspace,
12104 _swigc__p_size_t,
12105 _swigc__p_void,
12106 };
12107
12108
12109 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (END) -------- */
12110
12111 static swig_constant_info swig_constants[] = {
12112 {0,0,0,0,0,0}
12113 };
12114 #ifdef __cplusplus
12115 }
12116 #endif
12117 static swig_variable_info swig_variables[] = {
12118 { "Math::GSL::Integrationc::gsl_integration_fixed_legendre", MAGIC_CLASS _wrap_gsl_integration_fixed_legendre_set, MAGIC_CLASS _wrap_gsl_integration_fixed_legendre_get,&SWIGTYPE_p_gsl_integration_fixed_type },
12119 { "Math::GSL::Integrationc::gsl_integration_fixed_chebyshev", MAGIC_CLASS _wrap_gsl_integration_fixed_chebyshev_set, MAGIC_CLASS _wrap_gsl_integration_fixed_chebyshev_get,&SWIGTYPE_p_gsl_integration_fixed_type },
12120 { "Math::GSL::Integrationc::gsl_integration_fixed_gegenbauer", MAGIC_CLASS _wrap_gsl_integration_fixed_gegenbauer_set, MAGIC_CLASS _wrap_gsl_integration_fixed_gegenbauer_get,&SWIGTYPE_p_gsl_integration_fixed_type },
12121 { "Math::GSL::Integrationc::gsl_integration_fixed_jacobi", MAGIC_CLASS _wrap_gsl_integration_fixed_jacobi_set, MAGIC_CLASS _wrap_gsl_integration_fixed_jacobi_get,&SWIGTYPE_p_gsl_integration_fixed_type },
12122 { "Math::GSL::Integrationc::gsl_integration_fixed_laguerre", MAGIC_CLASS _wrap_gsl_integration_fixed_laguerre_set, MAGIC_CLASS _wrap_gsl_integration_fixed_laguerre_get,&SWIGTYPE_p_gsl_integration_fixed_type },
12123 { "Math::GSL::Integrationc::gsl_integration_fixed_hermite", MAGIC_CLASS _wrap_gsl_integration_fixed_hermite_set, MAGIC_CLASS _wrap_gsl_integration_fixed_hermite_get,&SWIGTYPE_p_gsl_integration_fixed_type },
12124 { "Math::GSL::Integrationc::gsl_integration_fixed_exponential", MAGIC_CLASS _wrap_gsl_integration_fixed_exponential_set, MAGIC_CLASS _wrap_gsl_integration_fixed_exponential_get,&SWIGTYPE_p_gsl_integration_fixed_type },
12125 { "Math::GSL::Integrationc::gsl_integration_fixed_rational", MAGIC_CLASS _wrap_gsl_integration_fixed_rational_set, MAGIC_CLASS _wrap_gsl_integration_fixed_rational_get,&SWIGTYPE_p_gsl_integration_fixed_type },
12126 { "Math::GSL::Integrationc::gsl_integration_fixed_chebyshev2", MAGIC_CLASS _wrap_gsl_integration_fixed_chebyshev2_set, MAGIC_CLASS _wrap_gsl_integration_fixed_chebyshev2_get,&SWIGTYPE_p_gsl_integration_fixed_type },
12127 {0,0,0,0}
12128 };
12129 static swig_command_info swig_commands[] = {
12130 {"Math::GSL::Integrationc::gsl_error", _wrap_gsl_error},
12131 {"Math::GSL::Integrationc::gsl_stream_printf", _wrap_gsl_stream_printf},
12132 {"Math::GSL::Integrationc::gsl_strerror", _wrap_gsl_strerror},
12133 {"Math::GSL::Integrationc::gsl_set_error_handler", _wrap_gsl_set_error_handler},
12134 {"Math::GSL::Integrationc::gsl_set_error_handler_off", _wrap_gsl_set_error_handler_off},
12135 {"Math::GSL::Integrationc::gsl_set_stream_handler", _wrap_gsl_set_stream_handler},
12136 {"Math::GSL::Integrationc::gsl_set_stream", _wrap_gsl_set_stream},
12137 {"Math::GSL::Integrationc::gsl_integration_workspace_limit_set", _wrap_gsl_integration_workspace_limit_set},
12138 {"Math::GSL::Integrationc::gsl_integration_workspace_limit_get", _wrap_gsl_integration_workspace_limit_get},
12139 {"Math::GSL::Integrationc::gsl_integration_workspace_size_set", _wrap_gsl_integration_workspace_size_set},
12140 {"Math::GSL::Integrationc::gsl_integration_workspace_size_get", _wrap_gsl_integration_workspace_size_get},
12141 {"Math::GSL::Integrationc::gsl_integration_workspace_nrmax_set", _wrap_gsl_integration_workspace_nrmax_set},
12142 {"Math::GSL::Integrationc::gsl_integration_workspace_nrmax_get", _wrap_gsl_integration_workspace_nrmax_get},
12143 {"Math::GSL::Integrationc::gsl_integration_workspace_i_set", _wrap_gsl_integration_workspace_i_set},
12144 {"Math::GSL::Integrationc::gsl_integration_workspace_i_get", _wrap_gsl_integration_workspace_i_get},
12145 {"Math::GSL::Integrationc::gsl_integration_workspace_maximum_level_set", _wrap_gsl_integration_workspace_maximum_level_set},
12146 {"Math::GSL::Integrationc::gsl_integration_workspace_maximum_level_get", _wrap_gsl_integration_workspace_maximum_level_get},
12147 {"Math::GSL::Integrationc::gsl_integration_workspace_alist_set", _wrap_gsl_integration_workspace_alist_set},
12148 {"Math::GSL::Integrationc::gsl_integration_workspace_alist_get", _wrap_gsl_integration_workspace_alist_get},
12149 {"Math::GSL::Integrationc::gsl_integration_workspace_blist_set", _wrap_gsl_integration_workspace_blist_set},
12150 {"Math::GSL::Integrationc::gsl_integration_workspace_blist_get", _wrap_gsl_integration_workspace_blist_get},
12151 {"Math::GSL::Integrationc::gsl_integration_workspace_rlist_set", _wrap_gsl_integration_workspace_rlist_set},
12152 {"Math::GSL::Integrationc::gsl_integration_workspace_rlist_get", _wrap_gsl_integration_workspace_rlist_get},
12153 {"Math::GSL::Integrationc::gsl_integration_workspace_elist_set", _wrap_gsl_integration_workspace_elist_set},
12154 {"Math::GSL::Integrationc::gsl_integration_workspace_elist_get", _wrap_gsl_integration_workspace_elist_get},
12155 {"Math::GSL::Integrationc::gsl_integration_workspace_order_set", _wrap_gsl_integration_workspace_order_set},
12156 {"Math::GSL::Integrationc::gsl_integration_workspace_order_get", _wrap_gsl_integration_workspace_order_get},
12157 {"Math::GSL::Integrationc::gsl_integration_workspace_level_set", _wrap_gsl_integration_workspace_level_set},
12158 {"Math::GSL::Integrationc::gsl_integration_workspace_level_get", _wrap_gsl_integration_workspace_level_get},
12159 {"Math::GSL::Integrationc::new_gsl_integration_workspace", _wrap_new_gsl_integration_workspace},
12160 {"Math::GSL::Integrationc::delete_gsl_integration_workspace", _wrap_delete_gsl_integration_workspace},
12161 {"Math::GSL::Integrationc::gsl_integration_workspace_alloc", _wrap_gsl_integration_workspace_alloc},
12162 {"Math::GSL::Integrationc::gsl_integration_workspace_free", _wrap_gsl_integration_workspace_free},
12163 {"Math::GSL::Integrationc::gsl_integration_qaws_table_alpha_set", _wrap_gsl_integration_qaws_table_alpha_set},
12164 {"Math::GSL::Integrationc::gsl_integration_qaws_table_alpha_get", _wrap_gsl_integration_qaws_table_alpha_get},
12165 {"Math::GSL::Integrationc::gsl_integration_qaws_table_beta_set", _wrap_gsl_integration_qaws_table_beta_set},
12166 {"Math::GSL::Integrationc::gsl_integration_qaws_table_beta_get", _wrap_gsl_integration_qaws_table_beta_get},
12167 {"Math::GSL::Integrationc::gsl_integration_qaws_table_mu_set", _wrap_gsl_integration_qaws_table_mu_set},
12168 {"Math::GSL::Integrationc::gsl_integration_qaws_table_mu_get", _wrap_gsl_integration_qaws_table_mu_get},
12169 {"Math::GSL::Integrationc::gsl_integration_qaws_table_nu_set", _wrap_gsl_integration_qaws_table_nu_set},
12170 {"Math::GSL::Integrationc::gsl_integration_qaws_table_nu_get", _wrap_gsl_integration_qaws_table_nu_get},
12171 {"Math::GSL::Integrationc::gsl_integration_qaws_table_ri_set", _wrap_gsl_integration_qaws_table_ri_set},
12172 {"Math::GSL::Integrationc::gsl_integration_qaws_table_ri_get", _wrap_gsl_integration_qaws_table_ri_get},
12173 {"Math::GSL::Integrationc::gsl_integration_qaws_table_rj_set", _wrap_gsl_integration_qaws_table_rj_set},
12174 {"Math::GSL::Integrationc::gsl_integration_qaws_table_rj_get", _wrap_gsl_integration_qaws_table_rj_get},
12175 {"Math::GSL::Integrationc::gsl_integration_qaws_table_rg_set", _wrap_gsl_integration_qaws_table_rg_set},
12176 {"Math::GSL::Integrationc::gsl_integration_qaws_table_rg_get", _wrap_gsl_integration_qaws_table_rg_get},
12177 {"Math::GSL::Integrationc::gsl_integration_qaws_table_rh_set", _wrap_gsl_integration_qaws_table_rh_set},
12178 {"Math::GSL::Integrationc::gsl_integration_qaws_table_rh_get", _wrap_gsl_integration_qaws_table_rh_get},
12179 {"Math::GSL::Integrationc::new_gsl_integration_qaws_table", _wrap_new_gsl_integration_qaws_table},
12180 {"Math::GSL::Integrationc::delete_gsl_integration_qaws_table", _wrap_delete_gsl_integration_qaws_table},
12181 {"Math::GSL::Integrationc::gsl_integration_qaws_table_alloc", _wrap_gsl_integration_qaws_table_alloc},
12182 {"Math::GSL::Integrationc::gsl_integration_qaws_table_set", _wrap_gsl_integration_qaws_table_set},
12183 {"Math::GSL::Integrationc::gsl_integration_qaws_table_free", _wrap_gsl_integration_qaws_table_free},
12184 {"Math::GSL::Integrationc::gsl_integration_qawo_table_n_set", _wrap_gsl_integration_qawo_table_n_set},
12185 {"Math::GSL::Integrationc::gsl_integration_qawo_table_n_get", _wrap_gsl_integration_qawo_table_n_get},
12186 {"Math::GSL::Integrationc::gsl_integration_qawo_table_omega_set", _wrap_gsl_integration_qawo_table_omega_set},
12187 {"Math::GSL::Integrationc::gsl_integration_qawo_table_omega_get", _wrap_gsl_integration_qawo_table_omega_get},
12188 {"Math::GSL::Integrationc::gsl_integration_qawo_table_L_set", _wrap_gsl_integration_qawo_table_L_set},
12189 {"Math::GSL::Integrationc::gsl_integration_qawo_table_L_get", _wrap_gsl_integration_qawo_table_L_get},
12190 {"Math::GSL::Integrationc::gsl_integration_qawo_table_par_set", _wrap_gsl_integration_qawo_table_par_set},
12191 {"Math::GSL::Integrationc::gsl_integration_qawo_table_par_get", _wrap_gsl_integration_qawo_table_par_get},
12192 {"Math::GSL::Integrationc::gsl_integration_qawo_table_sine_set", _wrap_gsl_integration_qawo_table_sine_set},
12193 {"Math::GSL::Integrationc::gsl_integration_qawo_table_sine_get", _wrap_gsl_integration_qawo_table_sine_get},
12194 {"Math::GSL::Integrationc::gsl_integration_qawo_table_chebmo_set", _wrap_gsl_integration_qawo_table_chebmo_set},
12195 {"Math::GSL::Integrationc::gsl_integration_qawo_table_chebmo_get", _wrap_gsl_integration_qawo_table_chebmo_get},
12196 {"Math::GSL::Integrationc::new_gsl_integration_qawo_table", _wrap_new_gsl_integration_qawo_table},
12197 {"Math::GSL::Integrationc::delete_gsl_integration_qawo_table", _wrap_delete_gsl_integration_qawo_table},
12198 {"Math::GSL::Integrationc::gsl_integration_qawo_table_alloc", _wrap_gsl_integration_qawo_table_alloc},
12199 {"Math::GSL::Integrationc::gsl_integration_qawo_table_set", _wrap_gsl_integration_qawo_table_set},
12200 {"Math::GSL::Integrationc::gsl_integration_qawo_table_set_length", _wrap_gsl_integration_qawo_table_set_length},
12201 {"Math::GSL::Integrationc::gsl_integration_qawo_table_free", _wrap_gsl_integration_qawo_table_free},
12202 {"Math::GSL::Integrationc::gsl_integration_qk15", _wrap_gsl_integration_qk15},
12203 {"Math::GSL::Integrationc::gsl_integration_qk21", _wrap_gsl_integration_qk21},
12204 {"Math::GSL::Integrationc::gsl_integration_qk31", _wrap_gsl_integration_qk31},
12205 {"Math::GSL::Integrationc::gsl_integration_qk41", _wrap_gsl_integration_qk41},
12206 {"Math::GSL::Integrationc::gsl_integration_qk51", _wrap_gsl_integration_qk51},
12207 {"Math::GSL::Integrationc::gsl_integration_qk61", _wrap_gsl_integration_qk61},
12208 {"Math::GSL::Integrationc::gsl_integration_qcheb", _wrap_gsl_integration_qcheb},
12209 {"Math::GSL::Integrationc::gsl_integration_qk", _wrap_gsl_integration_qk},
12210 {"Math::GSL::Integrationc::gsl_integration_qng", _wrap_gsl_integration_qng},
12211 {"Math::GSL::Integrationc::gsl_integration_qag", _wrap_gsl_integration_qag},
12212 {"Math::GSL::Integrationc::gsl_integration_qagi", _wrap_gsl_integration_qagi},
12213 {"Math::GSL::Integrationc::gsl_integration_qagiu", _wrap_gsl_integration_qagiu},
12214 {"Math::GSL::Integrationc::gsl_integration_qagil", _wrap_gsl_integration_qagil},
12215 {"Math::GSL::Integrationc::gsl_integration_qags", _wrap_gsl_integration_qags},
12216 {"Math::GSL::Integrationc::gsl_integration_qagp", _wrap_gsl_integration_qagp},
12217 {"Math::GSL::Integrationc::gsl_integration_qawc", _wrap_gsl_integration_qawc},
12218 {"Math::GSL::Integrationc::gsl_integration_qaws", _wrap_gsl_integration_qaws},
12219 {"Math::GSL::Integrationc::gsl_integration_qawo", _wrap_gsl_integration_qawo},
12220 {"Math::GSL::Integrationc::gsl_integration_qawf", _wrap_gsl_integration_qawf},
12221 {"Math::GSL::Integrationc::gsl_integration_glfixed_table_n_set", _wrap_gsl_integration_glfixed_table_n_set},
12222 {"Math::GSL::Integrationc::gsl_integration_glfixed_table_n_get", _wrap_gsl_integration_glfixed_table_n_get},
12223 {"Math::GSL::Integrationc::gsl_integration_glfixed_table_x_set", _wrap_gsl_integration_glfixed_table_x_set},
12224 {"Math::GSL::Integrationc::gsl_integration_glfixed_table_x_get", _wrap_gsl_integration_glfixed_table_x_get},
12225 {"Math::GSL::Integrationc::gsl_integration_glfixed_table_w_set", _wrap_gsl_integration_glfixed_table_w_set},
12226 {"Math::GSL::Integrationc::gsl_integration_glfixed_table_w_get", _wrap_gsl_integration_glfixed_table_w_get},
12227 {"Math::GSL::Integrationc::gsl_integration_glfixed_table_precomputed_set", _wrap_gsl_integration_glfixed_table_precomputed_set},
12228 {"Math::GSL::Integrationc::gsl_integration_glfixed_table_precomputed_get", _wrap_gsl_integration_glfixed_table_precomputed_get},
12229 {"Math::GSL::Integrationc::new_gsl_integration_glfixed_table", _wrap_new_gsl_integration_glfixed_table},
12230 {"Math::GSL::Integrationc::delete_gsl_integration_glfixed_table", _wrap_delete_gsl_integration_glfixed_table},
12231 {"Math::GSL::Integrationc::gsl_integration_glfixed_table_alloc", _wrap_gsl_integration_glfixed_table_alloc},
12232 {"Math::GSL::Integrationc::gsl_integration_glfixed_table_free", _wrap_gsl_integration_glfixed_table_free},
12233 {"Math::GSL::Integrationc::gsl_integration_glfixed", _wrap_gsl_integration_glfixed},
12234 {"Math::GSL::Integrationc::gsl_integration_glfixed_point", _wrap_gsl_integration_glfixed_point},
12235 {"Math::GSL::Integrationc::gsl_integration_cquad_ival_a_set", _wrap_gsl_integration_cquad_ival_a_set},
12236 {"Math::GSL::Integrationc::gsl_integration_cquad_ival_a_get", _wrap_gsl_integration_cquad_ival_a_get},
12237 {"Math::GSL::Integrationc::gsl_integration_cquad_ival_b_set", _wrap_gsl_integration_cquad_ival_b_set},
12238 {"Math::GSL::Integrationc::gsl_integration_cquad_ival_b_get", _wrap_gsl_integration_cquad_ival_b_get},
12239 {"Math::GSL::Integrationc::gsl_integration_cquad_ival_c_set", _wrap_gsl_integration_cquad_ival_c_set},
12240 {"Math::GSL::Integrationc::gsl_integration_cquad_ival_c_get", _wrap_gsl_integration_cquad_ival_c_get},
12241 {"Math::GSL::Integrationc::gsl_integration_cquad_ival_fx_set", _wrap_gsl_integration_cquad_ival_fx_set},
12242 {"Math::GSL::Integrationc::gsl_integration_cquad_ival_fx_get", _wrap_gsl_integration_cquad_ival_fx_get},
12243 {"Math::GSL::Integrationc::gsl_integration_cquad_ival_igral_set", _wrap_gsl_integration_cquad_ival_igral_set},
12244 {"Math::GSL::Integrationc::gsl_integration_cquad_ival_igral_get", _wrap_gsl_integration_cquad_ival_igral_get},
12245 {"Math::GSL::Integrationc::gsl_integration_cquad_ival_err_set", _wrap_gsl_integration_cquad_ival_err_set},
12246 {"Math::GSL::Integrationc::gsl_integration_cquad_ival_err_get", _wrap_gsl_integration_cquad_ival_err_get},
12247 {"Math::GSL::Integrationc::gsl_integration_cquad_ival_depth_set", _wrap_gsl_integration_cquad_ival_depth_set},
12248 {"Math::GSL::Integrationc::gsl_integration_cquad_ival_depth_get", _wrap_gsl_integration_cquad_ival_depth_get},
12249 {"Math::GSL::Integrationc::gsl_integration_cquad_ival_rdepth_set", _wrap_gsl_integration_cquad_ival_rdepth_set},
12250 {"Math::GSL::Integrationc::gsl_integration_cquad_ival_rdepth_get", _wrap_gsl_integration_cquad_ival_rdepth_get},
12251 {"Math::GSL::Integrationc::gsl_integration_cquad_ival_ndiv_set", _wrap_gsl_integration_cquad_ival_ndiv_set},
12252 {"Math::GSL::Integrationc::gsl_integration_cquad_ival_ndiv_get", _wrap_gsl_integration_cquad_ival_ndiv_get},
12253 {"Math::GSL::Integrationc::new_gsl_integration_cquad_ival", _wrap_new_gsl_integration_cquad_ival},
12254 {"Math::GSL::Integrationc::delete_gsl_integration_cquad_ival", _wrap_delete_gsl_integration_cquad_ival},
12255 {"Math::GSL::Integrationc::gsl_integration_cquad_workspace_size_set", _wrap_gsl_integration_cquad_workspace_size_set},
12256 {"Math::GSL::Integrationc::gsl_integration_cquad_workspace_size_get", _wrap_gsl_integration_cquad_workspace_size_get},
12257 {"Math::GSL::Integrationc::gsl_integration_cquad_workspace_ivals_set", _wrap_gsl_integration_cquad_workspace_ivals_set},
12258 {"Math::GSL::Integrationc::gsl_integration_cquad_workspace_ivals_get", _wrap_gsl_integration_cquad_workspace_ivals_get},
12259 {"Math::GSL::Integrationc::gsl_integration_cquad_workspace_heap_set", _wrap_gsl_integration_cquad_workspace_heap_set},
12260 {"Math::GSL::Integrationc::gsl_integration_cquad_workspace_heap_get", _wrap_gsl_integration_cquad_workspace_heap_get},
12261 {"Math::GSL::Integrationc::new_gsl_integration_cquad_workspace", _wrap_new_gsl_integration_cquad_workspace},
12262 {"Math::GSL::Integrationc::delete_gsl_integration_cquad_workspace", _wrap_delete_gsl_integration_cquad_workspace},
12263 {"Math::GSL::Integrationc::gsl_integration_cquad_workspace_alloc", _wrap_gsl_integration_cquad_workspace_alloc},
12264 {"Math::GSL::Integrationc::gsl_integration_cquad_workspace_free", _wrap_gsl_integration_cquad_workspace_free},
12265 {"Math::GSL::Integrationc::gsl_integration_cquad", _wrap_gsl_integration_cquad},
12266 {"Math::GSL::Integrationc::gsl_integration_romberg_workspace_n_set", _wrap_gsl_integration_romberg_workspace_n_set},
12267 {"Math::GSL::Integrationc::gsl_integration_romberg_workspace_n_get", _wrap_gsl_integration_romberg_workspace_n_get},
12268 {"Math::GSL::Integrationc::gsl_integration_romberg_workspace_work1_set", _wrap_gsl_integration_romberg_workspace_work1_set},
12269 {"Math::GSL::Integrationc::gsl_integration_romberg_workspace_work1_get", _wrap_gsl_integration_romberg_workspace_work1_get},
12270 {"Math::GSL::Integrationc::gsl_integration_romberg_workspace_work2_set", _wrap_gsl_integration_romberg_workspace_work2_set},
12271 {"Math::GSL::Integrationc::gsl_integration_romberg_workspace_work2_get", _wrap_gsl_integration_romberg_workspace_work2_get},
12272 {"Math::GSL::Integrationc::new_gsl_integration_romberg_workspace", _wrap_new_gsl_integration_romberg_workspace},
12273 {"Math::GSL::Integrationc::delete_gsl_integration_romberg_workspace", _wrap_delete_gsl_integration_romberg_workspace},
12274 {"Math::GSL::Integrationc::gsl_integration_romberg_alloc", _wrap_gsl_integration_romberg_alloc},
12275 {"Math::GSL::Integrationc::gsl_integration_romberg_free", _wrap_gsl_integration_romberg_free},
12276 {"Math::GSL::Integrationc::gsl_integration_romberg", _wrap_gsl_integration_romberg},
12277 {"Math::GSL::Integrationc::gsl_integration_fixed_params_alpha_set", _wrap_gsl_integration_fixed_params_alpha_set},
12278 {"Math::GSL::Integrationc::gsl_integration_fixed_params_alpha_get", _wrap_gsl_integration_fixed_params_alpha_get},
12279 {"Math::GSL::Integrationc::gsl_integration_fixed_params_beta_set", _wrap_gsl_integration_fixed_params_beta_set},
12280 {"Math::GSL::Integrationc::gsl_integration_fixed_params_beta_get", _wrap_gsl_integration_fixed_params_beta_get},
12281 {"Math::GSL::Integrationc::gsl_integration_fixed_params_a_set", _wrap_gsl_integration_fixed_params_a_set},
12282 {"Math::GSL::Integrationc::gsl_integration_fixed_params_a_get", _wrap_gsl_integration_fixed_params_a_get},
12283 {"Math::GSL::Integrationc::gsl_integration_fixed_params_b_set", _wrap_gsl_integration_fixed_params_b_set},
12284 {"Math::GSL::Integrationc::gsl_integration_fixed_params_b_get", _wrap_gsl_integration_fixed_params_b_get},
12285 {"Math::GSL::Integrationc::gsl_integration_fixed_params_zemu_set", _wrap_gsl_integration_fixed_params_zemu_set},
12286 {"Math::GSL::Integrationc::gsl_integration_fixed_params_zemu_get", _wrap_gsl_integration_fixed_params_zemu_get},
12287 {"Math::GSL::Integrationc::gsl_integration_fixed_params_shft_set", _wrap_gsl_integration_fixed_params_shft_set},
12288 {"Math::GSL::Integrationc::gsl_integration_fixed_params_shft_get", _wrap_gsl_integration_fixed_params_shft_get},
12289 {"Math::GSL::Integrationc::gsl_integration_fixed_params_slp_set", _wrap_gsl_integration_fixed_params_slp_set},
12290 {"Math::GSL::Integrationc::gsl_integration_fixed_params_slp_get", _wrap_gsl_integration_fixed_params_slp_get},
12291 {"Math::GSL::Integrationc::gsl_integration_fixed_params_al_set", _wrap_gsl_integration_fixed_params_al_set},
12292 {"Math::GSL::Integrationc::gsl_integration_fixed_params_al_get", _wrap_gsl_integration_fixed_params_al_get},
12293 {"Math::GSL::Integrationc::gsl_integration_fixed_params_be_set", _wrap_gsl_integration_fixed_params_be_set},
12294 {"Math::GSL::Integrationc::gsl_integration_fixed_params_be_get", _wrap_gsl_integration_fixed_params_be_get},
12295 {"Math::GSL::Integrationc::new_gsl_integration_fixed_params", _wrap_new_gsl_integration_fixed_params},
12296 {"Math::GSL::Integrationc::delete_gsl_integration_fixed_params", _wrap_delete_gsl_integration_fixed_params},
12297 {"Math::GSL::Integrationc::gsl_integration_fixed_type_check_set", _wrap_gsl_integration_fixed_type_check_set},
12298 {"Math::GSL::Integrationc::gsl_integration_fixed_type_check_get", _wrap_gsl_integration_fixed_type_check_get},
12299 {"Math::GSL::Integrationc::gsl_integration_fixed_type_init_set", _wrap_gsl_integration_fixed_type_init_set},
12300 {"Math::GSL::Integrationc::gsl_integration_fixed_type_init_get", _wrap_gsl_integration_fixed_type_init_get},
12301 {"Math::GSL::Integrationc::new_gsl_integration_fixed_type", _wrap_new_gsl_integration_fixed_type},
12302 {"Math::GSL::Integrationc::delete_gsl_integration_fixed_type", _wrap_delete_gsl_integration_fixed_type},
12303 {"Math::GSL::Integrationc::gsl_integration_fixed_workspace_n_set", _wrap_gsl_integration_fixed_workspace_n_set},
12304 {"Math::GSL::Integrationc::gsl_integration_fixed_workspace_n_get", _wrap_gsl_integration_fixed_workspace_n_get},
12305 {"Math::GSL::Integrationc::gsl_integration_fixed_workspace_weights_set", _wrap_gsl_integration_fixed_workspace_weights_set},
12306 {"Math::GSL::Integrationc::gsl_integration_fixed_workspace_weights_get", _wrap_gsl_integration_fixed_workspace_weights_get},
12307 {"Math::GSL::Integrationc::gsl_integration_fixed_workspace_x_set", _wrap_gsl_integration_fixed_workspace_x_set},
12308 {"Math::GSL::Integrationc::gsl_integration_fixed_workspace_x_get", _wrap_gsl_integration_fixed_workspace_x_get},
12309 {"Math::GSL::Integrationc::gsl_integration_fixed_workspace_diag_set", _wrap_gsl_integration_fixed_workspace_diag_set},
12310 {"Math::GSL::Integrationc::gsl_integration_fixed_workspace_diag_get", _wrap_gsl_integration_fixed_workspace_diag_get},
12311 {"Math::GSL::Integrationc::gsl_integration_fixed_workspace_subdiag_set", _wrap_gsl_integration_fixed_workspace_subdiag_set},
12312 {"Math::GSL::Integrationc::gsl_integration_fixed_workspace_subdiag_get", _wrap_gsl_integration_fixed_workspace_subdiag_get},
12313 {"Math::GSL::Integrationc::gsl_integration_fixed_workspace_type_set", _wrap_gsl_integration_fixed_workspace_type_set},
12314 {"Math::GSL::Integrationc::gsl_integration_fixed_workspace_type_get", _wrap_gsl_integration_fixed_workspace_type_get},
12315 {"Math::GSL::Integrationc::new_gsl_integration_fixed_workspace", _wrap_new_gsl_integration_fixed_workspace},
12316 {"Math::GSL::Integrationc::delete_gsl_integration_fixed_workspace", _wrap_delete_gsl_integration_fixed_workspace},
12317 {"Math::GSL::Integrationc::gsl_integration_fixed_alloc", _wrap_gsl_integration_fixed_alloc},
12318 {"Math::GSL::Integrationc::gsl_integration_fixed_free", _wrap_gsl_integration_fixed_free},
12319 {"Math::GSL::Integrationc::gsl_integration_fixed_n", _wrap_gsl_integration_fixed_n},
12320 {"Math::GSL::Integrationc::gsl_integration_fixed_nodes", _wrap_gsl_integration_fixed_nodes},
12321 {"Math::GSL::Integrationc::gsl_integration_fixed_weights", _wrap_gsl_integration_fixed_weights},
12322 {"Math::GSL::Integrationc::gsl_integration_fixed", _wrap_gsl_integration_fixed},
12323 {"Math::GSL::Integrationc::gsl_function_struct_function_set", _wrap_gsl_function_struct_function_set},
12324 {"Math::GSL::Integrationc::gsl_function_struct_function_get", _wrap_gsl_function_struct_function_get},
12325 {"Math::GSL::Integrationc::gsl_function_struct_params_set", _wrap_gsl_function_struct_params_set},
12326 {"Math::GSL::Integrationc::gsl_function_struct_params_get", _wrap_gsl_function_struct_params_get},
12327 {"Math::GSL::Integrationc::new_gsl_function_struct", _wrap_new_gsl_function_struct},
12328 {"Math::GSL::Integrationc::delete_gsl_function_struct", _wrap_delete_gsl_function_struct},
12329 {"Math::GSL::Integrationc::gsl_function_fdf_struct_f_set", _wrap_gsl_function_fdf_struct_f_set},
12330 {"Math::GSL::Integrationc::gsl_function_fdf_struct_f_get", _wrap_gsl_function_fdf_struct_f_get},
12331 {"Math::GSL::Integrationc::gsl_function_fdf_struct_df_set", _wrap_gsl_function_fdf_struct_df_set},
12332 {"Math::GSL::Integrationc::gsl_function_fdf_struct_df_get", _wrap_gsl_function_fdf_struct_df_get},
12333 {"Math::GSL::Integrationc::gsl_function_fdf_struct_fdf_set", _wrap_gsl_function_fdf_struct_fdf_set},
12334 {"Math::GSL::Integrationc::gsl_function_fdf_struct_fdf_get", _wrap_gsl_function_fdf_struct_fdf_get},
12335 {"Math::GSL::Integrationc::gsl_function_fdf_struct_params_set", _wrap_gsl_function_fdf_struct_params_set},
12336 {"Math::GSL::Integrationc::gsl_function_fdf_struct_params_get", _wrap_gsl_function_fdf_struct_params_get},
12337 {"Math::GSL::Integrationc::new_gsl_function_fdf_struct", _wrap_new_gsl_function_fdf_struct},
12338 {"Math::GSL::Integrationc::delete_gsl_function_fdf_struct", _wrap_delete_gsl_function_fdf_struct},
12339 {"Math::GSL::Integrationc::gsl_function_vec_struct_function_set", _wrap_gsl_function_vec_struct_function_set},
12340 {"Math::GSL::Integrationc::gsl_function_vec_struct_function_get", _wrap_gsl_function_vec_struct_function_get},
12341 {"Math::GSL::Integrationc::gsl_function_vec_struct_params_set", _wrap_gsl_function_vec_struct_params_set},
12342 {"Math::GSL::Integrationc::gsl_function_vec_struct_params_get", _wrap_gsl_function_vec_struct_params_get},
12343 {"Math::GSL::Integrationc::new_gsl_function_vec_struct", _wrap_new_gsl_function_vec_struct},
12344 {"Math::GSL::Integrationc::delete_gsl_function_vec_struct", _wrap_delete_gsl_function_vec_struct},
12345 {0,0}
12346 };
12347 /* -----------------------------------------------------------------------------
12348 * Type initialization:
12349 * This problem is tough by the requirement that no dynamic
12350 * memory is used. Also, since swig_type_info structures store pointers to
12351 * swig_cast_info structures and swig_cast_info structures store pointers back
12352 * to swig_type_info structures, we need some lookup code at initialization.
12353 * The idea is that swig generates all the structures that are needed.
12354 * The runtime then collects these partially filled structures.
12355 * The SWIG_InitializeModule function takes these initial arrays out of
12356 * swig_module, and does all the lookup, filling in the swig_module.types
12357 * array with the correct data and linking the correct swig_cast_info
12358 * structures together.
12359 *
12360 * The generated swig_type_info structures are assigned statically to an initial
12361 * array. We just loop through that array, and handle each type individually.
12362 * First we lookup if this type has been already loaded, and if so, use the
12363 * loaded structure instead of the generated one. Then we have to fill in the
12364 * cast linked list. The cast data is initially stored in something like a
12365 * two-dimensional array. Each row corresponds to a type (there are the same
12366 * number of rows as there are in the swig_type_initial array). Each entry in
12367 * a column is one of the swig_cast_info structures for that type.
12368 * The cast_initial array is actually an array of arrays, because each row has
12369 * a variable number of columns. So to actually build the cast linked list,
12370 * we find the array of casts associated with the type, and loop through it
12371 * adding the casts to the list. The one last trick we need to do is making
12372 * sure the type pointer in the swig_cast_info struct is correct.
12373 *
12374 * First off, we lookup the cast->type name to see if it is already loaded.
12375 * There are three cases to handle:
12376 * 1) If the cast->type has already been loaded AND the type we are adding
12377 * casting info to has not been loaded (it is in this module), THEN we
12378 * replace the cast->type pointer with the type pointer that has already
12379 * been loaded.
12380 * 2) If BOTH types (the one we are adding casting info to, and the
12381 * cast->type) are loaded, THEN the cast info has already been loaded by
12382 * the previous module so we just ignore it.
12383 * 3) Finally, if cast->type has not already been loaded, then we add that
12384 * swig_cast_info to the linked list (because the cast->type) pointer will
12385 * be correct.
12386 * ----------------------------------------------------------------------------- */
12387
12388 #ifdef __cplusplus
12389 extern "C" {
12390 #if 0
12391 } /* c-mode */
12392 #endif
12393 #endif
12394
12395 #if 0
12396 #define SWIGRUNTIME_DEBUG
12397 #endif
12398
12399
12400 SWIGRUNTIME void
SWIG_InitializeModule(void * clientdata)12401 SWIG_InitializeModule(void *clientdata) {
12402 size_t i;
12403 swig_module_info *module_head, *iter;
12404 int init;
12405
12406 /* check to see if the circular list has been setup, if not, set it up */
12407 if (swig_module.next==0) {
12408 /* Initialize the swig_module */
12409 swig_module.type_initial = swig_type_initial;
12410 swig_module.cast_initial = swig_cast_initial;
12411 swig_module.next = &swig_module;
12412 init = 1;
12413 } else {
12414 init = 0;
12415 }
12416
12417 /* Try and load any already created modules */
12418 module_head = SWIG_GetModule(clientdata);
12419 if (!module_head) {
12420 /* This is the first module loaded for this interpreter */
12421 /* so set the swig module into the interpreter */
12422 SWIG_SetModule(clientdata, &swig_module);
12423 } else {
12424 /* the interpreter has loaded a SWIG module, but has it loaded this one? */
12425 iter=module_head;
12426 do {
12427 if (iter==&swig_module) {
12428 /* Our module is already in the list, so there's nothing more to do. */
12429 return;
12430 }
12431 iter=iter->next;
12432 } while (iter!= module_head);
12433
12434 /* otherwise we must add our module into the list */
12435 swig_module.next = module_head->next;
12436 module_head->next = &swig_module;
12437 }
12438
12439 /* When multiple interpreters are used, a module could have already been initialized in
12440 a different interpreter, but not yet have a pointer in this interpreter.
12441 In this case, we do not want to continue adding types... everything should be
12442 set up already */
12443 if (init == 0) return;
12444
12445 /* Now work on filling in swig_module.types */
12446 #ifdef SWIGRUNTIME_DEBUG
12447 printf("SWIG_InitializeModule: size %lu\n", (unsigned long)swig_module.size);
12448 #endif
12449 for (i = 0; i < swig_module.size; ++i) {
12450 swig_type_info *type = 0;
12451 swig_type_info *ret;
12452 swig_cast_info *cast;
12453
12454 #ifdef SWIGRUNTIME_DEBUG
12455 printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
12456 #endif
12457
12458 /* if there is another module already loaded */
12459 if (swig_module.next != &swig_module) {
12460 type = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, swig_module.type_initial[i]->name);
12461 }
12462 if (type) {
12463 /* Overwrite clientdata field */
12464 #ifdef SWIGRUNTIME_DEBUG
12465 printf("SWIG_InitializeModule: found type %s\n", type->name);
12466 #endif
12467 if (swig_module.type_initial[i]->clientdata) {
12468 type->clientdata = swig_module.type_initial[i]->clientdata;
12469 #ifdef SWIGRUNTIME_DEBUG
12470 printf("SWIG_InitializeModule: found and overwrite type %s \n", type->name);
12471 #endif
12472 }
12473 } else {
12474 type = swig_module.type_initial[i];
12475 }
12476
12477 /* Insert casting types */
12478 cast = swig_module.cast_initial[i];
12479 while (cast->type) {
12480 /* Don't need to add information already in the list */
12481 ret = 0;
12482 #ifdef SWIGRUNTIME_DEBUG
12483 printf("SWIG_InitializeModule: look cast %s\n", cast->type->name);
12484 #endif
12485 if (swig_module.next != &swig_module) {
12486 ret = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, cast->type->name);
12487 #ifdef SWIGRUNTIME_DEBUG
12488 if (ret) printf("SWIG_InitializeModule: found cast %s\n", ret->name);
12489 #endif
12490 }
12491 if (ret) {
12492 if (type == swig_module.type_initial[i]) {
12493 #ifdef SWIGRUNTIME_DEBUG
12494 printf("SWIG_InitializeModule: skip old type %s\n", ret->name);
12495 #endif
12496 cast->type = ret;
12497 ret = 0;
12498 } else {
12499 /* Check for casting already in the list */
12500 swig_cast_info *ocast = SWIG_TypeCheck(ret->name, type);
12501 #ifdef SWIGRUNTIME_DEBUG
12502 if (ocast) printf("SWIG_InitializeModule: skip old cast %s\n", ret->name);
12503 #endif
12504 if (!ocast) ret = 0;
12505 }
12506 }
12507
12508 if (!ret) {
12509 #ifdef SWIGRUNTIME_DEBUG
12510 printf("SWIG_InitializeModule: adding cast %s\n", cast->type->name);
12511 #endif
12512 if (type->cast) {
12513 type->cast->prev = cast;
12514 cast->next = type->cast;
12515 }
12516 type->cast = cast;
12517 }
12518 cast++;
12519 }
12520 /* Set entry in modules->types array equal to the type */
12521 swig_module.types[i] = type;
12522 }
12523 swig_module.types[i] = 0;
12524
12525 #ifdef SWIGRUNTIME_DEBUG
12526 printf("**** SWIG_InitializeModule: Cast List ******\n");
12527 for (i = 0; i < swig_module.size; ++i) {
12528 int j = 0;
12529 swig_cast_info *cast = swig_module.cast_initial[i];
12530 printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
12531 while (cast->type) {
12532 printf("SWIG_InitializeModule: cast type %s\n", cast->type->name);
12533 cast++;
12534 ++j;
12535 }
12536 printf("---- Total casts: %d\n",j);
12537 }
12538 printf("**** SWIG_InitializeModule: Cast List ******\n");
12539 #endif
12540 }
12541
12542 /* This function will propagate the clientdata field of type to
12543 * any new swig_type_info structures that have been added into the list
12544 * of equivalent types. It is like calling
12545 * SWIG_TypeClientData(type, clientdata) a second time.
12546 */
12547 SWIGRUNTIME void
SWIG_PropagateClientData(void)12548 SWIG_PropagateClientData(void) {
12549 size_t i;
12550 swig_cast_info *equiv;
12551 static int init_run = 0;
12552
12553 if (init_run) return;
12554 init_run = 1;
12555
12556 for (i = 0; i < swig_module.size; i++) {
12557 if (swig_module.types[i]->clientdata) {
12558 equiv = swig_module.types[i]->cast;
12559 while (equiv) {
12560 if (!equiv->converter) {
12561 if (equiv->type && !equiv->type->clientdata)
12562 SWIG_TypeClientData(equiv->type, swig_module.types[i]->clientdata);
12563 }
12564 equiv = equiv->next;
12565 }
12566 }
12567 }
12568 }
12569
12570 #ifdef __cplusplus
12571 #if 0
12572 {
12573 /* c-mode */
12574 #endif
12575 }
12576 #endif
12577
12578
12579
12580 #if defined(__cplusplus) && ! defined(XSPROTO)
12581 extern "C"
12582 #endif
12583
XS(SWIG_init)12584 XS(SWIG_init) {
12585 dXSARGS;
12586 int i;
12587 (void)items;
12588
12589 SWIG_InitializeModule(0);
12590
12591 /* Install commands */
12592 for (i = 0; swig_commands[i].name; i++) {
12593 /* Casts only needed for Perl < 5.10. */
12594 #ifdef __cplusplus
12595 newXS(const_cast<char*>(swig_commands[i].name), swig_commands[i].wrapper, const_cast<char*>(__FILE__));
12596 #else
12597 newXS((char*)swig_commands[i].name, swig_commands[i].wrapper, (char*)__FILE__);
12598 #endif
12599 }
12600
12601 /* Install variables */
12602 for (i = 0; swig_variables[i].name; i++) {
12603 SV *sv;
12604 sv = get_sv(swig_variables[i].name, TRUE | 0x2 | GV_ADDMULTI);
12605 if (swig_variables[i].type) {
12606 SWIG_MakePtr(sv,(void *)1, *swig_variables[i].type,0);
12607 } else {
12608 sv_setiv(sv,(IV) 0);
12609 }
12610 swig_create_magic(sv, swig_variables[i].name, swig_variables[i].set, swig_variables[i].get);
12611 }
12612
12613 /* Install constant */
12614 for (i = 0; swig_constants[i].type; i++) {
12615 SV *sv;
12616 sv = get_sv(swig_constants[i].name, TRUE | 0x2 | GV_ADDMULTI);
12617 switch(swig_constants[i].type) {
12618 case SWIG_INT:
12619 sv_setiv(sv, (IV) swig_constants[i].lvalue);
12620 break;
12621 case SWIG_FLOAT:
12622 sv_setnv(sv, (double) swig_constants[i].dvalue);
12623 break;
12624 case SWIG_STRING:
12625 sv_setpv(sv, (const char *) swig_constants[i].pvalue);
12626 break;
12627 case SWIG_POINTER:
12628 SWIG_MakePtr(sv, swig_constants[i].pvalue, *(swig_constants[i].ptype),0);
12629 break;
12630 case SWIG_BINARY:
12631 SWIG_MakePackedObj(sv, swig_constants[i].pvalue, swig_constants[i].lvalue, *(swig_constants[i].ptype));
12632 break;
12633 default:
12634 break;
12635 }
12636 SvREADONLY_on(sv);
12637 }
12638
12639 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12640 SV *sv = get_sv((char*) SWIG_prefix "GSL_VERSION", TRUE | 0x2 | GV_ADDMULTI);
12641 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(2.7)));
12642 SvREADONLY_on(sv);
12643 } while(0) /*@SWIG@*/;
12644 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12645 SV *sv = get_sv((char*) SWIG_prefix "GSL_MAJOR_VERSION", TRUE | 0x2 | GV_ADDMULTI);
12646 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(2)));
12647 SvREADONLY_on(sv);
12648 } while(0) /*@SWIG@*/;
12649 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12650 SV *sv = get_sv((char*) SWIG_prefix "GSL_MINOR_VERSION", TRUE | 0x2 | GV_ADDMULTI);
12651 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(7)));
12652 SvREADONLY_on(sv);
12653 } while(0) /*@SWIG@*/;
12654 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12655 SV *sv = get_sv((char*) SWIG_prefix "GSL_POSZERO", TRUE | 0x2 | GV_ADDMULTI);
12656 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)((+0.0))));
12657 SvREADONLY_on(sv);
12658 } while(0) /*@SWIG@*/;
12659 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12660 SV *sv = get_sv((char*) SWIG_prefix "GSL_NEGZERO", TRUE | 0x2 | GV_ADDMULTI);
12661 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)((-0.0))));
12662 SvREADONLY_on(sv);
12663 } while(0) /*@SWIG@*/;
12664 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12665 SV *sv = get_sv((char*) SWIG_prefix "GSL_SUCCESS", TRUE | 0x2 | GV_ADDMULTI);
12666 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_SUCCESS)));
12667 SvREADONLY_on(sv);
12668 } while(0) /*@SWIG@*/;
12669 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12670 SV *sv = get_sv((char*) SWIG_prefix "GSL_FAILURE", TRUE | 0x2 | GV_ADDMULTI);
12671 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_FAILURE)));
12672 SvREADONLY_on(sv);
12673 } while(0) /*@SWIG@*/;
12674 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12675 SV *sv = get_sv((char*) SWIG_prefix "GSL_CONTINUE", TRUE | 0x2 | GV_ADDMULTI);
12676 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_CONTINUE)));
12677 SvREADONLY_on(sv);
12678 } while(0) /*@SWIG@*/;
12679 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12680 SV *sv = get_sv((char*) SWIG_prefix "GSL_EDOM", TRUE | 0x2 | GV_ADDMULTI);
12681 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EDOM)));
12682 SvREADONLY_on(sv);
12683 } while(0) /*@SWIG@*/;
12684 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12685 SV *sv = get_sv((char*) SWIG_prefix "GSL_ERANGE", TRUE | 0x2 | GV_ADDMULTI);
12686 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ERANGE)));
12687 SvREADONLY_on(sv);
12688 } while(0) /*@SWIG@*/;
12689 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12690 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFAULT", TRUE | 0x2 | GV_ADDMULTI);
12691 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFAULT)));
12692 SvREADONLY_on(sv);
12693 } while(0) /*@SWIG@*/;
12694 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12695 SV *sv = get_sv((char*) SWIG_prefix "GSL_EINVAL", TRUE | 0x2 | GV_ADDMULTI);
12696 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EINVAL)));
12697 SvREADONLY_on(sv);
12698 } while(0) /*@SWIG@*/;
12699 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12700 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFAILED", TRUE | 0x2 | GV_ADDMULTI);
12701 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFAILED)));
12702 SvREADONLY_on(sv);
12703 } while(0) /*@SWIG@*/;
12704 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12705 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFACTOR", TRUE | 0x2 | GV_ADDMULTI);
12706 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFACTOR)));
12707 SvREADONLY_on(sv);
12708 } while(0) /*@SWIG@*/;
12709 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12710 SV *sv = get_sv((char*) SWIG_prefix "GSL_ESANITY", TRUE | 0x2 | GV_ADDMULTI);
12711 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ESANITY)));
12712 SvREADONLY_on(sv);
12713 } while(0) /*@SWIG@*/;
12714 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12715 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOMEM", TRUE | 0x2 | GV_ADDMULTI);
12716 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOMEM)));
12717 SvREADONLY_on(sv);
12718 } while(0) /*@SWIG@*/;
12719 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12720 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADFUNC", TRUE | 0x2 | GV_ADDMULTI);
12721 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADFUNC)));
12722 SvREADONLY_on(sv);
12723 } while(0) /*@SWIG@*/;
12724 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12725 SV *sv = get_sv((char*) SWIG_prefix "GSL_ERUNAWAY", TRUE | 0x2 | GV_ADDMULTI);
12726 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ERUNAWAY)));
12727 SvREADONLY_on(sv);
12728 } while(0) /*@SWIG@*/;
12729 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12730 SV *sv = get_sv((char*) SWIG_prefix "GSL_EMAXITER", TRUE | 0x2 | GV_ADDMULTI);
12731 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EMAXITER)));
12732 SvREADONLY_on(sv);
12733 } while(0) /*@SWIG@*/;
12734 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12735 SV *sv = get_sv((char*) SWIG_prefix "GSL_EZERODIV", TRUE | 0x2 | GV_ADDMULTI);
12736 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EZERODIV)));
12737 SvREADONLY_on(sv);
12738 } while(0) /*@SWIG@*/;
12739 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12740 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADTOL", TRUE | 0x2 | GV_ADDMULTI);
12741 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADTOL)));
12742 SvREADONLY_on(sv);
12743 } while(0) /*@SWIG@*/;
12744 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12745 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOL", TRUE | 0x2 | GV_ADDMULTI);
12746 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOL)));
12747 SvREADONLY_on(sv);
12748 } while(0) /*@SWIG@*/;
12749 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12750 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNDRFLW", TRUE | 0x2 | GV_ADDMULTI);
12751 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNDRFLW)));
12752 SvREADONLY_on(sv);
12753 } while(0) /*@SWIG@*/;
12754 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12755 SV *sv = get_sv((char*) SWIG_prefix "GSL_EOVRFLW", TRUE | 0x2 | GV_ADDMULTI);
12756 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EOVRFLW)));
12757 SvREADONLY_on(sv);
12758 } while(0) /*@SWIG@*/;
12759 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12760 SV *sv = get_sv((char*) SWIG_prefix "GSL_ELOSS", TRUE | 0x2 | GV_ADDMULTI);
12761 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ELOSS)));
12762 SvREADONLY_on(sv);
12763 } while(0) /*@SWIG@*/;
12764 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12765 SV *sv = get_sv((char*) SWIG_prefix "GSL_EROUND", TRUE | 0x2 | GV_ADDMULTI);
12766 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EROUND)));
12767 SvREADONLY_on(sv);
12768 } while(0) /*@SWIG@*/;
12769 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12770 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADLEN", TRUE | 0x2 | GV_ADDMULTI);
12771 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADLEN)));
12772 SvREADONLY_on(sv);
12773 } while(0) /*@SWIG@*/;
12774 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12775 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOTSQR", TRUE | 0x2 | GV_ADDMULTI);
12776 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOTSQR)));
12777 SvREADONLY_on(sv);
12778 } while(0) /*@SWIG@*/;
12779 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12780 SV *sv = get_sv((char*) SWIG_prefix "GSL_ESING", TRUE | 0x2 | GV_ADDMULTI);
12781 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ESING)));
12782 SvREADONLY_on(sv);
12783 } while(0) /*@SWIG@*/;
12784 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12785 SV *sv = get_sv((char*) SWIG_prefix "GSL_EDIVERGE", TRUE | 0x2 | GV_ADDMULTI);
12786 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EDIVERGE)));
12787 SvREADONLY_on(sv);
12788 } while(0) /*@SWIG@*/;
12789 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12790 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNSUP", TRUE | 0x2 | GV_ADDMULTI);
12791 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNSUP)));
12792 SvREADONLY_on(sv);
12793 } while(0) /*@SWIG@*/;
12794 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12795 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNIMPL", TRUE | 0x2 | GV_ADDMULTI);
12796 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNIMPL)));
12797 SvREADONLY_on(sv);
12798 } while(0) /*@SWIG@*/;
12799 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12800 SV *sv = get_sv((char*) SWIG_prefix "GSL_ECACHE", TRUE | 0x2 | GV_ADDMULTI);
12801 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ECACHE)));
12802 SvREADONLY_on(sv);
12803 } while(0) /*@SWIG@*/;
12804 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12805 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETABLE", TRUE | 0x2 | GV_ADDMULTI);
12806 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETABLE)));
12807 SvREADONLY_on(sv);
12808 } while(0) /*@SWIG@*/;
12809 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12810 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOPROG", TRUE | 0x2 | GV_ADDMULTI);
12811 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOPROG)));
12812 SvREADONLY_on(sv);
12813 } while(0) /*@SWIG@*/;
12814 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12815 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOPROGJ", TRUE | 0x2 | GV_ADDMULTI);
12816 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOPROGJ)));
12817 SvREADONLY_on(sv);
12818 } while(0) /*@SWIG@*/;
12819 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12820 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLF", TRUE | 0x2 | GV_ADDMULTI);
12821 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLF)));
12822 SvREADONLY_on(sv);
12823 } while(0) /*@SWIG@*/;
12824 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12825 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLX", TRUE | 0x2 | GV_ADDMULTI);
12826 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLX)));
12827 SvREADONLY_on(sv);
12828 } while(0) /*@SWIG@*/;
12829 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12830 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLG", TRUE | 0x2 | GV_ADDMULTI);
12831 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLG)));
12832 SvREADONLY_on(sv);
12833 } while(0) /*@SWIG@*/;
12834 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12835 SV *sv = get_sv((char*) SWIG_prefix "GSL_EOF", TRUE | 0x2 | GV_ADDMULTI);
12836 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EOF)));
12837 SvREADONLY_on(sv);
12838 } while(0) /*@SWIG@*/;
12839 SWIG_TypeClientData(SWIGTYPE_p_gsl_integration_workspace, (void*) "Math::GSL::Integration::gsl_integration_workspace");
12840 SWIG_TypeClientData(SWIGTYPE_p_gsl_integration_qaws_table, (void*) "Math::GSL::Integration::gsl_integration_qaws_table");
12841 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12842 SV *sv = get_sv((char*) SWIG_prefix "GSL_INTEG_COSINE", TRUE | 0x2 | GV_ADDMULTI);
12843 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_INTEG_COSINE)));
12844 SvREADONLY_on(sv);
12845 } while(0) /*@SWIG@*/;
12846 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12847 SV *sv = get_sv((char*) SWIG_prefix "GSL_INTEG_SINE", TRUE | 0x2 | GV_ADDMULTI);
12848 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_INTEG_SINE)));
12849 SvREADONLY_on(sv);
12850 } while(0) /*@SWIG@*/;
12851 SWIG_TypeClientData(SWIGTYPE_p_gsl_integration_qawo_table, (void*) "Math::GSL::Integration::gsl_integration_qawo_table");
12852 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12853 SV *sv = get_sv((char*) SWIG_prefix "GSL_INTEG_GAUSS15", TRUE | 0x2 | GV_ADDMULTI);
12854 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_INTEG_GAUSS15)));
12855 SvREADONLY_on(sv);
12856 } while(0) /*@SWIG@*/;
12857 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12858 SV *sv = get_sv((char*) SWIG_prefix "GSL_INTEG_GAUSS21", TRUE | 0x2 | GV_ADDMULTI);
12859 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_INTEG_GAUSS21)));
12860 SvREADONLY_on(sv);
12861 } while(0) /*@SWIG@*/;
12862 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12863 SV *sv = get_sv((char*) SWIG_prefix "GSL_INTEG_GAUSS31", TRUE | 0x2 | GV_ADDMULTI);
12864 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_INTEG_GAUSS31)));
12865 SvREADONLY_on(sv);
12866 } while(0) /*@SWIG@*/;
12867 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12868 SV *sv = get_sv((char*) SWIG_prefix "GSL_INTEG_GAUSS41", TRUE | 0x2 | GV_ADDMULTI);
12869 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_INTEG_GAUSS41)));
12870 SvREADONLY_on(sv);
12871 } while(0) /*@SWIG@*/;
12872 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12873 SV *sv = get_sv((char*) SWIG_prefix "GSL_INTEG_GAUSS51", TRUE | 0x2 | GV_ADDMULTI);
12874 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_INTEG_GAUSS51)));
12875 SvREADONLY_on(sv);
12876 } while(0) /*@SWIG@*/;
12877 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12878 SV *sv = get_sv((char*) SWIG_prefix "GSL_INTEG_GAUSS61", TRUE | 0x2 | GV_ADDMULTI);
12879 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_INTEG_GAUSS61)));
12880 SvREADONLY_on(sv);
12881 } while(0) /*@SWIG@*/;
12882 SWIG_TypeClientData(SWIGTYPE_p_gsl_integration_glfixed_table, (void*) "Math::GSL::Integration::gsl_integration_glfixed_table");
12883 SWIG_TypeClientData(SWIGTYPE_p_gsl_integration_cquad_ival, (void*) "Math::GSL::Integration::gsl_integration_cquad_ival");
12884 SWIG_TypeClientData(SWIGTYPE_p_gsl_integration_cquad_workspace, (void*) "Math::GSL::Integration::gsl_integration_cquad_workspace");
12885 SWIG_TypeClientData(SWIGTYPE_p_gsl_integration_romberg_workspace, (void*) "Math::GSL::Integration::gsl_integration_romberg_workspace");
12886 SWIG_TypeClientData(SWIGTYPE_p_gsl_integration_fixed_params, (void*) "Math::GSL::Integration::gsl_integration_fixed_params");
12887 SWIG_TypeClientData(SWIGTYPE_p_gsl_integration_fixed_type, (void*) "Math::GSL::Integration::gsl_integration_fixed_type");
12888 SWIG_TypeClientData(SWIGTYPE_p_gsl_integration_fixed_workspace, (void*) "Math::GSL::Integration::gsl_integration_fixed_workspace");
12889 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12890 SV *sv = get_sv((char*) SWIG_prefix "M_E", TRUE | 0x2 | GV_ADDMULTI);
12891 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(2.71828182845904523536028747135)));
12892 SvREADONLY_on(sv);
12893 } while(0) /*@SWIG@*/;
12894 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12895 SV *sv = get_sv((char*) SWIG_prefix "M_LOG2E", TRUE | 0x2 | GV_ADDMULTI);
12896 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(1.44269504088896340735992468100)));
12897 SvREADONLY_on(sv);
12898 } while(0) /*@SWIG@*/;
12899 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12900 SV *sv = get_sv((char*) SWIG_prefix "M_LOG10E", TRUE | 0x2 | GV_ADDMULTI);
12901 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(0.43429448190325182765112891892)));
12902 SvREADONLY_on(sv);
12903 } while(0) /*@SWIG@*/;
12904 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12905 SV *sv = get_sv((char*) SWIG_prefix "M_SQRT2", TRUE | 0x2 | GV_ADDMULTI);
12906 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(1.41421356237309504880168872421)));
12907 SvREADONLY_on(sv);
12908 } while(0) /*@SWIG@*/;
12909 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12910 SV *sv = get_sv((char*) SWIG_prefix "M_SQRT1_2", TRUE | 0x2 | GV_ADDMULTI);
12911 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(0.70710678118654752440084436210)));
12912 SvREADONLY_on(sv);
12913 } while(0) /*@SWIG@*/;
12914 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12915 SV *sv = get_sv((char*) SWIG_prefix "M_SQRT3", TRUE | 0x2 | GV_ADDMULTI);
12916 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(1.73205080756887729352744634151)));
12917 SvREADONLY_on(sv);
12918 } while(0) /*@SWIG@*/;
12919 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12920 SV *sv = get_sv((char*) SWIG_prefix "M_PI", TRUE | 0x2 | GV_ADDMULTI);
12921 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(3.14159265358979323846264338328)));
12922 SvREADONLY_on(sv);
12923 } while(0) /*@SWIG@*/;
12924 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12925 SV *sv = get_sv((char*) SWIG_prefix "M_PI_2", TRUE | 0x2 | GV_ADDMULTI);
12926 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(1.57079632679489661923132169164)));
12927 SvREADONLY_on(sv);
12928 } while(0) /*@SWIG@*/;
12929 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12930 SV *sv = get_sv((char*) SWIG_prefix "M_PI_4", TRUE | 0x2 | GV_ADDMULTI);
12931 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(0.78539816339744830961566084582)));
12932 SvREADONLY_on(sv);
12933 } while(0) /*@SWIG@*/;
12934 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12935 SV *sv = get_sv((char*) SWIG_prefix "M_SQRTPI", TRUE | 0x2 | GV_ADDMULTI);
12936 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(1.77245385090551602729816748334)));
12937 SvREADONLY_on(sv);
12938 } while(0) /*@SWIG@*/;
12939 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12940 SV *sv = get_sv((char*) SWIG_prefix "M_2_SQRTPI", TRUE | 0x2 | GV_ADDMULTI);
12941 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(1.12837916709551257389615890312)));
12942 SvREADONLY_on(sv);
12943 } while(0) /*@SWIG@*/;
12944 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12945 SV *sv = get_sv((char*) SWIG_prefix "M_1_PI", TRUE | 0x2 | GV_ADDMULTI);
12946 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(0.31830988618379067153776752675)));
12947 SvREADONLY_on(sv);
12948 } while(0) /*@SWIG@*/;
12949 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12950 SV *sv = get_sv((char*) SWIG_prefix "M_2_PI", TRUE | 0x2 | GV_ADDMULTI);
12951 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(0.63661977236758134307553505349)));
12952 SvREADONLY_on(sv);
12953 } while(0) /*@SWIG@*/;
12954 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12955 SV *sv = get_sv((char*) SWIG_prefix "M_LN10", TRUE | 0x2 | GV_ADDMULTI);
12956 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(2.30258509299404568401799145468)));
12957 SvREADONLY_on(sv);
12958 } while(0) /*@SWIG@*/;
12959 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12960 SV *sv = get_sv((char*) SWIG_prefix "M_LN2", TRUE | 0x2 | GV_ADDMULTI);
12961 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(0.69314718055994530941723212146)));
12962 SvREADONLY_on(sv);
12963 } while(0) /*@SWIG@*/;
12964 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12965 SV *sv = get_sv((char*) SWIG_prefix "M_LNPI", TRUE | 0x2 | GV_ADDMULTI);
12966 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(1.14472988584940017414342735135)));
12967 SvREADONLY_on(sv);
12968 } while(0) /*@SWIG@*/;
12969 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12970 SV *sv = get_sv((char*) SWIG_prefix "M_EULER", TRUE | 0x2 | GV_ADDMULTI);
12971 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(0.57721566490153286060651209008)));
12972 SvREADONLY_on(sv);
12973 } while(0) /*@SWIG@*/;
12974 SWIG_TypeClientData(SWIGTYPE_p_gsl_function_struct, (void*) "Math::GSL::Integration::gsl_function_struct");
12975 SWIG_TypeClientData(SWIGTYPE_p_gsl_function_fdf_struct, (void*) "Math::GSL::Integration::gsl_function_fdf_struct");
12976 SWIG_TypeClientData(SWIGTYPE_p_gsl_function_vec_struct, (void*) "Math::GSL::Integration::gsl_function_vec_struct");
12977 ST(0) = &PL_sv_yes;
12978 XSRETURN(1);
12979 }
12980
12981