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