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_gsl_function_fdf_struct swig_types[9]
1529 #define SWIGTYPE_p_gsl_function_struct swig_types[10]
1530 #define SWIGTYPE_p_gsl_function_vec_struct swig_types[11]
1531 #define SWIGTYPE_p_gsl_integration_cquad_ival swig_types[12]
1532 #define SWIGTYPE_p_gsl_integration_cquad_workspace swig_types[13]
1533 #define SWIGTYPE_p_gsl_integration_glfixed_table swig_types[14]
1534 #define SWIGTYPE_p_gsl_integration_qawo_table swig_types[15]
1535 #define SWIGTYPE_p_gsl_integration_qaws_table swig_types[16]
1536 #define SWIGTYPE_p_gsl_integration_workspace swig_types[17]
1537 #define SWIGTYPE_p_size_t swig_types[18]
1538 #define SWIGTYPE_p_void swig_types[19]
1539 static swig_type_info *swig_types[21];
1540 static swig_module_info swig_module = {swig_types, 20, 0, 0, 0, 0};
1541 #define SWIG_TypeQuery(name) SWIG_TypeQueryModule(&swig_module, &swig_module, name)
1542 #define SWIG_MangledTypeQuery(name) SWIG_MangledTypeQueryModule(&swig_module, &swig_module, name)
1543
1544 /* -------- TYPES TABLE (END) -------- */
1545
1546 #define SWIG_init boot_Math__GSL__Integration
1547
1548 #define SWIG_name "Math::GSL::Integrationc::boot_Math__GSL__Integration"
1549 #define SWIG_prefix "Math::GSL::Integrationc::"
1550
1551 #define SWIGVERSION 0x040001
1552 #define SWIG_VERSION SWIGVERSION
1553
1554
1555 #define SWIG_as_voidptr(a) (void *)((const void *)(a))
1556 #define SWIG_as_voidptrptr(a) ((void)SWIG_as_voidptr(*a),(void**)(a))
1557
1558
1559 #ifdef __cplusplus
1560 extern "C"
1561 #endif
1562 #ifndef PERL_OBJECT
1563 #ifndef MULTIPLICITY
1564 SWIGEXPORT void SWIG_init (CV* cv);
1565 #else
1566 SWIGEXPORT void SWIG_init (pTHXo_ CV* cv);
1567 #endif
1568 #else
1569 SWIGEXPORT void SWIG_init (CV *cv, CPerlObj *);
1570 #endif
1571
1572
1573 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(double value)1574 SWIG_From_double SWIG_PERL_DECL_ARGS_1(double value)
1575 {
1576 return sv_2mortal(newSVnv(value));
1577 }
1578
1579
1580 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(long value)1581 SWIG_From_long SWIG_PERL_DECL_ARGS_1(long value)
1582 {
1583 SV *sv;
1584 if (IVSIZE >= sizeof(value) || (value >= IV_MIN && value <= IV_MAX))
1585 sv = newSViv(value);
1586 else
1587 sv = newSVpvf("%ld", value);
1588 return sv_2mortal(sv);
1589 }
1590
1591
1592 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(int value)1593 SWIG_From_int SWIG_PERL_DECL_ARGS_1(int value)
1594 {
1595 return SWIG_From_long SWIG_PERL_CALL_ARGS_1(value);
1596 }
1597
1598
1599 SWIGINTERN swig_type_info*
SWIG_pchar_descriptor(void)1600 SWIG_pchar_descriptor(void)
1601 {
1602 static int init = 0;
1603 static swig_type_info* info = 0;
1604 if (!init) {
1605 info = SWIG_TypeQuery("_p_char");
1606 init = 1;
1607 }
1608 return info;
1609 }
1610
1611
1612 SWIGINTERN int
SWIG_AsCharPtrAndSize(SV * obj,char ** cptr,size_t * psize,int * alloc)1613 SWIG_AsCharPtrAndSize(SV *obj, char** cptr, size_t* psize, int *alloc)
1614 {
1615 if (SvMAGICAL(obj)) {
1616 SV *tmp = sv_newmortal();
1617 SvSetSV(tmp, obj);
1618 obj = tmp;
1619 }
1620 if (SvPOK(obj)) {
1621 STRLEN len = 0;
1622 char *cstr = SvPV(obj, len);
1623 size_t size = len + 1;
1624 if (cptr) {
1625 if (alloc) {
1626 if (*alloc == SWIG_NEWOBJ) {
1627 *cptr = (char *)memcpy(malloc((size)*sizeof(char)), cstr, sizeof(char)*(size));
1628 } else {
1629 *cptr = cstr;
1630 *alloc = SWIG_OLDOBJ;
1631 }
1632 }
1633 }
1634 if (psize) *psize = size;
1635 return SWIG_OK;
1636 } else {
1637 swig_type_info* pchar_descriptor = SWIG_pchar_descriptor();
1638 if (pchar_descriptor) {
1639 char* vptr = 0;
1640 if (SWIG_ConvertPtr(obj, (void**)&vptr, pchar_descriptor, 0) == SWIG_OK) {
1641 if (cptr) *cptr = vptr;
1642 if (psize) *psize = vptr ? (strlen(vptr) + 1) : 0;
1643 if (alloc) *alloc = SWIG_OLDOBJ;
1644 return SWIG_OK;
1645 }
1646 }
1647 }
1648 return SWIG_TypeError;
1649 }
1650
1651
1652
1653
1654
1655 #include <limits.h>
1656 #if !defined(SWIG_NO_LLONG_MAX)
1657 # if !defined(LLONG_MAX) && defined(__GNUC__) && defined (__LONG_LONG_MAX__)
1658 # define LLONG_MAX __LONG_LONG_MAX__
1659 # define LLONG_MIN (-LLONG_MAX - 1LL)
1660 # define ULLONG_MAX (LLONG_MAX * 2ULL + 1ULL)
1661 # endif
1662 #endif
1663
1664
1665 #include <stdlib.h>
1666 #ifdef _MSC_VER
1667 # ifndef strtoull
1668 # define strtoull _strtoui64
1669 # endif
1670 # ifndef strtoll
1671 # define strtoll _strtoi64
1672 # endif
1673 #endif
1674
1675
1676 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,double * val)1677 SWIG_AsVal_double SWIG_PERL_DECL_ARGS_2(SV *obj, double *val)
1678 {
1679 if (SvNIOK(obj)) {
1680 if (val) *val = SvNV(obj);
1681 return SWIG_OK;
1682 } else if (SvIOK(obj)) {
1683 if (val) *val = (double) SvIV(obj);
1684 return SWIG_AddCast(SWIG_OK);
1685 } else {
1686 const char *nptr = SvPV_nolen(obj);
1687 if (nptr) {
1688 char *endptr;
1689 double v;
1690 errno = 0;
1691 v = strtod(nptr, &endptr);
1692 if (errno == ERANGE) {
1693 errno = 0;
1694 return SWIG_OverflowError;
1695 } else {
1696 if (*endptr == '\0') {
1697 if (val) *val = v;
1698 return SWIG_Str2NumCast(SWIG_OK);
1699 }
1700 }
1701 }
1702 }
1703 return SWIG_TypeError;
1704 }
1705
1706
1707 #include <float.h>
1708
1709
1710 #include <math.h>
1711
1712
1713 SWIGINTERNINLINE int
SWIG_CanCastAsInteger(double * d,double min,double max)1714 SWIG_CanCastAsInteger(double *d, double min, double max) {
1715 double x = *d;
1716 if ((min <= x && x <= max)) {
1717 double fx = floor(x);
1718 double cx = ceil(x);
1719 double rd = ((x - fx) < 0.5) ? fx : cx; /* simple rint */
1720 if ((errno == EDOM) || (errno == ERANGE)) {
1721 errno = 0;
1722 } else {
1723 double summ, reps, diff;
1724 if (rd < x) {
1725 diff = x - rd;
1726 } else if (rd > x) {
1727 diff = rd - x;
1728 } else {
1729 return 1;
1730 }
1731 summ = rd + x;
1732 reps = diff/summ;
1733 if (reps < 8*DBL_EPSILON) {
1734 *d = rd;
1735 return 1;
1736 }
1737 }
1738 }
1739 return 0;
1740 }
1741
1742
1743 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,long * val)1744 SWIG_AsVal_long SWIG_PERL_DECL_ARGS_2(SV *obj, long* val)
1745 {
1746 if (SvUOK(obj)) {
1747 UV v = SvUV(obj);
1748 if (UVSIZE < sizeof(*val) || v <= LONG_MAX) {
1749 if (val) *val = v;
1750 return SWIG_OK;
1751 }
1752 return SWIG_OverflowError;
1753 } else if (SvIOK(obj)) {
1754 IV v = SvIV(obj);
1755 if (IVSIZE <= sizeof(*val) || (v >= LONG_MIN && v <= LONG_MAX)) {
1756 if(val) *val = v;
1757 return SWIG_OK;
1758 }
1759 return SWIG_OverflowError;
1760 } else {
1761 int dispatch = 0;
1762 const char *nptr = SvPV_nolen(obj);
1763 if (nptr) {
1764 char *endptr;
1765 long v;
1766 errno = 0;
1767 v = strtol(nptr, &endptr,0);
1768 if (errno == ERANGE) {
1769 errno = 0;
1770 return SWIG_OverflowError;
1771 } else {
1772 if (*endptr == '\0') {
1773 if (val) *val = v;
1774 return SWIG_Str2NumCast(SWIG_OK);
1775 }
1776 }
1777 }
1778 if (!dispatch) {
1779 double d;
1780 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
1781 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, LONG_MIN, LONG_MAX)) {
1782 if (val) *val = (long)(d);
1783 return res;
1784 }
1785 }
1786 }
1787 return SWIG_TypeError;
1788 }
1789
1790
1791 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,int * val)1792 SWIG_AsVal_int SWIG_PERL_DECL_ARGS_2(SV * obj, int *val)
1793 {
1794 long v;
1795 int res = SWIG_AsVal_long SWIG_PERL_CALL_ARGS_2(obj, &v);
1796 if (SWIG_IsOK(res)) {
1797 if ((v < INT_MIN || v > INT_MAX)) {
1798 return SWIG_OverflowError;
1799 } else {
1800 if (val) *val = (int)(v);
1801 }
1802 }
1803 return res;
1804 }
1805
1806
1807 SWIGINTERNINLINE SV *
SWIG_FromCharPtrAndSize(const char * carray,size_t size)1808 SWIG_FromCharPtrAndSize(const char* carray, size_t size)
1809 {
1810 SV *obj = sv_newmortal();
1811 if (carray) {
1812 sv_setpvn(obj, carray, size);
1813 } else {
1814 sv_setsv(obj, &PL_sv_undef);
1815 }
1816 return obj;
1817 }
1818
1819
1820 SWIGINTERNINLINE SV *
SWIG_FromCharPtr(const char * cptr)1821 SWIG_FromCharPtr(const char *cptr)
1822 {
1823 return SWIG_FromCharPtrAndSize(cptr, (cptr ? strlen(cptr) : 0));
1824 }
1825
1826
1827 #include "gsl/gsl_nan.h"
1828 #include "gsl/gsl_errno.h"
1829 #include "gsl/gsl_math.h"
1830 #include "gsl/gsl_monte.h"
1831
1832
1833 struct perl_array {
1834 I32 len;
1835 AV *array;
1836 };
1837
1838
1839
1840 enum awType { awDouble, awFloat, awInt, awUnsigned };
1841
1842 typedef struct {
1843 I32 size;
1844 enum awType type;
1845 void * data;
1846 } array_wrapper;
1847
array_wrapper_alloc(int numelem,enum awType type)1848 array_wrapper * array_wrapper_alloc(int numelem, enum awType type){
1849 array_wrapper * rv = malloc(sizeof(array_wrapper));
1850
1851 if (rv == NULL)
1852 croak("array_wrapper_alloc: can't malloc wrapper\n");
1853
1854 switch (type){
1855 case awDouble:
1856 rv->data = malloc(sizeof(double) * numelem);
1857 break;
1858 case awFloat:
1859 rv->data = malloc(sizeof(float) * numelem);
1860 break;
1861 case awInt:
1862 rv->data = malloc(sizeof(int) * numelem);
1863 break;
1864 case awUnsigned:
1865 rv->data = malloc(sizeof(unsigned int) * numelem);
1866 break;
1867 default:
1868 croak("array_wrapper_alloc: type should be awDouble, awFloat, awInt, or awUnsigned");
1869 }
1870
1871 if (rv->data == NULL)
1872 croak("array_wrapper_alloc: can't malloc data");
1873
1874 rv->size = numelem;
1875 rv->type = type;
1876 return rv;
1877 }
1878
array_wrapper_free(array_wrapper * daw)1879 void array_wrapper_free(array_wrapper * daw){
1880 free(daw->data);
1881 free(daw);
1882 }
1883
1884
1885 /* structure to hold required information while the gsl function call
1886 for each callback
1887 */
1888 struct gsl_function_perl {
1889 gsl_function C_gsl_function;
1890 SV * function;
1891 SV * params;
1892 };
1893
1894 struct gsl_function_fdf_perl {
1895 gsl_function_fdf C_gsl_function_fdf;
1896 SV * f;
1897 SV * df;
1898 SV * fdf;
1899 SV * params;
1900 };
1901
1902 struct gsl_monte_function_perl {
1903 gsl_monte_function C_gsl_monte_function;
1904 SV * f;
1905 SV * dim;
1906 SV * params;
1907 };
1908
gsl_function_perl_free(struct gsl_function_perl * perl_f)1909 void gsl_function_perl_free(struct gsl_function_perl * perl_f){
1910 if (perl_f != NULL) {
1911 SvREFCNT_dec(perl_f->function);
1912 SvREFCNT_dec(perl_f->params);
1913 Safefree(perl_f);
1914 }
1915 }
1916
gsl_function_fdf_perl_free(struct gsl_function_fdf_perl * perl_fdf)1917 void gsl_function_fdf_perl_free(struct gsl_function_fdf_perl * perl_fdf){
1918 if (perl_fdf != NULL) {
1919 SvREFCNT_dec(perl_fdf->f);
1920 SvREFCNT_dec(perl_fdf->df);
1921 SvREFCNT_dec(perl_fdf->fdf);
1922 SvREFCNT_dec(perl_fdf->params);
1923 Safefree(perl_fdf);
1924 }
1925 }
1926
1927 /* These functions (C callbacks) calls the perl callbacks.
1928 Info for perl callback can be found using the 'void*params' parameter
1929 */
call_gsl_function_x_params(SV * function,double x,SV * params)1930 double call_gsl_function_x_params(SV* function, double x, SV *params){
1931 unsigned int count;
1932 double y;
1933 dSP;
1934
1935 //fprintf(stderr, "LOOKUP CALLBACK\n");
1936 ENTER;
1937 SAVETMPS;
1938
1939 PUSHMARK(SP);
1940 XPUSHs(sv_2mortal(newSVnv((double)x)));
1941 XPUSHs(params);
1942 PUTBACK; /* make local stack pointer global */
1943
1944 count = call_sv(function, G_SCALAR);
1945 SPAGAIN;
1946
1947 if (count != 1)
1948 croak("Expected to call subroutine in scalar context!");
1949
1950 y = POPn;
1951
1952 PUTBACK; /* make local stack pointer global */
1953 FREETMPS;
1954 LEAVE;
1955
1956 return y;
1957 }
1958
call_gsl_function(double x,void * params)1959 double call_gsl_function(double x , void *params){
1960 struct gsl_function_perl *F=(struct gsl_function_perl*)params;
1961 return call_gsl_function_x_params( F->function, x, F->params );
1962 }
1963
call_gsl_function_fdf_f(double x,void * params)1964 double call_gsl_function_fdf_f(double x , void *params){
1965 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1966 return call_gsl_function_x_params( F->f, x, F->params );
1967 }
1968
call_gsl_function_fdf_df(double x,void * params)1969 double call_gsl_function_fdf_df(double x , void *params){
1970 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1971 return call_gsl_function_x_params( F->df, x, F->params );
1972 }
1973
call_gsl_function_fdf_fdf(double x,void * params,double * f,double * df)1974 void call_gsl_function_fdf_fdf(double x , void *params, double *f, double *df ){
1975 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1976
1977 dSP;
1978
1979 ENTER;
1980 SAVETMPS;
1981
1982 PUSHMARK(SP);
1983 EXTEND(SP, 2);
1984 PUSHs(sv_2mortal(newSVnv((double)x)));
1985 PUSHs(F->params);
1986 PUTBACK; /* make local stack pointer global */
1987
1988 {
1989 unsigned int count = call_sv(F->fdf, G_ARRAY);
1990 SPAGAIN;
1991
1992 if (count != 2)
1993 croak( "Expected two return values, got %d", count );
1994 }
1995
1996 *df = POPn;
1997 *f = POPn;
1998
1999 PUTBACK; /* make local stack pointer global */
2000 FREETMPS;
2001 LEAVE;
2002 }
2003
call_gsl_monte_function(double * x_array,size_t dim,void * params)2004 double call_gsl_monte_function(double *x_array , size_t dim, void *params){
2005 struct gsl_monte_function_perl *F=(struct gsl_monte_function_perl*)params;
2006 unsigned int count;
2007 unsigned int i;
2008 AV* perl_array;
2009 double y;
2010 dSP;
2011
2012 //fprintf(stderr, "LOOKUP CALLBACK\n");
2013 ENTER;
2014 SAVETMPS;
2015
2016 PUSHMARK(SP);
2017 perl_array=newAV();
2018 sv_2mortal((SV*)perl_array);
2019 XPUSHs(sv_2mortal(newRV((SV *)perl_array)));
2020 for(i=0; i<dim; i++) {
2021 /* no mortal : it is referenced by the array */
2022 av_push(perl_array, newSVnv(x_array[i]));
2023 }
2024 XPUSHs(sv_2mortal(newSViv(dim)));
2025 XPUSHs(F->params);
2026 PUTBACK; /* make local stack pointer global */
2027
2028 count = call_sv(F->f, G_SCALAR);
2029 SPAGAIN;
2030
2031 if (count != 1)
2032 croak("Expected to call subroutine in scalar context!");
2033
2034 y = POPn;
2035
2036 PUTBACK; /* make local stack pointer global */
2037 FREETMPS;
2038 LEAVE;
2039
2040 return y;
2041 }
2042
2043
gsl_function_fdf_extract(char * param_name,HV * hash,SV * func[])2044 void gsl_function_fdf_extract( char* param_name, HV* hash, SV* func[] ) {
2045 static const char *keys[3] = { "f", "df", "fdf" };
2046
2047 int ikey;
2048
2049 for ( ikey = 0 ; ikey < 3 ; ++ikey ) {
2050 func[ikey] = 0;
2051 const char* key = keys[ikey];
2052 /* it just so happens that strlen(keys[ikey]) == ikey + 1 */
2053 SV** pp_sv = hv_fetch( hash, key, ikey+1, 0 );
2054 SV* function;
2055
2056 if ( !pp_sv )
2057 croak("Math::GSL : %s: missing key %s!", param_name, key);
2058
2059 function = *pp_sv;
2060
2061 if ( SvPOK(function) || ( SvROK( function ) && SvTYPE(SvRV(function)) == SVt_PVCV ) ) {
2062 /* hold on to SV after the enclosing hash goes away */
2063 SvREFCNT_inc( function );
2064 func[ikey] = function;
2065 }
2066 else {
2067 croak( "Math::GSL : %s: key %s is not a reference to code!", param_name, key);
2068 }
2069 }
2070 }
2071
2072
2073
2074 #ifndef GSL_VAR
2075 #include "gsl/gsl_types.h"
2076 #endif
2077
2078 #include "gsl/gsl_integration.h"
2079 #include "gsl/gsl_math.h"
2080
2081
2082 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,unsigned long * val)2083 SWIG_AsVal_unsigned_SS_long SWIG_PERL_DECL_ARGS_2(SV *obj, unsigned long *val)
2084 {
2085 if (SvUOK(obj)) {
2086 UV v = SvUV(obj);
2087 if (UVSIZE <= sizeof(*val) || v <= ULONG_MAX) {
2088 if (val) *val = v;
2089 return SWIG_OK;
2090 }
2091 return SWIG_OverflowError;
2092 } else if (SvIOK(obj)) {
2093 IV v = SvIV(obj);
2094 if (v >= 0 && (IVSIZE <= sizeof(*val) || v <= ULONG_MAX)) {
2095 if (val) *val = v;
2096 return SWIG_OK;
2097 }
2098 return SWIG_OverflowError;
2099 } else {
2100 int dispatch = 0;
2101 const char *nptr = SvPV_nolen(obj);
2102 if (nptr) {
2103 char *endptr;
2104 unsigned long v;
2105 errno = 0;
2106 v = strtoul(nptr, &endptr,0);
2107 if (errno == ERANGE) {
2108 errno = 0;
2109 return SWIG_OverflowError;
2110 } else {
2111 if (*endptr == '\0') {
2112 if (val) *val = v;
2113 return SWIG_Str2NumCast(SWIG_OK);
2114 }
2115 }
2116 }
2117 if (!dispatch) {
2118 double d;
2119 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
2120 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, 0, ULONG_MAX)) {
2121 if (val) *val = (unsigned long)(d);
2122 return res;
2123 }
2124 }
2125 }
2126 return SWIG_TypeError;
2127 }
2128
2129
2130 #if defined(LLONG_MAX) && !defined(SWIG_LONG_LONG_AVAILABLE)
2131 # define SWIG_LONG_LONG_AVAILABLE
2132 #endif
2133
2134
2135 #ifdef SWIG_LONG_LONG_AVAILABLE
2136 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,unsigned long long * val)2137 SWIG_AsVal_unsigned_SS_long_SS_long SWIG_PERL_DECL_ARGS_2(SV *obj, unsigned long long *val)
2138 {
2139 if (SvUOK(obj)) {
2140 /* pretty sure this should be conditional on
2141 * (UVSIZE <= sizeof(*val) || v <= ULLONG_MAX) */
2142 if (val) *val = SvUV(obj);
2143 return SWIG_OK;
2144 } else if (SvIOK(obj)) {
2145 IV v = SvIV(obj);
2146 if (v >= 0 && (IVSIZE <= sizeof(*val) || v <= ULLONG_MAX)) {
2147 if (val) *val = v;
2148 return SWIG_OK;
2149 } else {
2150 return SWIG_OverflowError;
2151 }
2152 } else {
2153 int dispatch = 0;
2154 const char *nptr = SvPV_nolen(obj);
2155 if (nptr) {
2156 char *endptr;
2157 unsigned long long v;
2158 errno = 0;
2159 v = strtoull(nptr, &endptr,0);
2160 if (errno == ERANGE) {
2161 errno = 0;
2162 return SWIG_OverflowError;
2163 } else {
2164 if (*endptr == '\0') {
2165 if (val) *val = v;
2166 return SWIG_Str2NumCast(SWIG_OK);
2167 }
2168 }
2169 }
2170 if (!dispatch) {
2171 const double mant_max = 1LL << DBL_MANT_DIG;
2172 double d;
2173 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
2174 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, 0, mant_max)) {
2175 if (val) *val = (unsigned long long)(d);
2176 return res;
2177 }
2178 }
2179 }
2180 return SWIG_TypeError;
2181 }
2182 #endif
2183
2184
2185 SWIGINTERNINLINE int
SWIG_PERL_DECL_ARGS_2(SV * obj,size_t * val)2186 SWIG_AsVal_size_t SWIG_PERL_DECL_ARGS_2(SV * obj, size_t *val)
2187 {
2188 int res = SWIG_TypeError;
2189 #ifdef SWIG_LONG_LONG_AVAILABLE
2190 if (sizeof(size_t) <= sizeof(unsigned long)) {
2191 #endif
2192 unsigned long v;
2193 res = SWIG_AsVal_unsigned_SS_long SWIG_PERL_CALL_ARGS_2(obj, val ? &v : 0);
2194 if (SWIG_IsOK(res) && val) *val = (size_t)(v);
2195 #ifdef SWIG_LONG_LONG_AVAILABLE
2196 } else if (sizeof(size_t) <= sizeof(unsigned long long)) {
2197 unsigned long long v;
2198 res = SWIG_AsVal_unsigned_SS_long_SS_long SWIG_PERL_CALL_ARGS_2(obj, val ? &v : 0);
2199 if (SWIG_IsOK(res) && val) *val = (size_t)(v);
2200 }
2201 #endif
2202 return res;
2203 }
2204
2205
2206 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(unsigned long value)2207 SWIG_From_unsigned_SS_long SWIG_PERL_DECL_ARGS_1(unsigned long value)
2208 {
2209 SV *sv;
2210 if (UVSIZE >= sizeof(value) || value <= UV_MAX)
2211 sv = newSVuv(value);
2212 else
2213 sv = newSVpvf("%lu", value);
2214 return sv_2mortal(sv);
2215 }
2216
2217
2218 #include <stdio.h>
2219 #if (defined(_MSC_VER) && (_MSC_VER < 1900)) || defined(__BORLANDC__) || defined(_WATCOM)
2220 # ifndef snprintf
2221 # define snprintf _snprintf
2222 # endif
2223 #endif
2224
2225
2226 #ifdef SWIG_LONG_LONG_AVAILABLE
2227 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(unsigned long long value)2228 SWIG_From_unsigned_SS_long_SS_long SWIG_PERL_DECL_ARGS_1(unsigned long long value)
2229 {
2230 SV *sv;
2231 if (UVSIZE >= sizeof(value) || value <= UV_MAX)
2232 sv = newSVuv((UV)(value));
2233 else {
2234 //sv = newSVpvf("%llu", value); doesn't work in non 64bit Perl
2235 char temp[256];
2236 sprintf(temp, "%llu", value);
2237 sv = newSVpv(temp, 0);
2238 }
2239 return sv_2mortal(sv);
2240 }
2241 #endif
2242
2243
2244 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(size_t value)2245 SWIG_From_size_t SWIG_PERL_DECL_ARGS_1(size_t value)
2246 {
2247 #ifdef SWIG_LONG_LONG_AVAILABLE
2248 if (sizeof(size_t) <= sizeof(unsigned long)) {
2249 #endif
2250 return SWIG_From_unsigned_SS_long SWIG_PERL_CALL_ARGS_1((unsigned long)(value));
2251 #ifdef SWIG_LONG_LONG_AVAILABLE
2252 } else {
2253 /* assume sizeof(size_t) <= sizeof(unsigned long long) */
2254 return SWIG_From_unsigned_SS_long_SS_long SWIG_PERL_CALL_ARGS_1((unsigned long long)(value));
2255 }
2256 #endif
2257 }
2258
2259 #ifdef __cplusplus
2260 extern "C" {
2261 #endif
2262
2263 #ifdef PERL_OBJECT
2264 #define MAGIC_CLASS _wrap_Math__GSL__Integration_var::
2265 class _wrap_Math__GSL__Integration_var : public CPerlObj {
2266 public:
2267 #else
2268 #define MAGIC_CLASS
2269 #endif
swig_magic_readonly(pTHX_ SV * SWIGUNUSEDPARM (sv),MAGIC * SWIGUNUSEDPARM (mg))2270 SWIGCLASS_STATIC int swig_magic_readonly(pTHX_ SV *SWIGUNUSEDPARM(sv), MAGIC *SWIGUNUSEDPARM(mg)) {
2271 MAGIC_PPERL
2272 croak("Value is read-only.");
2273 return 0;
2274 }
2275
2276
2277 #ifdef PERL_OBJECT
2278 };
2279 #endif
2280
2281 #ifdef __cplusplus
2282 }
2283 #endif
2284
2285 #ifdef __cplusplus
2286 extern "C" {
2287 #endif
XS(_wrap_gsl_error)2288 XS(_wrap_gsl_error) {
2289 {
2290 char *arg1 = (char *) 0 ;
2291 char *arg2 = (char *) 0 ;
2292 int arg3 ;
2293 int arg4 ;
2294 int res1 ;
2295 char *buf1 = 0 ;
2296 int alloc1 = 0 ;
2297 int res2 ;
2298 char *buf2 = 0 ;
2299 int alloc2 = 0 ;
2300 int val3 ;
2301 int ecode3 = 0 ;
2302 int val4 ;
2303 int ecode4 = 0 ;
2304 int argvi = 0;
2305 dXSARGS;
2306
2307 if ((items < 4) || (items > 4)) {
2308 SWIG_croak("Usage: gsl_error(reason,file,line,gsl_errno);");
2309 }
2310 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2311 if (!SWIG_IsOK(res1)) {
2312 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_error" "', argument " "1"" of type '" "char const *""'");
2313 }
2314 arg1 = (char *)(buf1);
2315 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
2316 if (!SWIG_IsOK(res2)) {
2317 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_error" "', argument " "2"" of type '" "char const *""'");
2318 }
2319 arg2 = (char *)(buf2);
2320 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
2321 if (!SWIG_IsOK(ecode3)) {
2322 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_error" "', argument " "3"" of type '" "int""'");
2323 }
2324 arg3 = (int)(val3);
2325 ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
2326 if (!SWIG_IsOK(ecode4)) {
2327 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_error" "', argument " "4"" of type '" "int""'");
2328 }
2329 arg4 = (int)(val4);
2330 gsl_error((char const *)arg1,(char const *)arg2,arg3,arg4);
2331 ST(argvi) = &PL_sv_undef;
2332 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2333 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2334
2335
2336 XSRETURN(argvi);
2337 fail:
2338 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2339 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2340
2341
2342 SWIG_croak_null();
2343 }
2344 }
2345
2346
XS(_wrap_gsl_stream_printf)2347 XS(_wrap_gsl_stream_printf) {
2348 {
2349 char *arg1 = (char *) 0 ;
2350 char *arg2 = (char *) 0 ;
2351 int arg3 ;
2352 char *arg4 = (char *) 0 ;
2353 int res1 ;
2354 char *buf1 = 0 ;
2355 int alloc1 = 0 ;
2356 int res2 ;
2357 char *buf2 = 0 ;
2358 int alloc2 = 0 ;
2359 int val3 ;
2360 int ecode3 = 0 ;
2361 int res4 ;
2362 char *buf4 = 0 ;
2363 int alloc4 = 0 ;
2364 int argvi = 0;
2365 dXSARGS;
2366
2367 if ((items < 4) || (items > 4)) {
2368 SWIG_croak("Usage: gsl_stream_printf(label,file,line,reason);");
2369 }
2370 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2371 if (!SWIG_IsOK(res1)) {
2372 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_stream_printf" "', argument " "1"" of type '" "char const *""'");
2373 }
2374 arg1 = (char *)(buf1);
2375 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
2376 if (!SWIG_IsOK(res2)) {
2377 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_stream_printf" "', argument " "2"" of type '" "char const *""'");
2378 }
2379 arg2 = (char *)(buf2);
2380 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
2381 if (!SWIG_IsOK(ecode3)) {
2382 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_stream_printf" "', argument " "3"" of type '" "int""'");
2383 }
2384 arg3 = (int)(val3);
2385 res4 = SWIG_AsCharPtrAndSize(ST(3), &buf4, NULL, &alloc4);
2386 if (!SWIG_IsOK(res4)) {
2387 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_stream_printf" "', argument " "4"" of type '" "char const *""'");
2388 }
2389 arg4 = (char *)(buf4);
2390 gsl_stream_printf((char const *)arg1,(char const *)arg2,arg3,(char const *)arg4);
2391 ST(argvi) = &PL_sv_undef;
2392 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2393 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2394
2395 if (alloc4 == SWIG_NEWOBJ) free((char*)buf4);
2396 XSRETURN(argvi);
2397 fail:
2398 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2399 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2400
2401 if (alloc4 == SWIG_NEWOBJ) free((char*)buf4);
2402 SWIG_croak_null();
2403 }
2404 }
2405
2406
XS(_wrap_gsl_strerror)2407 XS(_wrap_gsl_strerror) {
2408 {
2409 int arg1 ;
2410 int val1 ;
2411 int ecode1 = 0 ;
2412 int argvi = 0;
2413 char *result = 0 ;
2414 dXSARGS;
2415
2416 if ((items < 1) || (items > 1)) {
2417 SWIG_croak("Usage: gsl_strerror(gsl_errno);");
2418 }
2419 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2420 if (!SWIG_IsOK(ecode1)) {
2421 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_strerror" "', argument " "1"" of type '" "int""'");
2422 }
2423 arg1 = (int)(val1);
2424 result = (char *)gsl_strerror(arg1);
2425 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
2426
2427 XSRETURN(argvi);
2428 fail:
2429
2430 SWIG_croak_null();
2431 }
2432 }
2433
2434
XS(_wrap_gsl_set_error_handler)2435 XS(_wrap_gsl_set_error_handler) {
2436 {
2437 gsl_error_handler_t *arg1 = (gsl_error_handler_t *) 0 ;
2438 int argvi = 0;
2439 gsl_error_handler_t *result = 0 ;
2440 dXSARGS;
2441
2442 if ((items < 1) || (items > 1)) {
2443 SWIG_croak("Usage: gsl_set_error_handler(new_handler);");
2444 }
2445 {
2446 int res = SWIG_ConvertFunctionPtr(ST(0), (void**)(&arg1), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void);
2447 if (!SWIG_IsOK(res)) {
2448 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_set_error_handler" "', argument " "1"" of type '" "gsl_error_handler_t *""'");
2449 }
2450 }
2451 result = (gsl_error_handler_t *)gsl_set_error_handler(arg1);
2452 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void); argvi++ ;
2453
2454 XSRETURN(argvi);
2455 fail:
2456
2457 SWIG_croak_null();
2458 }
2459 }
2460
2461
XS(_wrap_gsl_set_error_handler_off)2462 XS(_wrap_gsl_set_error_handler_off) {
2463 {
2464 int argvi = 0;
2465 gsl_error_handler_t *result = 0 ;
2466 dXSARGS;
2467
2468 if ((items < 0) || (items > 0)) {
2469 SWIG_croak("Usage: gsl_set_error_handler_off();");
2470 }
2471 result = (gsl_error_handler_t *)gsl_set_error_handler_off();
2472 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void); argvi++ ;
2473 XSRETURN(argvi);
2474 fail:
2475 SWIG_croak_null();
2476 }
2477 }
2478
2479
XS(_wrap_gsl_set_stream_handler)2480 XS(_wrap_gsl_set_stream_handler) {
2481 {
2482 gsl_stream_handler_t *arg1 = (gsl_stream_handler_t *) 0 ;
2483 int argvi = 0;
2484 gsl_stream_handler_t *result = 0 ;
2485 dXSARGS;
2486
2487 if ((items < 1) || (items > 1)) {
2488 SWIG_croak("Usage: gsl_set_stream_handler(new_handler);");
2489 }
2490 {
2491 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);
2492 if (!SWIG_IsOK(res)) {
2493 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_set_stream_handler" "', argument " "1"" of type '" "gsl_stream_handler_t *""'");
2494 }
2495 }
2496 result = (gsl_stream_handler_t *)gsl_set_stream_handler(arg1);
2497 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void); argvi++ ;
2498
2499 XSRETURN(argvi);
2500 fail:
2501
2502 SWIG_croak_null();
2503 }
2504 }
2505
2506
XS(_wrap_gsl_set_stream)2507 XS(_wrap_gsl_set_stream) {
2508 {
2509 FILE *arg1 = (FILE *) 0 ;
2510 void *argp1 = 0 ;
2511 int res1 = 0 ;
2512 int argvi = 0;
2513 FILE *result = 0 ;
2514 dXSARGS;
2515
2516 if ((items < 1) || (items > 1)) {
2517 SWIG_croak("Usage: gsl_set_stream(new_stream);");
2518 }
2519 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
2520 if (!SWIG_IsOK(res1)) {
2521 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_set_stream" "', argument " "1"" of type '" "FILE *""'");
2522 }
2523 arg1 = (FILE *)(argp1);
2524 result = (FILE *)gsl_set_stream(arg1);
2525 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_FILE, 0 | 0); argvi++ ;
2526
2527 XSRETURN(argvi);
2528 fail:
2529
2530 SWIG_croak_null();
2531 }
2532 }
2533
2534
XS(_wrap_gsl_integration_workspace_limit_set)2535 XS(_wrap_gsl_integration_workspace_limit_set) {
2536 {
2537 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
2538 size_t arg2 ;
2539 void *argp1 = 0 ;
2540 int res1 = 0 ;
2541 size_t val2 ;
2542 int ecode2 = 0 ;
2543 int argvi = 0;
2544 dXSARGS;
2545
2546 if ((items < 2) || (items > 2)) {
2547 SWIG_croak("Usage: gsl_integration_workspace_limit_set(self,limit);");
2548 }
2549 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
2550 if (!SWIG_IsOK(res1)) {
2551 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_limit_set" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
2552 }
2553 arg1 = (gsl_integration_workspace *)(argp1);
2554 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
2555 if (!SWIG_IsOK(ecode2)) {
2556 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_workspace_limit_set" "', argument " "2"" of type '" "size_t""'");
2557 }
2558 arg2 = (size_t)(val2);
2559 if (arg1) (arg1)->limit = arg2;
2560 ST(argvi) = &PL_sv_undef;
2561
2562
2563 XSRETURN(argvi);
2564 fail:
2565
2566
2567 SWIG_croak_null();
2568 }
2569 }
2570
2571
XS(_wrap_gsl_integration_workspace_limit_get)2572 XS(_wrap_gsl_integration_workspace_limit_get) {
2573 {
2574 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
2575 void *argp1 = 0 ;
2576 int res1 = 0 ;
2577 int argvi = 0;
2578 size_t result;
2579 dXSARGS;
2580
2581 if ((items < 1) || (items > 1)) {
2582 SWIG_croak("Usage: gsl_integration_workspace_limit_get(self);");
2583 }
2584 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
2585 if (!SWIG_IsOK(res1)) {
2586 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_limit_get" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
2587 }
2588 arg1 = (gsl_integration_workspace *)(argp1);
2589 result = ((arg1)->limit);
2590 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
2591
2592 XSRETURN(argvi);
2593 fail:
2594
2595 SWIG_croak_null();
2596 }
2597 }
2598
2599
XS(_wrap_gsl_integration_workspace_size_set)2600 XS(_wrap_gsl_integration_workspace_size_set) {
2601 {
2602 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
2603 size_t arg2 ;
2604 void *argp1 = 0 ;
2605 int res1 = 0 ;
2606 size_t val2 ;
2607 int ecode2 = 0 ;
2608 int argvi = 0;
2609 dXSARGS;
2610
2611 if ((items < 2) || (items > 2)) {
2612 SWIG_croak("Usage: gsl_integration_workspace_size_set(self,size);");
2613 }
2614 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
2615 if (!SWIG_IsOK(res1)) {
2616 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_size_set" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
2617 }
2618 arg1 = (gsl_integration_workspace *)(argp1);
2619 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
2620 if (!SWIG_IsOK(ecode2)) {
2621 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_workspace_size_set" "', argument " "2"" of type '" "size_t""'");
2622 }
2623 arg2 = (size_t)(val2);
2624 if (arg1) (arg1)->size = arg2;
2625 ST(argvi) = &PL_sv_undef;
2626
2627
2628 XSRETURN(argvi);
2629 fail:
2630
2631
2632 SWIG_croak_null();
2633 }
2634 }
2635
2636
XS(_wrap_gsl_integration_workspace_size_get)2637 XS(_wrap_gsl_integration_workspace_size_get) {
2638 {
2639 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
2640 void *argp1 = 0 ;
2641 int res1 = 0 ;
2642 int argvi = 0;
2643 size_t result;
2644 dXSARGS;
2645
2646 if ((items < 1) || (items > 1)) {
2647 SWIG_croak("Usage: gsl_integration_workspace_size_get(self);");
2648 }
2649 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
2650 if (!SWIG_IsOK(res1)) {
2651 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_size_get" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
2652 }
2653 arg1 = (gsl_integration_workspace *)(argp1);
2654 result = ((arg1)->size);
2655 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
2656
2657 XSRETURN(argvi);
2658 fail:
2659
2660 SWIG_croak_null();
2661 }
2662 }
2663
2664
XS(_wrap_gsl_integration_workspace_nrmax_set)2665 XS(_wrap_gsl_integration_workspace_nrmax_set) {
2666 {
2667 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
2668 size_t arg2 ;
2669 void *argp1 = 0 ;
2670 int res1 = 0 ;
2671 size_t val2 ;
2672 int ecode2 = 0 ;
2673 int argvi = 0;
2674 dXSARGS;
2675
2676 if ((items < 2) || (items > 2)) {
2677 SWIG_croak("Usage: gsl_integration_workspace_nrmax_set(self,nrmax);");
2678 }
2679 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
2680 if (!SWIG_IsOK(res1)) {
2681 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_nrmax_set" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
2682 }
2683 arg1 = (gsl_integration_workspace *)(argp1);
2684 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
2685 if (!SWIG_IsOK(ecode2)) {
2686 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_workspace_nrmax_set" "', argument " "2"" of type '" "size_t""'");
2687 }
2688 arg2 = (size_t)(val2);
2689 if (arg1) (arg1)->nrmax = arg2;
2690 ST(argvi) = &PL_sv_undef;
2691
2692
2693 XSRETURN(argvi);
2694 fail:
2695
2696
2697 SWIG_croak_null();
2698 }
2699 }
2700
2701
XS(_wrap_gsl_integration_workspace_nrmax_get)2702 XS(_wrap_gsl_integration_workspace_nrmax_get) {
2703 {
2704 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
2705 void *argp1 = 0 ;
2706 int res1 = 0 ;
2707 int argvi = 0;
2708 size_t result;
2709 dXSARGS;
2710
2711 if ((items < 1) || (items > 1)) {
2712 SWIG_croak("Usage: gsl_integration_workspace_nrmax_get(self);");
2713 }
2714 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
2715 if (!SWIG_IsOK(res1)) {
2716 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_nrmax_get" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
2717 }
2718 arg1 = (gsl_integration_workspace *)(argp1);
2719 result = ((arg1)->nrmax);
2720 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
2721
2722 XSRETURN(argvi);
2723 fail:
2724
2725 SWIG_croak_null();
2726 }
2727 }
2728
2729
XS(_wrap_gsl_integration_workspace_i_set)2730 XS(_wrap_gsl_integration_workspace_i_set) {
2731 {
2732 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
2733 size_t arg2 ;
2734 void *argp1 = 0 ;
2735 int res1 = 0 ;
2736 size_t val2 ;
2737 int ecode2 = 0 ;
2738 int argvi = 0;
2739 dXSARGS;
2740
2741 if ((items < 2) || (items > 2)) {
2742 SWIG_croak("Usage: gsl_integration_workspace_i_set(self,i);");
2743 }
2744 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
2745 if (!SWIG_IsOK(res1)) {
2746 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_i_set" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
2747 }
2748 arg1 = (gsl_integration_workspace *)(argp1);
2749 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
2750 if (!SWIG_IsOK(ecode2)) {
2751 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_workspace_i_set" "', argument " "2"" of type '" "size_t""'");
2752 }
2753 arg2 = (size_t)(val2);
2754 if (arg1) (arg1)->i = arg2;
2755 ST(argvi) = &PL_sv_undef;
2756
2757
2758 XSRETURN(argvi);
2759 fail:
2760
2761
2762 SWIG_croak_null();
2763 }
2764 }
2765
2766
XS(_wrap_gsl_integration_workspace_i_get)2767 XS(_wrap_gsl_integration_workspace_i_get) {
2768 {
2769 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
2770 void *argp1 = 0 ;
2771 int res1 = 0 ;
2772 int argvi = 0;
2773 size_t result;
2774 dXSARGS;
2775
2776 if ((items < 1) || (items > 1)) {
2777 SWIG_croak("Usage: gsl_integration_workspace_i_get(self);");
2778 }
2779 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
2780 if (!SWIG_IsOK(res1)) {
2781 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_i_get" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
2782 }
2783 arg1 = (gsl_integration_workspace *)(argp1);
2784 result = ((arg1)->i);
2785 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
2786
2787 XSRETURN(argvi);
2788 fail:
2789
2790 SWIG_croak_null();
2791 }
2792 }
2793
2794
XS(_wrap_gsl_integration_workspace_maximum_level_set)2795 XS(_wrap_gsl_integration_workspace_maximum_level_set) {
2796 {
2797 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
2798 size_t arg2 ;
2799 void *argp1 = 0 ;
2800 int res1 = 0 ;
2801 size_t val2 ;
2802 int ecode2 = 0 ;
2803 int argvi = 0;
2804 dXSARGS;
2805
2806 if ((items < 2) || (items > 2)) {
2807 SWIG_croak("Usage: gsl_integration_workspace_maximum_level_set(self,maximum_level);");
2808 }
2809 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
2810 if (!SWIG_IsOK(res1)) {
2811 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_maximum_level_set" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
2812 }
2813 arg1 = (gsl_integration_workspace *)(argp1);
2814 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
2815 if (!SWIG_IsOK(ecode2)) {
2816 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_workspace_maximum_level_set" "', argument " "2"" of type '" "size_t""'");
2817 }
2818 arg2 = (size_t)(val2);
2819 if (arg1) (arg1)->maximum_level = arg2;
2820 ST(argvi) = &PL_sv_undef;
2821
2822
2823 XSRETURN(argvi);
2824 fail:
2825
2826
2827 SWIG_croak_null();
2828 }
2829 }
2830
2831
XS(_wrap_gsl_integration_workspace_maximum_level_get)2832 XS(_wrap_gsl_integration_workspace_maximum_level_get) {
2833 {
2834 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
2835 void *argp1 = 0 ;
2836 int res1 = 0 ;
2837 int argvi = 0;
2838 size_t result;
2839 dXSARGS;
2840
2841 if ((items < 1) || (items > 1)) {
2842 SWIG_croak("Usage: gsl_integration_workspace_maximum_level_get(self);");
2843 }
2844 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
2845 if (!SWIG_IsOK(res1)) {
2846 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_maximum_level_get" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
2847 }
2848 arg1 = (gsl_integration_workspace *)(argp1);
2849 result = ((arg1)->maximum_level);
2850 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
2851
2852 XSRETURN(argvi);
2853 fail:
2854
2855 SWIG_croak_null();
2856 }
2857 }
2858
2859
XS(_wrap_gsl_integration_workspace_alist_set)2860 XS(_wrap_gsl_integration_workspace_alist_set) {
2861 {
2862 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
2863 double *arg2 = (double *) 0 ;
2864 void *argp1 = 0 ;
2865 int res1 = 0 ;
2866 void *argp2 = 0 ;
2867 int res2 = 0 ;
2868 int argvi = 0;
2869 dXSARGS;
2870
2871 if ((items < 2) || (items > 2)) {
2872 SWIG_croak("Usage: gsl_integration_workspace_alist_set(self,alist);");
2873 }
2874 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
2875 if (!SWIG_IsOK(res1)) {
2876 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_alist_set" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
2877 }
2878 arg1 = (gsl_integration_workspace *)(argp1);
2879 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
2880 if (!SWIG_IsOK(res2)) {
2881 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_workspace_alist_set" "', argument " "2"" of type '" "double *""'");
2882 }
2883 arg2 = (double *)(argp2);
2884 if (arg1) (arg1)->alist = arg2;
2885 ST(argvi) = &PL_sv_undef;
2886
2887
2888 XSRETURN(argvi);
2889 fail:
2890
2891
2892 SWIG_croak_null();
2893 }
2894 }
2895
2896
XS(_wrap_gsl_integration_workspace_alist_get)2897 XS(_wrap_gsl_integration_workspace_alist_get) {
2898 {
2899 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
2900 void *argp1 = 0 ;
2901 int res1 = 0 ;
2902 int argvi = 0;
2903 double *result = 0 ;
2904 dXSARGS;
2905
2906 if ((items < 1) || (items > 1)) {
2907 SWIG_croak("Usage: gsl_integration_workspace_alist_get(self);");
2908 }
2909 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
2910 if (!SWIG_IsOK(res1)) {
2911 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_alist_get" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
2912 }
2913 arg1 = (gsl_integration_workspace *)(argp1);
2914 result = (double *) ((arg1)->alist);
2915 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
2916
2917 XSRETURN(argvi);
2918 fail:
2919
2920 SWIG_croak_null();
2921 }
2922 }
2923
2924
XS(_wrap_gsl_integration_workspace_blist_set)2925 XS(_wrap_gsl_integration_workspace_blist_set) {
2926 {
2927 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
2928 double *arg2 = (double *) 0 ;
2929 void *argp1 = 0 ;
2930 int res1 = 0 ;
2931 void *argp2 = 0 ;
2932 int res2 = 0 ;
2933 int argvi = 0;
2934 dXSARGS;
2935
2936 if ((items < 2) || (items > 2)) {
2937 SWIG_croak("Usage: gsl_integration_workspace_blist_set(self,blist);");
2938 }
2939 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
2940 if (!SWIG_IsOK(res1)) {
2941 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_blist_set" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
2942 }
2943 arg1 = (gsl_integration_workspace *)(argp1);
2944 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
2945 if (!SWIG_IsOK(res2)) {
2946 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_workspace_blist_set" "', argument " "2"" of type '" "double *""'");
2947 }
2948 arg2 = (double *)(argp2);
2949 if (arg1) (arg1)->blist = arg2;
2950 ST(argvi) = &PL_sv_undef;
2951
2952
2953 XSRETURN(argvi);
2954 fail:
2955
2956
2957 SWIG_croak_null();
2958 }
2959 }
2960
2961
XS(_wrap_gsl_integration_workspace_blist_get)2962 XS(_wrap_gsl_integration_workspace_blist_get) {
2963 {
2964 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
2965 void *argp1 = 0 ;
2966 int res1 = 0 ;
2967 int argvi = 0;
2968 double *result = 0 ;
2969 dXSARGS;
2970
2971 if ((items < 1) || (items > 1)) {
2972 SWIG_croak("Usage: gsl_integration_workspace_blist_get(self);");
2973 }
2974 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
2975 if (!SWIG_IsOK(res1)) {
2976 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_blist_get" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
2977 }
2978 arg1 = (gsl_integration_workspace *)(argp1);
2979 result = (double *) ((arg1)->blist);
2980 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
2981
2982 XSRETURN(argvi);
2983 fail:
2984
2985 SWIG_croak_null();
2986 }
2987 }
2988
2989
XS(_wrap_gsl_integration_workspace_rlist_set)2990 XS(_wrap_gsl_integration_workspace_rlist_set) {
2991 {
2992 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
2993 double *arg2 = (double *) 0 ;
2994 void *argp1 = 0 ;
2995 int res1 = 0 ;
2996 void *argp2 = 0 ;
2997 int res2 = 0 ;
2998 int argvi = 0;
2999 dXSARGS;
3000
3001 if ((items < 2) || (items > 2)) {
3002 SWIG_croak("Usage: gsl_integration_workspace_rlist_set(self,rlist);");
3003 }
3004 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
3005 if (!SWIG_IsOK(res1)) {
3006 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_rlist_set" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
3007 }
3008 arg1 = (gsl_integration_workspace *)(argp1);
3009 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
3010 if (!SWIG_IsOK(res2)) {
3011 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_workspace_rlist_set" "', argument " "2"" of type '" "double *""'");
3012 }
3013 arg2 = (double *)(argp2);
3014 if (arg1) (arg1)->rlist = arg2;
3015 ST(argvi) = &PL_sv_undef;
3016
3017
3018 XSRETURN(argvi);
3019 fail:
3020
3021
3022 SWIG_croak_null();
3023 }
3024 }
3025
3026
XS(_wrap_gsl_integration_workspace_rlist_get)3027 XS(_wrap_gsl_integration_workspace_rlist_get) {
3028 {
3029 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
3030 void *argp1 = 0 ;
3031 int res1 = 0 ;
3032 int argvi = 0;
3033 double *result = 0 ;
3034 dXSARGS;
3035
3036 if ((items < 1) || (items > 1)) {
3037 SWIG_croak("Usage: gsl_integration_workspace_rlist_get(self);");
3038 }
3039 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
3040 if (!SWIG_IsOK(res1)) {
3041 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_rlist_get" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
3042 }
3043 arg1 = (gsl_integration_workspace *)(argp1);
3044 result = (double *) ((arg1)->rlist);
3045 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
3046
3047 XSRETURN(argvi);
3048 fail:
3049
3050 SWIG_croak_null();
3051 }
3052 }
3053
3054
XS(_wrap_gsl_integration_workspace_elist_set)3055 XS(_wrap_gsl_integration_workspace_elist_set) {
3056 {
3057 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
3058 double *arg2 = (double *) 0 ;
3059 void *argp1 = 0 ;
3060 int res1 = 0 ;
3061 void *argp2 = 0 ;
3062 int res2 = 0 ;
3063 int argvi = 0;
3064 dXSARGS;
3065
3066 if ((items < 2) || (items > 2)) {
3067 SWIG_croak("Usage: gsl_integration_workspace_elist_set(self,elist);");
3068 }
3069 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
3070 if (!SWIG_IsOK(res1)) {
3071 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_elist_set" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
3072 }
3073 arg1 = (gsl_integration_workspace *)(argp1);
3074 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
3075 if (!SWIG_IsOK(res2)) {
3076 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_workspace_elist_set" "', argument " "2"" of type '" "double *""'");
3077 }
3078 arg2 = (double *)(argp2);
3079 if (arg1) (arg1)->elist = arg2;
3080 ST(argvi) = &PL_sv_undef;
3081
3082
3083 XSRETURN(argvi);
3084 fail:
3085
3086
3087 SWIG_croak_null();
3088 }
3089 }
3090
3091
XS(_wrap_gsl_integration_workspace_elist_get)3092 XS(_wrap_gsl_integration_workspace_elist_get) {
3093 {
3094 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
3095 void *argp1 = 0 ;
3096 int res1 = 0 ;
3097 int argvi = 0;
3098 double *result = 0 ;
3099 dXSARGS;
3100
3101 if ((items < 1) || (items > 1)) {
3102 SWIG_croak("Usage: gsl_integration_workspace_elist_get(self);");
3103 }
3104 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
3105 if (!SWIG_IsOK(res1)) {
3106 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_elist_get" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
3107 }
3108 arg1 = (gsl_integration_workspace *)(argp1);
3109 result = (double *) ((arg1)->elist);
3110 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
3111
3112 XSRETURN(argvi);
3113 fail:
3114
3115 SWIG_croak_null();
3116 }
3117 }
3118
3119
XS(_wrap_gsl_integration_workspace_order_set)3120 XS(_wrap_gsl_integration_workspace_order_set) {
3121 {
3122 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
3123 size_t *arg2 = (size_t *) 0 ;
3124 void *argp1 = 0 ;
3125 int res1 = 0 ;
3126 void *argp2 = 0 ;
3127 int res2 = 0 ;
3128 int argvi = 0;
3129 dXSARGS;
3130
3131 if ((items < 2) || (items > 2)) {
3132 SWIG_croak("Usage: gsl_integration_workspace_order_set(self,order);");
3133 }
3134 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
3135 if (!SWIG_IsOK(res1)) {
3136 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_order_set" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
3137 }
3138 arg1 = (gsl_integration_workspace *)(argp1);
3139 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_size_t, SWIG_POINTER_DISOWN | 0 );
3140 if (!SWIG_IsOK(res2)) {
3141 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_workspace_order_set" "', argument " "2"" of type '" "size_t *""'");
3142 }
3143 arg2 = (size_t *)(argp2);
3144 if (arg1) (arg1)->order = arg2;
3145 ST(argvi) = &PL_sv_undef;
3146
3147
3148 XSRETURN(argvi);
3149 fail:
3150
3151
3152 SWIG_croak_null();
3153 }
3154 }
3155
3156
XS(_wrap_gsl_integration_workspace_order_get)3157 XS(_wrap_gsl_integration_workspace_order_get) {
3158 {
3159 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
3160 void *argp1 = 0 ;
3161 int res1 = 0 ;
3162 int argvi = 0;
3163 size_t *result = 0 ;
3164 dXSARGS;
3165
3166 if ((items < 1) || (items > 1)) {
3167 SWIG_croak("Usage: gsl_integration_workspace_order_get(self);");
3168 }
3169 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
3170 if (!SWIG_IsOK(res1)) {
3171 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_order_get" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
3172 }
3173 arg1 = (gsl_integration_workspace *)(argp1);
3174 result = (size_t *) ((arg1)->order);
3175 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_size_t, 0 | 0); argvi++ ;
3176
3177 XSRETURN(argvi);
3178 fail:
3179
3180 SWIG_croak_null();
3181 }
3182 }
3183
3184
XS(_wrap_gsl_integration_workspace_level_set)3185 XS(_wrap_gsl_integration_workspace_level_set) {
3186 {
3187 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
3188 size_t *arg2 = (size_t *) 0 ;
3189 void *argp1 = 0 ;
3190 int res1 = 0 ;
3191 void *argp2 = 0 ;
3192 int res2 = 0 ;
3193 int argvi = 0;
3194 dXSARGS;
3195
3196 if ((items < 2) || (items > 2)) {
3197 SWIG_croak("Usage: gsl_integration_workspace_level_set(self,level);");
3198 }
3199 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
3200 if (!SWIG_IsOK(res1)) {
3201 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_level_set" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
3202 }
3203 arg1 = (gsl_integration_workspace *)(argp1);
3204 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_size_t, SWIG_POINTER_DISOWN | 0 );
3205 if (!SWIG_IsOK(res2)) {
3206 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_workspace_level_set" "', argument " "2"" of type '" "size_t *""'");
3207 }
3208 arg2 = (size_t *)(argp2);
3209 if (arg1) (arg1)->level = arg2;
3210 ST(argvi) = &PL_sv_undef;
3211
3212
3213 XSRETURN(argvi);
3214 fail:
3215
3216
3217 SWIG_croak_null();
3218 }
3219 }
3220
3221
XS(_wrap_gsl_integration_workspace_level_get)3222 XS(_wrap_gsl_integration_workspace_level_get) {
3223 {
3224 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
3225 void *argp1 = 0 ;
3226 int res1 = 0 ;
3227 int argvi = 0;
3228 size_t *result = 0 ;
3229 dXSARGS;
3230
3231 if ((items < 1) || (items > 1)) {
3232 SWIG_croak("Usage: gsl_integration_workspace_level_get(self);");
3233 }
3234 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
3235 if (!SWIG_IsOK(res1)) {
3236 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_level_get" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
3237 }
3238 arg1 = (gsl_integration_workspace *)(argp1);
3239 result = (size_t *) ((arg1)->level);
3240 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_size_t, 0 | 0); argvi++ ;
3241
3242 XSRETURN(argvi);
3243 fail:
3244
3245 SWIG_croak_null();
3246 }
3247 }
3248
3249
XS(_wrap_new_gsl_integration_workspace)3250 XS(_wrap_new_gsl_integration_workspace) {
3251 {
3252 int argvi = 0;
3253 gsl_integration_workspace *result = 0 ;
3254 dXSARGS;
3255
3256 if ((items < 0) || (items > 0)) {
3257 SWIG_croak("Usage: new_gsl_integration_workspace();");
3258 }
3259 result = (gsl_integration_workspace *)calloc(1, sizeof(gsl_integration_workspace));
3260 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_integration_workspace, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
3261 XSRETURN(argvi);
3262 fail:
3263 SWIG_croak_null();
3264 }
3265 }
3266
3267
XS(_wrap_delete_gsl_integration_workspace)3268 XS(_wrap_delete_gsl_integration_workspace) {
3269 {
3270 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
3271 void *argp1 = 0 ;
3272 int res1 = 0 ;
3273 int argvi = 0;
3274 dXSARGS;
3275
3276 if ((items < 1) || (items > 1)) {
3277 SWIG_croak("Usage: delete_gsl_integration_workspace(self);");
3278 }
3279 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, SWIG_POINTER_DISOWN | 0 );
3280 if (!SWIG_IsOK(res1)) {
3281 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_integration_workspace" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
3282 }
3283 arg1 = (gsl_integration_workspace *)(argp1);
3284 free((char *) arg1);
3285 ST(argvi) = &PL_sv_undef;
3286
3287 XSRETURN(argvi);
3288 fail:
3289
3290 SWIG_croak_null();
3291 }
3292 }
3293
3294
XS(_wrap_gsl_integration_workspace_alloc)3295 XS(_wrap_gsl_integration_workspace_alloc) {
3296 {
3297 size_t arg1 ;
3298 size_t val1 ;
3299 int ecode1 = 0 ;
3300 int argvi = 0;
3301 gsl_integration_workspace *result = 0 ;
3302 dXSARGS;
3303
3304 if ((items < 1) || (items > 1)) {
3305 SWIG_croak("Usage: gsl_integration_workspace_alloc(n);");
3306 }
3307 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
3308 if (!SWIG_IsOK(ecode1)) {
3309 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_integration_workspace_alloc" "', argument " "1"" of type '" "size_t""'");
3310 }
3311 arg1 = (size_t)(val1);
3312 result = (gsl_integration_workspace *)gsl_integration_workspace_alloc(arg1);
3313 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_integration_workspace, 0 | SWIG_SHADOW); argvi++ ;
3314
3315 XSRETURN(argvi);
3316 fail:
3317
3318 SWIG_croak_null();
3319 }
3320 }
3321
3322
XS(_wrap_gsl_integration_workspace_free)3323 XS(_wrap_gsl_integration_workspace_free) {
3324 {
3325 gsl_integration_workspace *arg1 = (gsl_integration_workspace *) 0 ;
3326 void *argp1 = 0 ;
3327 int res1 = 0 ;
3328 int argvi = 0;
3329 dXSARGS;
3330
3331 if ((items < 1) || (items > 1)) {
3332 SWIG_croak("Usage: gsl_integration_workspace_free(w);");
3333 }
3334 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
3335 if (!SWIG_IsOK(res1)) {
3336 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_workspace_free" "', argument " "1"" of type '" "gsl_integration_workspace *""'");
3337 }
3338 arg1 = (gsl_integration_workspace *)(argp1);
3339 gsl_integration_workspace_free(arg1);
3340 ST(argvi) = &PL_sv_undef;
3341
3342 XSRETURN(argvi);
3343 fail:
3344
3345 SWIG_croak_null();
3346 }
3347 }
3348
3349
XS(_wrap_gsl_integration_qaws_table_alpha_set)3350 XS(_wrap_gsl_integration_qaws_table_alpha_set) {
3351 {
3352 gsl_integration_qaws_table *arg1 = (gsl_integration_qaws_table *) 0 ;
3353 double arg2 ;
3354 void *argp1 = 0 ;
3355 int res1 = 0 ;
3356 double val2 ;
3357 int ecode2 = 0 ;
3358 int argvi = 0;
3359 dXSARGS;
3360
3361 if ((items < 2) || (items > 2)) {
3362 SWIG_croak("Usage: gsl_integration_qaws_table_alpha_set(self,alpha);");
3363 }
3364 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qaws_table, 0 | 0 );
3365 if (!SWIG_IsOK(res1)) {
3366 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qaws_table_alpha_set" "', argument " "1"" of type '" "gsl_integration_qaws_table *""'");
3367 }
3368 arg1 = (gsl_integration_qaws_table *)(argp1);
3369 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
3370 if (!SWIG_IsOK(ecode2)) {
3371 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qaws_table_alpha_set" "', argument " "2"" of type '" "double""'");
3372 }
3373 arg2 = (double)(val2);
3374 if (arg1) (arg1)->alpha = arg2;
3375 ST(argvi) = &PL_sv_undef;
3376
3377
3378 XSRETURN(argvi);
3379 fail:
3380
3381
3382 SWIG_croak_null();
3383 }
3384 }
3385
3386
XS(_wrap_gsl_integration_qaws_table_alpha_get)3387 XS(_wrap_gsl_integration_qaws_table_alpha_get) {
3388 {
3389 gsl_integration_qaws_table *arg1 = (gsl_integration_qaws_table *) 0 ;
3390 void *argp1 = 0 ;
3391 int res1 = 0 ;
3392 int argvi = 0;
3393 double result;
3394 dXSARGS;
3395
3396 if ((items < 1) || (items > 1)) {
3397 SWIG_croak("Usage: gsl_integration_qaws_table_alpha_get(self);");
3398 }
3399 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qaws_table, 0 | 0 );
3400 if (!SWIG_IsOK(res1)) {
3401 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qaws_table_alpha_get" "', argument " "1"" of type '" "gsl_integration_qaws_table *""'");
3402 }
3403 arg1 = (gsl_integration_qaws_table *)(argp1);
3404 result = (double) ((arg1)->alpha);
3405 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
3406
3407 XSRETURN(argvi);
3408 fail:
3409
3410 SWIG_croak_null();
3411 }
3412 }
3413
3414
XS(_wrap_gsl_integration_qaws_table_beta_set)3415 XS(_wrap_gsl_integration_qaws_table_beta_set) {
3416 {
3417 gsl_integration_qaws_table *arg1 = (gsl_integration_qaws_table *) 0 ;
3418 double arg2 ;
3419 void *argp1 = 0 ;
3420 int res1 = 0 ;
3421 double val2 ;
3422 int ecode2 = 0 ;
3423 int argvi = 0;
3424 dXSARGS;
3425
3426 if ((items < 2) || (items > 2)) {
3427 SWIG_croak("Usage: gsl_integration_qaws_table_beta_set(self,beta);");
3428 }
3429 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qaws_table, 0 | 0 );
3430 if (!SWIG_IsOK(res1)) {
3431 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qaws_table_beta_set" "', argument " "1"" of type '" "gsl_integration_qaws_table *""'");
3432 }
3433 arg1 = (gsl_integration_qaws_table *)(argp1);
3434 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
3435 if (!SWIG_IsOK(ecode2)) {
3436 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qaws_table_beta_set" "', argument " "2"" of type '" "double""'");
3437 }
3438 arg2 = (double)(val2);
3439 if (arg1) (arg1)->beta = arg2;
3440 ST(argvi) = &PL_sv_undef;
3441
3442
3443 XSRETURN(argvi);
3444 fail:
3445
3446
3447 SWIG_croak_null();
3448 }
3449 }
3450
3451
XS(_wrap_gsl_integration_qaws_table_beta_get)3452 XS(_wrap_gsl_integration_qaws_table_beta_get) {
3453 {
3454 gsl_integration_qaws_table *arg1 = (gsl_integration_qaws_table *) 0 ;
3455 void *argp1 = 0 ;
3456 int res1 = 0 ;
3457 int argvi = 0;
3458 double result;
3459 dXSARGS;
3460
3461 if ((items < 1) || (items > 1)) {
3462 SWIG_croak("Usage: gsl_integration_qaws_table_beta_get(self);");
3463 }
3464 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qaws_table, 0 | 0 );
3465 if (!SWIG_IsOK(res1)) {
3466 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qaws_table_beta_get" "', argument " "1"" of type '" "gsl_integration_qaws_table *""'");
3467 }
3468 arg1 = (gsl_integration_qaws_table *)(argp1);
3469 result = (double) ((arg1)->beta);
3470 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
3471
3472 XSRETURN(argvi);
3473 fail:
3474
3475 SWIG_croak_null();
3476 }
3477 }
3478
3479
XS(_wrap_gsl_integration_qaws_table_mu_set)3480 XS(_wrap_gsl_integration_qaws_table_mu_set) {
3481 {
3482 gsl_integration_qaws_table *arg1 = (gsl_integration_qaws_table *) 0 ;
3483 int arg2 ;
3484 void *argp1 = 0 ;
3485 int res1 = 0 ;
3486 int val2 ;
3487 int ecode2 = 0 ;
3488 int argvi = 0;
3489 dXSARGS;
3490
3491 if ((items < 2) || (items > 2)) {
3492 SWIG_croak("Usage: gsl_integration_qaws_table_mu_set(self,mu);");
3493 }
3494 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qaws_table, 0 | 0 );
3495 if (!SWIG_IsOK(res1)) {
3496 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qaws_table_mu_set" "', argument " "1"" of type '" "gsl_integration_qaws_table *""'");
3497 }
3498 arg1 = (gsl_integration_qaws_table *)(argp1);
3499 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
3500 if (!SWIG_IsOK(ecode2)) {
3501 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qaws_table_mu_set" "', argument " "2"" of type '" "int""'");
3502 }
3503 arg2 = (int)(val2);
3504 if (arg1) (arg1)->mu = arg2;
3505 ST(argvi) = &PL_sv_undef;
3506
3507
3508 XSRETURN(argvi);
3509 fail:
3510
3511
3512 SWIG_croak_null();
3513 }
3514 }
3515
3516
XS(_wrap_gsl_integration_qaws_table_mu_get)3517 XS(_wrap_gsl_integration_qaws_table_mu_get) {
3518 {
3519 gsl_integration_qaws_table *arg1 = (gsl_integration_qaws_table *) 0 ;
3520 void *argp1 = 0 ;
3521 int res1 = 0 ;
3522 int argvi = 0;
3523 int result;
3524 dXSARGS;
3525
3526 if ((items < 1) || (items > 1)) {
3527 SWIG_croak("Usage: gsl_integration_qaws_table_mu_get(self);");
3528 }
3529 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qaws_table, 0 | 0 );
3530 if (!SWIG_IsOK(res1)) {
3531 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qaws_table_mu_get" "', argument " "1"" of type '" "gsl_integration_qaws_table *""'");
3532 }
3533 arg1 = (gsl_integration_qaws_table *)(argp1);
3534 result = (int) ((arg1)->mu);
3535 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3536
3537 XSRETURN(argvi);
3538 fail:
3539
3540 SWIG_croak_null();
3541 }
3542 }
3543
3544
XS(_wrap_gsl_integration_qaws_table_nu_set)3545 XS(_wrap_gsl_integration_qaws_table_nu_set) {
3546 {
3547 gsl_integration_qaws_table *arg1 = (gsl_integration_qaws_table *) 0 ;
3548 int arg2 ;
3549 void *argp1 = 0 ;
3550 int res1 = 0 ;
3551 int val2 ;
3552 int ecode2 = 0 ;
3553 int argvi = 0;
3554 dXSARGS;
3555
3556 if ((items < 2) || (items > 2)) {
3557 SWIG_croak("Usage: gsl_integration_qaws_table_nu_set(self,nu);");
3558 }
3559 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qaws_table, 0 | 0 );
3560 if (!SWIG_IsOK(res1)) {
3561 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qaws_table_nu_set" "', argument " "1"" of type '" "gsl_integration_qaws_table *""'");
3562 }
3563 arg1 = (gsl_integration_qaws_table *)(argp1);
3564 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
3565 if (!SWIG_IsOK(ecode2)) {
3566 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qaws_table_nu_set" "', argument " "2"" of type '" "int""'");
3567 }
3568 arg2 = (int)(val2);
3569 if (arg1) (arg1)->nu = arg2;
3570 ST(argvi) = &PL_sv_undef;
3571
3572
3573 XSRETURN(argvi);
3574 fail:
3575
3576
3577 SWIG_croak_null();
3578 }
3579 }
3580
3581
XS(_wrap_gsl_integration_qaws_table_nu_get)3582 XS(_wrap_gsl_integration_qaws_table_nu_get) {
3583 {
3584 gsl_integration_qaws_table *arg1 = (gsl_integration_qaws_table *) 0 ;
3585 void *argp1 = 0 ;
3586 int res1 = 0 ;
3587 int argvi = 0;
3588 int result;
3589 dXSARGS;
3590
3591 if ((items < 1) || (items > 1)) {
3592 SWIG_croak("Usage: gsl_integration_qaws_table_nu_get(self);");
3593 }
3594 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qaws_table, 0 | 0 );
3595 if (!SWIG_IsOK(res1)) {
3596 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qaws_table_nu_get" "', argument " "1"" of type '" "gsl_integration_qaws_table *""'");
3597 }
3598 arg1 = (gsl_integration_qaws_table *)(argp1);
3599 result = (int) ((arg1)->nu);
3600 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3601
3602 XSRETURN(argvi);
3603 fail:
3604
3605 SWIG_croak_null();
3606 }
3607 }
3608
3609
XS(_wrap_gsl_integration_qaws_table_ri_set)3610 XS(_wrap_gsl_integration_qaws_table_ri_set) {
3611 {
3612 gsl_integration_qaws_table *arg1 = (gsl_integration_qaws_table *) 0 ;
3613 double *arg2 ;
3614 void *argp1 = 0 ;
3615 int res1 = 0 ;
3616 void *argp2 = 0 ;
3617 int res2 = 0 ;
3618 int argvi = 0;
3619 dXSARGS;
3620
3621 if ((items < 2) || (items > 2)) {
3622 SWIG_croak("Usage: gsl_integration_qaws_table_ri_set(self,ri);");
3623 }
3624 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qaws_table, 0 | 0 );
3625 if (!SWIG_IsOK(res1)) {
3626 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qaws_table_ri_set" "', argument " "1"" of type '" "gsl_integration_qaws_table *""'");
3627 }
3628 arg1 = (gsl_integration_qaws_table *)(argp1);
3629 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
3630 if (!SWIG_IsOK(res2)) {
3631 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_qaws_table_ri_set" "', argument " "2"" of type '" "double [25]""'");
3632 }
3633 arg2 = (double *)(argp2);
3634 {
3635 if (arg2) {
3636 size_t ii = 0;
3637 for (; ii < (size_t)25; ++ii) *(double *)&arg1->ri[ii] = *((double *)arg2 + ii);
3638 } else {
3639 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""ri""' of type '""double [25]""'");
3640 }
3641 }
3642 ST(argvi) = &PL_sv_undef;
3643
3644
3645 XSRETURN(argvi);
3646 fail:
3647
3648
3649 SWIG_croak_null();
3650 }
3651 }
3652
3653
XS(_wrap_gsl_integration_qaws_table_ri_get)3654 XS(_wrap_gsl_integration_qaws_table_ri_get) {
3655 {
3656 gsl_integration_qaws_table *arg1 = (gsl_integration_qaws_table *) 0 ;
3657 void *argp1 = 0 ;
3658 int res1 = 0 ;
3659 int argvi = 0;
3660 double *result = 0 ;
3661 dXSARGS;
3662
3663 if ((items < 1) || (items > 1)) {
3664 SWIG_croak("Usage: gsl_integration_qaws_table_ri_get(self);");
3665 }
3666 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qaws_table, 0 | 0 );
3667 if (!SWIG_IsOK(res1)) {
3668 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qaws_table_ri_get" "', argument " "1"" of type '" "gsl_integration_qaws_table *""'");
3669 }
3670 arg1 = (gsl_integration_qaws_table *)(argp1);
3671 result = (double *)(double *) ((arg1)->ri);
3672 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
3673
3674 XSRETURN(argvi);
3675 fail:
3676
3677 SWIG_croak_null();
3678 }
3679 }
3680
3681
XS(_wrap_gsl_integration_qaws_table_rj_set)3682 XS(_wrap_gsl_integration_qaws_table_rj_set) {
3683 {
3684 gsl_integration_qaws_table *arg1 = (gsl_integration_qaws_table *) 0 ;
3685 double *arg2 ;
3686 void *argp1 = 0 ;
3687 int res1 = 0 ;
3688 void *argp2 = 0 ;
3689 int res2 = 0 ;
3690 int argvi = 0;
3691 dXSARGS;
3692
3693 if ((items < 2) || (items > 2)) {
3694 SWIG_croak("Usage: gsl_integration_qaws_table_rj_set(self,rj);");
3695 }
3696 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qaws_table, 0 | 0 );
3697 if (!SWIG_IsOK(res1)) {
3698 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qaws_table_rj_set" "', argument " "1"" of type '" "gsl_integration_qaws_table *""'");
3699 }
3700 arg1 = (gsl_integration_qaws_table *)(argp1);
3701 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
3702 if (!SWIG_IsOK(res2)) {
3703 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_qaws_table_rj_set" "', argument " "2"" of type '" "double [25]""'");
3704 }
3705 arg2 = (double *)(argp2);
3706 {
3707 if (arg2) {
3708 size_t ii = 0;
3709 for (; ii < (size_t)25; ++ii) *(double *)&arg1->rj[ii] = *((double *)arg2 + ii);
3710 } else {
3711 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""rj""' of type '""double [25]""'");
3712 }
3713 }
3714 ST(argvi) = &PL_sv_undef;
3715
3716
3717 XSRETURN(argvi);
3718 fail:
3719
3720
3721 SWIG_croak_null();
3722 }
3723 }
3724
3725
XS(_wrap_gsl_integration_qaws_table_rj_get)3726 XS(_wrap_gsl_integration_qaws_table_rj_get) {
3727 {
3728 gsl_integration_qaws_table *arg1 = (gsl_integration_qaws_table *) 0 ;
3729 void *argp1 = 0 ;
3730 int res1 = 0 ;
3731 int argvi = 0;
3732 double *result = 0 ;
3733 dXSARGS;
3734
3735 if ((items < 1) || (items > 1)) {
3736 SWIG_croak("Usage: gsl_integration_qaws_table_rj_get(self);");
3737 }
3738 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qaws_table, 0 | 0 );
3739 if (!SWIG_IsOK(res1)) {
3740 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qaws_table_rj_get" "', argument " "1"" of type '" "gsl_integration_qaws_table *""'");
3741 }
3742 arg1 = (gsl_integration_qaws_table *)(argp1);
3743 result = (double *)(double *) ((arg1)->rj);
3744 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
3745
3746 XSRETURN(argvi);
3747 fail:
3748
3749 SWIG_croak_null();
3750 }
3751 }
3752
3753
XS(_wrap_gsl_integration_qaws_table_rg_set)3754 XS(_wrap_gsl_integration_qaws_table_rg_set) {
3755 {
3756 gsl_integration_qaws_table *arg1 = (gsl_integration_qaws_table *) 0 ;
3757 double *arg2 ;
3758 void *argp1 = 0 ;
3759 int res1 = 0 ;
3760 void *argp2 = 0 ;
3761 int res2 = 0 ;
3762 int argvi = 0;
3763 dXSARGS;
3764
3765 if ((items < 2) || (items > 2)) {
3766 SWIG_croak("Usage: gsl_integration_qaws_table_rg_set(self,rg);");
3767 }
3768 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qaws_table, 0 | 0 );
3769 if (!SWIG_IsOK(res1)) {
3770 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qaws_table_rg_set" "', argument " "1"" of type '" "gsl_integration_qaws_table *""'");
3771 }
3772 arg1 = (gsl_integration_qaws_table *)(argp1);
3773 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
3774 if (!SWIG_IsOK(res2)) {
3775 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_qaws_table_rg_set" "', argument " "2"" of type '" "double [25]""'");
3776 }
3777 arg2 = (double *)(argp2);
3778 {
3779 if (arg2) {
3780 size_t ii = 0;
3781 for (; ii < (size_t)25; ++ii) *(double *)&arg1->rg[ii] = *((double *)arg2 + ii);
3782 } else {
3783 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""rg""' of type '""double [25]""'");
3784 }
3785 }
3786 ST(argvi) = &PL_sv_undef;
3787
3788
3789 XSRETURN(argvi);
3790 fail:
3791
3792
3793 SWIG_croak_null();
3794 }
3795 }
3796
3797
XS(_wrap_gsl_integration_qaws_table_rg_get)3798 XS(_wrap_gsl_integration_qaws_table_rg_get) {
3799 {
3800 gsl_integration_qaws_table *arg1 = (gsl_integration_qaws_table *) 0 ;
3801 void *argp1 = 0 ;
3802 int res1 = 0 ;
3803 int argvi = 0;
3804 double *result = 0 ;
3805 dXSARGS;
3806
3807 if ((items < 1) || (items > 1)) {
3808 SWIG_croak("Usage: gsl_integration_qaws_table_rg_get(self);");
3809 }
3810 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qaws_table, 0 | 0 );
3811 if (!SWIG_IsOK(res1)) {
3812 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qaws_table_rg_get" "', argument " "1"" of type '" "gsl_integration_qaws_table *""'");
3813 }
3814 arg1 = (gsl_integration_qaws_table *)(argp1);
3815 result = (double *)(double *) ((arg1)->rg);
3816 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
3817
3818 XSRETURN(argvi);
3819 fail:
3820
3821 SWIG_croak_null();
3822 }
3823 }
3824
3825
XS(_wrap_gsl_integration_qaws_table_rh_set)3826 XS(_wrap_gsl_integration_qaws_table_rh_set) {
3827 {
3828 gsl_integration_qaws_table *arg1 = (gsl_integration_qaws_table *) 0 ;
3829 double *arg2 ;
3830 void *argp1 = 0 ;
3831 int res1 = 0 ;
3832 void *argp2 = 0 ;
3833 int res2 = 0 ;
3834 int argvi = 0;
3835 dXSARGS;
3836
3837 if ((items < 2) || (items > 2)) {
3838 SWIG_croak("Usage: gsl_integration_qaws_table_rh_set(self,rh);");
3839 }
3840 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qaws_table, 0 | 0 );
3841 if (!SWIG_IsOK(res1)) {
3842 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qaws_table_rh_set" "', argument " "1"" of type '" "gsl_integration_qaws_table *""'");
3843 }
3844 arg1 = (gsl_integration_qaws_table *)(argp1);
3845 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
3846 if (!SWIG_IsOK(res2)) {
3847 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_qaws_table_rh_set" "', argument " "2"" of type '" "double [25]""'");
3848 }
3849 arg2 = (double *)(argp2);
3850 {
3851 if (arg2) {
3852 size_t ii = 0;
3853 for (; ii < (size_t)25; ++ii) *(double *)&arg1->rh[ii] = *((double *)arg2 + ii);
3854 } else {
3855 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""rh""' of type '""double [25]""'");
3856 }
3857 }
3858 ST(argvi) = &PL_sv_undef;
3859
3860
3861 XSRETURN(argvi);
3862 fail:
3863
3864
3865 SWIG_croak_null();
3866 }
3867 }
3868
3869
XS(_wrap_gsl_integration_qaws_table_rh_get)3870 XS(_wrap_gsl_integration_qaws_table_rh_get) {
3871 {
3872 gsl_integration_qaws_table *arg1 = (gsl_integration_qaws_table *) 0 ;
3873 void *argp1 = 0 ;
3874 int res1 = 0 ;
3875 int argvi = 0;
3876 double *result = 0 ;
3877 dXSARGS;
3878
3879 if ((items < 1) || (items > 1)) {
3880 SWIG_croak("Usage: gsl_integration_qaws_table_rh_get(self);");
3881 }
3882 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qaws_table, 0 | 0 );
3883 if (!SWIG_IsOK(res1)) {
3884 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qaws_table_rh_get" "', argument " "1"" of type '" "gsl_integration_qaws_table *""'");
3885 }
3886 arg1 = (gsl_integration_qaws_table *)(argp1);
3887 result = (double *)(double *) ((arg1)->rh);
3888 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
3889
3890 XSRETURN(argvi);
3891 fail:
3892
3893 SWIG_croak_null();
3894 }
3895 }
3896
3897
XS(_wrap_new_gsl_integration_qaws_table)3898 XS(_wrap_new_gsl_integration_qaws_table) {
3899 {
3900 int argvi = 0;
3901 gsl_integration_qaws_table *result = 0 ;
3902 dXSARGS;
3903
3904 if ((items < 0) || (items > 0)) {
3905 SWIG_croak("Usage: new_gsl_integration_qaws_table();");
3906 }
3907 result = (gsl_integration_qaws_table *)calloc(1, sizeof(gsl_integration_qaws_table));
3908 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_integration_qaws_table, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
3909 XSRETURN(argvi);
3910 fail:
3911 SWIG_croak_null();
3912 }
3913 }
3914
3915
XS(_wrap_delete_gsl_integration_qaws_table)3916 XS(_wrap_delete_gsl_integration_qaws_table) {
3917 {
3918 gsl_integration_qaws_table *arg1 = (gsl_integration_qaws_table *) 0 ;
3919 void *argp1 = 0 ;
3920 int res1 = 0 ;
3921 int argvi = 0;
3922 dXSARGS;
3923
3924 if ((items < 1) || (items > 1)) {
3925 SWIG_croak("Usage: delete_gsl_integration_qaws_table(self);");
3926 }
3927 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qaws_table, SWIG_POINTER_DISOWN | 0 );
3928 if (!SWIG_IsOK(res1)) {
3929 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_integration_qaws_table" "', argument " "1"" of type '" "gsl_integration_qaws_table *""'");
3930 }
3931 arg1 = (gsl_integration_qaws_table *)(argp1);
3932 free((char *) arg1);
3933 ST(argvi) = &PL_sv_undef;
3934
3935 XSRETURN(argvi);
3936 fail:
3937
3938 SWIG_croak_null();
3939 }
3940 }
3941
3942
XS(_wrap_gsl_integration_qaws_table_alloc)3943 XS(_wrap_gsl_integration_qaws_table_alloc) {
3944 {
3945 double arg1 ;
3946 double arg2 ;
3947 int arg3 ;
3948 int arg4 ;
3949 double val1 ;
3950 int ecode1 = 0 ;
3951 double val2 ;
3952 int ecode2 = 0 ;
3953 int val3 ;
3954 int ecode3 = 0 ;
3955 int val4 ;
3956 int ecode4 = 0 ;
3957 int argvi = 0;
3958 gsl_integration_qaws_table *result = 0 ;
3959 dXSARGS;
3960
3961 if ((items < 4) || (items > 4)) {
3962 SWIG_croak("Usage: gsl_integration_qaws_table_alloc(alpha,beta,mu,nu);");
3963 }
3964 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
3965 if (!SWIG_IsOK(ecode1)) {
3966 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_integration_qaws_table_alloc" "', argument " "1"" of type '" "double""'");
3967 }
3968 arg1 = (double)(val1);
3969 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
3970 if (!SWIG_IsOK(ecode2)) {
3971 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qaws_table_alloc" "', argument " "2"" of type '" "double""'");
3972 }
3973 arg2 = (double)(val2);
3974 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
3975 if (!SWIG_IsOK(ecode3)) {
3976 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qaws_table_alloc" "', argument " "3"" of type '" "int""'");
3977 }
3978 arg3 = (int)(val3);
3979 ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
3980 if (!SWIG_IsOK(ecode4)) {
3981 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_integration_qaws_table_alloc" "', argument " "4"" of type '" "int""'");
3982 }
3983 arg4 = (int)(val4);
3984 result = (gsl_integration_qaws_table *)gsl_integration_qaws_table_alloc(arg1,arg2,arg3,arg4);
3985 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_integration_qaws_table, 0 | SWIG_SHADOW); argvi++ ;
3986
3987
3988
3989
3990 XSRETURN(argvi);
3991 fail:
3992
3993
3994
3995
3996 SWIG_croak_null();
3997 }
3998 }
3999
4000
XS(_wrap_gsl_integration_qaws_table_set)4001 XS(_wrap_gsl_integration_qaws_table_set) {
4002 {
4003 gsl_integration_qaws_table *arg1 = (gsl_integration_qaws_table *) 0 ;
4004 double arg2 ;
4005 double arg3 ;
4006 int arg4 ;
4007 int arg5 ;
4008 void *argp1 = 0 ;
4009 int res1 = 0 ;
4010 double val2 ;
4011 int ecode2 = 0 ;
4012 double val3 ;
4013 int ecode3 = 0 ;
4014 int val4 ;
4015 int ecode4 = 0 ;
4016 int val5 ;
4017 int ecode5 = 0 ;
4018 int argvi = 0;
4019 int result;
4020 dXSARGS;
4021
4022 if ((items < 5) || (items > 5)) {
4023 SWIG_croak("Usage: gsl_integration_qaws_table_set(t,alpha,beta,mu,nu);");
4024 }
4025 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qaws_table, 0 | 0 );
4026 if (!SWIG_IsOK(res1)) {
4027 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qaws_table_set" "', argument " "1"" of type '" "gsl_integration_qaws_table *""'");
4028 }
4029 arg1 = (gsl_integration_qaws_table *)(argp1);
4030 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4031 if (!SWIG_IsOK(ecode2)) {
4032 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qaws_table_set" "', argument " "2"" of type '" "double""'");
4033 }
4034 arg2 = (double)(val2);
4035 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
4036 if (!SWIG_IsOK(ecode3)) {
4037 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qaws_table_set" "', argument " "3"" of type '" "double""'");
4038 }
4039 arg3 = (double)(val3);
4040 ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
4041 if (!SWIG_IsOK(ecode4)) {
4042 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_integration_qaws_table_set" "', argument " "4"" of type '" "int""'");
4043 }
4044 arg4 = (int)(val4);
4045 ecode5 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
4046 if (!SWIG_IsOK(ecode5)) {
4047 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_integration_qaws_table_set" "', argument " "5"" of type '" "int""'");
4048 }
4049 arg5 = (int)(val5);
4050 result = (int)gsl_integration_qaws_table_set(arg1,arg2,arg3,arg4,arg5);
4051 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4052
4053
4054
4055
4056
4057 XSRETURN(argvi);
4058 fail:
4059
4060
4061
4062
4063
4064 SWIG_croak_null();
4065 }
4066 }
4067
4068
XS(_wrap_gsl_integration_qaws_table_free)4069 XS(_wrap_gsl_integration_qaws_table_free) {
4070 {
4071 gsl_integration_qaws_table *arg1 = (gsl_integration_qaws_table *) 0 ;
4072 void *argp1 = 0 ;
4073 int res1 = 0 ;
4074 int argvi = 0;
4075 dXSARGS;
4076
4077 if ((items < 1) || (items > 1)) {
4078 SWIG_croak("Usage: gsl_integration_qaws_table_free(t);");
4079 }
4080 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qaws_table, 0 | 0 );
4081 if (!SWIG_IsOK(res1)) {
4082 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qaws_table_free" "', argument " "1"" of type '" "gsl_integration_qaws_table *""'");
4083 }
4084 arg1 = (gsl_integration_qaws_table *)(argp1);
4085 gsl_integration_qaws_table_free(arg1);
4086 ST(argvi) = &PL_sv_undef;
4087
4088 XSRETURN(argvi);
4089 fail:
4090
4091 SWIG_croak_null();
4092 }
4093 }
4094
4095
XS(_wrap_gsl_integration_qawo_table_n_set)4096 XS(_wrap_gsl_integration_qawo_table_n_set) {
4097 {
4098 gsl_integration_qawo_table *arg1 = (gsl_integration_qawo_table *) 0 ;
4099 size_t arg2 ;
4100 void *argp1 = 0 ;
4101 int res1 = 0 ;
4102 size_t val2 ;
4103 int ecode2 = 0 ;
4104 int argvi = 0;
4105 dXSARGS;
4106
4107 if ((items < 2) || (items > 2)) {
4108 SWIG_croak("Usage: gsl_integration_qawo_table_n_set(self,n);");
4109 }
4110 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qawo_table, 0 | 0 );
4111 if (!SWIG_IsOK(res1)) {
4112 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qawo_table_n_set" "', argument " "1"" of type '" "gsl_integration_qawo_table *""'");
4113 }
4114 arg1 = (gsl_integration_qawo_table *)(argp1);
4115 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4116 if (!SWIG_IsOK(ecode2)) {
4117 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qawo_table_n_set" "', argument " "2"" of type '" "size_t""'");
4118 }
4119 arg2 = (size_t)(val2);
4120 if (arg1) (arg1)->n = arg2;
4121 ST(argvi) = &PL_sv_undef;
4122
4123
4124 XSRETURN(argvi);
4125 fail:
4126
4127
4128 SWIG_croak_null();
4129 }
4130 }
4131
4132
XS(_wrap_gsl_integration_qawo_table_n_get)4133 XS(_wrap_gsl_integration_qawo_table_n_get) {
4134 {
4135 gsl_integration_qawo_table *arg1 = (gsl_integration_qawo_table *) 0 ;
4136 void *argp1 = 0 ;
4137 int res1 = 0 ;
4138 int argvi = 0;
4139 size_t result;
4140 dXSARGS;
4141
4142 if ((items < 1) || (items > 1)) {
4143 SWIG_croak("Usage: gsl_integration_qawo_table_n_get(self);");
4144 }
4145 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qawo_table, 0 | 0 );
4146 if (!SWIG_IsOK(res1)) {
4147 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qawo_table_n_get" "', argument " "1"" of type '" "gsl_integration_qawo_table *""'");
4148 }
4149 arg1 = (gsl_integration_qawo_table *)(argp1);
4150 result = ((arg1)->n);
4151 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
4152
4153 XSRETURN(argvi);
4154 fail:
4155
4156 SWIG_croak_null();
4157 }
4158 }
4159
4160
XS(_wrap_gsl_integration_qawo_table_omega_set)4161 XS(_wrap_gsl_integration_qawo_table_omega_set) {
4162 {
4163 gsl_integration_qawo_table *arg1 = (gsl_integration_qawo_table *) 0 ;
4164 double arg2 ;
4165 void *argp1 = 0 ;
4166 int res1 = 0 ;
4167 double val2 ;
4168 int ecode2 = 0 ;
4169 int argvi = 0;
4170 dXSARGS;
4171
4172 if ((items < 2) || (items > 2)) {
4173 SWIG_croak("Usage: gsl_integration_qawo_table_omega_set(self,omega);");
4174 }
4175 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qawo_table, 0 | 0 );
4176 if (!SWIG_IsOK(res1)) {
4177 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qawo_table_omega_set" "', argument " "1"" of type '" "gsl_integration_qawo_table *""'");
4178 }
4179 arg1 = (gsl_integration_qawo_table *)(argp1);
4180 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4181 if (!SWIG_IsOK(ecode2)) {
4182 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qawo_table_omega_set" "', argument " "2"" of type '" "double""'");
4183 }
4184 arg2 = (double)(val2);
4185 if (arg1) (arg1)->omega = arg2;
4186 ST(argvi) = &PL_sv_undef;
4187
4188
4189 XSRETURN(argvi);
4190 fail:
4191
4192
4193 SWIG_croak_null();
4194 }
4195 }
4196
4197
XS(_wrap_gsl_integration_qawo_table_omega_get)4198 XS(_wrap_gsl_integration_qawo_table_omega_get) {
4199 {
4200 gsl_integration_qawo_table *arg1 = (gsl_integration_qawo_table *) 0 ;
4201 void *argp1 = 0 ;
4202 int res1 = 0 ;
4203 int argvi = 0;
4204 double result;
4205 dXSARGS;
4206
4207 if ((items < 1) || (items > 1)) {
4208 SWIG_croak("Usage: gsl_integration_qawo_table_omega_get(self);");
4209 }
4210 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qawo_table, 0 | 0 );
4211 if (!SWIG_IsOK(res1)) {
4212 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qawo_table_omega_get" "', argument " "1"" of type '" "gsl_integration_qawo_table *""'");
4213 }
4214 arg1 = (gsl_integration_qawo_table *)(argp1);
4215 result = (double) ((arg1)->omega);
4216 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
4217
4218 XSRETURN(argvi);
4219 fail:
4220
4221 SWIG_croak_null();
4222 }
4223 }
4224
4225
XS(_wrap_gsl_integration_qawo_table_L_set)4226 XS(_wrap_gsl_integration_qawo_table_L_set) {
4227 {
4228 gsl_integration_qawo_table *arg1 = (gsl_integration_qawo_table *) 0 ;
4229 double arg2 ;
4230 void *argp1 = 0 ;
4231 int res1 = 0 ;
4232 double val2 ;
4233 int ecode2 = 0 ;
4234 int argvi = 0;
4235 dXSARGS;
4236
4237 if ((items < 2) || (items > 2)) {
4238 SWIG_croak("Usage: gsl_integration_qawo_table_L_set(self,L);");
4239 }
4240 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qawo_table, 0 | 0 );
4241 if (!SWIG_IsOK(res1)) {
4242 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qawo_table_L_set" "', argument " "1"" of type '" "gsl_integration_qawo_table *""'");
4243 }
4244 arg1 = (gsl_integration_qawo_table *)(argp1);
4245 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4246 if (!SWIG_IsOK(ecode2)) {
4247 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qawo_table_L_set" "', argument " "2"" of type '" "double""'");
4248 }
4249 arg2 = (double)(val2);
4250 if (arg1) (arg1)->L = arg2;
4251 ST(argvi) = &PL_sv_undef;
4252
4253
4254 XSRETURN(argvi);
4255 fail:
4256
4257
4258 SWIG_croak_null();
4259 }
4260 }
4261
4262
XS(_wrap_gsl_integration_qawo_table_L_get)4263 XS(_wrap_gsl_integration_qawo_table_L_get) {
4264 {
4265 gsl_integration_qawo_table *arg1 = (gsl_integration_qawo_table *) 0 ;
4266 void *argp1 = 0 ;
4267 int res1 = 0 ;
4268 int argvi = 0;
4269 double result;
4270 dXSARGS;
4271
4272 if ((items < 1) || (items > 1)) {
4273 SWIG_croak("Usage: gsl_integration_qawo_table_L_get(self);");
4274 }
4275 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qawo_table, 0 | 0 );
4276 if (!SWIG_IsOK(res1)) {
4277 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qawo_table_L_get" "', argument " "1"" of type '" "gsl_integration_qawo_table *""'");
4278 }
4279 arg1 = (gsl_integration_qawo_table *)(argp1);
4280 result = (double) ((arg1)->L);
4281 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
4282
4283 XSRETURN(argvi);
4284 fail:
4285
4286 SWIG_croak_null();
4287 }
4288 }
4289
4290
XS(_wrap_gsl_integration_qawo_table_par_set)4291 XS(_wrap_gsl_integration_qawo_table_par_set) {
4292 {
4293 gsl_integration_qawo_table *arg1 = (gsl_integration_qawo_table *) 0 ;
4294 double arg2 ;
4295 void *argp1 = 0 ;
4296 int res1 = 0 ;
4297 double val2 ;
4298 int ecode2 = 0 ;
4299 int argvi = 0;
4300 dXSARGS;
4301
4302 if ((items < 2) || (items > 2)) {
4303 SWIG_croak("Usage: gsl_integration_qawo_table_par_set(self,par);");
4304 }
4305 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qawo_table, 0 | 0 );
4306 if (!SWIG_IsOK(res1)) {
4307 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qawo_table_par_set" "', argument " "1"" of type '" "gsl_integration_qawo_table *""'");
4308 }
4309 arg1 = (gsl_integration_qawo_table *)(argp1);
4310 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4311 if (!SWIG_IsOK(ecode2)) {
4312 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qawo_table_par_set" "', argument " "2"" of type '" "double""'");
4313 }
4314 arg2 = (double)(val2);
4315 if (arg1) (arg1)->par = arg2;
4316 ST(argvi) = &PL_sv_undef;
4317
4318
4319 XSRETURN(argvi);
4320 fail:
4321
4322
4323 SWIG_croak_null();
4324 }
4325 }
4326
4327
XS(_wrap_gsl_integration_qawo_table_par_get)4328 XS(_wrap_gsl_integration_qawo_table_par_get) {
4329 {
4330 gsl_integration_qawo_table *arg1 = (gsl_integration_qawo_table *) 0 ;
4331 void *argp1 = 0 ;
4332 int res1 = 0 ;
4333 int argvi = 0;
4334 double result;
4335 dXSARGS;
4336
4337 if ((items < 1) || (items > 1)) {
4338 SWIG_croak("Usage: gsl_integration_qawo_table_par_get(self);");
4339 }
4340 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qawo_table, 0 | 0 );
4341 if (!SWIG_IsOK(res1)) {
4342 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qawo_table_par_get" "', argument " "1"" of type '" "gsl_integration_qawo_table *""'");
4343 }
4344 arg1 = (gsl_integration_qawo_table *)(argp1);
4345 result = (double) ((arg1)->par);
4346 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
4347
4348 XSRETURN(argvi);
4349 fail:
4350
4351 SWIG_croak_null();
4352 }
4353 }
4354
4355
XS(_wrap_gsl_integration_qawo_table_sine_set)4356 XS(_wrap_gsl_integration_qawo_table_sine_set) {
4357 {
4358 gsl_integration_qawo_table *arg1 = (gsl_integration_qawo_table *) 0 ;
4359 enum gsl_integration_qawo_enum arg2 ;
4360 void *argp1 = 0 ;
4361 int res1 = 0 ;
4362 int val2 ;
4363 int ecode2 = 0 ;
4364 int argvi = 0;
4365 dXSARGS;
4366
4367 if ((items < 2) || (items > 2)) {
4368 SWIG_croak("Usage: gsl_integration_qawo_table_sine_set(self,sine);");
4369 }
4370 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qawo_table, 0 | 0 );
4371 if (!SWIG_IsOK(res1)) {
4372 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qawo_table_sine_set" "', argument " "1"" of type '" "gsl_integration_qawo_table *""'");
4373 }
4374 arg1 = (gsl_integration_qawo_table *)(argp1);
4375 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4376 if (!SWIG_IsOK(ecode2)) {
4377 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qawo_table_sine_set" "', argument " "2"" of type '" "enum gsl_integration_qawo_enum""'");
4378 }
4379 arg2 = (enum gsl_integration_qawo_enum)(val2);
4380 if (arg1) (arg1)->sine = arg2;
4381 ST(argvi) = &PL_sv_undef;
4382
4383
4384 XSRETURN(argvi);
4385 fail:
4386
4387
4388 SWIG_croak_null();
4389 }
4390 }
4391
4392
XS(_wrap_gsl_integration_qawo_table_sine_get)4393 XS(_wrap_gsl_integration_qawo_table_sine_get) {
4394 {
4395 gsl_integration_qawo_table *arg1 = (gsl_integration_qawo_table *) 0 ;
4396 void *argp1 = 0 ;
4397 int res1 = 0 ;
4398 int argvi = 0;
4399 enum gsl_integration_qawo_enum result;
4400 dXSARGS;
4401
4402 if ((items < 1) || (items > 1)) {
4403 SWIG_croak("Usage: gsl_integration_qawo_table_sine_get(self);");
4404 }
4405 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qawo_table, 0 | 0 );
4406 if (!SWIG_IsOK(res1)) {
4407 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qawo_table_sine_get" "', argument " "1"" of type '" "gsl_integration_qawo_table *""'");
4408 }
4409 arg1 = (gsl_integration_qawo_table *)(argp1);
4410 result = (enum gsl_integration_qawo_enum) ((arg1)->sine);
4411 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4412
4413 XSRETURN(argvi);
4414 fail:
4415
4416 SWIG_croak_null();
4417 }
4418 }
4419
4420
XS(_wrap_gsl_integration_qawo_table_chebmo_set)4421 XS(_wrap_gsl_integration_qawo_table_chebmo_set) {
4422 {
4423 gsl_integration_qawo_table *arg1 = (gsl_integration_qawo_table *) 0 ;
4424 double *arg2 = (double *) 0 ;
4425 void *argp1 = 0 ;
4426 int res1 = 0 ;
4427 void *argp2 = 0 ;
4428 int res2 = 0 ;
4429 int argvi = 0;
4430 dXSARGS;
4431
4432 if ((items < 2) || (items > 2)) {
4433 SWIG_croak("Usage: gsl_integration_qawo_table_chebmo_set(self,chebmo);");
4434 }
4435 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qawo_table, 0 | 0 );
4436 if (!SWIG_IsOK(res1)) {
4437 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qawo_table_chebmo_set" "', argument " "1"" of type '" "gsl_integration_qawo_table *""'");
4438 }
4439 arg1 = (gsl_integration_qawo_table *)(argp1);
4440 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
4441 if (!SWIG_IsOK(res2)) {
4442 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_qawo_table_chebmo_set" "', argument " "2"" of type '" "double *""'");
4443 }
4444 arg2 = (double *)(argp2);
4445 if (arg1) (arg1)->chebmo = arg2;
4446 ST(argvi) = &PL_sv_undef;
4447
4448
4449 XSRETURN(argvi);
4450 fail:
4451
4452
4453 SWIG_croak_null();
4454 }
4455 }
4456
4457
XS(_wrap_gsl_integration_qawo_table_chebmo_get)4458 XS(_wrap_gsl_integration_qawo_table_chebmo_get) {
4459 {
4460 gsl_integration_qawo_table *arg1 = (gsl_integration_qawo_table *) 0 ;
4461 void *argp1 = 0 ;
4462 int res1 = 0 ;
4463 int argvi = 0;
4464 double *result = 0 ;
4465 dXSARGS;
4466
4467 if ((items < 1) || (items > 1)) {
4468 SWIG_croak("Usage: gsl_integration_qawo_table_chebmo_get(self);");
4469 }
4470 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qawo_table, 0 | 0 );
4471 if (!SWIG_IsOK(res1)) {
4472 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qawo_table_chebmo_get" "', argument " "1"" of type '" "gsl_integration_qawo_table *""'");
4473 }
4474 arg1 = (gsl_integration_qawo_table *)(argp1);
4475 result = (double *) ((arg1)->chebmo);
4476 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
4477
4478 XSRETURN(argvi);
4479 fail:
4480
4481 SWIG_croak_null();
4482 }
4483 }
4484
4485
XS(_wrap_new_gsl_integration_qawo_table)4486 XS(_wrap_new_gsl_integration_qawo_table) {
4487 {
4488 int argvi = 0;
4489 gsl_integration_qawo_table *result = 0 ;
4490 dXSARGS;
4491
4492 if ((items < 0) || (items > 0)) {
4493 SWIG_croak("Usage: new_gsl_integration_qawo_table();");
4494 }
4495 result = (gsl_integration_qawo_table *)calloc(1, sizeof(gsl_integration_qawo_table));
4496 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_integration_qawo_table, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
4497 XSRETURN(argvi);
4498 fail:
4499 SWIG_croak_null();
4500 }
4501 }
4502
4503
XS(_wrap_delete_gsl_integration_qawo_table)4504 XS(_wrap_delete_gsl_integration_qawo_table) {
4505 {
4506 gsl_integration_qawo_table *arg1 = (gsl_integration_qawo_table *) 0 ;
4507 void *argp1 = 0 ;
4508 int res1 = 0 ;
4509 int argvi = 0;
4510 dXSARGS;
4511
4512 if ((items < 1) || (items > 1)) {
4513 SWIG_croak("Usage: delete_gsl_integration_qawo_table(self);");
4514 }
4515 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qawo_table, SWIG_POINTER_DISOWN | 0 );
4516 if (!SWIG_IsOK(res1)) {
4517 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_integration_qawo_table" "', argument " "1"" of type '" "gsl_integration_qawo_table *""'");
4518 }
4519 arg1 = (gsl_integration_qawo_table *)(argp1);
4520 free((char *) arg1);
4521 ST(argvi) = &PL_sv_undef;
4522
4523 XSRETURN(argvi);
4524 fail:
4525
4526 SWIG_croak_null();
4527 }
4528 }
4529
4530
XS(_wrap_gsl_integration_qawo_table_alloc)4531 XS(_wrap_gsl_integration_qawo_table_alloc) {
4532 {
4533 double arg1 ;
4534 double arg2 ;
4535 enum gsl_integration_qawo_enum arg3 ;
4536 size_t arg4 ;
4537 double val1 ;
4538 int ecode1 = 0 ;
4539 double val2 ;
4540 int ecode2 = 0 ;
4541 int val3 ;
4542 int ecode3 = 0 ;
4543 size_t val4 ;
4544 int ecode4 = 0 ;
4545 int argvi = 0;
4546 gsl_integration_qawo_table *result = 0 ;
4547 dXSARGS;
4548
4549 if ((items < 4) || (items > 4)) {
4550 SWIG_croak("Usage: gsl_integration_qawo_table_alloc(omega,L,sine,n);");
4551 }
4552 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
4553 if (!SWIG_IsOK(ecode1)) {
4554 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_integration_qawo_table_alloc" "', argument " "1"" of type '" "double""'");
4555 }
4556 arg1 = (double)(val1);
4557 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4558 if (!SWIG_IsOK(ecode2)) {
4559 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qawo_table_alloc" "', argument " "2"" of type '" "double""'");
4560 }
4561 arg2 = (double)(val2);
4562 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
4563 if (!SWIG_IsOK(ecode3)) {
4564 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qawo_table_alloc" "', argument " "3"" of type '" "enum gsl_integration_qawo_enum""'");
4565 }
4566 arg3 = (enum gsl_integration_qawo_enum)(val3);
4567 ecode4 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
4568 if (!SWIG_IsOK(ecode4)) {
4569 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_integration_qawo_table_alloc" "', argument " "4"" of type '" "size_t""'");
4570 }
4571 arg4 = (size_t)(val4);
4572 result = (gsl_integration_qawo_table *)gsl_integration_qawo_table_alloc(arg1,arg2,arg3,arg4);
4573 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_integration_qawo_table, 0 | SWIG_SHADOW); argvi++ ;
4574
4575
4576
4577
4578 XSRETURN(argvi);
4579 fail:
4580
4581
4582
4583
4584 SWIG_croak_null();
4585 }
4586 }
4587
4588
XS(_wrap_gsl_integration_qawo_table_set)4589 XS(_wrap_gsl_integration_qawo_table_set) {
4590 {
4591 gsl_integration_qawo_table *arg1 = (gsl_integration_qawo_table *) 0 ;
4592 double arg2 ;
4593 double arg3 ;
4594 enum gsl_integration_qawo_enum arg4 ;
4595 void *argp1 = 0 ;
4596 int res1 = 0 ;
4597 double val2 ;
4598 int ecode2 = 0 ;
4599 double val3 ;
4600 int ecode3 = 0 ;
4601 int val4 ;
4602 int ecode4 = 0 ;
4603 int argvi = 0;
4604 int result;
4605 dXSARGS;
4606
4607 if ((items < 4) || (items > 4)) {
4608 SWIG_croak("Usage: gsl_integration_qawo_table_set(t,omega,L,sine);");
4609 }
4610 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qawo_table, 0 | 0 );
4611 if (!SWIG_IsOK(res1)) {
4612 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qawo_table_set" "', argument " "1"" of type '" "gsl_integration_qawo_table *""'");
4613 }
4614 arg1 = (gsl_integration_qawo_table *)(argp1);
4615 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4616 if (!SWIG_IsOK(ecode2)) {
4617 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qawo_table_set" "', argument " "2"" of type '" "double""'");
4618 }
4619 arg2 = (double)(val2);
4620 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
4621 if (!SWIG_IsOK(ecode3)) {
4622 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qawo_table_set" "', argument " "3"" of type '" "double""'");
4623 }
4624 arg3 = (double)(val3);
4625 ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
4626 if (!SWIG_IsOK(ecode4)) {
4627 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_integration_qawo_table_set" "', argument " "4"" of type '" "enum gsl_integration_qawo_enum""'");
4628 }
4629 arg4 = (enum gsl_integration_qawo_enum)(val4);
4630 result = (int)gsl_integration_qawo_table_set(arg1,arg2,arg3,arg4);
4631 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4632
4633
4634
4635
4636 XSRETURN(argvi);
4637 fail:
4638
4639
4640
4641
4642 SWIG_croak_null();
4643 }
4644 }
4645
4646
XS(_wrap_gsl_integration_qawo_table_set_length)4647 XS(_wrap_gsl_integration_qawo_table_set_length) {
4648 {
4649 gsl_integration_qawo_table *arg1 = (gsl_integration_qawo_table *) 0 ;
4650 double arg2 ;
4651 void *argp1 = 0 ;
4652 int res1 = 0 ;
4653 double val2 ;
4654 int ecode2 = 0 ;
4655 int argvi = 0;
4656 int result;
4657 dXSARGS;
4658
4659 if ((items < 2) || (items > 2)) {
4660 SWIG_croak("Usage: gsl_integration_qawo_table_set_length(t,L);");
4661 }
4662 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qawo_table, 0 | 0 );
4663 if (!SWIG_IsOK(res1)) {
4664 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qawo_table_set_length" "', argument " "1"" of type '" "gsl_integration_qawo_table *""'");
4665 }
4666 arg1 = (gsl_integration_qawo_table *)(argp1);
4667 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4668 if (!SWIG_IsOK(ecode2)) {
4669 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qawo_table_set_length" "', argument " "2"" of type '" "double""'");
4670 }
4671 arg2 = (double)(val2);
4672 result = (int)gsl_integration_qawo_table_set_length(arg1,arg2);
4673 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4674
4675
4676 XSRETURN(argvi);
4677 fail:
4678
4679
4680 SWIG_croak_null();
4681 }
4682 }
4683
4684
XS(_wrap_gsl_integration_qawo_table_free)4685 XS(_wrap_gsl_integration_qawo_table_free) {
4686 {
4687 gsl_integration_qawo_table *arg1 = (gsl_integration_qawo_table *) 0 ;
4688 void *argp1 = 0 ;
4689 int res1 = 0 ;
4690 int argvi = 0;
4691 dXSARGS;
4692
4693 if ((items < 1) || (items > 1)) {
4694 SWIG_croak("Usage: gsl_integration_qawo_table_free(t);");
4695 }
4696 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_qawo_table, 0 | 0 );
4697 if (!SWIG_IsOK(res1)) {
4698 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_qawo_table_free" "', argument " "1"" of type '" "gsl_integration_qawo_table *""'");
4699 }
4700 arg1 = (gsl_integration_qawo_table *)(argp1);
4701 gsl_integration_qawo_table_free(arg1);
4702 ST(argvi) = &PL_sv_undef;
4703
4704 XSRETURN(argvi);
4705 fail:
4706
4707 SWIG_croak_null();
4708 }
4709 }
4710
4711
XS(_wrap_gsl_integration_qk15)4712 XS(_wrap_gsl_integration_qk15) {
4713 {
4714 gsl_function *arg1 = (gsl_function *) 0 ;
4715 double arg2 ;
4716 double arg3 ;
4717 double *arg4 = (double *) 0 ;
4718 double *arg5 = (double *) 0 ;
4719 double *arg6 = (double *) 0 ;
4720 double *arg7 = (double *) 0 ;
4721 double val2 ;
4722 int ecode2 = 0 ;
4723 double val3 ;
4724 int ecode3 = 0 ;
4725 double temp4 ;
4726 int res4 = SWIG_TMPOBJ ;
4727 double temp5 ;
4728 int res5 = SWIG_TMPOBJ ;
4729 void *argp6 = 0 ;
4730 int res6 = 0 ;
4731 void *argp7 = 0 ;
4732 int res7 = 0 ;
4733 int argvi = 0;
4734 dXSARGS;
4735
4736 arg4 = &temp4;
4737 arg5 = &temp5;
4738 if ((items < 5) || (items > 5)) {
4739 SWIG_croak("Usage: gsl_integration_qk15(f,a,b,resabs,resasc);");
4740 }
4741 {
4742 SV * function = 0;
4743 SV * params = 0;
4744 struct gsl_function_perl *w_gsl_function;
4745 Newx(w_gsl_function, 1, struct gsl_function_perl);
4746
4747 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
4748 AV* array=(AV*)SvRV(ST(0));
4749 SV ** p_function = 0;
4750 if (av_len(array)<0) {
4751 croak("Math::GSL : $f is an empty array!");
4752 }
4753 if (av_len(array)>1) {
4754 croak("Math::GSL : $f is an array with more than 2 elements!");
4755 }
4756 p_function = av_fetch(array, 0, 0);
4757 function = *p_function;
4758 if (av_len(array)>0) {
4759 SV ** p_params = 0;
4760 p_params = av_fetch(array, 1, 0);
4761 params = *p_params;
4762 }
4763 } else {
4764 function = ST(0);
4765 }
4766
4767 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
4768 croak("Math::GSL : $f is not a reference to code!");
4769 }
4770
4771 function = newSVsv(function);
4772
4773 if (! params) {
4774 params=&PL_sv_undef;
4775 }
4776 params = newSVsv(params);
4777
4778 w_gsl_function->params = params;
4779 w_gsl_function->function = function;
4780 w_gsl_function->C_gsl_function.params = w_gsl_function;
4781 w_gsl_function->C_gsl_function.function = &call_gsl_function;
4782
4783 arg1 = &(w_gsl_function->C_gsl_function);
4784 }
4785 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4786 if (!SWIG_IsOK(ecode2)) {
4787 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qk15" "', argument " "2"" of type '" "double""'");
4788 }
4789 arg2 = (double)(val2);
4790 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
4791 if (!SWIG_IsOK(ecode3)) {
4792 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qk15" "', argument " "3"" of type '" "double""'");
4793 }
4794 arg3 = (double)(val3);
4795 res6 = SWIG_ConvertPtr(ST(3), &argp6,SWIGTYPE_p_double, 0 | 0 );
4796 if (!SWIG_IsOK(res6)) {
4797 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_integration_qk15" "', argument " "6"" of type '" "double *""'");
4798 }
4799 arg6 = (double *)(argp6);
4800 res7 = SWIG_ConvertPtr(ST(4), &argp7,SWIGTYPE_p_double, 0 | 0 );
4801 if (!SWIG_IsOK(res7)) {
4802 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_integration_qk15" "', argument " "7"" of type '" "double *""'");
4803 }
4804 arg7 = (double *)(argp7);
4805 gsl_integration_qk15((struct gsl_function_struct const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7);
4806 ST(argvi) = &PL_sv_undef;
4807 if (SWIG_IsTmpObj(res4)) {
4808 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++ ;
4809 } else {
4810 int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
4811 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_double, new_flags); argvi++ ;
4812 }
4813 if (SWIG_IsTmpObj(res5)) {
4814 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg5)); argvi++ ;
4815 } else {
4816 int new_flags = SWIG_IsNewObj(res5) ? (SWIG_POINTER_OWN | 0) : 0;
4817 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg5), SWIGTYPE_p_double, new_flags); argvi++ ;
4818 }
4819 {
4820 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
4821 gsl_function_perl_free(p);
4822 }
4823
4824
4825
4826
4827
4828
4829 XSRETURN(argvi);
4830 fail:
4831 {
4832 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
4833 gsl_function_perl_free(p);
4834 }
4835
4836
4837
4838
4839
4840
4841 SWIG_croak_null();
4842 }
4843 }
4844
4845
XS(_wrap_gsl_integration_qk21)4846 XS(_wrap_gsl_integration_qk21) {
4847 {
4848 gsl_function *arg1 = (gsl_function *) 0 ;
4849 double arg2 ;
4850 double arg3 ;
4851 double *arg4 = (double *) 0 ;
4852 double *arg5 = (double *) 0 ;
4853 double *arg6 = (double *) 0 ;
4854 double *arg7 = (double *) 0 ;
4855 double val2 ;
4856 int ecode2 = 0 ;
4857 double val3 ;
4858 int ecode3 = 0 ;
4859 double temp4 ;
4860 int res4 = SWIG_TMPOBJ ;
4861 double temp5 ;
4862 int res5 = SWIG_TMPOBJ ;
4863 void *argp6 = 0 ;
4864 int res6 = 0 ;
4865 void *argp7 = 0 ;
4866 int res7 = 0 ;
4867 int argvi = 0;
4868 dXSARGS;
4869
4870 arg4 = &temp4;
4871 arg5 = &temp5;
4872 if ((items < 5) || (items > 5)) {
4873 SWIG_croak("Usage: gsl_integration_qk21(f,a,b,resabs,resasc);");
4874 }
4875 {
4876 SV * function = 0;
4877 SV * params = 0;
4878 struct gsl_function_perl *w_gsl_function;
4879 Newx(w_gsl_function, 1, struct gsl_function_perl);
4880
4881 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
4882 AV* array=(AV*)SvRV(ST(0));
4883 SV ** p_function = 0;
4884 if (av_len(array)<0) {
4885 croak("Math::GSL : $f is an empty array!");
4886 }
4887 if (av_len(array)>1) {
4888 croak("Math::GSL : $f is an array with more than 2 elements!");
4889 }
4890 p_function = av_fetch(array, 0, 0);
4891 function = *p_function;
4892 if (av_len(array)>0) {
4893 SV ** p_params = 0;
4894 p_params = av_fetch(array, 1, 0);
4895 params = *p_params;
4896 }
4897 } else {
4898 function = ST(0);
4899 }
4900
4901 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
4902 croak("Math::GSL : $f is not a reference to code!");
4903 }
4904
4905 function = newSVsv(function);
4906
4907 if (! params) {
4908 params=&PL_sv_undef;
4909 }
4910 params = newSVsv(params);
4911
4912 w_gsl_function->params = params;
4913 w_gsl_function->function = function;
4914 w_gsl_function->C_gsl_function.params = w_gsl_function;
4915 w_gsl_function->C_gsl_function.function = &call_gsl_function;
4916
4917 arg1 = &(w_gsl_function->C_gsl_function);
4918 }
4919 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4920 if (!SWIG_IsOK(ecode2)) {
4921 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qk21" "', argument " "2"" of type '" "double""'");
4922 }
4923 arg2 = (double)(val2);
4924 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
4925 if (!SWIG_IsOK(ecode3)) {
4926 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qk21" "', argument " "3"" of type '" "double""'");
4927 }
4928 arg3 = (double)(val3);
4929 res6 = SWIG_ConvertPtr(ST(3), &argp6,SWIGTYPE_p_double, 0 | 0 );
4930 if (!SWIG_IsOK(res6)) {
4931 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_integration_qk21" "', argument " "6"" of type '" "double *""'");
4932 }
4933 arg6 = (double *)(argp6);
4934 res7 = SWIG_ConvertPtr(ST(4), &argp7,SWIGTYPE_p_double, 0 | 0 );
4935 if (!SWIG_IsOK(res7)) {
4936 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_integration_qk21" "', argument " "7"" of type '" "double *""'");
4937 }
4938 arg7 = (double *)(argp7);
4939 gsl_integration_qk21((struct gsl_function_struct const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7);
4940 ST(argvi) = &PL_sv_undef;
4941 if (SWIG_IsTmpObj(res4)) {
4942 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++ ;
4943 } else {
4944 int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
4945 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_double, new_flags); argvi++ ;
4946 }
4947 if (SWIG_IsTmpObj(res5)) {
4948 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg5)); argvi++ ;
4949 } else {
4950 int new_flags = SWIG_IsNewObj(res5) ? (SWIG_POINTER_OWN | 0) : 0;
4951 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg5), SWIGTYPE_p_double, new_flags); argvi++ ;
4952 }
4953 {
4954 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
4955 gsl_function_perl_free(p);
4956 }
4957
4958
4959
4960
4961
4962
4963 XSRETURN(argvi);
4964 fail:
4965 {
4966 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
4967 gsl_function_perl_free(p);
4968 }
4969
4970
4971
4972
4973
4974
4975 SWIG_croak_null();
4976 }
4977 }
4978
4979
XS(_wrap_gsl_integration_qk31)4980 XS(_wrap_gsl_integration_qk31) {
4981 {
4982 gsl_function *arg1 = (gsl_function *) 0 ;
4983 double arg2 ;
4984 double arg3 ;
4985 double *arg4 = (double *) 0 ;
4986 double *arg5 = (double *) 0 ;
4987 double *arg6 = (double *) 0 ;
4988 double *arg7 = (double *) 0 ;
4989 double val2 ;
4990 int ecode2 = 0 ;
4991 double val3 ;
4992 int ecode3 = 0 ;
4993 double temp4 ;
4994 int res4 = SWIG_TMPOBJ ;
4995 double temp5 ;
4996 int res5 = SWIG_TMPOBJ ;
4997 void *argp6 = 0 ;
4998 int res6 = 0 ;
4999 void *argp7 = 0 ;
5000 int res7 = 0 ;
5001 int argvi = 0;
5002 dXSARGS;
5003
5004 arg4 = &temp4;
5005 arg5 = &temp5;
5006 if ((items < 5) || (items > 5)) {
5007 SWIG_croak("Usage: gsl_integration_qk31(f,a,b,resabs,resasc);");
5008 }
5009 {
5010 SV * function = 0;
5011 SV * params = 0;
5012 struct gsl_function_perl *w_gsl_function;
5013 Newx(w_gsl_function, 1, struct gsl_function_perl);
5014
5015 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
5016 AV* array=(AV*)SvRV(ST(0));
5017 SV ** p_function = 0;
5018 if (av_len(array)<0) {
5019 croak("Math::GSL : $f is an empty array!");
5020 }
5021 if (av_len(array)>1) {
5022 croak("Math::GSL : $f is an array with more than 2 elements!");
5023 }
5024 p_function = av_fetch(array, 0, 0);
5025 function = *p_function;
5026 if (av_len(array)>0) {
5027 SV ** p_params = 0;
5028 p_params = av_fetch(array, 1, 0);
5029 params = *p_params;
5030 }
5031 } else {
5032 function = ST(0);
5033 }
5034
5035 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
5036 croak("Math::GSL : $f is not a reference to code!");
5037 }
5038
5039 function = newSVsv(function);
5040
5041 if (! params) {
5042 params=&PL_sv_undef;
5043 }
5044 params = newSVsv(params);
5045
5046 w_gsl_function->params = params;
5047 w_gsl_function->function = function;
5048 w_gsl_function->C_gsl_function.params = w_gsl_function;
5049 w_gsl_function->C_gsl_function.function = &call_gsl_function;
5050
5051 arg1 = &(w_gsl_function->C_gsl_function);
5052 }
5053 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5054 if (!SWIG_IsOK(ecode2)) {
5055 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qk31" "', argument " "2"" of type '" "double""'");
5056 }
5057 arg2 = (double)(val2);
5058 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
5059 if (!SWIG_IsOK(ecode3)) {
5060 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qk31" "', argument " "3"" of type '" "double""'");
5061 }
5062 arg3 = (double)(val3);
5063 res6 = SWIG_ConvertPtr(ST(3), &argp6,SWIGTYPE_p_double, 0 | 0 );
5064 if (!SWIG_IsOK(res6)) {
5065 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_integration_qk31" "', argument " "6"" of type '" "double *""'");
5066 }
5067 arg6 = (double *)(argp6);
5068 res7 = SWIG_ConvertPtr(ST(4), &argp7,SWIGTYPE_p_double, 0 | 0 );
5069 if (!SWIG_IsOK(res7)) {
5070 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_integration_qk31" "', argument " "7"" of type '" "double *""'");
5071 }
5072 arg7 = (double *)(argp7);
5073 gsl_integration_qk31((struct gsl_function_struct const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7);
5074 ST(argvi) = &PL_sv_undef;
5075 if (SWIG_IsTmpObj(res4)) {
5076 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++ ;
5077 } else {
5078 int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
5079 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_double, new_flags); argvi++ ;
5080 }
5081 if (SWIG_IsTmpObj(res5)) {
5082 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg5)); argvi++ ;
5083 } else {
5084 int new_flags = SWIG_IsNewObj(res5) ? (SWIG_POINTER_OWN | 0) : 0;
5085 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg5), SWIGTYPE_p_double, new_flags); argvi++ ;
5086 }
5087 {
5088 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
5089 gsl_function_perl_free(p);
5090 }
5091
5092
5093
5094
5095
5096
5097 XSRETURN(argvi);
5098 fail:
5099 {
5100 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
5101 gsl_function_perl_free(p);
5102 }
5103
5104
5105
5106
5107
5108
5109 SWIG_croak_null();
5110 }
5111 }
5112
5113
XS(_wrap_gsl_integration_qk41)5114 XS(_wrap_gsl_integration_qk41) {
5115 {
5116 gsl_function *arg1 = (gsl_function *) 0 ;
5117 double arg2 ;
5118 double arg3 ;
5119 double *arg4 = (double *) 0 ;
5120 double *arg5 = (double *) 0 ;
5121 double *arg6 = (double *) 0 ;
5122 double *arg7 = (double *) 0 ;
5123 double val2 ;
5124 int ecode2 = 0 ;
5125 double val3 ;
5126 int ecode3 = 0 ;
5127 double temp4 ;
5128 int res4 = SWIG_TMPOBJ ;
5129 double temp5 ;
5130 int res5 = SWIG_TMPOBJ ;
5131 void *argp6 = 0 ;
5132 int res6 = 0 ;
5133 void *argp7 = 0 ;
5134 int res7 = 0 ;
5135 int argvi = 0;
5136 dXSARGS;
5137
5138 arg4 = &temp4;
5139 arg5 = &temp5;
5140 if ((items < 5) || (items > 5)) {
5141 SWIG_croak("Usage: gsl_integration_qk41(f,a,b,resabs,resasc);");
5142 }
5143 {
5144 SV * function = 0;
5145 SV * params = 0;
5146 struct gsl_function_perl *w_gsl_function;
5147 Newx(w_gsl_function, 1, struct gsl_function_perl);
5148
5149 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
5150 AV* array=(AV*)SvRV(ST(0));
5151 SV ** p_function = 0;
5152 if (av_len(array)<0) {
5153 croak("Math::GSL : $f is an empty array!");
5154 }
5155 if (av_len(array)>1) {
5156 croak("Math::GSL : $f is an array with more than 2 elements!");
5157 }
5158 p_function = av_fetch(array, 0, 0);
5159 function = *p_function;
5160 if (av_len(array)>0) {
5161 SV ** p_params = 0;
5162 p_params = av_fetch(array, 1, 0);
5163 params = *p_params;
5164 }
5165 } else {
5166 function = ST(0);
5167 }
5168
5169 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
5170 croak("Math::GSL : $f is not a reference to code!");
5171 }
5172
5173 function = newSVsv(function);
5174
5175 if (! params) {
5176 params=&PL_sv_undef;
5177 }
5178 params = newSVsv(params);
5179
5180 w_gsl_function->params = params;
5181 w_gsl_function->function = function;
5182 w_gsl_function->C_gsl_function.params = w_gsl_function;
5183 w_gsl_function->C_gsl_function.function = &call_gsl_function;
5184
5185 arg1 = &(w_gsl_function->C_gsl_function);
5186 }
5187 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5188 if (!SWIG_IsOK(ecode2)) {
5189 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qk41" "', argument " "2"" of type '" "double""'");
5190 }
5191 arg2 = (double)(val2);
5192 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
5193 if (!SWIG_IsOK(ecode3)) {
5194 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qk41" "', argument " "3"" of type '" "double""'");
5195 }
5196 arg3 = (double)(val3);
5197 res6 = SWIG_ConvertPtr(ST(3), &argp6,SWIGTYPE_p_double, 0 | 0 );
5198 if (!SWIG_IsOK(res6)) {
5199 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_integration_qk41" "', argument " "6"" of type '" "double *""'");
5200 }
5201 arg6 = (double *)(argp6);
5202 res7 = SWIG_ConvertPtr(ST(4), &argp7,SWIGTYPE_p_double, 0 | 0 );
5203 if (!SWIG_IsOK(res7)) {
5204 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_integration_qk41" "', argument " "7"" of type '" "double *""'");
5205 }
5206 arg7 = (double *)(argp7);
5207 gsl_integration_qk41((struct gsl_function_struct const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7);
5208 ST(argvi) = &PL_sv_undef;
5209 if (SWIG_IsTmpObj(res4)) {
5210 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++ ;
5211 } else {
5212 int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
5213 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_double, new_flags); argvi++ ;
5214 }
5215 if (SWIG_IsTmpObj(res5)) {
5216 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg5)); argvi++ ;
5217 } else {
5218 int new_flags = SWIG_IsNewObj(res5) ? (SWIG_POINTER_OWN | 0) : 0;
5219 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg5), SWIGTYPE_p_double, new_flags); argvi++ ;
5220 }
5221 {
5222 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
5223 gsl_function_perl_free(p);
5224 }
5225
5226
5227
5228
5229
5230
5231 XSRETURN(argvi);
5232 fail:
5233 {
5234 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
5235 gsl_function_perl_free(p);
5236 }
5237
5238
5239
5240
5241
5242
5243 SWIG_croak_null();
5244 }
5245 }
5246
5247
XS(_wrap_gsl_integration_qk51)5248 XS(_wrap_gsl_integration_qk51) {
5249 {
5250 gsl_function *arg1 = (gsl_function *) 0 ;
5251 double arg2 ;
5252 double arg3 ;
5253 double *arg4 = (double *) 0 ;
5254 double *arg5 = (double *) 0 ;
5255 double *arg6 = (double *) 0 ;
5256 double *arg7 = (double *) 0 ;
5257 double val2 ;
5258 int ecode2 = 0 ;
5259 double val3 ;
5260 int ecode3 = 0 ;
5261 double temp4 ;
5262 int res4 = SWIG_TMPOBJ ;
5263 double temp5 ;
5264 int res5 = SWIG_TMPOBJ ;
5265 void *argp6 = 0 ;
5266 int res6 = 0 ;
5267 void *argp7 = 0 ;
5268 int res7 = 0 ;
5269 int argvi = 0;
5270 dXSARGS;
5271
5272 arg4 = &temp4;
5273 arg5 = &temp5;
5274 if ((items < 5) || (items > 5)) {
5275 SWIG_croak("Usage: gsl_integration_qk51(f,a,b,resabs,resasc);");
5276 }
5277 {
5278 SV * function = 0;
5279 SV * params = 0;
5280 struct gsl_function_perl *w_gsl_function;
5281 Newx(w_gsl_function, 1, struct gsl_function_perl);
5282
5283 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
5284 AV* array=(AV*)SvRV(ST(0));
5285 SV ** p_function = 0;
5286 if (av_len(array)<0) {
5287 croak("Math::GSL : $f is an empty array!");
5288 }
5289 if (av_len(array)>1) {
5290 croak("Math::GSL : $f is an array with more than 2 elements!");
5291 }
5292 p_function = av_fetch(array, 0, 0);
5293 function = *p_function;
5294 if (av_len(array)>0) {
5295 SV ** p_params = 0;
5296 p_params = av_fetch(array, 1, 0);
5297 params = *p_params;
5298 }
5299 } else {
5300 function = ST(0);
5301 }
5302
5303 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
5304 croak("Math::GSL : $f is not a reference to code!");
5305 }
5306
5307 function = newSVsv(function);
5308
5309 if (! params) {
5310 params=&PL_sv_undef;
5311 }
5312 params = newSVsv(params);
5313
5314 w_gsl_function->params = params;
5315 w_gsl_function->function = function;
5316 w_gsl_function->C_gsl_function.params = w_gsl_function;
5317 w_gsl_function->C_gsl_function.function = &call_gsl_function;
5318
5319 arg1 = &(w_gsl_function->C_gsl_function);
5320 }
5321 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5322 if (!SWIG_IsOK(ecode2)) {
5323 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qk51" "', argument " "2"" of type '" "double""'");
5324 }
5325 arg2 = (double)(val2);
5326 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
5327 if (!SWIG_IsOK(ecode3)) {
5328 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qk51" "', argument " "3"" of type '" "double""'");
5329 }
5330 arg3 = (double)(val3);
5331 res6 = SWIG_ConvertPtr(ST(3), &argp6,SWIGTYPE_p_double, 0 | 0 );
5332 if (!SWIG_IsOK(res6)) {
5333 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_integration_qk51" "', argument " "6"" of type '" "double *""'");
5334 }
5335 arg6 = (double *)(argp6);
5336 res7 = SWIG_ConvertPtr(ST(4), &argp7,SWIGTYPE_p_double, 0 | 0 );
5337 if (!SWIG_IsOK(res7)) {
5338 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_integration_qk51" "', argument " "7"" of type '" "double *""'");
5339 }
5340 arg7 = (double *)(argp7);
5341 gsl_integration_qk51((struct gsl_function_struct const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7);
5342 ST(argvi) = &PL_sv_undef;
5343 if (SWIG_IsTmpObj(res4)) {
5344 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++ ;
5345 } else {
5346 int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
5347 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_double, new_flags); argvi++ ;
5348 }
5349 if (SWIG_IsTmpObj(res5)) {
5350 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg5)); argvi++ ;
5351 } else {
5352 int new_flags = SWIG_IsNewObj(res5) ? (SWIG_POINTER_OWN | 0) : 0;
5353 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg5), SWIGTYPE_p_double, new_flags); argvi++ ;
5354 }
5355 {
5356 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
5357 gsl_function_perl_free(p);
5358 }
5359
5360
5361
5362
5363
5364
5365 XSRETURN(argvi);
5366 fail:
5367 {
5368 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
5369 gsl_function_perl_free(p);
5370 }
5371
5372
5373
5374
5375
5376
5377 SWIG_croak_null();
5378 }
5379 }
5380
5381
XS(_wrap_gsl_integration_qk61)5382 XS(_wrap_gsl_integration_qk61) {
5383 {
5384 gsl_function *arg1 = (gsl_function *) 0 ;
5385 double arg2 ;
5386 double arg3 ;
5387 double *arg4 = (double *) 0 ;
5388 double *arg5 = (double *) 0 ;
5389 double *arg6 = (double *) 0 ;
5390 double *arg7 = (double *) 0 ;
5391 double val2 ;
5392 int ecode2 = 0 ;
5393 double val3 ;
5394 int ecode3 = 0 ;
5395 double temp4 ;
5396 int res4 = SWIG_TMPOBJ ;
5397 double temp5 ;
5398 int res5 = SWIG_TMPOBJ ;
5399 void *argp6 = 0 ;
5400 int res6 = 0 ;
5401 void *argp7 = 0 ;
5402 int res7 = 0 ;
5403 int argvi = 0;
5404 dXSARGS;
5405
5406 arg4 = &temp4;
5407 arg5 = &temp5;
5408 if ((items < 5) || (items > 5)) {
5409 SWIG_croak("Usage: gsl_integration_qk61(f,a,b,resabs,resasc);");
5410 }
5411 {
5412 SV * function = 0;
5413 SV * params = 0;
5414 struct gsl_function_perl *w_gsl_function;
5415 Newx(w_gsl_function, 1, struct gsl_function_perl);
5416
5417 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
5418 AV* array=(AV*)SvRV(ST(0));
5419 SV ** p_function = 0;
5420 if (av_len(array)<0) {
5421 croak("Math::GSL : $f is an empty array!");
5422 }
5423 if (av_len(array)>1) {
5424 croak("Math::GSL : $f is an array with more than 2 elements!");
5425 }
5426 p_function = av_fetch(array, 0, 0);
5427 function = *p_function;
5428 if (av_len(array)>0) {
5429 SV ** p_params = 0;
5430 p_params = av_fetch(array, 1, 0);
5431 params = *p_params;
5432 }
5433 } else {
5434 function = ST(0);
5435 }
5436
5437 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
5438 croak("Math::GSL : $f is not a reference to code!");
5439 }
5440
5441 function = newSVsv(function);
5442
5443 if (! params) {
5444 params=&PL_sv_undef;
5445 }
5446 params = newSVsv(params);
5447
5448 w_gsl_function->params = params;
5449 w_gsl_function->function = function;
5450 w_gsl_function->C_gsl_function.params = w_gsl_function;
5451 w_gsl_function->C_gsl_function.function = &call_gsl_function;
5452
5453 arg1 = &(w_gsl_function->C_gsl_function);
5454 }
5455 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5456 if (!SWIG_IsOK(ecode2)) {
5457 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qk61" "', argument " "2"" of type '" "double""'");
5458 }
5459 arg2 = (double)(val2);
5460 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
5461 if (!SWIG_IsOK(ecode3)) {
5462 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qk61" "', argument " "3"" of type '" "double""'");
5463 }
5464 arg3 = (double)(val3);
5465 res6 = SWIG_ConvertPtr(ST(3), &argp6,SWIGTYPE_p_double, 0 | 0 );
5466 if (!SWIG_IsOK(res6)) {
5467 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_integration_qk61" "', argument " "6"" of type '" "double *""'");
5468 }
5469 arg6 = (double *)(argp6);
5470 res7 = SWIG_ConvertPtr(ST(4), &argp7,SWIGTYPE_p_double, 0 | 0 );
5471 if (!SWIG_IsOK(res7)) {
5472 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_integration_qk61" "', argument " "7"" of type '" "double *""'");
5473 }
5474 arg7 = (double *)(argp7);
5475 gsl_integration_qk61((struct gsl_function_struct const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7);
5476 ST(argvi) = &PL_sv_undef;
5477 if (SWIG_IsTmpObj(res4)) {
5478 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++ ;
5479 } else {
5480 int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
5481 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_double, new_flags); argvi++ ;
5482 }
5483 if (SWIG_IsTmpObj(res5)) {
5484 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg5)); argvi++ ;
5485 } else {
5486 int new_flags = SWIG_IsNewObj(res5) ? (SWIG_POINTER_OWN | 0) : 0;
5487 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg5), SWIGTYPE_p_double, new_flags); argvi++ ;
5488 }
5489 {
5490 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
5491 gsl_function_perl_free(p);
5492 }
5493
5494
5495
5496
5497
5498
5499 XSRETURN(argvi);
5500 fail:
5501 {
5502 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
5503 gsl_function_perl_free(p);
5504 }
5505
5506
5507
5508
5509
5510
5511 SWIG_croak_null();
5512 }
5513 }
5514
5515
XS(_wrap_gsl_integration_qcheb)5516 XS(_wrap_gsl_integration_qcheb) {
5517 {
5518 gsl_function *arg1 = (gsl_function *) 0 ;
5519 double arg2 ;
5520 double arg3 ;
5521 double *arg4 = (double *) 0 ;
5522 double *arg5 = (double *) 0 ;
5523 double val2 ;
5524 int ecode2 = 0 ;
5525 double val3 ;
5526 int ecode3 = 0 ;
5527 void *argp4 = 0 ;
5528 int res4 = 0 ;
5529 void *argp5 = 0 ;
5530 int res5 = 0 ;
5531 int argvi = 0;
5532 dXSARGS;
5533
5534 if ((items < 5) || (items > 5)) {
5535 SWIG_croak("Usage: gsl_integration_qcheb(f,a,b,cheb12,cheb24);");
5536 }
5537 {
5538 SV * function = 0;
5539 SV * params = 0;
5540 struct gsl_function_perl *w_gsl_function;
5541 Newx(w_gsl_function, 1, struct gsl_function_perl);
5542
5543 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
5544 AV* array=(AV*)SvRV(ST(0));
5545 SV ** p_function = 0;
5546 if (av_len(array)<0) {
5547 croak("Math::GSL : $f is an empty array!");
5548 }
5549 if (av_len(array)>1) {
5550 croak("Math::GSL : $f is an array with more than 2 elements!");
5551 }
5552 p_function = av_fetch(array, 0, 0);
5553 function = *p_function;
5554 if (av_len(array)>0) {
5555 SV ** p_params = 0;
5556 p_params = av_fetch(array, 1, 0);
5557 params = *p_params;
5558 }
5559 } else {
5560 function = ST(0);
5561 }
5562
5563 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
5564 croak("Math::GSL : $f is not a reference to code!");
5565 }
5566
5567 function = newSVsv(function);
5568
5569 if (! params) {
5570 params=&PL_sv_undef;
5571 }
5572 params = newSVsv(params);
5573
5574 w_gsl_function->params = params;
5575 w_gsl_function->function = function;
5576 w_gsl_function->C_gsl_function.params = w_gsl_function;
5577 w_gsl_function->C_gsl_function.function = &call_gsl_function;
5578
5579 arg1 = &(w_gsl_function->C_gsl_function);
5580 }
5581 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5582 if (!SWIG_IsOK(ecode2)) {
5583 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qcheb" "', argument " "2"" of type '" "double""'");
5584 }
5585 arg2 = (double)(val2);
5586 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
5587 if (!SWIG_IsOK(ecode3)) {
5588 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qcheb" "', argument " "3"" of type '" "double""'");
5589 }
5590 arg3 = (double)(val3);
5591 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_double, 0 | 0 );
5592 if (!SWIG_IsOK(res4)) {
5593 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_integration_qcheb" "', argument " "4"" of type '" "double *""'");
5594 }
5595 arg4 = (double *)(argp4);
5596 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_double, 0 | 0 );
5597 if (!SWIG_IsOK(res5)) {
5598 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_integration_qcheb" "', argument " "5"" of type '" "double *""'");
5599 }
5600 arg5 = (double *)(argp5);
5601 gsl_integration_qcheb(arg1,arg2,arg3,arg4,arg5);
5602 ST(argvi) = &PL_sv_undef;
5603 {
5604 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
5605 gsl_function_perl_free(p);
5606 }
5607
5608
5609
5610
5611 XSRETURN(argvi);
5612 fail:
5613 {
5614 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
5615 gsl_function_perl_free(p);
5616 }
5617
5618
5619
5620
5621 SWIG_croak_null();
5622 }
5623 }
5624
5625
XS(_wrap_gsl_integration_qk)5626 XS(_wrap_gsl_integration_qk) {
5627 {
5628 int arg1 ;
5629 double *arg2 ;
5630 double *arg3 ;
5631 double *arg4 ;
5632 double *arg5 ;
5633 double *arg6 ;
5634 gsl_function *arg7 = (gsl_function *) 0 ;
5635 double arg8 ;
5636 double arg9 ;
5637 double *arg10 = (double *) 0 ;
5638 double *arg11 = (double *) 0 ;
5639 double *arg12 = (double *) 0 ;
5640 double *arg13 = (double *) 0 ;
5641 int val1 ;
5642 int ecode1 = 0 ;
5643 void *argp5 = 0 ;
5644 int res5 = 0 ;
5645 void *argp6 = 0 ;
5646 int res6 = 0 ;
5647 double val8 ;
5648 int ecode8 = 0 ;
5649 double val9 ;
5650 int ecode9 = 0 ;
5651 double temp10 ;
5652 int res10 = SWIG_TMPOBJ ;
5653 double temp11 ;
5654 int res11 = SWIG_TMPOBJ ;
5655 void *argp12 = 0 ;
5656 int res12 = 0 ;
5657 void *argp13 = 0 ;
5658 int res13 = 0 ;
5659 int argvi = 0;
5660 dXSARGS;
5661
5662 arg10 = &temp10;
5663 arg11 = &temp11;
5664 if ((items < 11) || (items > 11)) {
5665 SWIG_croak("Usage: gsl_integration_qk(n,xgk,wg,wgk,fv1,fv2,f,a,b,resabs,resasc);");
5666 }
5667 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
5668 if (!SWIG_IsOK(ecode1)) {
5669 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_integration_qk" "', argument " "1"" of type '" "int""'");
5670 }
5671 arg1 = (int)(val1);
5672 {
5673 AV *tempav;
5674 I32 len;
5675 int i;
5676 SV **tv;
5677 if (!SvROK(ST(1)))
5678 croak("Math::GSL : $xgk is not a reference!");
5679 if (SvTYPE(SvRV(ST(1))) != SVt_PVAV)
5680 croak("Math::GSL : $xgk is not an array ref!");
5681
5682 tempav = (AV*)SvRV(ST(1));
5683 len = av_len(tempav);
5684 arg2 = (double *) malloc((len+2)*sizeof(double));
5685 for (i = 0; i <= len; i++) {
5686 tv = av_fetch(tempav, i, 0);
5687 arg2[i] = (double) SvNV(*tv);
5688 }
5689 }
5690 {
5691 AV *tempav;
5692 I32 len;
5693 int i;
5694 SV **tv;
5695 if (!SvROK(ST(2)))
5696 croak("Math::GSL : $wg is not a reference!");
5697 if (SvTYPE(SvRV(ST(2))) != SVt_PVAV)
5698 croak("Math::GSL : $wg is not an array ref!");
5699
5700 tempav = (AV*)SvRV(ST(2));
5701 len = av_len(tempav);
5702 arg3 = (double *) malloc((len+2)*sizeof(double));
5703 for (i = 0; i <= len; i++) {
5704 tv = av_fetch(tempav, i, 0);
5705 arg3[i] = (double) SvNV(*tv);
5706 }
5707 }
5708 {
5709 AV *tempav;
5710 I32 len;
5711 int i;
5712 SV **tv;
5713 if (!SvROK(ST(3)))
5714 croak("Math::GSL : $wgk is not a reference!");
5715 if (SvTYPE(SvRV(ST(3))) != SVt_PVAV)
5716 croak("Math::GSL : $wgk is not an array ref!");
5717
5718 tempav = (AV*)SvRV(ST(3));
5719 len = av_len(tempav);
5720 arg4 = (double *) malloc((len+2)*sizeof(double));
5721 for (i = 0; i <= len; i++) {
5722 tv = av_fetch(tempav, i, 0);
5723 arg4[i] = (double) SvNV(*tv);
5724 }
5725 }
5726 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_double, 0 | 0 );
5727 if (!SWIG_IsOK(res5)) {
5728 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_integration_qk" "', argument " "5"" of type '" "double []""'");
5729 }
5730 arg5 = (double *)(argp5);
5731 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_double, 0 | 0 );
5732 if (!SWIG_IsOK(res6)) {
5733 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_integration_qk" "', argument " "6"" of type '" "double []""'");
5734 }
5735 arg6 = (double *)(argp6);
5736 {
5737 SV * function = 0;
5738 SV * params = 0;
5739 struct gsl_function_perl *w_gsl_function;
5740 Newx(w_gsl_function, 1, struct gsl_function_perl);
5741
5742 if (SvROK(ST(6)) && (SvTYPE(SvRV(ST(6))) == SVt_PVAV)) {
5743 AV* array=(AV*)SvRV(ST(6));
5744 SV ** p_function = 0;
5745 if (av_len(array)<0) {
5746 croak("Math::GSL : $f is an empty array!");
5747 }
5748 if (av_len(array)>1) {
5749 croak("Math::GSL : $f is an array with more than 2 elements!");
5750 }
5751 p_function = av_fetch(array, 0, 0);
5752 function = *p_function;
5753 if (av_len(array)>0) {
5754 SV ** p_params = 0;
5755 p_params = av_fetch(array, 1, 0);
5756 params = *p_params;
5757 }
5758 } else {
5759 function = ST(6);
5760 }
5761
5762 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
5763 croak("Math::GSL : $f is not a reference to code!");
5764 }
5765
5766 function = newSVsv(function);
5767
5768 if (! params) {
5769 params=&PL_sv_undef;
5770 }
5771 params = newSVsv(params);
5772
5773 w_gsl_function->params = params;
5774 w_gsl_function->function = function;
5775 w_gsl_function->C_gsl_function.params = w_gsl_function;
5776 w_gsl_function->C_gsl_function.function = &call_gsl_function;
5777
5778 arg7 = &(w_gsl_function->C_gsl_function);
5779 }
5780 ecode8 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(7), &val8);
5781 if (!SWIG_IsOK(ecode8)) {
5782 SWIG_exception_fail(SWIG_ArgError(ecode8), "in method '" "gsl_integration_qk" "', argument " "8"" of type '" "double""'");
5783 }
5784 arg8 = (double)(val8);
5785 ecode9 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(8), &val9);
5786 if (!SWIG_IsOK(ecode9)) {
5787 SWIG_exception_fail(SWIG_ArgError(ecode9), "in method '" "gsl_integration_qk" "', argument " "9"" of type '" "double""'");
5788 }
5789 arg9 = (double)(val9);
5790 res12 = SWIG_ConvertPtr(ST(9), &argp12,SWIGTYPE_p_double, 0 | 0 );
5791 if (!SWIG_IsOK(res12)) {
5792 SWIG_exception_fail(SWIG_ArgError(res12), "in method '" "gsl_integration_qk" "', argument " "12"" of type '" "double *""'");
5793 }
5794 arg12 = (double *)(argp12);
5795 res13 = SWIG_ConvertPtr(ST(10), &argp13,SWIGTYPE_p_double, 0 | 0 );
5796 if (!SWIG_IsOK(res13)) {
5797 SWIG_exception_fail(SWIG_ArgError(res13), "in method '" "gsl_integration_qk" "', argument " "13"" of type '" "double *""'");
5798 }
5799 arg13 = (double *)(argp13);
5800 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);
5801 ST(argvi) = &PL_sv_undef;
5802 if (SWIG_IsTmpObj(res10)) {
5803 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg10)); argvi++ ;
5804 } else {
5805 int new_flags = SWIG_IsNewObj(res10) ? (SWIG_POINTER_OWN | 0) : 0;
5806 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg10), SWIGTYPE_p_double, new_flags); argvi++ ;
5807 }
5808 if (SWIG_IsTmpObj(res11)) {
5809 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg11)); argvi++ ;
5810 } else {
5811 int new_flags = SWIG_IsNewObj(res11) ? (SWIG_POINTER_OWN | 0) : 0;
5812 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg11), SWIGTYPE_p_double, new_flags); argvi++ ;
5813 }
5814
5815 {
5816 if (arg2) free(arg2);
5817 }
5818 {
5819 if (arg3) free(arg3);
5820 }
5821 {
5822 if (arg4) free(arg4);
5823 }
5824
5825
5826 {
5827 struct gsl_function_perl *p=(struct gsl_function_perl *) arg7->params;
5828 gsl_function_perl_free(p);
5829 }
5830
5831
5832
5833
5834
5835
5836 XSRETURN(argvi);
5837 fail:
5838
5839 {
5840 if (arg2) free(arg2);
5841 }
5842 {
5843 if (arg3) free(arg3);
5844 }
5845 {
5846 if (arg4) free(arg4);
5847 }
5848
5849
5850 {
5851 struct gsl_function_perl *p=(struct gsl_function_perl *) arg7->params;
5852 gsl_function_perl_free(p);
5853 }
5854
5855
5856
5857
5858
5859
5860 SWIG_croak_null();
5861 }
5862 }
5863
5864
XS(_wrap_gsl_integration_qng)5865 XS(_wrap_gsl_integration_qng) {
5866 {
5867 gsl_function *arg1 = (gsl_function *) 0 ;
5868 double arg2 ;
5869 double arg3 ;
5870 double arg4 ;
5871 double arg5 ;
5872 double *arg6 = (double *) 0 ;
5873 double *arg7 = (double *) 0 ;
5874 size_t *arg8 = (size_t *) 0 ;
5875 double val2 ;
5876 int ecode2 = 0 ;
5877 double val3 ;
5878 int ecode3 = 0 ;
5879 double val4 ;
5880 int ecode4 = 0 ;
5881 double val5 ;
5882 int ecode5 = 0 ;
5883 double temp6 ;
5884 int res6 = SWIG_TMPOBJ ;
5885 double temp7 ;
5886 int res7 = SWIG_TMPOBJ ;
5887 size_t temp8 ;
5888 int res8 = SWIG_TMPOBJ ;
5889 int argvi = 0;
5890 int result;
5891 dXSARGS;
5892
5893 arg6 = &temp6;
5894 arg7 = &temp7;
5895 arg8 = &temp8;
5896 if ((items < 5) || (items > 5)) {
5897 SWIG_croak("Usage: gsl_integration_qng(f,a,b,epsabs,epsrel);");
5898 }
5899 {
5900 SV * function = 0;
5901 SV * params = 0;
5902 struct gsl_function_perl *w_gsl_function;
5903 Newx(w_gsl_function, 1, struct gsl_function_perl);
5904
5905 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
5906 AV* array=(AV*)SvRV(ST(0));
5907 SV ** p_function = 0;
5908 if (av_len(array)<0) {
5909 croak("Math::GSL : $f is an empty array!");
5910 }
5911 if (av_len(array)>1) {
5912 croak("Math::GSL : $f is an array with more than 2 elements!");
5913 }
5914 p_function = av_fetch(array, 0, 0);
5915 function = *p_function;
5916 if (av_len(array)>0) {
5917 SV ** p_params = 0;
5918 p_params = av_fetch(array, 1, 0);
5919 params = *p_params;
5920 }
5921 } else {
5922 function = ST(0);
5923 }
5924
5925 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
5926 croak("Math::GSL : $f is not a reference to code!");
5927 }
5928
5929 function = newSVsv(function);
5930
5931 if (! params) {
5932 params=&PL_sv_undef;
5933 }
5934 params = newSVsv(params);
5935
5936 w_gsl_function->params = params;
5937 w_gsl_function->function = function;
5938 w_gsl_function->C_gsl_function.params = w_gsl_function;
5939 w_gsl_function->C_gsl_function.function = &call_gsl_function;
5940
5941 arg1 = &(w_gsl_function->C_gsl_function);
5942 }
5943 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5944 if (!SWIG_IsOK(ecode2)) {
5945 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qng" "', argument " "2"" of type '" "double""'");
5946 }
5947 arg2 = (double)(val2);
5948 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
5949 if (!SWIG_IsOK(ecode3)) {
5950 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qng" "', argument " "3"" of type '" "double""'");
5951 }
5952 arg3 = (double)(val3);
5953 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
5954 if (!SWIG_IsOK(ecode4)) {
5955 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_integration_qng" "', argument " "4"" of type '" "double""'");
5956 }
5957 arg4 = (double)(val4);
5958 ecode5 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
5959 if (!SWIG_IsOK(ecode5)) {
5960 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_integration_qng" "', argument " "5"" of type '" "double""'");
5961 }
5962 arg5 = (double)(val5);
5963 result = (int)gsl_integration_qng((struct gsl_function_struct const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8);
5964 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5965 if (SWIG_IsTmpObj(res6)) {
5966 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg6)); argvi++ ;
5967 } else {
5968 int new_flags = SWIG_IsNewObj(res6) ? (SWIG_POINTER_OWN | 0) : 0;
5969 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg6), SWIGTYPE_p_double, new_flags); argvi++ ;
5970 }
5971 if (SWIG_IsTmpObj(res7)) {
5972 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg7)); argvi++ ;
5973 } else {
5974 int new_flags = SWIG_IsNewObj(res7) ? (SWIG_POINTER_OWN | 0) : 0;
5975 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg7), SWIGTYPE_p_double, new_flags); argvi++ ;
5976 }
5977 if (SWIG_IsTmpObj(res8)) {
5978 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg8)); argvi++ ;
5979 } else {
5980 int new_flags = SWIG_IsNewObj(res8) ? (SWIG_POINTER_OWN | 0) : 0;
5981 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg8), SWIGTYPE_p_size_t, new_flags); argvi++ ;
5982 }
5983 {
5984 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
5985 gsl_function_perl_free(p);
5986 }
5987
5988
5989
5990
5991
5992
5993
5994 XSRETURN(argvi);
5995 fail:
5996 {
5997 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
5998 gsl_function_perl_free(p);
5999 }
6000
6001
6002
6003
6004
6005
6006
6007 SWIG_croak_null();
6008 }
6009 }
6010
6011
XS(_wrap_gsl_integration_qag)6012 XS(_wrap_gsl_integration_qag) {
6013 {
6014 gsl_function *arg1 = (gsl_function *) 0 ;
6015 double arg2 ;
6016 double arg3 ;
6017 double arg4 ;
6018 double arg5 ;
6019 size_t arg6 ;
6020 int arg7 ;
6021 gsl_integration_workspace *arg8 = (gsl_integration_workspace *) 0 ;
6022 double *arg9 = (double *) 0 ;
6023 double *arg10 = (double *) 0 ;
6024 double val2 ;
6025 int ecode2 = 0 ;
6026 double val3 ;
6027 int ecode3 = 0 ;
6028 double val4 ;
6029 int ecode4 = 0 ;
6030 double val5 ;
6031 int ecode5 = 0 ;
6032 size_t val6 ;
6033 int ecode6 = 0 ;
6034 int val7 ;
6035 int ecode7 = 0 ;
6036 void *argp8 = 0 ;
6037 int res8 = 0 ;
6038 double temp9 ;
6039 int res9 = SWIG_TMPOBJ ;
6040 double temp10 ;
6041 int res10 = SWIG_TMPOBJ ;
6042 int argvi = 0;
6043 int result;
6044 dXSARGS;
6045
6046 arg9 = &temp9;
6047 arg10 = &temp10;
6048 if ((items < 8) || (items > 8)) {
6049 SWIG_croak("Usage: gsl_integration_qag(f,a,b,epsabs,epsrel,limit,key,workspace);");
6050 }
6051 {
6052 SV * function = 0;
6053 SV * params = 0;
6054 struct gsl_function_perl *w_gsl_function;
6055 Newx(w_gsl_function, 1, struct gsl_function_perl);
6056
6057 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
6058 AV* array=(AV*)SvRV(ST(0));
6059 SV ** p_function = 0;
6060 if (av_len(array)<0) {
6061 croak("Math::GSL : $f is an empty array!");
6062 }
6063 if (av_len(array)>1) {
6064 croak("Math::GSL : $f is an array with more than 2 elements!");
6065 }
6066 p_function = av_fetch(array, 0, 0);
6067 function = *p_function;
6068 if (av_len(array)>0) {
6069 SV ** p_params = 0;
6070 p_params = av_fetch(array, 1, 0);
6071 params = *p_params;
6072 }
6073 } else {
6074 function = ST(0);
6075 }
6076
6077 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
6078 croak("Math::GSL : $f is not a reference to code!");
6079 }
6080
6081 function = newSVsv(function);
6082
6083 if (! params) {
6084 params=&PL_sv_undef;
6085 }
6086 params = newSVsv(params);
6087
6088 w_gsl_function->params = params;
6089 w_gsl_function->function = function;
6090 w_gsl_function->C_gsl_function.params = w_gsl_function;
6091 w_gsl_function->C_gsl_function.function = &call_gsl_function;
6092
6093 arg1 = &(w_gsl_function->C_gsl_function);
6094 }
6095 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6096 if (!SWIG_IsOK(ecode2)) {
6097 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qag" "', argument " "2"" of type '" "double""'");
6098 }
6099 arg2 = (double)(val2);
6100 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
6101 if (!SWIG_IsOK(ecode3)) {
6102 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qag" "', argument " "3"" of type '" "double""'");
6103 }
6104 arg3 = (double)(val3);
6105 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
6106 if (!SWIG_IsOK(ecode4)) {
6107 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_integration_qag" "', argument " "4"" of type '" "double""'");
6108 }
6109 arg4 = (double)(val4);
6110 ecode5 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
6111 if (!SWIG_IsOK(ecode5)) {
6112 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_integration_qag" "', argument " "5"" of type '" "double""'");
6113 }
6114 arg5 = (double)(val5);
6115 ecode6 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(5), &val6);
6116 if (!SWIG_IsOK(ecode6)) {
6117 SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "gsl_integration_qag" "', argument " "6"" of type '" "size_t""'");
6118 }
6119 arg6 = (size_t)(val6);
6120 ecode7 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(6), &val7);
6121 if (!SWIG_IsOK(ecode7)) {
6122 SWIG_exception_fail(SWIG_ArgError(ecode7), "in method '" "gsl_integration_qag" "', argument " "7"" of type '" "int""'");
6123 }
6124 arg7 = (int)(val7);
6125 res8 = SWIG_ConvertPtr(ST(7), &argp8,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
6126 if (!SWIG_IsOK(res8)) {
6127 SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_integration_qag" "', argument " "8"" of type '" "gsl_integration_workspace *""'");
6128 }
6129 arg8 = (gsl_integration_workspace *)(argp8);
6130 result = (int)gsl_integration_qag((struct gsl_function_struct const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10);
6131 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6132 if (SWIG_IsTmpObj(res9)) {
6133 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg9)); argvi++ ;
6134 } else {
6135 int new_flags = SWIG_IsNewObj(res9) ? (SWIG_POINTER_OWN | 0) : 0;
6136 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg9), SWIGTYPE_p_double, new_flags); argvi++ ;
6137 }
6138 if (SWIG_IsTmpObj(res10)) {
6139 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg10)); argvi++ ;
6140 } else {
6141 int new_flags = SWIG_IsNewObj(res10) ? (SWIG_POINTER_OWN | 0) : 0;
6142 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg10), SWIGTYPE_p_double, new_flags); argvi++ ;
6143 }
6144 {
6145 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
6146 gsl_function_perl_free(p);
6147 }
6148
6149
6150
6151
6152
6153
6154
6155
6156
6157 XSRETURN(argvi);
6158 fail:
6159 {
6160 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
6161 gsl_function_perl_free(p);
6162 }
6163
6164
6165
6166
6167
6168
6169
6170
6171
6172 SWIG_croak_null();
6173 }
6174 }
6175
6176
XS(_wrap_gsl_integration_qagi)6177 XS(_wrap_gsl_integration_qagi) {
6178 {
6179 gsl_function *arg1 = (gsl_function *) 0 ;
6180 double arg2 ;
6181 double arg3 ;
6182 size_t arg4 ;
6183 gsl_integration_workspace *arg5 = (gsl_integration_workspace *) 0 ;
6184 double *arg6 = (double *) 0 ;
6185 double *arg7 = (double *) 0 ;
6186 double val2 ;
6187 int ecode2 = 0 ;
6188 double val3 ;
6189 int ecode3 = 0 ;
6190 size_t val4 ;
6191 int ecode4 = 0 ;
6192 void *argp5 = 0 ;
6193 int res5 = 0 ;
6194 double temp6 ;
6195 int res6 = SWIG_TMPOBJ ;
6196 double temp7 ;
6197 int res7 = SWIG_TMPOBJ ;
6198 int argvi = 0;
6199 int result;
6200 dXSARGS;
6201
6202 arg6 = &temp6;
6203 arg7 = &temp7;
6204 if ((items < 5) || (items > 5)) {
6205 SWIG_croak("Usage: gsl_integration_qagi(f,epsabs,epsrel,limit,workspace);");
6206 }
6207 {
6208 SV * function = 0;
6209 SV * params = 0;
6210 struct gsl_function_perl *w_gsl_function;
6211 Newx(w_gsl_function, 1, struct gsl_function_perl);
6212
6213 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
6214 AV* array=(AV*)SvRV(ST(0));
6215 SV ** p_function = 0;
6216 if (av_len(array)<0) {
6217 croak("Math::GSL : $f is an empty array!");
6218 }
6219 if (av_len(array)>1) {
6220 croak("Math::GSL : $f is an array with more than 2 elements!");
6221 }
6222 p_function = av_fetch(array, 0, 0);
6223 function = *p_function;
6224 if (av_len(array)>0) {
6225 SV ** p_params = 0;
6226 p_params = av_fetch(array, 1, 0);
6227 params = *p_params;
6228 }
6229 } else {
6230 function = ST(0);
6231 }
6232
6233 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
6234 croak("Math::GSL : $f is not a reference to code!");
6235 }
6236
6237 function = newSVsv(function);
6238
6239 if (! params) {
6240 params=&PL_sv_undef;
6241 }
6242 params = newSVsv(params);
6243
6244 w_gsl_function->params = params;
6245 w_gsl_function->function = function;
6246 w_gsl_function->C_gsl_function.params = w_gsl_function;
6247 w_gsl_function->C_gsl_function.function = &call_gsl_function;
6248
6249 arg1 = &(w_gsl_function->C_gsl_function);
6250 }
6251 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6252 if (!SWIG_IsOK(ecode2)) {
6253 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qagi" "', argument " "2"" of type '" "double""'");
6254 }
6255 arg2 = (double)(val2);
6256 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
6257 if (!SWIG_IsOK(ecode3)) {
6258 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qagi" "', argument " "3"" of type '" "double""'");
6259 }
6260 arg3 = (double)(val3);
6261 ecode4 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
6262 if (!SWIG_IsOK(ecode4)) {
6263 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_integration_qagi" "', argument " "4"" of type '" "size_t""'");
6264 }
6265 arg4 = (size_t)(val4);
6266 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
6267 if (!SWIG_IsOK(res5)) {
6268 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_integration_qagi" "', argument " "5"" of type '" "gsl_integration_workspace *""'");
6269 }
6270 arg5 = (gsl_integration_workspace *)(argp5);
6271 result = (int)gsl_integration_qagi(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
6272 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6273 if (SWIG_IsTmpObj(res6)) {
6274 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg6)); argvi++ ;
6275 } else {
6276 int new_flags = SWIG_IsNewObj(res6) ? (SWIG_POINTER_OWN | 0) : 0;
6277 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg6), SWIGTYPE_p_double, new_flags); argvi++ ;
6278 }
6279 if (SWIG_IsTmpObj(res7)) {
6280 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg7)); argvi++ ;
6281 } else {
6282 int new_flags = SWIG_IsNewObj(res7) ? (SWIG_POINTER_OWN | 0) : 0;
6283 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg7), SWIGTYPE_p_double, new_flags); argvi++ ;
6284 }
6285 {
6286 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
6287 gsl_function_perl_free(p);
6288 }
6289
6290
6291
6292
6293
6294
6295 XSRETURN(argvi);
6296 fail:
6297 {
6298 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
6299 gsl_function_perl_free(p);
6300 }
6301
6302
6303
6304
6305
6306
6307 SWIG_croak_null();
6308 }
6309 }
6310
6311
XS(_wrap_gsl_integration_qagiu)6312 XS(_wrap_gsl_integration_qagiu) {
6313 {
6314 gsl_function *arg1 = (gsl_function *) 0 ;
6315 double arg2 ;
6316 double arg3 ;
6317 double arg4 ;
6318 size_t arg5 ;
6319 gsl_integration_workspace *arg6 = (gsl_integration_workspace *) 0 ;
6320 double *arg7 = (double *) 0 ;
6321 double *arg8 = (double *) 0 ;
6322 double val2 ;
6323 int ecode2 = 0 ;
6324 double val3 ;
6325 int ecode3 = 0 ;
6326 double val4 ;
6327 int ecode4 = 0 ;
6328 size_t val5 ;
6329 int ecode5 = 0 ;
6330 void *argp6 = 0 ;
6331 int res6 = 0 ;
6332 double temp7 ;
6333 int res7 = SWIG_TMPOBJ ;
6334 double temp8 ;
6335 int res8 = SWIG_TMPOBJ ;
6336 int argvi = 0;
6337 int result;
6338 dXSARGS;
6339
6340 arg7 = &temp7;
6341 arg8 = &temp8;
6342 if ((items < 6) || (items > 6)) {
6343 SWIG_croak("Usage: gsl_integration_qagiu(f,a,epsabs,epsrel,limit,workspace);");
6344 }
6345 {
6346 SV * function = 0;
6347 SV * params = 0;
6348 struct gsl_function_perl *w_gsl_function;
6349 Newx(w_gsl_function, 1, struct gsl_function_perl);
6350
6351 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
6352 AV* array=(AV*)SvRV(ST(0));
6353 SV ** p_function = 0;
6354 if (av_len(array)<0) {
6355 croak("Math::GSL : $f is an empty array!");
6356 }
6357 if (av_len(array)>1) {
6358 croak("Math::GSL : $f is an array with more than 2 elements!");
6359 }
6360 p_function = av_fetch(array, 0, 0);
6361 function = *p_function;
6362 if (av_len(array)>0) {
6363 SV ** p_params = 0;
6364 p_params = av_fetch(array, 1, 0);
6365 params = *p_params;
6366 }
6367 } else {
6368 function = ST(0);
6369 }
6370
6371 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
6372 croak("Math::GSL : $f is not a reference to code!");
6373 }
6374
6375 function = newSVsv(function);
6376
6377 if (! params) {
6378 params=&PL_sv_undef;
6379 }
6380 params = newSVsv(params);
6381
6382 w_gsl_function->params = params;
6383 w_gsl_function->function = function;
6384 w_gsl_function->C_gsl_function.params = w_gsl_function;
6385 w_gsl_function->C_gsl_function.function = &call_gsl_function;
6386
6387 arg1 = &(w_gsl_function->C_gsl_function);
6388 }
6389 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6390 if (!SWIG_IsOK(ecode2)) {
6391 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qagiu" "', argument " "2"" of type '" "double""'");
6392 }
6393 arg2 = (double)(val2);
6394 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
6395 if (!SWIG_IsOK(ecode3)) {
6396 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qagiu" "', argument " "3"" of type '" "double""'");
6397 }
6398 arg3 = (double)(val3);
6399 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
6400 if (!SWIG_IsOK(ecode4)) {
6401 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_integration_qagiu" "', argument " "4"" of type '" "double""'");
6402 }
6403 arg4 = (double)(val4);
6404 ecode5 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
6405 if (!SWIG_IsOK(ecode5)) {
6406 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_integration_qagiu" "', argument " "5"" of type '" "size_t""'");
6407 }
6408 arg5 = (size_t)(val5);
6409 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
6410 if (!SWIG_IsOK(res6)) {
6411 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_integration_qagiu" "', argument " "6"" of type '" "gsl_integration_workspace *""'");
6412 }
6413 arg6 = (gsl_integration_workspace *)(argp6);
6414 result = (int)gsl_integration_qagiu(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8);
6415 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6416 if (SWIG_IsTmpObj(res7)) {
6417 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg7)); argvi++ ;
6418 } else {
6419 int new_flags = SWIG_IsNewObj(res7) ? (SWIG_POINTER_OWN | 0) : 0;
6420 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg7), SWIGTYPE_p_double, new_flags); argvi++ ;
6421 }
6422 if (SWIG_IsTmpObj(res8)) {
6423 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg8)); argvi++ ;
6424 } else {
6425 int new_flags = SWIG_IsNewObj(res8) ? (SWIG_POINTER_OWN | 0) : 0;
6426 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg8), SWIGTYPE_p_double, new_flags); argvi++ ;
6427 }
6428 {
6429 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
6430 gsl_function_perl_free(p);
6431 }
6432
6433
6434
6435
6436
6437
6438
6439 XSRETURN(argvi);
6440 fail:
6441 {
6442 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
6443 gsl_function_perl_free(p);
6444 }
6445
6446
6447
6448
6449
6450
6451
6452 SWIG_croak_null();
6453 }
6454 }
6455
6456
XS(_wrap_gsl_integration_qagil)6457 XS(_wrap_gsl_integration_qagil) {
6458 {
6459 gsl_function *arg1 = (gsl_function *) 0 ;
6460 double arg2 ;
6461 double arg3 ;
6462 double arg4 ;
6463 size_t arg5 ;
6464 gsl_integration_workspace *arg6 = (gsl_integration_workspace *) 0 ;
6465 double *arg7 = (double *) 0 ;
6466 double *arg8 = (double *) 0 ;
6467 double val2 ;
6468 int ecode2 = 0 ;
6469 double val3 ;
6470 int ecode3 = 0 ;
6471 double val4 ;
6472 int ecode4 = 0 ;
6473 size_t val5 ;
6474 int ecode5 = 0 ;
6475 void *argp6 = 0 ;
6476 int res6 = 0 ;
6477 double temp7 ;
6478 int res7 = SWIG_TMPOBJ ;
6479 double temp8 ;
6480 int res8 = SWIG_TMPOBJ ;
6481 int argvi = 0;
6482 int result;
6483 dXSARGS;
6484
6485 arg7 = &temp7;
6486 arg8 = &temp8;
6487 if ((items < 6) || (items > 6)) {
6488 SWIG_croak("Usage: gsl_integration_qagil(f,b,epsabs,epsrel,limit,workspace);");
6489 }
6490 {
6491 SV * function = 0;
6492 SV * params = 0;
6493 struct gsl_function_perl *w_gsl_function;
6494 Newx(w_gsl_function, 1, struct gsl_function_perl);
6495
6496 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
6497 AV* array=(AV*)SvRV(ST(0));
6498 SV ** p_function = 0;
6499 if (av_len(array)<0) {
6500 croak("Math::GSL : $f is an empty array!");
6501 }
6502 if (av_len(array)>1) {
6503 croak("Math::GSL : $f is an array with more than 2 elements!");
6504 }
6505 p_function = av_fetch(array, 0, 0);
6506 function = *p_function;
6507 if (av_len(array)>0) {
6508 SV ** p_params = 0;
6509 p_params = av_fetch(array, 1, 0);
6510 params = *p_params;
6511 }
6512 } else {
6513 function = ST(0);
6514 }
6515
6516 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
6517 croak("Math::GSL : $f is not a reference to code!");
6518 }
6519
6520 function = newSVsv(function);
6521
6522 if (! params) {
6523 params=&PL_sv_undef;
6524 }
6525 params = newSVsv(params);
6526
6527 w_gsl_function->params = params;
6528 w_gsl_function->function = function;
6529 w_gsl_function->C_gsl_function.params = w_gsl_function;
6530 w_gsl_function->C_gsl_function.function = &call_gsl_function;
6531
6532 arg1 = &(w_gsl_function->C_gsl_function);
6533 }
6534 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6535 if (!SWIG_IsOK(ecode2)) {
6536 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qagil" "', argument " "2"" of type '" "double""'");
6537 }
6538 arg2 = (double)(val2);
6539 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
6540 if (!SWIG_IsOK(ecode3)) {
6541 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qagil" "', argument " "3"" of type '" "double""'");
6542 }
6543 arg3 = (double)(val3);
6544 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
6545 if (!SWIG_IsOK(ecode4)) {
6546 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_integration_qagil" "', argument " "4"" of type '" "double""'");
6547 }
6548 arg4 = (double)(val4);
6549 ecode5 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
6550 if (!SWIG_IsOK(ecode5)) {
6551 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_integration_qagil" "', argument " "5"" of type '" "size_t""'");
6552 }
6553 arg5 = (size_t)(val5);
6554 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
6555 if (!SWIG_IsOK(res6)) {
6556 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_integration_qagil" "', argument " "6"" of type '" "gsl_integration_workspace *""'");
6557 }
6558 arg6 = (gsl_integration_workspace *)(argp6);
6559 result = (int)gsl_integration_qagil(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8);
6560 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6561 if (SWIG_IsTmpObj(res7)) {
6562 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg7)); argvi++ ;
6563 } else {
6564 int new_flags = SWIG_IsNewObj(res7) ? (SWIG_POINTER_OWN | 0) : 0;
6565 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg7), SWIGTYPE_p_double, new_flags); argvi++ ;
6566 }
6567 if (SWIG_IsTmpObj(res8)) {
6568 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg8)); argvi++ ;
6569 } else {
6570 int new_flags = SWIG_IsNewObj(res8) ? (SWIG_POINTER_OWN | 0) : 0;
6571 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg8), SWIGTYPE_p_double, new_flags); argvi++ ;
6572 }
6573 {
6574 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
6575 gsl_function_perl_free(p);
6576 }
6577
6578
6579
6580
6581
6582
6583
6584 XSRETURN(argvi);
6585 fail:
6586 {
6587 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
6588 gsl_function_perl_free(p);
6589 }
6590
6591
6592
6593
6594
6595
6596
6597 SWIG_croak_null();
6598 }
6599 }
6600
6601
XS(_wrap_gsl_integration_qags)6602 XS(_wrap_gsl_integration_qags) {
6603 {
6604 gsl_function *arg1 = (gsl_function *) 0 ;
6605 double arg2 ;
6606 double arg3 ;
6607 double arg4 ;
6608 double arg5 ;
6609 size_t arg6 ;
6610 gsl_integration_workspace *arg7 = (gsl_integration_workspace *) 0 ;
6611 double *arg8 = (double *) 0 ;
6612 double *arg9 = (double *) 0 ;
6613 double val2 ;
6614 int ecode2 = 0 ;
6615 double val3 ;
6616 int ecode3 = 0 ;
6617 double val4 ;
6618 int ecode4 = 0 ;
6619 double val5 ;
6620 int ecode5 = 0 ;
6621 size_t val6 ;
6622 int ecode6 = 0 ;
6623 void *argp7 = 0 ;
6624 int res7 = 0 ;
6625 double temp8 ;
6626 int res8 = SWIG_TMPOBJ ;
6627 double temp9 ;
6628 int res9 = SWIG_TMPOBJ ;
6629 int argvi = 0;
6630 int result;
6631 dXSARGS;
6632
6633 arg8 = &temp8;
6634 arg9 = &temp9;
6635 if ((items < 7) || (items > 7)) {
6636 SWIG_croak("Usage: gsl_integration_qags(f,a,b,epsabs,epsrel,limit,workspace);");
6637 }
6638 {
6639 SV * function = 0;
6640 SV * params = 0;
6641 struct gsl_function_perl *w_gsl_function;
6642 Newx(w_gsl_function, 1, struct gsl_function_perl);
6643
6644 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
6645 AV* array=(AV*)SvRV(ST(0));
6646 SV ** p_function = 0;
6647 if (av_len(array)<0) {
6648 croak("Math::GSL : $f is an empty array!");
6649 }
6650 if (av_len(array)>1) {
6651 croak("Math::GSL : $f is an array with more than 2 elements!");
6652 }
6653 p_function = av_fetch(array, 0, 0);
6654 function = *p_function;
6655 if (av_len(array)>0) {
6656 SV ** p_params = 0;
6657 p_params = av_fetch(array, 1, 0);
6658 params = *p_params;
6659 }
6660 } else {
6661 function = ST(0);
6662 }
6663
6664 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
6665 croak("Math::GSL : $f is not a reference to code!");
6666 }
6667
6668 function = newSVsv(function);
6669
6670 if (! params) {
6671 params=&PL_sv_undef;
6672 }
6673 params = newSVsv(params);
6674
6675 w_gsl_function->params = params;
6676 w_gsl_function->function = function;
6677 w_gsl_function->C_gsl_function.params = w_gsl_function;
6678 w_gsl_function->C_gsl_function.function = &call_gsl_function;
6679
6680 arg1 = &(w_gsl_function->C_gsl_function);
6681 }
6682 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6683 if (!SWIG_IsOK(ecode2)) {
6684 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qags" "', argument " "2"" of type '" "double""'");
6685 }
6686 arg2 = (double)(val2);
6687 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
6688 if (!SWIG_IsOK(ecode3)) {
6689 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qags" "', argument " "3"" of type '" "double""'");
6690 }
6691 arg3 = (double)(val3);
6692 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
6693 if (!SWIG_IsOK(ecode4)) {
6694 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_integration_qags" "', argument " "4"" of type '" "double""'");
6695 }
6696 arg4 = (double)(val4);
6697 ecode5 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
6698 if (!SWIG_IsOK(ecode5)) {
6699 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_integration_qags" "', argument " "5"" of type '" "double""'");
6700 }
6701 arg5 = (double)(val5);
6702 ecode6 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(5), &val6);
6703 if (!SWIG_IsOK(ecode6)) {
6704 SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "gsl_integration_qags" "', argument " "6"" of type '" "size_t""'");
6705 }
6706 arg6 = (size_t)(val6);
6707 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
6708 if (!SWIG_IsOK(res7)) {
6709 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_integration_qags" "', argument " "7"" of type '" "gsl_integration_workspace *""'");
6710 }
6711 arg7 = (gsl_integration_workspace *)(argp7);
6712 result = (int)gsl_integration_qags((struct gsl_function_struct const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
6713 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6714 if (SWIG_IsTmpObj(res8)) {
6715 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg8)); argvi++ ;
6716 } else {
6717 int new_flags = SWIG_IsNewObj(res8) ? (SWIG_POINTER_OWN | 0) : 0;
6718 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg8), SWIGTYPE_p_double, new_flags); argvi++ ;
6719 }
6720 if (SWIG_IsTmpObj(res9)) {
6721 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg9)); argvi++ ;
6722 } else {
6723 int new_flags = SWIG_IsNewObj(res9) ? (SWIG_POINTER_OWN | 0) : 0;
6724 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg9), SWIGTYPE_p_double, new_flags); argvi++ ;
6725 }
6726 {
6727 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
6728 gsl_function_perl_free(p);
6729 }
6730
6731
6732
6733
6734
6735
6736
6737
6738 XSRETURN(argvi);
6739 fail:
6740 {
6741 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
6742 gsl_function_perl_free(p);
6743 }
6744
6745
6746
6747
6748
6749
6750
6751
6752 SWIG_croak_null();
6753 }
6754 }
6755
6756
XS(_wrap_gsl_integration_qagp)6757 XS(_wrap_gsl_integration_qagp) {
6758 {
6759 gsl_function *arg1 = (gsl_function *) 0 ;
6760 double *arg2 = (double *) 0 ;
6761 size_t arg3 ;
6762 double arg4 ;
6763 double arg5 ;
6764 size_t arg6 ;
6765 gsl_integration_workspace *arg7 = (gsl_integration_workspace *) 0 ;
6766 double *arg8 = (double *) 0 ;
6767 double *arg9 = (double *) 0 ;
6768 void *argp2 = 0 ;
6769 int res2 = 0 ;
6770 size_t val3 ;
6771 int ecode3 = 0 ;
6772 double val4 ;
6773 int ecode4 = 0 ;
6774 double val5 ;
6775 int ecode5 = 0 ;
6776 size_t val6 ;
6777 int ecode6 = 0 ;
6778 void *argp7 = 0 ;
6779 int res7 = 0 ;
6780 double temp8 ;
6781 int res8 = SWIG_TMPOBJ ;
6782 double temp9 ;
6783 int res9 = SWIG_TMPOBJ ;
6784 int argvi = 0;
6785 int result;
6786 dXSARGS;
6787
6788 arg8 = &temp8;
6789 arg9 = &temp9;
6790 if ((items < 7) || (items > 7)) {
6791 SWIG_croak("Usage: gsl_integration_qagp(f,pts,npts,epsabs,epsrel,limit,workspace);");
6792 }
6793 {
6794 SV * function = 0;
6795 SV * params = 0;
6796 struct gsl_function_perl *w_gsl_function;
6797 Newx(w_gsl_function, 1, struct gsl_function_perl);
6798
6799 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
6800 AV* array=(AV*)SvRV(ST(0));
6801 SV ** p_function = 0;
6802 if (av_len(array)<0) {
6803 croak("Math::GSL : $f is an empty array!");
6804 }
6805 if (av_len(array)>1) {
6806 croak("Math::GSL : $f is an array with more than 2 elements!");
6807 }
6808 p_function = av_fetch(array, 0, 0);
6809 function = *p_function;
6810 if (av_len(array)>0) {
6811 SV ** p_params = 0;
6812 p_params = av_fetch(array, 1, 0);
6813 params = *p_params;
6814 }
6815 } else {
6816 function = ST(0);
6817 }
6818
6819 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
6820 croak("Math::GSL : $f is not a reference to code!");
6821 }
6822
6823 function = newSVsv(function);
6824
6825 if (! params) {
6826 params=&PL_sv_undef;
6827 }
6828 params = newSVsv(params);
6829
6830 w_gsl_function->params = params;
6831 w_gsl_function->function = function;
6832 w_gsl_function->C_gsl_function.params = w_gsl_function;
6833 w_gsl_function->C_gsl_function.function = &call_gsl_function;
6834
6835 arg1 = &(w_gsl_function->C_gsl_function);
6836 }
6837 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
6838 if (!SWIG_IsOK(res2)) {
6839 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_qagp" "', argument " "2"" of type '" "double *""'");
6840 }
6841 arg2 = (double *)(argp2);
6842 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
6843 if (!SWIG_IsOK(ecode3)) {
6844 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qagp" "', argument " "3"" of type '" "size_t""'");
6845 }
6846 arg3 = (size_t)(val3);
6847 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
6848 if (!SWIG_IsOK(ecode4)) {
6849 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_integration_qagp" "', argument " "4"" of type '" "double""'");
6850 }
6851 arg4 = (double)(val4);
6852 ecode5 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
6853 if (!SWIG_IsOK(ecode5)) {
6854 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_integration_qagp" "', argument " "5"" of type '" "double""'");
6855 }
6856 arg5 = (double)(val5);
6857 ecode6 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(5), &val6);
6858 if (!SWIG_IsOK(ecode6)) {
6859 SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "gsl_integration_qagp" "', argument " "6"" of type '" "size_t""'");
6860 }
6861 arg6 = (size_t)(val6);
6862 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
6863 if (!SWIG_IsOK(res7)) {
6864 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_integration_qagp" "', argument " "7"" of type '" "gsl_integration_workspace *""'");
6865 }
6866 arg7 = (gsl_integration_workspace *)(argp7);
6867 result = (int)gsl_integration_qagp((struct gsl_function_struct const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
6868 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6869 if (SWIG_IsTmpObj(res8)) {
6870 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg8)); argvi++ ;
6871 } else {
6872 int new_flags = SWIG_IsNewObj(res8) ? (SWIG_POINTER_OWN | 0) : 0;
6873 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg8), SWIGTYPE_p_double, new_flags); argvi++ ;
6874 }
6875 if (SWIG_IsTmpObj(res9)) {
6876 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg9)); argvi++ ;
6877 } else {
6878 int new_flags = SWIG_IsNewObj(res9) ? (SWIG_POINTER_OWN | 0) : 0;
6879 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg9), SWIGTYPE_p_double, new_flags); argvi++ ;
6880 }
6881 {
6882 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
6883 gsl_function_perl_free(p);
6884 }
6885
6886
6887
6888
6889
6890
6891
6892
6893 XSRETURN(argvi);
6894 fail:
6895 {
6896 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
6897 gsl_function_perl_free(p);
6898 }
6899
6900
6901
6902
6903
6904
6905
6906
6907 SWIG_croak_null();
6908 }
6909 }
6910
6911
XS(_wrap_gsl_integration_qawc)6912 XS(_wrap_gsl_integration_qawc) {
6913 {
6914 gsl_function *arg1 = (gsl_function *) 0 ;
6915 double arg2 ;
6916 double arg3 ;
6917 double arg4 ;
6918 double arg5 ;
6919 double arg6 ;
6920 size_t arg7 ;
6921 gsl_integration_workspace *arg8 = (gsl_integration_workspace *) 0 ;
6922 double *arg9 = (double *) 0 ;
6923 double *arg10 = (double *) 0 ;
6924 double val2 ;
6925 int ecode2 = 0 ;
6926 double val3 ;
6927 int ecode3 = 0 ;
6928 double val4 ;
6929 int ecode4 = 0 ;
6930 double val5 ;
6931 int ecode5 = 0 ;
6932 double val6 ;
6933 int ecode6 = 0 ;
6934 size_t val7 ;
6935 int ecode7 = 0 ;
6936 void *argp8 = 0 ;
6937 int res8 = 0 ;
6938 double temp9 ;
6939 int res9 = SWIG_TMPOBJ ;
6940 double temp10 ;
6941 int res10 = SWIG_TMPOBJ ;
6942 int argvi = 0;
6943 int result;
6944 dXSARGS;
6945
6946 arg9 = &temp9;
6947 arg10 = &temp10;
6948 if ((items < 8) || (items > 8)) {
6949 SWIG_croak("Usage: gsl_integration_qawc(f,a,b,c,epsabs,epsrel,limit,workspace);");
6950 }
6951 {
6952 SV * function = 0;
6953 SV * params = 0;
6954 struct gsl_function_perl *w_gsl_function;
6955 Newx(w_gsl_function, 1, struct gsl_function_perl);
6956
6957 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
6958 AV* array=(AV*)SvRV(ST(0));
6959 SV ** p_function = 0;
6960 if (av_len(array)<0) {
6961 croak("Math::GSL : $f is an empty array!");
6962 }
6963 if (av_len(array)>1) {
6964 croak("Math::GSL : $f is an array with more than 2 elements!");
6965 }
6966 p_function = av_fetch(array, 0, 0);
6967 function = *p_function;
6968 if (av_len(array)>0) {
6969 SV ** p_params = 0;
6970 p_params = av_fetch(array, 1, 0);
6971 params = *p_params;
6972 }
6973 } else {
6974 function = ST(0);
6975 }
6976
6977 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
6978 croak("Math::GSL : $f is not a reference to code!");
6979 }
6980
6981 function = newSVsv(function);
6982
6983 if (! params) {
6984 params=&PL_sv_undef;
6985 }
6986 params = newSVsv(params);
6987
6988 w_gsl_function->params = params;
6989 w_gsl_function->function = function;
6990 w_gsl_function->C_gsl_function.params = w_gsl_function;
6991 w_gsl_function->C_gsl_function.function = &call_gsl_function;
6992
6993 arg1 = &(w_gsl_function->C_gsl_function);
6994 }
6995 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6996 if (!SWIG_IsOK(ecode2)) {
6997 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qawc" "', argument " "2"" of type '" "double""'");
6998 }
6999 arg2 = (double)(val2);
7000 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
7001 if (!SWIG_IsOK(ecode3)) {
7002 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qawc" "', argument " "3"" of type '" "double""'");
7003 }
7004 arg3 = (double)(val3);
7005 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
7006 if (!SWIG_IsOK(ecode4)) {
7007 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_integration_qawc" "', argument " "4"" of type '" "double""'");
7008 }
7009 arg4 = (double)(val4);
7010 ecode5 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
7011 if (!SWIG_IsOK(ecode5)) {
7012 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_integration_qawc" "', argument " "5"" of type '" "double""'");
7013 }
7014 arg5 = (double)(val5);
7015 ecode6 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(5), &val6);
7016 if (!SWIG_IsOK(ecode6)) {
7017 SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "gsl_integration_qawc" "', argument " "6"" of type '" "double""'");
7018 }
7019 arg6 = (double)(val6);
7020 ecode7 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(6), &val7);
7021 if (!SWIG_IsOK(ecode7)) {
7022 SWIG_exception_fail(SWIG_ArgError(ecode7), "in method '" "gsl_integration_qawc" "', argument " "7"" of type '" "size_t""'");
7023 }
7024 arg7 = (size_t)(val7);
7025 res8 = SWIG_ConvertPtr(ST(7), &argp8,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
7026 if (!SWIG_IsOK(res8)) {
7027 SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_integration_qawc" "', argument " "8"" of type '" "gsl_integration_workspace *""'");
7028 }
7029 arg8 = (gsl_integration_workspace *)(argp8);
7030 result = (int)gsl_integration_qawc(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10);
7031 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7032 if (SWIG_IsTmpObj(res9)) {
7033 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg9)); argvi++ ;
7034 } else {
7035 int new_flags = SWIG_IsNewObj(res9) ? (SWIG_POINTER_OWN | 0) : 0;
7036 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg9), SWIGTYPE_p_double, new_flags); argvi++ ;
7037 }
7038 if (SWIG_IsTmpObj(res10)) {
7039 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg10)); argvi++ ;
7040 } else {
7041 int new_flags = SWIG_IsNewObj(res10) ? (SWIG_POINTER_OWN | 0) : 0;
7042 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg10), SWIGTYPE_p_double, new_flags); argvi++ ;
7043 }
7044 {
7045 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
7046 gsl_function_perl_free(p);
7047 }
7048
7049
7050
7051
7052
7053
7054
7055
7056
7057 XSRETURN(argvi);
7058 fail:
7059 {
7060 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
7061 gsl_function_perl_free(p);
7062 }
7063
7064
7065
7066
7067
7068
7069
7070
7071
7072 SWIG_croak_null();
7073 }
7074 }
7075
7076
XS(_wrap_gsl_integration_qaws)7077 XS(_wrap_gsl_integration_qaws) {
7078 {
7079 gsl_function *arg1 = (gsl_function *) 0 ;
7080 double arg2 ;
7081 double arg3 ;
7082 gsl_integration_qaws_table *arg4 = (gsl_integration_qaws_table *) 0 ;
7083 double arg5 ;
7084 double arg6 ;
7085 size_t arg7 ;
7086 gsl_integration_workspace *arg8 = (gsl_integration_workspace *) 0 ;
7087 double *arg9 = (double *) 0 ;
7088 double *arg10 = (double *) 0 ;
7089 double val2 ;
7090 int ecode2 = 0 ;
7091 double val3 ;
7092 int ecode3 = 0 ;
7093 void *argp4 = 0 ;
7094 int res4 = 0 ;
7095 double val5 ;
7096 int ecode5 = 0 ;
7097 double val6 ;
7098 int ecode6 = 0 ;
7099 size_t val7 ;
7100 int ecode7 = 0 ;
7101 void *argp8 = 0 ;
7102 int res8 = 0 ;
7103 double temp9 ;
7104 int res9 = SWIG_TMPOBJ ;
7105 double temp10 ;
7106 int res10 = SWIG_TMPOBJ ;
7107 int argvi = 0;
7108 int result;
7109 dXSARGS;
7110
7111 arg9 = &temp9;
7112 arg10 = &temp10;
7113 if ((items < 8) || (items > 8)) {
7114 SWIG_croak("Usage: gsl_integration_qaws(f,a,b,t,epsabs,epsrel,limit,workspace);");
7115 }
7116 {
7117 SV * function = 0;
7118 SV * params = 0;
7119 struct gsl_function_perl *w_gsl_function;
7120 Newx(w_gsl_function, 1, struct gsl_function_perl);
7121
7122 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
7123 AV* array=(AV*)SvRV(ST(0));
7124 SV ** p_function = 0;
7125 if (av_len(array)<0) {
7126 croak("Math::GSL : $f is an empty array!");
7127 }
7128 if (av_len(array)>1) {
7129 croak("Math::GSL : $f is an array with more than 2 elements!");
7130 }
7131 p_function = av_fetch(array, 0, 0);
7132 function = *p_function;
7133 if (av_len(array)>0) {
7134 SV ** p_params = 0;
7135 p_params = av_fetch(array, 1, 0);
7136 params = *p_params;
7137 }
7138 } else {
7139 function = ST(0);
7140 }
7141
7142 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
7143 croak("Math::GSL : $f is not a reference to code!");
7144 }
7145
7146 function = newSVsv(function);
7147
7148 if (! params) {
7149 params=&PL_sv_undef;
7150 }
7151 params = newSVsv(params);
7152
7153 w_gsl_function->params = params;
7154 w_gsl_function->function = function;
7155 w_gsl_function->C_gsl_function.params = w_gsl_function;
7156 w_gsl_function->C_gsl_function.function = &call_gsl_function;
7157
7158 arg1 = &(w_gsl_function->C_gsl_function);
7159 }
7160 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7161 if (!SWIG_IsOK(ecode2)) {
7162 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qaws" "', argument " "2"" of type '" "double""'");
7163 }
7164 arg2 = (double)(val2);
7165 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
7166 if (!SWIG_IsOK(ecode3)) {
7167 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qaws" "', argument " "3"" of type '" "double""'");
7168 }
7169 arg3 = (double)(val3);
7170 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_integration_qaws_table, 0 | 0 );
7171 if (!SWIG_IsOK(res4)) {
7172 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_integration_qaws" "', argument " "4"" of type '" "gsl_integration_qaws_table *""'");
7173 }
7174 arg4 = (gsl_integration_qaws_table *)(argp4);
7175 ecode5 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
7176 if (!SWIG_IsOK(ecode5)) {
7177 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_integration_qaws" "', argument " "5"" of type '" "double""'");
7178 }
7179 arg5 = (double)(val5);
7180 ecode6 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(5), &val6);
7181 if (!SWIG_IsOK(ecode6)) {
7182 SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "gsl_integration_qaws" "', argument " "6"" of type '" "double""'");
7183 }
7184 arg6 = (double)(val6);
7185 ecode7 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(6), &val7);
7186 if (!SWIG_IsOK(ecode7)) {
7187 SWIG_exception_fail(SWIG_ArgError(ecode7), "in method '" "gsl_integration_qaws" "', argument " "7"" of type '" "size_t""'");
7188 }
7189 arg7 = (size_t)(val7);
7190 res8 = SWIG_ConvertPtr(ST(7), &argp8,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
7191 if (!SWIG_IsOK(res8)) {
7192 SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_integration_qaws" "', argument " "8"" of type '" "gsl_integration_workspace *""'");
7193 }
7194 arg8 = (gsl_integration_workspace *)(argp8);
7195 result = (int)gsl_integration_qaws(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10);
7196 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7197 if (SWIG_IsTmpObj(res9)) {
7198 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg9)); argvi++ ;
7199 } else {
7200 int new_flags = SWIG_IsNewObj(res9) ? (SWIG_POINTER_OWN | 0) : 0;
7201 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg9), SWIGTYPE_p_double, new_flags); argvi++ ;
7202 }
7203 if (SWIG_IsTmpObj(res10)) {
7204 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg10)); argvi++ ;
7205 } else {
7206 int new_flags = SWIG_IsNewObj(res10) ? (SWIG_POINTER_OWN | 0) : 0;
7207 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg10), SWIGTYPE_p_double, new_flags); argvi++ ;
7208 }
7209 {
7210 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
7211 gsl_function_perl_free(p);
7212 }
7213
7214
7215
7216
7217
7218
7219
7220
7221
7222 XSRETURN(argvi);
7223 fail:
7224 {
7225 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
7226 gsl_function_perl_free(p);
7227 }
7228
7229
7230
7231
7232
7233
7234
7235
7236
7237 SWIG_croak_null();
7238 }
7239 }
7240
7241
XS(_wrap_gsl_integration_qawo)7242 XS(_wrap_gsl_integration_qawo) {
7243 {
7244 gsl_function *arg1 = (gsl_function *) 0 ;
7245 double arg2 ;
7246 double arg3 ;
7247 double arg4 ;
7248 size_t arg5 ;
7249 gsl_integration_workspace *arg6 = (gsl_integration_workspace *) 0 ;
7250 gsl_integration_qawo_table *arg7 = (gsl_integration_qawo_table *) 0 ;
7251 double *arg8 = (double *) 0 ;
7252 double *arg9 = (double *) 0 ;
7253 double val2 ;
7254 int ecode2 = 0 ;
7255 double val3 ;
7256 int ecode3 = 0 ;
7257 double val4 ;
7258 int ecode4 = 0 ;
7259 size_t val5 ;
7260 int ecode5 = 0 ;
7261 void *argp6 = 0 ;
7262 int res6 = 0 ;
7263 void *argp7 = 0 ;
7264 int res7 = 0 ;
7265 double temp8 ;
7266 int res8 = SWIG_TMPOBJ ;
7267 double temp9 ;
7268 int res9 = SWIG_TMPOBJ ;
7269 int argvi = 0;
7270 int result;
7271 dXSARGS;
7272
7273 arg8 = &temp8;
7274 arg9 = &temp9;
7275 if ((items < 7) || (items > 7)) {
7276 SWIG_croak("Usage: gsl_integration_qawo(f,a,epsabs,epsrel,limit,workspace,wf);");
7277 }
7278 {
7279 SV * function = 0;
7280 SV * params = 0;
7281 struct gsl_function_perl *w_gsl_function;
7282 Newx(w_gsl_function, 1, struct gsl_function_perl);
7283
7284 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
7285 AV* array=(AV*)SvRV(ST(0));
7286 SV ** p_function = 0;
7287 if (av_len(array)<0) {
7288 croak("Math::GSL : $f is an empty array!");
7289 }
7290 if (av_len(array)>1) {
7291 croak("Math::GSL : $f is an array with more than 2 elements!");
7292 }
7293 p_function = av_fetch(array, 0, 0);
7294 function = *p_function;
7295 if (av_len(array)>0) {
7296 SV ** p_params = 0;
7297 p_params = av_fetch(array, 1, 0);
7298 params = *p_params;
7299 }
7300 } else {
7301 function = ST(0);
7302 }
7303
7304 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
7305 croak("Math::GSL : $f is not a reference to code!");
7306 }
7307
7308 function = newSVsv(function);
7309
7310 if (! params) {
7311 params=&PL_sv_undef;
7312 }
7313 params = newSVsv(params);
7314
7315 w_gsl_function->params = params;
7316 w_gsl_function->function = function;
7317 w_gsl_function->C_gsl_function.params = w_gsl_function;
7318 w_gsl_function->C_gsl_function.function = &call_gsl_function;
7319
7320 arg1 = &(w_gsl_function->C_gsl_function);
7321 }
7322 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7323 if (!SWIG_IsOK(ecode2)) {
7324 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qawo" "', argument " "2"" of type '" "double""'");
7325 }
7326 arg2 = (double)(val2);
7327 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
7328 if (!SWIG_IsOK(ecode3)) {
7329 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qawo" "', argument " "3"" of type '" "double""'");
7330 }
7331 arg3 = (double)(val3);
7332 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
7333 if (!SWIG_IsOK(ecode4)) {
7334 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_integration_qawo" "', argument " "4"" of type '" "double""'");
7335 }
7336 arg4 = (double)(val4);
7337 ecode5 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
7338 if (!SWIG_IsOK(ecode5)) {
7339 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_integration_qawo" "', argument " "5"" of type '" "size_t""'");
7340 }
7341 arg5 = (size_t)(val5);
7342 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
7343 if (!SWIG_IsOK(res6)) {
7344 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_integration_qawo" "', argument " "6"" of type '" "gsl_integration_workspace *""'");
7345 }
7346 arg6 = (gsl_integration_workspace *)(argp6);
7347 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_integration_qawo_table, 0 | 0 );
7348 if (!SWIG_IsOK(res7)) {
7349 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_integration_qawo" "', argument " "7"" of type '" "gsl_integration_qawo_table *""'");
7350 }
7351 arg7 = (gsl_integration_qawo_table *)(argp7);
7352 result = (int)gsl_integration_qawo(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
7353 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7354 if (SWIG_IsTmpObj(res8)) {
7355 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg8)); argvi++ ;
7356 } else {
7357 int new_flags = SWIG_IsNewObj(res8) ? (SWIG_POINTER_OWN | 0) : 0;
7358 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg8), SWIGTYPE_p_double, new_flags); argvi++ ;
7359 }
7360 if (SWIG_IsTmpObj(res9)) {
7361 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg9)); argvi++ ;
7362 } else {
7363 int new_flags = SWIG_IsNewObj(res9) ? (SWIG_POINTER_OWN | 0) : 0;
7364 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg9), SWIGTYPE_p_double, new_flags); argvi++ ;
7365 }
7366 {
7367 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
7368 gsl_function_perl_free(p);
7369 }
7370
7371
7372
7373
7374
7375
7376
7377
7378 XSRETURN(argvi);
7379 fail:
7380 {
7381 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
7382 gsl_function_perl_free(p);
7383 }
7384
7385
7386
7387
7388
7389
7390
7391
7392 SWIG_croak_null();
7393 }
7394 }
7395
7396
XS(_wrap_gsl_integration_qawf)7397 XS(_wrap_gsl_integration_qawf) {
7398 {
7399 gsl_function *arg1 = (gsl_function *) 0 ;
7400 double arg2 ;
7401 double arg3 ;
7402 size_t arg4 ;
7403 gsl_integration_workspace *arg5 = (gsl_integration_workspace *) 0 ;
7404 gsl_integration_workspace *arg6 = (gsl_integration_workspace *) 0 ;
7405 gsl_integration_qawo_table *arg7 = (gsl_integration_qawo_table *) 0 ;
7406 double *arg8 = (double *) 0 ;
7407 double *arg9 = (double *) 0 ;
7408 double val2 ;
7409 int ecode2 = 0 ;
7410 double val3 ;
7411 int ecode3 = 0 ;
7412 size_t val4 ;
7413 int ecode4 = 0 ;
7414 void *argp5 = 0 ;
7415 int res5 = 0 ;
7416 void *argp6 = 0 ;
7417 int res6 = 0 ;
7418 void *argp7 = 0 ;
7419 int res7 = 0 ;
7420 double temp8 ;
7421 int res8 = SWIG_TMPOBJ ;
7422 double temp9 ;
7423 int res9 = SWIG_TMPOBJ ;
7424 int argvi = 0;
7425 int result;
7426 dXSARGS;
7427
7428 arg8 = &temp8;
7429 arg9 = &temp9;
7430 if ((items < 7) || (items > 7)) {
7431 SWIG_croak("Usage: gsl_integration_qawf(f,a,epsabs,limit,workspace,cycle_workspace,wf);");
7432 }
7433 {
7434 SV * function = 0;
7435 SV * params = 0;
7436 struct gsl_function_perl *w_gsl_function;
7437 Newx(w_gsl_function, 1, struct gsl_function_perl);
7438
7439 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
7440 AV* array=(AV*)SvRV(ST(0));
7441 SV ** p_function = 0;
7442 if (av_len(array)<0) {
7443 croak("Math::GSL : $f is an empty array!");
7444 }
7445 if (av_len(array)>1) {
7446 croak("Math::GSL : $f is an array with more than 2 elements!");
7447 }
7448 p_function = av_fetch(array, 0, 0);
7449 function = *p_function;
7450 if (av_len(array)>0) {
7451 SV ** p_params = 0;
7452 p_params = av_fetch(array, 1, 0);
7453 params = *p_params;
7454 }
7455 } else {
7456 function = ST(0);
7457 }
7458
7459 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
7460 croak("Math::GSL : $f is not a reference to code!");
7461 }
7462
7463 function = newSVsv(function);
7464
7465 if (! params) {
7466 params=&PL_sv_undef;
7467 }
7468 params = newSVsv(params);
7469
7470 w_gsl_function->params = params;
7471 w_gsl_function->function = function;
7472 w_gsl_function->C_gsl_function.params = w_gsl_function;
7473 w_gsl_function->C_gsl_function.function = &call_gsl_function;
7474
7475 arg1 = &(w_gsl_function->C_gsl_function);
7476 }
7477 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7478 if (!SWIG_IsOK(ecode2)) {
7479 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_qawf" "', argument " "2"" of type '" "double""'");
7480 }
7481 arg2 = (double)(val2);
7482 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
7483 if (!SWIG_IsOK(ecode3)) {
7484 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_qawf" "', argument " "3"" of type '" "double""'");
7485 }
7486 arg3 = (double)(val3);
7487 ecode4 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
7488 if (!SWIG_IsOK(ecode4)) {
7489 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_integration_qawf" "', argument " "4"" of type '" "size_t""'");
7490 }
7491 arg4 = (size_t)(val4);
7492 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
7493 if (!SWIG_IsOK(res5)) {
7494 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_integration_qawf" "', argument " "5"" of type '" "gsl_integration_workspace *""'");
7495 }
7496 arg5 = (gsl_integration_workspace *)(argp5);
7497 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_integration_workspace, 0 | 0 );
7498 if (!SWIG_IsOK(res6)) {
7499 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_integration_qawf" "', argument " "6"" of type '" "gsl_integration_workspace *""'");
7500 }
7501 arg6 = (gsl_integration_workspace *)(argp6);
7502 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_integration_qawo_table, 0 | 0 );
7503 if (!SWIG_IsOK(res7)) {
7504 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_integration_qawf" "', argument " "7"" of type '" "gsl_integration_qawo_table *""'");
7505 }
7506 arg7 = (gsl_integration_qawo_table *)(argp7);
7507 result = (int)gsl_integration_qawf(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
7508 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7509 if (SWIG_IsTmpObj(res8)) {
7510 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg8)); argvi++ ;
7511 } else {
7512 int new_flags = SWIG_IsNewObj(res8) ? (SWIG_POINTER_OWN | 0) : 0;
7513 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg8), SWIGTYPE_p_double, new_flags); argvi++ ;
7514 }
7515 if (SWIG_IsTmpObj(res9)) {
7516 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg9)); argvi++ ;
7517 } else {
7518 int new_flags = SWIG_IsNewObj(res9) ? (SWIG_POINTER_OWN | 0) : 0;
7519 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg9), SWIGTYPE_p_double, new_flags); argvi++ ;
7520 }
7521 {
7522 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
7523 gsl_function_perl_free(p);
7524 }
7525
7526
7527
7528
7529
7530
7531
7532
7533 XSRETURN(argvi);
7534 fail:
7535 {
7536 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
7537 gsl_function_perl_free(p);
7538 }
7539
7540
7541
7542
7543
7544
7545
7546
7547 SWIG_croak_null();
7548 }
7549 }
7550
7551
XS(_wrap_gsl_integration_glfixed_table_n_set)7552 XS(_wrap_gsl_integration_glfixed_table_n_set) {
7553 {
7554 gsl_integration_glfixed_table *arg1 = (gsl_integration_glfixed_table *) 0 ;
7555 size_t arg2 ;
7556 void *argp1 = 0 ;
7557 int res1 = 0 ;
7558 size_t val2 ;
7559 int ecode2 = 0 ;
7560 int argvi = 0;
7561 dXSARGS;
7562
7563 if ((items < 2) || (items > 2)) {
7564 SWIG_croak("Usage: gsl_integration_glfixed_table_n_set(self,n);");
7565 }
7566 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_glfixed_table, 0 | 0 );
7567 if (!SWIG_IsOK(res1)) {
7568 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_glfixed_table_n_set" "', argument " "1"" of type '" "gsl_integration_glfixed_table *""'");
7569 }
7570 arg1 = (gsl_integration_glfixed_table *)(argp1);
7571 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7572 if (!SWIG_IsOK(ecode2)) {
7573 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_glfixed_table_n_set" "', argument " "2"" of type '" "size_t""'");
7574 }
7575 arg2 = (size_t)(val2);
7576 if (arg1) (arg1)->n = arg2;
7577 ST(argvi) = &PL_sv_undef;
7578
7579
7580 XSRETURN(argvi);
7581 fail:
7582
7583
7584 SWIG_croak_null();
7585 }
7586 }
7587
7588
XS(_wrap_gsl_integration_glfixed_table_n_get)7589 XS(_wrap_gsl_integration_glfixed_table_n_get) {
7590 {
7591 gsl_integration_glfixed_table *arg1 = (gsl_integration_glfixed_table *) 0 ;
7592 void *argp1 = 0 ;
7593 int res1 = 0 ;
7594 int argvi = 0;
7595 size_t result;
7596 dXSARGS;
7597
7598 if ((items < 1) || (items > 1)) {
7599 SWIG_croak("Usage: gsl_integration_glfixed_table_n_get(self);");
7600 }
7601 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_glfixed_table, 0 | 0 );
7602 if (!SWIG_IsOK(res1)) {
7603 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_glfixed_table_n_get" "', argument " "1"" of type '" "gsl_integration_glfixed_table *""'");
7604 }
7605 arg1 = (gsl_integration_glfixed_table *)(argp1);
7606 result = ((arg1)->n);
7607 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
7608
7609 XSRETURN(argvi);
7610 fail:
7611
7612 SWIG_croak_null();
7613 }
7614 }
7615
7616
XS(_wrap_gsl_integration_glfixed_table_x_set)7617 XS(_wrap_gsl_integration_glfixed_table_x_set) {
7618 {
7619 gsl_integration_glfixed_table *arg1 = (gsl_integration_glfixed_table *) 0 ;
7620 double *arg2 = (double *) 0 ;
7621 void *argp1 = 0 ;
7622 int res1 = 0 ;
7623 void *argp2 = 0 ;
7624 int res2 = 0 ;
7625 int argvi = 0;
7626 dXSARGS;
7627
7628 if ((items < 2) || (items > 2)) {
7629 SWIG_croak("Usage: gsl_integration_glfixed_table_x_set(self,x);");
7630 }
7631 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_glfixed_table, 0 | 0 );
7632 if (!SWIG_IsOK(res1)) {
7633 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_glfixed_table_x_set" "', argument " "1"" of type '" "gsl_integration_glfixed_table *""'");
7634 }
7635 arg1 = (gsl_integration_glfixed_table *)(argp1);
7636 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
7637 if (!SWIG_IsOK(res2)) {
7638 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_glfixed_table_x_set" "', argument " "2"" of type '" "double *""'");
7639 }
7640 arg2 = (double *)(argp2);
7641 if (arg1) (arg1)->x = arg2;
7642 ST(argvi) = &PL_sv_undef;
7643
7644
7645 XSRETURN(argvi);
7646 fail:
7647
7648
7649 SWIG_croak_null();
7650 }
7651 }
7652
7653
XS(_wrap_gsl_integration_glfixed_table_x_get)7654 XS(_wrap_gsl_integration_glfixed_table_x_get) {
7655 {
7656 gsl_integration_glfixed_table *arg1 = (gsl_integration_glfixed_table *) 0 ;
7657 void *argp1 = 0 ;
7658 int res1 = 0 ;
7659 int argvi = 0;
7660 double *result = 0 ;
7661 dXSARGS;
7662
7663 if ((items < 1) || (items > 1)) {
7664 SWIG_croak("Usage: gsl_integration_glfixed_table_x_get(self);");
7665 }
7666 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_glfixed_table, 0 | 0 );
7667 if (!SWIG_IsOK(res1)) {
7668 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_glfixed_table_x_get" "', argument " "1"" of type '" "gsl_integration_glfixed_table *""'");
7669 }
7670 arg1 = (gsl_integration_glfixed_table *)(argp1);
7671 result = (double *) ((arg1)->x);
7672 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
7673
7674 XSRETURN(argvi);
7675 fail:
7676
7677 SWIG_croak_null();
7678 }
7679 }
7680
7681
XS(_wrap_gsl_integration_glfixed_table_w_set)7682 XS(_wrap_gsl_integration_glfixed_table_w_set) {
7683 {
7684 gsl_integration_glfixed_table *arg1 = (gsl_integration_glfixed_table *) 0 ;
7685 double *arg2 = (double *) 0 ;
7686 void *argp1 = 0 ;
7687 int res1 = 0 ;
7688 void *argp2 = 0 ;
7689 int res2 = 0 ;
7690 int argvi = 0;
7691 dXSARGS;
7692
7693 if ((items < 2) || (items > 2)) {
7694 SWIG_croak("Usage: gsl_integration_glfixed_table_w_set(self,w);");
7695 }
7696 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_glfixed_table, 0 | 0 );
7697 if (!SWIG_IsOK(res1)) {
7698 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_glfixed_table_w_set" "', argument " "1"" of type '" "gsl_integration_glfixed_table *""'");
7699 }
7700 arg1 = (gsl_integration_glfixed_table *)(argp1);
7701 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
7702 if (!SWIG_IsOK(res2)) {
7703 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_glfixed_table_w_set" "', argument " "2"" of type '" "double *""'");
7704 }
7705 arg2 = (double *)(argp2);
7706 if (arg1) (arg1)->w = arg2;
7707 ST(argvi) = &PL_sv_undef;
7708
7709
7710 XSRETURN(argvi);
7711 fail:
7712
7713
7714 SWIG_croak_null();
7715 }
7716 }
7717
7718
XS(_wrap_gsl_integration_glfixed_table_w_get)7719 XS(_wrap_gsl_integration_glfixed_table_w_get) {
7720 {
7721 gsl_integration_glfixed_table *arg1 = (gsl_integration_glfixed_table *) 0 ;
7722 void *argp1 = 0 ;
7723 int res1 = 0 ;
7724 int argvi = 0;
7725 double *result = 0 ;
7726 dXSARGS;
7727
7728 if ((items < 1) || (items > 1)) {
7729 SWIG_croak("Usage: gsl_integration_glfixed_table_w_get(self);");
7730 }
7731 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_glfixed_table, 0 | 0 );
7732 if (!SWIG_IsOK(res1)) {
7733 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_glfixed_table_w_get" "', argument " "1"" of type '" "gsl_integration_glfixed_table *""'");
7734 }
7735 arg1 = (gsl_integration_glfixed_table *)(argp1);
7736 result = (double *) ((arg1)->w);
7737 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
7738
7739 XSRETURN(argvi);
7740 fail:
7741
7742 SWIG_croak_null();
7743 }
7744 }
7745
7746
XS(_wrap_gsl_integration_glfixed_table_precomputed_set)7747 XS(_wrap_gsl_integration_glfixed_table_precomputed_set) {
7748 {
7749 gsl_integration_glfixed_table *arg1 = (gsl_integration_glfixed_table *) 0 ;
7750 int arg2 ;
7751 void *argp1 = 0 ;
7752 int res1 = 0 ;
7753 int val2 ;
7754 int ecode2 = 0 ;
7755 int argvi = 0;
7756 dXSARGS;
7757
7758 if ((items < 2) || (items > 2)) {
7759 SWIG_croak("Usage: gsl_integration_glfixed_table_precomputed_set(self,precomputed);");
7760 }
7761 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_glfixed_table, 0 | 0 );
7762 if (!SWIG_IsOK(res1)) {
7763 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_glfixed_table_precomputed_set" "', argument " "1"" of type '" "gsl_integration_glfixed_table *""'");
7764 }
7765 arg1 = (gsl_integration_glfixed_table *)(argp1);
7766 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7767 if (!SWIG_IsOK(ecode2)) {
7768 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_glfixed_table_precomputed_set" "', argument " "2"" of type '" "int""'");
7769 }
7770 arg2 = (int)(val2);
7771 if (arg1) (arg1)->precomputed = arg2;
7772 ST(argvi) = &PL_sv_undef;
7773
7774
7775 XSRETURN(argvi);
7776 fail:
7777
7778
7779 SWIG_croak_null();
7780 }
7781 }
7782
7783
XS(_wrap_gsl_integration_glfixed_table_precomputed_get)7784 XS(_wrap_gsl_integration_glfixed_table_precomputed_get) {
7785 {
7786 gsl_integration_glfixed_table *arg1 = (gsl_integration_glfixed_table *) 0 ;
7787 void *argp1 = 0 ;
7788 int res1 = 0 ;
7789 int argvi = 0;
7790 int result;
7791 dXSARGS;
7792
7793 if ((items < 1) || (items > 1)) {
7794 SWIG_croak("Usage: gsl_integration_glfixed_table_precomputed_get(self);");
7795 }
7796 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_glfixed_table, 0 | 0 );
7797 if (!SWIG_IsOK(res1)) {
7798 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_glfixed_table_precomputed_get" "', argument " "1"" of type '" "gsl_integration_glfixed_table *""'");
7799 }
7800 arg1 = (gsl_integration_glfixed_table *)(argp1);
7801 result = (int) ((arg1)->precomputed);
7802 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7803
7804 XSRETURN(argvi);
7805 fail:
7806
7807 SWIG_croak_null();
7808 }
7809 }
7810
7811
XS(_wrap_new_gsl_integration_glfixed_table)7812 XS(_wrap_new_gsl_integration_glfixed_table) {
7813 {
7814 int argvi = 0;
7815 gsl_integration_glfixed_table *result = 0 ;
7816 dXSARGS;
7817
7818 if ((items < 0) || (items > 0)) {
7819 SWIG_croak("Usage: new_gsl_integration_glfixed_table();");
7820 }
7821 result = (gsl_integration_glfixed_table *)calloc(1, sizeof(gsl_integration_glfixed_table));
7822 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_integration_glfixed_table, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
7823 XSRETURN(argvi);
7824 fail:
7825 SWIG_croak_null();
7826 }
7827 }
7828
7829
XS(_wrap_delete_gsl_integration_glfixed_table)7830 XS(_wrap_delete_gsl_integration_glfixed_table) {
7831 {
7832 gsl_integration_glfixed_table *arg1 = (gsl_integration_glfixed_table *) 0 ;
7833 void *argp1 = 0 ;
7834 int res1 = 0 ;
7835 int argvi = 0;
7836 dXSARGS;
7837
7838 if ((items < 1) || (items > 1)) {
7839 SWIG_croak("Usage: delete_gsl_integration_glfixed_table(self);");
7840 }
7841 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_glfixed_table, SWIG_POINTER_DISOWN | 0 );
7842 if (!SWIG_IsOK(res1)) {
7843 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_integration_glfixed_table" "', argument " "1"" of type '" "gsl_integration_glfixed_table *""'");
7844 }
7845 arg1 = (gsl_integration_glfixed_table *)(argp1);
7846 free((char *) arg1);
7847 ST(argvi) = &PL_sv_undef;
7848
7849 XSRETURN(argvi);
7850 fail:
7851
7852 SWIG_croak_null();
7853 }
7854 }
7855
7856
XS(_wrap_gsl_integration_glfixed_table_alloc)7857 XS(_wrap_gsl_integration_glfixed_table_alloc) {
7858 {
7859 size_t arg1 ;
7860 size_t val1 ;
7861 int ecode1 = 0 ;
7862 int argvi = 0;
7863 gsl_integration_glfixed_table *result = 0 ;
7864 dXSARGS;
7865
7866 if ((items < 1) || (items > 1)) {
7867 SWIG_croak("Usage: gsl_integration_glfixed_table_alloc(n);");
7868 }
7869 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
7870 if (!SWIG_IsOK(ecode1)) {
7871 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_integration_glfixed_table_alloc" "', argument " "1"" of type '" "size_t""'");
7872 }
7873 arg1 = (size_t)(val1);
7874 result = (gsl_integration_glfixed_table *)gsl_integration_glfixed_table_alloc(arg1);
7875 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_integration_glfixed_table, 0 | SWIG_SHADOW); argvi++ ;
7876
7877 XSRETURN(argvi);
7878 fail:
7879
7880 SWIG_croak_null();
7881 }
7882 }
7883
7884
XS(_wrap_gsl_integration_glfixed_table_free)7885 XS(_wrap_gsl_integration_glfixed_table_free) {
7886 {
7887 gsl_integration_glfixed_table *arg1 = (gsl_integration_glfixed_table *) 0 ;
7888 void *argp1 = 0 ;
7889 int res1 = 0 ;
7890 int argvi = 0;
7891 dXSARGS;
7892
7893 if ((items < 1) || (items > 1)) {
7894 SWIG_croak("Usage: gsl_integration_glfixed_table_free(t);");
7895 }
7896 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_glfixed_table, 0 | 0 );
7897 if (!SWIG_IsOK(res1)) {
7898 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_glfixed_table_free" "', argument " "1"" of type '" "gsl_integration_glfixed_table *""'");
7899 }
7900 arg1 = (gsl_integration_glfixed_table *)(argp1);
7901 gsl_integration_glfixed_table_free(arg1);
7902 ST(argvi) = &PL_sv_undef;
7903
7904 XSRETURN(argvi);
7905 fail:
7906
7907 SWIG_croak_null();
7908 }
7909 }
7910
7911
XS(_wrap_gsl_integration_glfixed)7912 XS(_wrap_gsl_integration_glfixed) {
7913 {
7914 gsl_function *arg1 = (gsl_function *) 0 ;
7915 double arg2 ;
7916 double arg3 ;
7917 gsl_integration_glfixed_table *arg4 = (gsl_integration_glfixed_table *) 0 ;
7918 double val2 ;
7919 int ecode2 = 0 ;
7920 double val3 ;
7921 int ecode3 = 0 ;
7922 void *argp4 = 0 ;
7923 int res4 = 0 ;
7924 int argvi = 0;
7925 double result;
7926 dXSARGS;
7927
7928 if ((items < 4) || (items > 4)) {
7929 SWIG_croak("Usage: gsl_integration_glfixed(f,a,b,t);");
7930 }
7931 {
7932 SV * function = 0;
7933 SV * params = 0;
7934 struct gsl_function_perl *w_gsl_function;
7935 Newx(w_gsl_function, 1, struct gsl_function_perl);
7936
7937 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
7938 AV* array=(AV*)SvRV(ST(0));
7939 SV ** p_function = 0;
7940 if (av_len(array)<0) {
7941 croak("Math::GSL : $f is an empty array!");
7942 }
7943 if (av_len(array)>1) {
7944 croak("Math::GSL : $f is an array with more than 2 elements!");
7945 }
7946 p_function = av_fetch(array, 0, 0);
7947 function = *p_function;
7948 if (av_len(array)>0) {
7949 SV ** p_params = 0;
7950 p_params = av_fetch(array, 1, 0);
7951 params = *p_params;
7952 }
7953 } else {
7954 function = ST(0);
7955 }
7956
7957 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
7958 croak("Math::GSL : $f is not a reference to code!");
7959 }
7960
7961 function = newSVsv(function);
7962
7963 if (! params) {
7964 params=&PL_sv_undef;
7965 }
7966 params = newSVsv(params);
7967
7968 w_gsl_function->params = params;
7969 w_gsl_function->function = function;
7970 w_gsl_function->C_gsl_function.params = w_gsl_function;
7971 w_gsl_function->C_gsl_function.function = &call_gsl_function;
7972
7973 arg1 = &(w_gsl_function->C_gsl_function);
7974 }
7975 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7976 if (!SWIG_IsOK(ecode2)) {
7977 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_glfixed" "', argument " "2"" of type '" "double""'");
7978 }
7979 arg2 = (double)(val2);
7980 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
7981 if (!SWIG_IsOK(ecode3)) {
7982 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_glfixed" "', argument " "3"" of type '" "double""'");
7983 }
7984 arg3 = (double)(val3);
7985 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_integration_glfixed_table, 0 | 0 );
7986 if (!SWIG_IsOK(res4)) {
7987 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_integration_glfixed" "', argument " "4"" of type '" "gsl_integration_glfixed_table const *""'");
7988 }
7989 arg4 = (gsl_integration_glfixed_table *)(argp4);
7990 result = (double)gsl_integration_glfixed((struct gsl_function_struct const *)arg1,arg2,arg3,(gsl_integration_glfixed_table const *)arg4);
7991 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
7992 {
7993 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
7994 gsl_function_perl_free(p);
7995 }
7996
7997
7998
7999 XSRETURN(argvi);
8000 fail:
8001 {
8002 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
8003 gsl_function_perl_free(p);
8004 }
8005
8006
8007
8008 SWIG_croak_null();
8009 }
8010 }
8011
8012
XS(_wrap_gsl_integration_glfixed_point)8013 XS(_wrap_gsl_integration_glfixed_point) {
8014 {
8015 double arg1 ;
8016 double arg2 ;
8017 size_t arg3 ;
8018 double *arg4 = (double *) 0 ;
8019 double *arg5 = (double *) 0 ;
8020 gsl_integration_glfixed_table *arg6 = (gsl_integration_glfixed_table *) 0 ;
8021 double val1 ;
8022 int ecode1 = 0 ;
8023 double val2 ;
8024 int ecode2 = 0 ;
8025 size_t val3 ;
8026 int ecode3 = 0 ;
8027 void *argp4 = 0 ;
8028 int res4 = 0 ;
8029 void *argp5 = 0 ;
8030 int res5 = 0 ;
8031 void *argp6 = 0 ;
8032 int res6 = 0 ;
8033 int argvi = 0;
8034 int result;
8035 dXSARGS;
8036
8037 if ((items < 6) || (items > 6)) {
8038 SWIG_croak("Usage: gsl_integration_glfixed_point(a,b,i,xi,wi,t);");
8039 }
8040 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
8041 if (!SWIG_IsOK(ecode1)) {
8042 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_integration_glfixed_point" "', argument " "1"" of type '" "double""'");
8043 }
8044 arg1 = (double)(val1);
8045 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8046 if (!SWIG_IsOK(ecode2)) {
8047 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_glfixed_point" "', argument " "2"" of type '" "double""'");
8048 }
8049 arg2 = (double)(val2);
8050 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
8051 if (!SWIG_IsOK(ecode3)) {
8052 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_glfixed_point" "', argument " "3"" of type '" "size_t""'");
8053 }
8054 arg3 = (size_t)(val3);
8055 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_double, 0 | 0 );
8056 if (!SWIG_IsOK(res4)) {
8057 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_integration_glfixed_point" "', argument " "4"" of type '" "double *""'");
8058 }
8059 arg4 = (double *)(argp4);
8060 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_double, 0 | 0 );
8061 if (!SWIG_IsOK(res5)) {
8062 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_integration_glfixed_point" "', argument " "5"" of type '" "double *""'");
8063 }
8064 arg5 = (double *)(argp5);
8065 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_integration_glfixed_table, 0 | 0 );
8066 if (!SWIG_IsOK(res6)) {
8067 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_integration_glfixed_point" "', argument " "6"" of type '" "gsl_integration_glfixed_table const *""'");
8068 }
8069 arg6 = (gsl_integration_glfixed_table *)(argp6);
8070 result = (int)gsl_integration_glfixed_point(arg1,arg2,arg3,arg4,arg5,(gsl_integration_glfixed_table const *)arg6);
8071 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8072
8073
8074
8075
8076
8077
8078 XSRETURN(argvi);
8079 fail:
8080
8081
8082
8083
8084
8085
8086 SWIG_croak_null();
8087 }
8088 }
8089
8090
XS(_wrap_gsl_integration_cquad_ival_a_set)8091 XS(_wrap_gsl_integration_cquad_ival_a_set) {
8092 {
8093 gsl_integration_cquad_ival *arg1 = (gsl_integration_cquad_ival *) 0 ;
8094 double arg2 ;
8095 void *argp1 = 0 ;
8096 int res1 = 0 ;
8097 double val2 ;
8098 int ecode2 = 0 ;
8099 int argvi = 0;
8100 dXSARGS;
8101
8102 if ((items < 2) || (items > 2)) {
8103 SWIG_croak("Usage: gsl_integration_cquad_ival_a_set(self,a);");
8104 }
8105 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_ival, 0 | 0 );
8106 if (!SWIG_IsOK(res1)) {
8107 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_ival_a_set" "', argument " "1"" of type '" "gsl_integration_cquad_ival *""'");
8108 }
8109 arg1 = (gsl_integration_cquad_ival *)(argp1);
8110 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8111 if (!SWIG_IsOK(ecode2)) {
8112 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_cquad_ival_a_set" "', argument " "2"" of type '" "double""'");
8113 }
8114 arg2 = (double)(val2);
8115 if (arg1) (arg1)->a = arg2;
8116 ST(argvi) = &PL_sv_undef;
8117
8118
8119 XSRETURN(argvi);
8120 fail:
8121
8122
8123 SWIG_croak_null();
8124 }
8125 }
8126
8127
XS(_wrap_gsl_integration_cquad_ival_a_get)8128 XS(_wrap_gsl_integration_cquad_ival_a_get) {
8129 {
8130 gsl_integration_cquad_ival *arg1 = (gsl_integration_cquad_ival *) 0 ;
8131 void *argp1 = 0 ;
8132 int res1 = 0 ;
8133 int argvi = 0;
8134 double result;
8135 dXSARGS;
8136
8137 if ((items < 1) || (items > 1)) {
8138 SWIG_croak("Usage: gsl_integration_cquad_ival_a_get(self);");
8139 }
8140 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_ival, 0 | 0 );
8141 if (!SWIG_IsOK(res1)) {
8142 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_ival_a_get" "', argument " "1"" of type '" "gsl_integration_cquad_ival *""'");
8143 }
8144 arg1 = (gsl_integration_cquad_ival *)(argp1);
8145 result = (double) ((arg1)->a);
8146 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
8147
8148 XSRETURN(argvi);
8149 fail:
8150
8151 SWIG_croak_null();
8152 }
8153 }
8154
8155
XS(_wrap_gsl_integration_cquad_ival_b_set)8156 XS(_wrap_gsl_integration_cquad_ival_b_set) {
8157 {
8158 gsl_integration_cquad_ival *arg1 = (gsl_integration_cquad_ival *) 0 ;
8159 double arg2 ;
8160 void *argp1 = 0 ;
8161 int res1 = 0 ;
8162 double val2 ;
8163 int ecode2 = 0 ;
8164 int argvi = 0;
8165 dXSARGS;
8166
8167 if ((items < 2) || (items > 2)) {
8168 SWIG_croak("Usage: gsl_integration_cquad_ival_b_set(self,b);");
8169 }
8170 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_ival, 0 | 0 );
8171 if (!SWIG_IsOK(res1)) {
8172 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_ival_b_set" "', argument " "1"" of type '" "gsl_integration_cquad_ival *""'");
8173 }
8174 arg1 = (gsl_integration_cquad_ival *)(argp1);
8175 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8176 if (!SWIG_IsOK(ecode2)) {
8177 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_cquad_ival_b_set" "', argument " "2"" of type '" "double""'");
8178 }
8179 arg2 = (double)(val2);
8180 if (arg1) (arg1)->b = arg2;
8181 ST(argvi) = &PL_sv_undef;
8182
8183
8184 XSRETURN(argvi);
8185 fail:
8186
8187
8188 SWIG_croak_null();
8189 }
8190 }
8191
8192
XS(_wrap_gsl_integration_cquad_ival_b_get)8193 XS(_wrap_gsl_integration_cquad_ival_b_get) {
8194 {
8195 gsl_integration_cquad_ival *arg1 = (gsl_integration_cquad_ival *) 0 ;
8196 void *argp1 = 0 ;
8197 int res1 = 0 ;
8198 int argvi = 0;
8199 double result;
8200 dXSARGS;
8201
8202 if ((items < 1) || (items > 1)) {
8203 SWIG_croak("Usage: gsl_integration_cquad_ival_b_get(self);");
8204 }
8205 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_ival, 0 | 0 );
8206 if (!SWIG_IsOK(res1)) {
8207 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_ival_b_get" "', argument " "1"" of type '" "gsl_integration_cquad_ival *""'");
8208 }
8209 arg1 = (gsl_integration_cquad_ival *)(argp1);
8210 result = (double) ((arg1)->b);
8211 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
8212
8213 XSRETURN(argvi);
8214 fail:
8215
8216 SWIG_croak_null();
8217 }
8218 }
8219
8220
XS(_wrap_gsl_integration_cquad_ival_c_set)8221 XS(_wrap_gsl_integration_cquad_ival_c_set) {
8222 {
8223 gsl_integration_cquad_ival *arg1 = (gsl_integration_cquad_ival *) 0 ;
8224 double *arg2 ;
8225 void *argp1 = 0 ;
8226 int res1 = 0 ;
8227 void *argp2 = 0 ;
8228 int res2 = 0 ;
8229 int argvi = 0;
8230 dXSARGS;
8231
8232 if ((items < 2) || (items > 2)) {
8233 SWIG_croak("Usage: gsl_integration_cquad_ival_c_set(self,c);");
8234 }
8235 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_ival, 0 | 0 );
8236 if (!SWIG_IsOK(res1)) {
8237 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_ival_c_set" "', argument " "1"" of type '" "gsl_integration_cquad_ival *""'");
8238 }
8239 arg1 = (gsl_integration_cquad_ival *)(argp1);
8240 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
8241 if (!SWIG_IsOK(res2)) {
8242 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_cquad_ival_c_set" "', argument " "2"" of type '" "double [64]""'");
8243 }
8244 arg2 = (double *)(argp2);
8245 {
8246 if (arg2) {
8247 size_t ii = 0;
8248 for (; ii < (size_t)64; ++ii) *(double *)&arg1->c[ii] = *((double *)arg2 + ii);
8249 } else {
8250 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""c""' of type '""double [64]""'");
8251 }
8252 }
8253 ST(argvi) = &PL_sv_undef;
8254
8255
8256 XSRETURN(argvi);
8257 fail:
8258
8259
8260 SWIG_croak_null();
8261 }
8262 }
8263
8264
XS(_wrap_gsl_integration_cquad_ival_c_get)8265 XS(_wrap_gsl_integration_cquad_ival_c_get) {
8266 {
8267 gsl_integration_cquad_ival *arg1 = (gsl_integration_cquad_ival *) 0 ;
8268 void *argp1 = 0 ;
8269 int res1 = 0 ;
8270 int argvi = 0;
8271 double *result = 0 ;
8272 dXSARGS;
8273
8274 if ((items < 1) || (items > 1)) {
8275 SWIG_croak("Usage: gsl_integration_cquad_ival_c_get(self);");
8276 }
8277 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_ival, 0 | 0 );
8278 if (!SWIG_IsOK(res1)) {
8279 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_ival_c_get" "', argument " "1"" of type '" "gsl_integration_cquad_ival *""'");
8280 }
8281 arg1 = (gsl_integration_cquad_ival *)(argp1);
8282 result = (double *)(double *) ((arg1)->c);
8283 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
8284
8285 XSRETURN(argvi);
8286 fail:
8287
8288 SWIG_croak_null();
8289 }
8290 }
8291
8292
XS(_wrap_gsl_integration_cquad_ival_fx_set)8293 XS(_wrap_gsl_integration_cquad_ival_fx_set) {
8294 {
8295 gsl_integration_cquad_ival *arg1 = (gsl_integration_cquad_ival *) 0 ;
8296 double *arg2 ;
8297 void *argp1 = 0 ;
8298 int res1 = 0 ;
8299 void *argp2 = 0 ;
8300 int res2 = 0 ;
8301 int argvi = 0;
8302 dXSARGS;
8303
8304 if ((items < 2) || (items > 2)) {
8305 SWIG_croak("Usage: gsl_integration_cquad_ival_fx_set(self,fx);");
8306 }
8307 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_ival, 0 | 0 );
8308 if (!SWIG_IsOK(res1)) {
8309 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_ival_fx_set" "', argument " "1"" of type '" "gsl_integration_cquad_ival *""'");
8310 }
8311 arg1 = (gsl_integration_cquad_ival *)(argp1);
8312 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
8313 if (!SWIG_IsOK(res2)) {
8314 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_cquad_ival_fx_set" "', argument " "2"" of type '" "double [33]""'");
8315 }
8316 arg2 = (double *)(argp2);
8317 {
8318 if (arg2) {
8319 size_t ii = 0;
8320 for (; ii < (size_t)33; ++ii) *(double *)&arg1->fx[ii] = *((double *)arg2 + ii);
8321 } else {
8322 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""fx""' of type '""double [33]""'");
8323 }
8324 }
8325 ST(argvi) = &PL_sv_undef;
8326
8327
8328 XSRETURN(argvi);
8329 fail:
8330
8331
8332 SWIG_croak_null();
8333 }
8334 }
8335
8336
XS(_wrap_gsl_integration_cquad_ival_fx_get)8337 XS(_wrap_gsl_integration_cquad_ival_fx_get) {
8338 {
8339 gsl_integration_cquad_ival *arg1 = (gsl_integration_cquad_ival *) 0 ;
8340 void *argp1 = 0 ;
8341 int res1 = 0 ;
8342 int argvi = 0;
8343 double *result = 0 ;
8344 dXSARGS;
8345
8346 if ((items < 1) || (items > 1)) {
8347 SWIG_croak("Usage: gsl_integration_cquad_ival_fx_get(self);");
8348 }
8349 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_ival, 0 | 0 );
8350 if (!SWIG_IsOK(res1)) {
8351 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_ival_fx_get" "', argument " "1"" of type '" "gsl_integration_cquad_ival *""'");
8352 }
8353 arg1 = (gsl_integration_cquad_ival *)(argp1);
8354 result = (double *)(double *) ((arg1)->fx);
8355 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
8356
8357 XSRETURN(argvi);
8358 fail:
8359
8360 SWIG_croak_null();
8361 }
8362 }
8363
8364
XS(_wrap_gsl_integration_cquad_ival_igral_set)8365 XS(_wrap_gsl_integration_cquad_ival_igral_set) {
8366 {
8367 gsl_integration_cquad_ival *arg1 = (gsl_integration_cquad_ival *) 0 ;
8368 double arg2 ;
8369 void *argp1 = 0 ;
8370 int res1 = 0 ;
8371 double val2 ;
8372 int ecode2 = 0 ;
8373 int argvi = 0;
8374 dXSARGS;
8375
8376 if ((items < 2) || (items > 2)) {
8377 SWIG_croak("Usage: gsl_integration_cquad_ival_igral_set(self,igral);");
8378 }
8379 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_ival, 0 | 0 );
8380 if (!SWIG_IsOK(res1)) {
8381 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_ival_igral_set" "', argument " "1"" of type '" "gsl_integration_cquad_ival *""'");
8382 }
8383 arg1 = (gsl_integration_cquad_ival *)(argp1);
8384 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8385 if (!SWIG_IsOK(ecode2)) {
8386 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_cquad_ival_igral_set" "', argument " "2"" of type '" "double""'");
8387 }
8388 arg2 = (double)(val2);
8389 if (arg1) (arg1)->igral = arg2;
8390 ST(argvi) = &PL_sv_undef;
8391
8392
8393 XSRETURN(argvi);
8394 fail:
8395
8396
8397 SWIG_croak_null();
8398 }
8399 }
8400
8401
XS(_wrap_gsl_integration_cquad_ival_igral_get)8402 XS(_wrap_gsl_integration_cquad_ival_igral_get) {
8403 {
8404 gsl_integration_cquad_ival *arg1 = (gsl_integration_cquad_ival *) 0 ;
8405 void *argp1 = 0 ;
8406 int res1 = 0 ;
8407 int argvi = 0;
8408 double result;
8409 dXSARGS;
8410
8411 if ((items < 1) || (items > 1)) {
8412 SWIG_croak("Usage: gsl_integration_cquad_ival_igral_get(self);");
8413 }
8414 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_ival, 0 | 0 );
8415 if (!SWIG_IsOK(res1)) {
8416 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_ival_igral_get" "', argument " "1"" of type '" "gsl_integration_cquad_ival *""'");
8417 }
8418 arg1 = (gsl_integration_cquad_ival *)(argp1);
8419 result = (double) ((arg1)->igral);
8420 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
8421
8422 XSRETURN(argvi);
8423 fail:
8424
8425 SWIG_croak_null();
8426 }
8427 }
8428
8429
XS(_wrap_gsl_integration_cquad_ival_err_set)8430 XS(_wrap_gsl_integration_cquad_ival_err_set) {
8431 {
8432 gsl_integration_cquad_ival *arg1 = (gsl_integration_cquad_ival *) 0 ;
8433 double arg2 ;
8434 void *argp1 = 0 ;
8435 int res1 = 0 ;
8436 double val2 ;
8437 int ecode2 = 0 ;
8438 int argvi = 0;
8439 dXSARGS;
8440
8441 if ((items < 2) || (items > 2)) {
8442 SWIG_croak("Usage: gsl_integration_cquad_ival_err_set(self,err);");
8443 }
8444 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_ival, 0 | 0 );
8445 if (!SWIG_IsOK(res1)) {
8446 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_ival_err_set" "', argument " "1"" of type '" "gsl_integration_cquad_ival *""'");
8447 }
8448 arg1 = (gsl_integration_cquad_ival *)(argp1);
8449 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8450 if (!SWIG_IsOK(ecode2)) {
8451 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_cquad_ival_err_set" "', argument " "2"" of type '" "double""'");
8452 }
8453 arg2 = (double)(val2);
8454 if (arg1) (arg1)->err = arg2;
8455 ST(argvi) = &PL_sv_undef;
8456
8457
8458 XSRETURN(argvi);
8459 fail:
8460
8461
8462 SWIG_croak_null();
8463 }
8464 }
8465
8466
XS(_wrap_gsl_integration_cquad_ival_err_get)8467 XS(_wrap_gsl_integration_cquad_ival_err_get) {
8468 {
8469 gsl_integration_cquad_ival *arg1 = (gsl_integration_cquad_ival *) 0 ;
8470 void *argp1 = 0 ;
8471 int res1 = 0 ;
8472 int argvi = 0;
8473 double result;
8474 dXSARGS;
8475
8476 if ((items < 1) || (items > 1)) {
8477 SWIG_croak("Usage: gsl_integration_cquad_ival_err_get(self);");
8478 }
8479 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_ival, 0 | 0 );
8480 if (!SWIG_IsOK(res1)) {
8481 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_ival_err_get" "', argument " "1"" of type '" "gsl_integration_cquad_ival *""'");
8482 }
8483 arg1 = (gsl_integration_cquad_ival *)(argp1);
8484 result = (double) ((arg1)->err);
8485 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
8486
8487 XSRETURN(argvi);
8488 fail:
8489
8490 SWIG_croak_null();
8491 }
8492 }
8493
8494
XS(_wrap_gsl_integration_cquad_ival_depth_set)8495 XS(_wrap_gsl_integration_cquad_ival_depth_set) {
8496 {
8497 gsl_integration_cquad_ival *arg1 = (gsl_integration_cquad_ival *) 0 ;
8498 int arg2 ;
8499 void *argp1 = 0 ;
8500 int res1 = 0 ;
8501 int val2 ;
8502 int ecode2 = 0 ;
8503 int argvi = 0;
8504 dXSARGS;
8505
8506 if ((items < 2) || (items > 2)) {
8507 SWIG_croak("Usage: gsl_integration_cquad_ival_depth_set(self,depth);");
8508 }
8509 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_ival, 0 | 0 );
8510 if (!SWIG_IsOK(res1)) {
8511 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_ival_depth_set" "', argument " "1"" of type '" "gsl_integration_cquad_ival *""'");
8512 }
8513 arg1 = (gsl_integration_cquad_ival *)(argp1);
8514 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8515 if (!SWIG_IsOK(ecode2)) {
8516 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_cquad_ival_depth_set" "', argument " "2"" of type '" "int""'");
8517 }
8518 arg2 = (int)(val2);
8519 if (arg1) (arg1)->depth = arg2;
8520 ST(argvi) = &PL_sv_undef;
8521
8522
8523 XSRETURN(argvi);
8524 fail:
8525
8526
8527 SWIG_croak_null();
8528 }
8529 }
8530
8531
XS(_wrap_gsl_integration_cquad_ival_depth_get)8532 XS(_wrap_gsl_integration_cquad_ival_depth_get) {
8533 {
8534 gsl_integration_cquad_ival *arg1 = (gsl_integration_cquad_ival *) 0 ;
8535 void *argp1 = 0 ;
8536 int res1 = 0 ;
8537 int argvi = 0;
8538 int result;
8539 dXSARGS;
8540
8541 if ((items < 1) || (items > 1)) {
8542 SWIG_croak("Usage: gsl_integration_cquad_ival_depth_get(self);");
8543 }
8544 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_ival, 0 | 0 );
8545 if (!SWIG_IsOK(res1)) {
8546 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_ival_depth_get" "', argument " "1"" of type '" "gsl_integration_cquad_ival *""'");
8547 }
8548 arg1 = (gsl_integration_cquad_ival *)(argp1);
8549 result = (int) ((arg1)->depth);
8550 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8551
8552 XSRETURN(argvi);
8553 fail:
8554
8555 SWIG_croak_null();
8556 }
8557 }
8558
8559
XS(_wrap_gsl_integration_cquad_ival_rdepth_set)8560 XS(_wrap_gsl_integration_cquad_ival_rdepth_set) {
8561 {
8562 gsl_integration_cquad_ival *arg1 = (gsl_integration_cquad_ival *) 0 ;
8563 int arg2 ;
8564 void *argp1 = 0 ;
8565 int res1 = 0 ;
8566 int val2 ;
8567 int ecode2 = 0 ;
8568 int argvi = 0;
8569 dXSARGS;
8570
8571 if ((items < 2) || (items > 2)) {
8572 SWIG_croak("Usage: gsl_integration_cquad_ival_rdepth_set(self,rdepth);");
8573 }
8574 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_ival, 0 | 0 );
8575 if (!SWIG_IsOK(res1)) {
8576 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_ival_rdepth_set" "', argument " "1"" of type '" "gsl_integration_cquad_ival *""'");
8577 }
8578 arg1 = (gsl_integration_cquad_ival *)(argp1);
8579 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8580 if (!SWIG_IsOK(ecode2)) {
8581 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_cquad_ival_rdepth_set" "', argument " "2"" of type '" "int""'");
8582 }
8583 arg2 = (int)(val2);
8584 if (arg1) (arg1)->rdepth = arg2;
8585 ST(argvi) = &PL_sv_undef;
8586
8587
8588 XSRETURN(argvi);
8589 fail:
8590
8591
8592 SWIG_croak_null();
8593 }
8594 }
8595
8596
XS(_wrap_gsl_integration_cquad_ival_rdepth_get)8597 XS(_wrap_gsl_integration_cquad_ival_rdepth_get) {
8598 {
8599 gsl_integration_cquad_ival *arg1 = (gsl_integration_cquad_ival *) 0 ;
8600 void *argp1 = 0 ;
8601 int res1 = 0 ;
8602 int argvi = 0;
8603 int result;
8604 dXSARGS;
8605
8606 if ((items < 1) || (items > 1)) {
8607 SWIG_croak("Usage: gsl_integration_cquad_ival_rdepth_get(self);");
8608 }
8609 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_ival, 0 | 0 );
8610 if (!SWIG_IsOK(res1)) {
8611 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_ival_rdepth_get" "', argument " "1"" of type '" "gsl_integration_cquad_ival *""'");
8612 }
8613 arg1 = (gsl_integration_cquad_ival *)(argp1);
8614 result = (int) ((arg1)->rdepth);
8615 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8616
8617 XSRETURN(argvi);
8618 fail:
8619
8620 SWIG_croak_null();
8621 }
8622 }
8623
8624
XS(_wrap_gsl_integration_cquad_ival_ndiv_set)8625 XS(_wrap_gsl_integration_cquad_ival_ndiv_set) {
8626 {
8627 gsl_integration_cquad_ival *arg1 = (gsl_integration_cquad_ival *) 0 ;
8628 int arg2 ;
8629 void *argp1 = 0 ;
8630 int res1 = 0 ;
8631 int val2 ;
8632 int ecode2 = 0 ;
8633 int argvi = 0;
8634 dXSARGS;
8635
8636 if ((items < 2) || (items > 2)) {
8637 SWIG_croak("Usage: gsl_integration_cquad_ival_ndiv_set(self,ndiv);");
8638 }
8639 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_ival, 0 | 0 );
8640 if (!SWIG_IsOK(res1)) {
8641 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_ival_ndiv_set" "', argument " "1"" of type '" "gsl_integration_cquad_ival *""'");
8642 }
8643 arg1 = (gsl_integration_cquad_ival *)(argp1);
8644 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8645 if (!SWIG_IsOK(ecode2)) {
8646 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_cquad_ival_ndiv_set" "', argument " "2"" of type '" "int""'");
8647 }
8648 arg2 = (int)(val2);
8649 if (arg1) (arg1)->ndiv = arg2;
8650 ST(argvi) = &PL_sv_undef;
8651
8652
8653 XSRETURN(argvi);
8654 fail:
8655
8656
8657 SWIG_croak_null();
8658 }
8659 }
8660
8661
XS(_wrap_gsl_integration_cquad_ival_ndiv_get)8662 XS(_wrap_gsl_integration_cquad_ival_ndiv_get) {
8663 {
8664 gsl_integration_cquad_ival *arg1 = (gsl_integration_cquad_ival *) 0 ;
8665 void *argp1 = 0 ;
8666 int res1 = 0 ;
8667 int argvi = 0;
8668 int result;
8669 dXSARGS;
8670
8671 if ((items < 1) || (items > 1)) {
8672 SWIG_croak("Usage: gsl_integration_cquad_ival_ndiv_get(self);");
8673 }
8674 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_ival, 0 | 0 );
8675 if (!SWIG_IsOK(res1)) {
8676 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_ival_ndiv_get" "', argument " "1"" of type '" "gsl_integration_cquad_ival *""'");
8677 }
8678 arg1 = (gsl_integration_cquad_ival *)(argp1);
8679 result = (int) ((arg1)->ndiv);
8680 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8681
8682 XSRETURN(argvi);
8683 fail:
8684
8685 SWIG_croak_null();
8686 }
8687 }
8688
8689
XS(_wrap_new_gsl_integration_cquad_ival)8690 XS(_wrap_new_gsl_integration_cquad_ival) {
8691 {
8692 int argvi = 0;
8693 gsl_integration_cquad_ival *result = 0 ;
8694 dXSARGS;
8695
8696 if ((items < 0) || (items > 0)) {
8697 SWIG_croak("Usage: new_gsl_integration_cquad_ival();");
8698 }
8699 result = (gsl_integration_cquad_ival *)calloc(1, sizeof(gsl_integration_cquad_ival));
8700 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_integration_cquad_ival, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
8701 XSRETURN(argvi);
8702 fail:
8703 SWIG_croak_null();
8704 }
8705 }
8706
8707
XS(_wrap_delete_gsl_integration_cquad_ival)8708 XS(_wrap_delete_gsl_integration_cquad_ival) {
8709 {
8710 gsl_integration_cquad_ival *arg1 = (gsl_integration_cquad_ival *) 0 ;
8711 void *argp1 = 0 ;
8712 int res1 = 0 ;
8713 int argvi = 0;
8714 dXSARGS;
8715
8716 if ((items < 1) || (items > 1)) {
8717 SWIG_croak("Usage: delete_gsl_integration_cquad_ival(self);");
8718 }
8719 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_ival, SWIG_POINTER_DISOWN | 0 );
8720 if (!SWIG_IsOK(res1)) {
8721 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_integration_cquad_ival" "', argument " "1"" of type '" "gsl_integration_cquad_ival *""'");
8722 }
8723 arg1 = (gsl_integration_cquad_ival *)(argp1);
8724 free((char *) arg1);
8725 ST(argvi) = &PL_sv_undef;
8726
8727 XSRETURN(argvi);
8728 fail:
8729
8730 SWIG_croak_null();
8731 }
8732 }
8733
8734
XS(_wrap_gsl_integration_cquad_workspace_size_set)8735 XS(_wrap_gsl_integration_cquad_workspace_size_set) {
8736 {
8737 gsl_integration_cquad_workspace *arg1 = (gsl_integration_cquad_workspace *) 0 ;
8738 size_t arg2 ;
8739 void *argp1 = 0 ;
8740 int res1 = 0 ;
8741 size_t val2 ;
8742 int ecode2 = 0 ;
8743 int argvi = 0;
8744 dXSARGS;
8745
8746 if ((items < 2) || (items > 2)) {
8747 SWIG_croak("Usage: gsl_integration_cquad_workspace_size_set(self,size);");
8748 }
8749 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_workspace, 0 | 0 );
8750 if (!SWIG_IsOK(res1)) {
8751 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_workspace_size_set" "', argument " "1"" of type '" "gsl_integration_cquad_workspace *""'");
8752 }
8753 arg1 = (gsl_integration_cquad_workspace *)(argp1);
8754 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8755 if (!SWIG_IsOK(ecode2)) {
8756 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_cquad_workspace_size_set" "', argument " "2"" of type '" "size_t""'");
8757 }
8758 arg2 = (size_t)(val2);
8759 if (arg1) (arg1)->size = arg2;
8760 ST(argvi) = &PL_sv_undef;
8761
8762
8763 XSRETURN(argvi);
8764 fail:
8765
8766
8767 SWIG_croak_null();
8768 }
8769 }
8770
8771
XS(_wrap_gsl_integration_cquad_workspace_size_get)8772 XS(_wrap_gsl_integration_cquad_workspace_size_get) {
8773 {
8774 gsl_integration_cquad_workspace *arg1 = (gsl_integration_cquad_workspace *) 0 ;
8775 void *argp1 = 0 ;
8776 int res1 = 0 ;
8777 int argvi = 0;
8778 size_t result;
8779 dXSARGS;
8780
8781 if ((items < 1) || (items > 1)) {
8782 SWIG_croak("Usage: gsl_integration_cquad_workspace_size_get(self);");
8783 }
8784 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_workspace, 0 | 0 );
8785 if (!SWIG_IsOK(res1)) {
8786 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_workspace_size_get" "', argument " "1"" of type '" "gsl_integration_cquad_workspace *""'");
8787 }
8788 arg1 = (gsl_integration_cquad_workspace *)(argp1);
8789 result = ((arg1)->size);
8790 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
8791
8792 XSRETURN(argvi);
8793 fail:
8794
8795 SWIG_croak_null();
8796 }
8797 }
8798
8799
XS(_wrap_gsl_integration_cquad_workspace_ivals_set)8800 XS(_wrap_gsl_integration_cquad_workspace_ivals_set) {
8801 {
8802 gsl_integration_cquad_workspace *arg1 = (gsl_integration_cquad_workspace *) 0 ;
8803 gsl_integration_cquad_ival *arg2 = (gsl_integration_cquad_ival *) 0 ;
8804 void *argp1 = 0 ;
8805 int res1 = 0 ;
8806 void *argp2 = 0 ;
8807 int res2 = 0 ;
8808 int argvi = 0;
8809 dXSARGS;
8810
8811 if ((items < 2) || (items > 2)) {
8812 SWIG_croak("Usage: gsl_integration_cquad_workspace_ivals_set(self,ivals);");
8813 }
8814 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_workspace, 0 | 0 );
8815 if (!SWIG_IsOK(res1)) {
8816 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_workspace_ivals_set" "', argument " "1"" of type '" "gsl_integration_cquad_workspace *""'");
8817 }
8818 arg1 = (gsl_integration_cquad_workspace *)(argp1);
8819 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_integration_cquad_ival, SWIG_POINTER_DISOWN | 0 );
8820 if (!SWIG_IsOK(res2)) {
8821 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_cquad_workspace_ivals_set" "', argument " "2"" of type '" "gsl_integration_cquad_ival *""'");
8822 }
8823 arg2 = (gsl_integration_cquad_ival *)(argp2);
8824 if (arg1) (arg1)->ivals = arg2;
8825 ST(argvi) = &PL_sv_undef;
8826
8827
8828 XSRETURN(argvi);
8829 fail:
8830
8831
8832 SWIG_croak_null();
8833 }
8834 }
8835
8836
XS(_wrap_gsl_integration_cquad_workspace_ivals_get)8837 XS(_wrap_gsl_integration_cquad_workspace_ivals_get) {
8838 {
8839 gsl_integration_cquad_workspace *arg1 = (gsl_integration_cquad_workspace *) 0 ;
8840 void *argp1 = 0 ;
8841 int res1 = 0 ;
8842 int argvi = 0;
8843 gsl_integration_cquad_ival *result = 0 ;
8844 dXSARGS;
8845
8846 if ((items < 1) || (items > 1)) {
8847 SWIG_croak("Usage: gsl_integration_cquad_workspace_ivals_get(self);");
8848 }
8849 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_workspace, 0 | 0 );
8850 if (!SWIG_IsOK(res1)) {
8851 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_workspace_ivals_get" "', argument " "1"" of type '" "gsl_integration_cquad_workspace *""'");
8852 }
8853 arg1 = (gsl_integration_cquad_workspace *)(argp1);
8854 result = (gsl_integration_cquad_ival *) ((arg1)->ivals);
8855 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_integration_cquad_ival, 0 | SWIG_SHADOW); argvi++ ;
8856
8857 XSRETURN(argvi);
8858 fail:
8859
8860 SWIG_croak_null();
8861 }
8862 }
8863
8864
XS(_wrap_gsl_integration_cquad_workspace_heap_set)8865 XS(_wrap_gsl_integration_cquad_workspace_heap_set) {
8866 {
8867 gsl_integration_cquad_workspace *arg1 = (gsl_integration_cquad_workspace *) 0 ;
8868 size_t *arg2 = (size_t *) 0 ;
8869 void *argp1 = 0 ;
8870 int res1 = 0 ;
8871 void *argp2 = 0 ;
8872 int res2 = 0 ;
8873 int argvi = 0;
8874 dXSARGS;
8875
8876 if ((items < 2) || (items > 2)) {
8877 SWIG_croak("Usage: gsl_integration_cquad_workspace_heap_set(self,heap);");
8878 }
8879 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_workspace, 0 | 0 );
8880 if (!SWIG_IsOK(res1)) {
8881 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_workspace_heap_set" "', argument " "1"" of type '" "gsl_integration_cquad_workspace *""'");
8882 }
8883 arg1 = (gsl_integration_cquad_workspace *)(argp1);
8884 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_size_t, SWIG_POINTER_DISOWN | 0 );
8885 if (!SWIG_IsOK(res2)) {
8886 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_integration_cquad_workspace_heap_set" "', argument " "2"" of type '" "size_t *""'");
8887 }
8888 arg2 = (size_t *)(argp2);
8889 if (arg1) (arg1)->heap = arg2;
8890 ST(argvi) = &PL_sv_undef;
8891
8892
8893 XSRETURN(argvi);
8894 fail:
8895
8896
8897 SWIG_croak_null();
8898 }
8899 }
8900
8901
XS(_wrap_gsl_integration_cquad_workspace_heap_get)8902 XS(_wrap_gsl_integration_cquad_workspace_heap_get) {
8903 {
8904 gsl_integration_cquad_workspace *arg1 = (gsl_integration_cquad_workspace *) 0 ;
8905 void *argp1 = 0 ;
8906 int res1 = 0 ;
8907 int argvi = 0;
8908 size_t *result = 0 ;
8909 dXSARGS;
8910
8911 if ((items < 1) || (items > 1)) {
8912 SWIG_croak("Usage: gsl_integration_cquad_workspace_heap_get(self);");
8913 }
8914 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_workspace, 0 | 0 );
8915 if (!SWIG_IsOK(res1)) {
8916 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_workspace_heap_get" "', argument " "1"" of type '" "gsl_integration_cquad_workspace *""'");
8917 }
8918 arg1 = (gsl_integration_cquad_workspace *)(argp1);
8919 result = (size_t *) ((arg1)->heap);
8920 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_size_t, 0 | 0); argvi++ ;
8921
8922 XSRETURN(argvi);
8923 fail:
8924
8925 SWIG_croak_null();
8926 }
8927 }
8928
8929
XS(_wrap_new_gsl_integration_cquad_workspace)8930 XS(_wrap_new_gsl_integration_cquad_workspace) {
8931 {
8932 int argvi = 0;
8933 gsl_integration_cquad_workspace *result = 0 ;
8934 dXSARGS;
8935
8936 if ((items < 0) || (items > 0)) {
8937 SWIG_croak("Usage: new_gsl_integration_cquad_workspace();");
8938 }
8939 result = (gsl_integration_cquad_workspace *)calloc(1, sizeof(gsl_integration_cquad_workspace));
8940 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_integration_cquad_workspace, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
8941 XSRETURN(argvi);
8942 fail:
8943 SWIG_croak_null();
8944 }
8945 }
8946
8947
XS(_wrap_delete_gsl_integration_cquad_workspace)8948 XS(_wrap_delete_gsl_integration_cquad_workspace) {
8949 {
8950 gsl_integration_cquad_workspace *arg1 = (gsl_integration_cquad_workspace *) 0 ;
8951 void *argp1 = 0 ;
8952 int res1 = 0 ;
8953 int argvi = 0;
8954 dXSARGS;
8955
8956 if ((items < 1) || (items > 1)) {
8957 SWIG_croak("Usage: delete_gsl_integration_cquad_workspace(self);");
8958 }
8959 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_workspace, SWIG_POINTER_DISOWN | 0 );
8960 if (!SWIG_IsOK(res1)) {
8961 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_integration_cquad_workspace" "', argument " "1"" of type '" "gsl_integration_cquad_workspace *""'");
8962 }
8963 arg1 = (gsl_integration_cquad_workspace *)(argp1);
8964 free((char *) arg1);
8965 ST(argvi) = &PL_sv_undef;
8966
8967 XSRETURN(argvi);
8968 fail:
8969
8970 SWIG_croak_null();
8971 }
8972 }
8973
8974
XS(_wrap_gsl_integration_cquad_workspace_alloc)8975 XS(_wrap_gsl_integration_cquad_workspace_alloc) {
8976 {
8977 size_t arg1 ;
8978 size_t val1 ;
8979 int ecode1 = 0 ;
8980 int argvi = 0;
8981 gsl_integration_cquad_workspace *result = 0 ;
8982 dXSARGS;
8983
8984 if ((items < 1) || (items > 1)) {
8985 SWIG_croak("Usage: gsl_integration_cquad_workspace_alloc(n);");
8986 }
8987 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
8988 if (!SWIG_IsOK(ecode1)) {
8989 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_integration_cquad_workspace_alloc" "', argument " "1"" of type '" "size_t""'");
8990 }
8991 arg1 = (size_t)(val1);
8992 result = (gsl_integration_cquad_workspace *)gsl_integration_cquad_workspace_alloc(arg1);
8993 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_integration_cquad_workspace, 0 | SWIG_SHADOW); argvi++ ;
8994
8995 XSRETURN(argvi);
8996 fail:
8997
8998 SWIG_croak_null();
8999 }
9000 }
9001
9002
XS(_wrap_gsl_integration_cquad_workspace_free)9003 XS(_wrap_gsl_integration_cquad_workspace_free) {
9004 {
9005 gsl_integration_cquad_workspace *arg1 = (gsl_integration_cquad_workspace *) 0 ;
9006 void *argp1 = 0 ;
9007 int res1 = 0 ;
9008 int argvi = 0;
9009 dXSARGS;
9010
9011 if ((items < 1) || (items > 1)) {
9012 SWIG_croak("Usage: gsl_integration_cquad_workspace_free(w);");
9013 }
9014 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_integration_cquad_workspace, 0 | 0 );
9015 if (!SWIG_IsOK(res1)) {
9016 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_integration_cquad_workspace_free" "', argument " "1"" of type '" "gsl_integration_cquad_workspace *""'");
9017 }
9018 arg1 = (gsl_integration_cquad_workspace *)(argp1);
9019 gsl_integration_cquad_workspace_free(arg1);
9020 ST(argvi) = &PL_sv_undef;
9021
9022 XSRETURN(argvi);
9023 fail:
9024
9025 SWIG_croak_null();
9026 }
9027 }
9028
9029
XS(_wrap_gsl_integration_cquad)9030 XS(_wrap_gsl_integration_cquad) {
9031 {
9032 gsl_function *arg1 = (gsl_function *) 0 ;
9033 double arg2 ;
9034 double arg3 ;
9035 double arg4 ;
9036 double arg5 ;
9037 gsl_integration_cquad_workspace *arg6 = (gsl_integration_cquad_workspace *) 0 ;
9038 double *arg7 = (double *) 0 ;
9039 double *arg8 = (double *) 0 ;
9040 size_t *arg9 = (size_t *) 0 ;
9041 double val2 ;
9042 int ecode2 = 0 ;
9043 double val3 ;
9044 int ecode3 = 0 ;
9045 double val4 ;
9046 int ecode4 = 0 ;
9047 double val5 ;
9048 int ecode5 = 0 ;
9049 void *argp6 = 0 ;
9050 int res6 = 0 ;
9051 double temp7 ;
9052 int res7 = SWIG_TMPOBJ ;
9053 double temp8 ;
9054 int res8 = SWIG_TMPOBJ ;
9055 void *argp9 = 0 ;
9056 int res9 = 0 ;
9057 int argvi = 0;
9058 int result;
9059 dXSARGS;
9060
9061 arg7 = &temp7;
9062 arg8 = &temp8;
9063 if ((items < 7) || (items > 7)) {
9064 SWIG_croak("Usage: gsl_integration_cquad(f,a,b,epsabs,epsrel,ws,nevals);");
9065 }
9066 {
9067 SV * function = 0;
9068 SV * params = 0;
9069 struct gsl_function_perl *w_gsl_function;
9070 Newx(w_gsl_function, 1, struct gsl_function_perl);
9071
9072 if (SvROK(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVAV)) {
9073 AV* array=(AV*)SvRV(ST(0));
9074 SV ** p_function = 0;
9075 if (av_len(array)<0) {
9076 croak("Math::GSL : $f is an empty array!");
9077 }
9078 if (av_len(array)>1) {
9079 croak("Math::GSL : $f is an array with more than 2 elements!");
9080 }
9081 p_function = av_fetch(array, 0, 0);
9082 function = *p_function;
9083 if (av_len(array)>0) {
9084 SV ** p_params = 0;
9085 p_params = av_fetch(array, 1, 0);
9086 params = *p_params;
9087 }
9088 } else {
9089 function = ST(0);
9090 }
9091
9092 if (!function || !(SvPOK(function) || (SvROK(function) && (SvTYPE(SvRV(function)) == SVt_PVCV)))) {
9093 croak("Math::GSL : $f is not a reference to code!");
9094 }
9095
9096 function = newSVsv(function);
9097
9098 if (! params) {
9099 params=&PL_sv_undef;
9100 }
9101 params = newSVsv(params);
9102
9103 w_gsl_function->params = params;
9104 w_gsl_function->function = function;
9105 w_gsl_function->C_gsl_function.params = w_gsl_function;
9106 w_gsl_function->C_gsl_function.function = &call_gsl_function;
9107
9108 arg1 = &(w_gsl_function->C_gsl_function);
9109 }
9110 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9111 if (!SWIG_IsOK(ecode2)) {
9112 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_integration_cquad" "', argument " "2"" of type '" "double""'");
9113 }
9114 arg2 = (double)(val2);
9115 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
9116 if (!SWIG_IsOK(ecode3)) {
9117 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_integration_cquad" "', argument " "3"" of type '" "double""'");
9118 }
9119 arg3 = (double)(val3);
9120 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
9121 if (!SWIG_IsOK(ecode4)) {
9122 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_integration_cquad" "', argument " "4"" of type '" "double""'");
9123 }
9124 arg4 = (double)(val4);
9125 ecode5 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
9126 if (!SWIG_IsOK(ecode5)) {
9127 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_integration_cquad" "', argument " "5"" of type '" "double""'");
9128 }
9129 arg5 = (double)(val5);
9130 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_integration_cquad_workspace, 0 | 0 );
9131 if (!SWIG_IsOK(res6)) {
9132 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_integration_cquad" "', argument " "6"" of type '" "gsl_integration_cquad_workspace *""'");
9133 }
9134 arg6 = (gsl_integration_cquad_workspace *)(argp6);
9135 res9 = SWIG_ConvertPtr(ST(6), &argp9,SWIGTYPE_p_size_t, 0 | 0 );
9136 if (!SWIG_IsOK(res9)) {
9137 SWIG_exception_fail(SWIG_ArgError(res9), "in method '" "gsl_integration_cquad" "', argument " "9"" of type '" "size_t *""'");
9138 }
9139 arg9 = (size_t *)(argp9);
9140 result = (int)gsl_integration_cquad((struct gsl_function_struct const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
9141 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9142 if (SWIG_IsTmpObj(res7)) {
9143 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg7)); argvi++ ;
9144 } else {
9145 int new_flags = SWIG_IsNewObj(res7) ? (SWIG_POINTER_OWN | 0) : 0;
9146 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg7), SWIGTYPE_p_double, new_flags); argvi++ ;
9147 }
9148 if (SWIG_IsTmpObj(res8)) {
9149 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg8)); argvi++ ;
9150 } else {
9151 int new_flags = SWIG_IsNewObj(res8) ? (SWIG_POINTER_OWN | 0) : 0;
9152 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg8), SWIGTYPE_p_double, new_flags); argvi++ ;
9153 }
9154 {
9155 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
9156 gsl_function_perl_free(p);
9157 }
9158
9159
9160
9161
9162
9163
9164
9165
9166 XSRETURN(argvi);
9167 fail:
9168 {
9169 struct gsl_function_perl *p=(struct gsl_function_perl *) arg1->params;
9170 gsl_function_perl_free(p);
9171 }
9172
9173
9174
9175
9176
9177
9178
9179
9180 SWIG_croak_null();
9181 }
9182 }
9183
9184
XS(_wrap_gsl_function_struct_function_set)9185 XS(_wrap_gsl_function_struct_function_set) {
9186 {
9187 struct gsl_function_struct *arg1 = (struct gsl_function_struct *) 0 ;
9188 double (*arg2)(double,void *) = (double (*)(double,void *)) 0 ;
9189 void *argp1 = 0 ;
9190 int res1 = 0 ;
9191 int argvi = 0;
9192 dXSARGS;
9193
9194 if ((items < 2) || (items > 2)) {
9195 SWIG_croak("Usage: gsl_function_struct_function_set(self,function);");
9196 }
9197 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_struct, 0 | 0 );
9198 if (!SWIG_IsOK(res1)) {
9199 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_struct_function_set" "', argument " "1"" of type '" "struct gsl_function_struct *""'");
9200 }
9201 arg1 = (struct gsl_function_struct *)(argp1);
9202 {
9203 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_double_p_void__double);
9204 if (!SWIG_IsOK(res)) {
9205 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_function_struct_function_set" "', argument " "2"" of type '" "double (*)(double,void *)""'");
9206 }
9207 }
9208 if (arg1) (arg1)->function = arg2;
9209 ST(argvi) = &PL_sv_undef;
9210
9211
9212 XSRETURN(argvi);
9213 fail:
9214
9215
9216 SWIG_croak_null();
9217 }
9218 }
9219
9220
XS(_wrap_gsl_function_struct_function_get)9221 XS(_wrap_gsl_function_struct_function_get) {
9222 {
9223 struct gsl_function_struct *arg1 = (struct gsl_function_struct *) 0 ;
9224 void *argp1 = 0 ;
9225 int res1 = 0 ;
9226 int argvi = 0;
9227 double (*result)(double,void *) = 0 ;
9228 dXSARGS;
9229
9230 if ((items < 1) || (items > 1)) {
9231 SWIG_croak("Usage: gsl_function_struct_function_get(self);");
9232 }
9233 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_struct, 0 | 0 );
9234 if (!SWIG_IsOK(res1)) {
9235 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_struct_function_get" "', argument " "1"" of type '" "struct gsl_function_struct *""'");
9236 }
9237 arg1 = (struct gsl_function_struct *)(argp1);
9238 result = (double (*)(double,void *)) ((arg1)->function);
9239 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_double_p_void__double); argvi++ ;
9240
9241 XSRETURN(argvi);
9242 fail:
9243
9244 SWIG_croak_null();
9245 }
9246 }
9247
9248
XS(_wrap_gsl_function_struct_params_set)9249 XS(_wrap_gsl_function_struct_params_set) {
9250 {
9251 struct gsl_function_struct *arg1 = (struct gsl_function_struct *) 0 ;
9252 void *arg2 = (void *) 0 ;
9253 void *argp1 = 0 ;
9254 int res1 = 0 ;
9255 int res2 ;
9256 int argvi = 0;
9257 dXSARGS;
9258
9259 if ((items < 2) || (items > 2)) {
9260 SWIG_croak("Usage: gsl_function_struct_params_set(self,params);");
9261 }
9262 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_struct, 0 | 0 );
9263 if (!SWIG_IsOK(res1)) {
9264 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_struct_params_set" "', argument " "1"" of type '" "struct gsl_function_struct *""'");
9265 }
9266 arg1 = (struct gsl_function_struct *)(argp1);
9267 res2 = SWIG_ConvertPtr(ST(1),SWIG_as_voidptrptr(&arg2), 0, SWIG_POINTER_DISOWN);
9268 if (!SWIG_IsOK(res2)) {
9269 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_function_struct_params_set" "', argument " "2"" of type '" "void *""'");
9270 }
9271 if (arg1) (arg1)->params = arg2;
9272 ST(argvi) = &PL_sv_undef;
9273
9274
9275 XSRETURN(argvi);
9276 fail:
9277
9278
9279 SWIG_croak_null();
9280 }
9281 }
9282
9283
XS(_wrap_gsl_function_struct_params_get)9284 XS(_wrap_gsl_function_struct_params_get) {
9285 {
9286 struct gsl_function_struct *arg1 = (struct gsl_function_struct *) 0 ;
9287 void *argp1 = 0 ;
9288 int res1 = 0 ;
9289 int argvi = 0;
9290 void *result = 0 ;
9291 dXSARGS;
9292
9293 if ((items < 1) || (items > 1)) {
9294 SWIG_croak("Usage: gsl_function_struct_params_get(self);");
9295 }
9296 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_struct, 0 | 0 );
9297 if (!SWIG_IsOK(res1)) {
9298 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_struct_params_get" "', argument " "1"" of type '" "struct gsl_function_struct *""'");
9299 }
9300 arg1 = (struct gsl_function_struct *)(argp1);
9301 result = (void *) ((arg1)->params);
9302 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_void, 0 | 0); argvi++ ;
9303
9304 XSRETURN(argvi);
9305 fail:
9306
9307 SWIG_croak_null();
9308 }
9309 }
9310
9311
XS(_wrap_new_gsl_function_struct)9312 XS(_wrap_new_gsl_function_struct) {
9313 {
9314 int argvi = 0;
9315 struct gsl_function_struct *result = 0 ;
9316 dXSARGS;
9317
9318 if ((items < 0) || (items > 0)) {
9319 SWIG_croak("Usage: new_gsl_function_struct();");
9320 }
9321 result = (struct gsl_function_struct *)calloc(1, sizeof(struct gsl_function_struct));
9322 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_function_struct, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
9323 XSRETURN(argvi);
9324 fail:
9325 SWIG_croak_null();
9326 }
9327 }
9328
9329
XS(_wrap_delete_gsl_function_struct)9330 XS(_wrap_delete_gsl_function_struct) {
9331 {
9332 struct gsl_function_struct *arg1 = (struct gsl_function_struct *) 0 ;
9333 void *argp1 = 0 ;
9334 int res1 = 0 ;
9335 int argvi = 0;
9336 dXSARGS;
9337
9338 if ((items < 1) || (items > 1)) {
9339 SWIG_croak("Usage: delete_gsl_function_struct(self);");
9340 }
9341 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_struct, SWIG_POINTER_DISOWN | 0 );
9342 if (!SWIG_IsOK(res1)) {
9343 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_function_struct" "', argument " "1"" of type '" "struct gsl_function_struct *""'");
9344 }
9345 arg1 = (struct gsl_function_struct *)(argp1);
9346 free((char *) arg1);
9347 ST(argvi) = &PL_sv_undef;
9348
9349 XSRETURN(argvi);
9350 fail:
9351
9352 SWIG_croak_null();
9353 }
9354 }
9355
9356
XS(_wrap_gsl_function_fdf_struct_f_set)9357 XS(_wrap_gsl_function_fdf_struct_f_set) {
9358 {
9359 struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
9360 double (*arg2)(double,void *) = (double (*)(double,void *)) 0 ;
9361 void *argp1 = 0 ;
9362 int res1 = 0 ;
9363 int argvi = 0;
9364 dXSARGS;
9365
9366 if ((items < 2) || (items > 2)) {
9367 SWIG_croak("Usage: gsl_function_fdf_struct_f_set(self,f);");
9368 }
9369 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, 0 | 0 );
9370 if (!SWIG_IsOK(res1)) {
9371 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_fdf_struct_f_set" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
9372 }
9373 arg1 = (struct gsl_function_fdf_struct *)(argp1);
9374 {
9375 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_double_p_void__double);
9376 if (!SWIG_IsOK(res)) {
9377 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_function_fdf_struct_f_set" "', argument " "2"" of type '" "double (*)(double,void *)""'");
9378 }
9379 }
9380 if (arg1) (arg1)->f = arg2;
9381 ST(argvi) = &PL_sv_undef;
9382
9383
9384 XSRETURN(argvi);
9385 fail:
9386
9387
9388 SWIG_croak_null();
9389 }
9390 }
9391
9392
XS(_wrap_gsl_function_fdf_struct_f_get)9393 XS(_wrap_gsl_function_fdf_struct_f_get) {
9394 {
9395 struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
9396 void *argp1 = 0 ;
9397 int res1 = 0 ;
9398 int argvi = 0;
9399 double (*result)(double,void *) = 0 ;
9400 dXSARGS;
9401
9402 if ((items < 1) || (items > 1)) {
9403 SWIG_croak("Usage: gsl_function_fdf_struct_f_get(self);");
9404 }
9405 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, 0 | 0 );
9406 if (!SWIG_IsOK(res1)) {
9407 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_fdf_struct_f_get" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
9408 }
9409 arg1 = (struct gsl_function_fdf_struct *)(argp1);
9410 result = (double (*)(double,void *)) ((arg1)->f);
9411 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_double_p_void__double); argvi++ ;
9412
9413 XSRETURN(argvi);
9414 fail:
9415
9416 SWIG_croak_null();
9417 }
9418 }
9419
9420
XS(_wrap_gsl_function_fdf_struct_df_set)9421 XS(_wrap_gsl_function_fdf_struct_df_set) {
9422 {
9423 struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
9424 double (*arg2)(double,void *) = (double (*)(double,void *)) 0 ;
9425 void *argp1 = 0 ;
9426 int res1 = 0 ;
9427 int argvi = 0;
9428 dXSARGS;
9429
9430 if ((items < 2) || (items > 2)) {
9431 SWIG_croak("Usage: gsl_function_fdf_struct_df_set(self,df);");
9432 }
9433 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, 0 | 0 );
9434 if (!SWIG_IsOK(res1)) {
9435 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_fdf_struct_df_set" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
9436 }
9437 arg1 = (struct gsl_function_fdf_struct *)(argp1);
9438 {
9439 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_double_p_void__double);
9440 if (!SWIG_IsOK(res)) {
9441 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_function_fdf_struct_df_set" "', argument " "2"" of type '" "double (*)(double,void *)""'");
9442 }
9443 }
9444 if (arg1) (arg1)->df = arg2;
9445 ST(argvi) = &PL_sv_undef;
9446
9447
9448 XSRETURN(argvi);
9449 fail:
9450
9451
9452 SWIG_croak_null();
9453 }
9454 }
9455
9456
XS(_wrap_gsl_function_fdf_struct_df_get)9457 XS(_wrap_gsl_function_fdf_struct_df_get) {
9458 {
9459 struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
9460 void *argp1 = 0 ;
9461 int res1 = 0 ;
9462 int argvi = 0;
9463 double (*result)(double,void *) = 0 ;
9464 dXSARGS;
9465
9466 if ((items < 1) || (items > 1)) {
9467 SWIG_croak("Usage: gsl_function_fdf_struct_df_get(self);");
9468 }
9469 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, 0 | 0 );
9470 if (!SWIG_IsOK(res1)) {
9471 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_fdf_struct_df_get" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
9472 }
9473 arg1 = (struct gsl_function_fdf_struct *)(argp1);
9474 result = (double (*)(double,void *)) ((arg1)->df);
9475 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_double_p_void__double); argvi++ ;
9476
9477 XSRETURN(argvi);
9478 fail:
9479
9480 SWIG_croak_null();
9481 }
9482 }
9483
9484
XS(_wrap_gsl_function_fdf_struct_fdf_set)9485 XS(_wrap_gsl_function_fdf_struct_fdf_set) {
9486 {
9487 struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
9488 void (*arg2)(double,void *,double *,double *) = (void (*)(double,void *,double *,double *)) 0 ;
9489 void *argp1 = 0 ;
9490 int res1 = 0 ;
9491 int argvi = 0;
9492 dXSARGS;
9493
9494 if ((items < 2) || (items > 2)) {
9495 SWIG_croak("Usage: gsl_function_fdf_struct_fdf_set(self,fdf);");
9496 }
9497 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, 0 | 0 );
9498 if (!SWIG_IsOK(res1)) {
9499 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_fdf_struct_fdf_set" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
9500 }
9501 arg1 = (struct gsl_function_fdf_struct *)(argp1);
9502 {
9503 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_double_p_void_p_double_p_double__void);
9504 if (!SWIG_IsOK(res)) {
9505 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_function_fdf_struct_fdf_set" "', argument " "2"" of type '" "void (*)(double,void *,double *,double *)""'");
9506 }
9507 }
9508 if (arg1) (arg1)->fdf = arg2;
9509 ST(argvi) = &PL_sv_undef;
9510
9511
9512 XSRETURN(argvi);
9513 fail:
9514
9515
9516 SWIG_croak_null();
9517 }
9518 }
9519
9520
XS(_wrap_gsl_function_fdf_struct_fdf_get)9521 XS(_wrap_gsl_function_fdf_struct_fdf_get) {
9522 {
9523 struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
9524 void *argp1 = 0 ;
9525 int res1 = 0 ;
9526 int argvi = 0;
9527 void (*result)(double,void *,double *,double *) = 0 ;
9528 dXSARGS;
9529
9530 if ((items < 1) || (items > 1)) {
9531 SWIG_croak("Usage: gsl_function_fdf_struct_fdf_get(self);");
9532 }
9533 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, 0 | 0 );
9534 if (!SWIG_IsOK(res1)) {
9535 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_fdf_struct_fdf_get" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
9536 }
9537 arg1 = (struct gsl_function_fdf_struct *)(argp1);
9538 result = (void (*)(double,void *,double *,double *)) ((arg1)->fdf);
9539 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_double_p_void_p_double_p_double__void); argvi++ ;
9540
9541 XSRETURN(argvi);
9542 fail:
9543
9544 SWIG_croak_null();
9545 }
9546 }
9547
9548
XS(_wrap_gsl_function_fdf_struct_params_set)9549 XS(_wrap_gsl_function_fdf_struct_params_set) {
9550 {
9551 struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
9552 void *arg2 = (void *) 0 ;
9553 void *argp1 = 0 ;
9554 int res1 = 0 ;
9555 int res2 ;
9556 int argvi = 0;
9557 dXSARGS;
9558
9559 if ((items < 2) || (items > 2)) {
9560 SWIG_croak("Usage: gsl_function_fdf_struct_params_set(self,params);");
9561 }
9562 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, 0 | 0 );
9563 if (!SWIG_IsOK(res1)) {
9564 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_fdf_struct_params_set" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
9565 }
9566 arg1 = (struct gsl_function_fdf_struct *)(argp1);
9567 res2 = SWIG_ConvertPtr(ST(1),SWIG_as_voidptrptr(&arg2), 0, SWIG_POINTER_DISOWN);
9568 if (!SWIG_IsOK(res2)) {
9569 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_function_fdf_struct_params_set" "', argument " "2"" of type '" "void *""'");
9570 }
9571 if (arg1) (arg1)->params = arg2;
9572 ST(argvi) = &PL_sv_undef;
9573
9574
9575 XSRETURN(argvi);
9576 fail:
9577
9578
9579 SWIG_croak_null();
9580 }
9581 }
9582
9583
XS(_wrap_gsl_function_fdf_struct_params_get)9584 XS(_wrap_gsl_function_fdf_struct_params_get) {
9585 {
9586 struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
9587 void *argp1 = 0 ;
9588 int res1 = 0 ;
9589 int argvi = 0;
9590 void *result = 0 ;
9591 dXSARGS;
9592
9593 if ((items < 1) || (items > 1)) {
9594 SWIG_croak("Usage: gsl_function_fdf_struct_params_get(self);");
9595 }
9596 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, 0 | 0 );
9597 if (!SWIG_IsOK(res1)) {
9598 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_fdf_struct_params_get" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
9599 }
9600 arg1 = (struct gsl_function_fdf_struct *)(argp1);
9601 result = (void *) ((arg1)->params);
9602 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_void, 0 | 0); argvi++ ;
9603
9604 XSRETURN(argvi);
9605 fail:
9606
9607 SWIG_croak_null();
9608 }
9609 }
9610
9611
XS(_wrap_new_gsl_function_fdf_struct)9612 XS(_wrap_new_gsl_function_fdf_struct) {
9613 {
9614 int argvi = 0;
9615 struct gsl_function_fdf_struct *result = 0 ;
9616 dXSARGS;
9617
9618 if ((items < 0) || (items > 0)) {
9619 SWIG_croak("Usage: new_gsl_function_fdf_struct();");
9620 }
9621 result = (struct gsl_function_fdf_struct *)calloc(1, sizeof(struct gsl_function_fdf_struct));
9622 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_function_fdf_struct, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
9623 XSRETURN(argvi);
9624 fail:
9625 SWIG_croak_null();
9626 }
9627 }
9628
9629
XS(_wrap_delete_gsl_function_fdf_struct)9630 XS(_wrap_delete_gsl_function_fdf_struct) {
9631 {
9632 struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
9633 void *argp1 = 0 ;
9634 int res1 = 0 ;
9635 int argvi = 0;
9636 dXSARGS;
9637
9638 if ((items < 1) || (items > 1)) {
9639 SWIG_croak("Usage: delete_gsl_function_fdf_struct(self);");
9640 }
9641 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, SWIG_POINTER_DISOWN | 0 );
9642 if (!SWIG_IsOK(res1)) {
9643 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_function_fdf_struct" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
9644 }
9645 arg1 = (struct gsl_function_fdf_struct *)(argp1);
9646 free((char *) arg1);
9647 ST(argvi) = &PL_sv_undef;
9648
9649 XSRETURN(argvi);
9650 fail:
9651
9652 SWIG_croak_null();
9653 }
9654 }
9655
9656
XS(_wrap_gsl_function_vec_struct_function_set)9657 XS(_wrap_gsl_function_vec_struct_function_set) {
9658 {
9659 struct gsl_function_vec_struct *arg1 = (struct gsl_function_vec_struct *) 0 ;
9660 int (*arg2)(double,double [],void *) = (int (*)(double,double [],void *)) 0 ;
9661 void *argp1 = 0 ;
9662 int res1 = 0 ;
9663 int argvi = 0;
9664 dXSARGS;
9665
9666 if ((items < 2) || (items > 2)) {
9667 SWIG_croak("Usage: gsl_function_vec_struct_function_set(self,function);");
9668 }
9669 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_vec_struct, 0 | 0 );
9670 if (!SWIG_IsOK(res1)) {
9671 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_vec_struct_function_set" "', argument " "1"" of type '" "struct gsl_function_vec_struct *""'");
9672 }
9673 arg1 = (struct gsl_function_vec_struct *)(argp1);
9674 {
9675 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_double_a___double_p_void__int);
9676 if (!SWIG_IsOK(res)) {
9677 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_function_vec_struct_function_set" "', argument " "2"" of type '" "int (*)(double,double [],void *)""'");
9678 }
9679 }
9680 if (arg1) (arg1)->function = arg2;
9681 ST(argvi) = &PL_sv_undef;
9682
9683
9684 XSRETURN(argvi);
9685 fail:
9686
9687
9688 SWIG_croak_null();
9689 }
9690 }
9691
9692
XS(_wrap_gsl_function_vec_struct_function_get)9693 XS(_wrap_gsl_function_vec_struct_function_get) {
9694 {
9695 struct gsl_function_vec_struct *arg1 = (struct gsl_function_vec_struct *) 0 ;
9696 void *argp1 = 0 ;
9697 int res1 = 0 ;
9698 int argvi = 0;
9699 int (*result)(double,double [],void *) = 0 ;
9700 dXSARGS;
9701
9702 if ((items < 1) || (items > 1)) {
9703 SWIG_croak("Usage: gsl_function_vec_struct_function_get(self);");
9704 }
9705 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_vec_struct, 0 | 0 );
9706 if (!SWIG_IsOK(res1)) {
9707 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_vec_struct_function_get" "', argument " "1"" of type '" "struct gsl_function_vec_struct *""'");
9708 }
9709 arg1 = (struct gsl_function_vec_struct *)(argp1);
9710 result = (int (*)(double,double [],void *)) ((arg1)->function);
9711 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_double_a___double_p_void__int); argvi++ ;
9712
9713 XSRETURN(argvi);
9714 fail:
9715
9716 SWIG_croak_null();
9717 }
9718 }
9719
9720
XS(_wrap_gsl_function_vec_struct_params_set)9721 XS(_wrap_gsl_function_vec_struct_params_set) {
9722 {
9723 struct gsl_function_vec_struct *arg1 = (struct gsl_function_vec_struct *) 0 ;
9724 void *arg2 = (void *) 0 ;
9725 void *argp1 = 0 ;
9726 int res1 = 0 ;
9727 int res2 ;
9728 int argvi = 0;
9729 dXSARGS;
9730
9731 if ((items < 2) || (items > 2)) {
9732 SWIG_croak("Usage: gsl_function_vec_struct_params_set(self,params);");
9733 }
9734 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_vec_struct, 0 | 0 );
9735 if (!SWIG_IsOK(res1)) {
9736 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_vec_struct_params_set" "', argument " "1"" of type '" "struct gsl_function_vec_struct *""'");
9737 }
9738 arg1 = (struct gsl_function_vec_struct *)(argp1);
9739 res2 = SWIG_ConvertPtr(ST(1),SWIG_as_voidptrptr(&arg2), 0, SWIG_POINTER_DISOWN);
9740 if (!SWIG_IsOK(res2)) {
9741 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_function_vec_struct_params_set" "', argument " "2"" of type '" "void *""'");
9742 }
9743 if (arg1) (arg1)->params = arg2;
9744 ST(argvi) = &PL_sv_undef;
9745
9746
9747 XSRETURN(argvi);
9748 fail:
9749
9750
9751 SWIG_croak_null();
9752 }
9753 }
9754
9755
XS(_wrap_gsl_function_vec_struct_params_get)9756 XS(_wrap_gsl_function_vec_struct_params_get) {
9757 {
9758 struct gsl_function_vec_struct *arg1 = (struct gsl_function_vec_struct *) 0 ;
9759 void *argp1 = 0 ;
9760 int res1 = 0 ;
9761 int argvi = 0;
9762 void *result = 0 ;
9763 dXSARGS;
9764
9765 if ((items < 1) || (items > 1)) {
9766 SWIG_croak("Usage: gsl_function_vec_struct_params_get(self);");
9767 }
9768 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_vec_struct, 0 | 0 );
9769 if (!SWIG_IsOK(res1)) {
9770 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_vec_struct_params_get" "', argument " "1"" of type '" "struct gsl_function_vec_struct *""'");
9771 }
9772 arg1 = (struct gsl_function_vec_struct *)(argp1);
9773 result = (void *) ((arg1)->params);
9774 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_void, 0 | 0); argvi++ ;
9775
9776 XSRETURN(argvi);
9777 fail:
9778
9779 SWIG_croak_null();
9780 }
9781 }
9782
9783
XS(_wrap_new_gsl_function_vec_struct)9784 XS(_wrap_new_gsl_function_vec_struct) {
9785 {
9786 int argvi = 0;
9787 struct gsl_function_vec_struct *result = 0 ;
9788 dXSARGS;
9789
9790 if ((items < 0) || (items > 0)) {
9791 SWIG_croak("Usage: new_gsl_function_vec_struct();");
9792 }
9793 result = (struct gsl_function_vec_struct *)calloc(1, sizeof(struct gsl_function_vec_struct));
9794 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_function_vec_struct, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
9795 XSRETURN(argvi);
9796 fail:
9797 SWIG_croak_null();
9798 }
9799 }
9800
9801
XS(_wrap_delete_gsl_function_vec_struct)9802 XS(_wrap_delete_gsl_function_vec_struct) {
9803 {
9804 struct gsl_function_vec_struct *arg1 = (struct gsl_function_vec_struct *) 0 ;
9805 void *argp1 = 0 ;
9806 int res1 = 0 ;
9807 int argvi = 0;
9808 dXSARGS;
9809
9810 if ((items < 1) || (items > 1)) {
9811 SWIG_croak("Usage: delete_gsl_function_vec_struct(self);");
9812 }
9813 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_vec_struct, SWIG_POINTER_DISOWN | 0 );
9814 if (!SWIG_IsOK(res1)) {
9815 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_function_vec_struct" "', argument " "1"" of type '" "struct gsl_function_vec_struct *""'");
9816 }
9817 arg1 = (struct gsl_function_vec_struct *)(argp1);
9818 free((char *) arg1);
9819 ST(argvi) = &PL_sv_undef;
9820
9821 XSRETURN(argvi);
9822 fail:
9823
9824 SWIG_croak_null();
9825 }
9826 }
9827
9828
9829
9830 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (BEGIN) -------- */
9831
9832 static swig_type_info _swigt__p_FILE = {"_p_FILE", "FILE *", 0, 0, (void*)0, 0};
9833 static swig_type_info _swigt__p_char = {"_p_char", "char *", 0, 0, (void*)0, 0};
9834 static swig_type_info _swigt__p_double = {"_p_double", "double *", 0, 0, (void*)0, 0};
9835 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};
9836 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};
9837 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};
9838 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};
9839 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};
9840 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};
9841 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};
9842 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};
9843 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};
9844 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};
9845 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};
9846 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};
9847 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};
9848 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};
9849 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};
9850 static swig_type_info _swigt__p_size_t = {"_p_size_t", "size_t *", 0, 0, (void*)0, 0};
9851 static swig_type_info _swigt__p_void = {"_p_void", "void *", 0, 0, (void*)0, 0};
9852
9853 static swig_type_info *swig_type_initial[] = {
9854 &_swigt__p_FILE,
9855 &_swigt__p_char,
9856 &_swigt__p_double,
9857 &_swigt__p_f_double_a___double_p_void__int,
9858 &_swigt__p_f_double_p_void__double,
9859 &_swigt__p_f_double_p_void_p_double_p_double__void,
9860 &_swigt__p_f_p_q_const__char_p_q_const__char_int_int__void,
9861 &_swigt__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void,
9862 &_swigt__p_f_p_q_const__struct_gsl_function_struct_double_double_p_double_p_double_p_double_p_double__void,
9863 &_swigt__p_gsl_function_fdf_struct,
9864 &_swigt__p_gsl_function_struct,
9865 &_swigt__p_gsl_function_vec_struct,
9866 &_swigt__p_gsl_integration_cquad_ival,
9867 &_swigt__p_gsl_integration_cquad_workspace,
9868 &_swigt__p_gsl_integration_glfixed_table,
9869 &_swigt__p_gsl_integration_qawo_table,
9870 &_swigt__p_gsl_integration_qaws_table,
9871 &_swigt__p_gsl_integration_workspace,
9872 &_swigt__p_size_t,
9873 &_swigt__p_void,
9874 };
9875
9876 static swig_cast_info _swigc__p_FILE[] = { {&_swigt__p_FILE, 0, 0, 0},{0, 0, 0, 0}};
9877 static swig_cast_info _swigc__p_char[] = { {&_swigt__p_char, 0, 0, 0},{0, 0, 0, 0}};
9878 static swig_cast_info _swigc__p_double[] = { {&_swigt__p_double, 0, 0, 0},{0, 0, 0, 0}};
9879 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}};
9880 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}};
9881 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}};
9882 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}};
9883 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}};
9884 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}};
9885 static swig_cast_info _swigc__p_gsl_function_fdf_struct[] = { {&_swigt__p_gsl_function_fdf_struct, 0, 0, 0},{0, 0, 0, 0}};
9886 static swig_cast_info _swigc__p_gsl_function_struct[] = { {&_swigt__p_gsl_function_struct, 0, 0, 0},{0, 0, 0, 0}};
9887 static swig_cast_info _swigc__p_gsl_function_vec_struct[] = { {&_swigt__p_gsl_function_vec_struct, 0, 0, 0},{0, 0, 0, 0}};
9888 static swig_cast_info _swigc__p_gsl_integration_cquad_ival[] = { {&_swigt__p_gsl_integration_cquad_ival, 0, 0, 0},{0, 0, 0, 0}};
9889 static swig_cast_info _swigc__p_gsl_integration_cquad_workspace[] = { {&_swigt__p_gsl_integration_cquad_workspace, 0, 0, 0},{0, 0, 0, 0}};
9890 static swig_cast_info _swigc__p_gsl_integration_glfixed_table[] = { {&_swigt__p_gsl_integration_glfixed_table, 0, 0, 0},{0, 0, 0, 0}};
9891 static swig_cast_info _swigc__p_gsl_integration_qawo_table[] = { {&_swigt__p_gsl_integration_qawo_table, 0, 0, 0},{0, 0, 0, 0}};
9892 static swig_cast_info _swigc__p_gsl_integration_qaws_table[] = { {&_swigt__p_gsl_integration_qaws_table, 0, 0, 0},{0, 0, 0, 0}};
9893 static swig_cast_info _swigc__p_gsl_integration_workspace[] = { {&_swigt__p_gsl_integration_workspace, 0, 0, 0},{0, 0, 0, 0}};
9894 static swig_cast_info _swigc__p_size_t[] = { {&_swigt__p_size_t, 0, 0, 0},{0, 0, 0, 0}};
9895 static swig_cast_info _swigc__p_void[] = { {&_swigt__p_void, 0, 0, 0},{0, 0, 0, 0}};
9896
9897 static swig_cast_info *swig_cast_initial[] = {
9898 _swigc__p_FILE,
9899 _swigc__p_char,
9900 _swigc__p_double,
9901 _swigc__p_f_double_a___double_p_void__int,
9902 _swigc__p_f_double_p_void__double,
9903 _swigc__p_f_double_p_void_p_double_p_double__void,
9904 _swigc__p_f_p_q_const__char_p_q_const__char_int_int__void,
9905 _swigc__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void,
9906 _swigc__p_f_p_q_const__struct_gsl_function_struct_double_double_p_double_p_double_p_double_p_double__void,
9907 _swigc__p_gsl_function_fdf_struct,
9908 _swigc__p_gsl_function_struct,
9909 _swigc__p_gsl_function_vec_struct,
9910 _swigc__p_gsl_integration_cquad_ival,
9911 _swigc__p_gsl_integration_cquad_workspace,
9912 _swigc__p_gsl_integration_glfixed_table,
9913 _swigc__p_gsl_integration_qawo_table,
9914 _swigc__p_gsl_integration_qaws_table,
9915 _swigc__p_gsl_integration_workspace,
9916 _swigc__p_size_t,
9917 _swigc__p_void,
9918 };
9919
9920
9921 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (END) -------- */
9922
9923 static swig_constant_info swig_constants[] = {
9924 {0,0,0,0,0,0}
9925 };
9926 #ifdef __cplusplus
9927 }
9928 #endif
9929 static swig_variable_info swig_variables[] = {
9930 {0,0,0,0}
9931 };
9932 static swig_command_info swig_commands[] = {
9933 {"Math::GSL::Integrationc::gsl_error", _wrap_gsl_error},
9934 {"Math::GSL::Integrationc::gsl_stream_printf", _wrap_gsl_stream_printf},
9935 {"Math::GSL::Integrationc::gsl_strerror", _wrap_gsl_strerror},
9936 {"Math::GSL::Integrationc::gsl_set_error_handler", _wrap_gsl_set_error_handler},
9937 {"Math::GSL::Integrationc::gsl_set_error_handler_off", _wrap_gsl_set_error_handler_off},
9938 {"Math::GSL::Integrationc::gsl_set_stream_handler", _wrap_gsl_set_stream_handler},
9939 {"Math::GSL::Integrationc::gsl_set_stream", _wrap_gsl_set_stream},
9940 {"Math::GSL::Integrationc::gsl_integration_workspace_limit_set", _wrap_gsl_integration_workspace_limit_set},
9941 {"Math::GSL::Integrationc::gsl_integration_workspace_limit_get", _wrap_gsl_integration_workspace_limit_get},
9942 {"Math::GSL::Integrationc::gsl_integration_workspace_size_set", _wrap_gsl_integration_workspace_size_set},
9943 {"Math::GSL::Integrationc::gsl_integration_workspace_size_get", _wrap_gsl_integration_workspace_size_get},
9944 {"Math::GSL::Integrationc::gsl_integration_workspace_nrmax_set", _wrap_gsl_integration_workspace_nrmax_set},
9945 {"Math::GSL::Integrationc::gsl_integration_workspace_nrmax_get", _wrap_gsl_integration_workspace_nrmax_get},
9946 {"Math::GSL::Integrationc::gsl_integration_workspace_i_set", _wrap_gsl_integration_workspace_i_set},
9947 {"Math::GSL::Integrationc::gsl_integration_workspace_i_get", _wrap_gsl_integration_workspace_i_get},
9948 {"Math::GSL::Integrationc::gsl_integration_workspace_maximum_level_set", _wrap_gsl_integration_workspace_maximum_level_set},
9949 {"Math::GSL::Integrationc::gsl_integration_workspace_maximum_level_get", _wrap_gsl_integration_workspace_maximum_level_get},
9950 {"Math::GSL::Integrationc::gsl_integration_workspace_alist_set", _wrap_gsl_integration_workspace_alist_set},
9951 {"Math::GSL::Integrationc::gsl_integration_workspace_alist_get", _wrap_gsl_integration_workspace_alist_get},
9952 {"Math::GSL::Integrationc::gsl_integration_workspace_blist_set", _wrap_gsl_integration_workspace_blist_set},
9953 {"Math::GSL::Integrationc::gsl_integration_workspace_blist_get", _wrap_gsl_integration_workspace_blist_get},
9954 {"Math::GSL::Integrationc::gsl_integration_workspace_rlist_set", _wrap_gsl_integration_workspace_rlist_set},
9955 {"Math::GSL::Integrationc::gsl_integration_workspace_rlist_get", _wrap_gsl_integration_workspace_rlist_get},
9956 {"Math::GSL::Integrationc::gsl_integration_workspace_elist_set", _wrap_gsl_integration_workspace_elist_set},
9957 {"Math::GSL::Integrationc::gsl_integration_workspace_elist_get", _wrap_gsl_integration_workspace_elist_get},
9958 {"Math::GSL::Integrationc::gsl_integration_workspace_order_set", _wrap_gsl_integration_workspace_order_set},
9959 {"Math::GSL::Integrationc::gsl_integration_workspace_order_get", _wrap_gsl_integration_workspace_order_get},
9960 {"Math::GSL::Integrationc::gsl_integration_workspace_level_set", _wrap_gsl_integration_workspace_level_set},
9961 {"Math::GSL::Integrationc::gsl_integration_workspace_level_get", _wrap_gsl_integration_workspace_level_get},
9962 {"Math::GSL::Integrationc::new_gsl_integration_workspace", _wrap_new_gsl_integration_workspace},
9963 {"Math::GSL::Integrationc::delete_gsl_integration_workspace", _wrap_delete_gsl_integration_workspace},
9964 {"Math::GSL::Integrationc::gsl_integration_workspace_alloc", _wrap_gsl_integration_workspace_alloc},
9965 {"Math::GSL::Integrationc::gsl_integration_workspace_free", _wrap_gsl_integration_workspace_free},
9966 {"Math::GSL::Integrationc::gsl_integration_qaws_table_alpha_set", _wrap_gsl_integration_qaws_table_alpha_set},
9967 {"Math::GSL::Integrationc::gsl_integration_qaws_table_alpha_get", _wrap_gsl_integration_qaws_table_alpha_get},
9968 {"Math::GSL::Integrationc::gsl_integration_qaws_table_beta_set", _wrap_gsl_integration_qaws_table_beta_set},
9969 {"Math::GSL::Integrationc::gsl_integration_qaws_table_beta_get", _wrap_gsl_integration_qaws_table_beta_get},
9970 {"Math::GSL::Integrationc::gsl_integration_qaws_table_mu_set", _wrap_gsl_integration_qaws_table_mu_set},
9971 {"Math::GSL::Integrationc::gsl_integration_qaws_table_mu_get", _wrap_gsl_integration_qaws_table_mu_get},
9972 {"Math::GSL::Integrationc::gsl_integration_qaws_table_nu_set", _wrap_gsl_integration_qaws_table_nu_set},
9973 {"Math::GSL::Integrationc::gsl_integration_qaws_table_nu_get", _wrap_gsl_integration_qaws_table_nu_get},
9974 {"Math::GSL::Integrationc::gsl_integration_qaws_table_ri_set", _wrap_gsl_integration_qaws_table_ri_set},
9975 {"Math::GSL::Integrationc::gsl_integration_qaws_table_ri_get", _wrap_gsl_integration_qaws_table_ri_get},
9976 {"Math::GSL::Integrationc::gsl_integration_qaws_table_rj_set", _wrap_gsl_integration_qaws_table_rj_set},
9977 {"Math::GSL::Integrationc::gsl_integration_qaws_table_rj_get", _wrap_gsl_integration_qaws_table_rj_get},
9978 {"Math::GSL::Integrationc::gsl_integration_qaws_table_rg_set", _wrap_gsl_integration_qaws_table_rg_set},
9979 {"Math::GSL::Integrationc::gsl_integration_qaws_table_rg_get", _wrap_gsl_integration_qaws_table_rg_get},
9980 {"Math::GSL::Integrationc::gsl_integration_qaws_table_rh_set", _wrap_gsl_integration_qaws_table_rh_set},
9981 {"Math::GSL::Integrationc::gsl_integration_qaws_table_rh_get", _wrap_gsl_integration_qaws_table_rh_get},
9982 {"Math::GSL::Integrationc::new_gsl_integration_qaws_table", _wrap_new_gsl_integration_qaws_table},
9983 {"Math::GSL::Integrationc::delete_gsl_integration_qaws_table", _wrap_delete_gsl_integration_qaws_table},
9984 {"Math::GSL::Integrationc::gsl_integration_qaws_table_alloc", _wrap_gsl_integration_qaws_table_alloc},
9985 {"Math::GSL::Integrationc::gsl_integration_qaws_table_set", _wrap_gsl_integration_qaws_table_set},
9986 {"Math::GSL::Integrationc::gsl_integration_qaws_table_free", _wrap_gsl_integration_qaws_table_free},
9987 {"Math::GSL::Integrationc::gsl_integration_qawo_table_n_set", _wrap_gsl_integration_qawo_table_n_set},
9988 {"Math::GSL::Integrationc::gsl_integration_qawo_table_n_get", _wrap_gsl_integration_qawo_table_n_get},
9989 {"Math::GSL::Integrationc::gsl_integration_qawo_table_omega_set", _wrap_gsl_integration_qawo_table_omega_set},
9990 {"Math::GSL::Integrationc::gsl_integration_qawo_table_omega_get", _wrap_gsl_integration_qawo_table_omega_get},
9991 {"Math::GSL::Integrationc::gsl_integration_qawo_table_L_set", _wrap_gsl_integration_qawo_table_L_set},
9992 {"Math::GSL::Integrationc::gsl_integration_qawo_table_L_get", _wrap_gsl_integration_qawo_table_L_get},
9993 {"Math::GSL::Integrationc::gsl_integration_qawo_table_par_set", _wrap_gsl_integration_qawo_table_par_set},
9994 {"Math::GSL::Integrationc::gsl_integration_qawo_table_par_get", _wrap_gsl_integration_qawo_table_par_get},
9995 {"Math::GSL::Integrationc::gsl_integration_qawo_table_sine_set", _wrap_gsl_integration_qawo_table_sine_set},
9996 {"Math::GSL::Integrationc::gsl_integration_qawo_table_sine_get", _wrap_gsl_integration_qawo_table_sine_get},
9997 {"Math::GSL::Integrationc::gsl_integration_qawo_table_chebmo_set", _wrap_gsl_integration_qawo_table_chebmo_set},
9998 {"Math::GSL::Integrationc::gsl_integration_qawo_table_chebmo_get", _wrap_gsl_integration_qawo_table_chebmo_get},
9999 {"Math::GSL::Integrationc::new_gsl_integration_qawo_table", _wrap_new_gsl_integration_qawo_table},
10000 {"Math::GSL::Integrationc::delete_gsl_integration_qawo_table", _wrap_delete_gsl_integration_qawo_table},
10001 {"Math::GSL::Integrationc::gsl_integration_qawo_table_alloc", _wrap_gsl_integration_qawo_table_alloc},
10002 {"Math::GSL::Integrationc::gsl_integration_qawo_table_set", _wrap_gsl_integration_qawo_table_set},
10003 {"Math::GSL::Integrationc::gsl_integration_qawo_table_set_length", _wrap_gsl_integration_qawo_table_set_length},
10004 {"Math::GSL::Integrationc::gsl_integration_qawo_table_free", _wrap_gsl_integration_qawo_table_free},
10005 {"Math::GSL::Integrationc::gsl_integration_qk15", _wrap_gsl_integration_qk15},
10006 {"Math::GSL::Integrationc::gsl_integration_qk21", _wrap_gsl_integration_qk21},
10007 {"Math::GSL::Integrationc::gsl_integration_qk31", _wrap_gsl_integration_qk31},
10008 {"Math::GSL::Integrationc::gsl_integration_qk41", _wrap_gsl_integration_qk41},
10009 {"Math::GSL::Integrationc::gsl_integration_qk51", _wrap_gsl_integration_qk51},
10010 {"Math::GSL::Integrationc::gsl_integration_qk61", _wrap_gsl_integration_qk61},
10011 {"Math::GSL::Integrationc::gsl_integration_qcheb", _wrap_gsl_integration_qcheb},
10012 {"Math::GSL::Integrationc::gsl_integration_qk", _wrap_gsl_integration_qk},
10013 {"Math::GSL::Integrationc::gsl_integration_qng", _wrap_gsl_integration_qng},
10014 {"Math::GSL::Integrationc::gsl_integration_qag", _wrap_gsl_integration_qag},
10015 {"Math::GSL::Integrationc::gsl_integration_qagi", _wrap_gsl_integration_qagi},
10016 {"Math::GSL::Integrationc::gsl_integration_qagiu", _wrap_gsl_integration_qagiu},
10017 {"Math::GSL::Integrationc::gsl_integration_qagil", _wrap_gsl_integration_qagil},
10018 {"Math::GSL::Integrationc::gsl_integration_qags", _wrap_gsl_integration_qags},
10019 {"Math::GSL::Integrationc::gsl_integration_qagp", _wrap_gsl_integration_qagp},
10020 {"Math::GSL::Integrationc::gsl_integration_qawc", _wrap_gsl_integration_qawc},
10021 {"Math::GSL::Integrationc::gsl_integration_qaws", _wrap_gsl_integration_qaws},
10022 {"Math::GSL::Integrationc::gsl_integration_qawo", _wrap_gsl_integration_qawo},
10023 {"Math::GSL::Integrationc::gsl_integration_qawf", _wrap_gsl_integration_qawf},
10024 {"Math::GSL::Integrationc::gsl_integration_glfixed_table_n_set", _wrap_gsl_integration_glfixed_table_n_set},
10025 {"Math::GSL::Integrationc::gsl_integration_glfixed_table_n_get", _wrap_gsl_integration_glfixed_table_n_get},
10026 {"Math::GSL::Integrationc::gsl_integration_glfixed_table_x_set", _wrap_gsl_integration_glfixed_table_x_set},
10027 {"Math::GSL::Integrationc::gsl_integration_glfixed_table_x_get", _wrap_gsl_integration_glfixed_table_x_get},
10028 {"Math::GSL::Integrationc::gsl_integration_glfixed_table_w_set", _wrap_gsl_integration_glfixed_table_w_set},
10029 {"Math::GSL::Integrationc::gsl_integration_glfixed_table_w_get", _wrap_gsl_integration_glfixed_table_w_get},
10030 {"Math::GSL::Integrationc::gsl_integration_glfixed_table_precomputed_set", _wrap_gsl_integration_glfixed_table_precomputed_set},
10031 {"Math::GSL::Integrationc::gsl_integration_glfixed_table_precomputed_get", _wrap_gsl_integration_glfixed_table_precomputed_get},
10032 {"Math::GSL::Integrationc::new_gsl_integration_glfixed_table", _wrap_new_gsl_integration_glfixed_table},
10033 {"Math::GSL::Integrationc::delete_gsl_integration_glfixed_table", _wrap_delete_gsl_integration_glfixed_table},
10034 {"Math::GSL::Integrationc::gsl_integration_glfixed_table_alloc", _wrap_gsl_integration_glfixed_table_alloc},
10035 {"Math::GSL::Integrationc::gsl_integration_glfixed_table_free", _wrap_gsl_integration_glfixed_table_free},
10036 {"Math::GSL::Integrationc::gsl_integration_glfixed", _wrap_gsl_integration_glfixed},
10037 {"Math::GSL::Integrationc::gsl_integration_glfixed_point", _wrap_gsl_integration_glfixed_point},
10038 {"Math::GSL::Integrationc::gsl_integration_cquad_ival_a_set", _wrap_gsl_integration_cquad_ival_a_set},
10039 {"Math::GSL::Integrationc::gsl_integration_cquad_ival_a_get", _wrap_gsl_integration_cquad_ival_a_get},
10040 {"Math::GSL::Integrationc::gsl_integration_cquad_ival_b_set", _wrap_gsl_integration_cquad_ival_b_set},
10041 {"Math::GSL::Integrationc::gsl_integration_cquad_ival_b_get", _wrap_gsl_integration_cquad_ival_b_get},
10042 {"Math::GSL::Integrationc::gsl_integration_cquad_ival_c_set", _wrap_gsl_integration_cquad_ival_c_set},
10043 {"Math::GSL::Integrationc::gsl_integration_cquad_ival_c_get", _wrap_gsl_integration_cquad_ival_c_get},
10044 {"Math::GSL::Integrationc::gsl_integration_cquad_ival_fx_set", _wrap_gsl_integration_cquad_ival_fx_set},
10045 {"Math::GSL::Integrationc::gsl_integration_cquad_ival_fx_get", _wrap_gsl_integration_cquad_ival_fx_get},
10046 {"Math::GSL::Integrationc::gsl_integration_cquad_ival_igral_set", _wrap_gsl_integration_cquad_ival_igral_set},
10047 {"Math::GSL::Integrationc::gsl_integration_cquad_ival_igral_get", _wrap_gsl_integration_cquad_ival_igral_get},
10048 {"Math::GSL::Integrationc::gsl_integration_cquad_ival_err_set", _wrap_gsl_integration_cquad_ival_err_set},
10049 {"Math::GSL::Integrationc::gsl_integration_cquad_ival_err_get", _wrap_gsl_integration_cquad_ival_err_get},
10050 {"Math::GSL::Integrationc::gsl_integration_cquad_ival_depth_set", _wrap_gsl_integration_cquad_ival_depth_set},
10051 {"Math::GSL::Integrationc::gsl_integration_cquad_ival_depth_get", _wrap_gsl_integration_cquad_ival_depth_get},
10052 {"Math::GSL::Integrationc::gsl_integration_cquad_ival_rdepth_set", _wrap_gsl_integration_cquad_ival_rdepth_set},
10053 {"Math::GSL::Integrationc::gsl_integration_cquad_ival_rdepth_get", _wrap_gsl_integration_cquad_ival_rdepth_get},
10054 {"Math::GSL::Integrationc::gsl_integration_cquad_ival_ndiv_set", _wrap_gsl_integration_cquad_ival_ndiv_set},
10055 {"Math::GSL::Integrationc::gsl_integration_cquad_ival_ndiv_get", _wrap_gsl_integration_cquad_ival_ndiv_get},
10056 {"Math::GSL::Integrationc::new_gsl_integration_cquad_ival", _wrap_new_gsl_integration_cquad_ival},
10057 {"Math::GSL::Integrationc::delete_gsl_integration_cquad_ival", _wrap_delete_gsl_integration_cquad_ival},
10058 {"Math::GSL::Integrationc::gsl_integration_cquad_workspace_size_set", _wrap_gsl_integration_cquad_workspace_size_set},
10059 {"Math::GSL::Integrationc::gsl_integration_cquad_workspace_size_get", _wrap_gsl_integration_cquad_workspace_size_get},
10060 {"Math::GSL::Integrationc::gsl_integration_cquad_workspace_ivals_set", _wrap_gsl_integration_cquad_workspace_ivals_set},
10061 {"Math::GSL::Integrationc::gsl_integration_cquad_workspace_ivals_get", _wrap_gsl_integration_cquad_workspace_ivals_get},
10062 {"Math::GSL::Integrationc::gsl_integration_cquad_workspace_heap_set", _wrap_gsl_integration_cquad_workspace_heap_set},
10063 {"Math::GSL::Integrationc::gsl_integration_cquad_workspace_heap_get", _wrap_gsl_integration_cquad_workspace_heap_get},
10064 {"Math::GSL::Integrationc::new_gsl_integration_cquad_workspace", _wrap_new_gsl_integration_cquad_workspace},
10065 {"Math::GSL::Integrationc::delete_gsl_integration_cquad_workspace", _wrap_delete_gsl_integration_cquad_workspace},
10066 {"Math::GSL::Integrationc::gsl_integration_cquad_workspace_alloc", _wrap_gsl_integration_cquad_workspace_alloc},
10067 {"Math::GSL::Integrationc::gsl_integration_cquad_workspace_free", _wrap_gsl_integration_cquad_workspace_free},
10068 {"Math::GSL::Integrationc::gsl_integration_cquad", _wrap_gsl_integration_cquad},
10069 {"Math::GSL::Integrationc::gsl_function_struct_function_set", _wrap_gsl_function_struct_function_set},
10070 {"Math::GSL::Integrationc::gsl_function_struct_function_get", _wrap_gsl_function_struct_function_get},
10071 {"Math::GSL::Integrationc::gsl_function_struct_params_set", _wrap_gsl_function_struct_params_set},
10072 {"Math::GSL::Integrationc::gsl_function_struct_params_get", _wrap_gsl_function_struct_params_get},
10073 {"Math::GSL::Integrationc::new_gsl_function_struct", _wrap_new_gsl_function_struct},
10074 {"Math::GSL::Integrationc::delete_gsl_function_struct", _wrap_delete_gsl_function_struct},
10075 {"Math::GSL::Integrationc::gsl_function_fdf_struct_f_set", _wrap_gsl_function_fdf_struct_f_set},
10076 {"Math::GSL::Integrationc::gsl_function_fdf_struct_f_get", _wrap_gsl_function_fdf_struct_f_get},
10077 {"Math::GSL::Integrationc::gsl_function_fdf_struct_df_set", _wrap_gsl_function_fdf_struct_df_set},
10078 {"Math::GSL::Integrationc::gsl_function_fdf_struct_df_get", _wrap_gsl_function_fdf_struct_df_get},
10079 {"Math::GSL::Integrationc::gsl_function_fdf_struct_fdf_set", _wrap_gsl_function_fdf_struct_fdf_set},
10080 {"Math::GSL::Integrationc::gsl_function_fdf_struct_fdf_get", _wrap_gsl_function_fdf_struct_fdf_get},
10081 {"Math::GSL::Integrationc::gsl_function_fdf_struct_params_set", _wrap_gsl_function_fdf_struct_params_set},
10082 {"Math::GSL::Integrationc::gsl_function_fdf_struct_params_get", _wrap_gsl_function_fdf_struct_params_get},
10083 {"Math::GSL::Integrationc::new_gsl_function_fdf_struct", _wrap_new_gsl_function_fdf_struct},
10084 {"Math::GSL::Integrationc::delete_gsl_function_fdf_struct", _wrap_delete_gsl_function_fdf_struct},
10085 {"Math::GSL::Integrationc::gsl_function_vec_struct_function_set", _wrap_gsl_function_vec_struct_function_set},
10086 {"Math::GSL::Integrationc::gsl_function_vec_struct_function_get", _wrap_gsl_function_vec_struct_function_get},
10087 {"Math::GSL::Integrationc::gsl_function_vec_struct_params_set", _wrap_gsl_function_vec_struct_params_set},
10088 {"Math::GSL::Integrationc::gsl_function_vec_struct_params_get", _wrap_gsl_function_vec_struct_params_get},
10089 {"Math::GSL::Integrationc::new_gsl_function_vec_struct", _wrap_new_gsl_function_vec_struct},
10090 {"Math::GSL::Integrationc::delete_gsl_function_vec_struct", _wrap_delete_gsl_function_vec_struct},
10091 {0,0}
10092 };
10093 /* -----------------------------------------------------------------------------
10094 * Type initialization:
10095 * This problem is tough by the requirement that no dynamic
10096 * memory is used. Also, since swig_type_info structures store pointers to
10097 * swig_cast_info structures and swig_cast_info structures store pointers back
10098 * to swig_type_info structures, we need some lookup code at initialization.
10099 * The idea is that swig generates all the structures that are needed.
10100 * The runtime then collects these partially filled structures.
10101 * The SWIG_InitializeModule function takes these initial arrays out of
10102 * swig_module, and does all the lookup, filling in the swig_module.types
10103 * array with the correct data and linking the correct swig_cast_info
10104 * structures together.
10105 *
10106 * The generated swig_type_info structures are assigned statically to an initial
10107 * array. We just loop through that array, and handle each type individually.
10108 * First we lookup if this type has been already loaded, and if so, use the
10109 * loaded structure instead of the generated one. Then we have to fill in the
10110 * cast linked list. The cast data is initially stored in something like a
10111 * two-dimensional array. Each row corresponds to a type (there are the same
10112 * number of rows as there are in the swig_type_initial array). Each entry in
10113 * a column is one of the swig_cast_info structures for that type.
10114 * The cast_initial array is actually an array of arrays, because each row has
10115 * a variable number of columns. So to actually build the cast linked list,
10116 * we find the array of casts associated with the type, and loop through it
10117 * adding the casts to the list. The one last trick we need to do is making
10118 * sure the type pointer in the swig_cast_info struct is correct.
10119 *
10120 * First off, we lookup the cast->type name to see if it is already loaded.
10121 * There are three cases to handle:
10122 * 1) If the cast->type has already been loaded AND the type we are adding
10123 * casting info to has not been loaded (it is in this module), THEN we
10124 * replace the cast->type pointer with the type pointer that has already
10125 * been loaded.
10126 * 2) If BOTH types (the one we are adding casting info to, and the
10127 * cast->type) are loaded, THEN the cast info has already been loaded by
10128 * the previous module so we just ignore it.
10129 * 3) Finally, if cast->type has not already been loaded, then we add that
10130 * swig_cast_info to the linked list (because the cast->type) pointer will
10131 * be correct.
10132 * ----------------------------------------------------------------------------- */
10133
10134 #ifdef __cplusplus
10135 extern "C" {
10136 #if 0
10137 } /* c-mode */
10138 #endif
10139 #endif
10140
10141 #if 0
10142 #define SWIGRUNTIME_DEBUG
10143 #endif
10144
10145
10146 SWIGRUNTIME void
SWIG_InitializeModule(void * clientdata)10147 SWIG_InitializeModule(void *clientdata) {
10148 size_t i;
10149 swig_module_info *module_head, *iter;
10150 int init;
10151
10152 /* check to see if the circular list has been setup, if not, set it up */
10153 if (swig_module.next==0) {
10154 /* Initialize the swig_module */
10155 swig_module.type_initial = swig_type_initial;
10156 swig_module.cast_initial = swig_cast_initial;
10157 swig_module.next = &swig_module;
10158 init = 1;
10159 } else {
10160 init = 0;
10161 }
10162
10163 /* Try and load any already created modules */
10164 module_head = SWIG_GetModule(clientdata);
10165 if (!module_head) {
10166 /* This is the first module loaded for this interpreter */
10167 /* so set the swig module into the interpreter */
10168 SWIG_SetModule(clientdata, &swig_module);
10169 } else {
10170 /* the interpreter has loaded a SWIG module, but has it loaded this one? */
10171 iter=module_head;
10172 do {
10173 if (iter==&swig_module) {
10174 /* Our module is already in the list, so there's nothing more to do. */
10175 return;
10176 }
10177 iter=iter->next;
10178 } while (iter!= module_head);
10179
10180 /* otherwise we must add our module into the list */
10181 swig_module.next = module_head->next;
10182 module_head->next = &swig_module;
10183 }
10184
10185 /* When multiple interpreters are used, a module could have already been initialized in
10186 a different interpreter, but not yet have a pointer in this interpreter.
10187 In this case, we do not want to continue adding types... everything should be
10188 set up already */
10189 if (init == 0) return;
10190
10191 /* Now work on filling in swig_module.types */
10192 #ifdef SWIGRUNTIME_DEBUG
10193 printf("SWIG_InitializeModule: size %lu\n", (unsigned long)swig_module.size);
10194 #endif
10195 for (i = 0; i < swig_module.size; ++i) {
10196 swig_type_info *type = 0;
10197 swig_type_info *ret;
10198 swig_cast_info *cast;
10199
10200 #ifdef SWIGRUNTIME_DEBUG
10201 printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
10202 #endif
10203
10204 /* if there is another module already loaded */
10205 if (swig_module.next != &swig_module) {
10206 type = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, swig_module.type_initial[i]->name);
10207 }
10208 if (type) {
10209 /* Overwrite clientdata field */
10210 #ifdef SWIGRUNTIME_DEBUG
10211 printf("SWIG_InitializeModule: found type %s\n", type->name);
10212 #endif
10213 if (swig_module.type_initial[i]->clientdata) {
10214 type->clientdata = swig_module.type_initial[i]->clientdata;
10215 #ifdef SWIGRUNTIME_DEBUG
10216 printf("SWIG_InitializeModule: found and overwrite type %s \n", type->name);
10217 #endif
10218 }
10219 } else {
10220 type = swig_module.type_initial[i];
10221 }
10222
10223 /* Insert casting types */
10224 cast = swig_module.cast_initial[i];
10225 while (cast->type) {
10226 /* Don't need to add information already in the list */
10227 ret = 0;
10228 #ifdef SWIGRUNTIME_DEBUG
10229 printf("SWIG_InitializeModule: look cast %s\n", cast->type->name);
10230 #endif
10231 if (swig_module.next != &swig_module) {
10232 ret = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, cast->type->name);
10233 #ifdef SWIGRUNTIME_DEBUG
10234 if (ret) printf("SWIG_InitializeModule: found cast %s\n", ret->name);
10235 #endif
10236 }
10237 if (ret) {
10238 if (type == swig_module.type_initial[i]) {
10239 #ifdef SWIGRUNTIME_DEBUG
10240 printf("SWIG_InitializeModule: skip old type %s\n", ret->name);
10241 #endif
10242 cast->type = ret;
10243 ret = 0;
10244 } else {
10245 /* Check for casting already in the list */
10246 swig_cast_info *ocast = SWIG_TypeCheck(ret->name, type);
10247 #ifdef SWIGRUNTIME_DEBUG
10248 if (ocast) printf("SWIG_InitializeModule: skip old cast %s\n", ret->name);
10249 #endif
10250 if (!ocast) ret = 0;
10251 }
10252 }
10253
10254 if (!ret) {
10255 #ifdef SWIGRUNTIME_DEBUG
10256 printf("SWIG_InitializeModule: adding cast %s\n", cast->type->name);
10257 #endif
10258 if (type->cast) {
10259 type->cast->prev = cast;
10260 cast->next = type->cast;
10261 }
10262 type->cast = cast;
10263 }
10264 cast++;
10265 }
10266 /* Set entry in modules->types array equal to the type */
10267 swig_module.types[i] = type;
10268 }
10269 swig_module.types[i] = 0;
10270
10271 #ifdef SWIGRUNTIME_DEBUG
10272 printf("**** SWIG_InitializeModule: Cast List ******\n");
10273 for (i = 0; i < swig_module.size; ++i) {
10274 int j = 0;
10275 swig_cast_info *cast = swig_module.cast_initial[i];
10276 printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
10277 while (cast->type) {
10278 printf("SWIG_InitializeModule: cast type %s\n", cast->type->name);
10279 cast++;
10280 ++j;
10281 }
10282 printf("---- Total casts: %d\n",j);
10283 }
10284 printf("**** SWIG_InitializeModule: Cast List ******\n");
10285 #endif
10286 }
10287
10288 /* This function will propagate the clientdata field of type to
10289 * any new swig_type_info structures that have been added into the list
10290 * of equivalent types. It is like calling
10291 * SWIG_TypeClientData(type, clientdata) a second time.
10292 */
10293 SWIGRUNTIME void
SWIG_PropagateClientData(void)10294 SWIG_PropagateClientData(void) {
10295 size_t i;
10296 swig_cast_info *equiv;
10297 static int init_run = 0;
10298
10299 if (init_run) return;
10300 init_run = 1;
10301
10302 for (i = 0; i < swig_module.size; i++) {
10303 if (swig_module.types[i]->clientdata) {
10304 equiv = swig_module.types[i]->cast;
10305 while (equiv) {
10306 if (!equiv->converter) {
10307 if (equiv->type && !equiv->type->clientdata)
10308 SWIG_TypeClientData(equiv->type, swig_module.types[i]->clientdata);
10309 }
10310 equiv = equiv->next;
10311 }
10312 }
10313 }
10314 }
10315
10316 #ifdef __cplusplus
10317 #if 0
10318 {
10319 /* c-mode */
10320 #endif
10321 }
10322 #endif
10323
10324
10325
10326 #if defined(__cplusplus) && ! defined(XSPROTO)
10327 extern "C"
10328 #endif
10329
XS(SWIG_init)10330 XS(SWIG_init) {
10331 dXSARGS;
10332 int i;
10333 (void)items;
10334
10335 SWIG_InitializeModule(0);
10336
10337 /* Install commands */
10338 for (i = 0; swig_commands[i].name; i++) {
10339 /* Casts only needed for Perl < 5.10. */
10340 #ifdef __cplusplus
10341 newXS(const_cast<char*>(swig_commands[i].name), swig_commands[i].wrapper, const_cast<char*>(__FILE__));
10342 #else
10343 newXS((char*)swig_commands[i].name, swig_commands[i].wrapper, (char*)__FILE__);
10344 #endif
10345 }
10346
10347 /* Install variables */
10348 for (i = 0; swig_variables[i].name; i++) {
10349 SV *sv;
10350 sv = get_sv(swig_variables[i].name, TRUE | 0x2 | GV_ADDMULTI);
10351 if (swig_variables[i].type) {
10352 SWIG_MakePtr(sv,(void *)1, *swig_variables[i].type,0);
10353 } else {
10354 sv_setiv(sv,(IV) 0);
10355 }
10356 swig_create_magic(sv, swig_variables[i].name, swig_variables[i].set, swig_variables[i].get);
10357 }
10358
10359 /* Install constant */
10360 for (i = 0; swig_constants[i].type; i++) {
10361 SV *sv;
10362 sv = get_sv(swig_constants[i].name, TRUE | 0x2 | GV_ADDMULTI);
10363 switch(swig_constants[i].type) {
10364 case SWIG_INT:
10365 sv_setiv(sv, (IV) swig_constants[i].lvalue);
10366 break;
10367 case SWIG_FLOAT:
10368 sv_setnv(sv, (double) swig_constants[i].dvalue);
10369 break;
10370 case SWIG_STRING:
10371 sv_setpv(sv, (const char *) swig_constants[i].pvalue);
10372 break;
10373 case SWIG_POINTER:
10374 SWIG_MakePtr(sv, swig_constants[i].pvalue, *(swig_constants[i].ptype),0);
10375 break;
10376 case SWIG_BINARY:
10377 SWIG_MakePackedObj(sv, swig_constants[i].pvalue, swig_constants[i].lvalue, *(swig_constants[i].ptype));
10378 break;
10379 default:
10380 break;
10381 }
10382 SvREADONLY_on(sv);
10383 }
10384
10385 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10386 SV *sv = get_sv((char*) SWIG_prefix "GSL_VERSION", TRUE | 0x2 | GV_ADDMULTI);
10387 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(2.7)));
10388 SvREADONLY_on(sv);
10389 } while(0) /*@SWIG@*/;
10390 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10391 SV *sv = get_sv((char*) SWIG_prefix "GSL_MAJOR_VERSION", TRUE | 0x2 | GV_ADDMULTI);
10392 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(2)));
10393 SvREADONLY_on(sv);
10394 } while(0) /*@SWIG@*/;
10395 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10396 SV *sv = get_sv((char*) SWIG_prefix "GSL_MINOR_VERSION", TRUE | 0x2 | GV_ADDMULTI);
10397 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(7)));
10398 SvREADONLY_on(sv);
10399 } while(0) /*@SWIG@*/;
10400 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10401 SV *sv = get_sv((char*) SWIG_prefix "GSL_POSZERO", TRUE | 0x2 | GV_ADDMULTI);
10402 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)((+0.0))));
10403 SvREADONLY_on(sv);
10404 } while(0) /*@SWIG@*/;
10405 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10406 SV *sv = get_sv((char*) SWIG_prefix "GSL_NEGZERO", TRUE | 0x2 | GV_ADDMULTI);
10407 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)((-0.0))));
10408 SvREADONLY_on(sv);
10409 } while(0) /*@SWIG@*/;
10410 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10411 SV *sv = get_sv((char*) SWIG_prefix "GSL_SUCCESS", TRUE | 0x2 | GV_ADDMULTI);
10412 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_SUCCESS)));
10413 SvREADONLY_on(sv);
10414 } while(0) /*@SWIG@*/;
10415 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10416 SV *sv = get_sv((char*) SWIG_prefix "GSL_FAILURE", TRUE | 0x2 | GV_ADDMULTI);
10417 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_FAILURE)));
10418 SvREADONLY_on(sv);
10419 } while(0) /*@SWIG@*/;
10420 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10421 SV *sv = get_sv((char*) SWIG_prefix "GSL_CONTINUE", TRUE | 0x2 | GV_ADDMULTI);
10422 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_CONTINUE)));
10423 SvREADONLY_on(sv);
10424 } while(0) /*@SWIG@*/;
10425 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10426 SV *sv = get_sv((char*) SWIG_prefix "GSL_EDOM", TRUE | 0x2 | GV_ADDMULTI);
10427 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EDOM)));
10428 SvREADONLY_on(sv);
10429 } while(0) /*@SWIG@*/;
10430 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10431 SV *sv = get_sv((char*) SWIG_prefix "GSL_ERANGE", TRUE | 0x2 | GV_ADDMULTI);
10432 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ERANGE)));
10433 SvREADONLY_on(sv);
10434 } while(0) /*@SWIG@*/;
10435 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10436 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFAULT", TRUE | 0x2 | GV_ADDMULTI);
10437 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFAULT)));
10438 SvREADONLY_on(sv);
10439 } while(0) /*@SWIG@*/;
10440 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10441 SV *sv = get_sv((char*) SWIG_prefix "GSL_EINVAL", TRUE | 0x2 | GV_ADDMULTI);
10442 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EINVAL)));
10443 SvREADONLY_on(sv);
10444 } while(0) /*@SWIG@*/;
10445 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10446 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFAILED", TRUE | 0x2 | GV_ADDMULTI);
10447 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFAILED)));
10448 SvREADONLY_on(sv);
10449 } while(0) /*@SWIG@*/;
10450 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10451 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFACTOR", TRUE | 0x2 | GV_ADDMULTI);
10452 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFACTOR)));
10453 SvREADONLY_on(sv);
10454 } while(0) /*@SWIG@*/;
10455 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10456 SV *sv = get_sv((char*) SWIG_prefix "GSL_ESANITY", TRUE | 0x2 | GV_ADDMULTI);
10457 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ESANITY)));
10458 SvREADONLY_on(sv);
10459 } while(0) /*@SWIG@*/;
10460 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10461 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOMEM", TRUE | 0x2 | GV_ADDMULTI);
10462 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOMEM)));
10463 SvREADONLY_on(sv);
10464 } while(0) /*@SWIG@*/;
10465 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10466 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADFUNC", TRUE | 0x2 | GV_ADDMULTI);
10467 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADFUNC)));
10468 SvREADONLY_on(sv);
10469 } while(0) /*@SWIG@*/;
10470 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10471 SV *sv = get_sv((char*) SWIG_prefix "GSL_ERUNAWAY", TRUE | 0x2 | GV_ADDMULTI);
10472 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ERUNAWAY)));
10473 SvREADONLY_on(sv);
10474 } while(0) /*@SWIG@*/;
10475 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10476 SV *sv = get_sv((char*) SWIG_prefix "GSL_EMAXITER", TRUE | 0x2 | GV_ADDMULTI);
10477 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EMAXITER)));
10478 SvREADONLY_on(sv);
10479 } while(0) /*@SWIG@*/;
10480 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10481 SV *sv = get_sv((char*) SWIG_prefix "GSL_EZERODIV", TRUE | 0x2 | GV_ADDMULTI);
10482 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EZERODIV)));
10483 SvREADONLY_on(sv);
10484 } while(0) /*@SWIG@*/;
10485 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10486 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADTOL", TRUE | 0x2 | GV_ADDMULTI);
10487 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADTOL)));
10488 SvREADONLY_on(sv);
10489 } while(0) /*@SWIG@*/;
10490 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10491 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOL", TRUE | 0x2 | GV_ADDMULTI);
10492 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOL)));
10493 SvREADONLY_on(sv);
10494 } while(0) /*@SWIG@*/;
10495 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10496 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNDRFLW", TRUE | 0x2 | GV_ADDMULTI);
10497 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNDRFLW)));
10498 SvREADONLY_on(sv);
10499 } while(0) /*@SWIG@*/;
10500 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10501 SV *sv = get_sv((char*) SWIG_prefix "GSL_EOVRFLW", TRUE | 0x2 | GV_ADDMULTI);
10502 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EOVRFLW)));
10503 SvREADONLY_on(sv);
10504 } while(0) /*@SWIG@*/;
10505 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10506 SV *sv = get_sv((char*) SWIG_prefix "GSL_ELOSS", TRUE | 0x2 | GV_ADDMULTI);
10507 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ELOSS)));
10508 SvREADONLY_on(sv);
10509 } while(0) /*@SWIG@*/;
10510 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10511 SV *sv = get_sv((char*) SWIG_prefix "GSL_EROUND", TRUE | 0x2 | GV_ADDMULTI);
10512 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EROUND)));
10513 SvREADONLY_on(sv);
10514 } while(0) /*@SWIG@*/;
10515 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10516 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADLEN", TRUE | 0x2 | GV_ADDMULTI);
10517 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADLEN)));
10518 SvREADONLY_on(sv);
10519 } while(0) /*@SWIG@*/;
10520 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10521 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOTSQR", TRUE | 0x2 | GV_ADDMULTI);
10522 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOTSQR)));
10523 SvREADONLY_on(sv);
10524 } while(0) /*@SWIG@*/;
10525 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10526 SV *sv = get_sv((char*) SWIG_prefix "GSL_ESING", TRUE | 0x2 | GV_ADDMULTI);
10527 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ESING)));
10528 SvREADONLY_on(sv);
10529 } while(0) /*@SWIG@*/;
10530 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10531 SV *sv = get_sv((char*) SWIG_prefix "GSL_EDIVERGE", TRUE | 0x2 | GV_ADDMULTI);
10532 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EDIVERGE)));
10533 SvREADONLY_on(sv);
10534 } while(0) /*@SWIG@*/;
10535 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10536 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNSUP", TRUE | 0x2 | GV_ADDMULTI);
10537 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNSUP)));
10538 SvREADONLY_on(sv);
10539 } while(0) /*@SWIG@*/;
10540 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10541 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNIMPL", TRUE | 0x2 | GV_ADDMULTI);
10542 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNIMPL)));
10543 SvREADONLY_on(sv);
10544 } while(0) /*@SWIG@*/;
10545 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10546 SV *sv = get_sv((char*) SWIG_prefix "GSL_ECACHE", TRUE | 0x2 | GV_ADDMULTI);
10547 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ECACHE)));
10548 SvREADONLY_on(sv);
10549 } while(0) /*@SWIG@*/;
10550 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10551 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETABLE", TRUE | 0x2 | GV_ADDMULTI);
10552 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETABLE)));
10553 SvREADONLY_on(sv);
10554 } while(0) /*@SWIG@*/;
10555 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10556 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOPROG", TRUE | 0x2 | GV_ADDMULTI);
10557 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOPROG)));
10558 SvREADONLY_on(sv);
10559 } while(0) /*@SWIG@*/;
10560 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10561 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOPROGJ", TRUE | 0x2 | GV_ADDMULTI);
10562 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOPROGJ)));
10563 SvREADONLY_on(sv);
10564 } while(0) /*@SWIG@*/;
10565 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10566 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLF", TRUE | 0x2 | GV_ADDMULTI);
10567 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLF)));
10568 SvREADONLY_on(sv);
10569 } while(0) /*@SWIG@*/;
10570 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10571 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLX", TRUE | 0x2 | GV_ADDMULTI);
10572 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLX)));
10573 SvREADONLY_on(sv);
10574 } while(0) /*@SWIG@*/;
10575 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10576 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLG", TRUE | 0x2 | GV_ADDMULTI);
10577 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLG)));
10578 SvREADONLY_on(sv);
10579 } while(0) /*@SWIG@*/;
10580 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10581 SV *sv = get_sv((char*) SWIG_prefix "GSL_EOF", TRUE | 0x2 | GV_ADDMULTI);
10582 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EOF)));
10583 SvREADONLY_on(sv);
10584 } while(0) /*@SWIG@*/;
10585 SWIG_TypeClientData(SWIGTYPE_p_gsl_integration_workspace, (void*) "Math::GSL::Integration::gsl_integration_workspace");
10586 SWIG_TypeClientData(SWIGTYPE_p_gsl_integration_qaws_table, (void*) "Math::GSL::Integration::gsl_integration_qaws_table");
10587 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10588 SV *sv = get_sv((char*) SWIG_prefix "GSL_INTEG_COSINE", TRUE | 0x2 | GV_ADDMULTI);
10589 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_INTEG_COSINE)));
10590 SvREADONLY_on(sv);
10591 } while(0) /*@SWIG@*/;
10592 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10593 SV *sv = get_sv((char*) SWIG_prefix "GSL_INTEG_SINE", TRUE | 0x2 | GV_ADDMULTI);
10594 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_INTEG_SINE)));
10595 SvREADONLY_on(sv);
10596 } while(0) /*@SWIG@*/;
10597 SWIG_TypeClientData(SWIGTYPE_p_gsl_integration_qawo_table, (void*) "Math::GSL::Integration::gsl_integration_qawo_table");
10598 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10599 SV *sv = get_sv((char*) SWIG_prefix "GSL_INTEG_GAUSS15", TRUE | 0x2 | GV_ADDMULTI);
10600 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_INTEG_GAUSS15)));
10601 SvREADONLY_on(sv);
10602 } while(0) /*@SWIG@*/;
10603 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10604 SV *sv = get_sv((char*) SWIG_prefix "GSL_INTEG_GAUSS21", TRUE | 0x2 | GV_ADDMULTI);
10605 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_INTEG_GAUSS21)));
10606 SvREADONLY_on(sv);
10607 } while(0) /*@SWIG@*/;
10608 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10609 SV *sv = get_sv((char*) SWIG_prefix "GSL_INTEG_GAUSS31", TRUE | 0x2 | GV_ADDMULTI);
10610 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_INTEG_GAUSS31)));
10611 SvREADONLY_on(sv);
10612 } while(0) /*@SWIG@*/;
10613 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10614 SV *sv = get_sv((char*) SWIG_prefix "GSL_INTEG_GAUSS41", TRUE | 0x2 | GV_ADDMULTI);
10615 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_INTEG_GAUSS41)));
10616 SvREADONLY_on(sv);
10617 } while(0) /*@SWIG@*/;
10618 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10619 SV *sv = get_sv((char*) SWIG_prefix "GSL_INTEG_GAUSS51", TRUE | 0x2 | GV_ADDMULTI);
10620 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_INTEG_GAUSS51)));
10621 SvREADONLY_on(sv);
10622 } while(0) /*@SWIG@*/;
10623 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10624 SV *sv = get_sv((char*) SWIG_prefix "GSL_INTEG_GAUSS61", TRUE | 0x2 | GV_ADDMULTI);
10625 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_INTEG_GAUSS61)));
10626 SvREADONLY_on(sv);
10627 } while(0) /*@SWIG@*/;
10628 SWIG_TypeClientData(SWIGTYPE_p_gsl_integration_glfixed_table, (void*) "Math::GSL::Integration::gsl_integration_glfixed_table");
10629 SWIG_TypeClientData(SWIGTYPE_p_gsl_integration_cquad_ival, (void*) "Math::GSL::Integration::gsl_integration_cquad_ival");
10630 SWIG_TypeClientData(SWIGTYPE_p_gsl_integration_cquad_workspace, (void*) "Math::GSL::Integration::gsl_integration_cquad_workspace");
10631 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10632 SV *sv = get_sv((char*) SWIG_prefix "M_E", TRUE | 0x2 | GV_ADDMULTI);
10633 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(2.71828182845904523536028747135)));
10634 SvREADONLY_on(sv);
10635 } while(0) /*@SWIG@*/;
10636 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10637 SV *sv = get_sv((char*) SWIG_prefix "M_LOG2E", TRUE | 0x2 | GV_ADDMULTI);
10638 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(1.44269504088896340735992468100)));
10639 SvREADONLY_on(sv);
10640 } while(0) /*@SWIG@*/;
10641 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10642 SV *sv = get_sv((char*) SWIG_prefix "M_LOG10E", TRUE | 0x2 | GV_ADDMULTI);
10643 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(0.43429448190325182765112891892)));
10644 SvREADONLY_on(sv);
10645 } while(0) /*@SWIG@*/;
10646 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10647 SV *sv = get_sv((char*) SWIG_prefix "M_SQRT2", TRUE | 0x2 | GV_ADDMULTI);
10648 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(1.41421356237309504880168872421)));
10649 SvREADONLY_on(sv);
10650 } while(0) /*@SWIG@*/;
10651 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10652 SV *sv = get_sv((char*) SWIG_prefix "M_SQRT1_2", TRUE | 0x2 | GV_ADDMULTI);
10653 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(0.70710678118654752440084436210)));
10654 SvREADONLY_on(sv);
10655 } while(0) /*@SWIG@*/;
10656 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10657 SV *sv = get_sv((char*) SWIG_prefix "M_SQRT3", TRUE | 0x2 | GV_ADDMULTI);
10658 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(1.73205080756887729352744634151)));
10659 SvREADONLY_on(sv);
10660 } while(0) /*@SWIG@*/;
10661 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10662 SV *sv = get_sv((char*) SWIG_prefix "M_PI", TRUE | 0x2 | GV_ADDMULTI);
10663 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(3.14159265358979323846264338328)));
10664 SvREADONLY_on(sv);
10665 } while(0) /*@SWIG@*/;
10666 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10667 SV *sv = get_sv((char*) SWIG_prefix "M_PI_2", TRUE | 0x2 | GV_ADDMULTI);
10668 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(1.57079632679489661923132169164)));
10669 SvREADONLY_on(sv);
10670 } while(0) /*@SWIG@*/;
10671 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10672 SV *sv = get_sv((char*) SWIG_prefix "M_PI_4", TRUE | 0x2 | GV_ADDMULTI);
10673 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(0.78539816339744830961566084582)));
10674 SvREADONLY_on(sv);
10675 } while(0) /*@SWIG@*/;
10676 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10677 SV *sv = get_sv((char*) SWIG_prefix "M_SQRTPI", TRUE | 0x2 | GV_ADDMULTI);
10678 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(1.77245385090551602729816748334)));
10679 SvREADONLY_on(sv);
10680 } while(0) /*@SWIG@*/;
10681 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10682 SV *sv = get_sv((char*) SWIG_prefix "M_2_SQRTPI", TRUE | 0x2 | GV_ADDMULTI);
10683 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(1.12837916709551257389615890312)));
10684 SvREADONLY_on(sv);
10685 } while(0) /*@SWIG@*/;
10686 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10687 SV *sv = get_sv((char*) SWIG_prefix "M_1_PI", TRUE | 0x2 | GV_ADDMULTI);
10688 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(0.31830988618379067153776752675)));
10689 SvREADONLY_on(sv);
10690 } while(0) /*@SWIG@*/;
10691 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10692 SV *sv = get_sv((char*) SWIG_prefix "M_2_PI", TRUE | 0x2 | GV_ADDMULTI);
10693 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(0.63661977236758134307553505349)));
10694 SvREADONLY_on(sv);
10695 } while(0) /*@SWIG@*/;
10696 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10697 SV *sv = get_sv((char*) SWIG_prefix "M_LN10", TRUE | 0x2 | GV_ADDMULTI);
10698 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(2.30258509299404568401799145468)));
10699 SvREADONLY_on(sv);
10700 } while(0) /*@SWIG@*/;
10701 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10702 SV *sv = get_sv((char*) SWIG_prefix "M_LN2", TRUE | 0x2 | GV_ADDMULTI);
10703 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(0.69314718055994530941723212146)));
10704 SvREADONLY_on(sv);
10705 } while(0) /*@SWIG@*/;
10706 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10707 SV *sv = get_sv((char*) SWIG_prefix "M_LNPI", TRUE | 0x2 | GV_ADDMULTI);
10708 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(1.14472988584940017414342735135)));
10709 SvREADONLY_on(sv);
10710 } while(0) /*@SWIG@*/;
10711 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10712 SV *sv = get_sv((char*) SWIG_prefix "M_EULER", TRUE | 0x2 | GV_ADDMULTI);
10713 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(0.57721566490153286060651209008)));
10714 SvREADONLY_on(sv);
10715 } while(0) /*@SWIG@*/;
10716 SWIG_TypeClientData(SWIGTYPE_p_gsl_function_struct, (void*) "Math::GSL::Integration::gsl_function_struct");
10717 SWIG_TypeClientData(SWIGTYPE_p_gsl_function_fdf_struct, (void*) "Math::GSL::Integration::gsl_function_fdf_struct");
10718 SWIG_TypeClientData(SWIGTYPE_p_gsl_function_vec_struct, (void*) "Math::GSL::Integration::gsl_function_vec_struct");
10719 ST(0) = &PL_sv_yes;
10720 XSRETURN(1);
10721 }
10722
10723