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