1 /* ----------------------------------------------------------------------------
2 * This file was automatically generated by SWIG (http://www.swig.org).
3 * Version 4.0.1
4 *
5 * This file is not intended to be easily readable and contains a number of
6 * coding conventions designed to improve portability and efficiency. Do not make
7 * changes to this file unless you know what you are doing--modify the SWIG
8 * interface file instead.
9 * ----------------------------------------------------------------------------- */
10
11
12 #ifndef SWIGPERL
13 #define SWIGPERL
14 #endif
15
16 #define SWIG_CASTRANK_MODE
17
18 /* -----------------------------------------------------------------------------
19 * This section contains generic SWIG labels for method/variable
20 * declarations/attributes, and other compiler dependent labels.
21 * ----------------------------------------------------------------------------- */
22
23 /* template workaround for compilers that cannot correctly implement the C++ standard */
24 #ifndef SWIGTEMPLATEDISAMBIGUATOR
25 # if defined(__SUNPRO_CC) && (__SUNPRO_CC <= 0x560)
26 # define SWIGTEMPLATEDISAMBIGUATOR template
27 # elif defined(__HP_aCC)
28 /* Needed even with `aCC -AA' when `aCC -V' reports HP ANSI C++ B3910B A.03.55 */
29 /* If we find a maximum version that requires this, the test would be __HP_aCC <= 35500 for A.03.55 */
30 # define SWIGTEMPLATEDISAMBIGUATOR template
31 # else
32 # define SWIGTEMPLATEDISAMBIGUATOR
33 # endif
34 #endif
35
36 /* inline attribute */
37 #ifndef SWIGINLINE
38 # if defined(__cplusplus) || (defined(__GNUC__) && !defined(__STRICT_ANSI__))
39 # define SWIGINLINE inline
40 # else
41 # define SWIGINLINE
42 # endif
43 #endif
44
45 /* attribute recognised by some compilers to avoid 'unused' warnings */
46 #ifndef SWIGUNUSED
47 # if defined(__GNUC__)
48 # if !(defined(__cplusplus)) || (__GNUC__ > 3 || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4))
49 # define SWIGUNUSED __attribute__ ((__unused__))
50 # else
51 # define SWIGUNUSED
52 # endif
53 # elif defined(__ICC)
54 # define SWIGUNUSED __attribute__ ((__unused__))
55 # else
56 # define SWIGUNUSED
57 # endif
58 #endif
59
60 #ifndef SWIG_MSC_UNSUPPRESS_4505
61 # if defined(_MSC_VER)
62 # pragma warning(disable : 4505) /* unreferenced local function has been removed */
63 # endif
64 #endif
65
66 #ifndef SWIGUNUSEDPARM
67 # ifdef __cplusplus
68 # define SWIGUNUSEDPARM(p)
69 # else
70 # define SWIGUNUSEDPARM(p) p SWIGUNUSED
71 # endif
72 #endif
73
74 /* internal SWIG method */
75 #ifndef SWIGINTERN
76 # define SWIGINTERN static SWIGUNUSED
77 #endif
78
79 /* internal inline SWIG method */
80 #ifndef SWIGINTERNINLINE
81 # define SWIGINTERNINLINE SWIGINTERN SWIGINLINE
82 #endif
83
84 /* exporting methods */
85 #if defined(__GNUC__)
86 # if (__GNUC__ >= 4) || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4)
87 # ifndef GCC_HASCLASSVISIBILITY
88 # define GCC_HASCLASSVISIBILITY
89 # endif
90 # endif
91 #endif
92
93 #ifndef SWIGEXPORT
94 # if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
95 # if defined(STATIC_LINKED)
96 # define SWIGEXPORT
97 # else
98 # define SWIGEXPORT __declspec(dllexport)
99 # endif
100 # else
101 # if defined(__GNUC__) && defined(GCC_HASCLASSVISIBILITY)
102 # define SWIGEXPORT __attribute__ ((visibility("default")))
103 # else
104 # define SWIGEXPORT
105 # endif
106 # endif
107 #endif
108
109 /* calling conventions for Windows */
110 #ifndef SWIGSTDCALL
111 # if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
112 # define SWIGSTDCALL __stdcall
113 # else
114 # define SWIGSTDCALL
115 # endif
116 #endif
117
118 /* Deal with Microsoft's attempt at deprecating C standard runtime functions */
119 #if !defined(SWIG_NO_CRT_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_CRT_SECURE_NO_DEPRECATE)
120 # define _CRT_SECURE_NO_DEPRECATE
121 #endif
122
123 /* Deal with Microsoft's attempt at deprecating methods in the standard C++ library */
124 #if !defined(SWIG_NO_SCL_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_SCL_SECURE_NO_DEPRECATE)
125 # define _SCL_SECURE_NO_DEPRECATE
126 #endif
127
128 /* Deal with Apple's deprecated 'AssertMacros.h' from Carbon-framework */
129 #if defined(__APPLE__) && !defined(__ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES)
130 # define __ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES 0
131 #endif
132
133 /* Intel's compiler complains if a variable which was never initialised is
134 * cast to void, which is a common idiom which we use to indicate that we
135 * are aware a variable isn't used. So we just silence that warning.
136 * See: https://github.com/swig/swig/issues/192 for more discussion.
137 */
138 #ifdef __INTEL_COMPILER
139 # pragma warning disable 592
140 #endif
141
142 /* -----------------------------------------------------------------------------
143 * swigrun.swg
144 *
145 * This file contains generic C API SWIG runtime support for pointer
146 * type checking.
147 * ----------------------------------------------------------------------------- */
148
149 /* This should only be incremented when either the layout of swig_type_info changes,
150 or for whatever reason, the runtime changes incompatibly */
151 #define SWIG_RUNTIME_VERSION "4"
152
153 /* define SWIG_TYPE_TABLE_NAME as "SWIG_TYPE_TABLE" */
154 #ifdef SWIG_TYPE_TABLE
155 # define SWIG_QUOTE_STRING(x) #x
156 # define SWIG_EXPAND_AND_QUOTE_STRING(x) SWIG_QUOTE_STRING(x)
157 # define SWIG_TYPE_TABLE_NAME SWIG_EXPAND_AND_QUOTE_STRING(SWIG_TYPE_TABLE)
158 #else
159 # define SWIG_TYPE_TABLE_NAME
160 #endif
161
162 /*
163 You can use the SWIGRUNTIME and SWIGRUNTIMEINLINE macros for
164 creating a static or dynamic library from the SWIG runtime code.
165 In 99.9% of the cases, SWIG just needs to declare them as 'static'.
166
167 But only do this if strictly necessary, ie, if you have problems
168 with your compiler or suchlike.
169 */
170
171 #ifndef SWIGRUNTIME
172 # define SWIGRUNTIME SWIGINTERN
173 #endif
174
175 #ifndef SWIGRUNTIMEINLINE
176 # define SWIGRUNTIMEINLINE SWIGRUNTIME SWIGINLINE
177 #endif
178
179 /* Generic buffer size */
180 #ifndef SWIG_BUFFER_SIZE
181 # define SWIG_BUFFER_SIZE 1024
182 #endif
183
184 /* Flags for pointer conversions */
185 #define SWIG_POINTER_DISOWN 0x1
186 #define SWIG_CAST_NEW_MEMORY 0x2
187 #define SWIG_POINTER_NO_NULL 0x4
188
189 /* Flags for new pointer objects */
190 #define SWIG_POINTER_OWN 0x1
191
192
193 /*
194 Flags/methods for returning states.
195
196 The SWIG conversion methods, as ConvertPtr, return an integer
197 that tells if the conversion was successful or not. And if not,
198 an error code can be returned (see swigerrors.swg for the codes).
199
200 Use the following macros/flags to set or process the returning
201 states.
202
203 In old versions of SWIG, code such as the following was usually written:
204
205 if (SWIG_ConvertPtr(obj,vptr,ty.flags) != -1) {
206 // success code
207 } else {
208 //fail code
209 }
210
211 Now you can be more explicit:
212
213 int res = SWIG_ConvertPtr(obj,vptr,ty.flags);
214 if (SWIG_IsOK(res)) {
215 // success code
216 } else {
217 // fail code
218 }
219
220 which is the same really, but now you can also do
221
222 Type *ptr;
223 int res = SWIG_ConvertPtr(obj,(void **)(&ptr),ty.flags);
224 if (SWIG_IsOK(res)) {
225 // success code
226 if (SWIG_IsNewObj(res) {
227 ...
228 delete *ptr;
229 } else {
230 ...
231 }
232 } else {
233 // fail code
234 }
235
236 I.e., now SWIG_ConvertPtr can return new objects and you can
237 identify the case and take care of the deallocation. Of course that
238 also requires SWIG_ConvertPtr to return new result values, such as
239
240 int SWIG_ConvertPtr(obj, ptr,...) {
241 if (<obj is ok>) {
242 if (<need new object>) {
243 *ptr = <ptr to new allocated object>;
244 return SWIG_NEWOBJ;
245 } else {
246 *ptr = <ptr to old object>;
247 return SWIG_OLDOBJ;
248 }
249 } else {
250 return SWIG_BADOBJ;
251 }
252 }
253
254 Of course, returning the plain '0(success)/-1(fail)' still works, but you can be
255 more explicit by returning SWIG_BADOBJ, SWIG_ERROR or any of the
256 SWIG errors code.
257
258 Finally, if the SWIG_CASTRANK_MODE is enabled, the result code
259 allows to return the 'cast rank', for example, if you have this
260
261 int food(double)
262 int fooi(int);
263
264 and you call
265
266 food(1) // cast rank '1' (1 -> 1.0)
267 fooi(1) // cast rank '0'
268
269 just use the SWIG_AddCast()/SWIG_CheckState()
270 */
271
272 #define SWIG_OK (0)
273 #define SWIG_ERROR (-1)
274 #define SWIG_IsOK(r) (r >= 0)
275 #define SWIG_ArgError(r) ((r != SWIG_ERROR) ? r : SWIG_TypeError)
276
277 /* The CastRankLimit says how many bits are used for the cast rank */
278 #define SWIG_CASTRANKLIMIT (1 << 8)
279 /* The NewMask denotes the object was created (using new/malloc) */
280 #define SWIG_NEWOBJMASK (SWIG_CASTRANKLIMIT << 1)
281 /* The TmpMask is for in/out typemaps that use temporal objects */
282 #define SWIG_TMPOBJMASK (SWIG_NEWOBJMASK << 1)
283 /* Simple returning values */
284 #define SWIG_BADOBJ (SWIG_ERROR)
285 #define SWIG_OLDOBJ (SWIG_OK)
286 #define SWIG_NEWOBJ (SWIG_OK | SWIG_NEWOBJMASK)
287 #define SWIG_TMPOBJ (SWIG_OK | SWIG_TMPOBJMASK)
288 /* Check, add and del mask methods */
289 #define SWIG_AddNewMask(r) (SWIG_IsOK(r) ? (r | SWIG_NEWOBJMASK) : r)
290 #define SWIG_DelNewMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_NEWOBJMASK) : r)
291 #define SWIG_IsNewObj(r) (SWIG_IsOK(r) && (r & SWIG_NEWOBJMASK))
292 #define SWIG_AddTmpMask(r) (SWIG_IsOK(r) ? (r | SWIG_TMPOBJMASK) : r)
293 #define SWIG_DelTmpMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_TMPOBJMASK) : r)
294 #define SWIG_IsTmpObj(r) (SWIG_IsOK(r) && (r & SWIG_TMPOBJMASK))
295
296 /* Cast-Rank Mode */
297 #if defined(SWIG_CASTRANK_MODE)
298 # ifndef SWIG_TypeRank
299 # define SWIG_TypeRank unsigned long
300 # endif
301 # ifndef SWIG_MAXCASTRANK /* Default cast allowed */
302 # define SWIG_MAXCASTRANK (2)
303 # endif
304 # define SWIG_CASTRANKMASK ((SWIG_CASTRANKLIMIT) -1)
305 # define SWIG_CastRank(r) (r & SWIG_CASTRANKMASK)
SWIG_AddCast(int r)306 SWIGINTERNINLINE int SWIG_AddCast(int r) {
307 return SWIG_IsOK(r) ? ((SWIG_CastRank(r) < SWIG_MAXCASTRANK) ? (r + 1) : SWIG_ERROR) : r;
308 }
SWIG_CheckState(int r)309 SWIGINTERNINLINE int SWIG_CheckState(int r) {
310 return SWIG_IsOK(r) ? SWIG_CastRank(r) + 1 : 0;
311 }
312 #else /* no cast-rank mode */
313 # define SWIG_AddCast(r) (r)
314 # define SWIG_CheckState(r) (SWIG_IsOK(r) ? 1 : 0)
315 #endif
316
317
318 #include <string.h>
319
320 #ifdef __cplusplus
321 extern "C" {
322 #endif
323
324 typedef void *(*swig_converter_func)(void *, int *);
325 typedef struct swig_type_info *(*swig_dycast_func)(void **);
326
327 /* Structure to store information on one type */
328 typedef struct swig_type_info {
329 const char *name; /* mangled name of this type */
330 const char *str; /* human readable name of this type */
331 swig_dycast_func dcast; /* dynamic cast function down a hierarchy */
332 struct swig_cast_info *cast; /* linked list of types that can cast into this type */
333 void *clientdata; /* language specific type data */
334 int owndata; /* flag if the structure owns the clientdata */
335 } swig_type_info;
336
337 /* Structure to store a type and conversion function used for casting */
338 typedef struct swig_cast_info {
339 swig_type_info *type; /* pointer to type that is equivalent to this type */
340 swig_converter_func converter; /* function to cast the void pointers */
341 struct swig_cast_info *next; /* pointer to next cast in linked list */
342 struct swig_cast_info *prev; /* pointer to the previous cast */
343 } swig_cast_info;
344
345 /* Structure used to store module information
346 * Each module generates one structure like this, and the runtime collects
347 * all of these structures and stores them in a circularly linked list.*/
348 typedef struct swig_module_info {
349 swig_type_info **types; /* Array of pointers to swig_type_info structures that are in this module */
350 size_t size; /* Number of types in this module */
351 struct swig_module_info *next; /* Pointer to next element in circularly linked list */
352 swig_type_info **type_initial; /* Array of initially generated type structures */
353 swig_cast_info **cast_initial; /* Array of initially generated casting structures */
354 void *clientdata; /* Language specific module data */
355 } swig_module_info;
356
357 /*
358 Compare two type names skipping the space characters, therefore
359 "char*" == "char *" and "Class<int>" == "Class<int >", etc.
360
361 Return 0 when the two name types are equivalent, as in
362 strncmp, but skipping ' '.
363 */
364 SWIGRUNTIME int
SWIG_TypeNameComp(const char * f1,const char * l1,const char * f2,const char * l2)365 SWIG_TypeNameComp(const char *f1, const char *l1,
366 const char *f2, const char *l2) {
367 for (;(f1 != l1) && (f2 != l2); ++f1, ++f2) {
368 while ((*f1 == ' ') && (f1 != l1)) ++f1;
369 while ((*f2 == ' ') && (f2 != l2)) ++f2;
370 if (*f1 != *f2) return (*f1 > *f2) ? 1 : -1;
371 }
372 return (int)((l1 - f1) - (l2 - f2));
373 }
374
375 /*
376 Check type equivalence in a name list like <name1>|<name2>|...
377 Return 0 if equal, -1 if nb < tb, 1 if nb > tb
378 */
379 SWIGRUNTIME int
SWIG_TypeCmp(const char * nb,const char * tb)380 SWIG_TypeCmp(const char *nb, const char *tb) {
381 int equiv = 1;
382 const char* te = tb + strlen(tb);
383 const char* ne = nb;
384 while (equiv != 0 && *ne) {
385 for (nb = ne; *ne; ++ne) {
386 if (*ne == '|') break;
387 }
388 equiv = SWIG_TypeNameComp(nb, ne, tb, te);
389 if (*ne) ++ne;
390 }
391 return equiv;
392 }
393
394 /*
395 Check type equivalence in a name list like <name1>|<name2>|...
396 Return 0 if not equal, 1 if equal
397 */
398 SWIGRUNTIME int
SWIG_TypeEquiv(const char * nb,const char * tb)399 SWIG_TypeEquiv(const char *nb, const char *tb) {
400 return SWIG_TypeCmp(nb, tb) == 0 ? 1 : 0;
401 }
402
403 /*
404 Check the typename
405 */
406 SWIGRUNTIME swig_cast_info *
SWIG_TypeCheck(const char * c,swig_type_info * ty)407 SWIG_TypeCheck(const char *c, swig_type_info *ty) {
408 if (ty) {
409 swig_cast_info *iter = ty->cast;
410 while (iter) {
411 if (strcmp(iter->type->name, c) == 0) {
412 if (iter == ty->cast)
413 return iter;
414 /* Move iter to the top of the linked list */
415 iter->prev->next = iter->next;
416 if (iter->next)
417 iter->next->prev = iter->prev;
418 iter->next = ty->cast;
419 iter->prev = 0;
420 if (ty->cast) ty->cast->prev = iter;
421 ty->cast = iter;
422 return iter;
423 }
424 iter = iter->next;
425 }
426 }
427 return 0;
428 }
429
430 /*
431 Identical to SWIG_TypeCheck, except strcmp is replaced with a pointer comparison
432 */
433 SWIGRUNTIME swig_cast_info *
SWIG_TypeCheckStruct(swig_type_info * from,swig_type_info * ty)434 SWIG_TypeCheckStruct(swig_type_info *from, swig_type_info *ty) {
435 if (ty) {
436 swig_cast_info *iter = ty->cast;
437 while (iter) {
438 if (iter->type == from) {
439 if (iter == ty->cast)
440 return iter;
441 /* Move iter to the top of the linked list */
442 iter->prev->next = iter->next;
443 if (iter->next)
444 iter->next->prev = iter->prev;
445 iter->next = ty->cast;
446 iter->prev = 0;
447 if (ty->cast) ty->cast->prev = iter;
448 ty->cast = iter;
449 return iter;
450 }
451 iter = iter->next;
452 }
453 }
454 return 0;
455 }
456
457 /*
458 Cast a pointer up an inheritance hierarchy
459 */
460 SWIGRUNTIMEINLINE void *
SWIG_TypeCast(swig_cast_info * ty,void * ptr,int * newmemory)461 SWIG_TypeCast(swig_cast_info *ty, void *ptr, int *newmemory) {
462 return ((!ty) || (!ty->converter)) ? ptr : (*ty->converter)(ptr, newmemory);
463 }
464
465 /*
466 Dynamic pointer casting. Down an inheritance hierarchy
467 */
468 SWIGRUNTIME swig_type_info *
SWIG_TypeDynamicCast(swig_type_info * ty,void ** ptr)469 SWIG_TypeDynamicCast(swig_type_info *ty, void **ptr) {
470 swig_type_info *lastty = ty;
471 if (!ty || !ty->dcast) return ty;
472 while (ty && (ty->dcast)) {
473 ty = (*ty->dcast)(ptr);
474 if (ty) lastty = ty;
475 }
476 return lastty;
477 }
478
479 /*
480 Return the name associated with this type
481 */
482 SWIGRUNTIMEINLINE const char *
SWIG_TypeName(const swig_type_info * ty)483 SWIG_TypeName(const swig_type_info *ty) {
484 return ty->name;
485 }
486
487 /*
488 Return the pretty name associated with this type,
489 that is an unmangled type name in a form presentable to the user.
490 */
491 SWIGRUNTIME const char *
SWIG_TypePrettyName(const swig_type_info * type)492 SWIG_TypePrettyName(const swig_type_info *type) {
493 /* The "str" field contains the equivalent pretty names of the
494 type, separated by vertical-bar characters. We choose
495 to print the last name, as it is often (?) the most
496 specific. */
497 if (!type) return NULL;
498 if (type->str != NULL) {
499 const char *last_name = type->str;
500 const char *s;
501 for (s = type->str; *s; s++)
502 if (*s == '|') last_name = s+1;
503 return last_name;
504 }
505 else
506 return type->name;
507 }
508
509 /*
510 Set the clientdata field for a type
511 */
512 SWIGRUNTIME void
SWIG_TypeClientData(swig_type_info * ti,void * clientdata)513 SWIG_TypeClientData(swig_type_info *ti, void *clientdata) {
514 swig_cast_info *cast = ti->cast;
515 /* if (ti->clientdata == clientdata) return; */
516 ti->clientdata = clientdata;
517
518 while (cast) {
519 if (!cast->converter) {
520 swig_type_info *tc = cast->type;
521 if (!tc->clientdata) {
522 SWIG_TypeClientData(tc, clientdata);
523 }
524 }
525 cast = cast->next;
526 }
527 }
528 SWIGRUNTIME void
SWIG_TypeNewClientData(swig_type_info * ti,void * clientdata)529 SWIG_TypeNewClientData(swig_type_info *ti, void *clientdata) {
530 SWIG_TypeClientData(ti, clientdata);
531 ti->owndata = 1;
532 }
533
534 /*
535 Search for a swig_type_info structure only by mangled name
536 Search is a O(log #types)
537
538 We start searching at module start, and finish searching when start == end.
539 Note: if start == end at the beginning of the function, we go all the way around
540 the circular list.
541 */
542 SWIGRUNTIME swig_type_info *
SWIG_MangledTypeQueryModule(swig_module_info * start,swig_module_info * end,const char * name)543 SWIG_MangledTypeQueryModule(swig_module_info *start,
544 swig_module_info *end,
545 const char *name) {
546 swig_module_info *iter = start;
547 do {
548 if (iter->size) {
549 size_t l = 0;
550 size_t r = iter->size - 1;
551 do {
552 /* since l+r >= 0, we can (>> 1) instead (/ 2) */
553 size_t i = (l + r) >> 1;
554 const char *iname = iter->types[i]->name;
555 if (iname) {
556 int compare = strcmp(name, iname);
557 if (compare == 0) {
558 return iter->types[i];
559 } else if (compare < 0) {
560 if (i) {
561 r = i - 1;
562 } else {
563 break;
564 }
565 } else if (compare > 0) {
566 l = i + 1;
567 }
568 } else {
569 break; /* should never happen */
570 }
571 } while (l <= r);
572 }
573 iter = iter->next;
574 } while (iter != end);
575 return 0;
576 }
577
578 /*
579 Search for a swig_type_info structure for either a mangled name or a human readable name.
580 It first searches the mangled names of the types, which is a O(log #types)
581 If a type is not found it then searches the human readable names, which is O(#types).
582
583 We start searching at module start, and finish searching when start == end.
584 Note: if start == end at the beginning of the function, we go all the way around
585 the circular list.
586 */
587 SWIGRUNTIME swig_type_info *
SWIG_TypeQueryModule(swig_module_info * start,swig_module_info * end,const char * name)588 SWIG_TypeQueryModule(swig_module_info *start,
589 swig_module_info *end,
590 const char *name) {
591 /* STEP 1: Search the name field using binary search */
592 swig_type_info *ret = SWIG_MangledTypeQueryModule(start, end, name);
593 if (ret) {
594 return ret;
595 } else {
596 /* STEP 2: If the type hasn't been found, do a complete search
597 of the str field (the human readable name) */
598 swig_module_info *iter = start;
599 do {
600 size_t i = 0;
601 for (; i < iter->size; ++i) {
602 if (iter->types[i]->str && (SWIG_TypeEquiv(iter->types[i]->str, name)))
603 return iter->types[i];
604 }
605 iter = iter->next;
606 } while (iter != end);
607 }
608
609 /* neither found a match */
610 return 0;
611 }
612
613 /*
614 Pack binary data into a string
615 */
616 SWIGRUNTIME char *
SWIG_PackData(char * c,void * ptr,size_t sz)617 SWIG_PackData(char *c, void *ptr, size_t sz) {
618 static const char hex[17] = "0123456789abcdef";
619 const unsigned char *u = (unsigned char *) ptr;
620 const unsigned char *eu = u + sz;
621 for (; u != eu; ++u) {
622 unsigned char uu = *u;
623 *(c++) = hex[(uu & 0xf0) >> 4];
624 *(c++) = hex[uu & 0xf];
625 }
626 return c;
627 }
628
629 /*
630 Unpack binary data from a string
631 */
632 SWIGRUNTIME const char *
SWIG_UnpackData(const char * c,void * ptr,size_t sz)633 SWIG_UnpackData(const char *c, void *ptr, size_t sz) {
634 unsigned char *u = (unsigned char *) ptr;
635 const unsigned char *eu = u + sz;
636 for (; u != eu; ++u) {
637 char d = *(c++);
638 unsigned char uu;
639 if ((d >= '0') && (d <= '9'))
640 uu = (unsigned char)((d - '0') << 4);
641 else if ((d >= 'a') && (d <= 'f'))
642 uu = (unsigned char)((d - ('a'-10)) << 4);
643 else
644 return (char *) 0;
645 d = *(c++);
646 if ((d >= '0') && (d <= '9'))
647 uu |= (unsigned char)(d - '0');
648 else if ((d >= 'a') && (d <= 'f'))
649 uu |= (unsigned char)(d - ('a'-10));
650 else
651 return (char *) 0;
652 *u = uu;
653 }
654 return c;
655 }
656
657 /*
658 Pack 'void *' into a string buffer.
659 */
660 SWIGRUNTIME char *
SWIG_PackVoidPtr(char * buff,void * ptr,const char * name,size_t bsz)661 SWIG_PackVoidPtr(char *buff, void *ptr, const char *name, size_t bsz) {
662 char *r = buff;
663 if ((2*sizeof(void *) + 2) > bsz) return 0;
664 *(r++) = '_';
665 r = SWIG_PackData(r,&ptr,sizeof(void *));
666 if (strlen(name) + 1 > (bsz - (r - buff))) return 0;
667 strcpy(r,name);
668 return buff;
669 }
670
671 SWIGRUNTIME const char *
SWIG_UnpackVoidPtr(const char * c,void ** ptr,const char * name)672 SWIG_UnpackVoidPtr(const char *c, void **ptr, const char *name) {
673 if (*c != '_') {
674 if (strcmp(c,"NULL") == 0) {
675 *ptr = (void *) 0;
676 return name;
677 } else {
678 return 0;
679 }
680 }
681 return SWIG_UnpackData(++c,ptr,sizeof(void *));
682 }
683
684 SWIGRUNTIME char *
SWIG_PackDataName(char * buff,void * ptr,size_t sz,const char * name,size_t bsz)685 SWIG_PackDataName(char *buff, void *ptr, size_t sz, const char *name, size_t bsz) {
686 char *r = buff;
687 size_t lname = (name ? strlen(name) : 0);
688 if ((2*sz + 2 + lname) > bsz) return 0;
689 *(r++) = '_';
690 r = SWIG_PackData(r,ptr,sz);
691 if (lname) {
692 strncpy(r,name,lname+1);
693 } else {
694 *r = 0;
695 }
696 return buff;
697 }
698
699 SWIGRUNTIME const char *
SWIG_UnpackDataName(const char * c,void * ptr,size_t sz,const char * name)700 SWIG_UnpackDataName(const char *c, void *ptr, size_t sz, const char *name) {
701 if (*c != '_') {
702 if (strcmp(c,"NULL") == 0) {
703 memset(ptr,0,sz);
704 return name;
705 } else {
706 return 0;
707 }
708 }
709 return SWIG_UnpackData(++c,ptr,sz);
710 }
711
712 #ifdef __cplusplus
713 }
714 #endif
715
716 /* Errors in SWIG */
717 #define SWIG_UnknownError -1
718 #define SWIG_IOError -2
719 #define SWIG_RuntimeError -3
720 #define SWIG_IndexError -4
721 #define SWIG_TypeError -5
722 #define SWIG_DivisionByZero -6
723 #define SWIG_OverflowError -7
724 #define SWIG_SyntaxError -8
725 #define SWIG_ValueError -9
726 #define SWIG_SystemError -10
727 #define SWIG_AttributeError -11
728 #define SWIG_MemoryError -12
729 #define SWIG_NullReferenceError -13
730
731
732
733 #ifdef __cplusplus
734 /* Needed on some windows machines---since MS plays funny games with the header files under C++ */
735 #include <math.h>
736 #include <stdlib.h>
737 extern "C" {
738 #endif
739 #include "EXTERN.h"
740 #include "perl.h"
741 #include "XSUB.h"
742
743 /* Add in functionality missing in older versions of Perl. Much of this is based on Devel-PPPort on cpan. */
744
745 /* Add PERL_REVISION, PERL_VERSION, PERL_SUBVERSION if missing */
746 #ifndef PERL_REVISION
747 # if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
748 # define PERL_PATCHLEVEL_H_IMPLICIT
749 # include <patchlevel.h>
750 # endif
751 # if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
752 # include <could_not_find_Perl_patchlevel.h>
753 # endif
754 # ifndef PERL_REVISION
755 # define PERL_REVISION (5)
756 # define PERL_VERSION PATCHLEVEL
757 # define PERL_SUBVERSION SUBVERSION
758 # endif
759 #endif
760
761 #if defined(WIN32) && defined(PERL_OBJECT) && !defined(PerlIO_exportFILE)
762 #define PerlIO_exportFILE(fh,fl) (FILE*)(fh)
763 #endif
764
765 #ifndef SvIOK_UV
766 # define SvIOK_UV(sv) (SvIOK(sv) && (SvUVX(sv) == SvIVX(sv)))
767 #endif
768
769 #ifndef SvUOK
770 # define SvUOK(sv) SvIOK_UV(sv)
771 #endif
772
773 #if ((PERL_VERSION < 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION <= 5)))
774 # define PL_sv_undef sv_undef
775 # define PL_na na
776 # define PL_errgv errgv
777 # define PL_sv_no sv_no
778 # define PL_sv_yes sv_yes
779 # define PL_markstack_ptr markstack_ptr
780 #endif
781
782 #ifndef IVSIZE
783 # ifdef LONGSIZE
784 # define IVSIZE LONGSIZE
785 # else
786 # define IVSIZE 4 /* A bold guess, but the best we can make. */
787 # endif
788 #endif
789
790 #ifndef INT2PTR
791 # if (IVSIZE == PTRSIZE) && (UVSIZE == PTRSIZE)
792 # define PTRV UV
793 # define INT2PTR(any,d) (any)(d)
794 # else
795 # if PTRSIZE == LONGSIZE
796 # define PTRV unsigned long
797 # else
798 # define PTRV unsigned
799 # endif
800 # define INT2PTR(any,d) (any)(PTRV)(d)
801 # endif
802
803 # define NUM2PTR(any,d) (any)(PTRV)(d)
804 # define PTR2IV(p) INT2PTR(IV,p)
805 # define PTR2UV(p) INT2PTR(UV,p)
806 # define PTR2NV(p) NUM2PTR(NV,p)
807
808 # if PTRSIZE == LONGSIZE
809 # define PTR2ul(p) (unsigned long)(p)
810 # else
811 # define PTR2ul(p) INT2PTR(unsigned long,p)
812 # endif
813 #endif /* !INT2PTR */
814
815 #ifndef SvPV_nolen
816 # define SvPV_nolen(x) SvPV(x,PL_na)
817 #endif
818
819 #ifndef get_sv
820 # define get_sv perl_get_sv
821 #endif
822
823 #ifndef ERRSV
824 # define ERRSV get_sv("@",FALSE)
825 #endif
826
827 #ifndef pTHX_
828 #define pTHX_
829 #endif
830
831 #include <string.h>
832 #ifdef __cplusplus
833 }
834 #endif
835
836 /* -----------------------------------------------------------------------------
837 * error manipulation
838 * ----------------------------------------------------------------------------- */
839
840 SWIGINTERN const char*
SWIG_Perl_ErrorType(int code)841 SWIG_Perl_ErrorType(int code) {
842 switch(code) {
843 case SWIG_MemoryError:
844 return "MemoryError";
845 case SWIG_IOError:
846 return "IOError";
847 case SWIG_RuntimeError:
848 return "RuntimeError";
849 case SWIG_IndexError:
850 return "IndexError";
851 case SWIG_TypeError:
852 return "TypeError";
853 case SWIG_DivisionByZero:
854 return "ZeroDivisionError";
855 case SWIG_OverflowError:
856 return "OverflowError";
857 case SWIG_SyntaxError:
858 return "SyntaxError";
859 case SWIG_ValueError:
860 return "ValueError";
861 case SWIG_SystemError:
862 return "SystemError";
863 case SWIG_AttributeError:
864 return "AttributeError";
865 default:
866 return "RuntimeError";
867 }
868 }
869
870
871 /* -----------------------------------------------------------------------------
872 * perlrun.swg
873 *
874 * This file contains the runtime support for Perl modules
875 * and includes code for managing global variables and pointer
876 * type checking.
877 * ----------------------------------------------------------------------------- */
878
879 #ifdef PERL_OBJECT
880 #define SWIG_PERL_OBJECT_DECL CPerlObj *SWIGUNUSEDPARM(pPerl),
881 #define SWIG_PERL_OBJECT_CALL pPerl,
882 #else
883 #define SWIG_PERL_OBJECT_DECL
884 #define SWIG_PERL_OBJECT_CALL
885 #endif
886
887 /* Common SWIG API */
888
889 /* for raw pointers */
890 #define SWIG_ConvertPtr(obj, pp, type, flags) SWIG_Perl_ConvertPtr(SWIG_PERL_OBJECT_CALL obj, pp, type, flags)
891 #define SWIG_ConvertPtrAndOwn(obj, pp, type, flags,own) SWIG_Perl_ConvertPtrAndOwn(SWIG_PERL_OBJECT_CALL obj, pp, type, flags, own)
892 #define SWIG_NewPointerObj(p, type, flags) SWIG_Perl_NewPointerObj(SWIG_PERL_OBJECT_CALL p, type, flags)
893 #define SWIG_AcquirePtr(ptr, src) SWIG_Perl_AcquirePtr(ptr, src)
894 #define swig_owntype int
895
896 /* for raw packed data */
897 #define SWIG_ConvertPacked(obj, p, s, type) SWIG_Perl_ConvertPacked(SWIG_PERL_OBJECT_CALL obj, p, s, type)
898 #define SWIG_NewPackedObj(p, s, type) SWIG_Perl_NewPackedObj(SWIG_PERL_OBJECT_CALL p, s, type)
899
900 /* for class or struct pointers */
901 #define SWIG_ConvertInstance(obj, pptr, type, flags) SWIG_ConvertPtr(obj, pptr, type, flags)
902 #define SWIG_NewInstanceObj(ptr, type, flags) SWIG_NewPointerObj(ptr, type, flags)
903
904 /* for C or C++ function pointers */
905 #define SWIG_ConvertFunctionPtr(obj, pptr, type) SWIG_ConvertPtr(obj, pptr, type, 0)
906 #define SWIG_NewFunctionPtrObj(ptr, type) SWIG_NewPointerObj(ptr, type, 0)
907
908 /* for C++ member pointers, ie, member methods */
909 #define SWIG_ConvertMember(obj, ptr, sz, ty) SWIG_ConvertPacked(obj, ptr, sz, ty)
910 #define SWIG_NewMemberObj(ptr, sz, type) SWIG_NewPackedObj(ptr, sz, type)
911
912
913 /* Runtime API */
914
915 #define SWIG_GetModule(clientdata) SWIG_Perl_GetModule(clientdata)
916 #define SWIG_SetModule(clientdata, pointer) SWIG_Perl_SetModule(pointer)
917
918
919 /* Error manipulation */
920
921 #define SWIG_ErrorType(code) SWIG_Perl_ErrorType(code)
922 #define SWIG_Error(code, msg) sv_setpvf(get_sv("@", GV_ADD), "%s %s", SWIG_ErrorType(code), msg)
923 #define SWIG_fail goto fail
924
925 /* Perl-specific SWIG API */
926
927 #define SWIG_MakePtr(sv, ptr, type, flags) SWIG_Perl_MakePtr(SWIG_PERL_OBJECT_CALL sv, ptr, type, flags)
928 #define SWIG_MakePackedObj(sv, p, s, type) SWIG_Perl_MakePackedObj(SWIG_PERL_OBJECT_CALL sv, p, s, type)
929 #define SWIG_SetError(str) SWIG_Error(SWIG_RuntimeError, str)
930
931
932 #define SWIG_PERL_DECL_ARGS_1(arg1) (SWIG_PERL_OBJECT_DECL arg1)
933 #define SWIG_PERL_CALL_ARGS_1(arg1) (SWIG_PERL_OBJECT_CALL arg1)
934 #define SWIG_PERL_DECL_ARGS_2(arg1, arg2) (SWIG_PERL_OBJECT_DECL arg1, arg2)
935 #define SWIG_PERL_CALL_ARGS_2(arg1, arg2) (SWIG_PERL_OBJECT_CALL arg1, arg2)
936
937 /* -----------------------------------------------------------------------------
938 * pointers/data manipulation
939 * ----------------------------------------------------------------------------- */
940
941 /* For backward compatibility only */
942 #define SWIG_POINTER_EXCEPTION 0
943
944 #ifdef __cplusplus
945 extern "C" {
946 #endif
947
948 #define SWIG_OWNER SWIG_POINTER_OWN
949 #define SWIG_SHADOW SWIG_OWNER << 1
950
951 #define SWIG_MAYBE_PERL_OBJECT SWIG_PERL_OBJECT_DECL
952
953 /* SWIG Perl macros */
954
955 /* Macro to declare an XS function */
956 #ifndef XSPROTO
957 # define XSPROTO(name) void name(pTHX_ CV* cv)
958 #endif
959
960 /* Macro to call an XS function */
961 #ifdef PERL_OBJECT
962 # define SWIG_CALLXS(_name) _name(cv,pPerl)
963 #else
964 # ifndef MULTIPLICITY
965 # define SWIG_CALLXS(_name) _name(cv)
966 # else
967 # define SWIG_CALLXS(_name) _name(PERL_GET_THX, cv)
968 # endif
969 #endif
970
971 #ifdef PERL_OBJECT
972 #define MAGIC_PPERL CPerlObj *pPerl = (CPerlObj *) this;
973
974 #ifdef __cplusplus
975 extern "C" {
976 #endif
977 typedef int (CPerlObj::*SwigMagicFunc)(SV *, MAGIC *);
978 #ifdef __cplusplus
979 }
980 #endif
981
982 #define SWIG_MAGIC(a,b) (SV *a, MAGIC *b)
983 #define SWIGCLASS_STATIC
984
985 #else /* PERL_OBJECT */
986
987 #define MAGIC_PPERL
988 #define SWIGCLASS_STATIC static SWIGUNUSED
989
990 #ifndef MULTIPLICITY
991 #define SWIG_MAGIC(a,b) (SV *a, MAGIC *b)
992
993 #ifdef __cplusplus
994 extern "C" {
995 #endif
996 typedef int (*SwigMagicFunc)(SV *, MAGIC *);
997 #ifdef __cplusplus
998 }
999 #endif
1000
1001 #else /* MULTIPLICITY */
1002
1003 #define SWIG_MAGIC(a,b) (struct interpreter *interp, SV *a, MAGIC *b)
1004
1005 #ifdef __cplusplus
1006 extern "C" {
1007 #endif
1008 typedef int (*SwigMagicFunc)(struct interpreter *, SV *, MAGIC *);
1009 #ifdef __cplusplus
1010 }
1011 #endif
1012
1013 #endif /* MULTIPLICITY */
1014 #endif /* PERL_OBJECT */
1015
1016 # ifdef PERL_OBJECT
1017 # define SWIG_croak_null() SWIG_Perl_croak_null(pPerl)
SWIG_Perl_croak_null(CPerlObj * pPerl)1018 static void SWIGUNUSED SWIG_Perl_croak_null(CPerlObj *pPerl)
1019 # else
1020 static void SWIGUNUSED SWIG_croak_null()
1021 # endif
1022 {
1023 SV *err = get_sv("@", GV_ADD);
1024 # if (PERL_VERSION < 6)
1025 croak("%_", err);
1026 # else
1027 if (sv_isobject(err))
1028 croak(0);
1029 else
1030 croak("%s", SvPV_nolen(err));
1031 # endif
1032 }
1033
1034
1035 /*
1036 Define how strict is the cast between strings and integers/doubles
1037 when overloading between these types occurs.
1038
1039 The default is making it as strict as possible by using SWIG_AddCast
1040 when needed.
1041
1042 You can use -DSWIG_PERL_NO_STRICT_STR2NUM at compilation time to
1043 disable the SWIG_AddCast, making the casting between string and
1044 numbers less strict.
1045
1046 In the end, we try to solve the overloading between strings and
1047 numerical types in the more natural way, but if you can avoid it,
1048 well, avoid it using %rename, for example.
1049 */
1050 #ifndef SWIG_PERL_NO_STRICT_STR2NUM
1051 # ifndef SWIG_PERL_STRICT_STR2NUM
1052 # define SWIG_PERL_STRICT_STR2NUM
1053 # endif
1054 #endif
1055 #ifdef SWIG_PERL_STRICT_STR2NUM
1056 /* string takes precedence */
1057 #define SWIG_Str2NumCast(x) SWIG_AddCast(x)
1058 #else
1059 /* number takes precedence */
1060 #define SWIG_Str2NumCast(x) x
1061 #endif
1062
1063
1064
1065 #include <stdlib.h>
1066
1067 SWIGRUNTIME const char *
SWIG_Perl_TypeProxyName(const swig_type_info * type)1068 SWIG_Perl_TypeProxyName(const swig_type_info *type) {
1069 if (!type) return NULL;
1070 if (type->clientdata != NULL) {
1071 return (const char*) type->clientdata;
1072 }
1073 else {
1074 return type->name;
1075 }
1076 }
1077
1078 /* Identical to SWIG_TypeCheck, except for strcmp comparison */
1079 SWIGRUNTIME swig_cast_info *
SWIG_TypeProxyCheck(const char * c,swig_type_info * ty)1080 SWIG_TypeProxyCheck(const char *c, swig_type_info *ty) {
1081 if (ty) {
1082 swig_cast_info *iter = ty->cast;
1083 while (iter) {
1084 if (strcmp(SWIG_Perl_TypeProxyName(iter->type), c) == 0) {
1085 if (iter == ty->cast)
1086 return iter;
1087 /* Move iter to the top of the linked list */
1088 iter->prev->next = iter->next;
1089 if (iter->next)
1090 iter->next->prev = iter->prev;
1091 iter->next = ty->cast;
1092 iter->prev = 0;
1093 if (ty->cast) ty->cast->prev = iter;
1094 ty->cast = iter;
1095 return iter;
1096 }
1097 iter = iter->next;
1098 }
1099 }
1100 return 0;
1101 }
1102
1103 /* Acquire a pointer value */
1104
1105 SWIGRUNTIME int
SWIG_Perl_AcquirePtr(SWIG_MAYBE_PERL_OBJECT SV * sv,int own)1106 SWIG_Perl_AcquirePtr(SWIG_MAYBE_PERL_OBJECT SV *sv, int own) {
1107 /* TODO */
1108 return 0;
1109 }
1110
1111 /* Function for getting a pointer value */
1112
1113 SWIGRUNTIME int
SWIG_Perl_ConvertPtrAndOwn(SWIG_MAYBE_PERL_OBJECT SV * sv,void ** ptr,swig_type_info * _t,int flags,int * own)1114 SWIG_Perl_ConvertPtrAndOwn(SWIG_MAYBE_PERL_OBJECT SV *sv, void **ptr, swig_type_info *_t, int flags, int *own) {
1115 swig_cast_info *tc;
1116 void *voidptr = (void *)0;
1117 SV *tsv = 0;
1118
1119 if (own)
1120 *own = 0;
1121
1122 /* If magical, apply more magic */
1123 if (SvGMAGICAL(sv))
1124 mg_get(sv);
1125
1126 /* Check to see if this is an object */
1127 if (sv_isobject(sv)) {
1128 IV tmp = 0;
1129 tsv = (SV*) SvRV(sv);
1130 if ((SvTYPE(tsv) == SVt_PVHV)) {
1131 MAGIC *mg;
1132 if (SvMAGICAL(tsv)) {
1133 mg = mg_find(tsv,'P');
1134 if (mg) {
1135 sv = mg->mg_obj;
1136 if (sv_isobject(sv)) {
1137 tsv = (SV*)SvRV(sv);
1138 tmp = SvIV(tsv);
1139 }
1140 }
1141 } else {
1142 return SWIG_ERROR;
1143 }
1144 } else {
1145 tmp = SvIV(tsv);
1146 }
1147 voidptr = INT2PTR(void *,tmp);
1148 } else if (! SvOK(sv)) { /* Check for undef */
1149 *(ptr) = (void *) 0;
1150 return (flags & SWIG_POINTER_NO_NULL) ? SWIG_NullReferenceError : SWIG_OK;
1151 } else if (SvTYPE(sv) == SVt_RV) { /* Check for NULL pointer */
1152 if (!SvROK(sv)) {
1153 /* In Perl 5.12 and later, SVt_RV == SVt_IV, so sv could be a valid integer value. */
1154 if (SvIOK(sv)) {
1155 return SWIG_ERROR;
1156 } else {
1157 /* NULL pointer (reference to undef). */
1158 *(ptr) = (void *) 0;
1159 return SWIG_OK;
1160 }
1161 } else {
1162 return SWIG_ERROR;
1163 }
1164 } else { /* Don't know what it is */
1165 return SWIG_ERROR;
1166 }
1167 if (_t) {
1168 /* Now see if the types match */
1169 char *_c = HvNAME(SvSTASH(SvRV(sv)));
1170 tc = SWIG_TypeProxyCheck(_c,_t);
1171 #ifdef SWIG_DIRECTORS
1172 if (!tc && !sv_derived_from(sv,SWIG_Perl_TypeProxyName(_t))) {
1173 #else
1174 if (!tc) {
1175 #endif
1176 return SWIG_ERROR;
1177 }
1178 {
1179 int newmemory = 0;
1180 *ptr = SWIG_TypeCast(tc,voidptr,&newmemory);
1181 if (newmemory == SWIG_CAST_NEW_MEMORY) {
1182 assert(own); /* badly formed typemap which will lead to a memory leak - it must set and use own to delete *ptr */
1183 if (own)
1184 *own = *own | SWIG_CAST_NEW_MEMORY;
1185 }
1186 }
1187 } else {
1188 *ptr = voidptr;
1189 }
1190
1191 /*
1192 * DISOWN implementation: we need a perl guru to check this one.
1193 */
1194 if (tsv && (flags & SWIG_POINTER_DISOWN)) {
1195 /*
1196 * almost copy paste code from below SWIG_POINTER_OWN setting
1197 */
1198 SV *obj = sv;
1199 HV *stash = SvSTASH(SvRV(obj));
1200 GV *gv = *(GV**)hv_fetch(stash, "OWNER", 5, TRUE);
1201 if (isGV(gv)) {
1202 HV *hv = GvHVn(gv);
1203 /*
1204 * To set ownership (see below), a newSViv(1) entry is added.
1205 * Hence, to remove ownership, we delete the entry.
1206 */
1207 if (hv_exists_ent(hv, obj, 0)) {
1208 hv_delete_ent(hv, obj, 0, 0);
1209 }
1210 }
1211 }
1212 return SWIG_OK;
1213 }
1214
1215 SWIGRUNTIME int
1216 SWIG_Perl_ConvertPtr(SWIG_MAYBE_PERL_OBJECT SV *sv, void **ptr, swig_type_info *_t, int flags) {
1217 return SWIG_Perl_ConvertPtrAndOwn(sv, ptr, _t, flags, 0);
1218 }
1219
1220 SWIGRUNTIME void
1221 SWIG_Perl_MakePtr(SWIG_MAYBE_PERL_OBJECT SV *sv, void *ptr, swig_type_info *t, int flags) {
1222 if (ptr && (flags & (SWIG_SHADOW | SWIG_POINTER_OWN))) {
1223 SV *self;
1224 SV *obj=newSV(0);
1225 HV *hash=newHV();
1226 HV *stash;
1227 sv_setref_pv(obj, SWIG_Perl_TypeProxyName(t), ptr);
1228 stash=SvSTASH(SvRV(obj));
1229 if (flags & SWIG_POINTER_OWN) {
1230 HV *hv;
1231 GV *gv = *(GV**)hv_fetch(stash, "OWNER", 5, TRUE);
1232 if (!isGV(gv))
1233 gv_init(gv, stash, "OWNER", 5, FALSE);
1234 hv=GvHVn(gv);
1235 hv_store_ent(hv, obj, newSViv(1), 0);
1236 }
1237 sv_magic((SV *)hash, (SV *)obj, 'P', Nullch, 0);
1238 SvREFCNT_dec(obj);
1239 self=newRV_noinc((SV *)hash);
1240 sv_setsv(sv, self);
1241 SvREFCNT_dec((SV *)self);
1242 sv_bless(sv, stash);
1243 }
1244 else {
1245 sv_setref_pv(sv, SWIG_Perl_TypeProxyName(t), ptr);
1246 }
1247 }
1248
1249 SWIGRUNTIMEINLINE SV *
1250 SWIG_Perl_NewPointerObj(SWIG_MAYBE_PERL_OBJECT void *ptr, swig_type_info *t, int flags) {
1251 SV *result = sv_newmortal();
1252 SWIG_MakePtr(result, ptr, t, flags);
1253 return result;
1254 }
1255
1256 SWIGRUNTIME void
1257 SWIG_Perl_MakePackedObj(SWIG_MAYBE_PERL_OBJECT SV *sv, void *ptr, int sz, swig_type_info *type) {
1258 char result[1024];
1259 char *r = result;
1260 if ((2*sz + 1 + strlen(SWIG_Perl_TypeProxyName(type))) > 1000) return;
1261 *(r++) = '_';
1262 r = SWIG_PackData(r,ptr,sz);
1263 strcpy(r,SWIG_Perl_TypeProxyName(type));
1264 sv_setpv(sv, result);
1265 }
1266
1267 SWIGRUNTIME SV *
1268 SWIG_Perl_NewPackedObj(SWIG_MAYBE_PERL_OBJECT void *ptr, int sz, swig_type_info *type) {
1269 SV *result = sv_newmortal();
1270 SWIG_Perl_MakePackedObj(result, ptr, sz, type);
1271 return result;
1272 }
1273
1274 /* Convert a packed pointer value */
1275 SWIGRUNTIME int
1276 SWIG_Perl_ConvertPacked(SWIG_MAYBE_PERL_OBJECT SV *obj, void *ptr, int sz, swig_type_info *ty) {
1277 swig_cast_info *tc;
1278 const char *c = 0;
1279
1280 if ((!obj) || (!SvOK(obj))) return SWIG_ERROR;
1281 c = SvPV_nolen(obj);
1282 /* Pointer values must start with leading underscore */
1283 if (*c != '_') return SWIG_ERROR;
1284 c++;
1285 c = SWIG_UnpackData(c,ptr,sz);
1286 if (ty) {
1287 tc = SWIG_TypeCheck(c,ty);
1288 if (!tc) return SWIG_ERROR;
1289 }
1290 return SWIG_OK;
1291 }
1292
1293
1294 /* Macros for low-level exception handling */
1295 #define SWIG_croak(x) { SWIG_Error(SWIG_RuntimeError, x); SWIG_fail; }
1296
1297
1298 typedef XSPROTO(SwigPerlWrapper);
1299 typedef SwigPerlWrapper *SwigPerlWrapperPtr;
1300
1301 /* Structure for command table */
1302 typedef struct {
1303 const char *name;
1304 SwigPerlWrapperPtr wrapper;
1305 } swig_command_info;
1306
1307 /* Information for constant table */
1308
1309 #define SWIG_INT 1
1310 #define SWIG_FLOAT 2
1311 #define SWIG_STRING 3
1312 #define SWIG_POINTER 4
1313 #define SWIG_BINARY 5
1314
1315 /* Constant information structure */
1316 typedef struct swig_constant_info {
1317 int type;
1318 const char *name;
1319 long lvalue;
1320 double dvalue;
1321 void *pvalue;
1322 swig_type_info **ptype;
1323 } swig_constant_info;
1324
1325
1326 /* Structure for variable table */
1327 typedef struct {
1328 const char *name;
1329 SwigMagicFunc set;
1330 SwigMagicFunc get;
1331 swig_type_info **type;
1332 } swig_variable_info;
1333
1334 /* Magic variable code */
1335 #ifndef PERL_OBJECT
1336 # ifdef __cplusplus
1337 # define swig_create_magic(s,a,b,c) _swig_create_magic(s,const_cast<char*>(a),b,c)
1338 # else
1339 # define swig_create_magic(s,a,b,c) _swig_create_magic(s,(char*)(a),b,c)
1340 # endif
1341 # ifndef MULTIPLICITY
1342 SWIGRUNTIME void _swig_create_magic(SV *sv, char *name, int (*set)(SV *, MAGIC *), int (*get)(SV *,MAGIC *))
1343 # else
1344 SWIGRUNTIME void _swig_create_magic(SV *sv, char *name, int (*set)(struct interpreter*, SV *, MAGIC *), int (*get)(struct interpreter*, SV *,MAGIC *))
1345 # endif
1346 #else
1347 # define swig_create_magic(s,a,b,c) _swig_create_magic(pPerl,s,a,b,c)
1348 SWIGRUNTIME void _swig_create_magic(CPerlObj *pPerl, SV *sv, const char *name, int (CPerlObj::*set)(SV *, MAGIC *), int (CPerlObj::*get)(SV *, MAGIC *))
1349 #endif
1350 {
1351 MAGIC *mg;
1352 sv_magic(sv,sv,'U',name,strlen(name));
1353 mg = mg_find(sv,'U');
1354 mg->mg_virtual = (MGVTBL *) malloc(sizeof(MGVTBL));
1355 mg->mg_virtual->svt_get = (SwigMagicFunc) get;
1356 mg->mg_virtual->svt_set = (SwigMagicFunc) set;
1357 mg->mg_virtual->svt_len = 0;
1358 mg->mg_virtual->svt_clear = 0;
1359 mg->mg_virtual->svt_free = 0;
1360 }
1361
1362
1363 SWIGRUNTIME swig_module_info *
1364 SWIG_Perl_GetModule(void *SWIGUNUSEDPARM(clientdata)) {
1365 static void *type_pointer = (void *)0;
1366 SV *pointer;
1367
1368 /* first check if pointer already created */
1369 if (!type_pointer) {
1370 pointer = get_sv("swig_runtime_data::type_pointer" SWIG_RUNTIME_VERSION SWIG_TYPE_TABLE_NAME, FALSE | GV_ADDMULTI);
1371 if (pointer && SvOK(pointer)) {
1372 type_pointer = INT2PTR(swig_type_info **, SvIV(pointer));
1373 }
1374 }
1375
1376 return (swig_module_info *) type_pointer;
1377 }
1378
1379 SWIGRUNTIME void
1380 SWIG_Perl_SetModule(swig_module_info *module) {
1381 SV *pointer;
1382
1383 /* create a new pointer */
1384 pointer = get_sv("swig_runtime_data::type_pointer" SWIG_RUNTIME_VERSION SWIG_TYPE_TABLE_NAME, TRUE | GV_ADDMULTI);
1385 sv_setiv(pointer, PTR2IV(module));
1386 }
1387
1388 #ifdef __cplusplus
1389 }
1390 #endif
1391
1392 /* Workaround perl5 global namespace pollution. Note that undefining library
1393 * functions like fopen will not solve the problem on all platforms as fopen
1394 * might be a macro on Windows but not necessarily on other operating systems. */
1395 #ifdef do_open
1396 #undef do_open
1397 #endif
1398 #ifdef do_close
1399 #undef do_close
1400 #endif
1401 #ifdef do_exec
1402 #undef do_exec
1403 #endif
1404 #ifdef scalar
1405 #undef scalar
1406 #endif
1407 #ifdef list
1408 #undef list
1409 #endif
1410 #ifdef apply
1411 #undef apply
1412 #endif
1413 #ifdef convert
1414 #undef convert
1415 #endif
1416 #ifdef Error
1417 #undef Error
1418 #endif
1419 #ifdef form
1420 #undef form
1421 #endif
1422 #ifdef vform
1423 #undef vform
1424 #endif
1425 #ifdef LABEL
1426 #undef LABEL
1427 #endif
1428 #ifdef METHOD
1429 #undef METHOD
1430 #endif
1431 #ifdef Move
1432 #undef Move
1433 #endif
1434 #ifdef yylex
1435 #undef yylex
1436 #endif
1437 #ifdef yyparse
1438 #undef yyparse
1439 #endif
1440 #ifdef yyerror
1441 #undef yyerror
1442 #endif
1443 #ifdef invert
1444 #undef invert
1445 #endif
1446 #ifdef ref
1447 #undef ref
1448 #endif
1449 #ifdef read
1450 #undef read
1451 #endif
1452 #ifdef write
1453 #undef write
1454 #endif
1455 #ifdef eof
1456 #undef eof
1457 #endif
1458 #ifdef close
1459 #undef close
1460 #endif
1461 #ifdef rewind
1462 #undef rewind
1463 #endif
1464 #ifdef free
1465 #undef free
1466 #endif
1467 #ifdef malloc
1468 #undef malloc
1469 #endif
1470 #ifdef calloc
1471 #undef calloc
1472 #endif
1473 #ifdef Stat
1474 #undef Stat
1475 #endif
1476 #ifdef check
1477 #undef check
1478 #endif
1479 #ifdef seekdir
1480 #undef seekdir
1481 #endif
1482 #ifdef open
1483 #undef open
1484 #endif
1485 #ifdef readdir
1486 #undef readdir
1487 #endif
1488 #ifdef bind
1489 #undef bind
1490 #endif
1491 #ifdef access
1492 #undef access
1493 #endif
1494 #ifdef stat
1495 #undef stat
1496 #endif
1497 #ifdef seed
1498 #undef seed
1499 #endif
1500
1501 #ifdef bool
1502 /* Leave if macro is from C99 stdbool.h */
1503 #ifndef __bool_true_false_are_defined
1504 #undef bool
1505 #endif
1506 #endif
1507
1508
1509
1510
1511 #define SWIG_exception_fail(code, msg) do { SWIG_Error(code, msg); SWIG_fail; } while(0)
1512
1513 #define SWIG_contract_assert(expr, msg) if (!(expr)) { SWIG_Error(SWIG_RuntimeError, msg); SWIG_fail; } else
1514
1515
1516
1517 /* -------- TYPES TABLE (BEGIN) -------- */
1518
1519 #define SWIGTYPE_p_FILE swig_types[0]
1520 #define SWIGTYPE_p__gsl_vector_char_const_view swig_types[1]
1521 #define SWIGTYPE_p__gsl_vector_char_view swig_types[2]
1522 #define SWIGTYPE_p__gsl_vector_complex_const_view swig_types[3]
1523 #define SWIGTYPE_p__gsl_vector_complex_view swig_types[4]
1524 #define SWIGTYPE_p__gsl_vector_const_view swig_types[5]
1525 #define SWIGTYPE_p__gsl_vector_int_const_view swig_types[6]
1526 #define SWIGTYPE_p__gsl_vector_int_view swig_types[7]
1527 #define SWIGTYPE_p__gsl_vector_view swig_types[8]
1528 #define SWIGTYPE_p_char swig_types[9]
1529 #define SWIGTYPE_p_double swig_types[10]
1530 #define SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void swig_types[11]
1531 #define SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void swig_types[12]
1532 #define SWIGTYPE_p_gsl_block swig_types[13]
1533 #define SWIGTYPE_p_gsl_block_char swig_types[14]
1534 #define SWIGTYPE_p_gsl_block_complex swig_types[15]
1535 #define SWIGTYPE_p_gsl_block_int swig_types[16]
1536 #define SWIGTYPE_p_gsl_complex swig_types[17]
1537 #define SWIGTYPE_p_gsl_vector swig_types[18]
1538 #define SWIGTYPE_p_gsl_vector_char swig_types[19]
1539 #define SWIGTYPE_p_gsl_vector_complex swig_types[20]
1540 #define SWIGTYPE_p_gsl_vector_int swig_types[21]
1541 #define SWIGTYPE_p_int swig_types[22]
1542 #define SWIGTYPE_p_size_t swig_types[23]
1543 static swig_type_info *swig_types[25];
1544 static swig_module_info swig_module = {swig_types, 24, 0, 0, 0, 0};
1545 #define SWIG_TypeQuery(name) SWIG_TypeQueryModule(&swig_module, &swig_module, name)
1546 #define SWIG_MangledTypeQuery(name) SWIG_MangledTypeQueryModule(&swig_module, &swig_module, name)
1547
1548 /* -------- TYPES TABLE (END) -------- */
1549
1550 #define SWIG_init boot_Math__GSL__Vector
1551
1552 #define SWIG_name "Math::GSL::Vectorc::boot_Math__GSL__Vector"
1553 #define SWIG_prefix "Math::GSL::Vectorc::"
1554
1555 #define SWIGVERSION 0x040001
1556 #define SWIG_VERSION SWIGVERSION
1557
1558
1559 #define SWIG_as_voidptr(a) (void *)((const void *)(a))
1560 #define SWIG_as_voidptrptr(a) ((void)SWIG_as_voidptr(*a),(void**)(a))
1561
1562
1563 #ifdef __cplusplus
1564 extern "C"
1565 #endif
1566 #ifndef PERL_OBJECT
1567 #ifndef MULTIPLICITY
1568 SWIGEXPORT void SWIG_init (CV* cv);
1569 #else
1570 SWIGEXPORT void SWIG_init (pTHXo_ CV* cv);
1571 #endif
1572 #else
1573 SWIGEXPORT void SWIG_init (CV *cv, CPerlObj *);
1574 #endif
1575
1576
1577 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(double value)1578 SWIG_From_double SWIG_PERL_DECL_ARGS_1(double value)
1579 {
1580 return sv_2mortal(newSVnv(value));
1581 }
1582
1583
1584 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(long value)1585 SWIG_From_long SWIG_PERL_DECL_ARGS_1(long value)
1586 {
1587 SV *sv;
1588 if (IVSIZE >= sizeof(value) || (value >= IV_MIN && value <= IV_MAX))
1589 sv = newSViv(value);
1590 else
1591 sv = newSVpvf("%ld", value);
1592 return sv_2mortal(sv);
1593 }
1594
1595
1596 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(int value)1597 SWIG_From_int SWIG_PERL_DECL_ARGS_1(int value)
1598 {
1599 return SWIG_From_long SWIG_PERL_CALL_ARGS_1(value);
1600 }
1601
1602
1603 SWIGINTERN swig_type_info*
SWIG_pchar_descriptor(void)1604 SWIG_pchar_descriptor(void)
1605 {
1606 static int init = 0;
1607 static swig_type_info* info = 0;
1608 if (!init) {
1609 info = SWIG_TypeQuery("_p_char");
1610 init = 1;
1611 }
1612 return info;
1613 }
1614
1615
1616 SWIGINTERN int
SWIG_AsCharPtrAndSize(SV * obj,char ** cptr,size_t * psize,int * alloc)1617 SWIG_AsCharPtrAndSize(SV *obj, char** cptr, size_t* psize, int *alloc)
1618 {
1619 if (SvMAGICAL(obj)) {
1620 SV *tmp = sv_newmortal();
1621 SvSetSV(tmp, obj);
1622 obj = tmp;
1623 }
1624 if (SvPOK(obj)) {
1625 STRLEN len = 0;
1626 char *cstr = SvPV(obj, len);
1627 size_t size = len + 1;
1628 if (cptr) {
1629 if (alloc) {
1630 if (*alloc == SWIG_NEWOBJ) {
1631 *cptr = (char *)memcpy(malloc((size)*sizeof(char)), cstr, sizeof(char)*(size));
1632 } else {
1633 *cptr = cstr;
1634 *alloc = SWIG_OLDOBJ;
1635 }
1636 }
1637 }
1638 if (psize) *psize = size;
1639 return SWIG_OK;
1640 } else {
1641 swig_type_info* pchar_descriptor = SWIG_pchar_descriptor();
1642 if (pchar_descriptor) {
1643 char* vptr = 0;
1644 if (SWIG_ConvertPtr(obj, (void**)&vptr, pchar_descriptor, 0) == SWIG_OK) {
1645 if (cptr) *cptr = vptr;
1646 if (psize) *psize = vptr ? (strlen(vptr) + 1) : 0;
1647 if (alloc) *alloc = SWIG_OLDOBJ;
1648 return SWIG_OK;
1649 }
1650 }
1651 }
1652 return SWIG_TypeError;
1653 }
1654
1655
1656
1657
1658
1659 #include <limits.h>
1660 #if !defined(SWIG_NO_LLONG_MAX)
1661 # if !defined(LLONG_MAX) && defined(__GNUC__) && defined (__LONG_LONG_MAX__)
1662 # define LLONG_MAX __LONG_LONG_MAX__
1663 # define LLONG_MIN (-LLONG_MAX - 1LL)
1664 # define ULLONG_MAX (LLONG_MAX * 2ULL + 1ULL)
1665 # endif
1666 #endif
1667
1668
1669 #include <stdlib.h>
1670 #ifdef _MSC_VER
1671 # ifndef strtoull
1672 # define strtoull _strtoui64
1673 # endif
1674 # ifndef strtoll
1675 # define strtoll _strtoi64
1676 # endif
1677 #endif
1678
1679
1680 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,double * val)1681 SWIG_AsVal_double SWIG_PERL_DECL_ARGS_2(SV *obj, double *val)
1682 {
1683 if (SvNIOK(obj)) {
1684 if (val) *val = SvNV(obj);
1685 return SWIG_OK;
1686 } else if (SvIOK(obj)) {
1687 if (val) *val = (double) SvIV(obj);
1688 return SWIG_AddCast(SWIG_OK);
1689 } else {
1690 const char *nptr = SvPV_nolen(obj);
1691 if (nptr) {
1692 char *endptr;
1693 double v;
1694 errno = 0;
1695 v = strtod(nptr, &endptr);
1696 if (errno == ERANGE) {
1697 errno = 0;
1698 return SWIG_OverflowError;
1699 } else {
1700 if (*endptr == '\0') {
1701 if (val) *val = v;
1702 return SWIG_Str2NumCast(SWIG_OK);
1703 }
1704 }
1705 }
1706 }
1707 return SWIG_TypeError;
1708 }
1709
1710
1711 #include <float.h>
1712
1713
1714 #include <math.h>
1715
1716
1717 SWIGINTERNINLINE int
SWIG_CanCastAsInteger(double * d,double min,double max)1718 SWIG_CanCastAsInteger(double *d, double min, double max) {
1719 double x = *d;
1720 if ((min <= x && x <= max)) {
1721 double fx = floor(x);
1722 double cx = ceil(x);
1723 double rd = ((x - fx) < 0.5) ? fx : cx; /* simple rint */
1724 if ((errno == EDOM) || (errno == ERANGE)) {
1725 errno = 0;
1726 } else {
1727 double summ, reps, diff;
1728 if (rd < x) {
1729 diff = x - rd;
1730 } else if (rd > x) {
1731 diff = rd - x;
1732 } else {
1733 return 1;
1734 }
1735 summ = rd + x;
1736 reps = diff/summ;
1737 if (reps < 8*DBL_EPSILON) {
1738 *d = rd;
1739 return 1;
1740 }
1741 }
1742 }
1743 return 0;
1744 }
1745
1746
1747 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,long * val)1748 SWIG_AsVal_long SWIG_PERL_DECL_ARGS_2(SV *obj, long* val)
1749 {
1750 if (SvUOK(obj)) {
1751 UV v = SvUV(obj);
1752 if (UVSIZE < sizeof(*val) || v <= LONG_MAX) {
1753 if (val) *val = v;
1754 return SWIG_OK;
1755 }
1756 return SWIG_OverflowError;
1757 } else if (SvIOK(obj)) {
1758 IV v = SvIV(obj);
1759 if (IVSIZE <= sizeof(*val) || (v >= LONG_MIN && v <= LONG_MAX)) {
1760 if(val) *val = v;
1761 return SWIG_OK;
1762 }
1763 return SWIG_OverflowError;
1764 } else {
1765 int dispatch = 0;
1766 const char *nptr = SvPV_nolen(obj);
1767 if (nptr) {
1768 char *endptr;
1769 long v;
1770 errno = 0;
1771 v = strtol(nptr, &endptr,0);
1772 if (errno == ERANGE) {
1773 errno = 0;
1774 return SWIG_OverflowError;
1775 } else {
1776 if (*endptr == '\0') {
1777 if (val) *val = v;
1778 return SWIG_Str2NumCast(SWIG_OK);
1779 }
1780 }
1781 }
1782 if (!dispatch) {
1783 double d;
1784 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
1785 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, LONG_MIN, LONG_MAX)) {
1786 if (val) *val = (long)(d);
1787 return res;
1788 }
1789 }
1790 }
1791 return SWIG_TypeError;
1792 }
1793
1794
1795 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,int * val)1796 SWIG_AsVal_int SWIG_PERL_DECL_ARGS_2(SV * obj, int *val)
1797 {
1798 long v;
1799 int res = SWIG_AsVal_long SWIG_PERL_CALL_ARGS_2(obj, &v);
1800 if (SWIG_IsOK(res)) {
1801 if ((v < INT_MIN || v > INT_MAX)) {
1802 return SWIG_OverflowError;
1803 } else {
1804 if (val) *val = (int)(v);
1805 }
1806 }
1807 return res;
1808 }
1809
1810
1811 SWIGINTERNINLINE SV *
SWIG_FromCharPtrAndSize(const char * carray,size_t size)1812 SWIG_FromCharPtrAndSize(const char* carray, size_t size)
1813 {
1814 SV *obj = sv_newmortal();
1815 if (carray) {
1816 sv_setpvn(obj, carray, size);
1817 } else {
1818 sv_setsv(obj, &PL_sv_undef);
1819 }
1820 return obj;
1821 }
1822
1823
1824 SWIGINTERNINLINE SV *
SWIG_FromCharPtr(const char * cptr)1825 SWIG_FromCharPtr(const char *cptr)
1826 {
1827 return SWIG_FromCharPtrAndSize(cptr, (cptr ? strlen(cptr) : 0));
1828 }
1829
1830
1831 #include "gsl/gsl_nan.h"
1832 #include "gsl/gsl_errno.h"
1833 #include "gsl/gsl_math.h"
1834 #include "gsl/gsl_monte.h"
1835
1836
1837 struct perl_array {
1838 I32 len;
1839 AV *array;
1840 };
1841
1842
1843
1844 enum awType { awDouble, awFloat, awInt, awUnsigned };
1845
1846 typedef struct {
1847 I32 size;
1848 enum awType type;
1849 void * data;
1850 } array_wrapper;
1851
array_wrapper_alloc(int numelem,enum awType type)1852 array_wrapper * array_wrapper_alloc(int numelem, enum awType type){
1853 array_wrapper * rv = malloc(sizeof(array_wrapper));
1854
1855 if (rv == NULL)
1856 croak("array_wrapper_alloc: can't malloc wrapper\n");
1857
1858 switch (type){
1859 case awDouble:
1860 rv->data = malloc(sizeof(double) * numelem);
1861 break;
1862 case awFloat:
1863 rv->data = malloc(sizeof(float) * numelem);
1864 break;
1865 case awInt:
1866 rv->data = malloc(sizeof(int) * numelem);
1867 break;
1868 case awUnsigned:
1869 rv->data = malloc(sizeof(unsigned int) * numelem);
1870 break;
1871 default:
1872 croak("array_wrapper_alloc: type should be awDouble, awFloat, awInt, or awUnsigned");
1873 }
1874
1875 if (rv->data == NULL)
1876 croak("array_wrapper_alloc: can't malloc data");
1877
1878 rv->size = numelem;
1879 rv->type = type;
1880 return rv;
1881 }
1882
array_wrapper_free(array_wrapper * daw)1883 void array_wrapper_free(array_wrapper * daw){
1884 free(daw->data);
1885 free(daw);
1886 }
1887
1888
1889 /* structure to hold required information while the gsl function call
1890 for each callback
1891 */
1892 struct gsl_function_perl {
1893 gsl_function C_gsl_function;
1894 SV * function;
1895 SV * params;
1896 };
1897
1898 struct gsl_function_fdf_perl {
1899 gsl_function_fdf C_gsl_function_fdf;
1900 SV * f;
1901 SV * df;
1902 SV * fdf;
1903 SV * params;
1904 };
1905
1906 struct gsl_monte_function_perl {
1907 gsl_monte_function C_gsl_monte_function;
1908 SV * f;
1909 SV * dim;
1910 SV * params;
1911 };
1912
gsl_function_perl_free(struct gsl_function_perl * perl_f)1913 void gsl_function_perl_free(struct gsl_function_perl * perl_f){
1914 if (perl_f != NULL) {
1915 SvREFCNT_dec(perl_f->function);
1916 SvREFCNT_dec(perl_f->params);
1917 Safefree(perl_f);
1918 }
1919 }
1920
gsl_function_fdf_perl_free(struct gsl_function_fdf_perl * perl_fdf)1921 void gsl_function_fdf_perl_free(struct gsl_function_fdf_perl * perl_fdf){
1922 if (perl_fdf != NULL) {
1923 SvREFCNT_dec(perl_fdf->f);
1924 SvREFCNT_dec(perl_fdf->df);
1925 SvREFCNT_dec(perl_fdf->fdf);
1926 SvREFCNT_dec(perl_fdf->params);
1927 Safefree(perl_fdf);
1928 }
1929 }
1930
1931 /* These functions (C callbacks) calls the perl callbacks.
1932 Info for perl callback can be found using the 'void*params' parameter
1933 */
call_gsl_function_x_params(SV * function,double x,SV * params)1934 double call_gsl_function_x_params(SV* function, double x, SV *params){
1935 unsigned int count;
1936 double y;
1937 dSP;
1938
1939 //fprintf(stderr, "LOOKUP CALLBACK\n");
1940 ENTER;
1941 SAVETMPS;
1942
1943 PUSHMARK(SP);
1944 XPUSHs(sv_2mortal(newSVnv((double)x)));
1945 XPUSHs(params);
1946 PUTBACK; /* make local stack pointer global */
1947
1948 count = call_sv(function, G_SCALAR);
1949 SPAGAIN;
1950
1951 if (count != 1)
1952 croak("Expected to call subroutine in scalar context!");
1953
1954 y = POPn;
1955
1956 PUTBACK; /* make local stack pointer global */
1957 FREETMPS;
1958 LEAVE;
1959
1960 return y;
1961 }
1962
call_gsl_function(double x,void * params)1963 double call_gsl_function(double x , void *params){
1964 struct gsl_function_perl *F=(struct gsl_function_perl*)params;
1965 return call_gsl_function_x_params( F->function, x, F->params );
1966 }
1967
call_gsl_function_fdf_f(double x,void * params)1968 double call_gsl_function_fdf_f(double x , void *params){
1969 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1970 return call_gsl_function_x_params( F->f, x, F->params );
1971 }
1972
call_gsl_function_fdf_df(double x,void * params)1973 double call_gsl_function_fdf_df(double x , void *params){
1974 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1975 return call_gsl_function_x_params( F->df, x, F->params );
1976 }
1977
call_gsl_function_fdf_fdf(double x,void * params,double * f,double * df)1978 void call_gsl_function_fdf_fdf(double x , void *params, double *f, double *df ){
1979 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1980
1981 dSP;
1982
1983 ENTER;
1984 SAVETMPS;
1985
1986 PUSHMARK(SP);
1987 EXTEND(SP, 2);
1988 PUSHs(sv_2mortal(newSVnv((double)x)));
1989 PUSHs(F->params);
1990 PUTBACK; /* make local stack pointer global */
1991
1992 {
1993 unsigned int count = call_sv(F->fdf, G_ARRAY);
1994 SPAGAIN;
1995
1996 if (count != 2)
1997 croak( "Expected two return values, got %d", count );
1998 }
1999
2000 *df = POPn;
2001 *f = POPn;
2002
2003 PUTBACK; /* make local stack pointer global */
2004 FREETMPS;
2005 LEAVE;
2006 }
2007
call_gsl_monte_function(double * x_array,size_t dim,void * params)2008 double call_gsl_monte_function(double *x_array , size_t dim, void *params){
2009 struct gsl_monte_function_perl *F=(struct gsl_monte_function_perl*)params;
2010 unsigned int count;
2011 unsigned int i;
2012 AV* perl_array;
2013 double y;
2014 dSP;
2015
2016 //fprintf(stderr, "LOOKUP CALLBACK\n");
2017 ENTER;
2018 SAVETMPS;
2019
2020 PUSHMARK(SP);
2021 perl_array=newAV();
2022 sv_2mortal((SV*)perl_array);
2023 XPUSHs(sv_2mortal(newRV((SV *)perl_array)));
2024 for(i=0; i<dim; i++) {
2025 /* no mortal : it is referenced by the array */
2026 av_push(perl_array, newSVnv(x_array[i]));
2027 }
2028 XPUSHs(sv_2mortal(newSViv(dim)));
2029 XPUSHs(F->params);
2030 PUTBACK; /* make local stack pointer global */
2031
2032 count = call_sv(F->f, G_SCALAR);
2033 SPAGAIN;
2034
2035 if (count != 1)
2036 croak("Expected to call subroutine in scalar context!");
2037
2038 y = POPn;
2039
2040 PUTBACK; /* make local stack pointer global */
2041 FREETMPS;
2042 LEAVE;
2043
2044 return y;
2045 }
2046
2047
gsl_function_fdf_extract(char * param_name,HV * hash,SV * func[])2048 void gsl_function_fdf_extract( char* param_name, HV* hash, SV* func[] ) {
2049 static const char *keys[3] = { "f", "df", "fdf" };
2050
2051 int ikey;
2052
2053 for ( ikey = 0 ; ikey < 3 ; ++ikey ) {
2054 func[ikey] = 0;
2055 const char* key = keys[ikey];
2056 /* it just so happens that strlen(keys[ikey]) == ikey + 1 */
2057 SV** pp_sv = hv_fetch( hash, key, ikey+1, 0 );
2058 SV* function;
2059
2060 if ( !pp_sv )
2061 croak("Math::GSL : %s: missing key %s!", param_name, key);
2062
2063 function = *pp_sv;
2064
2065 if ( SvPOK(function) || ( SvROK( function ) && SvTYPE(SvRV(function)) == SVt_PVCV ) ) {
2066 /* hold on to SV after the enclosing hash goes away */
2067 SvREFCNT_inc( function );
2068 func[ikey] = function;
2069 }
2070 else {
2071 croak( "Math::GSL : %s: key %s is not a reference to code!", param_name, key);
2072 }
2073 }
2074 }
2075
2076
2077
2078 #include "gsl/gsl_inline.h"
2079 #include "gsl/gsl_nan.h"
2080 #include "gsl/gsl_vector.h"
2081 #include "gsl/gsl_vector_char.h"
2082 #include "gsl/gsl_vector_complex.h"
2083 #include "gsl/gsl_vector_complex_double.h"
2084 #include "gsl/gsl_vector_double.h"
2085 #include "gsl/gsl_vector_float.h"
2086 #include "gsl/gsl_vector_int.h"
2087
2088
2089 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,unsigned long * val)2090 SWIG_AsVal_unsigned_SS_long SWIG_PERL_DECL_ARGS_2(SV *obj, unsigned long *val)
2091 {
2092 if (SvUOK(obj)) {
2093 UV v = SvUV(obj);
2094 if (UVSIZE <= sizeof(*val) || v <= ULONG_MAX) {
2095 if (val) *val = v;
2096 return SWIG_OK;
2097 }
2098 return SWIG_OverflowError;
2099 } else if (SvIOK(obj)) {
2100 IV v = SvIV(obj);
2101 if (v >= 0 && (IVSIZE <= sizeof(*val) || v <= ULONG_MAX)) {
2102 if (val) *val = v;
2103 return SWIG_OK;
2104 }
2105 return SWIG_OverflowError;
2106 } else {
2107 int dispatch = 0;
2108 const char *nptr = SvPV_nolen(obj);
2109 if (nptr) {
2110 char *endptr;
2111 unsigned long v;
2112 errno = 0;
2113 v = strtoul(nptr, &endptr,0);
2114 if (errno == ERANGE) {
2115 errno = 0;
2116 return SWIG_OverflowError;
2117 } else {
2118 if (*endptr == '\0') {
2119 if (val) *val = v;
2120 return SWIG_Str2NumCast(SWIG_OK);
2121 }
2122 }
2123 }
2124 if (!dispatch) {
2125 double d;
2126 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
2127 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, 0, ULONG_MAX)) {
2128 if (val) *val = (unsigned long)(d);
2129 return res;
2130 }
2131 }
2132 }
2133 return SWIG_TypeError;
2134 }
2135
2136
2137 #if defined(LLONG_MAX) && !defined(SWIG_LONG_LONG_AVAILABLE)
2138 # define SWIG_LONG_LONG_AVAILABLE
2139 #endif
2140
2141
2142 #ifdef SWIG_LONG_LONG_AVAILABLE
2143 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,unsigned long long * val)2144 SWIG_AsVal_unsigned_SS_long_SS_long SWIG_PERL_DECL_ARGS_2(SV *obj, unsigned long long *val)
2145 {
2146 if (SvUOK(obj)) {
2147 /* pretty sure this should be conditional on
2148 * (UVSIZE <= sizeof(*val) || v <= ULLONG_MAX) */
2149 if (val) *val = SvUV(obj);
2150 return SWIG_OK;
2151 } else if (SvIOK(obj)) {
2152 IV v = SvIV(obj);
2153 if (v >= 0 && (IVSIZE <= sizeof(*val) || v <= ULLONG_MAX)) {
2154 if (val) *val = v;
2155 return SWIG_OK;
2156 } else {
2157 return SWIG_OverflowError;
2158 }
2159 } else {
2160 int dispatch = 0;
2161 const char *nptr = SvPV_nolen(obj);
2162 if (nptr) {
2163 char *endptr;
2164 unsigned long long v;
2165 errno = 0;
2166 v = strtoull(nptr, &endptr,0);
2167 if (errno == ERANGE) {
2168 errno = 0;
2169 return SWIG_OverflowError;
2170 } else {
2171 if (*endptr == '\0') {
2172 if (val) *val = v;
2173 return SWIG_Str2NumCast(SWIG_OK);
2174 }
2175 }
2176 }
2177 if (!dispatch) {
2178 const double mant_max = 1LL << DBL_MANT_DIG;
2179 double d;
2180 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
2181 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, 0, mant_max)) {
2182 if (val) *val = (unsigned long long)(d);
2183 return res;
2184 }
2185 }
2186 }
2187 return SWIG_TypeError;
2188 }
2189 #endif
2190
2191
2192 SWIGINTERNINLINE int
SWIG_PERL_DECL_ARGS_2(SV * obj,size_t * val)2193 SWIG_AsVal_size_t SWIG_PERL_DECL_ARGS_2(SV * obj, size_t *val)
2194 {
2195 int res = SWIG_TypeError;
2196 #ifdef SWIG_LONG_LONG_AVAILABLE
2197 if (sizeof(size_t) <= sizeof(unsigned long)) {
2198 #endif
2199 unsigned long v;
2200 res = SWIG_AsVal_unsigned_SS_long SWIG_PERL_CALL_ARGS_2(obj, val ? &v : 0);
2201 if (SWIG_IsOK(res) && val) *val = (size_t)(v);
2202 #ifdef SWIG_LONG_LONG_AVAILABLE
2203 } else if (sizeof(size_t) <= sizeof(unsigned long long)) {
2204 unsigned long long v;
2205 res = SWIG_AsVal_unsigned_SS_long_SS_long SWIG_PERL_CALL_ARGS_2(obj, val ? &v : 0);
2206 if (SWIG_IsOK(res) && val) *val = (size_t)(v);
2207 }
2208 #endif
2209 return res;
2210 }
2211
2212
2213 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(unsigned long value)2214 SWIG_From_unsigned_SS_long SWIG_PERL_DECL_ARGS_1(unsigned long value)
2215 {
2216 SV *sv;
2217 if (UVSIZE >= sizeof(value) || value <= UV_MAX)
2218 sv = newSVuv(value);
2219 else
2220 sv = newSVpvf("%lu", value);
2221 return sv_2mortal(sv);
2222 }
2223
2224
2225 #include <stdio.h>
2226 #if (defined(_MSC_VER) && (_MSC_VER < 1900)) || defined(__BORLANDC__) || defined(_WATCOM)
2227 # ifndef snprintf
2228 # define snprintf _snprintf
2229 # endif
2230 #endif
2231
2232
2233 #ifdef SWIG_LONG_LONG_AVAILABLE
2234 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(unsigned long long value)2235 SWIG_From_unsigned_SS_long_SS_long SWIG_PERL_DECL_ARGS_1(unsigned long long value)
2236 {
2237 SV *sv;
2238 if (UVSIZE >= sizeof(value) || value <= UV_MAX)
2239 sv = newSVuv((UV)(value));
2240 else {
2241 //sv = newSVpvf("%llu", value); doesn't work in non 64bit Perl
2242 char temp[256];
2243 sprintf(temp, "%llu", value);
2244 sv = newSVpv(temp, 0);
2245 }
2246 return sv_2mortal(sv);
2247 }
2248 #endif
2249
2250
2251 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(size_t value)2252 SWIG_From_size_t SWIG_PERL_DECL_ARGS_1(size_t value)
2253 {
2254 #ifdef SWIG_LONG_LONG_AVAILABLE
2255 if (sizeof(size_t) <= sizeof(unsigned long)) {
2256 #endif
2257 return SWIG_From_unsigned_SS_long SWIG_PERL_CALL_ARGS_1((unsigned long)(value));
2258 #ifdef SWIG_LONG_LONG_AVAILABLE
2259 } else {
2260 /* assume sizeof(size_t) <= sizeof(unsigned long long) */
2261 return SWIG_From_unsigned_SS_long_SS_long SWIG_PERL_CALL_ARGS_1((unsigned long long)(value));
2262 }
2263 #endif
2264 }
2265
2266
2267 SWIGINTERN int
SWIG_AsCharArray(SV * obj,char * val,size_t size)2268 SWIG_AsCharArray(SV * obj, char *val, size_t size)
2269 {
2270 char* cptr = 0; size_t csize = 0; int alloc = SWIG_OLDOBJ;
2271 int res = SWIG_AsCharPtrAndSize(obj, &cptr, &csize, &alloc);
2272 if (SWIG_IsOK(res)) {
2273 /* special case of single char conversion when we don't need space for NUL */
2274 if (size == 1 && csize == 2 && cptr && !cptr[1]) --csize;
2275 if (csize <= size) {
2276 if (val) {
2277 if (csize) memcpy(val, cptr, csize*sizeof(char));
2278 if (csize < size) memset(val + csize, 0, (size - csize)*sizeof(char));
2279 }
2280 if (alloc == SWIG_NEWOBJ) {
2281 free((char*)cptr);
2282 res = SWIG_DelNewMask(res);
2283 }
2284 return res;
2285 }
2286 if (alloc == SWIG_NEWOBJ) free((char*)cptr);
2287 }
2288 return SWIG_TypeError;
2289 }
2290
2291
2292 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,char * val)2293 SWIG_AsVal_char SWIG_PERL_DECL_ARGS_2(SV * obj, char *val)
2294 {
2295 int res = SWIG_AsCharArray(obj, val, 1);
2296 if (!SWIG_IsOK(res)) {
2297 long v;
2298 res = SWIG_AddCast(SWIG_AsVal_long SWIG_PERL_CALL_ARGS_2(obj, &v));
2299 if (SWIG_IsOK(res)) {
2300 if ((CHAR_MIN <= v) && (v <= CHAR_MAX)) {
2301 if (val) *val = (char)(v);
2302 } else {
2303 res = SWIG_OverflowError;
2304 }
2305 }
2306 }
2307 return res;
2308 }
2309
2310
2311 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(char c)2312 SWIG_From_char SWIG_PERL_DECL_ARGS_1(char c)
2313 {
2314 return SWIG_FromCharPtrAndSize(&c,1);
2315 }
2316
2317 #ifdef __cplusplus
2318 extern "C" {
2319 #endif
2320
2321 #ifdef PERL_OBJECT
2322 #define MAGIC_CLASS _wrap_Math__GSL__Vector_var::
2323 class _wrap_Math__GSL__Vector_var : public CPerlObj {
2324 public:
2325 #else
2326 #define MAGIC_CLASS
2327 #endif
swig_magic_readonly(pTHX_ SV * SWIGUNUSEDPARM (sv),MAGIC * SWIGUNUSEDPARM (mg))2328 SWIGCLASS_STATIC int swig_magic_readonly(pTHX_ SV *SWIGUNUSEDPARM(sv), MAGIC *SWIGUNUSEDPARM(mg)) {
2329 MAGIC_PPERL
2330 croak("Value is read-only.");
2331 return 0;
2332 }
2333
2334
2335 #ifdef PERL_OBJECT
2336 };
2337 #endif
2338
2339 #ifdef __cplusplus
2340 }
2341 #endif
2342
2343 #ifdef __cplusplus
2344 extern "C" {
2345 #endif
XS(_wrap_gsl_error)2346 XS(_wrap_gsl_error) {
2347 {
2348 char *arg1 = (char *) 0 ;
2349 char *arg2 = (char *) 0 ;
2350 int arg3 ;
2351 int arg4 ;
2352 int res1 ;
2353 char *buf1 = 0 ;
2354 int alloc1 = 0 ;
2355 int res2 ;
2356 char *buf2 = 0 ;
2357 int alloc2 = 0 ;
2358 int val3 ;
2359 int ecode3 = 0 ;
2360 int val4 ;
2361 int ecode4 = 0 ;
2362 int argvi = 0;
2363 dXSARGS;
2364
2365 if ((items < 4) || (items > 4)) {
2366 SWIG_croak("Usage: gsl_error(reason,file,line,gsl_errno);");
2367 }
2368 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2369 if (!SWIG_IsOK(res1)) {
2370 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_error" "', argument " "1"" of type '" "char const *""'");
2371 }
2372 arg1 = (char *)(buf1);
2373 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
2374 if (!SWIG_IsOK(res2)) {
2375 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_error" "', argument " "2"" of type '" "char const *""'");
2376 }
2377 arg2 = (char *)(buf2);
2378 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
2379 if (!SWIG_IsOK(ecode3)) {
2380 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_error" "', argument " "3"" of type '" "int""'");
2381 }
2382 arg3 = (int)(val3);
2383 ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
2384 if (!SWIG_IsOK(ecode4)) {
2385 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_error" "', argument " "4"" of type '" "int""'");
2386 }
2387 arg4 = (int)(val4);
2388 gsl_error((char const *)arg1,(char const *)arg2,arg3,arg4);
2389 ST(argvi) = &PL_sv_undef;
2390 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2391 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2392
2393
2394 XSRETURN(argvi);
2395 fail:
2396 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2397 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2398
2399
2400 SWIG_croak_null();
2401 }
2402 }
2403
2404
XS(_wrap_gsl_stream_printf)2405 XS(_wrap_gsl_stream_printf) {
2406 {
2407 char *arg1 = (char *) 0 ;
2408 char *arg2 = (char *) 0 ;
2409 int arg3 ;
2410 char *arg4 = (char *) 0 ;
2411 int res1 ;
2412 char *buf1 = 0 ;
2413 int alloc1 = 0 ;
2414 int res2 ;
2415 char *buf2 = 0 ;
2416 int alloc2 = 0 ;
2417 int val3 ;
2418 int ecode3 = 0 ;
2419 int res4 ;
2420 char *buf4 = 0 ;
2421 int alloc4 = 0 ;
2422 int argvi = 0;
2423 dXSARGS;
2424
2425 if ((items < 4) || (items > 4)) {
2426 SWIG_croak("Usage: gsl_stream_printf(label,file,line,reason);");
2427 }
2428 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2429 if (!SWIG_IsOK(res1)) {
2430 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_stream_printf" "', argument " "1"" of type '" "char const *""'");
2431 }
2432 arg1 = (char *)(buf1);
2433 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
2434 if (!SWIG_IsOK(res2)) {
2435 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_stream_printf" "', argument " "2"" of type '" "char const *""'");
2436 }
2437 arg2 = (char *)(buf2);
2438 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
2439 if (!SWIG_IsOK(ecode3)) {
2440 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_stream_printf" "', argument " "3"" of type '" "int""'");
2441 }
2442 arg3 = (int)(val3);
2443 res4 = SWIG_AsCharPtrAndSize(ST(3), &buf4, NULL, &alloc4);
2444 if (!SWIG_IsOK(res4)) {
2445 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_stream_printf" "', argument " "4"" of type '" "char const *""'");
2446 }
2447 arg4 = (char *)(buf4);
2448 gsl_stream_printf((char const *)arg1,(char const *)arg2,arg3,(char const *)arg4);
2449 ST(argvi) = &PL_sv_undef;
2450 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2451 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2452
2453 if (alloc4 == SWIG_NEWOBJ) free((char*)buf4);
2454 XSRETURN(argvi);
2455 fail:
2456 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2457 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2458
2459 if (alloc4 == SWIG_NEWOBJ) free((char*)buf4);
2460 SWIG_croak_null();
2461 }
2462 }
2463
2464
XS(_wrap_gsl_strerror)2465 XS(_wrap_gsl_strerror) {
2466 {
2467 int arg1 ;
2468 int val1 ;
2469 int ecode1 = 0 ;
2470 int argvi = 0;
2471 char *result = 0 ;
2472 dXSARGS;
2473
2474 if ((items < 1) || (items > 1)) {
2475 SWIG_croak("Usage: gsl_strerror(gsl_errno);");
2476 }
2477 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2478 if (!SWIG_IsOK(ecode1)) {
2479 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_strerror" "', argument " "1"" of type '" "int""'");
2480 }
2481 arg1 = (int)(val1);
2482 result = (char *)gsl_strerror(arg1);
2483 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
2484
2485 XSRETURN(argvi);
2486 fail:
2487
2488 SWIG_croak_null();
2489 }
2490 }
2491
2492
XS(_wrap_gsl_set_error_handler)2493 XS(_wrap_gsl_set_error_handler) {
2494 {
2495 gsl_error_handler_t *arg1 = (gsl_error_handler_t *) 0 ;
2496 int argvi = 0;
2497 gsl_error_handler_t *result = 0 ;
2498 dXSARGS;
2499
2500 if ((items < 1) || (items > 1)) {
2501 SWIG_croak("Usage: gsl_set_error_handler(new_handler);");
2502 }
2503 {
2504 int res = SWIG_ConvertFunctionPtr(ST(0), (void**)(&arg1), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void);
2505 if (!SWIG_IsOK(res)) {
2506 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_set_error_handler" "', argument " "1"" of type '" "gsl_error_handler_t *""'");
2507 }
2508 }
2509 result = (gsl_error_handler_t *)gsl_set_error_handler(arg1);
2510 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void); argvi++ ;
2511
2512 XSRETURN(argvi);
2513 fail:
2514
2515 SWIG_croak_null();
2516 }
2517 }
2518
2519
XS(_wrap_gsl_set_error_handler_off)2520 XS(_wrap_gsl_set_error_handler_off) {
2521 {
2522 int argvi = 0;
2523 gsl_error_handler_t *result = 0 ;
2524 dXSARGS;
2525
2526 if ((items < 0) || (items > 0)) {
2527 SWIG_croak("Usage: gsl_set_error_handler_off();");
2528 }
2529 result = (gsl_error_handler_t *)gsl_set_error_handler_off();
2530 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void); argvi++ ;
2531 XSRETURN(argvi);
2532 fail:
2533 SWIG_croak_null();
2534 }
2535 }
2536
2537
XS(_wrap_gsl_set_stream_handler)2538 XS(_wrap_gsl_set_stream_handler) {
2539 {
2540 gsl_stream_handler_t *arg1 = (gsl_stream_handler_t *) 0 ;
2541 int argvi = 0;
2542 gsl_stream_handler_t *result = 0 ;
2543 dXSARGS;
2544
2545 if ((items < 1) || (items > 1)) {
2546 SWIG_croak("Usage: gsl_set_stream_handler(new_handler);");
2547 }
2548 {
2549 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);
2550 if (!SWIG_IsOK(res)) {
2551 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_set_stream_handler" "', argument " "1"" of type '" "gsl_stream_handler_t *""'");
2552 }
2553 }
2554 result = (gsl_stream_handler_t *)gsl_set_stream_handler(arg1);
2555 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void); argvi++ ;
2556
2557 XSRETURN(argvi);
2558 fail:
2559
2560 SWIG_croak_null();
2561 }
2562 }
2563
2564
XS(_wrap_gsl_set_stream)2565 XS(_wrap_gsl_set_stream) {
2566 {
2567 FILE *arg1 = (FILE *) 0 ;
2568 void *argp1 = 0 ;
2569 int res1 = 0 ;
2570 int argvi = 0;
2571 FILE *result = 0 ;
2572 dXSARGS;
2573
2574 if ((items < 1) || (items > 1)) {
2575 SWIG_croak("Usage: gsl_set_stream(new_stream);");
2576 }
2577 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
2578 if (!SWIG_IsOK(res1)) {
2579 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_set_stream" "', argument " "1"" of type '" "FILE *""'");
2580 }
2581 arg1 = (FILE *)(argp1);
2582 result = (FILE *)gsl_set_stream(arg1);
2583 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_FILE, 0 | 0); argvi++ ;
2584
2585 XSRETURN(argvi);
2586 fail:
2587
2588 SWIG_croak_null();
2589 }
2590 }
2591
2592
XS(_wrap_fopen)2593 XS(_wrap_fopen) {
2594 {
2595 char *arg1 = (char *) 0 ;
2596 char *arg2 = (char *) 0 ;
2597 int res1 ;
2598 char *buf1 = 0 ;
2599 int alloc1 = 0 ;
2600 int res2 ;
2601 char *buf2 = 0 ;
2602 int alloc2 = 0 ;
2603 int argvi = 0;
2604 FILE *result = 0 ;
2605 dXSARGS;
2606
2607 if ((items < 2) || (items > 2)) {
2608 SWIG_croak("Usage: fopen(char *,char *);");
2609 }
2610 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2611 if (!SWIG_IsOK(res1)) {
2612 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "fopen" "', argument " "1"" of type '" "char *""'");
2613 }
2614 arg1 = (char *)(buf1);
2615 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
2616 if (!SWIG_IsOK(res2)) {
2617 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "fopen" "', argument " "2"" of type '" "char *""'");
2618 }
2619 arg2 = (char *)(buf2);
2620 result = (FILE *)fopen(arg1,arg2);
2621 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_FILE, 0 | 0); argvi++ ;
2622 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2623 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2624 XSRETURN(argvi);
2625 fail:
2626 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2627 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2628 SWIG_croak_null();
2629 }
2630 }
2631
2632
XS(_wrap_fclose)2633 XS(_wrap_fclose) {
2634 {
2635 FILE *arg1 = (FILE *) 0 ;
2636 void *argp1 = 0 ;
2637 int res1 = 0 ;
2638 int argvi = 0;
2639 int result;
2640 dXSARGS;
2641
2642 if ((items < 1) || (items > 1)) {
2643 SWIG_croak("Usage: fclose(FILE *);");
2644 }
2645 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
2646 if (!SWIG_IsOK(res1)) {
2647 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "fclose" "', argument " "1"" of type '" "FILE *""'");
2648 }
2649 arg1 = (FILE *)(argp1);
2650 result = (int)fclose(arg1);
2651 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2652
2653 XSRETURN(argvi);
2654 fail:
2655
2656 SWIG_croak_null();
2657 }
2658 }
2659
2660
XS(_wrap_gsl_vector_char_size_set)2661 XS(_wrap_gsl_vector_char_size_set) {
2662 {
2663 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
2664 size_t arg2 ;
2665 void *argp1 = 0 ;
2666 int res1 = 0 ;
2667 size_t val2 ;
2668 int ecode2 = 0 ;
2669 int argvi = 0;
2670 dXSARGS;
2671
2672 if ((items < 2) || (items > 2)) {
2673 SWIG_croak("Usage: gsl_vector_char_size_set(self,size);");
2674 }
2675 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
2676 if (!SWIG_IsOK(res1)) {
2677 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_size_set" "', argument " "1"" of type '" "gsl_vector_char *""'");
2678 }
2679 arg1 = (gsl_vector_char *)(argp1);
2680 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
2681 if (!SWIG_IsOK(ecode2)) {
2682 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_char_size_set" "', argument " "2"" of type '" "size_t""'");
2683 }
2684 arg2 = (size_t)(val2);
2685 if (arg1) (arg1)->size = arg2;
2686 ST(argvi) = &PL_sv_undef;
2687
2688
2689 XSRETURN(argvi);
2690 fail:
2691
2692
2693 SWIG_croak_null();
2694 }
2695 }
2696
2697
XS(_wrap_gsl_vector_char_size_get)2698 XS(_wrap_gsl_vector_char_size_get) {
2699 {
2700 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
2701 void *argp1 = 0 ;
2702 int res1 = 0 ;
2703 int argvi = 0;
2704 size_t result;
2705 dXSARGS;
2706
2707 if ((items < 1) || (items > 1)) {
2708 SWIG_croak("Usage: gsl_vector_char_size_get(self);");
2709 }
2710 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
2711 if (!SWIG_IsOK(res1)) {
2712 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_size_get" "', argument " "1"" of type '" "gsl_vector_char *""'");
2713 }
2714 arg1 = (gsl_vector_char *)(argp1);
2715 result = ((arg1)->size);
2716 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
2717
2718 XSRETURN(argvi);
2719 fail:
2720
2721 SWIG_croak_null();
2722 }
2723 }
2724
2725
XS(_wrap_gsl_vector_char_stride_set)2726 XS(_wrap_gsl_vector_char_stride_set) {
2727 {
2728 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
2729 size_t arg2 ;
2730 void *argp1 = 0 ;
2731 int res1 = 0 ;
2732 size_t val2 ;
2733 int ecode2 = 0 ;
2734 int argvi = 0;
2735 dXSARGS;
2736
2737 if ((items < 2) || (items > 2)) {
2738 SWIG_croak("Usage: gsl_vector_char_stride_set(self,stride);");
2739 }
2740 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
2741 if (!SWIG_IsOK(res1)) {
2742 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_stride_set" "', argument " "1"" of type '" "gsl_vector_char *""'");
2743 }
2744 arg1 = (gsl_vector_char *)(argp1);
2745 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
2746 if (!SWIG_IsOK(ecode2)) {
2747 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_char_stride_set" "', argument " "2"" of type '" "size_t""'");
2748 }
2749 arg2 = (size_t)(val2);
2750 if (arg1) (arg1)->stride = arg2;
2751 ST(argvi) = &PL_sv_undef;
2752
2753
2754 XSRETURN(argvi);
2755 fail:
2756
2757
2758 SWIG_croak_null();
2759 }
2760 }
2761
2762
XS(_wrap_gsl_vector_char_stride_get)2763 XS(_wrap_gsl_vector_char_stride_get) {
2764 {
2765 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
2766 void *argp1 = 0 ;
2767 int res1 = 0 ;
2768 int argvi = 0;
2769 size_t result;
2770 dXSARGS;
2771
2772 if ((items < 1) || (items > 1)) {
2773 SWIG_croak("Usage: gsl_vector_char_stride_get(self);");
2774 }
2775 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
2776 if (!SWIG_IsOK(res1)) {
2777 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_stride_get" "', argument " "1"" of type '" "gsl_vector_char *""'");
2778 }
2779 arg1 = (gsl_vector_char *)(argp1);
2780 result = ((arg1)->stride);
2781 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
2782
2783 XSRETURN(argvi);
2784 fail:
2785
2786 SWIG_croak_null();
2787 }
2788 }
2789
2790
XS(_wrap_gsl_vector_char_data_set)2791 XS(_wrap_gsl_vector_char_data_set) {
2792 {
2793 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
2794 char *arg2 = (char *) 0 ;
2795 void *argp1 = 0 ;
2796 int res1 = 0 ;
2797 int res2 ;
2798 char *buf2 = 0 ;
2799 int alloc2 = 0 ;
2800 int argvi = 0;
2801 dXSARGS;
2802
2803 if ((items < 2) || (items > 2)) {
2804 SWIG_croak("Usage: gsl_vector_char_data_set(self,data);");
2805 }
2806 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
2807 if (!SWIG_IsOK(res1)) {
2808 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_data_set" "', argument " "1"" of type '" "gsl_vector_char *""'");
2809 }
2810 arg1 = (gsl_vector_char *)(argp1);
2811 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
2812 if (!SWIG_IsOK(res2)) {
2813 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_char_data_set" "', argument " "2"" of type '" "char *""'");
2814 }
2815 arg2 = (char *)(buf2);
2816 if (arg1->data) free((char*)arg1->data);
2817 if (arg2) {
2818 size_t size = strlen((const char *)(arg2)) + 1;
2819 arg1->data = (char *)(char *)memcpy(malloc((size)*sizeof(char)), (const char *)(arg2), sizeof(char)*(size));
2820 } else {
2821 arg1->data = 0;
2822 }
2823 ST(argvi) = &PL_sv_undef;
2824
2825 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2826 XSRETURN(argvi);
2827 fail:
2828
2829 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2830 SWIG_croak_null();
2831 }
2832 }
2833
2834
XS(_wrap_gsl_vector_char_data_get)2835 XS(_wrap_gsl_vector_char_data_get) {
2836 {
2837 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
2838 void *argp1 = 0 ;
2839 int res1 = 0 ;
2840 int argvi = 0;
2841 char *result = 0 ;
2842 dXSARGS;
2843
2844 if ((items < 1) || (items > 1)) {
2845 SWIG_croak("Usage: gsl_vector_char_data_get(self);");
2846 }
2847 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
2848 if (!SWIG_IsOK(res1)) {
2849 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_data_get" "', argument " "1"" of type '" "gsl_vector_char *""'");
2850 }
2851 arg1 = (gsl_vector_char *)(argp1);
2852 result = (char *) ((arg1)->data);
2853 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
2854
2855 XSRETURN(argvi);
2856 fail:
2857
2858 SWIG_croak_null();
2859 }
2860 }
2861
2862
XS(_wrap_gsl_vector_char_block_set)2863 XS(_wrap_gsl_vector_char_block_set) {
2864 {
2865 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
2866 gsl_block_char *arg2 = (gsl_block_char *) 0 ;
2867 void *argp1 = 0 ;
2868 int res1 = 0 ;
2869 void *argp2 = 0 ;
2870 int res2 = 0 ;
2871 int argvi = 0;
2872 dXSARGS;
2873
2874 if ((items < 2) || (items > 2)) {
2875 SWIG_croak("Usage: gsl_vector_char_block_set(self,block);");
2876 }
2877 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
2878 if (!SWIG_IsOK(res1)) {
2879 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_block_set" "', argument " "1"" of type '" "gsl_vector_char *""'");
2880 }
2881 arg1 = (gsl_vector_char *)(argp1);
2882 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_block_char, SWIG_POINTER_DISOWN | 0 );
2883 if (!SWIG_IsOK(res2)) {
2884 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_char_block_set" "', argument " "2"" of type '" "gsl_block_char *""'");
2885 }
2886 arg2 = (gsl_block_char *)(argp2);
2887 if (arg1) (arg1)->block = arg2;
2888 ST(argvi) = &PL_sv_undef;
2889
2890
2891 XSRETURN(argvi);
2892 fail:
2893
2894
2895 SWIG_croak_null();
2896 }
2897 }
2898
2899
XS(_wrap_gsl_vector_char_block_get)2900 XS(_wrap_gsl_vector_char_block_get) {
2901 {
2902 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
2903 void *argp1 = 0 ;
2904 int res1 = 0 ;
2905 int argvi = 0;
2906 gsl_block_char *result = 0 ;
2907 dXSARGS;
2908
2909 if ((items < 1) || (items > 1)) {
2910 SWIG_croak("Usage: gsl_vector_char_block_get(self);");
2911 }
2912 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
2913 if (!SWIG_IsOK(res1)) {
2914 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_block_get" "', argument " "1"" of type '" "gsl_vector_char *""'");
2915 }
2916 arg1 = (gsl_vector_char *)(argp1);
2917 result = (gsl_block_char *) ((arg1)->block);
2918 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_block_char, 0 | 0); argvi++ ;
2919
2920 XSRETURN(argvi);
2921 fail:
2922
2923 SWIG_croak_null();
2924 }
2925 }
2926
2927
XS(_wrap_gsl_vector_char_owner_set)2928 XS(_wrap_gsl_vector_char_owner_set) {
2929 {
2930 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
2931 int arg2 ;
2932 void *argp1 = 0 ;
2933 int res1 = 0 ;
2934 int val2 ;
2935 int ecode2 = 0 ;
2936 int argvi = 0;
2937 dXSARGS;
2938
2939 if ((items < 2) || (items > 2)) {
2940 SWIG_croak("Usage: gsl_vector_char_owner_set(self,owner);");
2941 }
2942 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
2943 if (!SWIG_IsOK(res1)) {
2944 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_owner_set" "', argument " "1"" of type '" "gsl_vector_char *""'");
2945 }
2946 arg1 = (gsl_vector_char *)(argp1);
2947 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
2948 if (!SWIG_IsOK(ecode2)) {
2949 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_char_owner_set" "', argument " "2"" of type '" "int""'");
2950 }
2951 arg2 = (int)(val2);
2952 if (arg1) (arg1)->owner = arg2;
2953 ST(argvi) = &PL_sv_undef;
2954
2955
2956 XSRETURN(argvi);
2957 fail:
2958
2959
2960 SWIG_croak_null();
2961 }
2962 }
2963
2964
XS(_wrap_gsl_vector_char_owner_get)2965 XS(_wrap_gsl_vector_char_owner_get) {
2966 {
2967 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
2968 void *argp1 = 0 ;
2969 int res1 = 0 ;
2970 int argvi = 0;
2971 int result;
2972 dXSARGS;
2973
2974 if ((items < 1) || (items > 1)) {
2975 SWIG_croak("Usage: gsl_vector_char_owner_get(self);");
2976 }
2977 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
2978 if (!SWIG_IsOK(res1)) {
2979 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_owner_get" "', argument " "1"" of type '" "gsl_vector_char *""'");
2980 }
2981 arg1 = (gsl_vector_char *)(argp1);
2982 result = (int) ((arg1)->owner);
2983 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2984
2985 XSRETURN(argvi);
2986 fail:
2987
2988 SWIG_croak_null();
2989 }
2990 }
2991
2992
XS(_wrap_new_gsl_vector_char)2993 XS(_wrap_new_gsl_vector_char) {
2994 {
2995 int argvi = 0;
2996 gsl_vector_char *result = 0 ;
2997 dXSARGS;
2998
2999 if ((items < 0) || (items > 0)) {
3000 SWIG_croak("Usage: new_gsl_vector_char();");
3001 }
3002 result = (gsl_vector_char *)calloc(1, sizeof(gsl_vector_char));
3003 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector_char, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
3004 XSRETURN(argvi);
3005 fail:
3006 SWIG_croak_null();
3007 }
3008 }
3009
3010
XS(_wrap_delete_gsl_vector_char)3011 XS(_wrap_delete_gsl_vector_char) {
3012 {
3013 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
3014 void *argp1 = 0 ;
3015 int res1 = 0 ;
3016 int argvi = 0;
3017 dXSARGS;
3018
3019 if ((items < 1) || (items > 1)) {
3020 SWIG_croak("Usage: delete_gsl_vector_char(self);");
3021 }
3022 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, SWIG_POINTER_DISOWN | 0 );
3023 if (!SWIG_IsOK(res1)) {
3024 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_vector_char" "', argument " "1"" of type '" "gsl_vector_char *""'");
3025 }
3026 arg1 = (gsl_vector_char *)(argp1);
3027 free((char *) arg1);
3028 ST(argvi) = &PL_sv_undef;
3029
3030 XSRETURN(argvi);
3031 fail:
3032
3033 SWIG_croak_null();
3034 }
3035 }
3036
3037
XS(_wrap__gsl_vector_char_view_vector_set)3038 XS(_wrap__gsl_vector_char_view_vector_set) {
3039 {
3040 _gsl_vector_char_view *arg1 = (_gsl_vector_char_view *) 0 ;
3041 gsl_vector_char *arg2 = (gsl_vector_char *) 0 ;
3042 void *argp1 = 0 ;
3043 int res1 = 0 ;
3044 void *argp2 = 0 ;
3045 int res2 = 0 ;
3046 int argvi = 0;
3047 dXSARGS;
3048
3049 if ((items < 2) || (items > 2)) {
3050 SWIG_croak("Usage: _gsl_vector_char_view_vector_set(self,vector);");
3051 }
3052 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_char_view, 0 | 0 );
3053 if (!SWIG_IsOK(res1)) {
3054 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "_gsl_vector_char_view_vector_set" "', argument " "1"" of type '" "_gsl_vector_char_view *""'");
3055 }
3056 arg1 = (_gsl_vector_char_view *)(argp1);
3057 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
3058 if (!SWIG_IsOK(res2)) {
3059 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "_gsl_vector_char_view_vector_set" "', argument " "2"" of type '" "gsl_vector_char *""'");
3060 }
3061 arg2 = (gsl_vector_char *)(argp2);
3062 if (arg1) (arg1)->vector = *arg2;
3063 ST(argvi) = &PL_sv_undef;
3064
3065
3066 XSRETURN(argvi);
3067 fail:
3068
3069
3070 SWIG_croak_null();
3071 }
3072 }
3073
3074
XS(_wrap__gsl_vector_char_view_vector_get)3075 XS(_wrap__gsl_vector_char_view_vector_get) {
3076 {
3077 _gsl_vector_char_view *arg1 = (_gsl_vector_char_view *) 0 ;
3078 void *argp1 = 0 ;
3079 int res1 = 0 ;
3080 int argvi = 0;
3081 gsl_vector_char *result = 0 ;
3082 dXSARGS;
3083
3084 if ((items < 1) || (items > 1)) {
3085 SWIG_croak("Usage: _gsl_vector_char_view_vector_get(self);");
3086 }
3087 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_char_view, 0 | 0 );
3088 if (!SWIG_IsOK(res1)) {
3089 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "_gsl_vector_char_view_vector_get" "', argument " "1"" of type '" "_gsl_vector_char_view *""'");
3090 }
3091 arg1 = (_gsl_vector_char_view *)(argp1);
3092 result = (gsl_vector_char *)& ((arg1)->vector);
3093 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector_char, 0 | SWIG_SHADOW); argvi++ ;
3094
3095 XSRETURN(argvi);
3096 fail:
3097
3098 SWIG_croak_null();
3099 }
3100 }
3101
3102
XS(_wrap_new__gsl_vector_char_view)3103 XS(_wrap_new__gsl_vector_char_view) {
3104 {
3105 int argvi = 0;
3106 _gsl_vector_char_view *result = 0 ;
3107 dXSARGS;
3108
3109 if ((items < 0) || (items > 0)) {
3110 SWIG_croak("Usage: new__gsl_vector_char_view();");
3111 }
3112 result = (_gsl_vector_char_view *)calloc(1, sizeof(_gsl_vector_char_view));
3113 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p__gsl_vector_char_view, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
3114 XSRETURN(argvi);
3115 fail:
3116 SWIG_croak_null();
3117 }
3118 }
3119
3120
XS(_wrap_delete__gsl_vector_char_view)3121 XS(_wrap_delete__gsl_vector_char_view) {
3122 {
3123 _gsl_vector_char_view *arg1 = (_gsl_vector_char_view *) 0 ;
3124 void *argp1 = 0 ;
3125 int res1 = 0 ;
3126 int argvi = 0;
3127 dXSARGS;
3128
3129 if ((items < 1) || (items > 1)) {
3130 SWIG_croak("Usage: delete__gsl_vector_char_view(self);");
3131 }
3132 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_char_view, SWIG_POINTER_DISOWN | 0 );
3133 if (!SWIG_IsOK(res1)) {
3134 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete__gsl_vector_char_view" "', argument " "1"" of type '" "_gsl_vector_char_view *""'");
3135 }
3136 arg1 = (_gsl_vector_char_view *)(argp1);
3137 free((char *) arg1);
3138 ST(argvi) = &PL_sv_undef;
3139
3140 XSRETURN(argvi);
3141 fail:
3142
3143 SWIG_croak_null();
3144 }
3145 }
3146
3147
XS(_wrap__gsl_vector_char_const_view_vector_set)3148 XS(_wrap__gsl_vector_char_const_view_vector_set) {
3149 {
3150 _gsl_vector_char_const_view *arg1 = (_gsl_vector_char_const_view *) 0 ;
3151 gsl_vector_char *arg2 = (gsl_vector_char *) 0 ;
3152 void *argp1 = 0 ;
3153 int res1 = 0 ;
3154 void *argp2 = 0 ;
3155 int res2 = 0 ;
3156 int argvi = 0;
3157 dXSARGS;
3158
3159 if ((items < 2) || (items > 2)) {
3160 SWIG_croak("Usage: _gsl_vector_char_const_view_vector_set(self,vector);");
3161 }
3162 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_char_const_view, 0 | 0 );
3163 if (!SWIG_IsOK(res1)) {
3164 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "_gsl_vector_char_const_view_vector_set" "', argument " "1"" of type '" "_gsl_vector_char_const_view *""'");
3165 }
3166 arg1 = (_gsl_vector_char_const_view *)(argp1);
3167 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
3168 if (!SWIG_IsOK(res2)) {
3169 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "_gsl_vector_char_const_view_vector_set" "', argument " "2"" of type '" "gsl_vector_char *""'");
3170 }
3171 arg2 = (gsl_vector_char *)(argp2);
3172 if (arg1) (arg1)->vector = *arg2;
3173 ST(argvi) = &PL_sv_undef;
3174
3175
3176 XSRETURN(argvi);
3177 fail:
3178
3179
3180 SWIG_croak_null();
3181 }
3182 }
3183
3184
XS(_wrap__gsl_vector_char_const_view_vector_get)3185 XS(_wrap__gsl_vector_char_const_view_vector_get) {
3186 {
3187 _gsl_vector_char_const_view *arg1 = (_gsl_vector_char_const_view *) 0 ;
3188 void *argp1 = 0 ;
3189 int res1 = 0 ;
3190 int argvi = 0;
3191 gsl_vector_char *result = 0 ;
3192 dXSARGS;
3193
3194 if ((items < 1) || (items > 1)) {
3195 SWIG_croak("Usage: _gsl_vector_char_const_view_vector_get(self);");
3196 }
3197 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_char_const_view, 0 | 0 );
3198 if (!SWIG_IsOK(res1)) {
3199 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "_gsl_vector_char_const_view_vector_get" "', argument " "1"" of type '" "_gsl_vector_char_const_view *""'");
3200 }
3201 arg1 = (_gsl_vector_char_const_view *)(argp1);
3202 result = (gsl_vector_char *)& ((arg1)->vector);
3203 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector_char, 0 | SWIG_SHADOW); argvi++ ;
3204
3205 XSRETURN(argvi);
3206 fail:
3207
3208 SWIG_croak_null();
3209 }
3210 }
3211
3212
XS(_wrap_new__gsl_vector_char_const_view)3213 XS(_wrap_new__gsl_vector_char_const_view) {
3214 {
3215 int argvi = 0;
3216 _gsl_vector_char_const_view *result = 0 ;
3217 dXSARGS;
3218
3219 if ((items < 0) || (items > 0)) {
3220 SWIG_croak("Usage: new__gsl_vector_char_const_view();");
3221 }
3222 result = (_gsl_vector_char_const_view *)calloc(1, sizeof(_gsl_vector_char_const_view));
3223 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p__gsl_vector_char_const_view, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
3224 XSRETURN(argvi);
3225 fail:
3226 SWIG_croak_null();
3227 }
3228 }
3229
3230
XS(_wrap_delete__gsl_vector_char_const_view)3231 XS(_wrap_delete__gsl_vector_char_const_view) {
3232 {
3233 _gsl_vector_char_const_view *arg1 = (_gsl_vector_char_const_view *) 0 ;
3234 void *argp1 = 0 ;
3235 int res1 = 0 ;
3236 int argvi = 0;
3237 dXSARGS;
3238
3239 if ((items < 1) || (items > 1)) {
3240 SWIG_croak("Usage: delete__gsl_vector_char_const_view(self);");
3241 }
3242 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_char_const_view, SWIG_POINTER_DISOWN | 0 );
3243 if (!SWIG_IsOK(res1)) {
3244 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete__gsl_vector_char_const_view" "', argument " "1"" of type '" "_gsl_vector_char_const_view *""'");
3245 }
3246 arg1 = (_gsl_vector_char_const_view *)(argp1);
3247 free((char *) arg1);
3248 ST(argvi) = &PL_sv_undef;
3249
3250 XSRETURN(argvi);
3251 fail:
3252
3253 SWIG_croak_null();
3254 }
3255 }
3256
3257
XS(_wrap_gsl_vector_char_alloc)3258 XS(_wrap_gsl_vector_char_alloc) {
3259 {
3260 size_t arg1 ;
3261 size_t val1 ;
3262 int ecode1 = 0 ;
3263 int argvi = 0;
3264 gsl_vector_char *result = 0 ;
3265 dXSARGS;
3266
3267 if ((items < 1) || (items > 1)) {
3268 SWIG_croak("Usage: gsl_vector_char_alloc(n);");
3269 }
3270 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
3271 if (!SWIG_IsOK(ecode1)) {
3272 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_vector_char_alloc" "', argument " "1"" of type '" "size_t""'");
3273 }
3274 arg1 = (size_t)(val1);
3275 result = (gsl_vector_char *)gsl_vector_char_alloc(arg1);
3276 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector_char, 0 | SWIG_SHADOW); argvi++ ;
3277
3278 XSRETURN(argvi);
3279 fail:
3280
3281 SWIG_croak_null();
3282 }
3283 }
3284
3285
XS(_wrap_gsl_vector_char_calloc)3286 XS(_wrap_gsl_vector_char_calloc) {
3287 {
3288 size_t arg1 ;
3289 size_t val1 ;
3290 int ecode1 = 0 ;
3291 int argvi = 0;
3292 gsl_vector_char *result = 0 ;
3293 dXSARGS;
3294
3295 if ((items < 1) || (items > 1)) {
3296 SWIG_croak("Usage: gsl_vector_char_calloc(n);");
3297 }
3298 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
3299 if (!SWIG_IsOK(ecode1)) {
3300 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_vector_char_calloc" "', argument " "1"" of type '" "size_t""'");
3301 }
3302 arg1 = (size_t)(val1);
3303 result = (gsl_vector_char *)gsl_vector_char_calloc(arg1);
3304 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector_char, 0 | SWIG_SHADOW); argvi++ ;
3305
3306 XSRETURN(argvi);
3307 fail:
3308
3309 SWIG_croak_null();
3310 }
3311 }
3312
3313
XS(_wrap_gsl_vector_char_alloc_from_block)3314 XS(_wrap_gsl_vector_char_alloc_from_block) {
3315 {
3316 gsl_block_char *arg1 = (gsl_block_char *) 0 ;
3317 size_t arg2 ;
3318 size_t arg3 ;
3319 size_t arg4 ;
3320 void *argp1 = 0 ;
3321 int res1 = 0 ;
3322 size_t val2 ;
3323 int ecode2 = 0 ;
3324 size_t val3 ;
3325 int ecode3 = 0 ;
3326 size_t val4 ;
3327 int ecode4 = 0 ;
3328 int argvi = 0;
3329 gsl_vector_char *result = 0 ;
3330 dXSARGS;
3331
3332 if ((items < 4) || (items > 4)) {
3333 SWIG_croak("Usage: gsl_vector_char_alloc_from_block(b,offset,n,stride);");
3334 }
3335 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_block_char, 0 | 0 );
3336 if (!SWIG_IsOK(res1)) {
3337 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_alloc_from_block" "', argument " "1"" of type '" "gsl_block_char *""'");
3338 }
3339 arg1 = (gsl_block_char *)(argp1);
3340 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
3341 if (!SWIG_IsOK(ecode2)) {
3342 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_char_alloc_from_block" "', argument " "2"" of type '" "size_t""'");
3343 }
3344 arg2 = (size_t)(val2);
3345 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
3346 if (!SWIG_IsOK(ecode3)) {
3347 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_char_alloc_from_block" "', argument " "3"" of type '" "size_t""'");
3348 }
3349 arg3 = (size_t)(val3);
3350 ecode4 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
3351 if (!SWIG_IsOK(ecode4)) {
3352 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_vector_char_alloc_from_block" "', argument " "4"" of type '" "size_t""'");
3353 }
3354 arg4 = (size_t)(val4);
3355 result = (gsl_vector_char *)gsl_vector_char_alloc_from_block(arg1,arg2,arg3,arg4);
3356 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector_char, 0 | SWIG_SHADOW); argvi++ ;
3357
3358
3359
3360
3361 XSRETURN(argvi);
3362 fail:
3363
3364
3365
3366
3367 SWIG_croak_null();
3368 }
3369 }
3370
3371
XS(_wrap_gsl_vector_char_alloc_from_vector)3372 XS(_wrap_gsl_vector_char_alloc_from_vector) {
3373 {
3374 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
3375 size_t arg2 ;
3376 size_t arg3 ;
3377 size_t arg4 ;
3378 void *argp1 = 0 ;
3379 int res1 = 0 ;
3380 size_t val2 ;
3381 int ecode2 = 0 ;
3382 size_t val3 ;
3383 int ecode3 = 0 ;
3384 size_t val4 ;
3385 int ecode4 = 0 ;
3386 int argvi = 0;
3387 gsl_vector_char *result = 0 ;
3388 dXSARGS;
3389
3390 if ((items < 4) || (items > 4)) {
3391 SWIG_croak("Usage: gsl_vector_char_alloc_from_vector(v,offset,n,stride);");
3392 }
3393 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
3394 if (!SWIG_IsOK(res1)) {
3395 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_alloc_from_vector" "', argument " "1"" of type '" "gsl_vector_char *""'");
3396 }
3397 arg1 = (gsl_vector_char *)(argp1);
3398 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
3399 if (!SWIG_IsOK(ecode2)) {
3400 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_char_alloc_from_vector" "', argument " "2"" of type '" "size_t""'");
3401 }
3402 arg2 = (size_t)(val2);
3403 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
3404 if (!SWIG_IsOK(ecode3)) {
3405 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_char_alloc_from_vector" "', argument " "3"" of type '" "size_t""'");
3406 }
3407 arg3 = (size_t)(val3);
3408 ecode4 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
3409 if (!SWIG_IsOK(ecode4)) {
3410 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_vector_char_alloc_from_vector" "', argument " "4"" of type '" "size_t""'");
3411 }
3412 arg4 = (size_t)(val4);
3413 result = (gsl_vector_char *)gsl_vector_char_alloc_from_vector(arg1,arg2,arg3,arg4);
3414 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector_char, 0 | SWIG_SHADOW); argvi++ ;
3415
3416
3417
3418
3419 XSRETURN(argvi);
3420 fail:
3421
3422
3423
3424
3425 SWIG_croak_null();
3426 }
3427 }
3428
3429
XS(_wrap_gsl_vector_char_free)3430 XS(_wrap_gsl_vector_char_free) {
3431 {
3432 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
3433 void *argp1 = 0 ;
3434 int res1 = 0 ;
3435 int argvi = 0;
3436 dXSARGS;
3437
3438 if ((items < 1) || (items > 1)) {
3439 SWIG_croak("Usage: gsl_vector_char_free(v);");
3440 }
3441 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
3442 if (!SWIG_IsOK(res1)) {
3443 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_free" "', argument " "1"" of type '" "gsl_vector_char *""'");
3444 }
3445 arg1 = (gsl_vector_char *)(argp1);
3446 gsl_vector_char_free(arg1);
3447 ST(argvi) = &PL_sv_undef;
3448
3449 XSRETURN(argvi);
3450 fail:
3451
3452 SWIG_croak_null();
3453 }
3454 }
3455
3456
XS(_wrap_gsl_vector_char_view_array)3457 XS(_wrap_gsl_vector_char_view_array) {
3458 {
3459 char *arg1 = (char *) 0 ;
3460 size_t arg2 ;
3461 int res1 ;
3462 char *buf1 = 0 ;
3463 int alloc1 = 0 ;
3464 size_t val2 ;
3465 int ecode2 = 0 ;
3466 int argvi = 0;
3467 _gsl_vector_char_view result;
3468 dXSARGS;
3469
3470 if ((items < 2) || (items > 2)) {
3471 SWIG_croak("Usage: gsl_vector_char_view_array(v,n);");
3472 }
3473 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
3474 if (!SWIG_IsOK(res1)) {
3475 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_view_array" "', argument " "1"" of type '" "char *""'");
3476 }
3477 arg1 = (char *)(buf1);
3478 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
3479 if (!SWIG_IsOK(ecode2)) {
3480 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_char_view_array" "', argument " "2"" of type '" "size_t""'");
3481 }
3482 arg2 = (size_t)(val2);
3483 result = gsl_vector_char_view_array(arg1,arg2);
3484 ST(argvi) = SWIG_NewPointerObj((_gsl_vector_char_view *)memcpy((_gsl_vector_char_view *)calloc(1,sizeof(_gsl_vector_char_view)),&result,sizeof(_gsl_vector_char_view)), SWIGTYPE_p__gsl_vector_char_view, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
3485 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
3486
3487 XSRETURN(argvi);
3488 fail:
3489 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
3490
3491 SWIG_croak_null();
3492 }
3493 }
3494
3495
XS(_wrap_gsl_vector_char_view_array_with_stride)3496 XS(_wrap_gsl_vector_char_view_array_with_stride) {
3497 {
3498 char *arg1 = (char *) 0 ;
3499 size_t arg2 ;
3500 size_t arg3 ;
3501 int res1 ;
3502 char *buf1 = 0 ;
3503 int alloc1 = 0 ;
3504 size_t val2 ;
3505 int ecode2 = 0 ;
3506 size_t val3 ;
3507 int ecode3 = 0 ;
3508 int argvi = 0;
3509 _gsl_vector_char_view result;
3510 dXSARGS;
3511
3512 if ((items < 3) || (items > 3)) {
3513 SWIG_croak("Usage: gsl_vector_char_view_array_with_stride(base,stride,n);");
3514 }
3515 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
3516 if (!SWIG_IsOK(res1)) {
3517 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_view_array_with_stride" "', argument " "1"" of type '" "char *""'");
3518 }
3519 arg1 = (char *)(buf1);
3520 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
3521 if (!SWIG_IsOK(ecode2)) {
3522 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_char_view_array_with_stride" "', argument " "2"" of type '" "size_t""'");
3523 }
3524 arg2 = (size_t)(val2);
3525 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
3526 if (!SWIG_IsOK(ecode3)) {
3527 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_char_view_array_with_stride" "', argument " "3"" of type '" "size_t""'");
3528 }
3529 arg3 = (size_t)(val3);
3530 result = gsl_vector_char_view_array_with_stride(arg1,arg2,arg3);
3531 ST(argvi) = SWIG_NewPointerObj((_gsl_vector_char_view *)memcpy((_gsl_vector_char_view *)calloc(1,sizeof(_gsl_vector_char_view)),&result,sizeof(_gsl_vector_char_view)), SWIGTYPE_p__gsl_vector_char_view, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
3532 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
3533
3534
3535 XSRETURN(argvi);
3536 fail:
3537 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
3538
3539
3540 SWIG_croak_null();
3541 }
3542 }
3543
3544
XS(_wrap_gsl_vector_char_const_view_array)3545 XS(_wrap_gsl_vector_char_const_view_array) {
3546 {
3547 char *arg1 = (char *) 0 ;
3548 size_t arg2 ;
3549 int res1 ;
3550 char *buf1 = 0 ;
3551 int alloc1 = 0 ;
3552 size_t val2 ;
3553 int ecode2 = 0 ;
3554 int argvi = 0;
3555 _gsl_vector_char_const_view result;
3556 dXSARGS;
3557
3558 if ((items < 2) || (items > 2)) {
3559 SWIG_croak("Usage: gsl_vector_char_const_view_array(v,n);");
3560 }
3561 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
3562 if (!SWIG_IsOK(res1)) {
3563 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_const_view_array" "', argument " "1"" of type '" "char const *""'");
3564 }
3565 arg1 = (char *)(buf1);
3566 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
3567 if (!SWIG_IsOK(ecode2)) {
3568 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_char_const_view_array" "', argument " "2"" of type '" "size_t""'");
3569 }
3570 arg2 = (size_t)(val2);
3571 result = gsl_vector_char_const_view_array((char const *)arg1,arg2);
3572 ST(argvi) = SWIG_NewPointerObj((_gsl_vector_char_const_view *)memcpy((_gsl_vector_char_const_view *)calloc(1,sizeof(_gsl_vector_char_const_view)),&result,sizeof(_gsl_vector_char_const_view)), SWIGTYPE_p__gsl_vector_char_const_view, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
3573 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
3574
3575 XSRETURN(argvi);
3576 fail:
3577 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
3578
3579 SWIG_croak_null();
3580 }
3581 }
3582
3583
XS(_wrap_gsl_vector_char_const_view_array_with_stride)3584 XS(_wrap_gsl_vector_char_const_view_array_with_stride) {
3585 {
3586 char *arg1 = (char *) 0 ;
3587 size_t arg2 ;
3588 size_t arg3 ;
3589 int res1 ;
3590 char *buf1 = 0 ;
3591 int alloc1 = 0 ;
3592 size_t val2 ;
3593 int ecode2 = 0 ;
3594 size_t val3 ;
3595 int ecode3 = 0 ;
3596 int argvi = 0;
3597 _gsl_vector_char_const_view result;
3598 dXSARGS;
3599
3600 if ((items < 3) || (items > 3)) {
3601 SWIG_croak("Usage: gsl_vector_char_const_view_array_with_stride(base,stride,n);");
3602 }
3603 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
3604 if (!SWIG_IsOK(res1)) {
3605 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_const_view_array_with_stride" "', argument " "1"" of type '" "char const *""'");
3606 }
3607 arg1 = (char *)(buf1);
3608 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
3609 if (!SWIG_IsOK(ecode2)) {
3610 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_char_const_view_array_with_stride" "', argument " "2"" of type '" "size_t""'");
3611 }
3612 arg2 = (size_t)(val2);
3613 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
3614 if (!SWIG_IsOK(ecode3)) {
3615 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_char_const_view_array_with_stride" "', argument " "3"" of type '" "size_t""'");
3616 }
3617 arg3 = (size_t)(val3);
3618 result = gsl_vector_char_const_view_array_with_stride((char const *)arg1,arg2,arg3);
3619 ST(argvi) = SWIG_NewPointerObj((_gsl_vector_char_const_view *)memcpy((_gsl_vector_char_const_view *)calloc(1,sizeof(_gsl_vector_char_const_view)),&result,sizeof(_gsl_vector_char_const_view)), SWIGTYPE_p__gsl_vector_char_const_view, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
3620 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
3621
3622
3623 XSRETURN(argvi);
3624 fail:
3625 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
3626
3627
3628 SWIG_croak_null();
3629 }
3630 }
3631
3632
XS(_wrap_gsl_vector_char_subvector)3633 XS(_wrap_gsl_vector_char_subvector) {
3634 {
3635 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
3636 size_t arg2 ;
3637 size_t arg3 ;
3638 void *argp1 = 0 ;
3639 int res1 = 0 ;
3640 size_t val2 ;
3641 int ecode2 = 0 ;
3642 size_t val3 ;
3643 int ecode3 = 0 ;
3644 int argvi = 0;
3645 _gsl_vector_char_view result;
3646 dXSARGS;
3647
3648 if ((items < 3) || (items > 3)) {
3649 SWIG_croak("Usage: gsl_vector_char_subvector(v,i,n);");
3650 }
3651 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
3652 if (!SWIG_IsOK(res1)) {
3653 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_subvector" "', argument " "1"" of type '" "gsl_vector_char *""'");
3654 }
3655 arg1 = (gsl_vector_char *)(argp1);
3656 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
3657 if (!SWIG_IsOK(ecode2)) {
3658 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_char_subvector" "', argument " "2"" of type '" "size_t""'");
3659 }
3660 arg2 = (size_t)(val2);
3661 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
3662 if (!SWIG_IsOK(ecode3)) {
3663 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_char_subvector" "', argument " "3"" of type '" "size_t""'");
3664 }
3665 arg3 = (size_t)(val3);
3666 result = gsl_vector_char_subvector(arg1,arg2,arg3);
3667 ST(argvi) = SWIG_NewPointerObj((_gsl_vector_char_view *)memcpy((_gsl_vector_char_view *)calloc(1,sizeof(_gsl_vector_char_view)),&result,sizeof(_gsl_vector_char_view)), SWIGTYPE_p__gsl_vector_char_view, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
3668
3669
3670
3671 XSRETURN(argvi);
3672 fail:
3673
3674
3675
3676 SWIG_croak_null();
3677 }
3678 }
3679
3680
XS(_wrap_gsl_vector_char_subvector_with_stride)3681 XS(_wrap_gsl_vector_char_subvector_with_stride) {
3682 {
3683 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
3684 size_t arg2 ;
3685 size_t arg3 ;
3686 size_t arg4 ;
3687 void *argp1 = 0 ;
3688 int res1 = 0 ;
3689 size_t val2 ;
3690 int ecode2 = 0 ;
3691 size_t val3 ;
3692 int ecode3 = 0 ;
3693 size_t val4 ;
3694 int ecode4 = 0 ;
3695 int argvi = 0;
3696 _gsl_vector_char_view result;
3697 dXSARGS;
3698
3699 if ((items < 4) || (items > 4)) {
3700 SWIG_croak("Usage: gsl_vector_char_subvector_with_stride(v,i,stride,n);");
3701 }
3702 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
3703 if (!SWIG_IsOK(res1)) {
3704 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_subvector_with_stride" "', argument " "1"" of type '" "gsl_vector_char *""'");
3705 }
3706 arg1 = (gsl_vector_char *)(argp1);
3707 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
3708 if (!SWIG_IsOK(ecode2)) {
3709 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_char_subvector_with_stride" "', argument " "2"" of type '" "size_t""'");
3710 }
3711 arg2 = (size_t)(val2);
3712 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
3713 if (!SWIG_IsOK(ecode3)) {
3714 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_char_subvector_with_stride" "', argument " "3"" of type '" "size_t""'");
3715 }
3716 arg3 = (size_t)(val3);
3717 ecode4 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
3718 if (!SWIG_IsOK(ecode4)) {
3719 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_vector_char_subvector_with_stride" "', argument " "4"" of type '" "size_t""'");
3720 }
3721 arg4 = (size_t)(val4);
3722 result = gsl_vector_char_subvector_with_stride(arg1,arg2,arg3,arg4);
3723 ST(argvi) = SWIG_NewPointerObj((_gsl_vector_char_view *)memcpy((_gsl_vector_char_view *)calloc(1,sizeof(_gsl_vector_char_view)),&result,sizeof(_gsl_vector_char_view)), SWIGTYPE_p__gsl_vector_char_view, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
3724
3725
3726
3727
3728 XSRETURN(argvi);
3729 fail:
3730
3731
3732
3733
3734 SWIG_croak_null();
3735 }
3736 }
3737
3738
XS(_wrap_gsl_vector_char_const_subvector)3739 XS(_wrap_gsl_vector_char_const_subvector) {
3740 {
3741 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
3742 size_t arg2 ;
3743 size_t arg3 ;
3744 void *argp1 = 0 ;
3745 int res1 = 0 ;
3746 size_t val2 ;
3747 int ecode2 = 0 ;
3748 size_t val3 ;
3749 int ecode3 = 0 ;
3750 int argvi = 0;
3751 _gsl_vector_char_const_view result;
3752 dXSARGS;
3753
3754 if ((items < 3) || (items > 3)) {
3755 SWIG_croak("Usage: gsl_vector_char_const_subvector(v,i,n);");
3756 }
3757 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
3758 if (!SWIG_IsOK(res1)) {
3759 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_const_subvector" "', argument " "1"" of type '" "gsl_vector_char const *""'");
3760 }
3761 arg1 = (gsl_vector_char *)(argp1);
3762 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
3763 if (!SWIG_IsOK(ecode2)) {
3764 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_char_const_subvector" "', argument " "2"" of type '" "size_t""'");
3765 }
3766 arg2 = (size_t)(val2);
3767 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
3768 if (!SWIG_IsOK(ecode3)) {
3769 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_char_const_subvector" "', argument " "3"" of type '" "size_t""'");
3770 }
3771 arg3 = (size_t)(val3);
3772 result = gsl_vector_char_const_subvector((gsl_vector_char const *)arg1,arg2,arg3);
3773 ST(argvi) = SWIG_NewPointerObj((_gsl_vector_char_const_view *)memcpy((_gsl_vector_char_const_view *)calloc(1,sizeof(_gsl_vector_char_const_view)),&result,sizeof(_gsl_vector_char_const_view)), SWIGTYPE_p__gsl_vector_char_const_view, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
3774
3775
3776
3777 XSRETURN(argvi);
3778 fail:
3779
3780
3781
3782 SWIG_croak_null();
3783 }
3784 }
3785
3786
XS(_wrap_gsl_vector_char_const_subvector_with_stride)3787 XS(_wrap_gsl_vector_char_const_subvector_with_stride) {
3788 {
3789 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
3790 size_t arg2 ;
3791 size_t arg3 ;
3792 size_t arg4 ;
3793 void *argp1 = 0 ;
3794 int res1 = 0 ;
3795 size_t val2 ;
3796 int ecode2 = 0 ;
3797 size_t val3 ;
3798 int ecode3 = 0 ;
3799 size_t val4 ;
3800 int ecode4 = 0 ;
3801 int argvi = 0;
3802 _gsl_vector_char_const_view result;
3803 dXSARGS;
3804
3805 if ((items < 4) || (items > 4)) {
3806 SWIG_croak("Usage: gsl_vector_char_const_subvector_with_stride(v,i,stride,n);");
3807 }
3808 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
3809 if (!SWIG_IsOK(res1)) {
3810 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_const_subvector_with_stride" "', argument " "1"" of type '" "gsl_vector_char const *""'");
3811 }
3812 arg1 = (gsl_vector_char *)(argp1);
3813 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
3814 if (!SWIG_IsOK(ecode2)) {
3815 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_char_const_subvector_with_stride" "', argument " "2"" of type '" "size_t""'");
3816 }
3817 arg2 = (size_t)(val2);
3818 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
3819 if (!SWIG_IsOK(ecode3)) {
3820 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_char_const_subvector_with_stride" "', argument " "3"" of type '" "size_t""'");
3821 }
3822 arg3 = (size_t)(val3);
3823 ecode4 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
3824 if (!SWIG_IsOK(ecode4)) {
3825 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_vector_char_const_subvector_with_stride" "', argument " "4"" of type '" "size_t""'");
3826 }
3827 arg4 = (size_t)(val4);
3828 result = gsl_vector_char_const_subvector_with_stride((gsl_vector_char const *)arg1,arg2,arg3,arg4);
3829 ST(argvi) = SWIG_NewPointerObj((_gsl_vector_char_const_view *)memcpy((_gsl_vector_char_const_view *)calloc(1,sizeof(_gsl_vector_char_const_view)),&result,sizeof(_gsl_vector_char_const_view)), SWIGTYPE_p__gsl_vector_char_const_view, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
3830
3831
3832
3833
3834 XSRETURN(argvi);
3835 fail:
3836
3837
3838
3839
3840 SWIG_croak_null();
3841 }
3842 }
3843
3844
XS(_wrap_gsl_vector_char_set_zero)3845 XS(_wrap_gsl_vector_char_set_zero) {
3846 {
3847 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
3848 void *argp1 = 0 ;
3849 int res1 = 0 ;
3850 int argvi = 0;
3851 dXSARGS;
3852
3853 if ((items < 1) || (items > 1)) {
3854 SWIG_croak("Usage: gsl_vector_char_set_zero(v);");
3855 }
3856 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
3857 if (!SWIG_IsOK(res1)) {
3858 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_set_zero" "', argument " "1"" of type '" "gsl_vector_char *""'");
3859 }
3860 arg1 = (gsl_vector_char *)(argp1);
3861 gsl_vector_char_set_zero(arg1);
3862 ST(argvi) = &PL_sv_undef;
3863
3864 XSRETURN(argvi);
3865 fail:
3866
3867 SWIG_croak_null();
3868 }
3869 }
3870
3871
XS(_wrap_gsl_vector_char_set_all)3872 XS(_wrap_gsl_vector_char_set_all) {
3873 {
3874 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
3875 char arg2 ;
3876 void *argp1 = 0 ;
3877 int res1 = 0 ;
3878 char val2 ;
3879 int ecode2 = 0 ;
3880 int argvi = 0;
3881 dXSARGS;
3882
3883 if ((items < 2) || (items > 2)) {
3884 SWIG_croak("Usage: gsl_vector_char_set_all(v,x);");
3885 }
3886 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
3887 if (!SWIG_IsOK(res1)) {
3888 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_set_all" "', argument " "1"" of type '" "gsl_vector_char *""'");
3889 }
3890 arg1 = (gsl_vector_char *)(argp1);
3891 ecode2 = SWIG_AsVal_char SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
3892 if (!SWIG_IsOK(ecode2)) {
3893 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_char_set_all" "', argument " "2"" of type '" "char""'");
3894 }
3895 arg2 = (char)(val2);
3896 gsl_vector_char_set_all(arg1,arg2);
3897 ST(argvi) = &PL_sv_undef;
3898
3899
3900 XSRETURN(argvi);
3901 fail:
3902
3903
3904 SWIG_croak_null();
3905 }
3906 }
3907
3908
XS(_wrap_gsl_vector_char_set_basis)3909 XS(_wrap_gsl_vector_char_set_basis) {
3910 {
3911 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
3912 size_t arg2 ;
3913 void *argp1 = 0 ;
3914 int res1 = 0 ;
3915 size_t val2 ;
3916 int ecode2 = 0 ;
3917 int argvi = 0;
3918 int result;
3919 dXSARGS;
3920
3921 if ((items < 2) || (items > 2)) {
3922 SWIG_croak("Usage: gsl_vector_char_set_basis(v,i);");
3923 }
3924 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
3925 if (!SWIG_IsOK(res1)) {
3926 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_set_basis" "', argument " "1"" of type '" "gsl_vector_char *""'");
3927 }
3928 arg1 = (gsl_vector_char *)(argp1);
3929 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
3930 if (!SWIG_IsOK(ecode2)) {
3931 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_char_set_basis" "', argument " "2"" of type '" "size_t""'");
3932 }
3933 arg2 = (size_t)(val2);
3934 result = (int)gsl_vector_char_set_basis(arg1,arg2);
3935 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3936
3937
3938 XSRETURN(argvi);
3939 fail:
3940
3941
3942 SWIG_croak_null();
3943 }
3944 }
3945
3946
XS(_wrap_gsl_vector_char_fread)3947 XS(_wrap_gsl_vector_char_fread) {
3948 {
3949 FILE *arg1 = (FILE *) 0 ;
3950 gsl_vector_char *arg2 = (gsl_vector_char *) 0 ;
3951 void *argp1 = 0 ;
3952 int res1 = 0 ;
3953 void *argp2 = 0 ;
3954 int res2 = 0 ;
3955 int argvi = 0;
3956 int result;
3957 dXSARGS;
3958
3959 if ((items < 2) || (items > 2)) {
3960 SWIG_croak("Usage: gsl_vector_char_fread(stream,v);");
3961 }
3962 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
3963 if (!SWIG_IsOK(res1)) {
3964 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_fread" "', argument " "1"" of type '" "FILE *""'");
3965 }
3966 arg1 = (FILE *)(argp1);
3967 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
3968 if (!SWIG_IsOK(res2)) {
3969 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_char_fread" "', argument " "2"" of type '" "gsl_vector_char *""'");
3970 }
3971 arg2 = (gsl_vector_char *)(argp2);
3972 result = (int)gsl_vector_char_fread(arg1,arg2);
3973 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3974
3975
3976 XSRETURN(argvi);
3977 fail:
3978
3979
3980 SWIG_croak_null();
3981 }
3982 }
3983
3984
XS(_wrap_gsl_vector_char_fwrite)3985 XS(_wrap_gsl_vector_char_fwrite) {
3986 {
3987 FILE *arg1 = (FILE *) 0 ;
3988 gsl_vector_char *arg2 = (gsl_vector_char *) 0 ;
3989 void *argp1 = 0 ;
3990 int res1 = 0 ;
3991 void *argp2 = 0 ;
3992 int res2 = 0 ;
3993 int argvi = 0;
3994 int result;
3995 dXSARGS;
3996
3997 if ((items < 2) || (items > 2)) {
3998 SWIG_croak("Usage: gsl_vector_char_fwrite(stream,v);");
3999 }
4000 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
4001 if (!SWIG_IsOK(res1)) {
4002 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_fwrite" "', argument " "1"" of type '" "FILE *""'");
4003 }
4004 arg1 = (FILE *)(argp1);
4005 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4006 if (!SWIG_IsOK(res2)) {
4007 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_char_fwrite" "', argument " "2"" of type '" "gsl_vector_char const *""'");
4008 }
4009 arg2 = (gsl_vector_char *)(argp2);
4010 result = (int)gsl_vector_char_fwrite(arg1,(gsl_vector_char const *)arg2);
4011 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4012
4013
4014 XSRETURN(argvi);
4015 fail:
4016
4017
4018 SWIG_croak_null();
4019 }
4020 }
4021
4022
XS(_wrap_gsl_vector_char_fscanf)4023 XS(_wrap_gsl_vector_char_fscanf) {
4024 {
4025 FILE *arg1 = (FILE *) 0 ;
4026 gsl_vector_char *arg2 = (gsl_vector_char *) 0 ;
4027 void *argp1 = 0 ;
4028 int res1 = 0 ;
4029 void *argp2 = 0 ;
4030 int res2 = 0 ;
4031 int argvi = 0;
4032 int result;
4033 dXSARGS;
4034
4035 if ((items < 2) || (items > 2)) {
4036 SWIG_croak("Usage: gsl_vector_char_fscanf(stream,v);");
4037 }
4038 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
4039 if (!SWIG_IsOK(res1)) {
4040 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_fscanf" "', argument " "1"" of type '" "FILE *""'");
4041 }
4042 arg1 = (FILE *)(argp1);
4043 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4044 if (!SWIG_IsOK(res2)) {
4045 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_char_fscanf" "', argument " "2"" of type '" "gsl_vector_char *""'");
4046 }
4047 arg2 = (gsl_vector_char *)(argp2);
4048 result = (int)gsl_vector_char_fscanf(arg1,arg2);
4049 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4050
4051
4052 XSRETURN(argvi);
4053 fail:
4054
4055
4056 SWIG_croak_null();
4057 }
4058 }
4059
4060
XS(_wrap_gsl_vector_char_fprintf)4061 XS(_wrap_gsl_vector_char_fprintf) {
4062 {
4063 FILE *arg1 = (FILE *) 0 ;
4064 gsl_vector_char *arg2 = (gsl_vector_char *) 0 ;
4065 char *arg3 = (char *) 0 ;
4066 void *argp1 = 0 ;
4067 int res1 = 0 ;
4068 void *argp2 = 0 ;
4069 int res2 = 0 ;
4070 int res3 ;
4071 char *buf3 = 0 ;
4072 int alloc3 = 0 ;
4073 int argvi = 0;
4074 int result;
4075 dXSARGS;
4076
4077 if ((items < 3) || (items > 3)) {
4078 SWIG_croak("Usage: gsl_vector_char_fprintf(stream,v,format);");
4079 }
4080 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
4081 if (!SWIG_IsOK(res1)) {
4082 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_fprintf" "', argument " "1"" of type '" "FILE *""'");
4083 }
4084 arg1 = (FILE *)(argp1);
4085 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4086 if (!SWIG_IsOK(res2)) {
4087 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_char_fprintf" "', argument " "2"" of type '" "gsl_vector_char const *""'");
4088 }
4089 arg2 = (gsl_vector_char *)(argp2);
4090 res3 = SWIG_AsCharPtrAndSize(ST(2), &buf3, NULL, &alloc3);
4091 if (!SWIG_IsOK(res3)) {
4092 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_vector_char_fprintf" "', argument " "3"" of type '" "char const *""'");
4093 }
4094 arg3 = (char *)(buf3);
4095 result = (int)gsl_vector_char_fprintf(arg1,(gsl_vector_char const *)arg2,(char const *)arg3);
4096 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4097
4098
4099 if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
4100 XSRETURN(argvi);
4101 fail:
4102
4103
4104 if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
4105 SWIG_croak_null();
4106 }
4107 }
4108
4109
XS(_wrap_gsl_vector_char_memcpy)4110 XS(_wrap_gsl_vector_char_memcpy) {
4111 {
4112 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
4113 gsl_vector_char *arg2 = (gsl_vector_char *) 0 ;
4114 void *argp1 = 0 ;
4115 int res1 = 0 ;
4116 void *argp2 = 0 ;
4117 int res2 = 0 ;
4118 int argvi = 0;
4119 int result;
4120 dXSARGS;
4121
4122 if ((items < 2) || (items > 2)) {
4123 SWIG_croak("Usage: gsl_vector_char_memcpy(dest,src);");
4124 }
4125 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4126 if (!SWIG_IsOK(res1)) {
4127 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_memcpy" "', argument " "1"" of type '" "gsl_vector_char *""'");
4128 }
4129 arg1 = (gsl_vector_char *)(argp1);
4130 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4131 if (!SWIG_IsOK(res2)) {
4132 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_char_memcpy" "', argument " "2"" of type '" "gsl_vector_char const *""'");
4133 }
4134 arg2 = (gsl_vector_char *)(argp2);
4135 result = (int)gsl_vector_char_memcpy(arg1,(gsl_vector_char const *)arg2);
4136 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4137
4138
4139 XSRETURN(argvi);
4140 fail:
4141
4142
4143 SWIG_croak_null();
4144 }
4145 }
4146
4147
XS(_wrap_gsl_vector_char_reverse)4148 XS(_wrap_gsl_vector_char_reverse) {
4149 {
4150 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
4151 void *argp1 = 0 ;
4152 int res1 = 0 ;
4153 int argvi = 0;
4154 int result;
4155 dXSARGS;
4156
4157 if ((items < 1) || (items > 1)) {
4158 SWIG_croak("Usage: gsl_vector_char_reverse(v);");
4159 }
4160 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4161 if (!SWIG_IsOK(res1)) {
4162 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_reverse" "', argument " "1"" of type '" "gsl_vector_char *""'");
4163 }
4164 arg1 = (gsl_vector_char *)(argp1);
4165 result = (int)gsl_vector_char_reverse(arg1);
4166 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4167
4168 XSRETURN(argvi);
4169 fail:
4170
4171 SWIG_croak_null();
4172 }
4173 }
4174
4175
XS(_wrap_gsl_vector_char_swap)4176 XS(_wrap_gsl_vector_char_swap) {
4177 {
4178 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
4179 gsl_vector_char *arg2 = (gsl_vector_char *) 0 ;
4180 void *argp1 = 0 ;
4181 int res1 = 0 ;
4182 void *argp2 = 0 ;
4183 int res2 = 0 ;
4184 int argvi = 0;
4185 int result;
4186 dXSARGS;
4187
4188 if ((items < 2) || (items > 2)) {
4189 SWIG_croak("Usage: gsl_vector_char_swap(v,w);");
4190 }
4191 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4192 if (!SWIG_IsOK(res1)) {
4193 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_swap" "', argument " "1"" of type '" "gsl_vector_char *""'");
4194 }
4195 arg1 = (gsl_vector_char *)(argp1);
4196 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4197 if (!SWIG_IsOK(res2)) {
4198 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_char_swap" "', argument " "2"" of type '" "gsl_vector_char *""'");
4199 }
4200 arg2 = (gsl_vector_char *)(argp2);
4201 result = (int)gsl_vector_char_swap(arg1,arg2);
4202 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4203
4204
4205 XSRETURN(argvi);
4206 fail:
4207
4208
4209 SWIG_croak_null();
4210 }
4211 }
4212
4213
XS(_wrap_gsl_vector_char_swap_elements)4214 XS(_wrap_gsl_vector_char_swap_elements) {
4215 {
4216 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
4217 size_t arg2 ;
4218 size_t arg3 ;
4219 void *argp1 = 0 ;
4220 int res1 = 0 ;
4221 size_t val2 ;
4222 int ecode2 = 0 ;
4223 size_t val3 ;
4224 int ecode3 = 0 ;
4225 int argvi = 0;
4226 int result;
4227 dXSARGS;
4228
4229 if ((items < 3) || (items > 3)) {
4230 SWIG_croak("Usage: gsl_vector_char_swap_elements(v,i,j);");
4231 }
4232 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4233 if (!SWIG_IsOK(res1)) {
4234 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_swap_elements" "', argument " "1"" of type '" "gsl_vector_char *""'");
4235 }
4236 arg1 = (gsl_vector_char *)(argp1);
4237 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4238 if (!SWIG_IsOK(ecode2)) {
4239 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_char_swap_elements" "', argument " "2"" of type '" "size_t""'");
4240 }
4241 arg2 = (size_t)(val2);
4242 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
4243 if (!SWIG_IsOK(ecode3)) {
4244 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_char_swap_elements" "', argument " "3"" of type '" "size_t""'");
4245 }
4246 arg3 = (size_t)(val3);
4247 result = (int)gsl_vector_char_swap_elements(arg1,arg2,arg3);
4248 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4249
4250
4251
4252 XSRETURN(argvi);
4253 fail:
4254
4255
4256
4257 SWIG_croak_null();
4258 }
4259 }
4260
4261
XS(_wrap_gsl_vector_char_max)4262 XS(_wrap_gsl_vector_char_max) {
4263 {
4264 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
4265 void *argp1 = 0 ;
4266 int res1 = 0 ;
4267 int argvi = 0;
4268 char result;
4269 dXSARGS;
4270
4271 if ((items < 1) || (items > 1)) {
4272 SWIG_croak("Usage: gsl_vector_char_max(v);");
4273 }
4274 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4275 if (!SWIG_IsOK(res1)) {
4276 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_max" "', argument " "1"" of type '" "gsl_vector_char const *""'");
4277 }
4278 arg1 = (gsl_vector_char *)(argp1);
4279 result = (char)gsl_vector_char_max((gsl_vector_char const *)arg1);
4280 ST(argvi) = SWIG_From_char SWIG_PERL_CALL_ARGS_1((char)(result)); argvi++ ;
4281
4282 XSRETURN(argvi);
4283 fail:
4284
4285 SWIG_croak_null();
4286 }
4287 }
4288
4289
XS(_wrap_gsl_vector_char_min)4290 XS(_wrap_gsl_vector_char_min) {
4291 {
4292 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
4293 void *argp1 = 0 ;
4294 int res1 = 0 ;
4295 int argvi = 0;
4296 char result;
4297 dXSARGS;
4298
4299 if ((items < 1) || (items > 1)) {
4300 SWIG_croak("Usage: gsl_vector_char_min(v);");
4301 }
4302 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4303 if (!SWIG_IsOK(res1)) {
4304 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_min" "', argument " "1"" of type '" "gsl_vector_char const *""'");
4305 }
4306 arg1 = (gsl_vector_char *)(argp1);
4307 result = (char)gsl_vector_char_min((gsl_vector_char const *)arg1);
4308 ST(argvi) = SWIG_From_char SWIG_PERL_CALL_ARGS_1((char)(result)); argvi++ ;
4309
4310 XSRETURN(argvi);
4311 fail:
4312
4313 SWIG_croak_null();
4314 }
4315 }
4316
4317
XS(_wrap_gsl_vector_char_minmax)4318 XS(_wrap_gsl_vector_char_minmax) {
4319 {
4320 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
4321 char *arg2 = (char *) 0 ;
4322 char *arg3 = (char *) 0 ;
4323 void *argp1 = 0 ;
4324 int res1 = 0 ;
4325 int res2 ;
4326 char *buf2 = 0 ;
4327 int alloc2 = 0 ;
4328 int res3 ;
4329 char *buf3 = 0 ;
4330 int alloc3 = 0 ;
4331 int argvi = 0;
4332 dXSARGS;
4333
4334 if ((items < 3) || (items > 3)) {
4335 SWIG_croak("Usage: gsl_vector_char_minmax(v,min_out,max_out);");
4336 }
4337 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4338 if (!SWIG_IsOK(res1)) {
4339 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_minmax" "', argument " "1"" of type '" "gsl_vector_char const *""'");
4340 }
4341 arg1 = (gsl_vector_char *)(argp1);
4342 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
4343 if (!SWIG_IsOK(res2)) {
4344 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_char_minmax" "', argument " "2"" of type '" "char *""'");
4345 }
4346 arg2 = (char *)(buf2);
4347 res3 = SWIG_AsCharPtrAndSize(ST(2), &buf3, NULL, &alloc3);
4348 if (!SWIG_IsOK(res3)) {
4349 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_vector_char_minmax" "', argument " "3"" of type '" "char *""'");
4350 }
4351 arg3 = (char *)(buf3);
4352 gsl_vector_char_minmax((gsl_vector_char const *)arg1,arg2,arg3);
4353 ST(argvi) = &PL_sv_undef;
4354
4355 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
4356 if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
4357 XSRETURN(argvi);
4358 fail:
4359
4360 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
4361 if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
4362 SWIG_croak_null();
4363 }
4364 }
4365
4366
XS(_wrap_gsl_vector_char_max_index)4367 XS(_wrap_gsl_vector_char_max_index) {
4368 {
4369 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
4370 void *argp1 = 0 ;
4371 int res1 = 0 ;
4372 int argvi = 0;
4373 size_t result;
4374 dXSARGS;
4375
4376 if ((items < 1) || (items > 1)) {
4377 SWIG_croak("Usage: gsl_vector_char_max_index(v);");
4378 }
4379 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4380 if (!SWIG_IsOK(res1)) {
4381 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_max_index" "', argument " "1"" of type '" "gsl_vector_char const *""'");
4382 }
4383 arg1 = (gsl_vector_char *)(argp1);
4384 result = gsl_vector_char_max_index((gsl_vector_char const *)arg1);
4385 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
4386
4387 XSRETURN(argvi);
4388 fail:
4389
4390 SWIG_croak_null();
4391 }
4392 }
4393
4394
XS(_wrap_gsl_vector_char_min_index)4395 XS(_wrap_gsl_vector_char_min_index) {
4396 {
4397 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
4398 void *argp1 = 0 ;
4399 int res1 = 0 ;
4400 int argvi = 0;
4401 size_t result;
4402 dXSARGS;
4403
4404 if ((items < 1) || (items > 1)) {
4405 SWIG_croak("Usage: gsl_vector_char_min_index(v);");
4406 }
4407 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4408 if (!SWIG_IsOK(res1)) {
4409 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_min_index" "', argument " "1"" of type '" "gsl_vector_char const *""'");
4410 }
4411 arg1 = (gsl_vector_char *)(argp1);
4412 result = gsl_vector_char_min_index((gsl_vector_char const *)arg1);
4413 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
4414
4415 XSRETURN(argvi);
4416 fail:
4417
4418 SWIG_croak_null();
4419 }
4420 }
4421
4422
XS(_wrap_gsl_vector_char_minmax_index)4423 XS(_wrap_gsl_vector_char_minmax_index) {
4424 {
4425 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
4426 size_t *arg2 = (size_t *) 0 ;
4427 size_t *arg3 = (size_t *) 0 ;
4428 void *argp1 = 0 ;
4429 int res1 = 0 ;
4430 size_t temp2 ;
4431 int res2 = SWIG_TMPOBJ ;
4432 size_t temp3 ;
4433 int res3 = SWIG_TMPOBJ ;
4434 int argvi = 0;
4435 dXSARGS;
4436
4437 arg2 = &temp2;
4438 arg3 = &temp3;
4439 if ((items < 1) || (items > 1)) {
4440 SWIG_croak("Usage: gsl_vector_char_minmax_index(v);");
4441 }
4442 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4443 if (!SWIG_IsOK(res1)) {
4444 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_minmax_index" "', argument " "1"" of type '" "gsl_vector_char const *""'");
4445 }
4446 arg1 = (gsl_vector_char *)(argp1);
4447 gsl_vector_char_minmax_index((gsl_vector_char const *)arg1,arg2,arg3);
4448 ST(argvi) = &PL_sv_undef;
4449 if (SWIG_IsTmpObj(res2)) {
4450 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg2)); argvi++ ;
4451 } else {
4452 int new_flags = SWIG_IsNewObj(res2) ? (SWIG_POINTER_OWN | 0) : 0;
4453 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg2), SWIGTYPE_p_size_t, new_flags); argvi++ ;
4454 }
4455 if (SWIG_IsTmpObj(res3)) {
4456 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg3)); argvi++ ;
4457 } else {
4458 int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN | 0) : 0;
4459 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_size_t, new_flags); argvi++ ;
4460 }
4461
4462
4463
4464 XSRETURN(argvi);
4465 fail:
4466
4467
4468
4469 SWIG_croak_null();
4470 }
4471 }
4472
4473
XS(_wrap_gsl_vector_char_add)4474 XS(_wrap_gsl_vector_char_add) {
4475 {
4476 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
4477 gsl_vector_char *arg2 = (gsl_vector_char *) 0 ;
4478 void *argp1 = 0 ;
4479 int res1 = 0 ;
4480 void *argp2 = 0 ;
4481 int res2 = 0 ;
4482 int argvi = 0;
4483 int result;
4484 dXSARGS;
4485
4486 if ((items < 2) || (items > 2)) {
4487 SWIG_croak("Usage: gsl_vector_char_add(a,b);");
4488 }
4489 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4490 if (!SWIG_IsOK(res1)) {
4491 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_add" "', argument " "1"" of type '" "gsl_vector_char *""'");
4492 }
4493 arg1 = (gsl_vector_char *)(argp1);
4494 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4495 if (!SWIG_IsOK(res2)) {
4496 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_char_add" "', argument " "2"" of type '" "gsl_vector_char const *""'");
4497 }
4498 arg2 = (gsl_vector_char *)(argp2);
4499 result = (int)gsl_vector_char_add(arg1,(gsl_vector_char const *)arg2);
4500 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4501
4502
4503 XSRETURN(argvi);
4504 fail:
4505
4506
4507 SWIG_croak_null();
4508 }
4509 }
4510
4511
XS(_wrap_gsl_vector_char_sub)4512 XS(_wrap_gsl_vector_char_sub) {
4513 {
4514 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
4515 gsl_vector_char *arg2 = (gsl_vector_char *) 0 ;
4516 void *argp1 = 0 ;
4517 int res1 = 0 ;
4518 void *argp2 = 0 ;
4519 int res2 = 0 ;
4520 int argvi = 0;
4521 int result;
4522 dXSARGS;
4523
4524 if ((items < 2) || (items > 2)) {
4525 SWIG_croak("Usage: gsl_vector_char_sub(a,b);");
4526 }
4527 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4528 if (!SWIG_IsOK(res1)) {
4529 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_sub" "', argument " "1"" of type '" "gsl_vector_char *""'");
4530 }
4531 arg1 = (gsl_vector_char *)(argp1);
4532 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4533 if (!SWIG_IsOK(res2)) {
4534 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_char_sub" "', argument " "2"" of type '" "gsl_vector_char const *""'");
4535 }
4536 arg2 = (gsl_vector_char *)(argp2);
4537 result = (int)gsl_vector_char_sub(arg1,(gsl_vector_char const *)arg2);
4538 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4539
4540
4541 XSRETURN(argvi);
4542 fail:
4543
4544
4545 SWIG_croak_null();
4546 }
4547 }
4548
4549
XS(_wrap_gsl_vector_char_mul)4550 XS(_wrap_gsl_vector_char_mul) {
4551 {
4552 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
4553 gsl_vector_char *arg2 = (gsl_vector_char *) 0 ;
4554 void *argp1 = 0 ;
4555 int res1 = 0 ;
4556 void *argp2 = 0 ;
4557 int res2 = 0 ;
4558 int argvi = 0;
4559 int result;
4560 dXSARGS;
4561
4562 if ((items < 2) || (items > 2)) {
4563 SWIG_croak("Usage: gsl_vector_char_mul(a,b);");
4564 }
4565 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4566 if (!SWIG_IsOK(res1)) {
4567 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_mul" "', argument " "1"" of type '" "gsl_vector_char *""'");
4568 }
4569 arg1 = (gsl_vector_char *)(argp1);
4570 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4571 if (!SWIG_IsOK(res2)) {
4572 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_char_mul" "', argument " "2"" of type '" "gsl_vector_char const *""'");
4573 }
4574 arg2 = (gsl_vector_char *)(argp2);
4575 result = (int)gsl_vector_char_mul(arg1,(gsl_vector_char const *)arg2);
4576 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4577
4578
4579 XSRETURN(argvi);
4580 fail:
4581
4582
4583 SWIG_croak_null();
4584 }
4585 }
4586
4587
XS(_wrap_gsl_vector_char_div)4588 XS(_wrap_gsl_vector_char_div) {
4589 {
4590 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
4591 gsl_vector_char *arg2 = (gsl_vector_char *) 0 ;
4592 void *argp1 = 0 ;
4593 int res1 = 0 ;
4594 void *argp2 = 0 ;
4595 int res2 = 0 ;
4596 int argvi = 0;
4597 int result;
4598 dXSARGS;
4599
4600 if ((items < 2) || (items > 2)) {
4601 SWIG_croak("Usage: gsl_vector_char_div(a,b);");
4602 }
4603 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4604 if (!SWIG_IsOK(res1)) {
4605 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_div" "', argument " "1"" of type '" "gsl_vector_char *""'");
4606 }
4607 arg1 = (gsl_vector_char *)(argp1);
4608 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4609 if (!SWIG_IsOK(res2)) {
4610 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_char_div" "', argument " "2"" of type '" "gsl_vector_char const *""'");
4611 }
4612 arg2 = (gsl_vector_char *)(argp2);
4613 result = (int)gsl_vector_char_div(arg1,(gsl_vector_char const *)arg2);
4614 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4615
4616
4617 XSRETURN(argvi);
4618 fail:
4619
4620
4621 SWIG_croak_null();
4622 }
4623 }
4624
4625
XS(_wrap_gsl_vector_char_scale)4626 XS(_wrap_gsl_vector_char_scale) {
4627 {
4628 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
4629 char arg2 ;
4630 void *argp1 = 0 ;
4631 int res1 = 0 ;
4632 char val2 ;
4633 int ecode2 = 0 ;
4634 int argvi = 0;
4635 int result;
4636 dXSARGS;
4637
4638 if ((items < 2) || (items > 2)) {
4639 SWIG_croak("Usage: gsl_vector_char_scale(a,x);");
4640 }
4641 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4642 if (!SWIG_IsOK(res1)) {
4643 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_scale" "', argument " "1"" of type '" "gsl_vector_char *""'");
4644 }
4645 arg1 = (gsl_vector_char *)(argp1);
4646 ecode2 = SWIG_AsVal_char SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4647 if (!SWIG_IsOK(ecode2)) {
4648 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_char_scale" "', argument " "2"" of type '" "char""'");
4649 }
4650 arg2 = (char)(val2);
4651 result = (int)gsl_vector_char_scale(arg1,arg2);
4652 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4653
4654
4655 XSRETURN(argvi);
4656 fail:
4657
4658
4659 SWIG_croak_null();
4660 }
4661 }
4662
4663
XS(_wrap_gsl_vector_char_add_constant)4664 XS(_wrap_gsl_vector_char_add_constant) {
4665 {
4666 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
4667 char arg2 ;
4668 void *argp1 = 0 ;
4669 int res1 = 0 ;
4670 char val2 ;
4671 int ecode2 = 0 ;
4672 int argvi = 0;
4673 int result;
4674 dXSARGS;
4675
4676 if ((items < 2) || (items > 2)) {
4677 SWIG_croak("Usage: gsl_vector_char_add_constant(a,x);");
4678 }
4679 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4680 if (!SWIG_IsOK(res1)) {
4681 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_add_constant" "', argument " "1"" of type '" "gsl_vector_char *""'");
4682 }
4683 arg1 = (gsl_vector_char *)(argp1);
4684 ecode2 = SWIG_AsVal_char SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4685 if (!SWIG_IsOK(ecode2)) {
4686 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_char_add_constant" "', argument " "2"" of type '" "char""'");
4687 }
4688 arg2 = (char)(val2);
4689 result = (int)gsl_vector_char_add_constant(arg1,arg2);
4690 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4691
4692
4693 XSRETURN(argvi);
4694 fail:
4695
4696
4697 SWIG_croak_null();
4698 }
4699 }
4700
4701
XS(_wrap_gsl_vector_char_axpby)4702 XS(_wrap_gsl_vector_char_axpby) {
4703 {
4704 char arg1 ;
4705 gsl_vector_char *arg2 = (gsl_vector_char *) 0 ;
4706 char arg3 ;
4707 gsl_vector_char *arg4 = (gsl_vector_char *) 0 ;
4708 char val1 ;
4709 int ecode1 = 0 ;
4710 void *argp2 = 0 ;
4711 int res2 = 0 ;
4712 char val3 ;
4713 int ecode3 = 0 ;
4714 void *argp4 = 0 ;
4715 int res4 = 0 ;
4716 int argvi = 0;
4717 int result;
4718 dXSARGS;
4719
4720 if ((items < 4) || (items > 4)) {
4721 SWIG_croak("Usage: gsl_vector_char_axpby(alpha,x,beta,y);");
4722 }
4723 ecode1 = SWIG_AsVal_char SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
4724 if (!SWIG_IsOK(ecode1)) {
4725 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_vector_char_axpby" "', argument " "1"" of type '" "char""'");
4726 }
4727 arg1 = (char)(val1);
4728 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4729 if (!SWIG_IsOK(res2)) {
4730 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_char_axpby" "', argument " "2"" of type '" "gsl_vector_char const *""'");
4731 }
4732 arg2 = (gsl_vector_char *)(argp2);
4733 ecode3 = SWIG_AsVal_char SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
4734 if (!SWIG_IsOK(ecode3)) {
4735 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_char_axpby" "', argument " "3"" of type '" "char""'");
4736 }
4737 arg3 = (char)(val3);
4738 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4739 if (!SWIG_IsOK(res4)) {
4740 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_vector_char_axpby" "', argument " "4"" of type '" "gsl_vector_char *""'");
4741 }
4742 arg4 = (gsl_vector_char *)(argp4);
4743 result = (int)gsl_vector_char_axpby(arg1,(gsl_vector_char const *)arg2,arg3,arg4);
4744 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4745
4746
4747
4748
4749 XSRETURN(argvi);
4750 fail:
4751
4752
4753
4754
4755 SWIG_croak_null();
4756 }
4757 }
4758
4759
XS(_wrap_gsl_vector_char_equal)4760 XS(_wrap_gsl_vector_char_equal) {
4761 {
4762 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
4763 gsl_vector_char *arg2 = (gsl_vector_char *) 0 ;
4764 void *argp1 = 0 ;
4765 int res1 = 0 ;
4766 void *argp2 = 0 ;
4767 int res2 = 0 ;
4768 int argvi = 0;
4769 int result;
4770 dXSARGS;
4771
4772 if ((items < 2) || (items > 2)) {
4773 SWIG_croak("Usage: gsl_vector_char_equal(u,v);");
4774 }
4775 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4776 if (!SWIG_IsOK(res1)) {
4777 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_equal" "', argument " "1"" of type '" "gsl_vector_char const *""'");
4778 }
4779 arg1 = (gsl_vector_char *)(argp1);
4780 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4781 if (!SWIG_IsOK(res2)) {
4782 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_char_equal" "', argument " "2"" of type '" "gsl_vector_char const *""'");
4783 }
4784 arg2 = (gsl_vector_char *)(argp2);
4785 result = (int)gsl_vector_char_equal((gsl_vector_char const *)arg1,(gsl_vector_char const *)arg2);
4786 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4787
4788
4789 XSRETURN(argvi);
4790 fail:
4791
4792
4793 SWIG_croak_null();
4794 }
4795 }
4796
4797
XS(_wrap_gsl_vector_char_isnull)4798 XS(_wrap_gsl_vector_char_isnull) {
4799 {
4800 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
4801 void *argp1 = 0 ;
4802 int res1 = 0 ;
4803 int argvi = 0;
4804 int result;
4805 dXSARGS;
4806
4807 if ((items < 1) || (items > 1)) {
4808 SWIG_croak("Usage: gsl_vector_char_isnull(v);");
4809 }
4810 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4811 if (!SWIG_IsOK(res1)) {
4812 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_isnull" "', argument " "1"" of type '" "gsl_vector_char const *""'");
4813 }
4814 arg1 = (gsl_vector_char *)(argp1);
4815 result = (int)gsl_vector_char_isnull((gsl_vector_char const *)arg1);
4816 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4817
4818 XSRETURN(argvi);
4819 fail:
4820
4821 SWIG_croak_null();
4822 }
4823 }
4824
4825
XS(_wrap_gsl_vector_char_ispos)4826 XS(_wrap_gsl_vector_char_ispos) {
4827 {
4828 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
4829 void *argp1 = 0 ;
4830 int res1 = 0 ;
4831 int argvi = 0;
4832 int result;
4833 dXSARGS;
4834
4835 if ((items < 1) || (items > 1)) {
4836 SWIG_croak("Usage: gsl_vector_char_ispos(v);");
4837 }
4838 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4839 if (!SWIG_IsOK(res1)) {
4840 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_ispos" "', argument " "1"" of type '" "gsl_vector_char const *""'");
4841 }
4842 arg1 = (gsl_vector_char *)(argp1);
4843 result = (int)gsl_vector_char_ispos((gsl_vector_char const *)arg1);
4844 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4845
4846 XSRETURN(argvi);
4847 fail:
4848
4849 SWIG_croak_null();
4850 }
4851 }
4852
4853
XS(_wrap_gsl_vector_char_isneg)4854 XS(_wrap_gsl_vector_char_isneg) {
4855 {
4856 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
4857 void *argp1 = 0 ;
4858 int res1 = 0 ;
4859 int argvi = 0;
4860 int result;
4861 dXSARGS;
4862
4863 if ((items < 1) || (items > 1)) {
4864 SWIG_croak("Usage: gsl_vector_char_isneg(v);");
4865 }
4866 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4867 if (!SWIG_IsOK(res1)) {
4868 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_isneg" "', argument " "1"" of type '" "gsl_vector_char const *""'");
4869 }
4870 arg1 = (gsl_vector_char *)(argp1);
4871 result = (int)gsl_vector_char_isneg((gsl_vector_char const *)arg1);
4872 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4873
4874 XSRETURN(argvi);
4875 fail:
4876
4877 SWIG_croak_null();
4878 }
4879 }
4880
4881
XS(_wrap_gsl_vector_char_isnonneg)4882 XS(_wrap_gsl_vector_char_isnonneg) {
4883 {
4884 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
4885 void *argp1 = 0 ;
4886 int res1 = 0 ;
4887 int argvi = 0;
4888 int result;
4889 dXSARGS;
4890
4891 if ((items < 1) || (items > 1)) {
4892 SWIG_croak("Usage: gsl_vector_char_isnonneg(v);");
4893 }
4894 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4895 if (!SWIG_IsOK(res1)) {
4896 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_isnonneg" "', argument " "1"" of type '" "gsl_vector_char const *""'");
4897 }
4898 arg1 = (gsl_vector_char *)(argp1);
4899 result = (int)gsl_vector_char_isnonneg((gsl_vector_char const *)arg1);
4900 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4901
4902 XSRETURN(argvi);
4903 fail:
4904
4905 SWIG_croak_null();
4906 }
4907 }
4908
4909
XS(_wrap_gsl_vector_char_get)4910 XS(_wrap_gsl_vector_char_get) {
4911 {
4912 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
4913 size_t arg2 ;
4914 void *argp1 = 0 ;
4915 int res1 = 0 ;
4916 size_t val2 ;
4917 int ecode2 = 0 ;
4918 int argvi = 0;
4919 char result;
4920 dXSARGS;
4921
4922 if ((items < 2) || (items > 2)) {
4923 SWIG_croak("Usage: gsl_vector_char_get(v,i);");
4924 }
4925 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4926 if (!SWIG_IsOK(res1)) {
4927 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_get" "', argument " "1"" of type '" "gsl_vector_char const *""'");
4928 }
4929 arg1 = (gsl_vector_char *)(argp1);
4930 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4931 if (!SWIG_IsOK(ecode2)) {
4932 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_char_get" "', argument " "2"" of type '" "size_t""'");
4933 }
4934 arg2 = (size_t)(val2);
4935 result = (char)gsl_vector_char_get((gsl_vector_char const *)arg1,arg2);
4936 ST(argvi) = SWIG_From_char SWIG_PERL_CALL_ARGS_1((char)(result)); argvi++ ;
4937
4938
4939 XSRETURN(argvi);
4940 fail:
4941
4942
4943 SWIG_croak_null();
4944 }
4945 }
4946
4947
XS(_wrap_gsl_vector_char_set)4948 XS(_wrap_gsl_vector_char_set) {
4949 {
4950 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
4951 size_t arg2 ;
4952 char arg3 ;
4953 void *argp1 = 0 ;
4954 int res1 = 0 ;
4955 size_t val2 ;
4956 int ecode2 = 0 ;
4957 char val3 ;
4958 int ecode3 = 0 ;
4959 int argvi = 0;
4960 dXSARGS;
4961
4962 if ((items < 3) || (items > 3)) {
4963 SWIG_croak("Usage: gsl_vector_char_set(v,i,x);");
4964 }
4965 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4966 if (!SWIG_IsOK(res1)) {
4967 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_set" "', argument " "1"" of type '" "gsl_vector_char *""'");
4968 }
4969 arg1 = (gsl_vector_char *)(argp1);
4970 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4971 if (!SWIG_IsOK(ecode2)) {
4972 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_char_set" "', argument " "2"" of type '" "size_t""'");
4973 }
4974 arg2 = (size_t)(val2);
4975 ecode3 = SWIG_AsVal_char SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
4976 if (!SWIG_IsOK(ecode3)) {
4977 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_char_set" "', argument " "3"" of type '" "char""'");
4978 }
4979 arg3 = (char)(val3);
4980 gsl_vector_char_set(arg1,arg2,arg3);
4981 ST(argvi) = &PL_sv_undef;
4982
4983
4984
4985 XSRETURN(argvi);
4986 fail:
4987
4988
4989
4990 SWIG_croak_null();
4991 }
4992 }
4993
4994
XS(_wrap_gsl_vector_char_ptr)4995 XS(_wrap_gsl_vector_char_ptr) {
4996 {
4997 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
4998 size_t arg2 ;
4999 void *argp1 = 0 ;
5000 int res1 = 0 ;
5001 size_t val2 ;
5002 int ecode2 = 0 ;
5003 int argvi = 0;
5004 char *result = 0 ;
5005 dXSARGS;
5006
5007 if ((items < 2) || (items > 2)) {
5008 SWIG_croak("Usage: gsl_vector_char_ptr(v,i);");
5009 }
5010 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
5011 if (!SWIG_IsOK(res1)) {
5012 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_ptr" "', argument " "1"" of type '" "gsl_vector_char *""'");
5013 }
5014 arg1 = (gsl_vector_char *)(argp1);
5015 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5016 if (!SWIG_IsOK(ecode2)) {
5017 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_char_ptr" "', argument " "2"" of type '" "size_t""'");
5018 }
5019 arg2 = (size_t)(val2);
5020 result = (char *)gsl_vector_char_ptr(arg1,arg2);
5021 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
5022
5023
5024 XSRETURN(argvi);
5025 fail:
5026
5027
5028 SWIG_croak_null();
5029 }
5030 }
5031
5032
XS(_wrap_gsl_vector_char_const_ptr)5033 XS(_wrap_gsl_vector_char_const_ptr) {
5034 {
5035 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
5036 size_t arg2 ;
5037 void *argp1 = 0 ;
5038 int res1 = 0 ;
5039 size_t val2 ;
5040 int ecode2 = 0 ;
5041 int argvi = 0;
5042 char *result = 0 ;
5043 dXSARGS;
5044
5045 if ((items < 2) || (items > 2)) {
5046 SWIG_croak("Usage: gsl_vector_char_const_ptr(v,i);");
5047 }
5048 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
5049 if (!SWIG_IsOK(res1)) {
5050 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_const_ptr" "', argument " "1"" of type '" "gsl_vector_char const *""'");
5051 }
5052 arg1 = (gsl_vector_char *)(argp1);
5053 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5054 if (!SWIG_IsOK(ecode2)) {
5055 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_char_const_ptr" "', argument " "2"" of type '" "size_t""'");
5056 }
5057 arg2 = (size_t)(val2);
5058 result = (char *)gsl_vector_char_const_ptr((gsl_vector_char const *)arg1,arg2);
5059 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
5060
5061
5062 XSRETURN(argvi);
5063 fail:
5064
5065
5066 SWIG_croak_null();
5067 }
5068 }
5069
5070
XS(_wrap_gsl_vector_complex_size_set)5071 XS(_wrap_gsl_vector_complex_size_set) {
5072 {
5073 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
5074 size_t arg2 ;
5075 void *argp1 = 0 ;
5076 int res1 = 0 ;
5077 size_t val2 ;
5078 int ecode2 = 0 ;
5079 int argvi = 0;
5080 dXSARGS;
5081
5082 if ((items < 2) || (items > 2)) {
5083 SWIG_croak("Usage: gsl_vector_complex_size_set(self,size);");
5084 }
5085 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
5086 if (!SWIG_IsOK(res1)) {
5087 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_size_set" "', argument " "1"" of type '" "gsl_vector_complex *""'");
5088 }
5089 arg1 = (gsl_vector_complex *)(argp1);
5090 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5091 if (!SWIG_IsOK(ecode2)) {
5092 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_complex_size_set" "', argument " "2"" of type '" "size_t""'");
5093 }
5094 arg2 = (size_t)(val2);
5095 if (arg1) (arg1)->size = arg2;
5096 ST(argvi) = &PL_sv_undef;
5097
5098
5099 XSRETURN(argvi);
5100 fail:
5101
5102
5103 SWIG_croak_null();
5104 }
5105 }
5106
5107
XS(_wrap_gsl_vector_complex_size_get)5108 XS(_wrap_gsl_vector_complex_size_get) {
5109 {
5110 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
5111 void *argp1 = 0 ;
5112 int res1 = 0 ;
5113 int argvi = 0;
5114 size_t result;
5115 dXSARGS;
5116
5117 if ((items < 1) || (items > 1)) {
5118 SWIG_croak("Usage: gsl_vector_complex_size_get(self);");
5119 }
5120 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
5121 if (!SWIG_IsOK(res1)) {
5122 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_size_get" "', argument " "1"" of type '" "gsl_vector_complex *""'");
5123 }
5124 arg1 = (gsl_vector_complex *)(argp1);
5125 result = ((arg1)->size);
5126 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
5127
5128 XSRETURN(argvi);
5129 fail:
5130
5131 SWIG_croak_null();
5132 }
5133 }
5134
5135
XS(_wrap_gsl_vector_complex_stride_set)5136 XS(_wrap_gsl_vector_complex_stride_set) {
5137 {
5138 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
5139 size_t arg2 ;
5140 void *argp1 = 0 ;
5141 int res1 = 0 ;
5142 size_t val2 ;
5143 int ecode2 = 0 ;
5144 int argvi = 0;
5145 dXSARGS;
5146
5147 if ((items < 2) || (items > 2)) {
5148 SWIG_croak("Usage: gsl_vector_complex_stride_set(self,stride);");
5149 }
5150 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
5151 if (!SWIG_IsOK(res1)) {
5152 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_stride_set" "', argument " "1"" of type '" "gsl_vector_complex *""'");
5153 }
5154 arg1 = (gsl_vector_complex *)(argp1);
5155 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5156 if (!SWIG_IsOK(ecode2)) {
5157 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_complex_stride_set" "', argument " "2"" of type '" "size_t""'");
5158 }
5159 arg2 = (size_t)(val2);
5160 if (arg1) (arg1)->stride = arg2;
5161 ST(argvi) = &PL_sv_undef;
5162
5163
5164 XSRETURN(argvi);
5165 fail:
5166
5167
5168 SWIG_croak_null();
5169 }
5170 }
5171
5172
XS(_wrap_gsl_vector_complex_stride_get)5173 XS(_wrap_gsl_vector_complex_stride_get) {
5174 {
5175 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
5176 void *argp1 = 0 ;
5177 int res1 = 0 ;
5178 int argvi = 0;
5179 size_t result;
5180 dXSARGS;
5181
5182 if ((items < 1) || (items > 1)) {
5183 SWIG_croak("Usage: gsl_vector_complex_stride_get(self);");
5184 }
5185 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
5186 if (!SWIG_IsOK(res1)) {
5187 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_stride_get" "', argument " "1"" of type '" "gsl_vector_complex *""'");
5188 }
5189 arg1 = (gsl_vector_complex *)(argp1);
5190 result = ((arg1)->stride);
5191 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
5192
5193 XSRETURN(argvi);
5194 fail:
5195
5196 SWIG_croak_null();
5197 }
5198 }
5199
5200
XS(_wrap_gsl_vector_complex_data_set)5201 XS(_wrap_gsl_vector_complex_data_set) {
5202 {
5203 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
5204 double *arg2 = (double *) 0 ;
5205 void *argp1 = 0 ;
5206 int res1 = 0 ;
5207 int argvi = 0;
5208 dXSARGS;
5209
5210 if ((items < 2) || (items > 2)) {
5211 SWIG_croak("Usage: gsl_vector_complex_data_set(self,data);");
5212 }
5213 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
5214 if (!SWIG_IsOK(res1)) {
5215 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_data_set" "', argument " "1"" of type '" "gsl_vector_complex *""'");
5216 }
5217 arg1 = (gsl_vector_complex *)(argp1);
5218 {
5219 AV *tempav;
5220 I32 len;
5221 int i;
5222 SV **tv;
5223 if (!SvROK(ST(1)))
5224 croak("Math::GSL : $data is not a reference!");
5225 if (SvTYPE(SvRV(ST(1))) != SVt_PVAV)
5226 croak("Math::GSL : $data is not an array ref!");
5227
5228 tempav = (AV*)SvRV(ST(1));
5229 len = av_len(tempav);
5230 arg2 = (double *) malloc((len+2)*sizeof(double));
5231 for (i = 0; i <= len; i++) {
5232 tv = av_fetch(tempav, i, 0);
5233 arg2[i] = (double) SvNV(*tv);
5234 }
5235 }
5236 if (arg1) (arg1)->data = arg2;
5237 ST(argvi) = &PL_sv_undef;
5238
5239 {
5240 if (arg2) free(arg2);
5241 }
5242 XSRETURN(argvi);
5243 fail:
5244
5245 {
5246 if (arg2) free(arg2);
5247 }
5248 SWIG_croak_null();
5249 }
5250 }
5251
5252
XS(_wrap_gsl_vector_complex_data_get)5253 XS(_wrap_gsl_vector_complex_data_get) {
5254 {
5255 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
5256 void *argp1 = 0 ;
5257 int res1 = 0 ;
5258 int argvi = 0;
5259 double *result = 0 ;
5260 dXSARGS;
5261
5262 if ((items < 1) || (items > 1)) {
5263 SWIG_croak("Usage: gsl_vector_complex_data_get(self);");
5264 }
5265 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
5266 if (!SWIG_IsOK(res1)) {
5267 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_data_get" "', argument " "1"" of type '" "gsl_vector_complex *""'");
5268 }
5269 arg1 = (gsl_vector_complex *)(argp1);
5270 result = (double *) ((arg1)->data);
5271 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
5272
5273 XSRETURN(argvi);
5274 fail:
5275
5276 SWIG_croak_null();
5277 }
5278 }
5279
5280
XS(_wrap_gsl_vector_complex_block_set)5281 XS(_wrap_gsl_vector_complex_block_set) {
5282 {
5283 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
5284 gsl_block_complex *arg2 = (gsl_block_complex *) 0 ;
5285 void *argp1 = 0 ;
5286 int res1 = 0 ;
5287 void *argp2 = 0 ;
5288 int res2 = 0 ;
5289 int argvi = 0;
5290 dXSARGS;
5291
5292 if ((items < 2) || (items > 2)) {
5293 SWIG_croak("Usage: gsl_vector_complex_block_set(self,block);");
5294 }
5295 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
5296 if (!SWIG_IsOK(res1)) {
5297 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_block_set" "', argument " "1"" of type '" "gsl_vector_complex *""'");
5298 }
5299 arg1 = (gsl_vector_complex *)(argp1);
5300 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_block_complex, SWIG_POINTER_DISOWN | 0 );
5301 if (!SWIG_IsOK(res2)) {
5302 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_complex_block_set" "', argument " "2"" of type '" "gsl_block_complex *""'");
5303 }
5304 arg2 = (gsl_block_complex *)(argp2);
5305 if (arg1) (arg1)->block = arg2;
5306 ST(argvi) = &PL_sv_undef;
5307
5308
5309 XSRETURN(argvi);
5310 fail:
5311
5312
5313 SWIG_croak_null();
5314 }
5315 }
5316
5317
XS(_wrap_gsl_vector_complex_block_get)5318 XS(_wrap_gsl_vector_complex_block_get) {
5319 {
5320 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
5321 void *argp1 = 0 ;
5322 int res1 = 0 ;
5323 int argvi = 0;
5324 gsl_block_complex *result = 0 ;
5325 dXSARGS;
5326
5327 if ((items < 1) || (items > 1)) {
5328 SWIG_croak("Usage: gsl_vector_complex_block_get(self);");
5329 }
5330 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
5331 if (!SWIG_IsOK(res1)) {
5332 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_block_get" "', argument " "1"" of type '" "gsl_vector_complex *""'");
5333 }
5334 arg1 = (gsl_vector_complex *)(argp1);
5335 result = (gsl_block_complex *) ((arg1)->block);
5336 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_block_complex, 0 | 0); argvi++ ;
5337
5338 XSRETURN(argvi);
5339 fail:
5340
5341 SWIG_croak_null();
5342 }
5343 }
5344
5345
XS(_wrap_gsl_vector_complex_owner_set)5346 XS(_wrap_gsl_vector_complex_owner_set) {
5347 {
5348 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
5349 int arg2 ;
5350 void *argp1 = 0 ;
5351 int res1 = 0 ;
5352 int val2 ;
5353 int ecode2 = 0 ;
5354 int argvi = 0;
5355 dXSARGS;
5356
5357 if ((items < 2) || (items > 2)) {
5358 SWIG_croak("Usage: gsl_vector_complex_owner_set(self,owner);");
5359 }
5360 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
5361 if (!SWIG_IsOK(res1)) {
5362 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_owner_set" "', argument " "1"" of type '" "gsl_vector_complex *""'");
5363 }
5364 arg1 = (gsl_vector_complex *)(argp1);
5365 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5366 if (!SWIG_IsOK(ecode2)) {
5367 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_complex_owner_set" "', argument " "2"" of type '" "int""'");
5368 }
5369 arg2 = (int)(val2);
5370 if (arg1) (arg1)->owner = arg2;
5371 ST(argvi) = &PL_sv_undef;
5372
5373
5374 XSRETURN(argvi);
5375 fail:
5376
5377
5378 SWIG_croak_null();
5379 }
5380 }
5381
5382
XS(_wrap_gsl_vector_complex_owner_get)5383 XS(_wrap_gsl_vector_complex_owner_get) {
5384 {
5385 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
5386 void *argp1 = 0 ;
5387 int res1 = 0 ;
5388 int argvi = 0;
5389 int result;
5390 dXSARGS;
5391
5392 if ((items < 1) || (items > 1)) {
5393 SWIG_croak("Usage: gsl_vector_complex_owner_get(self);");
5394 }
5395 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
5396 if (!SWIG_IsOK(res1)) {
5397 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_owner_get" "', argument " "1"" of type '" "gsl_vector_complex *""'");
5398 }
5399 arg1 = (gsl_vector_complex *)(argp1);
5400 result = (int) ((arg1)->owner);
5401 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5402
5403 XSRETURN(argvi);
5404 fail:
5405
5406 SWIG_croak_null();
5407 }
5408 }
5409
5410
XS(_wrap_new_gsl_vector_complex)5411 XS(_wrap_new_gsl_vector_complex) {
5412 {
5413 int argvi = 0;
5414 gsl_vector_complex *result = 0 ;
5415 dXSARGS;
5416
5417 if ((items < 0) || (items > 0)) {
5418 SWIG_croak("Usage: new_gsl_vector_complex();");
5419 }
5420 result = (gsl_vector_complex *)calloc(1, sizeof(gsl_vector_complex));
5421 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector_complex, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
5422 XSRETURN(argvi);
5423 fail:
5424 SWIG_croak_null();
5425 }
5426 }
5427
5428
XS(_wrap_delete_gsl_vector_complex)5429 XS(_wrap_delete_gsl_vector_complex) {
5430 {
5431 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
5432 void *argp1 = 0 ;
5433 int res1 = 0 ;
5434 int argvi = 0;
5435 dXSARGS;
5436
5437 if ((items < 1) || (items > 1)) {
5438 SWIG_croak("Usage: delete_gsl_vector_complex(self);");
5439 }
5440 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, SWIG_POINTER_DISOWN | 0 );
5441 if (!SWIG_IsOK(res1)) {
5442 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_vector_complex" "', argument " "1"" of type '" "gsl_vector_complex *""'");
5443 }
5444 arg1 = (gsl_vector_complex *)(argp1);
5445 free((char *) arg1);
5446 ST(argvi) = &PL_sv_undef;
5447
5448 XSRETURN(argvi);
5449 fail:
5450
5451 SWIG_croak_null();
5452 }
5453 }
5454
5455
XS(_wrap__gsl_vector_complex_view_vector_set)5456 XS(_wrap__gsl_vector_complex_view_vector_set) {
5457 {
5458 _gsl_vector_complex_view *arg1 = (_gsl_vector_complex_view *) 0 ;
5459 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
5460 void *argp1 = 0 ;
5461 int res1 = 0 ;
5462 void *argp2 = 0 ;
5463 int res2 = 0 ;
5464 int argvi = 0;
5465 dXSARGS;
5466
5467 if ((items < 2) || (items > 2)) {
5468 SWIG_croak("Usage: _gsl_vector_complex_view_vector_set(self,vector);");
5469 }
5470 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_complex_view, 0 | 0 );
5471 if (!SWIG_IsOK(res1)) {
5472 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "_gsl_vector_complex_view_vector_set" "', argument " "1"" of type '" "_gsl_vector_complex_view *""'");
5473 }
5474 arg1 = (_gsl_vector_complex_view *)(argp1);
5475 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
5476 if (!SWIG_IsOK(res2)) {
5477 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "_gsl_vector_complex_view_vector_set" "', argument " "2"" of type '" "gsl_vector_complex *""'");
5478 }
5479 arg2 = (gsl_vector_complex *)(argp2);
5480 if (arg1) (arg1)->vector = *arg2;
5481 ST(argvi) = &PL_sv_undef;
5482
5483
5484 XSRETURN(argvi);
5485 fail:
5486
5487
5488 SWIG_croak_null();
5489 }
5490 }
5491
5492
XS(_wrap__gsl_vector_complex_view_vector_get)5493 XS(_wrap__gsl_vector_complex_view_vector_get) {
5494 {
5495 _gsl_vector_complex_view *arg1 = (_gsl_vector_complex_view *) 0 ;
5496 void *argp1 = 0 ;
5497 int res1 = 0 ;
5498 int argvi = 0;
5499 gsl_vector_complex *result = 0 ;
5500 dXSARGS;
5501
5502 if ((items < 1) || (items > 1)) {
5503 SWIG_croak("Usage: _gsl_vector_complex_view_vector_get(self);");
5504 }
5505 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_complex_view, 0 | 0 );
5506 if (!SWIG_IsOK(res1)) {
5507 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "_gsl_vector_complex_view_vector_get" "', argument " "1"" of type '" "_gsl_vector_complex_view *""'");
5508 }
5509 arg1 = (_gsl_vector_complex_view *)(argp1);
5510 result = (gsl_vector_complex *)& ((arg1)->vector);
5511 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector_complex, 0 | SWIG_SHADOW); argvi++ ;
5512
5513 XSRETURN(argvi);
5514 fail:
5515
5516 SWIG_croak_null();
5517 }
5518 }
5519
5520
XS(_wrap_new__gsl_vector_complex_view)5521 XS(_wrap_new__gsl_vector_complex_view) {
5522 {
5523 int argvi = 0;
5524 _gsl_vector_complex_view *result = 0 ;
5525 dXSARGS;
5526
5527 if ((items < 0) || (items > 0)) {
5528 SWIG_croak("Usage: new__gsl_vector_complex_view();");
5529 }
5530 result = (_gsl_vector_complex_view *)calloc(1, sizeof(_gsl_vector_complex_view));
5531 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p__gsl_vector_complex_view, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
5532 XSRETURN(argvi);
5533 fail:
5534 SWIG_croak_null();
5535 }
5536 }
5537
5538
XS(_wrap_delete__gsl_vector_complex_view)5539 XS(_wrap_delete__gsl_vector_complex_view) {
5540 {
5541 _gsl_vector_complex_view *arg1 = (_gsl_vector_complex_view *) 0 ;
5542 void *argp1 = 0 ;
5543 int res1 = 0 ;
5544 int argvi = 0;
5545 dXSARGS;
5546
5547 if ((items < 1) || (items > 1)) {
5548 SWIG_croak("Usage: delete__gsl_vector_complex_view(self);");
5549 }
5550 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_complex_view, SWIG_POINTER_DISOWN | 0 );
5551 if (!SWIG_IsOK(res1)) {
5552 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete__gsl_vector_complex_view" "', argument " "1"" of type '" "_gsl_vector_complex_view *""'");
5553 }
5554 arg1 = (_gsl_vector_complex_view *)(argp1);
5555 free((char *) arg1);
5556 ST(argvi) = &PL_sv_undef;
5557
5558 XSRETURN(argvi);
5559 fail:
5560
5561 SWIG_croak_null();
5562 }
5563 }
5564
5565
XS(_wrap__gsl_vector_complex_const_view_vector_set)5566 XS(_wrap__gsl_vector_complex_const_view_vector_set) {
5567 {
5568 _gsl_vector_complex_const_view *arg1 = (_gsl_vector_complex_const_view *) 0 ;
5569 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
5570 void *argp1 = 0 ;
5571 int res1 = 0 ;
5572 void *argp2 = 0 ;
5573 int res2 = 0 ;
5574 int argvi = 0;
5575 dXSARGS;
5576
5577 if ((items < 2) || (items > 2)) {
5578 SWIG_croak("Usage: _gsl_vector_complex_const_view_vector_set(self,vector);");
5579 }
5580 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_complex_const_view, 0 | 0 );
5581 if (!SWIG_IsOK(res1)) {
5582 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "_gsl_vector_complex_const_view_vector_set" "', argument " "1"" of type '" "_gsl_vector_complex_const_view *""'");
5583 }
5584 arg1 = (_gsl_vector_complex_const_view *)(argp1);
5585 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
5586 if (!SWIG_IsOK(res2)) {
5587 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "_gsl_vector_complex_const_view_vector_set" "', argument " "2"" of type '" "gsl_vector_complex *""'");
5588 }
5589 arg2 = (gsl_vector_complex *)(argp2);
5590 if (arg1) (arg1)->vector = *arg2;
5591 ST(argvi) = &PL_sv_undef;
5592
5593
5594 XSRETURN(argvi);
5595 fail:
5596
5597
5598 SWIG_croak_null();
5599 }
5600 }
5601
5602
XS(_wrap__gsl_vector_complex_const_view_vector_get)5603 XS(_wrap__gsl_vector_complex_const_view_vector_get) {
5604 {
5605 _gsl_vector_complex_const_view *arg1 = (_gsl_vector_complex_const_view *) 0 ;
5606 void *argp1 = 0 ;
5607 int res1 = 0 ;
5608 int argvi = 0;
5609 gsl_vector_complex *result = 0 ;
5610 dXSARGS;
5611
5612 if ((items < 1) || (items > 1)) {
5613 SWIG_croak("Usage: _gsl_vector_complex_const_view_vector_get(self);");
5614 }
5615 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_complex_const_view, 0 | 0 );
5616 if (!SWIG_IsOK(res1)) {
5617 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "_gsl_vector_complex_const_view_vector_get" "', argument " "1"" of type '" "_gsl_vector_complex_const_view *""'");
5618 }
5619 arg1 = (_gsl_vector_complex_const_view *)(argp1);
5620 result = (gsl_vector_complex *)& ((arg1)->vector);
5621 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector_complex, 0 | SWIG_SHADOW); argvi++ ;
5622
5623 XSRETURN(argvi);
5624 fail:
5625
5626 SWIG_croak_null();
5627 }
5628 }
5629
5630
XS(_wrap_new__gsl_vector_complex_const_view)5631 XS(_wrap_new__gsl_vector_complex_const_view) {
5632 {
5633 int argvi = 0;
5634 _gsl_vector_complex_const_view *result = 0 ;
5635 dXSARGS;
5636
5637 if ((items < 0) || (items > 0)) {
5638 SWIG_croak("Usage: new__gsl_vector_complex_const_view();");
5639 }
5640 result = (_gsl_vector_complex_const_view *)calloc(1, sizeof(_gsl_vector_complex_const_view));
5641 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p__gsl_vector_complex_const_view, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
5642 XSRETURN(argvi);
5643 fail:
5644 SWIG_croak_null();
5645 }
5646 }
5647
5648
XS(_wrap_delete__gsl_vector_complex_const_view)5649 XS(_wrap_delete__gsl_vector_complex_const_view) {
5650 {
5651 _gsl_vector_complex_const_view *arg1 = (_gsl_vector_complex_const_view *) 0 ;
5652 void *argp1 = 0 ;
5653 int res1 = 0 ;
5654 int argvi = 0;
5655 dXSARGS;
5656
5657 if ((items < 1) || (items > 1)) {
5658 SWIG_croak("Usage: delete__gsl_vector_complex_const_view(self);");
5659 }
5660 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_complex_const_view, SWIG_POINTER_DISOWN | 0 );
5661 if (!SWIG_IsOK(res1)) {
5662 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete__gsl_vector_complex_const_view" "', argument " "1"" of type '" "_gsl_vector_complex_const_view *""'");
5663 }
5664 arg1 = (_gsl_vector_complex_const_view *)(argp1);
5665 free((char *) arg1);
5666 ST(argvi) = &PL_sv_undef;
5667
5668 XSRETURN(argvi);
5669 fail:
5670
5671 SWIG_croak_null();
5672 }
5673 }
5674
5675
XS(_wrap_gsl_vector_complex_alloc)5676 XS(_wrap_gsl_vector_complex_alloc) {
5677 {
5678 size_t arg1 ;
5679 size_t val1 ;
5680 int ecode1 = 0 ;
5681 int argvi = 0;
5682 gsl_vector_complex *result = 0 ;
5683 dXSARGS;
5684
5685 if ((items < 1) || (items > 1)) {
5686 SWIG_croak("Usage: gsl_vector_complex_alloc(n);");
5687 }
5688 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
5689 if (!SWIG_IsOK(ecode1)) {
5690 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_vector_complex_alloc" "', argument " "1"" of type '" "size_t""'");
5691 }
5692 arg1 = (size_t)(val1);
5693 result = (gsl_vector_complex *)gsl_vector_complex_alloc(arg1);
5694 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector_complex, 0 | SWIG_SHADOW); argvi++ ;
5695
5696 XSRETURN(argvi);
5697 fail:
5698
5699 SWIG_croak_null();
5700 }
5701 }
5702
5703
XS(_wrap_gsl_vector_complex_calloc)5704 XS(_wrap_gsl_vector_complex_calloc) {
5705 {
5706 size_t arg1 ;
5707 size_t val1 ;
5708 int ecode1 = 0 ;
5709 int argvi = 0;
5710 gsl_vector_complex *result = 0 ;
5711 dXSARGS;
5712
5713 if ((items < 1) || (items > 1)) {
5714 SWIG_croak("Usage: gsl_vector_complex_calloc(n);");
5715 }
5716 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
5717 if (!SWIG_IsOK(ecode1)) {
5718 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_vector_complex_calloc" "', argument " "1"" of type '" "size_t""'");
5719 }
5720 arg1 = (size_t)(val1);
5721 result = (gsl_vector_complex *)gsl_vector_complex_calloc(arg1);
5722 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector_complex, 0 | SWIG_SHADOW); argvi++ ;
5723
5724 XSRETURN(argvi);
5725 fail:
5726
5727 SWIG_croak_null();
5728 }
5729 }
5730
5731
XS(_wrap_gsl_vector_complex_alloc_from_block)5732 XS(_wrap_gsl_vector_complex_alloc_from_block) {
5733 {
5734 gsl_block_complex *arg1 = (gsl_block_complex *) 0 ;
5735 size_t arg2 ;
5736 size_t arg3 ;
5737 size_t arg4 ;
5738 void *argp1 = 0 ;
5739 int res1 = 0 ;
5740 size_t val2 ;
5741 int ecode2 = 0 ;
5742 size_t val3 ;
5743 int ecode3 = 0 ;
5744 size_t val4 ;
5745 int ecode4 = 0 ;
5746 int argvi = 0;
5747 gsl_vector_complex *result = 0 ;
5748 dXSARGS;
5749
5750 if ((items < 4) || (items > 4)) {
5751 SWIG_croak("Usage: gsl_vector_complex_alloc_from_block(b,offset,n,stride);");
5752 }
5753 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_block_complex, 0 | 0 );
5754 if (!SWIG_IsOK(res1)) {
5755 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_alloc_from_block" "', argument " "1"" of type '" "gsl_block_complex *""'");
5756 }
5757 arg1 = (gsl_block_complex *)(argp1);
5758 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5759 if (!SWIG_IsOK(ecode2)) {
5760 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_complex_alloc_from_block" "', argument " "2"" of type '" "size_t""'");
5761 }
5762 arg2 = (size_t)(val2);
5763 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
5764 if (!SWIG_IsOK(ecode3)) {
5765 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_complex_alloc_from_block" "', argument " "3"" of type '" "size_t""'");
5766 }
5767 arg3 = (size_t)(val3);
5768 ecode4 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
5769 if (!SWIG_IsOK(ecode4)) {
5770 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_vector_complex_alloc_from_block" "', argument " "4"" of type '" "size_t""'");
5771 }
5772 arg4 = (size_t)(val4);
5773 result = (gsl_vector_complex *)gsl_vector_complex_alloc_from_block(arg1,arg2,arg3,arg4);
5774 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector_complex, 0 | SWIG_SHADOW); argvi++ ;
5775
5776
5777
5778
5779 XSRETURN(argvi);
5780 fail:
5781
5782
5783
5784
5785 SWIG_croak_null();
5786 }
5787 }
5788
5789
XS(_wrap_gsl_vector_complex_alloc_from_vector)5790 XS(_wrap_gsl_vector_complex_alloc_from_vector) {
5791 {
5792 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
5793 size_t arg2 ;
5794 size_t arg3 ;
5795 size_t arg4 ;
5796 void *argp1 = 0 ;
5797 int res1 = 0 ;
5798 size_t val2 ;
5799 int ecode2 = 0 ;
5800 size_t val3 ;
5801 int ecode3 = 0 ;
5802 size_t val4 ;
5803 int ecode4 = 0 ;
5804 int argvi = 0;
5805 gsl_vector_complex *result = 0 ;
5806 dXSARGS;
5807
5808 if ((items < 4) || (items > 4)) {
5809 SWIG_croak("Usage: gsl_vector_complex_alloc_from_vector(v,offset,n,stride);");
5810 }
5811 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
5812 if (!SWIG_IsOK(res1)) {
5813 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_alloc_from_vector" "', argument " "1"" of type '" "gsl_vector_complex *""'");
5814 }
5815 arg1 = (gsl_vector_complex *)(argp1);
5816 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5817 if (!SWIG_IsOK(ecode2)) {
5818 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_complex_alloc_from_vector" "', argument " "2"" of type '" "size_t""'");
5819 }
5820 arg2 = (size_t)(val2);
5821 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
5822 if (!SWIG_IsOK(ecode3)) {
5823 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_complex_alloc_from_vector" "', argument " "3"" of type '" "size_t""'");
5824 }
5825 arg3 = (size_t)(val3);
5826 ecode4 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
5827 if (!SWIG_IsOK(ecode4)) {
5828 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_vector_complex_alloc_from_vector" "', argument " "4"" of type '" "size_t""'");
5829 }
5830 arg4 = (size_t)(val4);
5831 result = (gsl_vector_complex *)gsl_vector_complex_alloc_from_vector(arg1,arg2,arg3,arg4);
5832 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector_complex, 0 | SWIG_SHADOW); argvi++ ;
5833
5834
5835
5836
5837 XSRETURN(argvi);
5838 fail:
5839
5840
5841
5842
5843 SWIG_croak_null();
5844 }
5845 }
5846
5847
XS(_wrap_gsl_vector_complex_free)5848 XS(_wrap_gsl_vector_complex_free) {
5849 {
5850 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
5851 void *argp1 = 0 ;
5852 int res1 = 0 ;
5853 int argvi = 0;
5854 dXSARGS;
5855
5856 if ((items < 1) || (items > 1)) {
5857 SWIG_croak("Usage: gsl_vector_complex_free(v);");
5858 }
5859 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
5860 if (!SWIG_IsOK(res1)) {
5861 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_free" "', argument " "1"" of type '" "gsl_vector_complex *""'");
5862 }
5863 arg1 = (gsl_vector_complex *)(argp1);
5864 gsl_vector_complex_free(arg1);
5865 ST(argvi) = &PL_sv_undef;
5866
5867 XSRETURN(argvi);
5868 fail:
5869
5870 SWIG_croak_null();
5871 }
5872 }
5873
5874
XS(_wrap_gsl_vector_complex_view_array)5875 XS(_wrap_gsl_vector_complex_view_array) {
5876 {
5877 double *arg1 = (double *) 0 ;
5878 size_t arg2 ;
5879 size_t val2 ;
5880 int ecode2 = 0 ;
5881 int argvi = 0;
5882 _gsl_vector_complex_view result;
5883 dXSARGS;
5884
5885 if ((items < 2) || (items > 2)) {
5886 SWIG_croak("Usage: gsl_vector_complex_view_array(base,n);");
5887 }
5888 {
5889 AV *tempav;
5890 I32 len;
5891 int i;
5892 SV **tv;
5893 if (!SvROK(ST(0)))
5894 croak("Math::GSL : $base is not a reference!");
5895 if (SvTYPE(SvRV(ST(0))) != SVt_PVAV)
5896 croak("Math::GSL : $base is not an array ref!");
5897
5898 tempav = (AV*)SvRV(ST(0));
5899 len = av_len(tempav);
5900 arg1 = (double *) malloc((len+2)*sizeof(double));
5901 for (i = 0; i <= len; i++) {
5902 tv = av_fetch(tempav, i, 0);
5903 arg1[i] = (double) SvNV(*tv);
5904 }
5905 }
5906 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5907 if (!SWIG_IsOK(ecode2)) {
5908 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_complex_view_array" "', argument " "2"" of type '" "size_t""'");
5909 }
5910 arg2 = (size_t)(val2);
5911 result = gsl_vector_complex_view_array(arg1,arg2);
5912 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 | SWIG_SHADOW); argvi++ ;
5913 {
5914 if (arg1) free(arg1);
5915 }
5916
5917 XSRETURN(argvi);
5918 fail:
5919 {
5920 if (arg1) free(arg1);
5921 }
5922
5923 SWIG_croak_null();
5924 }
5925 }
5926
5927
XS(_wrap_gsl_vector_complex_view_array_with_stride)5928 XS(_wrap_gsl_vector_complex_view_array_with_stride) {
5929 {
5930 double *arg1 = (double *) 0 ;
5931 size_t arg2 ;
5932 size_t arg3 ;
5933 size_t val2 ;
5934 int ecode2 = 0 ;
5935 size_t val3 ;
5936 int ecode3 = 0 ;
5937 int argvi = 0;
5938 _gsl_vector_complex_view result;
5939 dXSARGS;
5940
5941 if ((items < 3) || (items > 3)) {
5942 SWIG_croak("Usage: gsl_vector_complex_view_array_with_stride(base,stride,n);");
5943 }
5944 {
5945 AV *tempav;
5946 I32 len;
5947 int i;
5948 SV **tv;
5949 if (!SvROK(ST(0)))
5950 croak("Math::GSL : $base is not a reference!");
5951 if (SvTYPE(SvRV(ST(0))) != SVt_PVAV)
5952 croak("Math::GSL : $base is not an array ref!");
5953
5954 tempav = (AV*)SvRV(ST(0));
5955 len = av_len(tempav);
5956 arg1 = (double *) malloc((len+2)*sizeof(double));
5957 for (i = 0; i <= len; i++) {
5958 tv = av_fetch(tempav, i, 0);
5959 arg1[i] = (double) SvNV(*tv);
5960 }
5961 }
5962 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5963 if (!SWIG_IsOK(ecode2)) {
5964 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_complex_view_array_with_stride" "', argument " "2"" of type '" "size_t""'");
5965 }
5966 arg2 = (size_t)(val2);
5967 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
5968 if (!SWIG_IsOK(ecode3)) {
5969 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_complex_view_array_with_stride" "', argument " "3"" of type '" "size_t""'");
5970 }
5971 arg3 = (size_t)(val3);
5972 result = gsl_vector_complex_view_array_with_stride(arg1,arg2,arg3);
5973 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 | SWIG_SHADOW); argvi++ ;
5974 {
5975 if (arg1) free(arg1);
5976 }
5977
5978
5979 XSRETURN(argvi);
5980 fail:
5981 {
5982 if (arg1) free(arg1);
5983 }
5984
5985
5986 SWIG_croak_null();
5987 }
5988 }
5989
5990
XS(_wrap_gsl_vector_complex_const_view_array)5991 XS(_wrap_gsl_vector_complex_const_view_array) {
5992 {
5993 double *arg1 = (double *) 0 ;
5994 size_t arg2 ;
5995 size_t val2 ;
5996 int ecode2 = 0 ;
5997 int argvi = 0;
5998 _gsl_vector_complex_const_view result;
5999 dXSARGS;
6000
6001 if ((items < 2) || (items > 2)) {
6002 SWIG_croak("Usage: gsl_vector_complex_const_view_array(base,n);");
6003 }
6004 {
6005 AV *tempav;
6006 I32 len;
6007 int i;
6008 SV **tv;
6009 if (!SvROK(ST(0)))
6010 croak("Math::GSL : $base is not a reference!");
6011 if (SvTYPE(SvRV(ST(0))) != SVt_PVAV)
6012 croak("Math::GSL : $base is not an array ref!");
6013
6014 tempav = (AV*)SvRV(ST(0));
6015 len = av_len(tempav);
6016 arg1 = (double *) malloc((len+2)*sizeof(double));
6017 for (i = 0; i <= len; i++) {
6018 tv = av_fetch(tempav, i, 0);
6019 arg1[i] = (double) SvNV(*tv);
6020 }
6021 }
6022 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6023 if (!SWIG_IsOK(ecode2)) {
6024 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_complex_const_view_array" "', argument " "2"" of type '" "size_t""'");
6025 }
6026 arg2 = (size_t)(val2);
6027 result = gsl_vector_complex_const_view_array((double const *)arg1,arg2);
6028 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 | SWIG_SHADOW); argvi++ ;
6029 {
6030 if (arg1) free(arg1);
6031 }
6032
6033 XSRETURN(argvi);
6034 fail:
6035 {
6036 if (arg1) free(arg1);
6037 }
6038
6039 SWIG_croak_null();
6040 }
6041 }
6042
6043
XS(_wrap_gsl_vector_complex_const_view_array_with_stride)6044 XS(_wrap_gsl_vector_complex_const_view_array_with_stride) {
6045 {
6046 double *arg1 = (double *) 0 ;
6047 size_t arg2 ;
6048 size_t arg3 ;
6049 size_t val2 ;
6050 int ecode2 = 0 ;
6051 size_t val3 ;
6052 int ecode3 = 0 ;
6053 int argvi = 0;
6054 _gsl_vector_complex_const_view result;
6055 dXSARGS;
6056
6057 if ((items < 3) || (items > 3)) {
6058 SWIG_croak("Usage: gsl_vector_complex_const_view_array_with_stride(base,stride,n);");
6059 }
6060 {
6061 AV *tempav;
6062 I32 len;
6063 int i;
6064 SV **tv;
6065 if (!SvROK(ST(0)))
6066 croak("Math::GSL : $base is not a reference!");
6067 if (SvTYPE(SvRV(ST(0))) != SVt_PVAV)
6068 croak("Math::GSL : $base is not an array ref!");
6069
6070 tempav = (AV*)SvRV(ST(0));
6071 len = av_len(tempav);
6072 arg1 = (double *) malloc((len+2)*sizeof(double));
6073 for (i = 0; i <= len; i++) {
6074 tv = av_fetch(tempav, i, 0);
6075 arg1[i] = (double) SvNV(*tv);
6076 }
6077 }
6078 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6079 if (!SWIG_IsOK(ecode2)) {
6080 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_complex_const_view_array_with_stride" "', argument " "2"" of type '" "size_t""'");
6081 }
6082 arg2 = (size_t)(val2);
6083 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
6084 if (!SWIG_IsOK(ecode3)) {
6085 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_complex_const_view_array_with_stride" "', argument " "3"" of type '" "size_t""'");
6086 }
6087 arg3 = (size_t)(val3);
6088 result = gsl_vector_complex_const_view_array_with_stride((double const *)arg1,arg2,arg3);
6089 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 | SWIG_SHADOW); argvi++ ;
6090 {
6091 if (arg1) free(arg1);
6092 }
6093
6094
6095 XSRETURN(argvi);
6096 fail:
6097 {
6098 if (arg1) free(arg1);
6099 }
6100
6101
6102 SWIG_croak_null();
6103 }
6104 }
6105
6106
XS(_wrap_gsl_vector_complex_subvector)6107 XS(_wrap_gsl_vector_complex_subvector) {
6108 {
6109 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6110 size_t arg2 ;
6111 size_t arg3 ;
6112 void *argp1 = 0 ;
6113 int res1 = 0 ;
6114 size_t val2 ;
6115 int ecode2 = 0 ;
6116 size_t val3 ;
6117 int ecode3 = 0 ;
6118 int argvi = 0;
6119 _gsl_vector_complex_view result;
6120 dXSARGS;
6121
6122 if ((items < 3) || (items > 3)) {
6123 SWIG_croak("Usage: gsl_vector_complex_subvector(base,i,n);");
6124 }
6125 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6126 if (!SWIG_IsOK(res1)) {
6127 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_subvector" "', argument " "1"" of type '" "gsl_vector_complex *""'");
6128 }
6129 arg1 = (gsl_vector_complex *)(argp1);
6130 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6131 if (!SWIG_IsOK(ecode2)) {
6132 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_complex_subvector" "', argument " "2"" of type '" "size_t""'");
6133 }
6134 arg2 = (size_t)(val2);
6135 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
6136 if (!SWIG_IsOK(ecode3)) {
6137 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_complex_subvector" "', argument " "3"" of type '" "size_t""'");
6138 }
6139 arg3 = (size_t)(val3);
6140 result = gsl_vector_complex_subvector(arg1,arg2,arg3);
6141 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 | SWIG_SHADOW); argvi++ ;
6142
6143
6144
6145 XSRETURN(argvi);
6146 fail:
6147
6148
6149
6150 SWIG_croak_null();
6151 }
6152 }
6153
6154
XS(_wrap_gsl_vector_complex_subvector_with_stride)6155 XS(_wrap_gsl_vector_complex_subvector_with_stride) {
6156 {
6157 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6158 size_t arg2 ;
6159 size_t arg3 ;
6160 size_t arg4 ;
6161 void *argp1 = 0 ;
6162 int res1 = 0 ;
6163 size_t val2 ;
6164 int ecode2 = 0 ;
6165 size_t val3 ;
6166 int ecode3 = 0 ;
6167 size_t val4 ;
6168 int ecode4 = 0 ;
6169 int argvi = 0;
6170 _gsl_vector_complex_view result;
6171 dXSARGS;
6172
6173 if ((items < 4) || (items > 4)) {
6174 SWIG_croak("Usage: gsl_vector_complex_subvector_with_stride(v,i,stride,n);");
6175 }
6176 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6177 if (!SWIG_IsOK(res1)) {
6178 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_subvector_with_stride" "', argument " "1"" of type '" "gsl_vector_complex *""'");
6179 }
6180 arg1 = (gsl_vector_complex *)(argp1);
6181 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6182 if (!SWIG_IsOK(ecode2)) {
6183 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_complex_subvector_with_stride" "', argument " "2"" of type '" "size_t""'");
6184 }
6185 arg2 = (size_t)(val2);
6186 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
6187 if (!SWIG_IsOK(ecode3)) {
6188 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_complex_subvector_with_stride" "', argument " "3"" of type '" "size_t""'");
6189 }
6190 arg3 = (size_t)(val3);
6191 ecode4 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
6192 if (!SWIG_IsOK(ecode4)) {
6193 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_vector_complex_subvector_with_stride" "', argument " "4"" of type '" "size_t""'");
6194 }
6195 arg4 = (size_t)(val4);
6196 result = gsl_vector_complex_subvector_with_stride(arg1,arg2,arg3,arg4);
6197 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 | SWIG_SHADOW); argvi++ ;
6198
6199
6200
6201
6202 XSRETURN(argvi);
6203 fail:
6204
6205
6206
6207
6208 SWIG_croak_null();
6209 }
6210 }
6211
6212
XS(_wrap_gsl_vector_complex_const_subvector)6213 XS(_wrap_gsl_vector_complex_const_subvector) {
6214 {
6215 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6216 size_t arg2 ;
6217 size_t arg3 ;
6218 void *argp1 = 0 ;
6219 int res1 = 0 ;
6220 size_t val2 ;
6221 int ecode2 = 0 ;
6222 size_t val3 ;
6223 int ecode3 = 0 ;
6224 int argvi = 0;
6225 _gsl_vector_complex_const_view result;
6226 dXSARGS;
6227
6228 if ((items < 3) || (items > 3)) {
6229 SWIG_croak("Usage: gsl_vector_complex_const_subvector(base,i,n);");
6230 }
6231 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6232 if (!SWIG_IsOK(res1)) {
6233 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_const_subvector" "', argument " "1"" of type '" "gsl_vector_complex const *""'");
6234 }
6235 arg1 = (gsl_vector_complex *)(argp1);
6236 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6237 if (!SWIG_IsOK(ecode2)) {
6238 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_complex_const_subvector" "', argument " "2"" of type '" "size_t""'");
6239 }
6240 arg2 = (size_t)(val2);
6241 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
6242 if (!SWIG_IsOK(ecode3)) {
6243 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_complex_const_subvector" "', argument " "3"" of type '" "size_t""'");
6244 }
6245 arg3 = (size_t)(val3);
6246 result = gsl_vector_complex_const_subvector((gsl_vector_complex const *)arg1,arg2,arg3);
6247 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 | SWIG_SHADOW); argvi++ ;
6248
6249
6250
6251 XSRETURN(argvi);
6252 fail:
6253
6254
6255
6256 SWIG_croak_null();
6257 }
6258 }
6259
6260
XS(_wrap_gsl_vector_complex_const_subvector_with_stride)6261 XS(_wrap_gsl_vector_complex_const_subvector_with_stride) {
6262 {
6263 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6264 size_t arg2 ;
6265 size_t arg3 ;
6266 size_t arg4 ;
6267 void *argp1 = 0 ;
6268 int res1 = 0 ;
6269 size_t val2 ;
6270 int ecode2 = 0 ;
6271 size_t val3 ;
6272 int ecode3 = 0 ;
6273 size_t val4 ;
6274 int ecode4 = 0 ;
6275 int argvi = 0;
6276 _gsl_vector_complex_const_view result;
6277 dXSARGS;
6278
6279 if ((items < 4) || (items > 4)) {
6280 SWIG_croak("Usage: gsl_vector_complex_const_subvector_with_stride(v,i,stride,n);");
6281 }
6282 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6283 if (!SWIG_IsOK(res1)) {
6284 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_const_subvector_with_stride" "', argument " "1"" of type '" "gsl_vector_complex const *""'");
6285 }
6286 arg1 = (gsl_vector_complex *)(argp1);
6287 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6288 if (!SWIG_IsOK(ecode2)) {
6289 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_complex_const_subvector_with_stride" "', argument " "2"" of type '" "size_t""'");
6290 }
6291 arg2 = (size_t)(val2);
6292 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
6293 if (!SWIG_IsOK(ecode3)) {
6294 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_complex_const_subvector_with_stride" "', argument " "3"" of type '" "size_t""'");
6295 }
6296 arg3 = (size_t)(val3);
6297 ecode4 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
6298 if (!SWIG_IsOK(ecode4)) {
6299 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_vector_complex_const_subvector_with_stride" "', argument " "4"" of type '" "size_t""'");
6300 }
6301 arg4 = (size_t)(val4);
6302 result = gsl_vector_complex_const_subvector_with_stride((gsl_vector_complex const *)arg1,arg2,arg3,arg4);
6303 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 | SWIG_SHADOW); argvi++ ;
6304
6305
6306
6307
6308 XSRETURN(argvi);
6309 fail:
6310
6311
6312
6313
6314 SWIG_croak_null();
6315 }
6316 }
6317
6318
XS(_wrap_gsl_vector_complex_real)6319 XS(_wrap_gsl_vector_complex_real) {
6320 {
6321 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6322 void *argp1 = 0 ;
6323 int res1 = 0 ;
6324 int argvi = 0;
6325 _gsl_vector_view result;
6326 dXSARGS;
6327
6328 if ((items < 1) || (items > 1)) {
6329 SWIG_croak("Usage: gsl_vector_complex_real(v);");
6330 }
6331 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6332 if (!SWIG_IsOK(res1)) {
6333 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_real" "', argument " "1"" of type '" "gsl_vector_complex *""'");
6334 }
6335 arg1 = (gsl_vector_complex *)(argp1);
6336 result = gsl_vector_complex_real(arg1);
6337 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++ ;
6338
6339 XSRETURN(argvi);
6340 fail:
6341
6342 SWIG_croak_null();
6343 }
6344 }
6345
6346
XS(_wrap_gsl_vector_complex_imag)6347 XS(_wrap_gsl_vector_complex_imag) {
6348 {
6349 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6350 void *argp1 = 0 ;
6351 int res1 = 0 ;
6352 int argvi = 0;
6353 _gsl_vector_view result;
6354 dXSARGS;
6355
6356 if ((items < 1) || (items > 1)) {
6357 SWIG_croak("Usage: gsl_vector_complex_imag(v);");
6358 }
6359 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6360 if (!SWIG_IsOK(res1)) {
6361 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_imag" "', argument " "1"" of type '" "gsl_vector_complex *""'");
6362 }
6363 arg1 = (gsl_vector_complex *)(argp1);
6364 result = gsl_vector_complex_imag(arg1);
6365 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++ ;
6366
6367 XSRETURN(argvi);
6368 fail:
6369
6370 SWIG_croak_null();
6371 }
6372 }
6373
6374
XS(_wrap_gsl_vector_complex_const_real)6375 XS(_wrap_gsl_vector_complex_const_real) {
6376 {
6377 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6378 void *argp1 = 0 ;
6379 int res1 = 0 ;
6380 int argvi = 0;
6381 _gsl_vector_const_view result;
6382 dXSARGS;
6383
6384 if ((items < 1) || (items > 1)) {
6385 SWIG_croak("Usage: gsl_vector_complex_const_real(v);");
6386 }
6387 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6388 if (!SWIG_IsOK(res1)) {
6389 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_const_real" "', argument " "1"" of type '" "gsl_vector_complex const *""'");
6390 }
6391 arg1 = (gsl_vector_complex *)(argp1);
6392 result = gsl_vector_complex_const_real((gsl_vector_complex const *)arg1);
6393 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++ ;
6394
6395 XSRETURN(argvi);
6396 fail:
6397
6398 SWIG_croak_null();
6399 }
6400 }
6401
6402
XS(_wrap_gsl_vector_complex_const_imag)6403 XS(_wrap_gsl_vector_complex_const_imag) {
6404 {
6405 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6406 void *argp1 = 0 ;
6407 int res1 = 0 ;
6408 int argvi = 0;
6409 _gsl_vector_const_view result;
6410 dXSARGS;
6411
6412 if ((items < 1) || (items > 1)) {
6413 SWIG_croak("Usage: gsl_vector_complex_const_imag(v);");
6414 }
6415 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6416 if (!SWIG_IsOK(res1)) {
6417 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_const_imag" "', argument " "1"" of type '" "gsl_vector_complex const *""'");
6418 }
6419 arg1 = (gsl_vector_complex *)(argp1);
6420 result = gsl_vector_complex_const_imag((gsl_vector_complex const *)arg1);
6421 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++ ;
6422
6423 XSRETURN(argvi);
6424 fail:
6425
6426 SWIG_croak_null();
6427 }
6428 }
6429
6430
XS(_wrap_gsl_vector_complex_set_zero)6431 XS(_wrap_gsl_vector_complex_set_zero) {
6432 {
6433 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6434 void *argp1 = 0 ;
6435 int res1 = 0 ;
6436 int argvi = 0;
6437 dXSARGS;
6438
6439 if ((items < 1) || (items > 1)) {
6440 SWIG_croak("Usage: gsl_vector_complex_set_zero(v);");
6441 }
6442 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6443 if (!SWIG_IsOK(res1)) {
6444 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_set_zero" "', argument " "1"" of type '" "gsl_vector_complex *""'");
6445 }
6446 arg1 = (gsl_vector_complex *)(argp1);
6447 gsl_vector_complex_set_zero(arg1);
6448 ST(argvi) = &PL_sv_undef;
6449
6450 XSRETURN(argvi);
6451 fail:
6452
6453 SWIG_croak_null();
6454 }
6455 }
6456
6457
XS(_wrap_gsl_vector_complex_set_all)6458 XS(_wrap_gsl_vector_complex_set_all) {
6459 {
6460 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6461 gsl_complex arg2 ;
6462 void *argp1 = 0 ;
6463 int res1 = 0 ;
6464 void *argp2 ;
6465 int res2 = 0 ;
6466 int argvi = 0;
6467 dXSARGS;
6468
6469 if ((items < 2) || (items > 2)) {
6470 SWIG_croak("Usage: gsl_vector_complex_set_all(v,z);");
6471 }
6472 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6473 if (!SWIG_IsOK(res1)) {
6474 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_set_all" "', argument " "1"" of type '" "gsl_vector_complex *""'");
6475 }
6476 arg1 = (gsl_vector_complex *)(argp1);
6477 {
6478 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
6479 if (!SWIG_IsOK(res2)) {
6480 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_complex_set_all" "', argument " "2"" of type '" "gsl_complex""'");
6481 }
6482 if (!argp2) {
6483 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_vector_complex_set_all" "', argument " "2"" of type '" "gsl_complex""'");
6484 } else {
6485 arg2 = *((gsl_complex *)(argp2));
6486 }
6487 }
6488 gsl_vector_complex_set_all(arg1,arg2);
6489 ST(argvi) = &PL_sv_undef;
6490
6491 XSRETURN(argvi);
6492 fail:
6493
6494 SWIG_croak_null();
6495 }
6496 }
6497
6498
XS(_wrap_gsl_vector_complex_set_basis)6499 XS(_wrap_gsl_vector_complex_set_basis) {
6500 {
6501 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6502 size_t arg2 ;
6503 void *argp1 = 0 ;
6504 int res1 = 0 ;
6505 size_t val2 ;
6506 int ecode2 = 0 ;
6507 int argvi = 0;
6508 int result;
6509 dXSARGS;
6510
6511 if ((items < 2) || (items > 2)) {
6512 SWIG_croak("Usage: gsl_vector_complex_set_basis(v,i);");
6513 }
6514 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6515 if (!SWIG_IsOK(res1)) {
6516 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_set_basis" "', argument " "1"" of type '" "gsl_vector_complex *""'");
6517 }
6518 arg1 = (gsl_vector_complex *)(argp1);
6519 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6520 if (!SWIG_IsOK(ecode2)) {
6521 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_complex_set_basis" "', argument " "2"" of type '" "size_t""'");
6522 }
6523 arg2 = (size_t)(val2);
6524 result = (int)gsl_vector_complex_set_basis(arg1,arg2);
6525 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6526
6527
6528 XSRETURN(argvi);
6529 fail:
6530
6531
6532 SWIG_croak_null();
6533 }
6534 }
6535
6536
XS(_wrap_gsl_vector_complex_fread)6537 XS(_wrap_gsl_vector_complex_fread) {
6538 {
6539 FILE *arg1 = (FILE *) 0 ;
6540 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
6541 void *argp1 = 0 ;
6542 int res1 = 0 ;
6543 void *argp2 = 0 ;
6544 int res2 = 0 ;
6545 int argvi = 0;
6546 int result;
6547 dXSARGS;
6548
6549 if ((items < 2) || (items > 2)) {
6550 SWIG_croak("Usage: gsl_vector_complex_fread(stream,v);");
6551 }
6552 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
6553 if (!SWIG_IsOK(res1)) {
6554 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_fread" "', argument " "1"" of type '" "FILE *""'");
6555 }
6556 arg1 = (FILE *)(argp1);
6557 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6558 if (!SWIG_IsOK(res2)) {
6559 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_complex_fread" "', argument " "2"" of type '" "gsl_vector_complex *""'");
6560 }
6561 arg2 = (gsl_vector_complex *)(argp2);
6562 result = (int)gsl_vector_complex_fread(arg1,arg2);
6563 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6564
6565
6566 XSRETURN(argvi);
6567 fail:
6568
6569
6570 SWIG_croak_null();
6571 }
6572 }
6573
6574
XS(_wrap_gsl_vector_complex_fwrite)6575 XS(_wrap_gsl_vector_complex_fwrite) {
6576 {
6577 FILE *arg1 = (FILE *) 0 ;
6578 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
6579 void *argp1 = 0 ;
6580 int res1 = 0 ;
6581 void *argp2 = 0 ;
6582 int res2 = 0 ;
6583 int argvi = 0;
6584 int result;
6585 dXSARGS;
6586
6587 if ((items < 2) || (items > 2)) {
6588 SWIG_croak("Usage: gsl_vector_complex_fwrite(stream,v);");
6589 }
6590 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
6591 if (!SWIG_IsOK(res1)) {
6592 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_fwrite" "', argument " "1"" of type '" "FILE *""'");
6593 }
6594 arg1 = (FILE *)(argp1);
6595 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6596 if (!SWIG_IsOK(res2)) {
6597 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_complex_fwrite" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
6598 }
6599 arg2 = (gsl_vector_complex *)(argp2);
6600 result = (int)gsl_vector_complex_fwrite(arg1,(gsl_vector_complex const *)arg2);
6601 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6602
6603
6604 XSRETURN(argvi);
6605 fail:
6606
6607
6608 SWIG_croak_null();
6609 }
6610 }
6611
6612
XS(_wrap_gsl_vector_complex_fscanf)6613 XS(_wrap_gsl_vector_complex_fscanf) {
6614 {
6615 FILE *arg1 = (FILE *) 0 ;
6616 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
6617 void *argp1 = 0 ;
6618 int res1 = 0 ;
6619 void *argp2 = 0 ;
6620 int res2 = 0 ;
6621 int argvi = 0;
6622 int result;
6623 dXSARGS;
6624
6625 if ((items < 2) || (items > 2)) {
6626 SWIG_croak("Usage: gsl_vector_complex_fscanf(stream,v);");
6627 }
6628 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
6629 if (!SWIG_IsOK(res1)) {
6630 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_fscanf" "', argument " "1"" of type '" "FILE *""'");
6631 }
6632 arg1 = (FILE *)(argp1);
6633 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6634 if (!SWIG_IsOK(res2)) {
6635 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_complex_fscanf" "', argument " "2"" of type '" "gsl_vector_complex *""'");
6636 }
6637 arg2 = (gsl_vector_complex *)(argp2);
6638 result = (int)gsl_vector_complex_fscanf(arg1,arg2);
6639 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6640
6641
6642 XSRETURN(argvi);
6643 fail:
6644
6645
6646 SWIG_croak_null();
6647 }
6648 }
6649
6650
XS(_wrap_gsl_vector_complex_fprintf)6651 XS(_wrap_gsl_vector_complex_fprintf) {
6652 {
6653 FILE *arg1 = (FILE *) 0 ;
6654 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
6655 char *arg3 = (char *) 0 ;
6656 void *argp1 = 0 ;
6657 int res1 = 0 ;
6658 void *argp2 = 0 ;
6659 int res2 = 0 ;
6660 int res3 ;
6661 char *buf3 = 0 ;
6662 int alloc3 = 0 ;
6663 int argvi = 0;
6664 int result;
6665 dXSARGS;
6666
6667 if ((items < 3) || (items > 3)) {
6668 SWIG_croak("Usage: gsl_vector_complex_fprintf(stream,v,format);");
6669 }
6670 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
6671 if (!SWIG_IsOK(res1)) {
6672 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_fprintf" "', argument " "1"" of type '" "FILE *""'");
6673 }
6674 arg1 = (FILE *)(argp1);
6675 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6676 if (!SWIG_IsOK(res2)) {
6677 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_complex_fprintf" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
6678 }
6679 arg2 = (gsl_vector_complex *)(argp2);
6680 res3 = SWIG_AsCharPtrAndSize(ST(2), &buf3, NULL, &alloc3);
6681 if (!SWIG_IsOK(res3)) {
6682 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_vector_complex_fprintf" "', argument " "3"" of type '" "char const *""'");
6683 }
6684 arg3 = (char *)(buf3);
6685 result = (int)gsl_vector_complex_fprintf(arg1,(gsl_vector_complex const *)arg2,(char const *)arg3);
6686 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6687
6688
6689 if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
6690 XSRETURN(argvi);
6691 fail:
6692
6693
6694 if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
6695 SWIG_croak_null();
6696 }
6697 }
6698
6699
XS(_wrap_gsl_vector_complex_memcpy)6700 XS(_wrap_gsl_vector_complex_memcpy) {
6701 {
6702 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6703 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
6704 void *argp1 = 0 ;
6705 int res1 = 0 ;
6706 void *argp2 = 0 ;
6707 int res2 = 0 ;
6708 int argvi = 0;
6709 int result;
6710 dXSARGS;
6711
6712 if ((items < 2) || (items > 2)) {
6713 SWIG_croak("Usage: gsl_vector_complex_memcpy(dest,src);");
6714 }
6715 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6716 if (!SWIG_IsOK(res1)) {
6717 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_memcpy" "', argument " "1"" of type '" "gsl_vector_complex *""'");
6718 }
6719 arg1 = (gsl_vector_complex *)(argp1);
6720 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6721 if (!SWIG_IsOK(res2)) {
6722 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_complex_memcpy" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
6723 }
6724 arg2 = (gsl_vector_complex *)(argp2);
6725 result = (int)gsl_vector_complex_memcpy(arg1,(gsl_vector_complex const *)arg2);
6726 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6727
6728
6729 XSRETURN(argvi);
6730 fail:
6731
6732
6733 SWIG_croak_null();
6734 }
6735 }
6736
6737
XS(_wrap_gsl_vector_complex_reverse)6738 XS(_wrap_gsl_vector_complex_reverse) {
6739 {
6740 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6741 void *argp1 = 0 ;
6742 int res1 = 0 ;
6743 int argvi = 0;
6744 int result;
6745 dXSARGS;
6746
6747 if ((items < 1) || (items > 1)) {
6748 SWIG_croak("Usage: gsl_vector_complex_reverse(v);");
6749 }
6750 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6751 if (!SWIG_IsOK(res1)) {
6752 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_reverse" "', argument " "1"" of type '" "gsl_vector_complex *""'");
6753 }
6754 arg1 = (gsl_vector_complex *)(argp1);
6755 result = (int)gsl_vector_complex_reverse(arg1);
6756 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6757
6758 XSRETURN(argvi);
6759 fail:
6760
6761 SWIG_croak_null();
6762 }
6763 }
6764
6765
XS(_wrap_gsl_vector_complex_swap)6766 XS(_wrap_gsl_vector_complex_swap) {
6767 {
6768 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6769 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
6770 void *argp1 = 0 ;
6771 int res1 = 0 ;
6772 void *argp2 = 0 ;
6773 int res2 = 0 ;
6774 int argvi = 0;
6775 int result;
6776 dXSARGS;
6777
6778 if ((items < 2) || (items > 2)) {
6779 SWIG_croak("Usage: gsl_vector_complex_swap(v,w);");
6780 }
6781 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6782 if (!SWIG_IsOK(res1)) {
6783 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_swap" "', argument " "1"" of type '" "gsl_vector_complex *""'");
6784 }
6785 arg1 = (gsl_vector_complex *)(argp1);
6786 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6787 if (!SWIG_IsOK(res2)) {
6788 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_complex_swap" "', argument " "2"" of type '" "gsl_vector_complex *""'");
6789 }
6790 arg2 = (gsl_vector_complex *)(argp2);
6791 result = (int)gsl_vector_complex_swap(arg1,arg2);
6792 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6793
6794
6795 XSRETURN(argvi);
6796 fail:
6797
6798
6799 SWIG_croak_null();
6800 }
6801 }
6802
6803
XS(_wrap_gsl_vector_complex_swap_elements)6804 XS(_wrap_gsl_vector_complex_swap_elements) {
6805 {
6806 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6807 size_t arg2 ;
6808 size_t arg3 ;
6809 void *argp1 = 0 ;
6810 int res1 = 0 ;
6811 size_t val2 ;
6812 int ecode2 = 0 ;
6813 size_t val3 ;
6814 int ecode3 = 0 ;
6815 int argvi = 0;
6816 int result;
6817 dXSARGS;
6818
6819 if ((items < 3) || (items > 3)) {
6820 SWIG_croak("Usage: gsl_vector_complex_swap_elements(v,i,j);");
6821 }
6822 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6823 if (!SWIG_IsOK(res1)) {
6824 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_swap_elements" "', argument " "1"" of type '" "gsl_vector_complex *""'");
6825 }
6826 arg1 = (gsl_vector_complex *)(argp1);
6827 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6828 if (!SWIG_IsOK(ecode2)) {
6829 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_complex_swap_elements" "', argument " "2"" of type '" "size_t""'");
6830 }
6831 arg2 = (size_t)(val2);
6832 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
6833 if (!SWIG_IsOK(ecode3)) {
6834 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_complex_swap_elements" "', argument " "3"" of type '" "size_t""'");
6835 }
6836 arg3 = (size_t)(val3);
6837 result = (int)gsl_vector_complex_swap_elements(arg1,arg2,arg3);
6838 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6839
6840
6841
6842 XSRETURN(argvi);
6843 fail:
6844
6845
6846
6847 SWIG_croak_null();
6848 }
6849 }
6850
6851
XS(_wrap_gsl_vector_complex_equal)6852 XS(_wrap_gsl_vector_complex_equal) {
6853 {
6854 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6855 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
6856 void *argp1 = 0 ;
6857 int res1 = 0 ;
6858 void *argp2 = 0 ;
6859 int res2 = 0 ;
6860 int argvi = 0;
6861 int result;
6862 dXSARGS;
6863
6864 if ((items < 2) || (items > 2)) {
6865 SWIG_croak("Usage: gsl_vector_complex_equal(u,v);");
6866 }
6867 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6868 if (!SWIG_IsOK(res1)) {
6869 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_equal" "', argument " "1"" of type '" "gsl_vector_complex const *""'");
6870 }
6871 arg1 = (gsl_vector_complex *)(argp1);
6872 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6873 if (!SWIG_IsOK(res2)) {
6874 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_complex_equal" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
6875 }
6876 arg2 = (gsl_vector_complex *)(argp2);
6877 result = (int)gsl_vector_complex_equal((gsl_vector_complex const *)arg1,(gsl_vector_complex const *)arg2);
6878 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6879
6880
6881 XSRETURN(argvi);
6882 fail:
6883
6884
6885 SWIG_croak_null();
6886 }
6887 }
6888
6889
XS(_wrap_gsl_vector_complex_isnull)6890 XS(_wrap_gsl_vector_complex_isnull) {
6891 {
6892 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6893 void *argp1 = 0 ;
6894 int res1 = 0 ;
6895 int argvi = 0;
6896 int result;
6897 dXSARGS;
6898
6899 if ((items < 1) || (items > 1)) {
6900 SWIG_croak("Usage: gsl_vector_complex_isnull(v);");
6901 }
6902 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6903 if (!SWIG_IsOK(res1)) {
6904 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_isnull" "', argument " "1"" of type '" "gsl_vector_complex const *""'");
6905 }
6906 arg1 = (gsl_vector_complex *)(argp1);
6907 result = (int)gsl_vector_complex_isnull((gsl_vector_complex const *)arg1);
6908 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6909
6910 XSRETURN(argvi);
6911 fail:
6912
6913 SWIG_croak_null();
6914 }
6915 }
6916
6917
XS(_wrap_gsl_vector_complex_ispos)6918 XS(_wrap_gsl_vector_complex_ispos) {
6919 {
6920 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6921 void *argp1 = 0 ;
6922 int res1 = 0 ;
6923 int argvi = 0;
6924 int result;
6925 dXSARGS;
6926
6927 if ((items < 1) || (items > 1)) {
6928 SWIG_croak("Usage: gsl_vector_complex_ispos(v);");
6929 }
6930 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6931 if (!SWIG_IsOK(res1)) {
6932 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_ispos" "', argument " "1"" of type '" "gsl_vector_complex const *""'");
6933 }
6934 arg1 = (gsl_vector_complex *)(argp1);
6935 result = (int)gsl_vector_complex_ispos((gsl_vector_complex const *)arg1);
6936 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6937
6938 XSRETURN(argvi);
6939 fail:
6940
6941 SWIG_croak_null();
6942 }
6943 }
6944
6945
XS(_wrap_gsl_vector_complex_isneg)6946 XS(_wrap_gsl_vector_complex_isneg) {
6947 {
6948 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6949 void *argp1 = 0 ;
6950 int res1 = 0 ;
6951 int argvi = 0;
6952 int result;
6953 dXSARGS;
6954
6955 if ((items < 1) || (items > 1)) {
6956 SWIG_croak("Usage: gsl_vector_complex_isneg(v);");
6957 }
6958 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6959 if (!SWIG_IsOK(res1)) {
6960 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_isneg" "', argument " "1"" of type '" "gsl_vector_complex const *""'");
6961 }
6962 arg1 = (gsl_vector_complex *)(argp1);
6963 result = (int)gsl_vector_complex_isneg((gsl_vector_complex const *)arg1);
6964 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6965
6966 XSRETURN(argvi);
6967 fail:
6968
6969 SWIG_croak_null();
6970 }
6971 }
6972
6973
XS(_wrap_gsl_vector_complex_isnonneg)6974 XS(_wrap_gsl_vector_complex_isnonneg) {
6975 {
6976 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6977 void *argp1 = 0 ;
6978 int res1 = 0 ;
6979 int argvi = 0;
6980 int result;
6981 dXSARGS;
6982
6983 if ((items < 1) || (items > 1)) {
6984 SWIG_croak("Usage: gsl_vector_complex_isnonneg(v);");
6985 }
6986 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6987 if (!SWIG_IsOK(res1)) {
6988 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_isnonneg" "', argument " "1"" of type '" "gsl_vector_complex const *""'");
6989 }
6990 arg1 = (gsl_vector_complex *)(argp1);
6991 result = (int)gsl_vector_complex_isnonneg((gsl_vector_complex const *)arg1);
6992 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6993
6994 XSRETURN(argvi);
6995 fail:
6996
6997 SWIG_croak_null();
6998 }
6999 }
7000
7001
XS(_wrap_gsl_vector_complex_add)7002 XS(_wrap_gsl_vector_complex_add) {
7003 {
7004 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
7005 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
7006 void *argp1 = 0 ;
7007 int res1 = 0 ;
7008 void *argp2 = 0 ;
7009 int res2 = 0 ;
7010 int argvi = 0;
7011 int result;
7012 dXSARGS;
7013
7014 if ((items < 2) || (items > 2)) {
7015 SWIG_croak("Usage: gsl_vector_complex_add(a,b);");
7016 }
7017 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7018 if (!SWIG_IsOK(res1)) {
7019 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_add" "', argument " "1"" of type '" "gsl_vector_complex *""'");
7020 }
7021 arg1 = (gsl_vector_complex *)(argp1);
7022 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7023 if (!SWIG_IsOK(res2)) {
7024 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_complex_add" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
7025 }
7026 arg2 = (gsl_vector_complex *)(argp2);
7027 result = (int)gsl_vector_complex_add(arg1,(gsl_vector_complex const *)arg2);
7028 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7029
7030
7031 XSRETURN(argvi);
7032 fail:
7033
7034
7035 SWIG_croak_null();
7036 }
7037 }
7038
7039
XS(_wrap_gsl_vector_complex_sub)7040 XS(_wrap_gsl_vector_complex_sub) {
7041 {
7042 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
7043 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
7044 void *argp1 = 0 ;
7045 int res1 = 0 ;
7046 void *argp2 = 0 ;
7047 int res2 = 0 ;
7048 int argvi = 0;
7049 int result;
7050 dXSARGS;
7051
7052 if ((items < 2) || (items > 2)) {
7053 SWIG_croak("Usage: gsl_vector_complex_sub(a,b);");
7054 }
7055 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7056 if (!SWIG_IsOK(res1)) {
7057 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_sub" "', argument " "1"" of type '" "gsl_vector_complex *""'");
7058 }
7059 arg1 = (gsl_vector_complex *)(argp1);
7060 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7061 if (!SWIG_IsOK(res2)) {
7062 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_complex_sub" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
7063 }
7064 arg2 = (gsl_vector_complex *)(argp2);
7065 result = (int)gsl_vector_complex_sub(arg1,(gsl_vector_complex const *)arg2);
7066 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7067
7068
7069 XSRETURN(argvi);
7070 fail:
7071
7072
7073 SWIG_croak_null();
7074 }
7075 }
7076
7077
XS(_wrap_gsl_vector_complex_mul)7078 XS(_wrap_gsl_vector_complex_mul) {
7079 {
7080 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
7081 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
7082 void *argp1 = 0 ;
7083 int res1 = 0 ;
7084 void *argp2 = 0 ;
7085 int res2 = 0 ;
7086 int argvi = 0;
7087 int result;
7088 dXSARGS;
7089
7090 if ((items < 2) || (items > 2)) {
7091 SWIG_croak("Usage: gsl_vector_complex_mul(a,b);");
7092 }
7093 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7094 if (!SWIG_IsOK(res1)) {
7095 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_mul" "', argument " "1"" of type '" "gsl_vector_complex *""'");
7096 }
7097 arg1 = (gsl_vector_complex *)(argp1);
7098 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7099 if (!SWIG_IsOK(res2)) {
7100 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_complex_mul" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
7101 }
7102 arg2 = (gsl_vector_complex *)(argp2);
7103 result = (int)gsl_vector_complex_mul(arg1,(gsl_vector_complex const *)arg2);
7104 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7105
7106
7107 XSRETURN(argvi);
7108 fail:
7109
7110
7111 SWIG_croak_null();
7112 }
7113 }
7114
7115
XS(_wrap_gsl_vector_complex_div)7116 XS(_wrap_gsl_vector_complex_div) {
7117 {
7118 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
7119 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
7120 void *argp1 = 0 ;
7121 int res1 = 0 ;
7122 void *argp2 = 0 ;
7123 int res2 = 0 ;
7124 int argvi = 0;
7125 int result;
7126 dXSARGS;
7127
7128 if ((items < 2) || (items > 2)) {
7129 SWIG_croak("Usage: gsl_vector_complex_div(a,b);");
7130 }
7131 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7132 if (!SWIG_IsOK(res1)) {
7133 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_div" "', argument " "1"" of type '" "gsl_vector_complex *""'");
7134 }
7135 arg1 = (gsl_vector_complex *)(argp1);
7136 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7137 if (!SWIG_IsOK(res2)) {
7138 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_complex_div" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
7139 }
7140 arg2 = (gsl_vector_complex *)(argp2);
7141 result = (int)gsl_vector_complex_div(arg1,(gsl_vector_complex const *)arg2);
7142 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7143
7144
7145 XSRETURN(argvi);
7146 fail:
7147
7148
7149 SWIG_croak_null();
7150 }
7151 }
7152
7153
XS(_wrap_gsl_vector_complex_scale)7154 XS(_wrap_gsl_vector_complex_scale) {
7155 {
7156 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
7157 gsl_complex arg2 ;
7158 void *argp1 = 0 ;
7159 int res1 = 0 ;
7160 void *argp2 ;
7161 int res2 = 0 ;
7162 int argvi = 0;
7163 int result;
7164 dXSARGS;
7165
7166 if ((items < 2) || (items > 2)) {
7167 SWIG_croak("Usage: gsl_vector_complex_scale(a,x);");
7168 }
7169 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7170 if (!SWIG_IsOK(res1)) {
7171 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_scale" "', argument " "1"" of type '" "gsl_vector_complex *""'");
7172 }
7173 arg1 = (gsl_vector_complex *)(argp1);
7174 {
7175 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
7176 if (!SWIG_IsOK(res2)) {
7177 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_complex_scale" "', argument " "2"" of type '" "gsl_complex const""'");
7178 }
7179 if (!argp2) {
7180 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_vector_complex_scale" "', argument " "2"" of type '" "gsl_complex const""'");
7181 } else {
7182 arg2 = *((gsl_complex *)(argp2));
7183 }
7184 }
7185 result = (int)gsl_vector_complex_scale(arg1,arg2);
7186 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7187
7188 XSRETURN(argvi);
7189 fail:
7190
7191 SWIG_croak_null();
7192 }
7193 }
7194
7195
XS(_wrap_gsl_vector_complex_add_constant)7196 XS(_wrap_gsl_vector_complex_add_constant) {
7197 {
7198 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
7199 gsl_complex arg2 ;
7200 void *argp1 = 0 ;
7201 int res1 = 0 ;
7202 void *argp2 ;
7203 int res2 = 0 ;
7204 int argvi = 0;
7205 int result;
7206 dXSARGS;
7207
7208 if ((items < 2) || (items > 2)) {
7209 SWIG_croak("Usage: gsl_vector_complex_add_constant(a,x);");
7210 }
7211 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7212 if (!SWIG_IsOK(res1)) {
7213 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_add_constant" "', argument " "1"" of type '" "gsl_vector_complex *""'");
7214 }
7215 arg1 = (gsl_vector_complex *)(argp1);
7216 {
7217 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
7218 if (!SWIG_IsOK(res2)) {
7219 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_complex_add_constant" "', argument " "2"" of type '" "gsl_complex const""'");
7220 }
7221 if (!argp2) {
7222 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_vector_complex_add_constant" "', argument " "2"" of type '" "gsl_complex const""'");
7223 } else {
7224 arg2 = *((gsl_complex *)(argp2));
7225 }
7226 }
7227 result = (int)gsl_vector_complex_add_constant(arg1,arg2);
7228 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7229
7230 XSRETURN(argvi);
7231 fail:
7232
7233 SWIG_croak_null();
7234 }
7235 }
7236
7237
XS(_wrap_gsl_vector_complex_axpby)7238 XS(_wrap_gsl_vector_complex_axpby) {
7239 {
7240 gsl_complex arg1 ;
7241 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
7242 gsl_complex arg3 ;
7243 gsl_vector_complex *arg4 = (gsl_vector_complex *) 0 ;
7244 void *argp1 ;
7245 int res1 = 0 ;
7246 void *argp2 = 0 ;
7247 int res2 = 0 ;
7248 void *argp3 ;
7249 int res3 = 0 ;
7250 void *argp4 = 0 ;
7251 int res4 = 0 ;
7252 int argvi = 0;
7253 int result;
7254 dXSARGS;
7255
7256 if ((items < 4) || (items > 4)) {
7257 SWIG_croak("Usage: gsl_vector_complex_axpby(alpha,x,beta,y);");
7258 }
7259 {
7260 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
7261 if (!SWIG_IsOK(res1)) {
7262 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_axpby" "', argument " "1"" of type '" "gsl_complex const""'");
7263 }
7264 if (!argp1) {
7265 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_vector_complex_axpby" "', argument " "1"" of type '" "gsl_complex const""'");
7266 } else {
7267 arg1 = *((gsl_complex *)(argp1));
7268 }
7269 }
7270 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7271 if (!SWIG_IsOK(res2)) {
7272 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_complex_axpby" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
7273 }
7274 arg2 = (gsl_vector_complex *)(argp2);
7275 {
7276 res3 = SWIG_ConvertPtr(ST(2), &argp3, SWIGTYPE_p_gsl_complex, 0 );
7277 if (!SWIG_IsOK(res3)) {
7278 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_vector_complex_axpby" "', argument " "3"" of type '" "gsl_complex const""'");
7279 }
7280 if (!argp3) {
7281 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_vector_complex_axpby" "', argument " "3"" of type '" "gsl_complex const""'");
7282 } else {
7283 arg3 = *((gsl_complex *)(argp3));
7284 }
7285 }
7286 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7287 if (!SWIG_IsOK(res4)) {
7288 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_vector_complex_axpby" "', argument " "4"" of type '" "gsl_vector_complex *""'");
7289 }
7290 arg4 = (gsl_vector_complex *)(argp4);
7291 result = (int)gsl_vector_complex_axpby(arg1,(gsl_vector_complex const *)arg2,arg3,arg4);
7292 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7293
7294
7295 XSRETURN(argvi);
7296 fail:
7297
7298
7299 SWIG_croak_null();
7300 }
7301 }
7302
7303
XS(_wrap_gsl_vector_complex_get)7304 XS(_wrap_gsl_vector_complex_get) {
7305 {
7306 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
7307 size_t arg2 ;
7308 void *argp1 = 0 ;
7309 int res1 = 0 ;
7310 size_t val2 ;
7311 int ecode2 = 0 ;
7312 int argvi = 0;
7313 gsl_complex result;
7314 dXSARGS;
7315
7316 if ((items < 2) || (items > 2)) {
7317 SWIG_croak("Usage: gsl_vector_complex_get(v,i);");
7318 }
7319 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7320 if (!SWIG_IsOK(res1)) {
7321 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_get" "', argument " "1"" of type '" "gsl_vector_complex const *""'");
7322 }
7323 arg1 = (gsl_vector_complex *)(argp1);
7324 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7325 if (!SWIG_IsOK(ecode2)) {
7326 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_complex_get" "', argument " "2"" of type '" "size_t""'");
7327 }
7328 arg2 = (size_t)(val2);
7329 result = gsl_vector_complex_get((gsl_vector_complex const *)arg1,arg2);
7330 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 | 0); argvi++ ;
7331
7332
7333 XSRETURN(argvi);
7334 fail:
7335
7336
7337 SWIG_croak_null();
7338 }
7339 }
7340
7341
XS(_wrap_gsl_vector_complex_set)7342 XS(_wrap_gsl_vector_complex_set) {
7343 {
7344 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
7345 size_t arg2 ;
7346 gsl_complex arg3 ;
7347 void *argp1 = 0 ;
7348 int res1 = 0 ;
7349 size_t val2 ;
7350 int ecode2 = 0 ;
7351 void *argp3 ;
7352 int res3 = 0 ;
7353 int argvi = 0;
7354 dXSARGS;
7355
7356 if ((items < 3) || (items > 3)) {
7357 SWIG_croak("Usage: gsl_vector_complex_set(v,i,z);");
7358 }
7359 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7360 if (!SWIG_IsOK(res1)) {
7361 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_set" "', argument " "1"" of type '" "gsl_vector_complex *""'");
7362 }
7363 arg1 = (gsl_vector_complex *)(argp1);
7364 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7365 if (!SWIG_IsOK(ecode2)) {
7366 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_complex_set" "', argument " "2"" of type '" "size_t""'");
7367 }
7368 arg2 = (size_t)(val2);
7369 {
7370 res3 = SWIG_ConvertPtr(ST(2), &argp3, SWIGTYPE_p_gsl_complex, 0 );
7371 if (!SWIG_IsOK(res3)) {
7372 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_vector_complex_set" "', argument " "3"" of type '" "gsl_complex""'");
7373 }
7374 if (!argp3) {
7375 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_vector_complex_set" "', argument " "3"" of type '" "gsl_complex""'");
7376 } else {
7377 arg3 = *((gsl_complex *)(argp3));
7378 }
7379 }
7380 gsl_vector_complex_set(arg1,arg2,arg3);
7381 ST(argvi) = &PL_sv_undef;
7382
7383
7384 XSRETURN(argvi);
7385 fail:
7386
7387
7388 SWIG_croak_null();
7389 }
7390 }
7391
7392
XS(_wrap_gsl_vector_complex_ptr)7393 XS(_wrap_gsl_vector_complex_ptr) {
7394 {
7395 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
7396 size_t arg2 ;
7397 void *argp1 = 0 ;
7398 int res1 = 0 ;
7399 size_t val2 ;
7400 int ecode2 = 0 ;
7401 int argvi = 0;
7402 gsl_complex *result = 0 ;
7403 dXSARGS;
7404
7405 if ((items < 2) || (items > 2)) {
7406 SWIG_croak("Usage: gsl_vector_complex_ptr(v,i);");
7407 }
7408 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7409 if (!SWIG_IsOK(res1)) {
7410 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_ptr" "', argument " "1"" of type '" "gsl_vector_complex *""'");
7411 }
7412 arg1 = (gsl_vector_complex *)(argp1);
7413 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7414 if (!SWIG_IsOK(ecode2)) {
7415 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_complex_ptr" "', argument " "2"" of type '" "size_t""'");
7416 }
7417 arg2 = (size_t)(val2);
7418 result = (gsl_complex *)gsl_vector_complex_ptr(arg1,arg2);
7419 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_complex, 0 | 0); argvi++ ;
7420
7421
7422 XSRETURN(argvi);
7423 fail:
7424
7425
7426 SWIG_croak_null();
7427 }
7428 }
7429
7430
XS(_wrap_gsl_vector_complex_const_ptr)7431 XS(_wrap_gsl_vector_complex_const_ptr) {
7432 {
7433 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
7434 size_t arg2 ;
7435 void *argp1 = 0 ;
7436 int res1 = 0 ;
7437 size_t val2 ;
7438 int ecode2 = 0 ;
7439 int argvi = 0;
7440 gsl_complex *result = 0 ;
7441 dXSARGS;
7442
7443 if ((items < 2) || (items > 2)) {
7444 SWIG_croak("Usage: gsl_vector_complex_const_ptr(v,i);");
7445 }
7446 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7447 if (!SWIG_IsOK(res1)) {
7448 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_const_ptr" "', argument " "1"" of type '" "gsl_vector_complex const *""'");
7449 }
7450 arg1 = (gsl_vector_complex *)(argp1);
7451 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7452 if (!SWIG_IsOK(ecode2)) {
7453 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_complex_const_ptr" "', argument " "2"" of type '" "size_t""'");
7454 }
7455 arg2 = (size_t)(val2);
7456 result = (gsl_complex *)gsl_vector_complex_const_ptr((gsl_vector_complex const *)arg1,arg2);
7457 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_complex, 0 | 0); argvi++ ;
7458
7459
7460 XSRETURN(argvi);
7461 fail:
7462
7463
7464 SWIG_croak_null();
7465 }
7466 }
7467
7468
XS(_wrap_gsl_vector_size_set)7469 XS(_wrap_gsl_vector_size_set) {
7470 {
7471 gsl_vector *arg1 = (gsl_vector *) 0 ;
7472 size_t arg2 ;
7473 void *argp1 = 0 ;
7474 int res1 = 0 ;
7475 size_t val2 ;
7476 int ecode2 = 0 ;
7477 int argvi = 0;
7478 dXSARGS;
7479
7480 if ((items < 2) || (items > 2)) {
7481 SWIG_croak("Usage: gsl_vector_size_set(self,size);");
7482 }
7483 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7484 if (!SWIG_IsOK(res1)) {
7485 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_size_set" "', argument " "1"" of type '" "gsl_vector *""'");
7486 }
7487 arg1 = (gsl_vector *)(argp1);
7488 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7489 if (!SWIG_IsOK(ecode2)) {
7490 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_size_set" "', argument " "2"" of type '" "size_t""'");
7491 }
7492 arg2 = (size_t)(val2);
7493 if (arg1) (arg1)->size = arg2;
7494 ST(argvi) = &PL_sv_undef;
7495
7496
7497 XSRETURN(argvi);
7498 fail:
7499
7500
7501 SWIG_croak_null();
7502 }
7503 }
7504
7505
XS(_wrap_gsl_vector_size_get)7506 XS(_wrap_gsl_vector_size_get) {
7507 {
7508 gsl_vector *arg1 = (gsl_vector *) 0 ;
7509 void *argp1 = 0 ;
7510 int res1 = 0 ;
7511 int argvi = 0;
7512 size_t result;
7513 dXSARGS;
7514
7515 if ((items < 1) || (items > 1)) {
7516 SWIG_croak("Usage: gsl_vector_size_get(self);");
7517 }
7518 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7519 if (!SWIG_IsOK(res1)) {
7520 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_size_get" "', argument " "1"" of type '" "gsl_vector *""'");
7521 }
7522 arg1 = (gsl_vector *)(argp1);
7523 result = ((arg1)->size);
7524 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
7525
7526 XSRETURN(argvi);
7527 fail:
7528
7529 SWIG_croak_null();
7530 }
7531 }
7532
7533
XS(_wrap_gsl_vector_stride_set)7534 XS(_wrap_gsl_vector_stride_set) {
7535 {
7536 gsl_vector *arg1 = (gsl_vector *) 0 ;
7537 size_t arg2 ;
7538 void *argp1 = 0 ;
7539 int res1 = 0 ;
7540 size_t val2 ;
7541 int ecode2 = 0 ;
7542 int argvi = 0;
7543 dXSARGS;
7544
7545 if ((items < 2) || (items > 2)) {
7546 SWIG_croak("Usage: gsl_vector_stride_set(self,stride);");
7547 }
7548 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7549 if (!SWIG_IsOK(res1)) {
7550 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_stride_set" "', argument " "1"" of type '" "gsl_vector *""'");
7551 }
7552 arg1 = (gsl_vector *)(argp1);
7553 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7554 if (!SWIG_IsOK(ecode2)) {
7555 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_stride_set" "', argument " "2"" of type '" "size_t""'");
7556 }
7557 arg2 = (size_t)(val2);
7558 if (arg1) (arg1)->stride = arg2;
7559 ST(argvi) = &PL_sv_undef;
7560
7561
7562 XSRETURN(argvi);
7563 fail:
7564
7565
7566 SWIG_croak_null();
7567 }
7568 }
7569
7570
XS(_wrap_gsl_vector_stride_get)7571 XS(_wrap_gsl_vector_stride_get) {
7572 {
7573 gsl_vector *arg1 = (gsl_vector *) 0 ;
7574 void *argp1 = 0 ;
7575 int res1 = 0 ;
7576 int argvi = 0;
7577 size_t result;
7578 dXSARGS;
7579
7580 if ((items < 1) || (items > 1)) {
7581 SWIG_croak("Usage: gsl_vector_stride_get(self);");
7582 }
7583 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7584 if (!SWIG_IsOK(res1)) {
7585 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_stride_get" "', argument " "1"" of type '" "gsl_vector *""'");
7586 }
7587 arg1 = (gsl_vector *)(argp1);
7588 result = ((arg1)->stride);
7589 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
7590
7591 XSRETURN(argvi);
7592 fail:
7593
7594 SWIG_croak_null();
7595 }
7596 }
7597
7598
XS(_wrap_gsl_vector_data_set)7599 XS(_wrap_gsl_vector_data_set) {
7600 {
7601 gsl_vector *arg1 = (gsl_vector *) 0 ;
7602 double *arg2 = (double *) 0 ;
7603 void *argp1 = 0 ;
7604 int res1 = 0 ;
7605 int argvi = 0;
7606 dXSARGS;
7607
7608 if ((items < 2) || (items > 2)) {
7609 SWIG_croak("Usage: gsl_vector_data_set(self,data);");
7610 }
7611 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7612 if (!SWIG_IsOK(res1)) {
7613 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_data_set" "', argument " "1"" of type '" "gsl_vector *""'");
7614 }
7615 arg1 = (gsl_vector *)(argp1);
7616 {
7617 AV *tempav;
7618 I32 len;
7619 int i;
7620 SV **tv;
7621 if (!SvROK(ST(1)))
7622 croak("Math::GSL : $data is not a reference!");
7623 if (SvTYPE(SvRV(ST(1))) != SVt_PVAV)
7624 croak("Math::GSL : $data is not an array ref!");
7625
7626 tempav = (AV*)SvRV(ST(1));
7627 len = av_len(tempav);
7628 arg2 = (double *) malloc((len+2)*sizeof(double));
7629 for (i = 0; i <= len; i++) {
7630 tv = av_fetch(tempav, i, 0);
7631 arg2[i] = (double) SvNV(*tv);
7632 }
7633 }
7634 if (arg1) (arg1)->data = arg2;
7635 ST(argvi) = &PL_sv_undef;
7636
7637 {
7638 if (arg2) free(arg2);
7639 }
7640 XSRETURN(argvi);
7641 fail:
7642
7643 {
7644 if (arg2) free(arg2);
7645 }
7646 SWIG_croak_null();
7647 }
7648 }
7649
7650
XS(_wrap_gsl_vector_data_get)7651 XS(_wrap_gsl_vector_data_get) {
7652 {
7653 gsl_vector *arg1 = (gsl_vector *) 0 ;
7654 void *argp1 = 0 ;
7655 int res1 = 0 ;
7656 int argvi = 0;
7657 double *result = 0 ;
7658 dXSARGS;
7659
7660 if ((items < 1) || (items > 1)) {
7661 SWIG_croak("Usage: gsl_vector_data_get(self);");
7662 }
7663 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7664 if (!SWIG_IsOK(res1)) {
7665 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_data_get" "', argument " "1"" of type '" "gsl_vector *""'");
7666 }
7667 arg1 = (gsl_vector *)(argp1);
7668 result = (double *) ((arg1)->data);
7669 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
7670
7671 XSRETURN(argvi);
7672 fail:
7673
7674 SWIG_croak_null();
7675 }
7676 }
7677
7678
XS(_wrap_gsl_vector_block_set)7679 XS(_wrap_gsl_vector_block_set) {
7680 {
7681 gsl_vector *arg1 = (gsl_vector *) 0 ;
7682 gsl_block *arg2 = (gsl_block *) 0 ;
7683 void *argp1 = 0 ;
7684 int res1 = 0 ;
7685 void *argp2 = 0 ;
7686 int res2 = 0 ;
7687 int argvi = 0;
7688 dXSARGS;
7689
7690 if ((items < 2) || (items > 2)) {
7691 SWIG_croak("Usage: gsl_vector_block_set(self,block);");
7692 }
7693 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7694 if (!SWIG_IsOK(res1)) {
7695 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_block_set" "', argument " "1"" of type '" "gsl_vector *""'");
7696 }
7697 arg1 = (gsl_vector *)(argp1);
7698 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_block, SWIG_POINTER_DISOWN | 0 );
7699 if (!SWIG_IsOK(res2)) {
7700 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_block_set" "', argument " "2"" of type '" "gsl_block *""'");
7701 }
7702 arg2 = (gsl_block *)(argp2);
7703 if (arg1) (arg1)->block = arg2;
7704 ST(argvi) = &PL_sv_undef;
7705
7706
7707 XSRETURN(argvi);
7708 fail:
7709
7710
7711 SWIG_croak_null();
7712 }
7713 }
7714
7715
XS(_wrap_gsl_vector_block_get)7716 XS(_wrap_gsl_vector_block_get) {
7717 {
7718 gsl_vector *arg1 = (gsl_vector *) 0 ;
7719 void *argp1 = 0 ;
7720 int res1 = 0 ;
7721 int argvi = 0;
7722 gsl_block *result = 0 ;
7723 dXSARGS;
7724
7725 if ((items < 1) || (items > 1)) {
7726 SWIG_croak("Usage: gsl_vector_block_get(self);");
7727 }
7728 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7729 if (!SWIG_IsOK(res1)) {
7730 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_block_get" "', argument " "1"" of type '" "gsl_vector *""'");
7731 }
7732 arg1 = (gsl_vector *)(argp1);
7733 result = (gsl_block *) ((arg1)->block);
7734 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_block, 0 | 0); argvi++ ;
7735
7736 XSRETURN(argvi);
7737 fail:
7738
7739 SWIG_croak_null();
7740 }
7741 }
7742
7743
XS(_wrap_gsl_vector_owner_set)7744 XS(_wrap_gsl_vector_owner_set) {
7745 {
7746 gsl_vector *arg1 = (gsl_vector *) 0 ;
7747 int arg2 ;
7748 void *argp1 = 0 ;
7749 int res1 = 0 ;
7750 int val2 ;
7751 int ecode2 = 0 ;
7752 int argvi = 0;
7753 dXSARGS;
7754
7755 if ((items < 2) || (items > 2)) {
7756 SWIG_croak("Usage: gsl_vector_owner_set(self,owner);");
7757 }
7758 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7759 if (!SWIG_IsOK(res1)) {
7760 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_owner_set" "', argument " "1"" of type '" "gsl_vector *""'");
7761 }
7762 arg1 = (gsl_vector *)(argp1);
7763 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7764 if (!SWIG_IsOK(ecode2)) {
7765 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_owner_set" "', argument " "2"" of type '" "int""'");
7766 }
7767 arg2 = (int)(val2);
7768 if (arg1) (arg1)->owner = arg2;
7769 ST(argvi) = &PL_sv_undef;
7770
7771
7772 XSRETURN(argvi);
7773 fail:
7774
7775
7776 SWIG_croak_null();
7777 }
7778 }
7779
7780
XS(_wrap_gsl_vector_owner_get)7781 XS(_wrap_gsl_vector_owner_get) {
7782 {
7783 gsl_vector *arg1 = (gsl_vector *) 0 ;
7784 void *argp1 = 0 ;
7785 int res1 = 0 ;
7786 int argvi = 0;
7787 int result;
7788 dXSARGS;
7789
7790 if ((items < 1) || (items > 1)) {
7791 SWIG_croak("Usage: gsl_vector_owner_get(self);");
7792 }
7793 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7794 if (!SWIG_IsOK(res1)) {
7795 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_owner_get" "', argument " "1"" of type '" "gsl_vector *""'");
7796 }
7797 arg1 = (gsl_vector *)(argp1);
7798 result = (int) ((arg1)->owner);
7799 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7800
7801 XSRETURN(argvi);
7802 fail:
7803
7804 SWIG_croak_null();
7805 }
7806 }
7807
7808
XS(_wrap_new_gsl_vector)7809 XS(_wrap_new_gsl_vector) {
7810 {
7811 int argvi = 0;
7812 gsl_vector *result = 0 ;
7813 dXSARGS;
7814
7815 if ((items < 0) || (items > 0)) {
7816 SWIG_croak("Usage: new_gsl_vector();");
7817 }
7818 result = (gsl_vector *)calloc(1, sizeof(gsl_vector));
7819 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
7820 XSRETURN(argvi);
7821 fail:
7822 SWIG_croak_null();
7823 }
7824 }
7825
7826
XS(_wrap_delete_gsl_vector)7827 XS(_wrap_delete_gsl_vector) {
7828 {
7829 gsl_vector *arg1 = (gsl_vector *) 0 ;
7830 void *argp1 = 0 ;
7831 int res1 = 0 ;
7832 int argvi = 0;
7833 dXSARGS;
7834
7835 if ((items < 1) || (items > 1)) {
7836 SWIG_croak("Usage: delete_gsl_vector(self);");
7837 }
7838 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
7839 if (!SWIG_IsOK(res1)) {
7840 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_vector" "', argument " "1"" of type '" "gsl_vector *""'");
7841 }
7842 arg1 = (gsl_vector *)(argp1);
7843 free((char *) arg1);
7844 ST(argvi) = &PL_sv_undef;
7845
7846 XSRETURN(argvi);
7847 fail:
7848
7849 SWIG_croak_null();
7850 }
7851 }
7852
7853
XS(_wrap__gsl_vector_view_vector_set)7854 XS(_wrap__gsl_vector_view_vector_set) {
7855 {
7856 _gsl_vector_view *arg1 = (_gsl_vector_view *) 0 ;
7857 gsl_vector *arg2 = (gsl_vector *) 0 ;
7858 void *argp1 = 0 ;
7859 int res1 = 0 ;
7860 void *argp2 = 0 ;
7861 int res2 = 0 ;
7862 int argvi = 0;
7863 dXSARGS;
7864
7865 if ((items < 2) || (items > 2)) {
7866 SWIG_croak("Usage: _gsl_vector_view_vector_set(self,vector);");
7867 }
7868 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_view, 0 | 0 );
7869 if (!SWIG_IsOK(res1)) {
7870 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "_gsl_vector_view_vector_set" "', argument " "1"" of type '" "_gsl_vector_view *""'");
7871 }
7872 arg1 = (_gsl_vector_view *)(argp1);
7873 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7874 if (!SWIG_IsOK(res2)) {
7875 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "_gsl_vector_view_vector_set" "', argument " "2"" of type '" "gsl_vector *""'");
7876 }
7877 arg2 = (gsl_vector *)(argp2);
7878 if (arg1) (arg1)->vector = *arg2;
7879 ST(argvi) = &PL_sv_undef;
7880
7881
7882 XSRETURN(argvi);
7883 fail:
7884
7885
7886 SWIG_croak_null();
7887 }
7888 }
7889
7890
XS(_wrap__gsl_vector_view_vector_get)7891 XS(_wrap__gsl_vector_view_vector_get) {
7892 {
7893 _gsl_vector_view *arg1 = (_gsl_vector_view *) 0 ;
7894 void *argp1 = 0 ;
7895 int res1 = 0 ;
7896 int argvi = 0;
7897 gsl_vector *result = 0 ;
7898 dXSARGS;
7899
7900 if ((items < 1) || (items > 1)) {
7901 SWIG_croak("Usage: _gsl_vector_view_vector_get(self);");
7902 }
7903 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_view, 0 | 0 );
7904 if (!SWIG_IsOK(res1)) {
7905 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "_gsl_vector_view_vector_get" "', argument " "1"" of type '" "_gsl_vector_view *""'");
7906 }
7907 arg1 = (_gsl_vector_view *)(argp1);
7908 result = (gsl_vector *)& ((arg1)->vector);
7909 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | SWIG_SHADOW); argvi++ ;
7910
7911 XSRETURN(argvi);
7912 fail:
7913
7914 SWIG_croak_null();
7915 }
7916 }
7917
7918
XS(_wrap_new__gsl_vector_view)7919 XS(_wrap_new__gsl_vector_view) {
7920 {
7921 int argvi = 0;
7922 _gsl_vector_view *result = 0 ;
7923 dXSARGS;
7924
7925 if ((items < 0) || (items > 0)) {
7926 SWIG_croak("Usage: new__gsl_vector_view();");
7927 }
7928 result = (_gsl_vector_view *)calloc(1, sizeof(_gsl_vector_view));
7929 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p__gsl_vector_view, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
7930 XSRETURN(argvi);
7931 fail:
7932 SWIG_croak_null();
7933 }
7934 }
7935
7936
XS(_wrap_delete__gsl_vector_view)7937 XS(_wrap_delete__gsl_vector_view) {
7938 {
7939 _gsl_vector_view *arg1 = (_gsl_vector_view *) 0 ;
7940 void *argp1 = 0 ;
7941 int res1 = 0 ;
7942 int argvi = 0;
7943 dXSARGS;
7944
7945 if ((items < 1) || (items > 1)) {
7946 SWIG_croak("Usage: delete__gsl_vector_view(self);");
7947 }
7948 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_view, SWIG_POINTER_DISOWN | 0 );
7949 if (!SWIG_IsOK(res1)) {
7950 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete__gsl_vector_view" "', argument " "1"" of type '" "_gsl_vector_view *""'");
7951 }
7952 arg1 = (_gsl_vector_view *)(argp1);
7953 free((char *) arg1);
7954 ST(argvi) = &PL_sv_undef;
7955
7956 XSRETURN(argvi);
7957 fail:
7958
7959 SWIG_croak_null();
7960 }
7961 }
7962
7963
XS(_wrap__gsl_vector_const_view_vector_set)7964 XS(_wrap__gsl_vector_const_view_vector_set) {
7965 {
7966 _gsl_vector_const_view *arg1 = (_gsl_vector_const_view *) 0 ;
7967 gsl_vector *arg2 = (gsl_vector *) 0 ;
7968 void *argp1 = 0 ;
7969 int res1 = 0 ;
7970 void *argp2 = 0 ;
7971 int res2 = 0 ;
7972 int argvi = 0;
7973 dXSARGS;
7974
7975 if ((items < 2) || (items > 2)) {
7976 SWIG_croak("Usage: _gsl_vector_const_view_vector_set(self,vector);");
7977 }
7978 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_const_view, 0 | 0 );
7979 if (!SWIG_IsOK(res1)) {
7980 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "_gsl_vector_const_view_vector_set" "', argument " "1"" of type '" "_gsl_vector_const_view *""'");
7981 }
7982 arg1 = (_gsl_vector_const_view *)(argp1);
7983 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7984 if (!SWIG_IsOK(res2)) {
7985 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "_gsl_vector_const_view_vector_set" "', argument " "2"" of type '" "gsl_vector *""'");
7986 }
7987 arg2 = (gsl_vector *)(argp2);
7988 if (arg1) (arg1)->vector = *arg2;
7989 ST(argvi) = &PL_sv_undef;
7990
7991
7992 XSRETURN(argvi);
7993 fail:
7994
7995
7996 SWIG_croak_null();
7997 }
7998 }
7999
8000
XS(_wrap__gsl_vector_const_view_vector_get)8001 XS(_wrap__gsl_vector_const_view_vector_get) {
8002 {
8003 _gsl_vector_const_view *arg1 = (_gsl_vector_const_view *) 0 ;
8004 void *argp1 = 0 ;
8005 int res1 = 0 ;
8006 int argvi = 0;
8007 gsl_vector *result = 0 ;
8008 dXSARGS;
8009
8010 if ((items < 1) || (items > 1)) {
8011 SWIG_croak("Usage: _gsl_vector_const_view_vector_get(self);");
8012 }
8013 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_const_view, 0 | 0 );
8014 if (!SWIG_IsOK(res1)) {
8015 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "_gsl_vector_const_view_vector_get" "', argument " "1"" of type '" "_gsl_vector_const_view *""'");
8016 }
8017 arg1 = (_gsl_vector_const_view *)(argp1);
8018 result = (gsl_vector *)& ((arg1)->vector);
8019 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | SWIG_SHADOW); argvi++ ;
8020
8021 XSRETURN(argvi);
8022 fail:
8023
8024 SWIG_croak_null();
8025 }
8026 }
8027
8028
XS(_wrap_new__gsl_vector_const_view)8029 XS(_wrap_new__gsl_vector_const_view) {
8030 {
8031 int argvi = 0;
8032 _gsl_vector_const_view *result = 0 ;
8033 dXSARGS;
8034
8035 if ((items < 0) || (items > 0)) {
8036 SWIG_croak("Usage: new__gsl_vector_const_view();");
8037 }
8038 result = (_gsl_vector_const_view *)calloc(1, sizeof(_gsl_vector_const_view));
8039 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p__gsl_vector_const_view, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
8040 XSRETURN(argvi);
8041 fail:
8042 SWIG_croak_null();
8043 }
8044 }
8045
8046
XS(_wrap_delete__gsl_vector_const_view)8047 XS(_wrap_delete__gsl_vector_const_view) {
8048 {
8049 _gsl_vector_const_view *arg1 = (_gsl_vector_const_view *) 0 ;
8050 void *argp1 = 0 ;
8051 int res1 = 0 ;
8052 int argvi = 0;
8053 dXSARGS;
8054
8055 if ((items < 1) || (items > 1)) {
8056 SWIG_croak("Usage: delete__gsl_vector_const_view(self);");
8057 }
8058 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_const_view, SWIG_POINTER_DISOWN | 0 );
8059 if (!SWIG_IsOK(res1)) {
8060 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete__gsl_vector_const_view" "', argument " "1"" of type '" "_gsl_vector_const_view *""'");
8061 }
8062 arg1 = (_gsl_vector_const_view *)(argp1);
8063 free((char *) arg1);
8064 ST(argvi) = &PL_sv_undef;
8065
8066 XSRETURN(argvi);
8067 fail:
8068
8069 SWIG_croak_null();
8070 }
8071 }
8072
8073
XS(_wrap_gsl_vector_alloc)8074 XS(_wrap_gsl_vector_alloc) {
8075 {
8076 size_t arg1 ;
8077 size_t val1 ;
8078 int ecode1 = 0 ;
8079 int argvi = 0;
8080 gsl_vector *result = 0 ;
8081 dXSARGS;
8082
8083 if ((items < 1) || (items > 1)) {
8084 SWIG_croak("Usage: gsl_vector_alloc(n);");
8085 }
8086 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
8087 if (!SWIG_IsOK(ecode1)) {
8088 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_vector_alloc" "', argument " "1"" of type '" "size_t""'");
8089 }
8090 arg1 = (size_t)(val1);
8091 result = (gsl_vector *)gsl_vector_alloc(arg1);
8092 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | SWIG_SHADOW); argvi++ ;
8093
8094 XSRETURN(argvi);
8095 fail:
8096
8097 SWIG_croak_null();
8098 }
8099 }
8100
8101
XS(_wrap_gsl_vector_calloc)8102 XS(_wrap_gsl_vector_calloc) {
8103 {
8104 size_t arg1 ;
8105 size_t val1 ;
8106 int ecode1 = 0 ;
8107 int argvi = 0;
8108 gsl_vector *result = 0 ;
8109 dXSARGS;
8110
8111 if ((items < 1) || (items > 1)) {
8112 SWIG_croak("Usage: gsl_vector_calloc(n);");
8113 }
8114 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
8115 if (!SWIG_IsOK(ecode1)) {
8116 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_vector_calloc" "', argument " "1"" of type '" "size_t""'");
8117 }
8118 arg1 = (size_t)(val1);
8119 result = (gsl_vector *)gsl_vector_calloc(arg1);
8120 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | SWIG_SHADOW); argvi++ ;
8121
8122 XSRETURN(argvi);
8123 fail:
8124
8125 SWIG_croak_null();
8126 }
8127 }
8128
8129
XS(_wrap_gsl_vector_alloc_from_block)8130 XS(_wrap_gsl_vector_alloc_from_block) {
8131 {
8132 gsl_block *arg1 = (gsl_block *) 0 ;
8133 size_t arg2 ;
8134 size_t arg3 ;
8135 size_t arg4 ;
8136 void *argp1 = 0 ;
8137 int res1 = 0 ;
8138 size_t val2 ;
8139 int ecode2 = 0 ;
8140 size_t val3 ;
8141 int ecode3 = 0 ;
8142 size_t val4 ;
8143 int ecode4 = 0 ;
8144 int argvi = 0;
8145 gsl_vector *result = 0 ;
8146 dXSARGS;
8147
8148 if ((items < 4) || (items > 4)) {
8149 SWIG_croak("Usage: gsl_vector_alloc_from_block(b,offset,n,stride);");
8150 }
8151 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_block, 0 | 0 );
8152 if (!SWIG_IsOK(res1)) {
8153 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_alloc_from_block" "', argument " "1"" of type '" "gsl_block *""'");
8154 }
8155 arg1 = (gsl_block *)(argp1);
8156 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8157 if (!SWIG_IsOK(ecode2)) {
8158 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_alloc_from_block" "', argument " "2"" of type '" "size_t""'");
8159 }
8160 arg2 = (size_t)(val2);
8161 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
8162 if (!SWIG_IsOK(ecode3)) {
8163 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_alloc_from_block" "', argument " "3"" of type '" "size_t""'");
8164 }
8165 arg3 = (size_t)(val3);
8166 ecode4 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
8167 if (!SWIG_IsOK(ecode4)) {
8168 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_vector_alloc_from_block" "', argument " "4"" of type '" "size_t""'");
8169 }
8170 arg4 = (size_t)(val4);
8171 result = (gsl_vector *)gsl_vector_alloc_from_block(arg1,arg2,arg3,arg4);
8172 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | SWIG_SHADOW); argvi++ ;
8173
8174
8175
8176
8177 XSRETURN(argvi);
8178 fail:
8179
8180
8181
8182
8183 SWIG_croak_null();
8184 }
8185 }
8186
8187
XS(_wrap_gsl_vector_alloc_from_vector)8188 XS(_wrap_gsl_vector_alloc_from_vector) {
8189 {
8190 gsl_vector *arg1 = (gsl_vector *) 0 ;
8191 size_t arg2 ;
8192 size_t arg3 ;
8193 size_t arg4 ;
8194 void *argp1 = 0 ;
8195 int res1 = 0 ;
8196 size_t val2 ;
8197 int ecode2 = 0 ;
8198 size_t val3 ;
8199 int ecode3 = 0 ;
8200 size_t val4 ;
8201 int ecode4 = 0 ;
8202 int argvi = 0;
8203 gsl_vector *result = 0 ;
8204 dXSARGS;
8205
8206 if ((items < 4) || (items > 4)) {
8207 SWIG_croak("Usage: gsl_vector_alloc_from_vector(v,offset,n,stride);");
8208 }
8209 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
8210 if (!SWIG_IsOK(res1)) {
8211 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_alloc_from_vector" "', argument " "1"" of type '" "gsl_vector *""'");
8212 }
8213 arg1 = (gsl_vector *)(argp1);
8214 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8215 if (!SWIG_IsOK(ecode2)) {
8216 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_alloc_from_vector" "', argument " "2"" of type '" "size_t""'");
8217 }
8218 arg2 = (size_t)(val2);
8219 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
8220 if (!SWIG_IsOK(ecode3)) {
8221 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_alloc_from_vector" "', argument " "3"" of type '" "size_t""'");
8222 }
8223 arg3 = (size_t)(val3);
8224 ecode4 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
8225 if (!SWIG_IsOK(ecode4)) {
8226 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_vector_alloc_from_vector" "', argument " "4"" of type '" "size_t""'");
8227 }
8228 arg4 = (size_t)(val4);
8229 result = (gsl_vector *)gsl_vector_alloc_from_vector(arg1,arg2,arg3,arg4);
8230 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | SWIG_SHADOW); argvi++ ;
8231
8232
8233
8234
8235 XSRETURN(argvi);
8236 fail:
8237
8238
8239
8240
8241 SWIG_croak_null();
8242 }
8243 }
8244
8245
XS(_wrap_gsl_vector_free)8246 XS(_wrap_gsl_vector_free) {
8247 {
8248 gsl_vector *arg1 = (gsl_vector *) 0 ;
8249 void *argp1 = 0 ;
8250 int res1 = 0 ;
8251 int argvi = 0;
8252 dXSARGS;
8253
8254 if ((items < 1) || (items > 1)) {
8255 SWIG_croak("Usage: gsl_vector_free(v);");
8256 }
8257 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
8258 if (!SWIG_IsOK(res1)) {
8259 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_free" "', argument " "1"" of type '" "gsl_vector *""'");
8260 }
8261 arg1 = (gsl_vector *)(argp1);
8262 gsl_vector_free(arg1);
8263 ST(argvi) = &PL_sv_undef;
8264
8265 XSRETURN(argvi);
8266 fail:
8267
8268 SWIG_croak_null();
8269 }
8270 }
8271
8272
XS(_wrap_gsl_vector_view_array)8273 XS(_wrap_gsl_vector_view_array) {
8274 {
8275 double *arg1 = (double *) 0 ;
8276 size_t arg2 ;
8277 size_t val2 ;
8278 int ecode2 = 0 ;
8279 int argvi = 0;
8280 _gsl_vector_view result;
8281 dXSARGS;
8282
8283 if ((items < 2) || (items > 2)) {
8284 SWIG_croak("Usage: gsl_vector_view_array(v,n);");
8285 }
8286 {
8287 AV *tempav;
8288 I32 len;
8289 int i;
8290 SV **tv;
8291 if (!SvROK(ST(0)))
8292 croak("Math::GSL : $v is not a reference!");
8293 if (SvTYPE(SvRV(ST(0))) != SVt_PVAV)
8294 croak("Math::GSL : $v is not an array ref!");
8295
8296 tempav = (AV*)SvRV(ST(0));
8297 len = av_len(tempav);
8298 arg1 = (double *) malloc((len+2)*sizeof(double));
8299 for (i = 0; i <= len; i++) {
8300 tv = av_fetch(tempav, i, 0);
8301 arg1[i] = (double) SvNV(*tv);
8302 }
8303 }
8304 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8305 if (!SWIG_IsOK(ecode2)) {
8306 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_view_array" "', argument " "2"" of type '" "size_t""'");
8307 }
8308 arg2 = (size_t)(val2);
8309 result = gsl_vector_view_array(arg1,arg2);
8310 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++ ;
8311 {
8312 if (arg1) free(arg1);
8313 }
8314
8315 XSRETURN(argvi);
8316 fail:
8317 {
8318 if (arg1) free(arg1);
8319 }
8320
8321 SWIG_croak_null();
8322 }
8323 }
8324
8325
XS(_wrap_gsl_vector_view_array_with_stride)8326 XS(_wrap_gsl_vector_view_array_with_stride) {
8327 {
8328 double *arg1 = (double *) 0 ;
8329 size_t arg2 ;
8330 size_t arg3 ;
8331 size_t val2 ;
8332 int ecode2 = 0 ;
8333 size_t val3 ;
8334 int ecode3 = 0 ;
8335 int argvi = 0;
8336 _gsl_vector_view result;
8337 dXSARGS;
8338
8339 if ((items < 3) || (items > 3)) {
8340 SWIG_croak("Usage: gsl_vector_view_array_with_stride(base,stride,n);");
8341 }
8342 {
8343 AV *tempav;
8344 I32 len;
8345 int i;
8346 SV **tv;
8347 if (!SvROK(ST(0)))
8348 croak("Math::GSL : $base is not a reference!");
8349 if (SvTYPE(SvRV(ST(0))) != SVt_PVAV)
8350 croak("Math::GSL : $base is not an array ref!");
8351
8352 tempav = (AV*)SvRV(ST(0));
8353 len = av_len(tempav);
8354 arg1 = (double *) malloc((len+2)*sizeof(double));
8355 for (i = 0; i <= len; i++) {
8356 tv = av_fetch(tempav, i, 0);
8357 arg1[i] = (double) SvNV(*tv);
8358 }
8359 }
8360 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8361 if (!SWIG_IsOK(ecode2)) {
8362 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_view_array_with_stride" "', argument " "2"" of type '" "size_t""'");
8363 }
8364 arg2 = (size_t)(val2);
8365 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
8366 if (!SWIG_IsOK(ecode3)) {
8367 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_view_array_with_stride" "', argument " "3"" of type '" "size_t""'");
8368 }
8369 arg3 = (size_t)(val3);
8370 result = gsl_vector_view_array_with_stride(arg1,arg2,arg3);
8371 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++ ;
8372 {
8373 if (arg1) free(arg1);
8374 }
8375
8376
8377 XSRETURN(argvi);
8378 fail:
8379 {
8380 if (arg1) free(arg1);
8381 }
8382
8383
8384 SWIG_croak_null();
8385 }
8386 }
8387
8388
XS(_wrap_gsl_vector_const_view_array)8389 XS(_wrap_gsl_vector_const_view_array) {
8390 {
8391 double *arg1 = (double *) 0 ;
8392 size_t arg2 ;
8393 size_t val2 ;
8394 int ecode2 = 0 ;
8395 int argvi = 0;
8396 _gsl_vector_const_view result;
8397 dXSARGS;
8398
8399 if ((items < 2) || (items > 2)) {
8400 SWIG_croak("Usage: gsl_vector_const_view_array(v,n);");
8401 }
8402 {
8403 AV *tempav;
8404 I32 len;
8405 int i;
8406 SV **tv;
8407 if (!SvROK(ST(0)))
8408 croak("Math::GSL : $v is not a reference!");
8409 if (SvTYPE(SvRV(ST(0))) != SVt_PVAV)
8410 croak("Math::GSL : $v is not an array ref!");
8411
8412 tempav = (AV*)SvRV(ST(0));
8413 len = av_len(tempav);
8414 arg1 = (double *) malloc((len+2)*sizeof(double));
8415 for (i = 0; i <= len; i++) {
8416 tv = av_fetch(tempav, i, 0);
8417 arg1[i] = (double) SvNV(*tv);
8418 }
8419 }
8420 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8421 if (!SWIG_IsOK(ecode2)) {
8422 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_const_view_array" "', argument " "2"" of type '" "size_t""'");
8423 }
8424 arg2 = (size_t)(val2);
8425 result = gsl_vector_const_view_array((double const *)arg1,arg2);
8426 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++ ;
8427 {
8428 if (arg1) free(arg1);
8429 }
8430
8431 XSRETURN(argvi);
8432 fail:
8433 {
8434 if (arg1) free(arg1);
8435 }
8436
8437 SWIG_croak_null();
8438 }
8439 }
8440
8441
XS(_wrap_gsl_vector_const_view_array_with_stride)8442 XS(_wrap_gsl_vector_const_view_array_with_stride) {
8443 {
8444 double *arg1 = (double *) 0 ;
8445 size_t arg2 ;
8446 size_t arg3 ;
8447 size_t val2 ;
8448 int ecode2 = 0 ;
8449 size_t val3 ;
8450 int ecode3 = 0 ;
8451 int argvi = 0;
8452 _gsl_vector_const_view result;
8453 dXSARGS;
8454
8455 if ((items < 3) || (items > 3)) {
8456 SWIG_croak("Usage: gsl_vector_const_view_array_with_stride(base,stride,n);");
8457 }
8458 {
8459 AV *tempav;
8460 I32 len;
8461 int i;
8462 SV **tv;
8463 if (!SvROK(ST(0)))
8464 croak("Math::GSL : $base is not a reference!");
8465 if (SvTYPE(SvRV(ST(0))) != SVt_PVAV)
8466 croak("Math::GSL : $base is not an array ref!");
8467
8468 tempav = (AV*)SvRV(ST(0));
8469 len = av_len(tempav);
8470 arg1 = (double *) malloc((len+2)*sizeof(double));
8471 for (i = 0; i <= len; i++) {
8472 tv = av_fetch(tempav, i, 0);
8473 arg1[i] = (double) SvNV(*tv);
8474 }
8475 }
8476 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8477 if (!SWIG_IsOK(ecode2)) {
8478 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_const_view_array_with_stride" "', argument " "2"" of type '" "size_t""'");
8479 }
8480 arg2 = (size_t)(val2);
8481 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
8482 if (!SWIG_IsOK(ecode3)) {
8483 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_const_view_array_with_stride" "', argument " "3"" of type '" "size_t""'");
8484 }
8485 arg3 = (size_t)(val3);
8486 result = gsl_vector_const_view_array_with_stride((double const *)arg1,arg2,arg3);
8487 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++ ;
8488 {
8489 if (arg1) free(arg1);
8490 }
8491
8492
8493 XSRETURN(argvi);
8494 fail:
8495 {
8496 if (arg1) free(arg1);
8497 }
8498
8499
8500 SWIG_croak_null();
8501 }
8502 }
8503
8504
XS(_wrap_gsl_vector_subvector)8505 XS(_wrap_gsl_vector_subvector) {
8506 {
8507 gsl_vector *arg1 = (gsl_vector *) 0 ;
8508 size_t arg2 ;
8509 size_t arg3 ;
8510 void *argp1 = 0 ;
8511 int res1 = 0 ;
8512 size_t val2 ;
8513 int ecode2 = 0 ;
8514 size_t val3 ;
8515 int ecode3 = 0 ;
8516 int argvi = 0;
8517 _gsl_vector_view result;
8518 dXSARGS;
8519
8520 if ((items < 3) || (items > 3)) {
8521 SWIG_croak("Usage: gsl_vector_subvector(v,i,n);");
8522 }
8523 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
8524 if (!SWIG_IsOK(res1)) {
8525 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_subvector" "', argument " "1"" of type '" "gsl_vector *""'");
8526 }
8527 arg1 = (gsl_vector *)(argp1);
8528 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8529 if (!SWIG_IsOK(ecode2)) {
8530 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_subvector" "', argument " "2"" of type '" "size_t""'");
8531 }
8532 arg2 = (size_t)(val2);
8533 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
8534 if (!SWIG_IsOK(ecode3)) {
8535 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_subvector" "', argument " "3"" of type '" "size_t""'");
8536 }
8537 arg3 = (size_t)(val3);
8538 result = gsl_vector_subvector(arg1,arg2,arg3);
8539 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++ ;
8540
8541
8542
8543 XSRETURN(argvi);
8544 fail:
8545
8546
8547
8548 SWIG_croak_null();
8549 }
8550 }
8551
8552
XS(_wrap_gsl_vector_subvector_with_stride)8553 XS(_wrap_gsl_vector_subvector_with_stride) {
8554 {
8555 gsl_vector *arg1 = (gsl_vector *) 0 ;
8556 size_t arg2 ;
8557 size_t arg3 ;
8558 size_t arg4 ;
8559 void *argp1 = 0 ;
8560 int res1 = 0 ;
8561 size_t val2 ;
8562 int ecode2 = 0 ;
8563 size_t val3 ;
8564 int ecode3 = 0 ;
8565 size_t val4 ;
8566 int ecode4 = 0 ;
8567 int argvi = 0;
8568 _gsl_vector_view result;
8569 dXSARGS;
8570
8571 if ((items < 4) || (items > 4)) {
8572 SWIG_croak("Usage: gsl_vector_subvector_with_stride(v,i,stride,n);");
8573 }
8574 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
8575 if (!SWIG_IsOK(res1)) {
8576 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_subvector_with_stride" "', argument " "1"" of type '" "gsl_vector *""'");
8577 }
8578 arg1 = (gsl_vector *)(argp1);
8579 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8580 if (!SWIG_IsOK(ecode2)) {
8581 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_subvector_with_stride" "', argument " "2"" of type '" "size_t""'");
8582 }
8583 arg2 = (size_t)(val2);
8584 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
8585 if (!SWIG_IsOK(ecode3)) {
8586 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_subvector_with_stride" "', argument " "3"" of type '" "size_t""'");
8587 }
8588 arg3 = (size_t)(val3);
8589 ecode4 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
8590 if (!SWIG_IsOK(ecode4)) {
8591 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_vector_subvector_with_stride" "', argument " "4"" of type '" "size_t""'");
8592 }
8593 arg4 = (size_t)(val4);
8594 result = gsl_vector_subvector_with_stride(arg1,arg2,arg3,arg4);
8595 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++ ;
8596
8597
8598
8599
8600 XSRETURN(argvi);
8601 fail:
8602
8603
8604
8605
8606 SWIG_croak_null();
8607 }
8608 }
8609
8610
XS(_wrap_gsl_vector_const_subvector)8611 XS(_wrap_gsl_vector_const_subvector) {
8612 {
8613 gsl_vector *arg1 = (gsl_vector *) 0 ;
8614 size_t arg2 ;
8615 size_t arg3 ;
8616 void *argp1 = 0 ;
8617 int res1 = 0 ;
8618 size_t val2 ;
8619 int ecode2 = 0 ;
8620 size_t val3 ;
8621 int ecode3 = 0 ;
8622 int argvi = 0;
8623 _gsl_vector_const_view result;
8624 dXSARGS;
8625
8626 if ((items < 3) || (items > 3)) {
8627 SWIG_croak("Usage: gsl_vector_const_subvector(v,i,n);");
8628 }
8629 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
8630 if (!SWIG_IsOK(res1)) {
8631 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_const_subvector" "', argument " "1"" of type '" "gsl_vector const *""'");
8632 }
8633 arg1 = (gsl_vector *)(argp1);
8634 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8635 if (!SWIG_IsOK(ecode2)) {
8636 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_const_subvector" "', argument " "2"" of type '" "size_t""'");
8637 }
8638 arg2 = (size_t)(val2);
8639 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
8640 if (!SWIG_IsOK(ecode3)) {
8641 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_const_subvector" "', argument " "3"" of type '" "size_t""'");
8642 }
8643 arg3 = (size_t)(val3);
8644 result = gsl_vector_const_subvector((gsl_vector const *)arg1,arg2,arg3);
8645 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++ ;
8646
8647
8648
8649 XSRETURN(argvi);
8650 fail:
8651
8652
8653
8654 SWIG_croak_null();
8655 }
8656 }
8657
8658
XS(_wrap_gsl_vector_const_subvector_with_stride)8659 XS(_wrap_gsl_vector_const_subvector_with_stride) {
8660 {
8661 gsl_vector *arg1 = (gsl_vector *) 0 ;
8662 size_t arg2 ;
8663 size_t arg3 ;
8664 size_t arg4 ;
8665 void *argp1 = 0 ;
8666 int res1 = 0 ;
8667 size_t val2 ;
8668 int ecode2 = 0 ;
8669 size_t val3 ;
8670 int ecode3 = 0 ;
8671 size_t val4 ;
8672 int ecode4 = 0 ;
8673 int argvi = 0;
8674 _gsl_vector_const_view result;
8675 dXSARGS;
8676
8677 if ((items < 4) || (items > 4)) {
8678 SWIG_croak("Usage: gsl_vector_const_subvector_with_stride(v,i,stride,n);");
8679 }
8680 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
8681 if (!SWIG_IsOK(res1)) {
8682 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_const_subvector_with_stride" "', argument " "1"" of type '" "gsl_vector const *""'");
8683 }
8684 arg1 = (gsl_vector *)(argp1);
8685 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8686 if (!SWIG_IsOK(ecode2)) {
8687 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_const_subvector_with_stride" "', argument " "2"" of type '" "size_t""'");
8688 }
8689 arg2 = (size_t)(val2);
8690 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
8691 if (!SWIG_IsOK(ecode3)) {
8692 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_const_subvector_with_stride" "', argument " "3"" of type '" "size_t""'");
8693 }
8694 arg3 = (size_t)(val3);
8695 ecode4 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
8696 if (!SWIG_IsOK(ecode4)) {
8697 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_vector_const_subvector_with_stride" "', argument " "4"" of type '" "size_t""'");
8698 }
8699 arg4 = (size_t)(val4);
8700 result = gsl_vector_const_subvector_with_stride((gsl_vector const *)arg1,arg2,arg3,arg4);
8701 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++ ;
8702
8703
8704
8705
8706 XSRETURN(argvi);
8707 fail:
8708
8709
8710
8711
8712 SWIG_croak_null();
8713 }
8714 }
8715
8716
XS(_wrap_gsl_vector_set_zero)8717 XS(_wrap_gsl_vector_set_zero) {
8718 {
8719 gsl_vector *arg1 = (gsl_vector *) 0 ;
8720 void *argp1 = 0 ;
8721 int res1 = 0 ;
8722 int argvi = 0;
8723 dXSARGS;
8724
8725 if ((items < 1) || (items > 1)) {
8726 SWIG_croak("Usage: gsl_vector_set_zero(v);");
8727 }
8728 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
8729 if (!SWIG_IsOK(res1)) {
8730 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_set_zero" "', argument " "1"" of type '" "gsl_vector *""'");
8731 }
8732 arg1 = (gsl_vector *)(argp1);
8733 gsl_vector_set_zero(arg1);
8734 ST(argvi) = &PL_sv_undef;
8735
8736 XSRETURN(argvi);
8737 fail:
8738
8739 SWIG_croak_null();
8740 }
8741 }
8742
8743
XS(_wrap_gsl_vector_set_all)8744 XS(_wrap_gsl_vector_set_all) {
8745 {
8746 gsl_vector *arg1 = (gsl_vector *) 0 ;
8747 double arg2 ;
8748 void *argp1 = 0 ;
8749 int res1 = 0 ;
8750 double val2 ;
8751 int ecode2 = 0 ;
8752 int argvi = 0;
8753 dXSARGS;
8754
8755 if ((items < 2) || (items > 2)) {
8756 SWIG_croak("Usage: gsl_vector_set_all(v,x);");
8757 }
8758 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
8759 if (!SWIG_IsOK(res1)) {
8760 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_set_all" "', argument " "1"" of type '" "gsl_vector *""'");
8761 }
8762 arg1 = (gsl_vector *)(argp1);
8763 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8764 if (!SWIG_IsOK(ecode2)) {
8765 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_set_all" "', argument " "2"" of type '" "double""'");
8766 }
8767 arg2 = (double)(val2);
8768 gsl_vector_set_all(arg1,arg2);
8769 ST(argvi) = &PL_sv_undef;
8770
8771
8772 XSRETURN(argvi);
8773 fail:
8774
8775
8776 SWIG_croak_null();
8777 }
8778 }
8779
8780
XS(_wrap_gsl_vector_set_basis)8781 XS(_wrap_gsl_vector_set_basis) {
8782 {
8783 gsl_vector *arg1 = (gsl_vector *) 0 ;
8784 size_t arg2 ;
8785 void *argp1 = 0 ;
8786 int res1 = 0 ;
8787 size_t val2 ;
8788 int ecode2 = 0 ;
8789 int argvi = 0;
8790 int result;
8791 dXSARGS;
8792
8793 if ((items < 2) || (items > 2)) {
8794 SWIG_croak("Usage: gsl_vector_set_basis(v,i);");
8795 }
8796 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
8797 if (!SWIG_IsOK(res1)) {
8798 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_set_basis" "', argument " "1"" of type '" "gsl_vector *""'");
8799 }
8800 arg1 = (gsl_vector *)(argp1);
8801 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8802 if (!SWIG_IsOK(ecode2)) {
8803 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_set_basis" "', argument " "2"" of type '" "size_t""'");
8804 }
8805 arg2 = (size_t)(val2);
8806 result = (int)gsl_vector_set_basis(arg1,arg2);
8807 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8808
8809
8810 XSRETURN(argvi);
8811 fail:
8812
8813
8814 SWIG_croak_null();
8815 }
8816 }
8817
8818
XS(_wrap_gsl_vector_fread)8819 XS(_wrap_gsl_vector_fread) {
8820 {
8821 FILE *arg1 = (FILE *) 0 ;
8822 gsl_vector *arg2 = (gsl_vector *) 0 ;
8823 void *argp1 = 0 ;
8824 int res1 = 0 ;
8825 void *argp2 = 0 ;
8826 int res2 = 0 ;
8827 int argvi = 0;
8828 int result;
8829 dXSARGS;
8830
8831 if ((items < 2) || (items > 2)) {
8832 SWIG_croak("Usage: gsl_vector_fread(stream,v);");
8833 }
8834 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
8835 if (!SWIG_IsOK(res1)) {
8836 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_fread" "', argument " "1"" of type '" "FILE *""'");
8837 }
8838 arg1 = (FILE *)(argp1);
8839 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8840 if (!SWIG_IsOK(res2)) {
8841 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_fread" "', argument " "2"" of type '" "gsl_vector *""'");
8842 }
8843 arg2 = (gsl_vector *)(argp2);
8844 result = (int)gsl_vector_fread(arg1,arg2);
8845 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8846
8847
8848 XSRETURN(argvi);
8849 fail:
8850
8851
8852 SWIG_croak_null();
8853 }
8854 }
8855
8856
XS(_wrap_gsl_vector_fwrite)8857 XS(_wrap_gsl_vector_fwrite) {
8858 {
8859 FILE *arg1 = (FILE *) 0 ;
8860 gsl_vector *arg2 = (gsl_vector *) 0 ;
8861 void *argp1 = 0 ;
8862 int res1 = 0 ;
8863 void *argp2 = 0 ;
8864 int res2 = 0 ;
8865 int argvi = 0;
8866 int result;
8867 dXSARGS;
8868
8869 if ((items < 2) || (items > 2)) {
8870 SWIG_croak("Usage: gsl_vector_fwrite(stream,v);");
8871 }
8872 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
8873 if (!SWIG_IsOK(res1)) {
8874 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_fwrite" "', argument " "1"" of type '" "FILE *""'");
8875 }
8876 arg1 = (FILE *)(argp1);
8877 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8878 if (!SWIG_IsOK(res2)) {
8879 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_fwrite" "', argument " "2"" of type '" "gsl_vector const *""'");
8880 }
8881 arg2 = (gsl_vector *)(argp2);
8882 result = (int)gsl_vector_fwrite(arg1,(gsl_vector const *)arg2);
8883 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8884
8885
8886 XSRETURN(argvi);
8887 fail:
8888
8889
8890 SWIG_croak_null();
8891 }
8892 }
8893
8894
XS(_wrap_gsl_vector_fscanf)8895 XS(_wrap_gsl_vector_fscanf) {
8896 {
8897 FILE *arg1 = (FILE *) 0 ;
8898 gsl_vector *arg2 = (gsl_vector *) 0 ;
8899 void *argp1 = 0 ;
8900 int res1 = 0 ;
8901 void *argp2 = 0 ;
8902 int res2 = 0 ;
8903 int argvi = 0;
8904 int result;
8905 dXSARGS;
8906
8907 if ((items < 2) || (items > 2)) {
8908 SWIG_croak("Usage: gsl_vector_fscanf(stream,v);");
8909 }
8910 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
8911 if (!SWIG_IsOK(res1)) {
8912 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_fscanf" "', argument " "1"" of type '" "FILE *""'");
8913 }
8914 arg1 = (FILE *)(argp1);
8915 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8916 if (!SWIG_IsOK(res2)) {
8917 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_fscanf" "', argument " "2"" of type '" "gsl_vector *""'");
8918 }
8919 arg2 = (gsl_vector *)(argp2);
8920 result = (int)gsl_vector_fscanf(arg1,arg2);
8921 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8922
8923
8924 XSRETURN(argvi);
8925 fail:
8926
8927
8928 SWIG_croak_null();
8929 }
8930 }
8931
8932
XS(_wrap_gsl_vector_fprintf)8933 XS(_wrap_gsl_vector_fprintf) {
8934 {
8935 FILE *arg1 = (FILE *) 0 ;
8936 gsl_vector *arg2 = (gsl_vector *) 0 ;
8937 char *arg3 = (char *) 0 ;
8938 void *argp1 = 0 ;
8939 int res1 = 0 ;
8940 void *argp2 = 0 ;
8941 int res2 = 0 ;
8942 int res3 ;
8943 char *buf3 = 0 ;
8944 int alloc3 = 0 ;
8945 int argvi = 0;
8946 int result;
8947 dXSARGS;
8948
8949 if ((items < 3) || (items > 3)) {
8950 SWIG_croak("Usage: gsl_vector_fprintf(stream,v,format);");
8951 }
8952 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
8953 if (!SWIG_IsOK(res1)) {
8954 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_fprintf" "', argument " "1"" of type '" "FILE *""'");
8955 }
8956 arg1 = (FILE *)(argp1);
8957 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8958 if (!SWIG_IsOK(res2)) {
8959 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_fprintf" "', argument " "2"" of type '" "gsl_vector const *""'");
8960 }
8961 arg2 = (gsl_vector *)(argp2);
8962 res3 = SWIG_AsCharPtrAndSize(ST(2), &buf3, NULL, &alloc3);
8963 if (!SWIG_IsOK(res3)) {
8964 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_vector_fprintf" "', argument " "3"" of type '" "char const *""'");
8965 }
8966 arg3 = (char *)(buf3);
8967 result = (int)gsl_vector_fprintf(arg1,(gsl_vector const *)arg2,(char const *)arg3);
8968 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8969
8970
8971 if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
8972 XSRETURN(argvi);
8973 fail:
8974
8975
8976 if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
8977 SWIG_croak_null();
8978 }
8979 }
8980
8981
XS(_wrap_gsl_vector_memcpy)8982 XS(_wrap_gsl_vector_memcpy) {
8983 {
8984 gsl_vector *arg1 = (gsl_vector *) 0 ;
8985 gsl_vector *arg2 = (gsl_vector *) 0 ;
8986 void *argp1 = 0 ;
8987 int res1 = 0 ;
8988 void *argp2 = 0 ;
8989 int res2 = 0 ;
8990 int argvi = 0;
8991 int result;
8992 dXSARGS;
8993
8994 if ((items < 2) || (items > 2)) {
8995 SWIG_croak("Usage: gsl_vector_memcpy(dest,src);");
8996 }
8997 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
8998 if (!SWIG_IsOK(res1)) {
8999 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_memcpy" "', argument " "1"" of type '" "gsl_vector *""'");
9000 }
9001 arg1 = (gsl_vector *)(argp1);
9002 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9003 if (!SWIG_IsOK(res2)) {
9004 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_memcpy" "', argument " "2"" of type '" "gsl_vector const *""'");
9005 }
9006 arg2 = (gsl_vector *)(argp2);
9007 result = (int)gsl_vector_memcpy(arg1,(gsl_vector const *)arg2);
9008 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9009
9010
9011 XSRETURN(argvi);
9012 fail:
9013
9014
9015 SWIG_croak_null();
9016 }
9017 }
9018
9019
XS(_wrap_gsl_vector_reverse)9020 XS(_wrap_gsl_vector_reverse) {
9021 {
9022 gsl_vector *arg1 = (gsl_vector *) 0 ;
9023 void *argp1 = 0 ;
9024 int res1 = 0 ;
9025 int argvi = 0;
9026 int result;
9027 dXSARGS;
9028
9029 if ((items < 1) || (items > 1)) {
9030 SWIG_croak("Usage: gsl_vector_reverse(v);");
9031 }
9032 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9033 if (!SWIG_IsOK(res1)) {
9034 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_reverse" "', argument " "1"" of type '" "gsl_vector *""'");
9035 }
9036 arg1 = (gsl_vector *)(argp1);
9037 result = (int)gsl_vector_reverse(arg1);
9038 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9039
9040 XSRETURN(argvi);
9041 fail:
9042
9043 SWIG_croak_null();
9044 }
9045 }
9046
9047
XS(_wrap_gsl_vector_swap)9048 XS(_wrap_gsl_vector_swap) {
9049 {
9050 gsl_vector *arg1 = (gsl_vector *) 0 ;
9051 gsl_vector *arg2 = (gsl_vector *) 0 ;
9052 void *argp1 = 0 ;
9053 int res1 = 0 ;
9054 void *argp2 = 0 ;
9055 int res2 = 0 ;
9056 int argvi = 0;
9057 int result;
9058 dXSARGS;
9059
9060 if ((items < 2) || (items > 2)) {
9061 SWIG_croak("Usage: gsl_vector_swap(v,w);");
9062 }
9063 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9064 if (!SWIG_IsOK(res1)) {
9065 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_swap" "', argument " "1"" of type '" "gsl_vector *""'");
9066 }
9067 arg1 = (gsl_vector *)(argp1);
9068 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9069 if (!SWIG_IsOK(res2)) {
9070 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_swap" "', argument " "2"" of type '" "gsl_vector *""'");
9071 }
9072 arg2 = (gsl_vector *)(argp2);
9073 result = (int)gsl_vector_swap(arg1,arg2);
9074 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9075
9076
9077 XSRETURN(argvi);
9078 fail:
9079
9080
9081 SWIG_croak_null();
9082 }
9083 }
9084
9085
XS(_wrap_gsl_vector_swap_elements)9086 XS(_wrap_gsl_vector_swap_elements) {
9087 {
9088 gsl_vector *arg1 = (gsl_vector *) 0 ;
9089 size_t arg2 ;
9090 size_t arg3 ;
9091 void *argp1 = 0 ;
9092 int res1 = 0 ;
9093 size_t val2 ;
9094 int ecode2 = 0 ;
9095 size_t val3 ;
9096 int ecode3 = 0 ;
9097 int argvi = 0;
9098 int result;
9099 dXSARGS;
9100
9101 if ((items < 3) || (items > 3)) {
9102 SWIG_croak("Usage: gsl_vector_swap_elements(v,i,j);");
9103 }
9104 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9105 if (!SWIG_IsOK(res1)) {
9106 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_swap_elements" "', argument " "1"" of type '" "gsl_vector *""'");
9107 }
9108 arg1 = (gsl_vector *)(argp1);
9109 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9110 if (!SWIG_IsOK(ecode2)) {
9111 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_swap_elements" "', argument " "2"" of type '" "size_t""'");
9112 }
9113 arg2 = (size_t)(val2);
9114 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
9115 if (!SWIG_IsOK(ecode3)) {
9116 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_swap_elements" "', argument " "3"" of type '" "size_t""'");
9117 }
9118 arg3 = (size_t)(val3);
9119 result = (int)gsl_vector_swap_elements(arg1,arg2,arg3);
9120 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9121
9122
9123
9124 XSRETURN(argvi);
9125 fail:
9126
9127
9128
9129 SWIG_croak_null();
9130 }
9131 }
9132
9133
XS(_wrap_gsl_vector_max)9134 XS(_wrap_gsl_vector_max) {
9135 {
9136 gsl_vector *arg1 = (gsl_vector *) 0 ;
9137 void *argp1 = 0 ;
9138 int res1 = 0 ;
9139 int argvi = 0;
9140 double result;
9141 dXSARGS;
9142
9143 if ((items < 1) || (items > 1)) {
9144 SWIG_croak("Usage: gsl_vector_max(v);");
9145 }
9146 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9147 if (!SWIG_IsOK(res1)) {
9148 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_max" "', argument " "1"" of type '" "gsl_vector const *""'");
9149 }
9150 arg1 = (gsl_vector *)(argp1);
9151 result = (double)gsl_vector_max((gsl_vector const *)arg1);
9152 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
9153
9154 XSRETURN(argvi);
9155 fail:
9156
9157 SWIG_croak_null();
9158 }
9159 }
9160
9161
XS(_wrap_gsl_vector_min)9162 XS(_wrap_gsl_vector_min) {
9163 {
9164 gsl_vector *arg1 = (gsl_vector *) 0 ;
9165 void *argp1 = 0 ;
9166 int res1 = 0 ;
9167 int argvi = 0;
9168 double result;
9169 dXSARGS;
9170
9171 if ((items < 1) || (items > 1)) {
9172 SWIG_croak("Usage: gsl_vector_min(v);");
9173 }
9174 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9175 if (!SWIG_IsOK(res1)) {
9176 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_min" "', argument " "1"" of type '" "gsl_vector const *""'");
9177 }
9178 arg1 = (gsl_vector *)(argp1);
9179 result = (double)gsl_vector_min((gsl_vector const *)arg1);
9180 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
9181
9182 XSRETURN(argvi);
9183 fail:
9184
9185 SWIG_croak_null();
9186 }
9187 }
9188
9189
XS(_wrap_gsl_vector_minmax)9190 XS(_wrap_gsl_vector_minmax) {
9191 {
9192 gsl_vector *arg1 = (gsl_vector *) 0 ;
9193 double *arg2 = (double *) 0 ;
9194 double *arg3 = (double *) 0 ;
9195 void *argp1 = 0 ;
9196 int res1 = 0 ;
9197 double temp2 ;
9198 int res2 = SWIG_TMPOBJ ;
9199 double temp3 ;
9200 int res3 = SWIG_TMPOBJ ;
9201 int argvi = 0;
9202 dXSARGS;
9203
9204 arg2 = &temp2;
9205 arg3 = &temp3;
9206 if ((items < 1) || (items > 1)) {
9207 SWIG_croak("Usage: gsl_vector_minmax(v);");
9208 }
9209 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9210 if (!SWIG_IsOK(res1)) {
9211 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_minmax" "', argument " "1"" of type '" "gsl_vector const *""'");
9212 }
9213 arg1 = (gsl_vector *)(argp1);
9214 gsl_vector_minmax((gsl_vector const *)arg1,arg2,arg3);
9215 ST(argvi) = &PL_sv_undef;
9216 if (SWIG_IsTmpObj(res2)) {
9217 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg2)); argvi++ ;
9218 } else {
9219 int new_flags = SWIG_IsNewObj(res2) ? (SWIG_POINTER_OWN | 0) : 0;
9220 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg2), SWIGTYPE_p_double, new_flags); argvi++ ;
9221 }
9222 if (SWIG_IsTmpObj(res3)) {
9223 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg3)); argvi++ ;
9224 } else {
9225 int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN | 0) : 0;
9226 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_double, new_flags); argvi++ ;
9227 }
9228
9229
9230
9231 XSRETURN(argvi);
9232 fail:
9233
9234
9235
9236 SWIG_croak_null();
9237 }
9238 }
9239
9240
XS(_wrap_gsl_vector_max_index)9241 XS(_wrap_gsl_vector_max_index) {
9242 {
9243 gsl_vector *arg1 = (gsl_vector *) 0 ;
9244 void *argp1 = 0 ;
9245 int res1 = 0 ;
9246 int argvi = 0;
9247 size_t result;
9248 dXSARGS;
9249
9250 if ((items < 1) || (items > 1)) {
9251 SWIG_croak("Usage: gsl_vector_max_index(v);");
9252 }
9253 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9254 if (!SWIG_IsOK(res1)) {
9255 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_max_index" "', argument " "1"" of type '" "gsl_vector const *""'");
9256 }
9257 arg1 = (gsl_vector *)(argp1);
9258 result = gsl_vector_max_index((gsl_vector const *)arg1);
9259 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
9260
9261 XSRETURN(argvi);
9262 fail:
9263
9264 SWIG_croak_null();
9265 }
9266 }
9267
9268
XS(_wrap_gsl_vector_min_index)9269 XS(_wrap_gsl_vector_min_index) {
9270 {
9271 gsl_vector *arg1 = (gsl_vector *) 0 ;
9272 void *argp1 = 0 ;
9273 int res1 = 0 ;
9274 int argvi = 0;
9275 size_t result;
9276 dXSARGS;
9277
9278 if ((items < 1) || (items > 1)) {
9279 SWIG_croak("Usage: gsl_vector_min_index(v);");
9280 }
9281 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9282 if (!SWIG_IsOK(res1)) {
9283 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_min_index" "', argument " "1"" of type '" "gsl_vector const *""'");
9284 }
9285 arg1 = (gsl_vector *)(argp1);
9286 result = gsl_vector_min_index((gsl_vector const *)arg1);
9287 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
9288
9289 XSRETURN(argvi);
9290 fail:
9291
9292 SWIG_croak_null();
9293 }
9294 }
9295
9296
XS(_wrap_gsl_vector_minmax_index)9297 XS(_wrap_gsl_vector_minmax_index) {
9298 {
9299 gsl_vector *arg1 = (gsl_vector *) 0 ;
9300 size_t *arg2 = (size_t *) 0 ;
9301 size_t *arg3 = (size_t *) 0 ;
9302 void *argp1 = 0 ;
9303 int res1 = 0 ;
9304 size_t temp2 ;
9305 int res2 = SWIG_TMPOBJ ;
9306 size_t temp3 ;
9307 int res3 = SWIG_TMPOBJ ;
9308 int argvi = 0;
9309 dXSARGS;
9310
9311 arg2 = &temp2;
9312 arg3 = &temp3;
9313 if ((items < 1) || (items > 1)) {
9314 SWIG_croak("Usage: gsl_vector_minmax_index(v);");
9315 }
9316 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9317 if (!SWIG_IsOK(res1)) {
9318 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_minmax_index" "', argument " "1"" of type '" "gsl_vector const *""'");
9319 }
9320 arg1 = (gsl_vector *)(argp1);
9321 gsl_vector_minmax_index((gsl_vector const *)arg1,arg2,arg3);
9322 ST(argvi) = &PL_sv_undef;
9323 if (SWIG_IsTmpObj(res2)) {
9324 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg2)); argvi++ ;
9325 } else {
9326 int new_flags = SWIG_IsNewObj(res2) ? (SWIG_POINTER_OWN | 0) : 0;
9327 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg2), SWIGTYPE_p_size_t, new_flags); argvi++ ;
9328 }
9329 if (SWIG_IsTmpObj(res3)) {
9330 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg3)); argvi++ ;
9331 } else {
9332 int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN | 0) : 0;
9333 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_size_t, new_flags); argvi++ ;
9334 }
9335
9336
9337
9338 XSRETURN(argvi);
9339 fail:
9340
9341
9342
9343 SWIG_croak_null();
9344 }
9345 }
9346
9347
XS(_wrap_gsl_vector_add)9348 XS(_wrap_gsl_vector_add) {
9349 {
9350 gsl_vector *arg1 = (gsl_vector *) 0 ;
9351 gsl_vector *arg2 = (gsl_vector *) 0 ;
9352 void *argp1 = 0 ;
9353 int res1 = 0 ;
9354 void *argp2 = 0 ;
9355 int res2 = 0 ;
9356 int argvi = 0;
9357 int result;
9358 dXSARGS;
9359
9360 if ((items < 2) || (items > 2)) {
9361 SWIG_croak("Usage: gsl_vector_add(a,b);");
9362 }
9363 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9364 if (!SWIG_IsOK(res1)) {
9365 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_add" "', argument " "1"" of type '" "gsl_vector *""'");
9366 }
9367 arg1 = (gsl_vector *)(argp1);
9368 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9369 if (!SWIG_IsOK(res2)) {
9370 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_add" "', argument " "2"" of type '" "gsl_vector const *""'");
9371 }
9372 arg2 = (gsl_vector *)(argp2);
9373 result = (int)gsl_vector_add(arg1,(gsl_vector const *)arg2);
9374 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9375
9376
9377 XSRETURN(argvi);
9378 fail:
9379
9380
9381 SWIG_croak_null();
9382 }
9383 }
9384
9385
XS(_wrap_gsl_vector_sub)9386 XS(_wrap_gsl_vector_sub) {
9387 {
9388 gsl_vector *arg1 = (gsl_vector *) 0 ;
9389 gsl_vector *arg2 = (gsl_vector *) 0 ;
9390 void *argp1 = 0 ;
9391 int res1 = 0 ;
9392 void *argp2 = 0 ;
9393 int res2 = 0 ;
9394 int argvi = 0;
9395 int result;
9396 dXSARGS;
9397
9398 if ((items < 2) || (items > 2)) {
9399 SWIG_croak("Usage: gsl_vector_sub(a,b);");
9400 }
9401 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9402 if (!SWIG_IsOK(res1)) {
9403 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_sub" "', argument " "1"" of type '" "gsl_vector *""'");
9404 }
9405 arg1 = (gsl_vector *)(argp1);
9406 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9407 if (!SWIG_IsOK(res2)) {
9408 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_sub" "', argument " "2"" of type '" "gsl_vector const *""'");
9409 }
9410 arg2 = (gsl_vector *)(argp2);
9411 result = (int)gsl_vector_sub(arg1,(gsl_vector const *)arg2);
9412 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9413
9414
9415 XSRETURN(argvi);
9416 fail:
9417
9418
9419 SWIG_croak_null();
9420 }
9421 }
9422
9423
XS(_wrap_gsl_vector_mul)9424 XS(_wrap_gsl_vector_mul) {
9425 {
9426 gsl_vector *arg1 = (gsl_vector *) 0 ;
9427 gsl_vector *arg2 = (gsl_vector *) 0 ;
9428 void *argp1 = 0 ;
9429 int res1 = 0 ;
9430 void *argp2 = 0 ;
9431 int res2 = 0 ;
9432 int argvi = 0;
9433 int result;
9434 dXSARGS;
9435
9436 if ((items < 2) || (items > 2)) {
9437 SWIG_croak("Usage: gsl_vector_mul(a,b);");
9438 }
9439 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9440 if (!SWIG_IsOK(res1)) {
9441 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_mul" "', argument " "1"" of type '" "gsl_vector *""'");
9442 }
9443 arg1 = (gsl_vector *)(argp1);
9444 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9445 if (!SWIG_IsOK(res2)) {
9446 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_mul" "', argument " "2"" of type '" "gsl_vector const *""'");
9447 }
9448 arg2 = (gsl_vector *)(argp2);
9449 result = (int)gsl_vector_mul(arg1,(gsl_vector const *)arg2);
9450 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9451
9452
9453 XSRETURN(argvi);
9454 fail:
9455
9456
9457 SWIG_croak_null();
9458 }
9459 }
9460
9461
XS(_wrap_gsl_vector_div)9462 XS(_wrap_gsl_vector_div) {
9463 {
9464 gsl_vector *arg1 = (gsl_vector *) 0 ;
9465 gsl_vector *arg2 = (gsl_vector *) 0 ;
9466 void *argp1 = 0 ;
9467 int res1 = 0 ;
9468 void *argp2 = 0 ;
9469 int res2 = 0 ;
9470 int argvi = 0;
9471 int result;
9472 dXSARGS;
9473
9474 if ((items < 2) || (items > 2)) {
9475 SWIG_croak("Usage: gsl_vector_div(a,b);");
9476 }
9477 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9478 if (!SWIG_IsOK(res1)) {
9479 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_div" "', argument " "1"" of type '" "gsl_vector *""'");
9480 }
9481 arg1 = (gsl_vector *)(argp1);
9482 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9483 if (!SWIG_IsOK(res2)) {
9484 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_div" "', argument " "2"" of type '" "gsl_vector const *""'");
9485 }
9486 arg2 = (gsl_vector *)(argp2);
9487 result = (int)gsl_vector_div(arg1,(gsl_vector const *)arg2);
9488 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9489
9490
9491 XSRETURN(argvi);
9492 fail:
9493
9494
9495 SWIG_croak_null();
9496 }
9497 }
9498
9499
XS(_wrap_gsl_vector_scale)9500 XS(_wrap_gsl_vector_scale) {
9501 {
9502 gsl_vector *arg1 = (gsl_vector *) 0 ;
9503 double arg2 ;
9504 void *argp1 = 0 ;
9505 int res1 = 0 ;
9506 double val2 ;
9507 int ecode2 = 0 ;
9508 int argvi = 0;
9509 int result;
9510 dXSARGS;
9511
9512 if ((items < 2) || (items > 2)) {
9513 SWIG_croak("Usage: gsl_vector_scale(a,x);");
9514 }
9515 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9516 if (!SWIG_IsOK(res1)) {
9517 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_scale" "', argument " "1"" of type '" "gsl_vector *""'");
9518 }
9519 arg1 = (gsl_vector *)(argp1);
9520 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9521 if (!SWIG_IsOK(ecode2)) {
9522 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_scale" "', argument " "2"" of type '" "double""'");
9523 }
9524 arg2 = (double)(val2);
9525 result = (int)gsl_vector_scale(arg1,arg2);
9526 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9527
9528
9529 XSRETURN(argvi);
9530 fail:
9531
9532
9533 SWIG_croak_null();
9534 }
9535 }
9536
9537
XS(_wrap_gsl_vector_add_constant)9538 XS(_wrap_gsl_vector_add_constant) {
9539 {
9540 gsl_vector *arg1 = (gsl_vector *) 0 ;
9541 double arg2 ;
9542 void *argp1 = 0 ;
9543 int res1 = 0 ;
9544 double val2 ;
9545 int ecode2 = 0 ;
9546 int argvi = 0;
9547 int result;
9548 dXSARGS;
9549
9550 if ((items < 2) || (items > 2)) {
9551 SWIG_croak("Usage: gsl_vector_add_constant(a,x);");
9552 }
9553 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9554 if (!SWIG_IsOK(res1)) {
9555 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_add_constant" "', argument " "1"" of type '" "gsl_vector *""'");
9556 }
9557 arg1 = (gsl_vector *)(argp1);
9558 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9559 if (!SWIG_IsOK(ecode2)) {
9560 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_add_constant" "', argument " "2"" of type '" "double""'");
9561 }
9562 arg2 = (double)(val2);
9563 result = (int)gsl_vector_add_constant(arg1,arg2);
9564 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9565
9566
9567 XSRETURN(argvi);
9568 fail:
9569
9570
9571 SWIG_croak_null();
9572 }
9573 }
9574
9575
XS(_wrap_gsl_vector_axpby)9576 XS(_wrap_gsl_vector_axpby) {
9577 {
9578 double arg1 ;
9579 gsl_vector *arg2 = (gsl_vector *) 0 ;
9580 double arg3 ;
9581 gsl_vector *arg4 = (gsl_vector *) 0 ;
9582 double val1 ;
9583 int ecode1 = 0 ;
9584 void *argp2 = 0 ;
9585 int res2 = 0 ;
9586 double val3 ;
9587 int ecode3 = 0 ;
9588 void *argp4 = 0 ;
9589 int res4 = 0 ;
9590 int argvi = 0;
9591 int result;
9592 dXSARGS;
9593
9594 if ((items < 4) || (items > 4)) {
9595 SWIG_croak("Usage: gsl_vector_axpby(alpha,x,beta,y);");
9596 }
9597 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
9598 if (!SWIG_IsOK(ecode1)) {
9599 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_vector_axpby" "', argument " "1"" of type '" "double""'");
9600 }
9601 arg1 = (double)(val1);
9602 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9603 if (!SWIG_IsOK(res2)) {
9604 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_axpby" "', argument " "2"" of type '" "gsl_vector const *""'");
9605 }
9606 arg2 = (gsl_vector *)(argp2);
9607 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
9608 if (!SWIG_IsOK(ecode3)) {
9609 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_axpby" "', argument " "3"" of type '" "double""'");
9610 }
9611 arg3 = (double)(val3);
9612 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
9613 if (!SWIG_IsOK(res4)) {
9614 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_vector_axpby" "', argument " "4"" of type '" "gsl_vector *""'");
9615 }
9616 arg4 = (gsl_vector *)(argp4);
9617 result = (int)gsl_vector_axpby(arg1,(gsl_vector const *)arg2,arg3,arg4);
9618 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9619
9620
9621
9622
9623 XSRETURN(argvi);
9624 fail:
9625
9626
9627
9628
9629 SWIG_croak_null();
9630 }
9631 }
9632
9633
XS(_wrap_gsl_vector_equal)9634 XS(_wrap_gsl_vector_equal) {
9635 {
9636 gsl_vector *arg1 = (gsl_vector *) 0 ;
9637 gsl_vector *arg2 = (gsl_vector *) 0 ;
9638 void *argp1 = 0 ;
9639 int res1 = 0 ;
9640 void *argp2 = 0 ;
9641 int res2 = 0 ;
9642 int argvi = 0;
9643 int result;
9644 dXSARGS;
9645
9646 if ((items < 2) || (items > 2)) {
9647 SWIG_croak("Usage: gsl_vector_equal(u,v);");
9648 }
9649 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9650 if (!SWIG_IsOK(res1)) {
9651 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_equal" "', argument " "1"" of type '" "gsl_vector const *""'");
9652 }
9653 arg1 = (gsl_vector *)(argp1);
9654 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9655 if (!SWIG_IsOK(res2)) {
9656 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_equal" "', argument " "2"" of type '" "gsl_vector const *""'");
9657 }
9658 arg2 = (gsl_vector *)(argp2);
9659 result = (int)gsl_vector_equal((gsl_vector const *)arg1,(gsl_vector const *)arg2);
9660 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9661
9662
9663 XSRETURN(argvi);
9664 fail:
9665
9666
9667 SWIG_croak_null();
9668 }
9669 }
9670
9671
XS(_wrap_gsl_vector_isnull)9672 XS(_wrap_gsl_vector_isnull) {
9673 {
9674 gsl_vector *arg1 = (gsl_vector *) 0 ;
9675 void *argp1 = 0 ;
9676 int res1 = 0 ;
9677 int argvi = 0;
9678 int result;
9679 dXSARGS;
9680
9681 if ((items < 1) || (items > 1)) {
9682 SWIG_croak("Usage: gsl_vector_isnull(v);");
9683 }
9684 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9685 if (!SWIG_IsOK(res1)) {
9686 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_isnull" "', argument " "1"" of type '" "gsl_vector const *""'");
9687 }
9688 arg1 = (gsl_vector *)(argp1);
9689 result = (int)gsl_vector_isnull((gsl_vector const *)arg1);
9690 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9691
9692 XSRETURN(argvi);
9693 fail:
9694
9695 SWIG_croak_null();
9696 }
9697 }
9698
9699
XS(_wrap_gsl_vector_ispos)9700 XS(_wrap_gsl_vector_ispos) {
9701 {
9702 gsl_vector *arg1 = (gsl_vector *) 0 ;
9703 void *argp1 = 0 ;
9704 int res1 = 0 ;
9705 int argvi = 0;
9706 int result;
9707 dXSARGS;
9708
9709 if ((items < 1) || (items > 1)) {
9710 SWIG_croak("Usage: gsl_vector_ispos(v);");
9711 }
9712 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9713 if (!SWIG_IsOK(res1)) {
9714 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_ispos" "', argument " "1"" of type '" "gsl_vector const *""'");
9715 }
9716 arg1 = (gsl_vector *)(argp1);
9717 result = (int)gsl_vector_ispos((gsl_vector const *)arg1);
9718 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9719
9720 XSRETURN(argvi);
9721 fail:
9722
9723 SWIG_croak_null();
9724 }
9725 }
9726
9727
XS(_wrap_gsl_vector_isneg)9728 XS(_wrap_gsl_vector_isneg) {
9729 {
9730 gsl_vector *arg1 = (gsl_vector *) 0 ;
9731 void *argp1 = 0 ;
9732 int res1 = 0 ;
9733 int argvi = 0;
9734 int result;
9735 dXSARGS;
9736
9737 if ((items < 1) || (items > 1)) {
9738 SWIG_croak("Usage: gsl_vector_isneg(v);");
9739 }
9740 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9741 if (!SWIG_IsOK(res1)) {
9742 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_isneg" "', argument " "1"" of type '" "gsl_vector const *""'");
9743 }
9744 arg1 = (gsl_vector *)(argp1);
9745 result = (int)gsl_vector_isneg((gsl_vector const *)arg1);
9746 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9747
9748 XSRETURN(argvi);
9749 fail:
9750
9751 SWIG_croak_null();
9752 }
9753 }
9754
9755
XS(_wrap_gsl_vector_isnonneg)9756 XS(_wrap_gsl_vector_isnonneg) {
9757 {
9758 gsl_vector *arg1 = (gsl_vector *) 0 ;
9759 void *argp1 = 0 ;
9760 int res1 = 0 ;
9761 int argvi = 0;
9762 int result;
9763 dXSARGS;
9764
9765 if ((items < 1) || (items > 1)) {
9766 SWIG_croak("Usage: gsl_vector_isnonneg(v);");
9767 }
9768 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9769 if (!SWIG_IsOK(res1)) {
9770 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_isnonneg" "', argument " "1"" of type '" "gsl_vector const *""'");
9771 }
9772 arg1 = (gsl_vector *)(argp1);
9773 result = (int)gsl_vector_isnonneg((gsl_vector const *)arg1);
9774 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9775
9776 XSRETURN(argvi);
9777 fail:
9778
9779 SWIG_croak_null();
9780 }
9781 }
9782
9783
XS(_wrap_gsl_vector_get)9784 XS(_wrap_gsl_vector_get) {
9785 {
9786 gsl_vector *arg1 = (gsl_vector *) 0 ;
9787 size_t arg2 ;
9788 void *argp1 = 0 ;
9789 int res1 = 0 ;
9790 size_t val2 ;
9791 int ecode2 = 0 ;
9792 int argvi = 0;
9793 double result;
9794 dXSARGS;
9795
9796 if ((items < 2) || (items > 2)) {
9797 SWIG_croak("Usage: gsl_vector_get(v,i);");
9798 }
9799 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9800 if (!SWIG_IsOK(res1)) {
9801 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_get" "', argument " "1"" of type '" "gsl_vector const *""'");
9802 }
9803 arg1 = (gsl_vector *)(argp1);
9804 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9805 if (!SWIG_IsOK(ecode2)) {
9806 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_get" "', argument " "2"" of type '" "size_t""'");
9807 }
9808 arg2 = (size_t)(val2);
9809 result = (double)gsl_vector_get((gsl_vector const *)arg1,arg2);
9810 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
9811
9812
9813 XSRETURN(argvi);
9814 fail:
9815
9816
9817 SWIG_croak_null();
9818 }
9819 }
9820
9821
XS(_wrap_gsl_vector_set)9822 XS(_wrap_gsl_vector_set) {
9823 {
9824 gsl_vector *arg1 = (gsl_vector *) 0 ;
9825 size_t arg2 ;
9826 double arg3 ;
9827 void *argp1 = 0 ;
9828 int res1 = 0 ;
9829 size_t val2 ;
9830 int ecode2 = 0 ;
9831 double val3 ;
9832 int ecode3 = 0 ;
9833 int argvi = 0;
9834 dXSARGS;
9835
9836 if ((items < 3) || (items > 3)) {
9837 SWIG_croak("Usage: gsl_vector_set(v,i,x);");
9838 }
9839 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9840 if (!SWIG_IsOK(res1)) {
9841 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_set" "', argument " "1"" of type '" "gsl_vector *""'");
9842 }
9843 arg1 = (gsl_vector *)(argp1);
9844 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9845 if (!SWIG_IsOK(ecode2)) {
9846 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_set" "', argument " "2"" of type '" "size_t""'");
9847 }
9848 arg2 = (size_t)(val2);
9849 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
9850 if (!SWIG_IsOK(ecode3)) {
9851 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_set" "', argument " "3"" of type '" "double""'");
9852 }
9853 arg3 = (double)(val3);
9854 gsl_vector_set(arg1,arg2,arg3);
9855 ST(argvi) = &PL_sv_undef;
9856
9857
9858
9859 XSRETURN(argvi);
9860 fail:
9861
9862
9863
9864 SWIG_croak_null();
9865 }
9866 }
9867
9868
XS(_wrap_gsl_vector_ptr)9869 XS(_wrap_gsl_vector_ptr) {
9870 {
9871 gsl_vector *arg1 = (gsl_vector *) 0 ;
9872 size_t arg2 ;
9873 void *argp1 = 0 ;
9874 int res1 = 0 ;
9875 size_t val2 ;
9876 int ecode2 = 0 ;
9877 int argvi = 0;
9878 double *result = 0 ;
9879 dXSARGS;
9880
9881 if ((items < 2) || (items > 2)) {
9882 SWIG_croak("Usage: gsl_vector_ptr(v,i);");
9883 }
9884 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9885 if (!SWIG_IsOK(res1)) {
9886 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_ptr" "', argument " "1"" of type '" "gsl_vector *""'");
9887 }
9888 arg1 = (gsl_vector *)(argp1);
9889 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9890 if (!SWIG_IsOK(ecode2)) {
9891 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_ptr" "', argument " "2"" of type '" "size_t""'");
9892 }
9893 arg2 = (size_t)(val2);
9894 result = (double *)gsl_vector_ptr(arg1,arg2);
9895 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
9896
9897
9898 XSRETURN(argvi);
9899 fail:
9900
9901
9902 SWIG_croak_null();
9903 }
9904 }
9905
9906
XS(_wrap_gsl_vector_const_ptr)9907 XS(_wrap_gsl_vector_const_ptr) {
9908 {
9909 gsl_vector *arg1 = (gsl_vector *) 0 ;
9910 size_t arg2 ;
9911 void *argp1 = 0 ;
9912 int res1 = 0 ;
9913 size_t val2 ;
9914 int ecode2 = 0 ;
9915 int argvi = 0;
9916 double *result = 0 ;
9917 dXSARGS;
9918
9919 if ((items < 2) || (items > 2)) {
9920 SWIG_croak("Usage: gsl_vector_const_ptr(v,i);");
9921 }
9922 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9923 if (!SWIG_IsOK(res1)) {
9924 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_const_ptr" "', argument " "1"" of type '" "gsl_vector const *""'");
9925 }
9926 arg1 = (gsl_vector *)(argp1);
9927 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9928 if (!SWIG_IsOK(ecode2)) {
9929 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_const_ptr" "', argument " "2"" of type '" "size_t""'");
9930 }
9931 arg2 = (size_t)(val2);
9932 result = (double *)gsl_vector_const_ptr((gsl_vector const *)arg1,arg2);
9933 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
9934
9935
9936 XSRETURN(argvi);
9937 fail:
9938
9939
9940 SWIG_croak_null();
9941 }
9942 }
9943
9944
XS(_wrap_gsl_vector_int_size_set)9945 XS(_wrap_gsl_vector_int_size_set) {
9946 {
9947 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
9948 size_t arg2 ;
9949 void *argp1 = 0 ;
9950 int res1 = 0 ;
9951 size_t val2 ;
9952 int ecode2 = 0 ;
9953 int argvi = 0;
9954 dXSARGS;
9955
9956 if ((items < 2) || (items > 2)) {
9957 SWIG_croak("Usage: gsl_vector_int_size_set(self,size);");
9958 }
9959 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
9960 if (!SWIG_IsOK(res1)) {
9961 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_size_set" "', argument " "1"" of type '" "gsl_vector_int *""'");
9962 }
9963 arg1 = (gsl_vector_int *)(argp1);
9964 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9965 if (!SWIG_IsOK(ecode2)) {
9966 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_size_set" "', argument " "2"" of type '" "size_t""'");
9967 }
9968 arg2 = (size_t)(val2);
9969 if (arg1) (arg1)->size = arg2;
9970 ST(argvi) = &PL_sv_undef;
9971
9972
9973 XSRETURN(argvi);
9974 fail:
9975
9976
9977 SWIG_croak_null();
9978 }
9979 }
9980
9981
XS(_wrap_gsl_vector_int_size_get)9982 XS(_wrap_gsl_vector_int_size_get) {
9983 {
9984 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
9985 void *argp1 = 0 ;
9986 int res1 = 0 ;
9987 int argvi = 0;
9988 size_t result;
9989 dXSARGS;
9990
9991 if ((items < 1) || (items > 1)) {
9992 SWIG_croak("Usage: gsl_vector_int_size_get(self);");
9993 }
9994 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
9995 if (!SWIG_IsOK(res1)) {
9996 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_size_get" "', argument " "1"" of type '" "gsl_vector_int *""'");
9997 }
9998 arg1 = (gsl_vector_int *)(argp1);
9999 result = ((arg1)->size);
10000 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
10001
10002 XSRETURN(argvi);
10003 fail:
10004
10005 SWIG_croak_null();
10006 }
10007 }
10008
10009
XS(_wrap_gsl_vector_int_stride_set)10010 XS(_wrap_gsl_vector_int_stride_set) {
10011 {
10012 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
10013 size_t arg2 ;
10014 void *argp1 = 0 ;
10015 int res1 = 0 ;
10016 size_t val2 ;
10017 int ecode2 = 0 ;
10018 int argvi = 0;
10019 dXSARGS;
10020
10021 if ((items < 2) || (items > 2)) {
10022 SWIG_croak("Usage: gsl_vector_int_stride_set(self,stride);");
10023 }
10024 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
10025 if (!SWIG_IsOK(res1)) {
10026 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_stride_set" "', argument " "1"" of type '" "gsl_vector_int *""'");
10027 }
10028 arg1 = (gsl_vector_int *)(argp1);
10029 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10030 if (!SWIG_IsOK(ecode2)) {
10031 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_stride_set" "', argument " "2"" of type '" "size_t""'");
10032 }
10033 arg2 = (size_t)(val2);
10034 if (arg1) (arg1)->stride = arg2;
10035 ST(argvi) = &PL_sv_undef;
10036
10037
10038 XSRETURN(argvi);
10039 fail:
10040
10041
10042 SWIG_croak_null();
10043 }
10044 }
10045
10046
XS(_wrap_gsl_vector_int_stride_get)10047 XS(_wrap_gsl_vector_int_stride_get) {
10048 {
10049 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
10050 void *argp1 = 0 ;
10051 int res1 = 0 ;
10052 int argvi = 0;
10053 size_t result;
10054 dXSARGS;
10055
10056 if ((items < 1) || (items > 1)) {
10057 SWIG_croak("Usage: gsl_vector_int_stride_get(self);");
10058 }
10059 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
10060 if (!SWIG_IsOK(res1)) {
10061 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_stride_get" "', argument " "1"" of type '" "gsl_vector_int *""'");
10062 }
10063 arg1 = (gsl_vector_int *)(argp1);
10064 result = ((arg1)->stride);
10065 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
10066
10067 XSRETURN(argvi);
10068 fail:
10069
10070 SWIG_croak_null();
10071 }
10072 }
10073
10074
XS(_wrap_gsl_vector_int_data_set)10075 XS(_wrap_gsl_vector_int_data_set) {
10076 {
10077 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
10078 int *arg2 = (int *) 0 ;
10079 void *argp1 = 0 ;
10080 int res1 = 0 ;
10081 void *argp2 = 0 ;
10082 int res2 = 0 ;
10083 int argvi = 0;
10084 dXSARGS;
10085
10086 if ((items < 2) || (items > 2)) {
10087 SWIG_croak("Usage: gsl_vector_int_data_set(self,data);");
10088 }
10089 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
10090 if (!SWIG_IsOK(res1)) {
10091 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_data_set" "', argument " "1"" of type '" "gsl_vector_int *""'");
10092 }
10093 arg1 = (gsl_vector_int *)(argp1);
10094 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_int, SWIG_POINTER_DISOWN | 0 );
10095 if (!SWIG_IsOK(res2)) {
10096 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_int_data_set" "', argument " "2"" of type '" "int *""'");
10097 }
10098 arg2 = (int *)(argp2);
10099 if (arg1) (arg1)->data = arg2;
10100 ST(argvi) = &PL_sv_undef;
10101
10102
10103 XSRETURN(argvi);
10104 fail:
10105
10106
10107 SWIG_croak_null();
10108 }
10109 }
10110
10111
XS(_wrap_gsl_vector_int_data_get)10112 XS(_wrap_gsl_vector_int_data_get) {
10113 {
10114 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
10115 void *argp1 = 0 ;
10116 int res1 = 0 ;
10117 int argvi = 0;
10118 int *result = 0 ;
10119 dXSARGS;
10120
10121 if ((items < 1) || (items > 1)) {
10122 SWIG_croak("Usage: gsl_vector_int_data_get(self);");
10123 }
10124 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
10125 if (!SWIG_IsOK(res1)) {
10126 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_data_get" "', argument " "1"" of type '" "gsl_vector_int *""'");
10127 }
10128 arg1 = (gsl_vector_int *)(argp1);
10129 result = (int *) ((arg1)->data);
10130 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_int, 0 | 0); argvi++ ;
10131
10132 XSRETURN(argvi);
10133 fail:
10134
10135 SWIG_croak_null();
10136 }
10137 }
10138
10139
XS(_wrap_gsl_vector_int_block_set)10140 XS(_wrap_gsl_vector_int_block_set) {
10141 {
10142 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
10143 gsl_block_int *arg2 = (gsl_block_int *) 0 ;
10144 void *argp1 = 0 ;
10145 int res1 = 0 ;
10146 void *argp2 = 0 ;
10147 int res2 = 0 ;
10148 int argvi = 0;
10149 dXSARGS;
10150
10151 if ((items < 2) || (items > 2)) {
10152 SWIG_croak("Usage: gsl_vector_int_block_set(self,block);");
10153 }
10154 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
10155 if (!SWIG_IsOK(res1)) {
10156 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_block_set" "', argument " "1"" of type '" "gsl_vector_int *""'");
10157 }
10158 arg1 = (gsl_vector_int *)(argp1);
10159 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_block_int, SWIG_POINTER_DISOWN | 0 );
10160 if (!SWIG_IsOK(res2)) {
10161 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_int_block_set" "', argument " "2"" of type '" "gsl_block_int *""'");
10162 }
10163 arg2 = (gsl_block_int *)(argp2);
10164 if (arg1) (arg1)->block = arg2;
10165 ST(argvi) = &PL_sv_undef;
10166
10167
10168 XSRETURN(argvi);
10169 fail:
10170
10171
10172 SWIG_croak_null();
10173 }
10174 }
10175
10176
XS(_wrap_gsl_vector_int_block_get)10177 XS(_wrap_gsl_vector_int_block_get) {
10178 {
10179 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
10180 void *argp1 = 0 ;
10181 int res1 = 0 ;
10182 int argvi = 0;
10183 gsl_block_int *result = 0 ;
10184 dXSARGS;
10185
10186 if ((items < 1) || (items > 1)) {
10187 SWIG_croak("Usage: gsl_vector_int_block_get(self);");
10188 }
10189 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
10190 if (!SWIG_IsOK(res1)) {
10191 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_block_get" "', argument " "1"" of type '" "gsl_vector_int *""'");
10192 }
10193 arg1 = (gsl_vector_int *)(argp1);
10194 result = (gsl_block_int *) ((arg1)->block);
10195 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_block_int, 0 | 0); argvi++ ;
10196
10197 XSRETURN(argvi);
10198 fail:
10199
10200 SWIG_croak_null();
10201 }
10202 }
10203
10204
XS(_wrap_gsl_vector_int_owner_set)10205 XS(_wrap_gsl_vector_int_owner_set) {
10206 {
10207 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
10208 int arg2 ;
10209 void *argp1 = 0 ;
10210 int res1 = 0 ;
10211 int val2 ;
10212 int ecode2 = 0 ;
10213 int argvi = 0;
10214 dXSARGS;
10215
10216 if ((items < 2) || (items > 2)) {
10217 SWIG_croak("Usage: gsl_vector_int_owner_set(self,owner);");
10218 }
10219 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
10220 if (!SWIG_IsOK(res1)) {
10221 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_owner_set" "', argument " "1"" of type '" "gsl_vector_int *""'");
10222 }
10223 arg1 = (gsl_vector_int *)(argp1);
10224 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10225 if (!SWIG_IsOK(ecode2)) {
10226 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_owner_set" "', argument " "2"" of type '" "int""'");
10227 }
10228 arg2 = (int)(val2);
10229 if (arg1) (arg1)->owner = arg2;
10230 ST(argvi) = &PL_sv_undef;
10231
10232
10233 XSRETURN(argvi);
10234 fail:
10235
10236
10237 SWIG_croak_null();
10238 }
10239 }
10240
10241
XS(_wrap_gsl_vector_int_owner_get)10242 XS(_wrap_gsl_vector_int_owner_get) {
10243 {
10244 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
10245 void *argp1 = 0 ;
10246 int res1 = 0 ;
10247 int argvi = 0;
10248 int result;
10249 dXSARGS;
10250
10251 if ((items < 1) || (items > 1)) {
10252 SWIG_croak("Usage: gsl_vector_int_owner_get(self);");
10253 }
10254 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
10255 if (!SWIG_IsOK(res1)) {
10256 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_owner_get" "', argument " "1"" of type '" "gsl_vector_int *""'");
10257 }
10258 arg1 = (gsl_vector_int *)(argp1);
10259 result = (int) ((arg1)->owner);
10260 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10261
10262 XSRETURN(argvi);
10263 fail:
10264
10265 SWIG_croak_null();
10266 }
10267 }
10268
10269
XS(_wrap_new_gsl_vector_int)10270 XS(_wrap_new_gsl_vector_int) {
10271 {
10272 int argvi = 0;
10273 gsl_vector_int *result = 0 ;
10274 dXSARGS;
10275
10276 if ((items < 0) || (items > 0)) {
10277 SWIG_croak("Usage: new_gsl_vector_int();");
10278 }
10279 result = (gsl_vector_int *)calloc(1, sizeof(gsl_vector_int));
10280 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector_int, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
10281 XSRETURN(argvi);
10282 fail:
10283 SWIG_croak_null();
10284 }
10285 }
10286
10287
XS(_wrap_delete_gsl_vector_int)10288 XS(_wrap_delete_gsl_vector_int) {
10289 {
10290 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
10291 void *argp1 = 0 ;
10292 int res1 = 0 ;
10293 int argvi = 0;
10294 dXSARGS;
10295
10296 if ((items < 1) || (items > 1)) {
10297 SWIG_croak("Usage: delete_gsl_vector_int(self);");
10298 }
10299 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, SWIG_POINTER_DISOWN | 0 );
10300 if (!SWIG_IsOK(res1)) {
10301 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_vector_int" "', argument " "1"" of type '" "gsl_vector_int *""'");
10302 }
10303 arg1 = (gsl_vector_int *)(argp1);
10304 free((char *) arg1);
10305 ST(argvi) = &PL_sv_undef;
10306
10307 XSRETURN(argvi);
10308 fail:
10309
10310 SWIG_croak_null();
10311 }
10312 }
10313
10314
XS(_wrap__gsl_vector_int_view_vector_set)10315 XS(_wrap__gsl_vector_int_view_vector_set) {
10316 {
10317 _gsl_vector_int_view *arg1 = (_gsl_vector_int_view *) 0 ;
10318 gsl_vector_int *arg2 = (gsl_vector_int *) 0 ;
10319 void *argp1 = 0 ;
10320 int res1 = 0 ;
10321 void *argp2 = 0 ;
10322 int res2 = 0 ;
10323 int argvi = 0;
10324 dXSARGS;
10325
10326 if ((items < 2) || (items > 2)) {
10327 SWIG_croak("Usage: _gsl_vector_int_view_vector_set(self,vector);");
10328 }
10329 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_int_view, 0 | 0 );
10330 if (!SWIG_IsOK(res1)) {
10331 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "_gsl_vector_int_view_vector_set" "', argument " "1"" of type '" "_gsl_vector_int_view *""'");
10332 }
10333 arg1 = (_gsl_vector_int_view *)(argp1);
10334 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
10335 if (!SWIG_IsOK(res2)) {
10336 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "_gsl_vector_int_view_vector_set" "', argument " "2"" of type '" "gsl_vector_int *""'");
10337 }
10338 arg2 = (gsl_vector_int *)(argp2);
10339 if (arg1) (arg1)->vector = *arg2;
10340 ST(argvi) = &PL_sv_undef;
10341
10342
10343 XSRETURN(argvi);
10344 fail:
10345
10346
10347 SWIG_croak_null();
10348 }
10349 }
10350
10351
XS(_wrap__gsl_vector_int_view_vector_get)10352 XS(_wrap__gsl_vector_int_view_vector_get) {
10353 {
10354 _gsl_vector_int_view *arg1 = (_gsl_vector_int_view *) 0 ;
10355 void *argp1 = 0 ;
10356 int res1 = 0 ;
10357 int argvi = 0;
10358 gsl_vector_int *result = 0 ;
10359 dXSARGS;
10360
10361 if ((items < 1) || (items > 1)) {
10362 SWIG_croak("Usage: _gsl_vector_int_view_vector_get(self);");
10363 }
10364 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_int_view, 0 | 0 );
10365 if (!SWIG_IsOK(res1)) {
10366 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "_gsl_vector_int_view_vector_get" "', argument " "1"" of type '" "_gsl_vector_int_view *""'");
10367 }
10368 arg1 = (_gsl_vector_int_view *)(argp1);
10369 result = (gsl_vector_int *)& ((arg1)->vector);
10370 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector_int, 0 | SWIG_SHADOW); argvi++ ;
10371
10372 XSRETURN(argvi);
10373 fail:
10374
10375 SWIG_croak_null();
10376 }
10377 }
10378
10379
XS(_wrap_new__gsl_vector_int_view)10380 XS(_wrap_new__gsl_vector_int_view) {
10381 {
10382 int argvi = 0;
10383 _gsl_vector_int_view *result = 0 ;
10384 dXSARGS;
10385
10386 if ((items < 0) || (items > 0)) {
10387 SWIG_croak("Usage: new__gsl_vector_int_view();");
10388 }
10389 result = (_gsl_vector_int_view *)calloc(1, sizeof(_gsl_vector_int_view));
10390 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p__gsl_vector_int_view, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
10391 XSRETURN(argvi);
10392 fail:
10393 SWIG_croak_null();
10394 }
10395 }
10396
10397
XS(_wrap_delete__gsl_vector_int_view)10398 XS(_wrap_delete__gsl_vector_int_view) {
10399 {
10400 _gsl_vector_int_view *arg1 = (_gsl_vector_int_view *) 0 ;
10401 void *argp1 = 0 ;
10402 int res1 = 0 ;
10403 int argvi = 0;
10404 dXSARGS;
10405
10406 if ((items < 1) || (items > 1)) {
10407 SWIG_croak("Usage: delete__gsl_vector_int_view(self);");
10408 }
10409 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_int_view, SWIG_POINTER_DISOWN | 0 );
10410 if (!SWIG_IsOK(res1)) {
10411 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete__gsl_vector_int_view" "', argument " "1"" of type '" "_gsl_vector_int_view *""'");
10412 }
10413 arg1 = (_gsl_vector_int_view *)(argp1);
10414 free((char *) arg1);
10415 ST(argvi) = &PL_sv_undef;
10416
10417 XSRETURN(argvi);
10418 fail:
10419
10420 SWIG_croak_null();
10421 }
10422 }
10423
10424
XS(_wrap__gsl_vector_int_const_view_vector_set)10425 XS(_wrap__gsl_vector_int_const_view_vector_set) {
10426 {
10427 _gsl_vector_int_const_view *arg1 = (_gsl_vector_int_const_view *) 0 ;
10428 gsl_vector_int *arg2 = (gsl_vector_int *) 0 ;
10429 void *argp1 = 0 ;
10430 int res1 = 0 ;
10431 void *argp2 = 0 ;
10432 int res2 = 0 ;
10433 int argvi = 0;
10434 dXSARGS;
10435
10436 if ((items < 2) || (items > 2)) {
10437 SWIG_croak("Usage: _gsl_vector_int_const_view_vector_set(self,vector);");
10438 }
10439 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_int_const_view, 0 | 0 );
10440 if (!SWIG_IsOK(res1)) {
10441 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "_gsl_vector_int_const_view_vector_set" "', argument " "1"" of type '" "_gsl_vector_int_const_view *""'");
10442 }
10443 arg1 = (_gsl_vector_int_const_view *)(argp1);
10444 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
10445 if (!SWIG_IsOK(res2)) {
10446 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "_gsl_vector_int_const_view_vector_set" "', argument " "2"" of type '" "gsl_vector_int *""'");
10447 }
10448 arg2 = (gsl_vector_int *)(argp2);
10449 if (arg1) (arg1)->vector = *arg2;
10450 ST(argvi) = &PL_sv_undef;
10451
10452
10453 XSRETURN(argvi);
10454 fail:
10455
10456
10457 SWIG_croak_null();
10458 }
10459 }
10460
10461
XS(_wrap__gsl_vector_int_const_view_vector_get)10462 XS(_wrap__gsl_vector_int_const_view_vector_get) {
10463 {
10464 _gsl_vector_int_const_view *arg1 = (_gsl_vector_int_const_view *) 0 ;
10465 void *argp1 = 0 ;
10466 int res1 = 0 ;
10467 int argvi = 0;
10468 gsl_vector_int *result = 0 ;
10469 dXSARGS;
10470
10471 if ((items < 1) || (items > 1)) {
10472 SWIG_croak("Usage: _gsl_vector_int_const_view_vector_get(self);");
10473 }
10474 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_int_const_view, 0 | 0 );
10475 if (!SWIG_IsOK(res1)) {
10476 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "_gsl_vector_int_const_view_vector_get" "', argument " "1"" of type '" "_gsl_vector_int_const_view *""'");
10477 }
10478 arg1 = (_gsl_vector_int_const_view *)(argp1);
10479 result = (gsl_vector_int *)& ((arg1)->vector);
10480 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector_int, 0 | SWIG_SHADOW); argvi++ ;
10481
10482 XSRETURN(argvi);
10483 fail:
10484
10485 SWIG_croak_null();
10486 }
10487 }
10488
10489
XS(_wrap_new__gsl_vector_int_const_view)10490 XS(_wrap_new__gsl_vector_int_const_view) {
10491 {
10492 int argvi = 0;
10493 _gsl_vector_int_const_view *result = 0 ;
10494 dXSARGS;
10495
10496 if ((items < 0) || (items > 0)) {
10497 SWIG_croak("Usage: new__gsl_vector_int_const_view();");
10498 }
10499 result = (_gsl_vector_int_const_view *)calloc(1, sizeof(_gsl_vector_int_const_view));
10500 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p__gsl_vector_int_const_view, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
10501 XSRETURN(argvi);
10502 fail:
10503 SWIG_croak_null();
10504 }
10505 }
10506
10507
XS(_wrap_delete__gsl_vector_int_const_view)10508 XS(_wrap_delete__gsl_vector_int_const_view) {
10509 {
10510 _gsl_vector_int_const_view *arg1 = (_gsl_vector_int_const_view *) 0 ;
10511 void *argp1 = 0 ;
10512 int res1 = 0 ;
10513 int argvi = 0;
10514 dXSARGS;
10515
10516 if ((items < 1) || (items > 1)) {
10517 SWIG_croak("Usage: delete__gsl_vector_int_const_view(self);");
10518 }
10519 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_int_const_view, SWIG_POINTER_DISOWN | 0 );
10520 if (!SWIG_IsOK(res1)) {
10521 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete__gsl_vector_int_const_view" "', argument " "1"" of type '" "_gsl_vector_int_const_view *""'");
10522 }
10523 arg1 = (_gsl_vector_int_const_view *)(argp1);
10524 free((char *) arg1);
10525 ST(argvi) = &PL_sv_undef;
10526
10527 XSRETURN(argvi);
10528 fail:
10529
10530 SWIG_croak_null();
10531 }
10532 }
10533
10534
XS(_wrap_gsl_vector_int_alloc)10535 XS(_wrap_gsl_vector_int_alloc) {
10536 {
10537 size_t arg1 ;
10538 size_t val1 ;
10539 int ecode1 = 0 ;
10540 int argvi = 0;
10541 gsl_vector_int *result = 0 ;
10542 dXSARGS;
10543
10544 if ((items < 1) || (items > 1)) {
10545 SWIG_croak("Usage: gsl_vector_int_alloc(n);");
10546 }
10547 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10548 if (!SWIG_IsOK(ecode1)) {
10549 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_vector_int_alloc" "', argument " "1"" of type '" "size_t""'");
10550 }
10551 arg1 = (size_t)(val1);
10552 result = (gsl_vector_int *)gsl_vector_int_alloc(arg1);
10553 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector_int, 0 | SWIG_SHADOW); argvi++ ;
10554
10555 XSRETURN(argvi);
10556 fail:
10557
10558 SWIG_croak_null();
10559 }
10560 }
10561
10562
XS(_wrap_gsl_vector_int_calloc)10563 XS(_wrap_gsl_vector_int_calloc) {
10564 {
10565 size_t arg1 ;
10566 size_t val1 ;
10567 int ecode1 = 0 ;
10568 int argvi = 0;
10569 gsl_vector_int *result = 0 ;
10570 dXSARGS;
10571
10572 if ((items < 1) || (items > 1)) {
10573 SWIG_croak("Usage: gsl_vector_int_calloc(n);");
10574 }
10575 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10576 if (!SWIG_IsOK(ecode1)) {
10577 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_vector_int_calloc" "', argument " "1"" of type '" "size_t""'");
10578 }
10579 arg1 = (size_t)(val1);
10580 result = (gsl_vector_int *)gsl_vector_int_calloc(arg1);
10581 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector_int, 0 | SWIG_SHADOW); argvi++ ;
10582
10583 XSRETURN(argvi);
10584 fail:
10585
10586 SWIG_croak_null();
10587 }
10588 }
10589
10590
XS(_wrap_gsl_vector_int_alloc_from_block)10591 XS(_wrap_gsl_vector_int_alloc_from_block) {
10592 {
10593 gsl_block_int *arg1 = (gsl_block_int *) 0 ;
10594 size_t arg2 ;
10595 size_t arg3 ;
10596 size_t arg4 ;
10597 void *argp1 = 0 ;
10598 int res1 = 0 ;
10599 size_t val2 ;
10600 int ecode2 = 0 ;
10601 size_t val3 ;
10602 int ecode3 = 0 ;
10603 size_t val4 ;
10604 int ecode4 = 0 ;
10605 int argvi = 0;
10606 gsl_vector_int *result = 0 ;
10607 dXSARGS;
10608
10609 if ((items < 4) || (items > 4)) {
10610 SWIG_croak("Usage: gsl_vector_int_alloc_from_block(b,offset,n,stride);");
10611 }
10612 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_block_int, 0 | 0 );
10613 if (!SWIG_IsOK(res1)) {
10614 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_alloc_from_block" "', argument " "1"" of type '" "gsl_block_int *""'");
10615 }
10616 arg1 = (gsl_block_int *)(argp1);
10617 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10618 if (!SWIG_IsOK(ecode2)) {
10619 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_alloc_from_block" "', argument " "2"" of type '" "size_t""'");
10620 }
10621 arg2 = (size_t)(val2);
10622 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
10623 if (!SWIG_IsOK(ecode3)) {
10624 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_int_alloc_from_block" "', argument " "3"" of type '" "size_t""'");
10625 }
10626 arg3 = (size_t)(val3);
10627 ecode4 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
10628 if (!SWIG_IsOK(ecode4)) {
10629 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_vector_int_alloc_from_block" "', argument " "4"" of type '" "size_t""'");
10630 }
10631 arg4 = (size_t)(val4);
10632 result = (gsl_vector_int *)gsl_vector_int_alloc_from_block(arg1,arg2,arg3,arg4);
10633 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector_int, 0 | SWIG_SHADOW); argvi++ ;
10634
10635
10636
10637
10638 XSRETURN(argvi);
10639 fail:
10640
10641
10642
10643
10644 SWIG_croak_null();
10645 }
10646 }
10647
10648
XS(_wrap_gsl_vector_int_alloc_from_vector)10649 XS(_wrap_gsl_vector_int_alloc_from_vector) {
10650 {
10651 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
10652 size_t arg2 ;
10653 size_t arg3 ;
10654 size_t arg4 ;
10655 void *argp1 = 0 ;
10656 int res1 = 0 ;
10657 size_t val2 ;
10658 int ecode2 = 0 ;
10659 size_t val3 ;
10660 int ecode3 = 0 ;
10661 size_t val4 ;
10662 int ecode4 = 0 ;
10663 int argvi = 0;
10664 gsl_vector_int *result = 0 ;
10665 dXSARGS;
10666
10667 if ((items < 4) || (items > 4)) {
10668 SWIG_croak("Usage: gsl_vector_int_alloc_from_vector(v,offset,n,stride);");
10669 }
10670 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
10671 if (!SWIG_IsOK(res1)) {
10672 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_alloc_from_vector" "', argument " "1"" of type '" "gsl_vector_int *""'");
10673 }
10674 arg1 = (gsl_vector_int *)(argp1);
10675 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10676 if (!SWIG_IsOK(ecode2)) {
10677 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_alloc_from_vector" "', argument " "2"" of type '" "size_t""'");
10678 }
10679 arg2 = (size_t)(val2);
10680 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
10681 if (!SWIG_IsOK(ecode3)) {
10682 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_int_alloc_from_vector" "', argument " "3"" of type '" "size_t""'");
10683 }
10684 arg3 = (size_t)(val3);
10685 ecode4 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
10686 if (!SWIG_IsOK(ecode4)) {
10687 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_vector_int_alloc_from_vector" "', argument " "4"" of type '" "size_t""'");
10688 }
10689 arg4 = (size_t)(val4);
10690 result = (gsl_vector_int *)gsl_vector_int_alloc_from_vector(arg1,arg2,arg3,arg4);
10691 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector_int, 0 | SWIG_SHADOW); argvi++ ;
10692
10693
10694
10695
10696 XSRETURN(argvi);
10697 fail:
10698
10699
10700
10701
10702 SWIG_croak_null();
10703 }
10704 }
10705
10706
XS(_wrap_gsl_vector_int_free)10707 XS(_wrap_gsl_vector_int_free) {
10708 {
10709 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
10710 void *argp1 = 0 ;
10711 int res1 = 0 ;
10712 int argvi = 0;
10713 dXSARGS;
10714
10715 if ((items < 1) || (items > 1)) {
10716 SWIG_croak("Usage: gsl_vector_int_free(v);");
10717 }
10718 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
10719 if (!SWIG_IsOK(res1)) {
10720 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_free" "', argument " "1"" of type '" "gsl_vector_int *""'");
10721 }
10722 arg1 = (gsl_vector_int *)(argp1);
10723 gsl_vector_int_free(arg1);
10724 ST(argvi) = &PL_sv_undef;
10725
10726 XSRETURN(argvi);
10727 fail:
10728
10729 SWIG_croak_null();
10730 }
10731 }
10732
10733
XS(_wrap_gsl_vector_int_view_array)10734 XS(_wrap_gsl_vector_int_view_array) {
10735 {
10736 int *arg1 = (int *) 0 ;
10737 size_t arg2 ;
10738 size_t val2 ;
10739 int ecode2 = 0 ;
10740 int argvi = 0;
10741 _gsl_vector_int_view result;
10742 dXSARGS;
10743
10744 if ((items < 2) || (items > 2)) {
10745 SWIG_croak("Usage: gsl_vector_int_view_array(v,n);");
10746 }
10747 {
10748 AV *tempav;
10749 I32 len;
10750 int i;
10751 SV **tv;
10752 if (!SvROK(ST(0)))
10753 croak("Math::GSL : $v is not a reference!");
10754 if (SvTYPE(SvRV(ST(0))) != SVt_PVAV)
10755 croak("Math::GSL : $v is not an array ref!");
10756
10757 tempav = (AV*)SvRV(ST(0));
10758 len = av_len(tempav);
10759 arg1 = (int *) malloc((len+2)*sizeof(int));
10760 for (i = 0; i <= len; i++) {
10761 tv = av_fetch(tempav, i, 0);
10762 arg1[i] = (int) SvNV(*tv);
10763 }
10764 }
10765 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10766 if (!SWIG_IsOK(ecode2)) {
10767 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_view_array" "', argument " "2"" of type '" "size_t""'");
10768 }
10769 arg2 = (size_t)(val2);
10770 result = gsl_vector_int_view_array(arg1,arg2);
10771 ST(argvi) = SWIG_NewPointerObj((_gsl_vector_int_view *)memcpy((_gsl_vector_int_view *)calloc(1,sizeof(_gsl_vector_int_view)),&result,sizeof(_gsl_vector_int_view)), SWIGTYPE_p__gsl_vector_int_view, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10772 {
10773 if (arg1) free(arg1);
10774 }
10775
10776 XSRETURN(argvi);
10777 fail:
10778 {
10779 if (arg1) free(arg1);
10780 }
10781
10782 SWIG_croak_null();
10783 }
10784 }
10785
10786
XS(_wrap_gsl_vector_int_view_array_with_stride)10787 XS(_wrap_gsl_vector_int_view_array_with_stride) {
10788 {
10789 int *arg1 = (int *) 0 ;
10790 size_t arg2 ;
10791 size_t arg3 ;
10792 void *argp1 = 0 ;
10793 int res1 = 0 ;
10794 size_t val2 ;
10795 int ecode2 = 0 ;
10796 size_t val3 ;
10797 int ecode3 = 0 ;
10798 int argvi = 0;
10799 _gsl_vector_int_view result;
10800 dXSARGS;
10801
10802 if ((items < 3) || (items > 3)) {
10803 SWIG_croak("Usage: gsl_vector_int_view_array_with_stride(base,stride,n);");
10804 }
10805 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_int, 0 | 0 );
10806 if (!SWIG_IsOK(res1)) {
10807 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_view_array_with_stride" "', argument " "1"" of type '" "int *""'");
10808 }
10809 arg1 = (int *)(argp1);
10810 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10811 if (!SWIG_IsOK(ecode2)) {
10812 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_view_array_with_stride" "', argument " "2"" of type '" "size_t""'");
10813 }
10814 arg2 = (size_t)(val2);
10815 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
10816 if (!SWIG_IsOK(ecode3)) {
10817 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_int_view_array_with_stride" "', argument " "3"" of type '" "size_t""'");
10818 }
10819 arg3 = (size_t)(val3);
10820 result = gsl_vector_int_view_array_with_stride(arg1,arg2,arg3);
10821 ST(argvi) = SWIG_NewPointerObj((_gsl_vector_int_view *)memcpy((_gsl_vector_int_view *)calloc(1,sizeof(_gsl_vector_int_view)),&result,sizeof(_gsl_vector_int_view)), SWIGTYPE_p__gsl_vector_int_view, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10822
10823
10824
10825 XSRETURN(argvi);
10826 fail:
10827
10828
10829
10830 SWIG_croak_null();
10831 }
10832 }
10833
10834
XS(_wrap_gsl_vector_int_const_view_array)10835 XS(_wrap_gsl_vector_int_const_view_array) {
10836 {
10837 int *arg1 = (int *) 0 ;
10838 size_t arg2 ;
10839 size_t val2 ;
10840 int ecode2 = 0 ;
10841 int argvi = 0;
10842 _gsl_vector_int_const_view result;
10843 dXSARGS;
10844
10845 if ((items < 2) || (items > 2)) {
10846 SWIG_croak("Usage: gsl_vector_int_const_view_array(v,n);");
10847 }
10848 {
10849 AV *tempav;
10850 I32 len;
10851 int i;
10852 SV **tv;
10853 if (!SvROK(ST(0)))
10854 croak("Math::GSL : $v is not a reference!");
10855 if (SvTYPE(SvRV(ST(0))) != SVt_PVAV)
10856 croak("Math::GSL : $v is not an array ref!");
10857
10858 tempav = (AV*)SvRV(ST(0));
10859 len = av_len(tempav);
10860 arg1 = (int *) malloc((len+2)*sizeof(int));
10861 for (i = 0; i <= len; i++) {
10862 tv = av_fetch(tempav, i, 0);
10863 arg1[i] = (int) SvNV(*tv);
10864 }
10865 }
10866 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10867 if (!SWIG_IsOK(ecode2)) {
10868 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_const_view_array" "', argument " "2"" of type '" "size_t""'");
10869 }
10870 arg2 = (size_t)(val2);
10871 result = gsl_vector_int_const_view_array((int const *)arg1,arg2);
10872 ST(argvi) = SWIG_NewPointerObj((_gsl_vector_int_const_view *)memcpy((_gsl_vector_int_const_view *)calloc(1,sizeof(_gsl_vector_int_const_view)),&result,sizeof(_gsl_vector_int_const_view)), SWIGTYPE_p__gsl_vector_int_const_view, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10873 {
10874 if (arg1) free(arg1);
10875 }
10876
10877 XSRETURN(argvi);
10878 fail:
10879 {
10880 if (arg1) free(arg1);
10881 }
10882
10883 SWIG_croak_null();
10884 }
10885 }
10886
10887
XS(_wrap_gsl_vector_int_const_view_array_with_stride)10888 XS(_wrap_gsl_vector_int_const_view_array_with_stride) {
10889 {
10890 int *arg1 = (int *) 0 ;
10891 size_t arg2 ;
10892 size_t arg3 ;
10893 void *argp1 = 0 ;
10894 int res1 = 0 ;
10895 size_t val2 ;
10896 int ecode2 = 0 ;
10897 size_t val3 ;
10898 int ecode3 = 0 ;
10899 int argvi = 0;
10900 _gsl_vector_int_const_view result;
10901 dXSARGS;
10902
10903 if ((items < 3) || (items > 3)) {
10904 SWIG_croak("Usage: gsl_vector_int_const_view_array_with_stride(base,stride,n);");
10905 }
10906 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_int, 0 | 0 );
10907 if (!SWIG_IsOK(res1)) {
10908 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_const_view_array_with_stride" "', argument " "1"" of type '" "int const *""'");
10909 }
10910 arg1 = (int *)(argp1);
10911 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10912 if (!SWIG_IsOK(ecode2)) {
10913 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_const_view_array_with_stride" "', argument " "2"" of type '" "size_t""'");
10914 }
10915 arg2 = (size_t)(val2);
10916 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
10917 if (!SWIG_IsOK(ecode3)) {
10918 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_int_const_view_array_with_stride" "', argument " "3"" of type '" "size_t""'");
10919 }
10920 arg3 = (size_t)(val3);
10921 result = gsl_vector_int_const_view_array_with_stride((int const *)arg1,arg2,arg3);
10922 ST(argvi) = SWIG_NewPointerObj((_gsl_vector_int_const_view *)memcpy((_gsl_vector_int_const_view *)calloc(1,sizeof(_gsl_vector_int_const_view)),&result,sizeof(_gsl_vector_int_const_view)), SWIGTYPE_p__gsl_vector_int_const_view, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10923
10924
10925
10926 XSRETURN(argvi);
10927 fail:
10928
10929
10930
10931 SWIG_croak_null();
10932 }
10933 }
10934
10935
XS(_wrap_gsl_vector_int_subvector)10936 XS(_wrap_gsl_vector_int_subvector) {
10937 {
10938 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
10939 size_t arg2 ;
10940 size_t arg3 ;
10941 void *argp1 = 0 ;
10942 int res1 = 0 ;
10943 size_t val2 ;
10944 int ecode2 = 0 ;
10945 size_t val3 ;
10946 int ecode3 = 0 ;
10947 int argvi = 0;
10948 _gsl_vector_int_view result;
10949 dXSARGS;
10950
10951 if ((items < 3) || (items > 3)) {
10952 SWIG_croak("Usage: gsl_vector_int_subvector(v,i,n);");
10953 }
10954 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
10955 if (!SWIG_IsOK(res1)) {
10956 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_subvector" "', argument " "1"" of type '" "gsl_vector_int *""'");
10957 }
10958 arg1 = (gsl_vector_int *)(argp1);
10959 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10960 if (!SWIG_IsOK(ecode2)) {
10961 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_subvector" "', argument " "2"" of type '" "size_t""'");
10962 }
10963 arg2 = (size_t)(val2);
10964 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
10965 if (!SWIG_IsOK(ecode3)) {
10966 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_int_subvector" "', argument " "3"" of type '" "size_t""'");
10967 }
10968 arg3 = (size_t)(val3);
10969 result = gsl_vector_int_subvector(arg1,arg2,arg3);
10970 ST(argvi) = SWIG_NewPointerObj((_gsl_vector_int_view *)memcpy((_gsl_vector_int_view *)calloc(1,sizeof(_gsl_vector_int_view)),&result,sizeof(_gsl_vector_int_view)), SWIGTYPE_p__gsl_vector_int_view, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10971
10972
10973
10974 XSRETURN(argvi);
10975 fail:
10976
10977
10978
10979 SWIG_croak_null();
10980 }
10981 }
10982
10983
XS(_wrap_gsl_vector_int_subvector_with_stride)10984 XS(_wrap_gsl_vector_int_subvector_with_stride) {
10985 {
10986 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
10987 size_t arg2 ;
10988 size_t arg3 ;
10989 size_t arg4 ;
10990 void *argp1 = 0 ;
10991 int res1 = 0 ;
10992 size_t val2 ;
10993 int ecode2 = 0 ;
10994 size_t val3 ;
10995 int ecode3 = 0 ;
10996 size_t val4 ;
10997 int ecode4 = 0 ;
10998 int argvi = 0;
10999 _gsl_vector_int_view result;
11000 dXSARGS;
11001
11002 if ((items < 4) || (items > 4)) {
11003 SWIG_croak("Usage: gsl_vector_int_subvector_with_stride(v,i,stride,n);");
11004 }
11005 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11006 if (!SWIG_IsOK(res1)) {
11007 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_subvector_with_stride" "', argument " "1"" of type '" "gsl_vector_int *""'");
11008 }
11009 arg1 = (gsl_vector_int *)(argp1);
11010 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
11011 if (!SWIG_IsOK(ecode2)) {
11012 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_subvector_with_stride" "', argument " "2"" of type '" "size_t""'");
11013 }
11014 arg2 = (size_t)(val2);
11015 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
11016 if (!SWIG_IsOK(ecode3)) {
11017 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_int_subvector_with_stride" "', argument " "3"" of type '" "size_t""'");
11018 }
11019 arg3 = (size_t)(val3);
11020 ecode4 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
11021 if (!SWIG_IsOK(ecode4)) {
11022 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_vector_int_subvector_with_stride" "', argument " "4"" of type '" "size_t""'");
11023 }
11024 arg4 = (size_t)(val4);
11025 result = gsl_vector_int_subvector_with_stride(arg1,arg2,arg3,arg4);
11026 ST(argvi) = SWIG_NewPointerObj((_gsl_vector_int_view *)memcpy((_gsl_vector_int_view *)calloc(1,sizeof(_gsl_vector_int_view)),&result,sizeof(_gsl_vector_int_view)), SWIGTYPE_p__gsl_vector_int_view, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11027
11028
11029
11030
11031 XSRETURN(argvi);
11032 fail:
11033
11034
11035
11036
11037 SWIG_croak_null();
11038 }
11039 }
11040
11041
XS(_wrap_gsl_vector_int_const_subvector)11042 XS(_wrap_gsl_vector_int_const_subvector) {
11043 {
11044 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11045 size_t arg2 ;
11046 size_t arg3 ;
11047 void *argp1 = 0 ;
11048 int res1 = 0 ;
11049 size_t val2 ;
11050 int ecode2 = 0 ;
11051 size_t val3 ;
11052 int ecode3 = 0 ;
11053 int argvi = 0;
11054 _gsl_vector_int_const_view result;
11055 dXSARGS;
11056
11057 if ((items < 3) || (items > 3)) {
11058 SWIG_croak("Usage: gsl_vector_int_const_subvector(v,i,n);");
11059 }
11060 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11061 if (!SWIG_IsOK(res1)) {
11062 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_const_subvector" "', argument " "1"" of type '" "gsl_vector_int const *""'");
11063 }
11064 arg1 = (gsl_vector_int *)(argp1);
11065 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
11066 if (!SWIG_IsOK(ecode2)) {
11067 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_const_subvector" "', argument " "2"" of type '" "size_t""'");
11068 }
11069 arg2 = (size_t)(val2);
11070 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
11071 if (!SWIG_IsOK(ecode3)) {
11072 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_int_const_subvector" "', argument " "3"" of type '" "size_t""'");
11073 }
11074 arg3 = (size_t)(val3);
11075 result = gsl_vector_int_const_subvector((gsl_vector_int const *)arg1,arg2,arg3);
11076 ST(argvi) = SWIG_NewPointerObj((_gsl_vector_int_const_view *)memcpy((_gsl_vector_int_const_view *)calloc(1,sizeof(_gsl_vector_int_const_view)),&result,sizeof(_gsl_vector_int_const_view)), SWIGTYPE_p__gsl_vector_int_const_view, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11077
11078
11079
11080 XSRETURN(argvi);
11081 fail:
11082
11083
11084
11085 SWIG_croak_null();
11086 }
11087 }
11088
11089
XS(_wrap_gsl_vector_int_const_subvector_with_stride)11090 XS(_wrap_gsl_vector_int_const_subvector_with_stride) {
11091 {
11092 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11093 size_t arg2 ;
11094 size_t arg3 ;
11095 size_t arg4 ;
11096 void *argp1 = 0 ;
11097 int res1 = 0 ;
11098 size_t val2 ;
11099 int ecode2 = 0 ;
11100 size_t val3 ;
11101 int ecode3 = 0 ;
11102 size_t val4 ;
11103 int ecode4 = 0 ;
11104 int argvi = 0;
11105 _gsl_vector_int_const_view result;
11106 dXSARGS;
11107
11108 if ((items < 4) || (items > 4)) {
11109 SWIG_croak("Usage: gsl_vector_int_const_subvector_with_stride(v,i,stride,n);");
11110 }
11111 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11112 if (!SWIG_IsOK(res1)) {
11113 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_const_subvector_with_stride" "', argument " "1"" of type '" "gsl_vector_int const *""'");
11114 }
11115 arg1 = (gsl_vector_int *)(argp1);
11116 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
11117 if (!SWIG_IsOK(ecode2)) {
11118 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_const_subvector_with_stride" "', argument " "2"" of type '" "size_t""'");
11119 }
11120 arg2 = (size_t)(val2);
11121 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
11122 if (!SWIG_IsOK(ecode3)) {
11123 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_int_const_subvector_with_stride" "', argument " "3"" of type '" "size_t""'");
11124 }
11125 arg3 = (size_t)(val3);
11126 ecode4 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
11127 if (!SWIG_IsOK(ecode4)) {
11128 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_vector_int_const_subvector_with_stride" "', argument " "4"" of type '" "size_t""'");
11129 }
11130 arg4 = (size_t)(val4);
11131 result = gsl_vector_int_const_subvector_with_stride((gsl_vector_int const *)arg1,arg2,arg3,arg4);
11132 ST(argvi) = SWIG_NewPointerObj((_gsl_vector_int_const_view *)memcpy((_gsl_vector_int_const_view *)calloc(1,sizeof(_gsl_vector_int_const_view)),&result,sizeof(_gsl_vector_int_const_view)), SWIGTYPE_p__gsl_vector_int_const_view, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11133
11134
11135
11136
11137 XSRETURN(argvi);
11138 fail:
11139
11140
11141
11142
11143 SWIG_croak_null();
11144 }
11145 }
11146
11147
XS(_wrap_gsl_vector_int_set_zero)11148 XS(_wrap_gsl_vector_int_set_zero) {
11149 {
11150 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11151 void *argp1 = 0 ;
11152 int res1 = 0 ;
11153 int argvi = 0;
11154 dXSARGS;
11155
11156 if ((items < 1) || (items > 1)) {
11157 SWIG_croak("Usage: gsl_vector_int_set_zero(v);");
11158 }
11159 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11160 if (!SWIG_IsOK(res1)) {
11161 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_set_zero" "', argument " "1"" of type '" "gsl_vector_int *""'");
11162 }
11163 arg1 = (gsl_vector_int *)(argp1);
11164 gsl_vector_int_set_zero(arg1);
11165 ST(argvi) = &PL_sv_undef;
11166
11167 XSRETURN(argvi);
11168 fail:
11169
11170 SWIG_croak_null();
11171 }
11172 }
11173
11174
XS(_wrap_gsl_vector_int_set_all)11175 XS(_wrap_gsl_vector_int_set_all) {
11176 {
11177 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11178 int arg2 ;
11179 void *argp1 = 0 ;
11180 int res1 = 0 ;
11181 int val2 ;
11182 int ecode2 = 0 ;
11183 int argvi = 0;
11184 dXSARGS;
11185
11186 if ((items < 2) || (items > 2)) {
11187 SWIG_croak("Usage: gsl_vector_int_set_all(v,x);");
11188 }
11189 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11190 if (!SWIG_IsOK(res1)) {
11191 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_set_all" "', argument " "1"" of type '" "gsl_vector_int *""'");
11192 }
11193 arg1 = (gsl_vector_int *)(argp1);
11194 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
11195 if (!SWIG_IsOK(ecode2)) {
11196 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_set_all" "', argument " "2"" of type '" "int""'");
11197 }
11198 arg2 = (int)(val2);
11199 gsl_vector_int_set_all(arg1,arg2);
11200 ST(argvi) = &PL_sv_undef;
11201
11202
11203 XSRETURN(argvi);
11204 fail:
11205
11206
11207 SWIG_croak_null();
11208 }
11209 }
11210
11211
XS(_wrap_gsl_vector_int_set_basis)11212 XS(_wrap_gsl_vector_int_set_basis) {
11213 {
11214 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11215 size_t arg2 ;
11216 void *argp1 = 0 ;
11217 int res1 = 0 ;
11218 size_t val2 ;
11219 int ecode2 = 0 ;
11220 int argvi = 0;
11221 int result;
11222 dXSARGS;
11223
11224 if ((items < 2) || (items > 2)) {
11225 SWIG_croak("Usage: gsl_vector_int_set_basis(v,i);");
11226 }
11227 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11228 if (!SWIG_IsOK(res1)) {
11229 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_set_basis" "', argument " "1"" of type '" "gsl_vector_int *""'");
11230 }
11231 arg1 = (gsl_vector_int *)(argp1);
11232 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
11233 if (!SWIG_IsOK(ecode2)) {
11234 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_set_basis" "', argument " "2"" of type '" "size_t""'");
11235 }
11236 arg2 = (size_t)(val2);
11237 result = (int)gsl_vector_int_set_basis(arg1,arg2);
11238 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11239
11240
11241 XSRETURN(argvi);
11242 fail:
11243
11244
11245 SWIG_croak_null();
11246 }
11247 }
11248
11249
XS(_wrap_gsl_vector_int_fread)11250 XS(_wrap_gsl_vector_int_fread) {
11251 {
11252 FILE *arg1 = (FILE *) 0 ;
11253 gsl_vector_int *arg2 = (gsl_vector_int *) 0 ;
11254 void *argp1 = 0 ;
11255 int res1 = 0 ;
11256 void *argp2 = 0 ;
11257 int res2 = 0 ;
11258 int argvi = 0;
11259 int result;
11260 dXSARGS;
11261
11262 if ((items < 2) || (items > 2)) {
11263 SWIG_croak("Usage: gsl_vector_int_fread(stream,v);");
11264 }
11265 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
11266 if (!SWIG_IsOK(res1)) {
11267 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_fread" "', argument " "1"" of type '" "FILE *""'");
11268 }
11269 arg1 = (FILE *)(argp1);
11270 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11271 if (!SWIG_IsOK(res2)) {
11272 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_int_fread" "', argument " "2"" of type '" "gsl_vector_int *""'");
11273 }
11274 arg2 = (gsl_vector_int *)(argp2);
11275 result = (int)gsl_vector_int_fread(arg1,arg2);
11276 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11277
11278
11279 XSRETURN(argvi);
11280 fail:
11281
11282
11283 SWIG_croak_null();
11284 }
11285 }
11286
11287
XS(_wrap_gsl_vector_int_fwrite)11288 XS(_wrap_gsl_vector_int_fwrite) {
11289 {
11290 FILE *arg1 = (FILE *) 0 ;
11291 gsl_vector_int *arg2 = (gsl_vector_int *) 0 ;
11292 void *argp1 = 0 ;
11293 int res1 = 0 ;
11294 void *argp2 = 0 ;
11295 int res2 = 0 ;
11296 int argvi = 0;
11297 int result;
11298 dXSARGS;
11299
11300 if ((items < 2) || (items > 2)) {
11301 SWIG_croak("Usage: gsl_vector_int_fwrite(stream,v);");
11302 }
11303 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
11304 if (!SWIG_IsOK(res1)) {
11305 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_fwrite" "', argument " "1"" of type '" "FILE *""'");
11306 }
11307 arg1 = (FILE *)(argp1);
11308 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11309 if (!SWIG_IsOK(res2)) {
11310 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_int_fwrite" "', argument " "2"" of type '" "gsl_vector_int const *""'");
11311 }
11312 arg2 = (gsl_vector_int *)(argp2);
11313 result = (int)gsl_vector_int_fwrite(arg1,(gsl_vector_int const *)arg2);
11314 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11315
11316
11317 XSRETURN(argvi);
11318 fail:
11319
11320
11321 SWIG_croak_null();
11322 }
11323 }
11324
11325
XS(_wrap_gsl_vector_int_fscanf)11326 XS(_wrap_gsl_vector_int_fscanf) {
11327 {
11328 FILE *arg1 = (FILE *) 0 ;
11329 gsl_vector_int *arg2 = (gsl_vector_int *) 0 ;
11330 void *argp1 = 0 ;
11331 int res1 = 0 ;
11332 void *argp2 = 0 ;
11333 int res2 = 0 ;
11334 int argvi = 0;
11335 int result;
11336 dXSARGS;
11337
11338 if ((items < 2) || (items > 2)) {
11339 SWIG_croak("Usage: gsl_vector_int_fscanf(stream,v);");
11340 }
11341 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
11342 if (!SWIG_IsOK(res1)) {
11343 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_fscanf" "', argument " "1"" of type '" "FILE *""'");
11344 }
11345 arg1 = (FILE *)(argp1);
11346 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11347 if (!SWIG_IsOK(res2)) {
11348 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_int_fscanf" "', argument " "2"" of type '" "gsl_vector_int *""'");
11349 }
11350 arg2 = (gsl_vector_int *)(argp2);
11351 result = (int)gsl_vector_int_fscanf(arg1,arg2);
11352 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11353
11354
11355 XSRETURN(argvi);
11356 fail:
11357
11358
11359 SWIG_croak_null();
11360 }
11361 }
11362
11363
XS(_wrap_gsl_vector_int_fprintf)11364 XS(_wrap_gsl_vector_int_fprintf) {
11365 {
11366 FILE *arg1 = (FILE *) 0 ;
11367 gsl_vector_int *arg2 = (gsl_vector_int *) 0 ;
11368 char *arg3 = (char *) 0 ;
11369 void *argp1 = 0 ;
11370 int res1 = 0 ;
11371 void *argp2 = 0 ;
11372 int res2 = 0 ;
11373 int res3 ;
11374 char *buf3 = 0 ;
11375 int alloc3 = 0 ;
11376 int argvi = 0;
11377 int result;
11378 dXSARGS;
11379
11380 if ((items < 3) || (items > 3)) {
11381 SWIG_croak("Usage: gsl_vector_int_fprintf(stream,v,format);");
11382 }
11383 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
11384 if (!SWIG_IsOK(res1)) {
11385 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_fprintf" "', argument " "1"" of type '" "FILE *""'");
11386 }
11387 arg1 = (FILE *)(argp1);
11388 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11389 if (!SWIG_IsOK(res2)) {
11390 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_int_fprintf" "', argument " "2"" of type '" "gsl_vector_int const *""'");
11391 }
11392 arg2 = (gsl_vector_int *)(argp2);
11393 res3 = SWIG_AsCharPtrAndSize(ST(2), &buf3, NULL, &alloc3);
11394 if (!SWIG_IsOK(res3)) {
11395 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_vector_int_fprintf" "', argument " "3"" of type '" "char const *""'");
11396 }
11397 arg3 = (char *)(buf3);
11398 result = (int)gsl_vector_int_fprintf(arg1,(gsl_vector_int const *)arg2,(char const *)arg3);
11399 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11400
11401
11402 if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
11403 XSRETURN(argvi);
11404 fail:
11405
11406
11407 if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
11408 SWIG_croak_null();
11409 }
11410 }
11411
11412
XS(_wrap_gsl_vector_int_memcpy)11413 XS(_wrap_gsl_vector_int_memcpy) {
11414 {
11415 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11416 gsl_vector_int *arg2 = (gsl_vector_int *) 0 ;
11417 void *argp1 = 0 ;
11418 int res1 = 0 ;
11419 void *argp2 = 0 ;
11420 int res2 = 0 ;
11421 int argvi = 0;
11422 int result;
11423 dXSARGS;
11424
11425 if ((items < 2) || (items > 2)) {
11426 SWIG_croak("Usage: gsl_vector_int_memcpy(dest,src);");
11427 }
11428 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11429 if (!SWIG_IsOK(res1)) {
11430 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_memcpy" "', argument " "1"" of type '" "gsl_vector_int *""'");
11431 }
11432 arg1 = (gsl_vector_int *)(argp1);
11433 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11434 if (!SWIG_IsOK(res2)) {
11435 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_int_memcpy" "', argument " "2"" of type '" "gsl_vector_int const *""'");
11436 }
11437 arg2 = (gsl_vector_int *)(argp2);
11438 result = (int)gsl_vector_int_memcpy(arg1,(gsl_vector_int const *)arg2);
11439 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11440
11441
11442 XSRETURN(argvi);
11443 fail:
11444
11445
11446 SWIG_croak_null();
11447 }
11448 }
11449
11450
XS(_wrap_gsl_vector_int_reverse)11451 XS(_wrap_gsl_vector_int_reverse) {
11452 {
11453 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11454 void *argp1 = 0 ;
11455 int res1 = 0 ;
11456 int argvi = 0;
11457 int result;
11458 dXSARGS;
11459
11460 if ((items < 1) || (items > 1)) {
11461 SWIG_croak("Usage: gsl_vector_int_reverse(v);");
11462 }
11463 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11464 if (!SWIG_IsOK(res1)) {
11465 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_reverse" "', argument " "1"" of type '" "gsl_vector_int *""'");
11466 }
11467 arg1 = (gsl_vector_int *)(argp1);
11468 result = (int)gsl_vector_int_reverse(arg1);
11469 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11470
11471 XSRETURN(argvi);
11472 fail:
11473
11474 SWIG_croak_null();
11475 }
11476 }
11477
11478
XS(_wrap_gsl_vector_int_swap)11479 XS(_wrap_gsl_vector_int_swap) {
11480 {
11481 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11482 gsl_vector_int *arg2 = (gsl_vector_int *) 0 ;
11483 void *argp1 = 0 ;
11484 int res1 = 0 ;
11485 void *argp2 = 0 ;
11486 int res2 = 0 ;
11487 int argvi = 0;
11488 int result;
11489 dXSARGS;
11490
11491 if ((items < 2) || (items > 2)) {
11492 SWIG_croak("Usage: gsl_vector_int_swap(v,w);");
11493 }
11494 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11495 if (!SWIG_IsOK(res1)) {
11496 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_swap" "', argument " "1"" of type '" "gsl_vector_int *""'");
11497 }
11498 arg1 = (gsl_vector_int *)(argp1);
11499 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11500 if (!SWIG_IsOK(res2)) {
11501 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_int_swap" "', argument " "2"" of type '" "gsl_vector_int *""'");
11502 }
11503 arg2 = (gsl_vector_int *)(argp2);
11504 result = (int)gsl_vector_int_swap(arg1,arg2);
11505 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11506
11507
11508 XSRETURN(argvi);
11509 fail:
11510
11511
11512 SWIG_croak_null();
11513 }
11514 }
11515
11516
XS(_wrap_gsl_vector_int_swap_elements)11517 XS(_wrap_gsl_vector_int_swap_elements) {
11518 {
11519 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11520 size_t arg2 ;
11521 size_t arg3 ;
11522 void *argp1 = 0 ;
11523 int res1 = 0 ;
11524 size_t val2 ;
11525 int ecode2 = 0 ;
11526 size_t val3 ;
11527 int ecode3 = 0 ;
11528 int argvi = 0;
11529 int result;
11530 dXSARGS;
11531
11532 if ((items < 3) || (items > 3)) {
11533 SWIG_croak("Usage: gsl_vector_int_swap_elements(v,i,j);");
11534 }
11535 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11536 if (!SWIG_IsOK(res1)) {
11537 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_swap_elements" "', argument " "1"" of type '" "gsl_vector_int *""'");
11538 }
11539 arg1 = (gsl_vector_int *)(argp1);
11540 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
11541 if (!SWIG_IsOK(ecode2)) {
11542 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_swap_elements" "', argument " "2"" of type '" "size_t""'");
11543 }
11544 arg2 = (size_t)(val2);
11545 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
11546 if (!SWIG_IsOK(ecode3)) {
11547 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_int_swap_elements" "', argument " "3"" of type '" "size_t""'");
11548 }
11549 arg3 = (size_t)(val3);
11550 result = (int)gsl_vector_int_swap_elements(arg1,arg2,arg3);
11551 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11552
11553
11554
11555 XSRETURN(argvi);
11556 fail:
11557
11558
11559
11560 SWIG_croak_null();
11561 }
11562 }
11563
11564
XS(_wrap_gsl_vector_int_max)11565 XS(_wrap_gsl_vector_int_max) {
11566 {
11567 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11568 void *argp1 = 0 ;
11569 int res1 = 0 ;
11570 int argvi = 0;
11571 int result;
11572 dXSARGS;
11573
11574 if ((items < 1) || (items > 1)) {
11575 SWIG_croak("Usage: gsl_vector_int_max(v);");
11576 }
11577 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11578 if (!SWIG_IsOK(res1)) {
11579 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_max" "', argument " "1"" of type '" "gsl_vector_int const *""'");
11580 }
11581 arg1 = (gsl_vector_int *)(argp1);
11582 result = (int)gsl_vector_int_max((gsl_vector_int const *)arg1);
11583 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11584
11585 XSRETURN(argvi);
11586 fail:
11587
11588 SWIG_croak_null();
11589 }
11590 }
11591
11592
XS(_wrap_gsl_vector_int_min)11593 XS(_wrap_gsl_vector_int_min) {
11594 {
11595 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11596 void *argp1 = 0 ;
11597 int res1 = 0 ;
11598 int argvi = 0;
11599 int result;
11600 dXSARGS;
11601
11602 if ((items < 1) || (items > 1)) {
11603 SWIG_croak("Usage: gsl_vector_int_min(v);");
11604 }
11605 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11606 if (!SWIG_IsOK(res1)) {
11607 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_min" "', argument " "1"" of type '" "gsl_vector_int const *""'");
11608 }
11609 arg1 = (gsl_vector_int *)(argp1);
11610 result = (int)gsl_vector_int_min((gsl_vector_int const *)arg1);
11611 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11612
11613 XSRETURN(argvi);
11614 fail:
11615
11616 SWIG_croak_null();
11617 }
11618 }
11619
11620
XS(_wrap_gsl_vector_int_minmax)11621 XS(_wrap_gsl_vector_int_minmax) {
11622 {
11623 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11624 int *arg2 = (int *) 0 ;
11625 int *arg3 = (int *) 0 ;
11626 void *argp1 = 0 ;
11627 int res1 = 0 ;
11628 void *argp2 = 0 ;
11629 int res2 = 0 ;
11630 void *argp3 = 0 ;
11631 int res3 = 0 ;
11632 int argvi = 0;
11633 dXSARGS;
11634
11635 if ((items < 3) || (items > 3)) {
11636 SWIG_croak("Usage: gsl_vector_int_minmax(v,min_out,max_out);");
11637 }
11638 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11639 if (!SWIG_IsOK(res1)) {
11640 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_minmax" "', argument " "1"" of type '" "gsl_vector_int const *""'");
11641 }
11642 arg1 = (gsl_vector_int *)(argp1);
11643 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_int, 0 | 0 );
11644 if (!SWIG_IsOK(res2)) {
11645 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_int_minmax" "', argument " "2"" of type '" "int *""'");
11646 }
11647 arg2 = (int *)(argp2);
11648 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_int, 0 | 0 );
11649 if (!SWIG_IsOK(res3)) {
11650 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_vector_int_minmax" "', argument " "3"" of type '" "int *""'");
11651 }
11652 arg3 = (int *)(argp3);
11653 gsl_vector_int_minmax((gsl_vector_int const *)arg1,arg2,arg3);
11654 ST(argvi) = &PL_sv_undef;
11655
11656
11657
11658 XSRETURN(argvi);
11659 fail:
11660
11661
11662
11663 SWIG_croak_null();
11664 }
11665 }
11666
11667
XS(_wrap_gsl_vector_int_max_index)11668 XS(_wrap_gsl_vector_int_max_index) {
11669 {
11670 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11671 void *argp1 = 0 ;
11672 int res1 = 0 ;
11673 int argvi = 0;
11674 size_t result;
11675 dXSARGS;
11676
11677 if ((items < 1) || (items > 1)) {
11678 SWIG_croak("Usage: gsl_vector_int_max_index(v);");
11679 }
11680 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11681 if (!SWIG_IsOK(res1)) {
11682 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_max_index" "', argument " "1"" of type '" "gsl_vector_int const *""'");
11683 }
11684 arg1 = (gsl_vector_int *)(argp1);
11685 result = gsl_vector_int_max_index((gsl_vector_int const *)arg1);
11686 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
11687
11688 XSRETURN(argvi);
11689 fail:
11690
11691 SWIG_croak_null();
11692 }
11693 }
11694
11695
XS(_wrap_gsl_vector_int_min_index)11696 XS(_wrap_gsl_vector_int_min_index) {
11697 {
11698 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11699 void *argp1 = 0 ;
11700 int res1 = 0 ;
11701 int argvi = 0;
11702 size_t result;
11703 dXSARGS;
11704
11705 if ((items < 1) || (items > 1)) {
11706 SWIG_croak("Usage: gsl_vector_int_min_index(v);");
11707 }
11708 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11709 if (!SWIG_IsOK(res1)) {
11710 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_min_index" "', argument " "1"" of type '" "gsl_vector_int const *""'");
11711 }
11712 arg1 = (gsl_vector_int *)(argp1);
11713 result = gsl_vector_int_min_index((gsl_vector_int const *)arg1);
11714 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
11715
11716 XSRETURN(argvi);
11717 fail:
11718
11719 SWIG_croak_null();
11720 }
11721 }
11722
11723
XS(_wrap_gsl_vector_int_minmax_index)11724 XS(_wrap_gsl_vector_int_minmax_index) {
11725 {
11726 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11727 size_t *arg2 = (size_t *) 0 ;
11728 size_t *arg3 = (size_t *) 0 ;
11729 void *argp1 = 0 ;
11730 int res1 = 0 ;
11731 size_t temp2 ;
11732 int res2 = SWIG_TMPOBJ ;
11733 size_t temp3 ;
11734 int res3 = SWIG_TMPOBJ ;
11735 int argvi = 0;
11736 dXSARGS;
11737
11738 arg2 = &temp2;
11739 arg3 = &temp3;
11740 if ((items < 1) || (items > 1)) {
11741 SWIG_croak("Usage: gsl_vector_int_minmax_index(v);");
11742 }
11743 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11744 if (!SWIG_IsOK(res1)) {
11745 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_minmax_index" "', argument " "1"" of type '" "gsl_vector_int const *""'");
11746 }
11747 arg1 = (gsl_vector_int *)(argp1);
11748 gsl_vector_int_minmax_index((gsl_vector_int const *)arg1,arg2,arg3);
11749 ST(argvi) = &PL_sv_undef;
11750 if (SWIG_IsTmpObj(res2)) {
11751 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg2)); argvi++ ;
11752 } else {
11753 int new_flags = SWIG_IsNewObj(res2) ? (SWIG_POINTER_OWN | 0) : 0;
11754 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg2), SWIGTYPE_p_size_t, new_flags); argvi++ ;
11755 }
11756 if (SWIG_IsTmpObj(res3)) {
11757 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg3)); argvi++ ;
11758 } else {
11759 int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN | 0) : 0;
11760 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_size_t, new_flags); argvi++ ;
11761 }
11762
11763
11764
11765 XSRETURN(argvi);
11766 fail:
11767
11768
11769
11770 SWIG_croak_null();
11771 }
11772 }
11773
11774
XS(_wrap_gsl_vector_int_add)11775 XS(_wrap_gsl_vector_int_add) {
11776 {
11777 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11778 gsl_vector_int *arg2 = (gsl_vector_int *) 0 ;
11779 void *argp1 = 0 ;
11780 int res1 = 0 ;
11781 void *argp2 = 0 ;
11782 int res2 = 0 ;
11783 int argvi = 0;
11784 int result;
11785 dXSARGS;
11786
11787 if ((items < 2) || (items > 2)) {
11788 SWIG_croak("Usage: gsl_vector_int_add(a,b);");
11789 }
11790 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11791 if (!SWIG_IsOK(res1)) {
11792 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_add" "', argument " "1"" of type '" "gsl_vector_int *""'");
11793 }
11794 arg1 = (gsl_vector_int *)(argp1);
11795 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11796 if (!SWIG_IsOK(res2)) {
11797 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_int_add" "', argument " "2"" of type '" "gsl_vector_int const *""'");
11798 }
11799 arg2 = (gsl_vector_int *)(argp2);
11800 result = (int)gsl_vector_int_add(arg1,(gsl_vector_int const *)arg2);
11801 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11802
11803
11804 XSRETURN(argvi);
11805 fail:
11806
11807
11808 SWIG_croak_null();
11809 }
11810 }
11811
11812
XS(_wrap_gsl_vector_int_sub)11813 XS(_wrap_gsl_vector_int_sub) {
11814 {
11815 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11816 gsl_vector_int *arg2 = (gsl_vector_int *) 0 ;
11817 void *argp1 = 0 ;
11818 int res1 = 0 ;
11819 void *argp2 = 0 ;
11820 int res2 = 0 ;
11821 int argvi = 0;
11822 int result;
11823 dXSARGS;
11824
11825 if ((items < 2) || (items > 2)) {
11826 SWIG_croak("Usage: gsl_vector_int_sub(a,b);");
11827 }
11828 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11829 if (!SWIG_IsOK(res1)) {
11830 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_sub" "', argument " "1"" of type '" "gsl_vector_int *""'");
11831 }
11832 arg1 = (gsl_vector_int *)(argp1);
11833 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11834 if (!SWIG_IsOK(res2)) {
11835 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_int_sub" "', argument " "2"" of type '" "gsl_vector_int const *""'");
11836 }
11837 arg2 = (gsl_vector_int *)(argp2);
11838 result = (int)gsl_vector_int_sub(arg1,(gsl_vector_int const *)arg2);
11839 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11840
11841
11842 XSRETURN(argvi);
11843 fail:
11844
11845
11846 SWIG_croak_null();
11847 }
11848 }
11849
11850
XS(_wrap_gsl_vector_int_mul)11851 XS(_wrap_gsl_vector_int_mul) {
11852 {
11853 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11854 gsl_vector_int *arg2 = (gsl_vector_int *) 0 ;
11855 void *argp1 = 0 ;
11856 int res1 = 0 ;
11857 void *argp2 = 0 ;
11858 int res2 = 0 ;
11859 int argvi = 0;
11860 int result;
11861 dXSARGS;
11862
11863 if ((items < 2) || (items > 2)) {
11864 SWIG_croak("Usage: gsl_vector_int_mul(a,b);");
11865 }
11866 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11867 if (!SWIG_IsOK(res1)) {
11868 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_mul" "', argument " "1"" of type '" "gsl_vector_int *""'");
11869 }
11870 arg1 = (gsl_vector_int *)(argp1);
11871 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11872 if (!SWIG_IsOK(res2)) {
11873 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_int_mul" "', argument " "2"" of type '" "gsl_vector_int const *""'");
11874 }
11875 arg2 = (gsl_vector_int *)(argp2);
11876 result = (int)gsl_vector_int_mul(arg1,(gsl_vector_int const *)arg2);
11877 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11878
11879
11880 XSRETURN(argvi);
11881 fail:
11882
11883
11884 SWIG_croak_null();
11885 }
11886 }
11887
11888
XS(_wrap_gsl_vector_int_div)11889 XS(_wrap_gsl_vector_int_div) {
11890 {
11891 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11892 gsl_vector_int *arg2 = (gsl_vector_int *) 0 ;
11893 void *argp1 = 0 ;
11894 int res1 = 0 ;
11895 void *argp2 = 0 ;
11896 int res2 = 0 ;
11897 int argvi = 0;
11898 int result;
11899 dXSARGS;
11900
11901 if ((items < 2) || (items > 2)) {
11902 SWIG_croak("Usage: gsl_vector_int_div(a,b);");
11903 }
11904 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11905 if (!SWIG_IsOK(res1)) {
11906 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_div" "', argument " "1"" of type '" "gsl_vector_int *""'");
11907 }
11908 arg1 = (gsl_vector_int *)(argp1);
11909 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11910 if (!SWIG_IsOK(res2)) {
11911 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_int_div" "', argument " "2"" of type '" "gsl_vector_int const *""'");
11912 }
11913 arg2 = (gsl_vector_int *)(argp2);
11914 result = (int)gsl_vector_int_div(arg1,(gsl_vector_int const *)arg2);
11915 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11916
11917
11918 XSRETURN(argvi);
11919 fail:
11920
11921
11922 SWIG_croak_null();
11923 }
11924 }
11925
11926
XS(_wrap_gsl_vector_int_scale)11927 XS(_wrap_gsl_vector_int_scale) {
11928 {
11929 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11930 int arg2 ;
11931 void *argp1 = 0 ;
11932 int res1 = 0 ;
11933 int val2 ;
11934 int ecode2 = 0 ;
11935 int argvi = 0;
11936 int result;
11937 dXSARGS;
11938
11939 if ((items < 2) || (items > 2)) {
11940 SWIG_croak("Usage: gsl_vector_int_scale(a,x);");
11941 }
11942 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11943 if (!SWIG_IsOK(res1)) {
11944 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_scale" "', argument " "1"" of type '" "gsl_vector_int *""'");
11945 }
11946 arg1 = (gsl_vector_int *)(argp1);
11947 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
11948 if (!SWIG_IsOK(ecode2)) {
11949 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_scale" "', argument " "2"" of type '" "int""'");
11950 }
11951 arg2 = (int)(val2);
11952 result = (int)gsl_vector_int_scale(arg1,arg2);
11953 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11954
11955
11956 XSRETURN(argvi);
11957 fail:
11958
11959
11960 SWIG_croak_null();
11961 }
11962 }
11963
11964
XS(_wrap_gsl_vector_int_add_constant)11965 XS(_wrap_gsl_vector_int_add_constant) {
11966 {
11967 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11968 int arg2 ;
11969 void *argp1 = 0 ;
11970 int res1 = 0 ;
11971 int val2 ;
11972 int ecode2 = 0 ;
11973 int argvi = 0;
11974 int result;
11975 dXSARGS;
11976
11977 if ((items < 2) || (items > 2)) {
11978 SWIG_croak("Usage: gsl_vector_int_add_constant(a,x);");
11979 }
11980 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11981 if (!SWIG_IsOK(res1)) {
11982 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_add_constant" "', argument " "1"" of type '" "gsl_vector_int *""'");
11983 }
11984 arg1 = (gsl_vector_int *)(argp1);
11985 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
11986 if (!SWIG_IsOK(ecode2)) {
11987 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_add_constant" "', argument " "2"" of type '" "int""'");
11988 }
11989 arg2 = (int)(val2);
11990 result = (int)gsl_vector_int_add_constant(arg1,arg2);
11991 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11992
11993
11994 XSRETURN(argvi);
11995 fail:
11996
11997
11998 SWIG_croak_null();
11999 }
12000 }
12001
12002
XS(_wrap_gsl_vector_int_axpby)12003 XS(_wrap_gsl_vector_int_axpby) {
12004 {
12005 int arg1 ;
12006 gsl_vector_int *arg2 = (gsl_vector_int *) 0 ;
12007 int arg3 ;
12008 gsl_vector_int *arg4 = (gsl_vector_int *) 0 ;
12009 int val1 ;
12010 int ecode1 = 0 ;
12011 void *argp2 = 0 ;
12012 int res2 = 0 ;
12013 int val3 ;
12014 int ecode3 = 0 ;
12015 void *argp4 = 0 ;
12016 int res4 = 0 ;
12017 int argvi = 0;
12018 int result;
12019 dXSARGS;
12020
12021 if ((items < 4) || (items > 4)) {
12022 SWIG_croak("Usage: gsl_vector_int_axpby(alpha,x,beta,y);");
12023 }
12024 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
12025 if (!SWIG_IsOK(ecode1)) {
12026 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_vector_int_axpby" "', argument " "1"" of type '" "int""'");
12027 }
12028 arg1 = (int)(val1);
12029 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
12030 if (!SWIG_IsOK(res2)) {
12031 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_int_axpby" "', argument " "2"" of type '" "gsl_vector_int const *""'");
12032 }
12033 arg2 = (gsl_vector_int *)(argp2);
12034 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
12035 if (!SWIG_IsOK(ecode3)) {
12036 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_int_axpby" "', argument " "3"" of type '" "int""'");
12037 }
12038 arg3 = (int)(val3);
12039 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
12040 if (!SWIG_IsOK(res4)) {
12041 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_vector_int_axpby" "', argument " "4"" of type '" "gsl_vector_int *""'");
12042 }
12043 arg4 = (gsl_vector_int *)(argp4);
12044 result = (int)gsl_vector_int_axpby(arg1,(gsl_vector_int const *)arg2,arg3,arg4);
12045 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12046
12047
12048
12049
12050 XSRETURN(argvi);
12051 fail:
12052
12053
12054
12055
12056 SWIG_croak_null();
12057 }
12058 }
12059
12060
XS(_wrap_gsl_vector_int_equal)12061 XS(_wrap_gsl_vector_int_equal) {
12062 {
12063 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
12064 gsl_vector_int *arg2 = (gsl_vector_int *) 0 ;
12065 void *argp1 = 0 ;
12066 int res1 = 0 ;
12067 void *argp2 = 0 ;
12068 int res2 = 0 ;
12069 int argvi = 0;
12070 int result;
12071 dXSARGS;
12072
12073 if ((items < 2) || (items > 2)) {
12074 SWIG_croak("Usage: gsl_vector_int_equal(u,v);");
12075 }
12076 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
12077 if (!SWIG_IsOK(res1)) {
12078 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_equal" "', argument " "1"" of type '" "gsl_vector_int const *""'");
12079 }
12080 arg1 = (gsl_vector_int *)(argp1);
12081 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
12082 if (!SWIG_IsOK(res2)) {
12083 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_int_equal" "', argument " "2"" of type '" "gsl_vector_int const *""'");
12084 }
12085 arg2 = (gsl_vector_int *)(argp2);
12086 result = (int)gsl_vector_int_equal((gsl_vector_int const *)arg1,(gsl_vector_int const *)arg2);
12087 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12088
12089
12090 XSRETURN(argvi);
12091 fail:
12092
12093
12094 SWIG_croak_null();
12095 }
12096 }
12097
12098
XS(_wrap_gsl_vector_int_isnull)12099 XS(_wrap_gsl_vector_int_isnull) {
12100 {
12101 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
12102 void *argp1 = 0 ;
12103 int res1 = 0 ;
12104 int argvi = 0;
12105 int result;
12106 dXSARGS;
12107
12108 if ((items < 1) || (items > 1)) {
12109 SWIG_croak("Usage: gsl_vector_int_isnull(v);");
12110 }
12111 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
12112 if (!SWIG_IsOK(res1)) {
12113 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_isnull" "', argument " "1"" of type '" "gsl_vector_int const *""'");
12114 }
12115 arg1 = (gsl_vector_int *)(argp1);
12116 result = (int)gsl_vector_int_isnull((gsl_vector_int const *)arg1);
12117 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12118
12119 XSRETURN(argvi);
12120 fail:
12121
12122 SWIG_croak_null();
12123 }
12124 }
12125
12126
XS(_wrap_gsl_vector_int_ispos)12127 XS(_wrap_gsl_vector_int_ispos) {
12128 {
12129 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
12130 void *argp1 = 0 ;
12131 int res1 = 0 ;
12132 int argvi = 0;
12133 int result;
12134 dXSARGS;
12135
12136 if ((items < 1) || (items > 1)) {
12137 SWIG_croak("Usage: gsl_vector_int_ispos(v);");
12138 }
12139 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
12140 if (!SWIG_IsOK(res1)) {
12141 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_ispos" "', argument " "1"" of type '" "gsl_vector_int const *""'");
12142 }
12143 arg1 = (gsl_vector_int *)(argp1);
12144 result = (int)gsl_vector_int_ispos((gsl_vector_int const *)arg1);
12145 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12146
12147 XSRETURN(argvi);
12148 fail:
12149
12150 SWIG_croak_null();
12151 }
12152 }
12153
12154
XS(_wrap_gsl_vector_int_isneg)12155 XS(_wrap_gsl_vector_int_isneg) {
12156 {
12157 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
12158 void *argp1 = 0 ;
12159 int res1 = 0 ;
12160 int argvi = 0;
12161 int result;
12162 dXSARGS;
12163
12164 if ((items < 1) || (items > 1)) {
12165 SWIG_croak("Usage: gsl_vector_int_isneg(v);");
12166 }
12167 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
12168 if (!SWIG_IsOK(res1)) {
12169 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_isneg" "', argument " "1"" of type '" "gsl_vector_int const *""'");
12170 }
12171 arg1 = (gsl_vector_int *)(argp1);
12172 result = (int)gsl_vector_int_isneg((gsl_vector_int const *)arg1);
12173 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12174
12175 XSRETURN(argvi);
12176 fail:
12177
12178 SWIG_croak_null();
12179 }
12180 }
12181
12182
XS(_wrap_gsl_vector_int_isnonneg)12183 XS(_wrap_gsl_vector_int_isnonneg) {
12184 {
12185 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
12186 void *argp1 = 0 ;
12187 int res1 = 0 ;
12188 int argvi = 0;
12189 int result;
12190 dXSARGS;
12191
12192 if ((items < 1) || (items > 1)) {
12193 SWIG_croak("Usage: gsl_vector_int_isnonneg(v);");
12194 }
12195 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
12196 if (!SWIG_IsOK(res1)) {
12197 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_isnonneg" "', argument " "1"" of type '" "gsl_vector_int const *""'");
12198 }
12199 arg1 = (gsl_vector_int *)(argp1);
12200 result = (int)gsl_vector_int_isnonneg((gsl_vector_int const *)arg1);
12201 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12202
12203 XSRETURN(argvi);
12204 fail:
12205
12206 SWIG_croak_null();
12207 }
12208 }
12209
12210
XS(_wrap_gsl_vector_int_get)12211 XS(_wrap_gsl_vector_int_get) {
12212 {
12213 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
12214 size_t arg2 ;
12215 void *argp1 = 0 ;
12216 int res1 = 0 ;
12217 size_t val2 ;
12218 int ecode2 = 0 ;
12219 int argvi = 0;
12220 int result;
12221 dXSARGS;
12222
12223 if ((items < 2) || (items > 2)) {
12224 SWIG_croak("Usage: gsl_vector_int_get(v,i);");
12225 }
12226 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
12227 if (!SWIG_IsOK(res1)) {
12228 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_get" "', argument " "1"" of type '" "gsl_vector_int const *""'");
12229 }
12230 arg1 = (gsl_vector_int *)(argp1);
12231 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12232 if (!SWIG_IsOK(ecode2)) {
12233 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_get" "', argument " "2"" of type '" "size_t""'");
12234 }
12235 arg2 = (size_t)(val2);
12236 result = (int)gsl_vector_int_get((gsl_vector_int const *)arg1,arg2);
12237 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12238
12239
12240 XSRETURN(argvi);
12241 fail:
12242
12243
12244 SWIG_croak_null();
12245 }
12246 }
12247
12248
XS(_wrap_gsl_vector_int_set)12249 XS(_wrap_gsl_vector_int_set) {
12250 {
12251 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
12252 size_t arg2 ;
12253 int arg3 ;
12254 void *argp1 = 0 ;
12255 int res1 = 0 ;
12256 size_t val2 ;
12257 int ecode2 = 0 ;
12258 int val3 ;
12259 int ecode3 = 0 ;
12260 int argvi = 0;
12261 dXSARGS;
12262
12263 if ((items < 3) || (items > 3)) {
12264 SWIG_croak("Usage: gsl_vector_int_set(v,i,x);");
12265 }
12266 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
12267 if (!SWIG_IsOK(res1)) {
12268 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_set" "', argument " "1"" of type '" "gsl_vector_int *""'");
12269 }
12270 arg1 = (gsl_vector_int *)(argp1);
12271 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12272 if (!SWIG_IsOK(ecode2)) {
12273 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_set" "', argument " "2"" of type '" "size_t""'");
12274 }
12275 arg2 = (size_t)(val2);
12276 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
12277 if (!SWIG_IsOK(ecode3)) {
12278 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_int_set" "', argument " "3"" of type '" "int""'");
12279 }
12280 arg3 = (int)(val3);
12281 gsl_vector_int_set(arg1,arg2,arg3);
12282 ST(argvi) = &PL_sv_undef;
12283
12284
12285
12286 XSRETURN(argvi);
12287 fail:
12288
12289
12290
12291 SWIG_croak_null();
12292 }
12293 }
12294
12295
XS(_wrap_gsl_vector_int_ptr)12296 XS(_wrap_gsl_vector_int_ptr) {
12297 {
12298 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
12299 size_t arg2 ;
12300 void *argp1 = 0 ;
12301 int res1 = 0 ;
12302 size_t val2 ;
12303 int ecode2 = 0 ;
12304 int argvi = 0;
12305 int *result = 0 ;
12306 dXSARGS;
12307
12308 if ((items < 2) || (items > 2)) {
12309 SWIG_croak("Usage: gsl_vector_int_ptr(v,i);");
12310 }
12311 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
12312 if (!SWIG_IsOK(res1)) {
12313 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_ptr" "', argument " "1"" of type '" "gsl_vector_int *""'");
12314 }
12315 arg1 = (gsl_vector_int *)(argp1);
12316 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12317 if (!SWIG_IsOK(ecode2)) {
12318 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_ptr" "', argument " "2"" of type '" "size_t""'");
12319 }
12320 arg2 = (size_t)(val2);
12321 result = (int *)gsl_vector_int_ptr(arg1,arg2);
12322 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_int, 0 | 0); argvi++ ;
12323
12324
12325 XSRETURN(argvi);
12326 fail:
12327
12328
12329 SWIG_croak_null();
12330 }
12331 }
12332
12333
XS(_wrap_gsl_vector_int_const_ptr)12334 XS(_wrap_gsl_vector_int_const_ptr) {
12335 {
12336 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
12337 size_t arg2 ;
12338 void *argp1 = 0 ;
12339 int res1 = 0 ;
12340 size_t val2 ;
12341 int ecode2 = 0 ;
12342 int argvi = 0;
12343 int *result = 0 ;
12344 dXSARGS;
12345
12346 if ((items < 2) || (items > 2)) {
12347 SWIG_croak("Usage: gsl_vector_int_const_ptr(v,i);");
12348 }
12349 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
12350 if (!SWIG_IsOK(res1)) {
12351 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_const_ptr" "', argument " "1"" of type '" "gsl_vector_int const *""'");
12352 }
12353 arg1 = (gsl_vector_int *)(argp1);
12354 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12355 if (!SWIG_IsOK(ecode2)) {
12356 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_const_ptr" "', argument " "2"" of type '" "size_t""'");
12357 }
12358 arg2 = (size_t)(val2);
12359 result = (int *)gsl_vector_int_const_ptr((gsl_vector_int const *)arg1,arg2);
12360 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_int, 0 | 0); argvi++ ;
12361
12362
12363 XSRETURN(argvi);
12364 fail:
12365
12366
12367 SWIG_croak_null();
12368 }
12369 }
12370
12371
12372
12373 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (BEGIN) -------- */
12374
12375 static swig_type_info _swigt__p_FILE = {"_p_FILE", "FILE *", 0, 0, (void*)0, 0};
12376 static swig_type_info _swigt__p__gsl_vector_char_const_view = {"_p__gsl_vector_char_const_view", "_gsl_vector_char_const_view *|gsl_vector_char_const_view *", 0, 0, (void*)"Math::GSL::Vector::_gsl_vector_char_const_view", 0};
12377 static swig_type_info _swigt__p__gsl_vector_char_view = {"_p__gsl_vector_char_view", "_gsl_vector_char_view *|gsl_vector_char_view *", 0, 0, (void*)"Math::GSL::Vector::_gsl_vector_char_view", 0};
12378 static swig_type_info _swigt__p__gsl_vector_complex_const_view = {"_p__gsl_vector_complex_const_view", "_gsl_vector_complex_const_view *|gsl_vector_complex_const_view *", 0, 0, (void*)"Math::GSL::Vector::_gsl_vector_complex_const_view", 0};
12379 static swig_type_info _swigt__p__gsl_vector_complex_view = {"_p__gsl_vector_complex_view", "_gsl_vector_complex_view *|gsl_vector_complex_view *", 0, 0, (void*)"Math::GSL::Vector::_gsl_vector_complex_view", 0};
12380 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::Vector::_gsl_vector_const_view", 0};
12381 static swig_type_info _swigt__p__gsl_vector_int_const_view = {"_p__gsl_vector_int_const_view", "_gsl_vector_int_const_view *|gsl_vector_int_const_view *", 0, 0, (void*)"Math::GSL::Vector::_gsl_vector_int_const_view", 0};
12382 static swig_type_info _swigt__p__gsl_vector_int_view = {"_p__gsl_vector_int_view", "_gsl_vector_int_view *|gsl_vector_int_view *", 0, 0, (void*)"Math::GSL::Vector::_gsl_vector_int_view", 0};
12383 static swig_type_info _swigt__p__gsl_vector_view = {"_p__gsl_vector_view", "_gsl_vector_view *|gsl_vector_view *", 0, 0, (void*)"Math::GSL::Vector::_gsl_vector_view", 0};
12384 static swig_type_info _swigt__p_char = {"_p_char", "char *", 0, 0, (void*)0, 0};
12385 static swig_type_info _swigt__p_double = {"_p_double", "double *", 0, 0, (void*)0, 0};
12386 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};
12387 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};
12388 static swig_type_info _swigt__p_gsl_block = {"_p_gsl_block", "gsl_block *", 0, 0, (void*)0, 0};
12389 static swig_type_info _swigt__p_gsl_block_char = {"_p_gsl_block_char", "gsl_block_char *", 0, 0, (void*)0, 0};
12390 static swig_type_info _swigt__p_gsl_block_complex = {"_p_gsl_block_complex", "gsl_block_complex *", 0, 0, (void*)0, 0};
12391 static swig_type_info _swigt__p_gsl_block_int = {"_p_gsl_block_int", "gsl_block_int *", 0, 0, (void*)0, 0};
12392 static swig_type_info _swigt__p_gsl_complex = {"_p_gsl_complex", "gsl_complex *", 0, 0, (void*)0, 0};
12393 static swig_type_info _swigt__p_gsl_vector = {"_p_gsl_vector", "gsl_vector *", 0, 0, (void*)"Math::GSL::Vector::gsl_vector", 0};
12394 static swig_type_info _swigt__p_gsl_vector_char = {"_p_gsl_vector_char", "gsl_vector_char *", 0, 0, (void*)"Math::GSL::Vector::gsl_vector_char", 0};
12395 static swig_type_info _swigt__p_gsl_vector_complex = {"_p_gsl_vector_complex", "gsl_vector_complex *", 0, 0, (void*)"Math::GSL::Vector::gsl_vector_complex", 0};
12396 static swig_type_info _swigt__p_gsl_vector_int = {"_p_gsl_vector_int", "gsl_vector_int *", 0, 0, (void*)"Math::GSL::Vector::gsl_vector_int", 0};
12397 static swig_type_info _swigt__p_int = {"_p_int", "int *", 0, 0, (void*)0, 0};
12398 static swig_type_info _swigt__p_size_t = {"_p_size_t", "size_t *", 0, 0, (void*)0, 0};
12399
12400 static swig_type_info *swig_type_initial[] = {
12401 &_swigt__p_FILE,
12402 &_swigt__p__gsl_vector_char_const_view,
12403 &_swigt__p__gsl_vector_char_view,
12404 &_swigt__p__gsl_vector_complex_const_view,
12405 &_swigt__p__gsl_vector_complex_view,
12406 &_swigt__p__gsl_vector_const_view,
12407 &_swigt__p__gsl_vector_int_const_view,
12408 &_swigt__p__gsl_vector_int_view,
12409 &_swigt__p__gsl_vector_view,
12410 &_swigt__p_char,
12411 &_swigt__p_double,
12412 &_swigt__p_f_p_q_const__char_p_q_const__char_int_int__void,
12413 &_swigt__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void,
12414 &_swigt__p_gsl_block,
12415 &_swigt__p_gsl_block_char,
12416 &_swigt__p_gsl_block_complex,
12417 &_swigt__p_gsl_block_int,
12418 &_swigt__p_gsl_complex,
12419 &_swigt__p_gsl_vector,
12420 &_swigt__p_gsl_vector_char,
12421 &_swigt__p_gsl_vector_complex,
12422 &_swigt__p_gsl_vector_int,
12423 &_swigt__p_int,
12424 &_swigt__p_size_t,
12425 };
12426
12427 static swig_cast_info _swigc__p_FILE[] = { {&_swigt__p_FILE, 0, 0, 0},{0, 0, 0, 0}};
12428 static swig_cast_info _swigc__p__gsl_vector_char_const_view[] = { {&_swigt__p__gsl_vector_char_const_view, 0, 0, 0},{0, 0, 0, 0}};
12429 static swig_cast_info _swigc__p__gsl_vector_char_view[] = { {&_swigt__p__gsl_vector_char_view, 0, 0, 0},{0, 0, 0, 0}};
12430 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}};
12431 static swig_cast_info _swigc__p__gsl_vector_complex_view[] = { {&_swigt__p__gsl_vector_complex_view, 0, 0, 0},{0, 0, 0, 0}};
12432 static swig_cast_info _swigc__p__gsl_vector_const_view[] = { {&_swigt__p__gsl_vector_const_view, 0, 0, 0},{0, 0, 0, 0}};
12433 static swig_cast_info _swigc__p__gsl_vector_int_const_view[] = { {&_swigt__p__gsl_vector_int_const_view, 0, 0, 0},{0, 0, 0, 0}};
12434 static swig_cast_info _swigc__p__gsl_vector_int_view[] = { {&_swigt__p__gsl_vector_int_view, 0, 0, 0},{0, 0, 0, 0}};
12435 static swig_cast_info _swigc__p__gsl_vector_view[] = { {&_swigt__p__gsl_vector_view, 0, 0, 0},{0, 0, 0, 0}};
12436 static swig_cast_info _swigc__p_char[] = { {&_swigt__p_char, 0, 0, 0},{0, 0, 0, 0}};
12437 static swig_cast_info _swigc__p_double[] = { {&_swigt__p_double, 0, 0, 0},{0, 0, 0, 0}};
12438 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}};
12439 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}};
12440 static swig_cast_info _swigc__p_gsl_block[] = { {&_swigt__p_gsl_block, 0, 0, 0},{0, 0, 0, 0}};
12441 static swig_cast_info _swigc__p_gsl_block_char[] = { {&_swigt__p_gsl_block_char, 0, 0, 0},{0, 0, 0, 0}};
12442 static swig_cast_info _swigc__p_gsl_block_complex[] = { {&_swigt__p_gsl_block_complex, 0, 0, 0},{0, 0, 0, 0}};
12443 static swig_cast_info _swigc__p_gsl_block_int[] = { {&_swigt__p_gsl_block_int, 0, 0, 0},{0, 0, 0, 0}};
12444 static swig_cast_info _swigc__p_gsl_complex[] = { {&_swigt__p_gsl_complex, 0, 0, 0},{0, 0, 0, 0}};
12445 static swig_cast_info _swigc__p_gsl_vector[] = { {&_swigt__p_gsl_vector, 0, 0, 0},{0, 0, 0, 0}};
12446 static swig_cast_info _swigc__p_gsl_vector_char[] = { {&_swigt__p_gsl_vector_char, 0, 0, 0},{0, 0, 0, 0}};
12447 static swig_cast_info _swigc__p_gsl_vector_complex[] = { {&_swigt__p_gsl_vector_complex, 0, 0, 0},{0, 0, 0, 0}};
12448 static swig_cast_info _swigc__p_gsl_vector_int[] = { {&_swigt__p_gsl_vector_int, 0, 0, 0},{0, 0, 0, 0}};
12449 static swig_cast_info _swigc__p_int[] = { {&_swigt__p_int, 0, 0, 0},{0, 0, 0, 0}};
12450 static swig_cast_info _swigc__p_size_t[] = { {&_swigt__p_size_t, 0, 0, 0},{0, 0, 0, 0}};
12451
12452 static swig_cast_info *swig_cast_initial[] = {
12453 _swigc__p_FILE,
12454 _swigc__p__gsl_vector_char_const_view,
12455 _swigc__p__gsl_vector_char_view,
12456 _swigc__p__gsl_vector_complex_const_view,
12457 _swigc__p__gsl_vector_complex_view,
12458 _swigc__p__gsl_vector_const_view,
12459 _swigc__p__gsl_vector_int_const_view,
12460 _swigc__p__gsl_vector_int_view,
12461 _swigc__p__gsl_vector_view,
12462 _swigc__p_char,
12463 _swigc__p_double,
12464 _swigc__p_f_p_q_const__char_p_q_const__char_int_int__void,
12465 _swigc__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void,
12466 _swigc__p_gsl_block,
12467 _swigc__p_gsl_block_char,
12468 _swigc__p_gsl_block_complex,
12469 _swigc__p_gsl_block_int,
12470 _swigc__p_gsl_complex,
12471 _swigc__p_gsl_vector,
12472 _swigc__p_gsl_vector_char,
12473 _swigc__p_gsl_vector_complex,
12474 _swigc__p_gsl_vector_int,
12475 _swigc__p_int,
12476 _swigc__p_size_t,
12477 };
12478
12479
12480 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (END) -------- */
12481
12482 static swig_constant_info swig_constants[] = {
12483 {0,0,0,0,0,0}
12484 };
12485 #ifdef __cplusplus
12486 }
12487 #endif
12488 static swig_variable_info swig_variables[] = {
12489 {0,0,0,0}
12490 };
12491 static swig_command_info swig_commands[] = {
12492 {"Math::GSL::Vectorc::gsl_error", _wrap_gsl_error},
12493 {"Math::GSL::Vectorc::gsl_stream_printf", _wrap_gsl_stream_printf},
12494 {"Math::GSL::Vectorc::gsl_strerror", _wrap_gsl_strerror},
12495 {"Math::GSL::Vectorc::gsl_set_error_handler", _wrap_gsl_set_error_handler},
12496 {"Math::GSL::Vectorc::gsl_set_error_handler_off", _wrap_gsl_set_error_handler_off},
12497 {"Math::GSL::Vectorc::gsl_set_stream_handler", _wrap_gsl_set_stream_handler},
12498 {"Math::GSL::Vectorc::gsl_set_stream", _wrap_gsl_set_stream},
12499 {"Math::GSL::Vectorc::fopen", _wrap_fopen},
12500 {"Math::GSL::Vectorc::fclose", _wrap_fclose},
12501 {"Math::GSL::Vectorc::gsl_vector_char_size_set", _wrap_gsl_vector_char_size_set},
12502 {"Math::GSL::Vectorc::gsl_vector_char_size_get", _wrap_gsl_vector_char_size_get},
12503 {"Math::GSL::Vectorc::gsl_vector_char_stride_set", _wrap_gsl_vector_char_stride_set},
12504 {"Math::GSL::Vectorc::gsl_vector_char_stride_get", _wrap_gsl_vector_char_stride_get},
12505 {"Math::GSL::Vectorc::gsl_vector_char_data_set", _wrap_gsl_vector_char_data_set},
12506 {"Math::GSL::Vectorc::gsl_vector_char_data_get", _wrap_gsl_vector_char_data_get},
12507 {"Math::GSL::Vectorc::gsl_vector_char_block_set", _wrap_gsl_vector_char_block_set},
12508 {"Math::GSL::Vectorc::gsl_vector_char_block_get", _wrap_gsl_vector_char_block_get},
12509 {"Math::GSL::Vectorc::gsl_vector_char_owner_set", _wrap_gsl_vector_char_owner_set},
12510 {"Math::GSL::Vectorc::gsl_vector_char_owner_get", _wrap_gsl_vector_char_owner_get},
12511 {"Math::GSL::Vectorc::new_gsl_vector_char", _wrap_new_gsl_vector_char},
12512 {"Math::GSL::Vectorc::delete_gsl_vector_char", _wrap_delete_gsl_vector_char},
12513 {"Math::GSL::Vectorc::_gsl_vector_char_view_vector_set", _wrap__gsl_vector_char_view_vector_set},
12514 {"Math::GSL::Vectorc::_gsl_vector_char_view_vector_get", _wrap__gsl_vector_char_view_vector_get},
12515 {"Math::GSL::Vectorc::new__gsl_vector_char_view", _wrap_new__gsl_vector_char_view},
12516 {"Math::GSL::Vectorc::delete__gsl_vector_char_view", _wrap_delete__gsl_vector_char_view},
12517 {"Math::GSL::Vectorc::_gsl_vector_char_const_view_vector_set", _wrap__gsl_vector_char_const_view_vector_set},
12518 {"Math::GSL::Vectorc::_gsl_vector_char_const_view_vector_get", _wrap__gsl_vector_char_const_view_vector_get},
12519 {"Math::GSL::Vectorc::new__gsl_vector_char_const_view", _wrap_new__gsl_vector_char_const_view},
12520 {"Math::GSL::Vectorc::delete__gsl_vector_char_const_view", _wrap_delete__gsl_vector_char_const_view},
12521 {"Math::GSL::Vectorc::gsl_vector_char_alloc", _wrap_gsl_vector_char_alloc},
12522 {"Math::GSL::Vectorc::gsl_vector_char_calloc", _wrap_gsl_vector_char_calloc},
12523 {"Math::GSL::Vectorc::gsl_vector_char_alloc_from_block", _wrap_gsl_vector_char_alloc_from_block},
12524 {"Math::GSL::Vectorc::gsl_vector_char_alloc_from_vector", _wrap_gsl_vector_char_alloc_from_vector},
12525 {"Math::GSL::Vectorc::gsl_vector_char_free", _wrap_gsl_vector_char_free},
12526 {"Math::GSL::Vectorc::gsl_vector_char_view_array", _wrap_gsl_vector_char_view_array},
12527 {"Math::GSL::Vectorc::gsl_vector_char_view_array_with_stride", _wrap_gsl_vector_char_view_array_with_stride},
12528 {"Math::GSL::Vectorc::gsl_vector_char_const_view_array", _wrap_gsl_vector_char_const_view_array},
12529 {"Math::GSL::Vectorc::gsl_vector_char_const_view_array_with_stride", _wrap_gsl_vector_char_const_view_array_with_stride},
12530 {"Math::GSL::Vectorc::gsl_vector_char_subvector", _wrap_gsl_vector_char_subvector},
12531 {"Math::GSL::Vectorc::gsl_vector_char_subvector_with_stride", _wrap_gsl_vector_char_subvector_with_stride},
12532 {"Math::GSL::Vectorc::gsl_vector_char_const_subvector", _wrap_gsl_vector_char_const_subvector},
12533 {"Math::GSL::Vectorc::gsl_vector_char_const_subvector_with_stride", _wrap_gsl_vector_char_const_subvector_with_stride},
12534 {"Math::GSL::Vectorc::gsl_vector_char_set_zero", _wrap_gsl_vector_char_set_zero},
12535 {"Math::GSL::Vectorc::gsl_vector_char_set_all", _wrap_gsl_vector_char_set_all},
12536 {"Math::GSL::Vectorc::gsl_vector_char_set_basis", _wrap_gsl_vector_char_set_basis},
12537 {"Math::GSL::Vectorc::gsl_vector_char_fread", _wrap_gsl_vector_char_fread},
12538 {"Math::GSL::Vectorc::gsl_vector_char_fwrite", _wrap_gsl_vector_char_fwrite},
12539 {"Math::GSL::Vectorc::gsl_vector_char_fscanf", _wrap_gsl_vector_char_fscanf},
12540 {"Math::GSL::Vectorc::gsl_vector_char_fprintf", _wrap_gsl_vector_char_fprintf},
12541 {"Math::GSL::Vectorc::gsl_vector_char_memcpy", _wrap_gsl_vector_char_memcpy},
12542 {"Math::GSL::Vectorc::gsl_vector_char_reverse", _wrap_gsl_vector_char_reverse},
12543 {"Math::GSL::Vectorc::gsl_vector_char_swap", _wrap_gsl_vector_char_swap},
12544 {"Math::GSL::Vectorc::gsl_vector_char_swap_elements", _wrap_gsl_vector_char_swap_elements},
12545 {"Math::GSL::Vectorc::gsl_vector_char_max", _wrap_gsl_vector_char_max},
12546 {"Math::GSL::Vectorc::gsl_vector_char_min", _wrap_gsl_vector_char_min},
12547 {"Math::GSL::Vectorc::gsl_vector_char_minmax", _wrap_gsl_vector_char_minmax},
12548 {"Math::GSL::Vectorc::gsl_vector_char_max_index", _wrap_gsl_vector_char_max_index},
12549 {"Math::GSL::Vectorc::gsl_vector_char_min_index", _wrap_gsl_vector_char_min_index},
12550 {"Math::GSL::Vectorc::gsl_vector_char_minmax_index", _wrap_gsl_vector_char_minmax_index},
12551 {"Math::GSL::Vectorc::gsl_vector_char_add", _wrap_gsl_vector_char_add},
12552 {"Math::GSL::Vectorc::gsl_vector_char_sub", _wrap_gsl_vector_char_sub},
12553 {"Math::GSL::Vectorc::gsl_vector_char_mul", _wrap_gsl_vector_char_mul},
12554 {"Math::GSL::Vectorc::gsl_vector_char_div", _wrap_gsl_vector_char_div},
12555 {"Math::GSL::Vectorc::gsl_vector_char_scale", _wrap_gsl_vector_char_scale},
12556 {"Math::GSL::Vectorc::gsl_vector_char_add_constant", _wrap_gsl_vector_char_add_constant},
12557 {"Math::GSL::Vectorc::gsl_vector_char_axpby", _wrap_gsl_vector_char_axpby},
12558 {"Math::GSL::Vectorc::gsl_vector_char_equal", _wrap_gsl_vector_char_equal},
12559 {"Math::GSL::Vectorc::gsl_vector_char_isnull", _wrap_gsl_vector_char_isnull},
12560 {"Math::GSL::Vectorc::gsl_vector_char_ispos", _wrap_gsl_vector_char_ispos},
12561 {"Math::GSL::Vectorc::gsl_vector_char_isneg", _wrap_gsl_vector_char_isneg},
12562 {"Math::GSL::Vectorc::gsl_vector_char_isnonneg", _wrap_gsl_vector_char_isnonneg},
12563 {"Math::GSL::Vectorc::gsl_vector_char_get", _wrap_gsl_vector_char_get},
12564 {"Math::GSL::Vectorc::gsl_vector_char_set", _wrap_gsl_vector_char_set},
12565 {"Math::GSL::Vectorc::gsl_vector_char_ptr", _wrap_gsl_vector_char_ptr},
12566 {"Math::GSL::Vectorc::gsl_vector_char_const_ptr", _wrap_gsl_vector_char_const_ptr},
12567 {"Math::GSL::Vectorc::gsl_vector_complex_size_set", _wrap_gsl_vector_complex_size_set},
12568 {"Math::GSL::Vectorc::gsl_vector_complex_size_get", _wrap_gsl_vector_complex_size_get},
12569 {"Math::GSL::Vectorc::gsl_vector_complex_stride_set", _wrap_gsl_vector_complex_stride_set},
12570 {"Math::GSL::Vectorc::gsl_vector_complex_stride_get", _wrap_gsl_vector_complex_stride_get},
12571 {"Math::GSL::Vectorc::gsl_vector_complex_data_set", _wrap_gsl_vector_complex_data_set},
12572 {"Math::GSL::Vectorc::gsl_vector_complex_data_get", _wrap_gsl_vector_complex_data_get},
12573 {"Math::GSL::Vectorc::gsl_vector_complex_block_set", _wrap_gsl_vector_complex_block_set},
12574 {"Math::GSL::Vectorc::gsl_vector_complex_block_get", _wrap_gsl_vector_complex_block_get},
12575 {"Math::GSL::Vectorc::gsl_vector_complex_owner_set", _wrap_gsl_vector_complex_owner_set},
12576 {"Math::GSL::Vectorc::gsl_vector_complex_owner_get", _wrap_gsl_vector_complex_owner_get},
12577 {"Math::GSL::Vectorc::new_gsl_vector_complex", _wrap_new_gsl_vector_complex},
12578 {"Math::GSL::Vectorc::delete_gsl_vector_complex", _wrap_delete_gsl_vector_complex},
12579 {"Math::GSL::Vectorc::_gsl_vector_complex_view_vector_set", _wrap__gsl_vector_complex_view_vector_set},
12580 {"Math::GSL::Vectorc::_gsl_vector_complex_view_vector_get", _wrap__gsl_vector_complex_view_vector_get},
12581 {"Math::GSL::Vectorc::new__gsl_vector_complex_view", _wrap_new__gsl_vector_complex_view},
12582 {"Math::GSL::Vectorc::delete__gsl_vector_complex_view", _wrap_delete__gsl_vector_complex_view},
12583 {"Math::GSL::Vectorc::_gsl_vector_complex_const_view_vector_set", _wrap__gsl_vector_complex_const_view_vector_set},
12584 {"Math::GSL::Vectorc::_gsl_vector_complex_const_view_vector_get", _wrap__gsl_vector_complex_const_view_vector_get},
12585 {"Math::GSL::Vectorc::new__gsl_vector_complex_const_view", _wrap_new__gsl_vector_complex_const_view},
12586 {"Math::GSL::Vectorc::delete__gsl_vector_complex_const_view", _wrap_delete__gsl_vector_complex_const_view},
12587 {"Math::GSL::Vectorc::gsl_vector_complex_alloc", _wrap_gsl_vector_complex_alloc},
12588 {"Math::GSL::Vectorc::gsl_vector_complex_calloc", _wrap_gsl_vector_complex_calloc},
12589 {"Math::GSL::Vectorc::gsl_vector_complex_alloc_from_block", _wrap_gsl_vector_complex_alloc_from_block},
12590 {"Math::GSL::Vectorc::gsl_vector_complex_alloc_from_vector", _wrap_gsl_vector_complex_alloc_from_vector},
12591 {"Math::GSL::Vectorc::gsl_vector_complex_free", _wrap_gsl_vector_complex_free},
12592 {"Math::GSL::Vectorc::gsl_vector_complex_view_array", _wrap_gsl_vector_complex_view_array},
12593 {"Math::GSL::Vectorc::gsl_vector_complex_view_array_with_stride", _wrap_gsl_vector_complex_view_array_with_stride},
12594 {"Math::GSL::Vectorc::gsl_vector_complex_const_view_array", _wrap_gsl_vector_complex_const_view_array},
12595 {"Math::GSL::Vectorc::gsl_vector_complex_const_view_array_with_stride", _wrap_gsl_vector_complex_const_view_array_with_stride},
12596 {"Math::GSL::Vectorc::gsl_vector_complex_subvector", _wrap_gsl_vector_complex_subvector},
12597 {"Math::GSL::Vectorc::gsl_vector_complex_subvector_with_stride", _wrap_gsl_vector_complex_subvector_with_stride},
12598 {"Math::GSL::Vectorc::gsl_vector_complex_const_subvector", _wrap_gsl_vector_complex_const_subvector},
12599 {"Math::GSL::Vectorc::gsl_vector_complex_const_subvector_with_stride", _wrap_gsl_vector_complex_const_subvector_with_stride},
12600 {"Math::GSL::Vectorc::gsl_vector_complex_real", _wrap_gsl_vector_complex_real},
12601 {"Math::GSL::Vectorc::gsl_vector_complex_imag", _wrap_gsl_vector_complex_imag},
12602 {"Math::GSL::Vectorc::gsl_vector_complex_const_real", _wrap_gsl_vector_complex_const_real},
12603 {"Math::GSL::Vectorc::gsl_vector_complex_const_imag", _wrap_gsl_vector_complex_const_imag},
12604 {"Math::GSL::Vectorc::gsl_vector_complex_set_zero", _wrap_gsl_vector_complex_set_zero},
12605 {"Math::GSL::Vectorc::gsl_vector_complex_set_all", _wrap_gsl_vector_complex_set_all},
12606 {"Math::GSL::Vectorc::gsl_vector_complex_set_basis", _wrap_gsl_vector_complex_set_basis},
12607 {"Math::GSL::Vectorc::gsl_vector_complex_fread", _wrap_gsl_vector_complex_fread},
12608 {"Math::GSL::Vectorc::gsl_vector_complex_fwrite", _wrap_gsl_vector_complex_fwrite},
12609 {"Math::GSL::Vectorc::gsl_vector_complex_fscanf", _wrap_gsl_vector_complex_fscanf},
12610 {"Math::GSL::Vectorc::gsl_vector_complex_fprintf", _wrap_gsl_vector_complex_fprintf},
12611 {"Math::GSL::Vectorc::gsl_vector_complex_memcpy", _wrap_gsl_vector_complex_memcpy},
12612 {"Math::GSL::Vectorc::gsl_vector_complex_reverse", _wrap_gsl_vector_complex_reverse},
12613 {"Math::GSL::Vectorc::gsl_vector_complex_swap", _wrap_gsl_vector_complex_swap},
12614 {"Math::GSL::Vectorc::gsl_vector_complex_swap_elements", _wrap_gsl_vector_complex_swap_elements},
12615 {"Math::GSL::Vectorc::gsl_vector_complex_equal", _wrap_gsl_vector_complex_equal},
12616 {"Math::GSL::Vectorc::gsl_vector_complex_isnull", _wrap_gsl_vector_complex_isnull},
12617 {"Math::GSL::Vectorc::gsl_vector_complex_ispos", _wrap_gsl_vector_complex_ispos},
12618 {"Math::GSL::Vectorc::gsl_vector_complex_isneg", _wrap_gsl_vector_complex_isneg},
12619 {"Math::GSL::Vectorc::gsl_vector_complex_isnonneg", _wrap_gsl_vector_complex_isnonneg},
12620 {"Math::GSL::Vectorc::gsl_vector_complex_add", _wrap_gsl_vector_complex_add},
12621 {"Math::GSL::Vectorc::gsl_vector_complex_sub", _wrap_gsl_vector_complex_sub},
12622 {"Math::GSL::Vectorc::gsl_vector_complex_mul", _wrap_gsl_vector_complex_mul},
12623 {"Math::GSL::Vectorc::gsl_vector_complex_div", _wrap_gsl_vector_complex_div},
12624 {"Math::GSL::Vectorc::gsl_vector_complex_scale", _wrap_gsl_vector_complex_scale},
12625 {"Math::GSL::Vectorc::gsl_vector_complex_add_constant", _wrap_gsl_vector_complex_add_constant},
12626 {"Math::GSL::Vectorc::gsl_vector_complex_axpby", _wrap_gsl_vector_complex_axpby},
12627 {"Math::GSL::Vectorc::gsl_vector_complex_get", _wrap_gsl_vector_complex_get},
12628 {"Math::GSL::Vectorc::gsl_vector_complex_set", _wrap_gsl_vector_complex_set},
12629 {"Math::GSL::Vectorc::gsl_vector_complex_ptr", _wrap_gsl_vector_complex_ptr},
12630 {"Math::GSL::Vectorc::gsl_vector_complex_const_ptr", _wrap_gsl_vector_complex_const_ptr},
12631 {"Math::GSL::Vectorc::gsl_vector_size_set", _wrap_gsl_vector_size_set},
12632 {"Math::GSL::Vectorc::gsl_vector_size_get", _wrap_gsl_vector_size_get},
12633 {"Math::GSL::Vectorc::gsl_vector_stride_set", _wrap_gsl_vector_stride_set},
12634 {"Math::GSL::Vectorc::gsl_vector_stride_get", _wrap_gsl_vector_stride_get},
12635 {"Math::GSL::Vectorc::gsl_vector_data_set", _wrap_gsl_vector_data_set},
12636 {"Math::GSL::Vectorc::gsl_vector_data_get", _wrap_gsl_vector_data_get},
12637 {"Math::GSL::Vectorc::gsl_vector_block_set", _wrap_gsl_vector_block_set},
12638 {"Math::GSL::Vectorc::gsl_vector_block_get", _wrap_gsl_vector_block_get},
12639 {"Math::GSL::Vectorc::gsl_vector_owner_set", _wrap_gsl_vector_owner_set},
12640 {"Math::GSL::Vectorc::gsl_vector_owner_get", _wrap_gsl_vector_owner_get},
12641 {"Math::GSL::Vectorc::new_gsl_vector", _wrap_new_gsl_vector},
12642 {"Math::GSL::Vectorc::delete_gsl_vector", _wrap_delete_gsl_vector},
12643 {"Math::GSL::Vectorc::_gsl_vector_view_vector_set", _wrap__gsl_vector_view_vector_set},
12644 {"Math::GSL::Vectorc::_gsl_vector_view_vector_get", _wrap__gsl_vector_view_vector_get},
12645 {"Math::GSL::Vectorc::new__gsl_vector_view", _wrap_new__gsl_vector_view},
12646 {"Math::GSL::Vectorc::delete__gsl_vector_view", _wrap_delete__gsl_vector_view},
12647 {"Math::GSL::Vectorc::_gsl_vector_const_view_vector_set", _wrap__gsl_vector_const_view_vector_set},
12648 {"Math::GSL::Vectorc::_gsl_vector_const_view_vector_get", _wrap__gsl_vector_const_view_vector_get},
12649 {"Math::GSL::Vectorc::new__gsl_vector_const_view", _wrap_new__gsl_vector_const_view},
12650 {"Math::GSL::Vectorc::delete__gsl_vector_const_view", _wrap_delete__gsl_vector_const_view},
12651 {"Math::GSL::Vectorc::gsl_vector_alloc", _wrap_gsl_vector_alloc},
12652 {"Math::GSL::Vectorc::gsl_vector_calloc", _wrap_gsl_vector_calloc},
12653 {"Math::GSL::Vectorc::gsl_vector_alloc_from_block", _wrap_gsl_vector_alloc_from_block},
12654 {"Math::GSL::Vectorc::gsl_vector_alloc_from_vector", _wrap_gsl_vector_alloc_from_vector},
12655 {"Math::GSL::Vectorc::gsl_vector_free", _wrap_gsl_vector_free},
12656 {"Math::GSL::Vectorc::gsl_vector_view_array", _wrap_gsl_vector_view_array},
12657 {"Math::GSL::Vectorc::gsl_vector_view_array_with_stride", _wrap_gsl_vector_view_array_with_stride},
12658 {"Math::GSL::Vectorc::gsl_vector_const_view_array", _wrap_gsl_vector_const_view_array},
12659 {"Math::GSL::Vectorc::gsl_vector_const_view_array_with_stride", _wrap_gsl_vector_const_view_array_with_stride},
12660 {"Math::GSL::Vectorc::gsl_vector_subvector", _wrap_gsl_vector_subvector},
12661 {"Math::GSL::Vectorc::gsl_vector_subvector_with_stride", _wrap_gsl_vector_subvector_with_stride},
12662 {"Math::GSL::Vectorc::gsl_vector_const_subvector", _wrap_gsl_vector_const_subvector},
12663 {"Math::GSL::Vectorc::gsl_vector_const_subvector_with_stride", _wrap_gsl_vector_const_subvector_with_stride},
12664 {"Math::GSL::Vectorc::gsl_vector_set_zero", _wrap_gsl_vector_set_zero},
12665 {"Math::GSL::Vectorc::gsl_vector_set_all", _wrap_gsl_vector_set_all},
12666 {"Math::GSL::Vectorc::gsl_vector_set_basis", _wrap_gsl_vector_set_basis},
12667 {"Math::GSL::Vectorc::gsl_vector_fread", _wrap_gsl_vector_fread},
12668 {"Math::GSL::Vectorc::gsl_vector_fwrite", _wrap_gsl_vector_fwrite},
12669 {"Math::GSL::Vectorc::gsl_vector_fscanf", _wrap_gsl_vector_fscanf},
12670 {"Math::GSL::Vectorc::gsl_vector_fprintf", _wrap_gsl_vector_fprintf},
12671 {"Math::GSL::Vectorc::gsl_vector_memcpy", _wrap_gsl_vector_memcpy},
12672 {"Math::GSL::Vectorc::gsl_vector_reverse", _wrap_gsl_vector_reverse},
12673 {"Math::GSL::Vectorc::gsl_vector_swap", _wrap_gsl_vector_swap},
12674 {"Math::GSL::Vectorc::gsl_vector_swap_elements", _wrap_gsl_vector_swap_elements},
12675 {"Math::GSL::Vectorc::gsl_vector_max", _wrap_gsl_vector_max},
12676 {"Math::GSL::Vectorc::gsl_vector_min", _wrap_gsl_vector_min},
12677 {"Math::GSL::Vectorc::gsl_vector_minmax", _wrap_gsl_vector_minmax},
12678 {"Math::GSL::Vectorc::gsl_vector_max_index", _wrap_gsl_vector_max_index},
12679 {"Math::GSL::Vectorc::gsl_vector_min_index", _wrap_gsl_vector_min_index},
12680 {"Math::GSL::Vectorc::gsl_vector_minmax_index", _wrap_gsl_vector_minmax_index},
12681 {"Math::GSL::Vectorc::gsl_vector_add", _wrap_gsl_vector_add},
12682 {"Math::GSL::Vectorc::gsl_vector_sub", _wrap_gsl_vector_sub},
12683 {"Math::GSL::Vectorc::gsl_vector_mul", _wrap_gsl_vector_mul},
12684 {"Math::GSL::Vectorc::gsl_vector_div", _wrap_gsl_vector_div},
12685 {"Math::GSL::Vectorc::gsl_vector_scale", _wrap_gsl_vector_scale},
12686 {"Math::GSL::Vectorc::gsl_vector_add_constant", _wrap_gsl_vector_add_constant},
12687 {"Math::GSL::Vectorc::gsl_vector_axpby", _wrap_gsl_vector_axpby},
12688 {"Math::GSL::Vectorc::gsl_vector_equal", _wrap_gsl_vector_equal},
12689 {"Math::GSL::Vectorc::gsl_vector_isnull", _wrap_gsl_vector_isnull},
12690 {"Math::GSL::Vectorc::gsl_vector_ispos", _wrap_gsl_vector_ispos},
12691 {"Math::GSL::Vectorc::gsl_vector_isneg", _wrap_gsl_vector_isneg},
12692 {"Math::GSL::Vectorc::gsl_vector_isnonneg", _wrap_gsl_vector_isnonneg},
12693 {"Math::GSL::Vectorc::gsl_vector_get", _wrap_gsl_vector_get},
12694 {"Math::GSL::Vectorc::gsl_vector_set", _wrap_gsl_vector_set},
12695 {"Math::GSL::Vectorc::gsl_vector_ptr", _wrap_gsl_vector_ptr},
12696 {"Math::GSL::Vectorc::gsl_vector_const_ptr", _wrap_gsl_vector_const_ptr},
12697 {"Math::GSL::Vectorc::gsl_vector_int_size_set", _wrap_gsl_vector_int_size_set},
12698 {"Math::GSL::Vectorc::gsl_vector_int_size_get", _wrap_gsl_vector_int_size_get},
12699 {"Math::GSL::Vectorc::gsl_vector_int_stride_set", _wrap_gsl_vector_int_stride_set},
12700 {"Math::GSL::Vectorc::gsl_vector_int_stride_get", _wrap_gsl_vector_int_stride_get},
12701 {"Math::GSL::Vectorc::gsl_vector_int_data_set", _wrap_gsl_vector_int_data_set},
12702 {"Math::GSL::Vectorc::gsl_vector_int_data_get", _wrap_gsl_vector_int_data_get},
12703 {"Math::GSL::Vectorc::gsl_vector_int_block_set", _wrap_gsl_vector_int_block_set},
12704 {"Math::GSL::Vectorc::gsl_vector_int_block_get", _wrap_gsl_vector_int_block_get},
12705 {"Math::GSL::Vectorc::gsl_vector_int_owner_set", _wrap_gsl_vector_int_owner_set},
12706 {"Math::GSL::Vectorc::gsl_vector_int_owner_get", _wrap_gsl_vector_int_owner_get},
12707 {"Math::GSL::Vectorc::new_gsl_vector_int", _wrap_new_gsl_vector_int},
12708 {"Math::GSL::Vectorc::delete_gsl_vector_int", _wrap_delete_gsl_vector_int},
12709 {"Math::GSL::Vectorc::_gsl_vector_int_view_vector_set", _wrap__gsl_vector_int_view_vector_set},
12710 {"Math::GSL::Vectorc::_gsl_vector_int_view_vector_get", _wrap__gsl_vector_int_view_vector_get},
12711 {"Math::GSL::Vectorc::new__gsl_vector_int_view", _wrap_new__gsl_vector_int_view},
12712 {"Math::GSL::Vectorc::delete__gsl_vector_int_view", _wrap_delete__gsl_vector_int_view},
12713 {"Math::GSL::Vectorc::_gsl_vector_int_const_view_vector_set", _wrap__gsl_vector_int_const_view_vector_set},
12714 {"Math::GSL::Vectorc::_gsl_vector_int_const_view_vector_get", _wrap__gsl_vector_int_const_view_vector_get},
12715 {"Math::GSL::Vectorc::new__gsl_vector_int_const_view", _wrap_new__gsl_vector_int_const_view},
12716 {"Math::GSL::Vectorc::delete__gsl_vector_int_const_view", _wrap_delete__gsl_vector_int_const_view},
12717 {"Math::GSL::Vectorc::gsl_vector_int_alloc", _wrap_gsl_vector_int_alloc},
12718 {"Math::GSL::Vectorc::gsl_vector_int_calloc", _wrap_gsl_vector_int_calloc},
12719 {"Math::GSL::Vectorc::gsl_vector_int_alloc_from_block", _wrap_gsl_vector_int_alloc_from_block},
12720 {"Math::GSL::Vectorc::gsl_vector_int_alloc_from_vector", _wrap_gsl_vector_int_alloc_from_vector},
12721 {"Math::GSL::Vectorc::gsl_vector_int_free", _wrap_gsl_vector_int_free},
12722 {"Math::GSL::Vectorc::gsl_vector_int_view_array", _wrap_gsl_vector_int_view_array},
12723 {"Math::GSL::Vectorc::gsl_vector_int_view_array_with_stride", _wrap_gsl_vector_int_view_array_with_stride},
12724 {"Math::GSL::Vectorc::gsl_vector_int_const_view_array", _wrap_gsl_vector_int_const_view_array},
12725 {"Math::GSL::Vectorc::gsl_vector_int_const_view_array_with_stride", _wrap_gsl_vector_int_const_view_array_with_stride},
12726 {"Math::GSL::Vectorc::gsl_vector_int_subvector", _wrap_gsl_vector_int_subvector},
12727 {"Math::GSL::Vectorc::gsl_vector_int_subvector_with_stride", _wrap_gsl_vector_int_subvector_with_stride},
12728 {"Math::GSL::Vectorc::gsl_vector_int_const_subvector", _wrap_gsl_vector_int_const_subvector},
12729 {"Math::GSL::Vectorc::gsl_vector_int_const_subvector_with_stride", _wrap_gsl_vector_int_const_subvector_with_stride},
12730 {"Math::GSL::Vectorc::gsl_vector_int_set_zero", _wrap_gsl_vector_int_set_zero},
12731 {"Math::GSL::Vectorc::gsl_vector_int_set_all", _wrap_gsl_vector_int_set_all},
12732 {"Math::GSL::Vectorc::gsl_vector_int_set_basis", _wrap_gsl_vector_int_set_basis},
12733 {"Math::GSL::Vectorc::gsl_vector_int_fread", _wrap_gsl_vector_int_fread},
12734 {"Math::GSL::Vectorc::gsl_vector_int_fwrite", _wrap_gsl_vector_int_fwrite},
12735 {"Math::GSL::Vectorc::gsl_vector_int_fscanf", _wrap_gsl_vector_int_fscanf},
12736 {"Math::GSL::Vectorc::gsl_vector_int_fprintf", _wrap_gsl_vector_int_fprintf},
12737 {"Math::GSL::Vectorc::gsl_vector_int_memcpy", _wrap_gsl_vector_int_memcpy},
12738 {"Math::GSL::Vectorc::gsl_vector_int_reverse", _wrap_gsl_vector_int_reverse},
12739 {"Math::GSL::Vectorc::gsl_vector_int_swap", _wrap_gsl_vector_int_swap},
12740 {"Math::GSL::Vectorc::gsl_vector_int_swap_elements", _wrap_gsl_vector_int_swap_elements},
12741 {"Math::GSL::Vectorc::gsl_vector_int_max", _wrap_gsl_vector_int_max},
12742 {"Math::GSL::Vectorc::gsl_vector_int_min", _wrap_gsl_vector_int_min},
12743 {"Math::GSL::Vectorc::gsl_vector_int_minmax", _wrap_gsl_vector_int_minmax},
12744 {"Math::GSL::Vectorc::gsl_vector_int_max_index", _wrap_gsl_vector_int_max_index},
12745 {"Math::GSL::Vectorc::gsl_vector_int_min_index", _wrap_gsl_vector_int_min_index},
12746 {"Math::GSL::Vectorc::gsl_vector_int_minmax_index", _wrap_gsl_vector_int_minmax_index},
12747 {"Math::GSL::Vectorc::gsl_vector_int_add", _wrap_gsl_vector_int_add},
12748 {"Math::GSL::Vectorc::gsl_vector_int_sub", _wrap_gsl_vector_int_sub},
12749 {"Math::GSL::Vectorc::gsl_vector_int_mul", _wrap_gsl_vector_int_mul},
12750 {"Math::GSL::Vectorc::gsl_vector_int_div", _wrap_gsl_vector_int_div},
12751 {"Math::GSL::Vectorc::gsl_vector_int_scale", _wrap_gsl_vector_int_scale},
12752 {"Math::GSL::Vectorc::gsl_vector_int_add_constant", _wrap_gsl_vector_int_add_constant},
12753 {"Math::GSL::Vectorc::gsl_vector_int_axpby", _wrap_gsl_vector_int_axpby},
12754 {"Math::GSL::Vectorc::gsl_vector_int_equal", _wrap_gsl_vector_int_equal},
12755 {"Math::GSL::Vectorc::gsl_vector_int_isnull", _wrap_gsl_vector_int_isnull},
12756 {"Math::GSL::Vectorc::gsl_vector_int_ispos", _wrap_gsl_vector_int_ispos},
12757 {"Math::GSL::Vectorc::gsl_vector_int_isneg", _wrap_gsl_vector_int_isneg},
12758 {"Math::GSL::Vectorc::gsl_vector_int_isnonneg", _wrap_gsl_vector_int_isnonneg},
12759 {"Math::GSL::Vectorc::gsl_vector_int_get", _wrap_gsl_vector_int_get},
12760 {"Math::GSL::Vectorc::gsl_vector_int_set", _wrap_gsl_vector_int_set},
12761 {"Math::GSL::Vectorc::gsl_vector_int_ptr", _wrap_gsl_vector_int_ptr},
12762 {"Math::GSL::Vectorc::gsl_vector_int_const_ptr", _wrap_gsl_vector_int_const_ptr},
12763 {0,0}
12764 };
12765 /* -----------------------------------------------------------------------------
12766 * Type initialization:
12767 * This problem is tough by the requirement that no dynamic
12768 * memory is used. Also, since swig_type_info structures store pointers to
12769 * swig_cast_info structures and swig_cast_info structures store pointers back
12770 * to swig_type_info structures, we need some lookup code at initialization.
12771 * The idea is that swig generates all the structures that are needed.
12772 * The runtime then collects these partially filled structures.
12773 * The SWIG_InitializeModule function takes these initial arrays out of
12774 * swig_module, and does all the lookup, filling in the swig_module.types
12775 * array with the correct data and linking the correct swig_cast_info
12776 * structures together.
12777 *
12778 * The generated swig_type_info structures are assigned statically to an initial
12779 * array. We just loop through that array, and handle each type individually.
12780 * First we lookup if this type has been already loaded, and if so, use the
12781 * loaded structure instead of the generated one. Then we have to fill in the
12782 * cast linked list. The cast data is initially stored in something like a
12783 * two-dimensional array. Each row corresponds to a type (there are the same
12784 * number of rows as there are in the swig_type_initial array). Each entry in
12785 * a column is one of the swig_cast_info structures for that type.
12786 * The cast_initial array is actually an array of arrays, because each row has
12787 * a variable number of columns. So to actually build the cast linked list,
12788 * we find the array of casts associated with the type, and loop through it
12789 * adding the casts to the list. The one last trick we need to do is making
12790 * sure the type pointer in the swig_cast_info struct is correct.
12791 *
12792 * First off, we lookup the cast->type name to see if it is already loaded.
12793 * There are three cases to handle:
12794 * 1) If the cast->type has already been loaded AND the type we are adding
12795 * casting info to has not been loaded (it is in this module), THEN we
12796 * replace the cast->type pointer with the type pointer that has already
12797 * been loaded.
12798 * 2) If BOTH types (the one we are adding casting info to, and the
12799 * cast->type) are loaded, THEN the cast info has already been loaded by
12800 * the previous module so we just ignore it.
12801 * 3) Finally, if cast->type has not already been loaded, then we add that
12802 * swig_cast_info to the linked list (because the cast->type) pointer will
12803 * be correct.
12804 * ----------------------------------------------------------------------------- */
12805
12806 #ifdef __cplusplus
12807 extern "C" {
12808 #if 0
12809 } /* c-mode */
12810 #endif
12811 #endif
12812
12813 #if 0
12814 #define SWIGRUNTIME_DEBUG
12815 #endif
12816
12817
12818 SWIGRUNTIME void
SWIG_InitializeModule(void * clientdata)12819 SWIG_InitializeModule(void *clientdata) {
12820 size_t i;
12821 swig_module_info *module_head, *iter;
12822 int init;
12823
12824 /* check to see if the circular list has been setup, if not, set it up */
12825 if (swig_module.next==0) {
12826 /* Initialize the swig_module */
12827 swig_module.type_initial = swig_type_initial;
12828 swig_module.cast_initial = swig_cast_initial;
12829 swig_module.next = &swig_module;
12830 init = 1;
12831 } else {
12832 init = 0;
12833 }
12834
12835 /* Try and load any already created modules */
12836 module_head = SWIG_GetModule(clientdata);
12837 if (!module_head) {
12838 /* This is the first module loaded for this interpreter */
12839 /* so set the swig module into the interpreter */
12840 SWIG_SetModule(clientdata, &swig_module);
12841 } else {
12842 /* the interpreter has loaded a SWIG module, but has it loaded this one? */
12843 iter=module_head;
12844 do {
12845 if (iter==&swig_module) {
12846 /* Our module is already in the list, so there's nothing more to do. */
12847 return;
12848 }
12849 iter=iter->next;
12850 } while (iter!= module_head);
12851
12852 /* otherwise we must add our module into the list */
12853 swig_module.next = module_head->next;
12854 module_head->next = &swig_module;
12855 }
12856
12857 /* When multiple interpreters are used, a module could have already been initialized in
12858 a different interpreter, but not yet have a pointer in this interpreter.
12859 In this case, we do not want to continue adding types... everything should be
12860 set up already */
12861 if (init == 0) return;
12862
12863 /* Now work on filling in swig_module.types */
12864 #ifdef SWIGRUNTIME_DEBUG
12865 printf("SWIG_InitializeModule: size %lu\n", (unsigned long)swig_module.size);
12866 #endif
12867 for (i = 0; i < swig_module.size; ++i) {
12868 swig_type_info *type = 0;
12869 swig_type_info *ret;
12870 swig_cast_info *cast;
12871
12872 #ifdef SWIGRUNTIME_DEBUG
12873 printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
12874 #endif
12875
12876 /* if there is another module already loaded */
12877 if (swig_module.next != &swig_module) {
12878 type = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, swig_module.type_initial[i]->name);
12879 }
12880 if (type) {
12881 /* Overwrite clientdata field */
12882 #ifdef SWIGRUNTIME_DEBUG
12883 printf("SWIG_InitializeModule: found type %s\n", type->name);
12884 #endif
12885 if (swig_module.type_initial[i]->clientdata) {
12886 type->clientdata = swig_module.type_initial[i]->clientdata;
12887 #ifdef SWIGRUNTIME_DEBUG
12888 printf("SWIG_InitializeModule: found and overwrite type %s \n", type->name);
12889 #endif
12890 }
12891 } else {
12892 type = swig_module.type_initial[i];
12893 }
12894
12895 /* Insert casting types */
12896 cast = swig_module.cast_initial[i];
12897 while (cast->type) {
12898 /* Don't need to add information already in the list */
12899 ret = 0;
12900 #ifdef SWIGRUNTIME_DEBUG
12901 printf("SWIG_InitializeModule: look cast %s\n", cast->type->name);
12902 #endif
12903 if (swig_module.next != &swig_module) {
12904 ret = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, cast->type->name);
12905 #ifdef SWIGRUNTIME_DEBUG
12906 if (ret) printf("SWIG_InitializeModule: found cast %s\n", ret->name);
12907 #endif
12908 }
12909 if (ret) {
12910 if (type == swig_module.type_initial[i]) {
12911 #ifdef SWIGRUNTIME_DEBUG
12912 printf("SWIG_InitializeModule: skip old type %s\n", ret->name);
12913 #endif
12914 cast->type = ret;
12915 ret = 0;
12916 } else {
12917 /* Check for casting already in the list */
12918 swig_cast_info *ocast = SWIG_TypeCheck(ret->name, type);
12919 #ifdef SWIGRUNTIME_DEBUG
12920 if (ocast) printf("SWIG_InitializeModule: skip old cast %s\n", ret->name);
12921 #endif
12922 if (!ocast) ret = 0;
12923 }
12924 }
12925
12926 if (!ret) {
12927 #ifdef SWIGRUNTIME_DEBUG
12928 printf("SWIG_InitializeModule: adding cast %s\n", cast->type->name);
12929 #endif
12930 if (type->cast) {
12931 type->cast->prev = cast;
12932 cast->next = type->cast;
12933 }
12934 type->cast = cast;
12935 }
12936 cast++;
12937 }
12938 /* Set entry in modules->types array equal to the type */
12939 swig_module.types[i] = type;
12940 }
12941 swig_module.types[i] = 0;
12942
12943 #ifdef SWIGRUNTIME_DEBUG
12944 printf("**** SWIG_InitializeModule: Cast List ******\n");
12945 for (i = 0; i < swig_module.size; ++i) {
12946 int j = 0;
12947 swig_cast_info *cast = swig_module.cast_initial[i];
12948 printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
12949 while (cast->type) {
12950 printf("SWIG_InitializeModule: cast type %s\n", cast->type->name);
12951 cast++;
12952 ++j;
12953 }
12954 printf("---- Total casts: %d\n",j);
12955 }
12956 printf("**** SWIG_InitializeModule: Cast List ******\n");
12957 #endif
12958 }
12959
12960 /* This function will propagate the clientdata field of type to
12961 * any new swig_type_info structures that have been added into the list
12962 * of equivalent types. It is like calling
12963 * SWIG_TypeClientData(type, clientdata) a second time.
12964 */
12965 SWIGRUNTIME void
SWIG_PropagateClientData(void)12966 SWIG_PropagateClientData(void) {
12967 size_t i;
12968 swig_cast_info *equiv;
12969 static int init_run = 0;
12970
12971 if (init_run) return;
12972 init_run = 1;
12973
12974 for (i = 0; i < swig_module.size; i++) {
12975 if (swig_module.types[i]->clientdata) {
12976 equiv = swig_module.types[i]->cast;
12977 while (equiv) {
12978 if (!equiv->converter) {
12979 if (equiv->type && !equiv->type->clientdata)
12980 SWIG_TypeClientData(equiv->type, swig_module.types[i]->clientdata);
12981 }
12982 equiv = equiv->next;
12983 }
12984 }
12985 }
12986 }
12987
12988 #ifdef __cplusplus
12989 #if 0
12990 {
12991 /* c-mode */
12992 #endif
12993 }
12994 #endif
12995
12996
12997
12998 #if defined(__cplusplus) && ! defined(XSPROTO)
12999 extern "C"
13000 #endif
13001
XS(SWIG_init)13002 XS(SWIG_init) {
13003 dXSARGS;
13004 int i;
13005 (void)items;
13006
13007 SWIG_InitializeModule(0);
13008
13009 /* Install commands */
13010 for (i = 0; swig_commands[i].name; i++) {
13011 /* Casts only needed for Perl < 5.10. */
13012 #ifdef __cplusplus
13013 newXS(const_cast<char*>(swig_commands[i].name), swig_commands[i].wrapper, const_cast<char*>(__FILE__));
13014 #else
13015 newXS((char*)swig_commands[i].name, swig_commands[i].wrapper, (char*)__FILE__);
13016 #endif
13017 }
13018
13019 /* Install variables */
13020 for (i = 0; swig_variables[i].name; i++) {
13021 SV *sv;
13022 sv = get_sv(swig_variables[i].name, TRUE | 0x2 | GV_ADDMULTI);
13023 if (swig_variables[i].type) {
13024 SWIG_MakePtr(sv,(void *)1, *swig_variables[i].type,0);
13025 } else {
13026 sv_setiv(sv,(IV) 0);
13027 }
13028 swig_create_magic(sv, swig_variables[i].name, swig_variables[i].set, swig_variables[i].get);
13029 }
13030
13031 /* Install constant */
13032 for (i = 0; swig_constants[i].type; i++) {
13033 SV *sv;
13034 sv = get_sv(swig_constants[i].name, TRUE | 0x2 | GV_ADDMULTI);
13035 switch(swig_constants[i].type) {
13036 case SWIG_INT:
13037 sv_setiv(sv, (IV) swig_constants[i].lvalue);
13038 break;
13039 case SWIG_FLOAT:
13040 sv_setnv(sv, (double) swig_constants[i].dvalue);
13041 break;
13042 case SWIG_STRING:
13043 sv_setpv(sv, (const char *) swig_constants[i].pvalue);
13044 break;
13045 case SWIG_POINTER:
13046 SWIG_MakePtr(sv, swig_constants[i].pvalue, *(swig_constants[i].ptype),0);
13047 break;
13048 case SWIG_BINARY:
13049 SWIG_MakePackedObj(sv, swig_constants[i].pvalue, swig_constants[i].lvalue, *(swig_constants[i].ptype));
13050 break;
13051 default:
13052 break;
13053 }
13054 SvREADONLY_on(sv);
13055 }
13056
13057 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13058 SV *sv = get_sv((char*) SWIG_prefix "GSL_VERSION", TRUE | 0x2 | GV_ADDMULTI);
13059 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(2.7)));
13060 SvREADONLY_on(sv);
13061 } while(0) /*@SWIG@*/;
13062 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13063 SV *sv = get_sv((char*) SWIG_prefix "GSL_MAJOR_VERSION", TRUE | 0x2 | GV_ADDMULTI);
13064 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(2)));
13065 SvREADONLY_on(sv);
13066 } while(0) /*@SWIG@*/;
13067 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13068 SV *sv = get_sv((char*) SWIG_prefix "GSL_MINOR_VERSION", TRUE | 0x2 | GV_ADDMULTI);
13069 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(7)));
13070 SvREADONLY_on(sv);
13071 } while(0) /*@SWIG@*/;
13072 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13073 SV *sv = get_sv((char*) SWIG_prefix "GSL_POSZERO", TRUE | 0x2 | GV_ADDMULTI);
13074 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)((+0.0))));
13075 SvREADONLY_on(sv);
13076 } while(0) /*@SWIG@*/;
13077 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13078 SV *sv = get_sv((char*) SWIG_prefix "GSL_NEGZERO", TRUE | 0x2 | GV_ADDMULTI);
13079 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)((-0.0))));
13080 SvREADONLY_on(sv);
13081 } while(0) /*@SWIG@*/;
13082 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13083 SV *sv = get_sv((char*) SWIG_prefix "GSL_SUCCESS", TRUE | 0x2 | GV_ADDMULTI);
13084 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_SUCCESS)));
13085 SvREADONLY_on(sv);
13086 } while(0) /*@SWIG@*/;
13087 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13088 SV *sv = get_sv((char*) SWIG_prefix "GSL_FAILURE", TRUE | 0x2 | GV_ADDMULTI);
13089 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_FAILURE)));
13090 SvREADONLY_on(sv);
13091 } while(0) /*@SWIG@*/;
13092 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13093 SV *sv = get_sv((char*) SWIG_prefix "GSL_CONTINUE", TRUE | 0x2 | GV_ADDMULTI);
13094 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_CONTINUE)));
13095 SvREADONLY_on(sv);
13096 } while(0) /*@SWIG@*/;
13097 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13098 SV *sv = get_sv((char*) SWIG_prefix "GSL_EDOM", TRUE | 0x2 | GV_ADDMULTI);
13099 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EDOM)));
13100 SvREADONLY_on(sv);
13101 } while(0) /*@SWIG@*/;
13102 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13103 SV *sv = get_sv((char*) SWIG_prefix "GSL_ERANGE", TRUE | 0x2 | GV_ADDMULTI);
13104 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ERANGE)));
13105 SvREADONLY_on(sv);
13106 } while(0) /*@SWIG@*/;
13107 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13108 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFAULT", TRUE | 0x2 | GV_ADDMULTI);
13109 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFAULT)));
13110 SvREADONLY_on(sv);
13111 } while(0) /*@SWIG@*/;
13112 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13113 SV *sv = get_sv((char*) SWIG_prefix "GSL_EINVAL", TRUE | 0x2 | GV_ADDMULTI);
13114 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EINVAL)));
13115 SvREADONLY_on(sv);
13116 } while(0) /*@SWIG@*/;
13117 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13118 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFAILED", TRUE | 0x2 | GV_ADDMULTI);
13119 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFAILED)));
13120 SvREADONLY_on(sv);
13121 } while(0) /*@SWIG@*/;
13122 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13123 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFACTOR", TRUE | 0x2 | GV_ADDMULTI);
13124 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFACTOR)));
13125 SvREADONLY_on(sv);
13126 } while(0) /*@SWIG@*/;
13127 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13128 SV *sv = get_sv((char*) SWIG_prefix "GSL_ESANITY", TRUE | 0x2 | GV_ADDMULTI);
13129 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ESANITY)));
13130 SvREADONLY_on(sv);
13131 } while(0) /*@SWIG@*/;
13132 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13133 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOMEM", TRUE | 0x2 | GV_ADDMULTI);
13134 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOMEM)));
13135 SvREADONLY_on(sv);
13136 } while(0) /*@SWIG@*/;
13137 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13138 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADFUNC", TRUE | 0x2 | GV_ADDMULTI);
13139 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADFUNC)));
13140 SvREADONLY_on(sv);
13141 } while(0) /*@SWIG@*/;
13142 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13143 SV *sv = get_sv((char*) SWIG_prefix "GSL_ERUNAWAY", TRUE | 0x2 | GV_ADDMULTI);
13144 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ERUNAWAY)));
13145 SvREADONLY_on(sv);
13146 } while(0) /*@SWIG@*/;
13147 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13148 SV *sv = get_sv((char*) SWIG_prefix "GSL_EMAXITER", TRUE | 0x2 | GV_ADDMULTI);
13149 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EMAXITER)));
13150 SvREADONLY_on(sv);
13151 } while(0) /*@SWIG@*/;
13152 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13153 SV *sv = get_sv((char*) SWIG_prefix "GSL_EZERODIV", TRUE | 0x2 | GV_ADDMULTI);
13154 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EZERODIV)));
13155 SvREADONLY_on(sv);
13156 } while(0) /*@SWIG@*/;
13157 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13158 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADTOL", TRUE | 0x2 | GV_ADDMULTI);
13159 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADTOL)));
13160 SvREADONLY_on(sv);
13161 } while(0) /*@SWIG@*/;
13162 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13163 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOL", TRUE | 0x2 | GV_ADDMULTI);
13164 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOL)));
13165 SvREADONLY_on(sv);
13166 } while(0) /*@SWIG@*/;
13167 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13168 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNDRFLW", TRUE | 0x2 | GV_ADDMULTI);
13169 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNDRFLW)));
13170 SvREADONLY_on(sv);
13171 } while(0) /*@SWIG@*/;
13172 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13173 SV *sv = get_sv((char*) SWIG_prefix "GSL_EOVRFLW", TRUE | 0x2 | GV_ADDMULTI);
13174 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EOVRFLW)));
13175 SvREADONLY_on(sv);
13176 } while(0) /*@SWIG@*/;
13177 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13178 SV *sv = get_sv((char*) SWIG_prefix "GSL_ELOSS", TRUE | 0x2 | GV_ADDMULTI);
13179 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ELOSS)));
13180 SvREADONLY_on(sv);
13181 } while(0) /*@SWIG@*/;
13182 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13183 SV *sv = get_sv((char*) SWIG_prefix "GSL_EROUND", TRUE | 0x2 | GV_ADDMULTI);
13184 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EROUND)));
13185 SvREADONLY_on(sv);
13186 } while(0) /*@SWIG@*/;
13187 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13188 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADLEN", TRUE | 0x2 | GV_ADDMULTI);
13189 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADLEN)));
13190 SvREADONLY_on(sv);
13191 } while(0) /*@SWIG@*/;
13192 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13193 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOTSQR", TRUE | 0x2 | GV_ADDMULTI);
13194 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOTSQR)));
13195 SvREADONLY_on(sv);
13196 } while(0) /*@SWIG@*/;
13197 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13198 SV *sv = get_sv((char*) SWIG_prefix "GSL_ESING", TRUE | 0x2 | GV_ADDMULTI);
13199 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ESING)));
13200 SvREADONLY_on(sv);
13201 } while(0) /*@SWIG@*/;
13202 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13203 SV *sv = get_sv((char*) SWIG_prefix "GSL_EDIVERGE", TRUE | 0x2 | GV_ADDMULTI);
13204 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EDIVERGE)));
13205 SvREADONLY_on(sv);
13206 } while(0) /*@SWIG@*/;
13207 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13208 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNSUP", TRUE | 0x2 | GV_ADDMULTI);
13209 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNSUP)));
13210 SvREADONLY_on(sv);
13211 } while(0) /*@SWIG@*/;
13212 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13213 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNIMPL", TRUE | 0x2 | GV_ADDMULTI);
13214 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNIMPL)));
13215 SvREADONLY_on(sv);
13216 } while(0) /*@SWIG@*/;
13217 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13218 SV *sv = get_sv((char*) SWIG_prefix "GSL_ECACHE", TRUE | 0x2 | GV_ADDMULTI);
13219 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ECACHE)));
13220 SvREADONLY_on(sv);
13221 } while(0) /*@SWIG@*/;
13222 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13223 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETABLE", TRUE | 0x2 | GV_ADDMULTI);
13224 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETABLE)));
13225 SvREADONLY_on(sv);
13226 } while(0) /*@SWIG@*/;
13227 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13228 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOPROG", TRUE | 0x2 | GV_ADDMULTI);
13229 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOPROG)));
13230 SvREADONLY_on(sv);
13231 } while(0) /*@SWIG@*/;
13232 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13233 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOPROGJ", TRUE | 0x2 | GV_ADDMULTI);
13234 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOPROGJ)));
13235 SvREADONLY_on(sv);
13236 } while(0) /*@SWIG@*/;
13237 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13238 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLF", TRUE | 0x2 | GV_ADDMULTI);
13239 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLF)));
13240 SvREADONLY_on(sv);
13241 } while(0) /*@SWIG@*/;
13242 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13243 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLX", TRUE | 0x2 | GV_ADDMULTI);
13244 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLX)));
13245 SvREADONLY_on(sv);
13246 } while(0) /*@SWIG@*/;
13247 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13248 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLG", TRUE | 0x2 | GV_ADDMULTI);
13249 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLG)));
13250 SvREADONLY_on(sv);
13251 } while(0) /*@SWIG@*/;
13252 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13253 SV *sv = get_sv((char*) SWIG_prefix "GSL_EOF", TRUE | 0x2 | GV_ADDMULTI);
13254 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EOF)));
13255 SvREADONLY_on(sv);
13256 } while(0) /*@SWIG@*/;
13257 SWIG_TypeClientData(SWIGTYPE_p_gsl_vector_char, (void*) "Math::GSL::Vector::gsl_vector_char");
13258 SWIG_TypeClientData(SWIGTYPE_p__gsl_vector_char_view, (void*) "Math::GSL::Vector::_gsl_vector_char_view");
13259 SWIG_TypeClientData(SWIGTYPE_p__gsl_vector_char_const_view, (void*) "Math::GSL::Vector::_gsl_vector_char_const_view");
13260 SWIG_TypeClientData(SWIGTYPE_p_gsl_vector_complex, (void*) "Math::GSL::Vector::gsl_vector_complex");
13261 SWIG_TypeClientData(SWIGTYPE_p__gsl_vector_complex_view, (void*) "Math::GSL::Vector::_gsl_vector_complex_view");
13262 SWIG_TypeClientData(SWIGTYPE_p__gsl_vector_complex_const_view, (void*) "Math::GSL::Vector::_gsl_vector_complex_const_view");
13263 SWIG_TypeClientData(SWIGTYPE_p_gsl_vector, (void*) "Math::GSL::Vector::gsl_vector");
13264 SWIG_TypeClientData(SWIGTYPE_p__gsl_vector_view, (void*) "Math::GSL::Vector::_gsl_vector_view");
13265 SWIG_TypeClientData(SWIGTYPE_p__gsl_vector_const_view, (void*) "Math::GSL::Vector::_gsl_vector_const_view");
13266 SWIG_TypeClientData(SWIGTYPE_p_gsl_vector_int, (void*) "Math::GSL::Vector::gsl_vector_int");
13267 SWIG_TypeClientData(SWIGTYPE_p__gsl_vector_int_view, (void*) "Math::GSL::Vector::_gsl_vector_int_view");
13268 SWIG_TypeClientData(SWIGTYPE_p__gsl_vector_int_const_view, (void*) "Math::GSL::Vector::_gsl_vector_int_const_view");
13269 ST(0) = &PL_sv_yes;
13270 XSRETURN(1);
13271 }
13272
13273