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_equal)4702 XS(_wrap_gsl_vector_char_equal) {
4703 {
4704 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
4705 gsl_vector_char *arg2 = (gsl_vector_char *) 0 ;
4706 void *argp1 = 0 ;
4707 int res1 = 0 ;
4708 void *argp2 = 0 ;
4709 int res2 = 0 ;
4710 int argvi = 0;
4711 int result;
4712 dXSARGS;
4713
4714 if ((items < 2) || (items > 2)) {
4715 SWIG_croak("Usage: gsl_vector_char_equal(u,v);");
4716 }
4717 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4718 if (!SWIG_IsOK(res1)) {
4719 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_equal" "', argument " "1"" of type '" "gsl_vector_char const *""'");
4720 }
4721 arg1 = (gsl_vector_char *)(argp1);
4722 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4723 if (!SWIG_IsOK(res2)) {
4724 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_char_equal" "', argument " "2"" of type '" "gsl_vector_char const *""'");
4725 }
4726 arg2 = (gsl_vector_char *)(argp2);
4727 result = (int)gsl_vector_char_equal((gsl_vector_char const *)arg1,(gsl_vector_char const *)arg2);
4728 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4729
4730
4731 XSRETURN(argvi);
4732 fail:
4733
4734
4735 SWIG_croak_null();
4736 }
4737 }
4738
4739
XS(_wrap_gsl_vector_char_isnull)4740 XS(_wrap_gsl_vector_char_isnull) {
4741 {
4742 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
4743 void *argp1 = 0 ;
4744 int res1 = 0 ;
4745 int argvi = 0;
4746 int result;
4747 dXSARGS;
4748
4749 if ((items < 1) || (items > 1)) {
4750 SWIG_croak("Usage: gsl_vector_char_isnull(v);");
4751 }
4752 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4753 if (!SWIG_IsOK(res1)) {
4754 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_isnull" "', argument " "1"" of type '" "gsl_vector_char const *""'");
4755 }
4756 arg1 = (gsl_vector_char *)(argp1);
4757 result = (int)gsl_vector_char_isnull((gsl_vector_char const *)arg1);
4758 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4759
4760 XSRETURN(argvi);
4761 fail:
4762
4763 SWIG_croak_null();
4764 }
4765 }
4766
4767
XS(_wrap_gsl_vector_char_ispos)4768 XS(_wrap_gsl_vector_char_ispos) {
4769 {
4770 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
4771 void *argp1 = 0 ;
4772 int res1 = 0 ;
4773 int argvi = 0;
4774 int result;
4775 dXSARGS;
4776
4777 if ((items < 1) || (items > 1)) {
4778 SWIG_croak("Usage: gsl_vector_char_ispos(v);");
4779 }
4780 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4781 if (!SWIG_IsOK(res1)) {
4782 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_ispos" "', argument " "1"" of type '" "gsl_vector_char const *""'");
4783 }
4784 arg1 = (gsl_vector_char *)(argp1);
4785 result = (int)gsl_vector_char_ispos((gsl_vector_char const *)arg1);
4786 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4787
4788 XSRETURN(argvi);
4789 fail:
4790
4791 SWIG_croak_null();
4792 }
4793 }
4794
4795
XS(_wrap_gsl_vector_char_isneg)4796 XS(_wrap_gsl_vector_char_isneg) {
4797 {
4798 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
4799 void *argp1 = 0 ;
4800 int res1 = 0 ;
4801 int argvi = 0;
4802 int result;
4803 dXSARGS;
4804
4805 if ((items < 1) || (items > 1)) {
4806 SWIG_croak("Usage: gsl_vector_char_isneg(v);");
4807 }
4808 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4809 if (!SWIG_IsOK(res1)) {
4810 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_isneg" "', argument " "1"" of type '" "gsl_vector_char const *""'");
4811 }
4812 arg1 = (gsl_vector_char *)(argp1);
4813 result = (int)gsl_vector_char_isneg((gsl_vector_char const *)arg1);
4814 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4815
4816 XSRETURN(argvi);
4817 fail:
4818
4819 SWIG_croak_null();
4820 }
4821 }
4822
4823
XS(_wrap_gsl_vector_char_isnonneg)4824 XS(_wrap_gsl_vector_char_isnonneg) {
4825 {
4826 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
4827 void *argp1 = 0 ;
4828 int res1 = 0 ;
4829 int argvi = 0;
4830 int result;
4831 dXSARGS;
4832
4833 if ((items < 1) || (items > 1)) {
4834 SWIG_croak("Usage: gsl_vector_char_isnonneg(v);");
4835 }
4836 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4837 if (!SWIG_IsOK(res1)) {
4838 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_isnonneg" "', argument " "1"" of type '" "gsl_vector_char const *""'");
4839 }
4840 arg1 = (gsl_vector_char *)(argp1);
4841 result = (int)gsl_vector_char_isnonneg((gsl_vector_char const *)arg1);
4842 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4843
4844 XSRETURN(argvi);
4845 fail:
4846
4847 SWIG_croak_null();
4848 }
4849 }
4850
4851
XS(_wrap_gsl_vector_char_get)4852 XS(_wrap_gsl_vector_char_get) {
4853 {
4854 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
4855 size_t arg2 ;
4856 void *argp1 = 0 ;
4857 int res1 = 0 ;
4858 size_t val2 ;
4859 int ecode2 = 0 ;
4860 int argvi = 0;
4861 char result;
4862 dXSARGS;
4863
4864 if ((items < 2) || (items > 2)) {
4865 SWIG_croak("Usage: gsl_vector_char_get(v,i);");
4866 }
4867 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4868 if (!SWIG_IsOK(res1)) {
4869 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_get" "', argument " "1"" of type '" "gsl_vector_char const *""'");
4870 }
4871 arg1 = (gsl_vector_char *)(argp1);
4872 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4873 if (!SWIG_IsOK(ecode2)) {
4874 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_char_get" "', argument " "2"" of type '" "size_t""'");
4875 }
4876 arg2 = (size_t)(val2);
4877 result = (char)gsl_vector_char_get((gsl_vector_char const *)arg1,arg2);
4878 ST(argvi) = SWIG_From_char SWIG_PERL_CALL_ARGS_1((char)(result)); argvi++ ;
4879
4880
4881 XSRETURN(argvi);
4882 fail:
4883
4884
4885 SWIG_croak_null();
4886 }
4887 }
4888
4889
XS(_wrap_gsl_vector_char_set)4890 XS(_wrap_gsl_vector_char_set) {
4891 {
4892 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
4893 size_t arg2 ;
4894 char arg3 ;
4895 void *argp1 = 0 ;
4896 int res1 = 0 ;
4897 size_t val2 ;
4898 int ecode2 = 0 ;
4899 char val3 ;
4900 int ecode3 = 0 ;
4901 int argvi = 0;
4902 dXSARGS;
4903
4904 if ((items < 3) || (items > 3)) {
4905 SWIG_croak("Usage: gsl_vector_char_set(v,i,x);");
4906 }
4907 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4908 if (!SWIG_IsOK(res1)) {
4909 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_set" "', argument " "1"" of type '" "gsl_vector_char *""'");
4910 }
4911 arg1 = (gsl_vector_char *)(argp1);
4912 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4913 if (!SWIG_IsOK(ecode2)) {
4914 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_char_set" "', argument " "2"" of type '" "size_t""'");
4915 }
4916 arg2 = (size_t)(val2);
4917 ecode3 = SWIG_AsVal_char SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
4918 if (!SWIG_IsOK(ecode3)) {
4919 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_char_set" "', argument " "3"" of type '" "char""'");
4920 }
4921 arg3 = (char)(val3);
4922 gsl_vector_char_set(arg1,arg2,arg3);
4923 ST(argvi) = &PL_sv_undef;
4924
4925
4926
4927 XSRETURN(argvi);
4928 fail:
4929
4930
4931
4932 SWIG_croak_null();
4933 }
4934 }
4935
4936
XS(_wrap_gsl_vector_char_ptr)4937 XS(_wrap_gsl_vector_char_ptr) {
4938 {
4939 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
4940 size_t arg2 ;
4941 void *argp1 = 0 ;
4942 int res1 = 0 ;
4943 size_t val2 ;
4944 int ecode2 = 0 ;
4945 int argvi = 0;
4946 char *result = 0 ;
4947 dXSARGS;
4948
4949 if ((items < 2) || (items > 2)) {
4950 SWIG_croak("Usage: gsl_vector_char_ptr(v,i);");
4951 }
4952 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4953 if (!SWIG_IsOK(res1)) {
4954 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_ptr" "', argument " "1"" of type '" "gsl_vector_char *""'");
4955 }
4956 arg1 = (gsl_vector_char *)(argp1);
4957 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4958 if (!SWIG_IsOK(ecode2)) {
4959 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_char_ptr" "', argument " "2"" of type '" "size_t""'");
4960 }
4961 arg2 = (size_t)(val2);
4962 result = (char *)gsl_vector_char_ptr(arg1,arg2);
4963 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
4964
4965
4966 XSRETURN(argvi);
4967 fail:
4968
4969
4970 SWIG_croak_null();
4971 }
4972 }
4973
4974
XS(_wrap_gsl_vector_char_const_ptr)4975 XS(_wrap_gsl_vector_char_const_ptr) {
4976 {
4977 gsl_vector_char *arg1 = (gsl_vector_char *) 0 ;
4978 size_t arg2 ;
4979 void *argp1 = 0 ;
4980 int res1 = 0 ;
4981 size_t val2 ;
4982 int ecode2 = 0 ;
4983 int argvi = 0;
4984 char *result = 0 ;
4985 dXSARGS;
4986
4987 if ((items < 2) || (items > 2)) {
4988 SWIG_croak("Usage: gsl_vector_char_const_ptr(v,i);");
4989 }
4990 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_char, 0 | 0 );
4991 if (!SWIG_IsOK(res1)) {
4992 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_char_const_ptr" "', argument " "1"" of type '" "gsl_vector_char const *""'");
4993 }
4994 arg1 = (gsl_vector_char *)(argp1);
4995 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4996 if (!SWIG_IsOK(ecode2)) {
4997 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_char_const_ptr" "', argument " "2"" of type '" "size_t""'");
4998 }
4999 arg2 = (size_t)(val2);
5000 result = (char *)gsl_vector_char_const_ptr((gsl_vector_char const *)arg1,arg2);
5001 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
5002
5003
5004 XSRETURN(argvi);
5005 fail:
5006
5007
5008 SWIG_croak_null();
5009 }
5010 }
5011
5012
XS(_wrap_gsl_vector_complex_size_set)5013 XS(_wrap_gsl_vector_complex_size_set) {
5014 {
5015 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
5016 size_t arg2 ;
5017 void *argp1 = 0 ;
5018 int res1 = 0 ;
5019 size_t val2 ;
5020 int ecode2 = 0 ;
5021 int argvi = 0;
5022 dXSARGS;
5023
5024 if ((items < 2) || (items > 2)) {
5025 SWIG_croak("Usage: gsl_vector_complex_size_set(self,size);");
5026 }
5027 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
5028 if (!SWIG_IsOK(res1)) {
5029 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_size_set" "', argument " "1"" of type '" "gsl_vector_complex *""'");
5030 }
5031 arg1 = (gsl_vector_complex *)(argp1);
5032 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5033 if (!SWIG_IsOK(ecode2)) {
5034 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_complex_size_set" "', argument " "2"" of type '" "size_t""'");
5035 }
5036 arg2 = (size_t)(val2);
5037 if (arg1) (arg1)->size = arg2;
5038 ST(argvi) = &PL_sv_undef;
5039
5040
5041 XSRETURN(argvi);
5042 fail:
5043
5044
5045 SWIG_croak_null();
5046 }
5047 }
5048
5049
XS(_wrap_gsl_vector_complex_size_get)5050 XS(_wrap_gsl_vector_complex_size_get) {
5051 {
5052 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
5053 void *argp1 = 0 ;
5054 int res1 = 0 ;
5055 int argvi = 0;
5056 size_t result;
5057 dXSARGS;
5058
5059 if ((items < 1) || (items > 1)) {
5060 SWIG_croak("Usage: gsl_vector_complex_size_get(self);");
5061 }
5062 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
5063 if (!SWIG_IsOK(res1)) {
5064 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_size_get" "', argument " "1"" of type '" "gsl_vector_complex *""'");
5065 }
5066 arg1 = (gsl_vector_complex *)(argp1);
5067 result = ((arg1)->size);
5068 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
5069
5070 XSRETURN(argvi);
5071 fail:
5072
5073 SWIG_croak_null();
5074 }
5075 }
5076
5077
XS(_wrap_gsl_vector_complex_stride_set)5078 XS(_wrap_gsl_vector_complex_stride_set) {
5079 {
5080 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
5081 size_t arg2 ;
5082 void *argp1 = 0 ;
5083 int res1 = 0 ;
5084 size_t val2 ;
5085 int ecode2 = 0 ;
5086 int argvi = 0;
5087 dXSARGS;
5088
5089 if ((items < 2) || (items > 2)) {
5090 SWIG_croak("Usage: gsl_vector_complex_stride_set(self,stride);");
5091 }
5092 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
5093 if (!SWIG_IsOK(res1)) {
5094 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_stride_set" "', argument " "1"" of type '" "gsl_vector_complex *""'");
5095 }
5096 arg1 = (gsl_vector_complex *)(argp1);
5097 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5098 if (!SWIG_IsOK(ecode2)) {
5099 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_complex_stride_set" "', argument " "2"" of type '" "size_t""'");
5100 }
5101 arg2 = (size_t)(val2);
5102 if (arg1) (arg1)->stride = arg2;
5103 ST(argvi) = &PL_sv_undef;
5104
5105
5106 XSRETURN(argvi);
5107 fail:
5108
5109
5110 SWIG_croak_null();
5111 }
5112 }
5113
5114
XS(_wrap_gsl_vector_complex_stride_get)5115 XS(_wrap_gsl_vector_complex_stride_get) {
5116 {
5117 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
5118 void *argp1 = 0 ;
5119 int res1 = 0 ;
5120 int argvi = 0;
5121 size_t result;
5122 dXSARGS;
5123
5124 if ((items < 1) || (items > 1)) {
5125 SWIG_croak("Usage: gsl_vector_complex_stride_get(self);");
5126 }
5127 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
5128 if (!SWIG_IsOK(res1)) {
5129 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_stride_get" "', argument " "1"" of type '" "gsl_vector_complex *""'");
5130 }
5131 arg1 = (gsl_vector_complex *)(argp1);
5132 result = ((arg1)->stride);
5133 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
5134
5135 XSRETURN(argvi);
5136 fail:
5137
5138 SWIG_croak_null();
5139 }
5140 }
5141
5142
XS(_wrap_gsl_vector_complex_data_set)5143 XS(_wrap_gsl_vector_complex_data_set) {
5144 {
5145 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
5146 double *arg2 = (double *) 0 ;
5147 void *argp1 = 0 ;
5148 int res1 = 0 ;
5149 int argvi = 0;
5150 dXSARGS;
5151
5152 if ((items < 2) || (items > 2)) {
5153 SWIG_croak("Usage: gsl_vector_complex_data_set(self,data);");
5154 }
5155 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
5156 if (!SWIG_IsOK(res1)) {
5157 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_data_set" "', argument " "1"" of type '" "gsl_vector_complex *""'");
5158 }
5159 arg1 = (gsl_vector_complex *)(argp1);
5160 {
5161 AV *tempav;
5162 I32 len;
5163 int i;
5164 SV **tv;
5165 if (!SvROK(ST(1)))
5166 croak("Math::GSL : $data is not a reference!");
5167 if (SvTYPE(SvRV(ST(1))) != SVt_PVAV)
5168 croak("Math::GSL : $data is not an array ref!");
5169
5170 tempav = (AV*)SvRV(ST(1));
5171 len = av_len(tempav);
5172 arg2 = (double *) malloc((len+2)*sizeof(double));
5173 for (i = 0; i <= len; i++) {
5174 tv = av_fetch(tempav, i, 0);
5175 arg2[i] = (double) SvNV(*tv);
5176 }
5177 }
5178 if (arg1) (arg1)->data = arg2;
5179 ST(argvi) = &PL_sv_undef;
5180
5181 {
5182 if (arg2) free(arg2);
5183 }
5184 XSRETURN(argvi);
5185 fail:
5186
5187 {
5188 if (arg2) free(arg2);
5189 }
5190 SWIG_croak_null();
5191 }
5192 }
5193
5194
XS(_wrap_gsl_vector_complex_data_get)5195 XS(_wrap_gsl_vector_complex_data_get) {
5196 {
5197 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
5198 void *argp1 = 0 ;
5199 int res1 = 0 ;
5200 int argvi = 0;
5201 double *result = 0 ;
5202 dXSARGS;
5203
5204 if ((items < 1) || (items > 1)) {
5205 SWIG_croak("Usage: gsl_vector_complex_data_get(self);");
5206 }
5207 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
5208 if (!SWIG_IsOK(res1)) {
5209 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_data_get" "', argument " "1"" of type '" "gsl_vector_complex *""'");
5210 }
5211 arg1 = (gsl_vector_complex *)(argp1);
5212 result = (double *) ((arg1)->data);
5213 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
5214
5215 XSRETURN(argvi);
5216 fail:
5217
5218 SWIG_croak_null();
5219 }
5220 }
5221
5222
XS(_wrap_gsl_vector_complex_block_set)5223 XS(_wrap_gsl_vector_complex_block_set) {
5224 {
5225 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
5226 gsl_block_complex *arg2 = (gsl_block_complex *) 0 ;
5227 void *argp1 = 0 ;
5228 int res1 = 0 ;
5229 void *argp2 = 0 ;
5230 int res2 = 0 ;
5231 int argvi = 0;
5232 dXSARGS;
5233
5234 if ((items < 2) || (items > 2)) {
5235 SWIG_croak("Usage: gsl_vector_complex_block_set(self,block);");
5236 }
5237 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
5238 if (!SWIG_IsOK(res1)) {
5239 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_block_set" "', argument " "1"" of type '" "gsl_vector_complex *""'");
5240 }
5241 arg1 = (gsl_vector_complex *)(argp1);
5242 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_block_complex, SWIG_POINTER_DISOWN | 0 );
5243 if (!SWIG_IsOK(res2)) {
5244 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_complex_block_set" "', argument " "2"" of type '" "gsl_block_complex *""'");
5245 }
5246 arg2 = (gsl_block_complex *)(argp2);
5247 if (arg1) (arg1)->block = arg2;
5248 ST(argvi) = &PL_sv_undef;
5249
5250
5251 XSRETURN(argvi);
5252 fail:
5253
5254
5255 SWIG_croak_null();
5256 }
5257 }
5258
5259
XS(_wrap_gsl_vector_complex_block_get)5260 XS(_wrap_gsl_vector_complex_block_get) {
5261 {
5262 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
5263 void *argp1 = 0 ;
5264 int res1 = 0 ;
5265 int argvi = 0;
5266 gsl_block_complex *result = 0 ;
5267 dXSARGS;
5268
5269 if ((items < 1) || (items > 1)) {
5270 SWIG_croak("Usage: gsl_vector_complex_block_get(self);");
5271 }
5272 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
5273 if (!SWIG_IsOK(res1)) {
5274 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_block_get" "', argument " "1"" of type '" "gsl_vector_complex *""'");
5275 }
5276 arg1 = (gsl_vector_complex *)(argp1);
5277 result = (gsl_block_complex *) ((arg1)->block);
5278 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_block_complex, 0 | 0); argvi++ ;
5279
5280 XSRETURN(argvi);
5281 fail:
5282
5283 SWIG_croak_null();
5284 }
5285 }
5286
5287
XS(_wrap_gsl_vector_complex_owner_set)5288 XS(_wrap_gsl_vector_complex_owner_set) {
5289 {
5290 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
5291 int arg2 ;
5292 void *argp1 = 0 ;
5293 int res1 = 0 ;
5294 int val2 ;
5295 int ecode2 = 0 ;
5296 int argvi = 0;
5297 dXSARGS;
5298
5299 if ((items < 2) || (items > 2)) {
5300 SWIG_croak("Usage: gsl_vector_complex_owner_set(self,owner);");
5301 }
5302 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
5303 if (!SWIG_IsOK(res1)) {
5304 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_owner_set" "', argument " "1"" of type '" "gsl_vector_complex *""'");
5305 }
5306 arg1 = (gsl_vector_complex *)(argp1);
5307 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5308 if (!SWIG_IsOK(ecode2)) {
5309 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_complex_owner_set" "', argument " "2"" of type '" "int""'");
5310 }
5311 arg2 = (int)(val2);
5312 if (arg1) (arg1)->owner = arg2;
5313 ST(argvi) = &PL_sv_undef;
5314
5315
5316 XSRETURN(argvi);
5317 fail:
5318
5319
5320 SWIG_croak_null();
5321 }
5322 }
5323
5324
XS(_wrap_gsl_vector_complex_owner_get)5325 XS(_wrap_gsl_vector_complex_owner_get) {
5326 {
5327 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
5328 void *argp1 = 0 ;
5329 int res1 = 0 ;
5330 int argvi = 0;
5331 int result;
5332 dXSARGS;
5333
5334 if ((items < 1) || (items > 1)) {
5335 SWIG_croak("Usage: gsl_vector_complex_owner_get(self);");
5336 }
5337 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
5338 if (!SWIG_IsOK(res1)) {
5339 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_owner_get" "', argument " "1"" of type '" "gsl_vector_complex *""'");
5340 }
5341 arg1 = (gsl_vector_complex *)(argp1);
5342 result = (int) ((arg1)->owner);
5343 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5344
5345 XSRETURN(argvi);
5346 fail:
5347
5348 SWIG_croak_null();
5349 }
5350 }
5351
5352
XS(_wrap_new_gsl_vector_complex)5353 XS(_wrap_new_gsl_vector_complex) {
5354 {
5355 int argvi = 0;
5356 gsl_vector_complex *result = 0 ;
5357 dXSARGS;
5358
5359 if ((items < 0) || (items > 0)) {
5360 SWIG_croak("Usage: new_gsl_vector_complex();");
5361 }
5362 result = (gsl_vector_complex *)calloc(1, sizeof(gsl_vector_complex));
5363 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector_complex, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
5364 XSRETURN(argvi);
5365 fail:
5366 SWIG_croak_null();
5367 }
5368 }
5369
5370
XS(_wrap_delete_gsl_vector_complex)5371 XS(_wrap_delete_gsl_vector_complex) {
5372 {
5373 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
5374 void *argp1 = 0 ;
5375 int res1 = 0 ;
5376 int argvi = 0;
5377 dXSARGS;
5378
5379 if ((items < 1) || (items > 1)) {
5380 SWIG_croak("Usage: delete_gsl_vector_complex(self);");
5381 }
5382 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, SWIG_POINTER_DISOWN | 0 );
5383 if (!SWIG_IsOK(res1)) {
5384 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_vector_complex" "', argument " "1"" of type '" "gsl_vector_complex *""'");
5385 }
5386 arg1 = (gsl_vector_complex *)(argp1);
5387 free((char *) arg1);
5388 ST(argvi) = &PL_sv_undef;
5389
5390 XSRETURN(argvi);
5391 fail:
5392
5393 SWIG_croak_null();
5394 }
5395 }
5396
5397
XS(_wrap__gsl_vector_complex_view_vector_set)5398 XS(_wrap__gsl_vector_complex_view_vector_set) {
5399 {
5400 _gsl_vector_complex_view *arg1 = (_gsl_vector_complex_view *) 0 ;
5401 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
5402 void *argp1 = 0 ;
5403 int res1 = 0 ;
5404 void *argp2 = 0 ;
5405 int res2 = 0 ;
5406 int argvi = 0;
5407 dXSARGS;
5408
5409 if ((items < 2) || (items > 2)) {
5410 SWIG_croak("Usage: _gsl_vector_complex_view_vector_set(self,vector);");
5411 }
5412 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_complex_view, 0 | 0 );
5413 if (!SWIG_IsOK(res1)) {
5414 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "_gsl_vector_complex_view_vector_set" "', argument " "1"" of type '" "_gsl_vector_complex_view *""'");
5415 }
5416 arg1 = (_gsl_vector_complex_view *)(argp1);
5417 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
5418 if (!SWIG_IsOK(res2)) {
5419 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "_gsl_vector_complex_view_vector_set" "', argument " "2"" of type '" "gsl_vector_complex *""'");
5420 }
5421 arg2 = (gsl_vector_complex *)(argp2);
5422 if (arg1) (arg1)->vector = *arg2;
5423 ST(argvi) = &PL_sv_undef;
5424
5425
5426 XSRETURN(argvi);
5427 fail:
5428
5429
5430 SWIG_croak_null();
5431 }
5432 }
5433
5434
XS(_wrap__gsl_vector_complex_view_vector_get)5435 XS(_wrap__gsl_vector_complex_view_vector_get) {
5436 {
5437 _gsl_vector_complex_view *arg1 = (_gsl_vector_complex_view *) 0 ;
5438 void *argp1 = 0 ;
5439 int res1 = 0 ;
5440 int argvi = 0;
5441 gsl_vector_complex *result = 0 ;
5442 dXSARGS;
5443
5444 if ((items < 1) || (items > 1)) {
5445 SWIG_croak("Usage: _gsl_vector_complex_view_vector_get(self);");
5446 }
5447 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_complex_view, 0 | 0 );
5448 if (!SWIG_IsOK(res1)) {
5449 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "_gsl_vector_complex_view_vector_get" "', argument " "1"" of type '" "_gsl_vector_complex_view *""'");
5450 }
5451 arg1 = (_gsl_vector_complex_view *)(argp1);
5452 result = (gsl_vector_complex *)& ((arg1)->vector);
5453 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector_complex, 0 | SWIG_SHADOW); argvi++ ;
5454
5455 XSRETURN(argvi);
5456 fail:
5457
5458 SWIG_croak_null();
5459 }
5460 }
5461
5462
XS(_wrap_new__gsl_vector_complex_view)5463 XS(_wrap_new__gsl_vector_complex_view) {
5464 {
5465 int argvi = 0;
5466 _gsl_vector_complex_view *result = 0 ;
5467 dXSARGS;
5468
5469 if ((items < 0) || (items > 0)) {
5470 SWIG_croak("Usage: new__gsl_vector_complex_view();");
5471 }
5472 result = (_gsl_vector_complex_view *)calloc(1, sizeof(_gsl_vector_complex_view));
5473 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p__gsl_vector_complex_view, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
5474 XSRETURN(argvi);
5475 fail:
5476 SWIG_croak_null();
5477 }
5478 }
5479
5480
XS(_wrap_delete__gsl_vector_complex_view)5481 XS(_wrap_delete__gsl_vector_complex_view) {
5482 {
5483 _gsl_vector_complex_view *arg1 = (_gsl_vector_complex_view *) 0 ;
5484 void *argp1 = 0 ;
5485 int res1 = 0 ;
5486 int argvi = 0;
5487 dXSARGS;
5488
5489 if ((items < 1) || (items > 1)) {
5490 SWIG_croak("Usage: delete__gsl_vector_complex_view(self);");
5491 }
5492 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_complex_view, SWIG_POINTER_DISOWN | 0 );
5493 if (!SWIG_IsOK(res1)) {
5494 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete__gsl_vector_complex_view" "', argument " "1"" of type '" "_gsl_vector_complex_view *""'");
5495 }
5496 arg1 = (_gsl_vector_complex_view *)(argp1);
5497 free((char *) arg1);
5498 ST(argvi) = &PL_sv_undef;
5499
5500 XSRETURN(argvi);
5501 fail:
5502
5503 SWIG_croak_null();
5504 }
5505 }
5506
5507
XS(_wrap__gsl_vector_complex_const_view_vector_set)5508 XS(_wrap__gsl_vector_complex_const_view_vector_set) {
5509 {
5510 _gsl_vector_complex_const_view *arg1 = (_gsl_vector_complex_const_view *) 0 ;
5511 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
5512 void *argp1 = 0 ;
5513 int res1 = 0 ;
5514 void *argp2 = 0 ;
5515 int res2 = 0 ;
5516 int argvi = 0;
5517 dXSARGS;
5518
5519 if ((items < 2) || (items > 2)) {
5520 SWIG_croak("Usage: _gsl_vector_complex_const_view_vector_set(self,vector);");
5521 }
5522 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_complex_const_view, 0 | 0 );
5523 if (!SWIG_IsOK(res1)) {
5524 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "_gsl_vector_complex_const_view_vector_set" "', argument " "1"" of type '" "_gsl_vector_complex_const_view *""'");
5525 }
5526 arg1 = (_gsl_vector_complex_const_view *)(argp1);
5527 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
5528 if (!SWIG_IsOK(res2)) {
5529 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "_gsl_vector_complex_const_view_vector_set" "', argument " "2"" of type '" "gsl_vector_complex *""'");
5530 }
5531 arg2 = (gsl_vector_complex *)(argp2);
5532 if (arg1) (arg1)->vector = *arg2;
5533 ST(argvi) = &PL_sv_undef;
5534
5535
5536 XSRETURN(argvi);
5537 fail:
5538
5539
5540 SWIG_croak_null();
5541 }
5542 }
5543
5544
XS(_wrap__gsl_vector_complex_const_view_vector_get)5545 XS(_wrap__gsl_vector_complex_const_view_vector_get) {
5546 {
5547 _gsl_vector_complex_const_view *arg1 = (_gsl_vector_complex_const_view *) 0 ;
5548 void *argp1 = 0 ;
5549 int res1 = 0 ;
5550 int argvi = 0;
5551 gsl_vector_complex *result = 0 ;
5552 dXSARGS;
5553
5554 if ((items < 1) || (items > 1)) {
5555 SWIG_croak("Usage: _gsl_vector_complex_const_view_vector_get(self);");
5556 }
5557 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_complex_const_view, 0 | 0 );
5558 if (!SWIG_IsOK(res1)) {
5559 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "_gsl_vector_complex_const_view_vector_get" "', argument " "1"" of type '" "_gsl_vector_complex_const_view *""'");
5560 }
5561 arg1 = (_gsl_vector_complex_const_view *)(argp1);
5562 result = (gsl_vector_complex *)& ((arg1)->vector);
5563 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector_complex, 0 | SWIG_SHADOW); argvi++ ;
5564
5565 XSRETURN(argvi);
5566 fail:
5567
5568 SWIG_croak_null();
5569 }
5570 }
5571
5572
XS(_wrap_new__gsl_vector_complex_const_view)5573 XS(_wrap_new__gsl_vector_complex_const_view) {
5574 {
5575 int argvi = 0;
5576 _gsl_vector_complex_const_view *result = 0 ;
5577 dXSARGS;
5578
5579 if ((items < 0) || (items > 0)) {
5580 SWIG_croak("Usage: new__gsl_vector_complex_const_view();");
5581 }
5582 result = (_gsl_vector_complex_const_view *)calloc(1, sizeof(_gsl_vector_complex_const_view));
5583 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p__gsl_vector_complex_const_view, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
5584 XSRETURN(argvi);
5585 fail:
5586 SWIG_croak_null();
5587 }
5588 }
5589
5590
XS(_wrap_delete__gsl_vector_complex_const_view)5591 XS(_wrap_delete__gsl_vector_complex_const_view) {
5592 {
5593 _gsl_vector_complex_const_view *arg1 = (_gsl_vector_complex_const_view *) 0 ;
5594 void *argp1 = 0 ;
5595 int res1 = 0 ;
5596 int argvi = 0;
5597 dXSARGS;
5598
5599 if ((items < 1) || (items > 1)) {
5600 SWIG_croak("Usage: delete__gsl_vector_complex_const_view(self);");
5601 }
5602 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_complex_const_view, SWIG_POINTER_DISOWN | 0 );
5603 if (!SWIG_IsOK(res1)) {
5604 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete__gsl_vector_complex_const_view" "', argument " "1"" of type '" "_gsl_vector_complex_const_view *""'");
5605 }
5606 arg1 = (_gsl_vector_complex_const_view *)(argp1);
5607 free((char *) arg1);
5608 ST(argvi) = &PL_sv_undef;
5609
5610 XSRETURN(argvi);
5611 fail:
5612
5613 SWIG_croak_null();
5614 }
5615 }
5616
5617
XS(_wrap_gsl_vector_complex_alloc)5618 XS(_wrap_gsl_vector_complex_alloc) {
5619 {
5620 size_t arg1 ;
5621 size_t val1 ;
5622 int ecode1 = 0 ;
5623 int argvi = 0;
5624 gsl_vector_complex *result = 0 ;
5625 dXSARGS;
5626
5627 if ((items < 1) || (items > 1)) {
5628 SWIG_croak("Usage: gsl_vector_complex_alloc(n);");
5629 }
5630 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
5631 if (!SWIG_IsOK(ecode1)) {
5632 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_vector_complex_alloc" "', argument " "1"" of type '" "size_t""'");
5633 }
5634 arg1 = (size_t)(val1);
5635 result = (gsl_vector_complex *)gsl_vector_complex_alloc(arg1);
5636 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector_complex, 0 | SWIG_SHADOW); argvi++ ;
5637
5638 XSRETURN(argvi);
5639 fail:
5640
5641 SWIG_croak_null();
5642 }
5643 }
5644
5645
XS(_wrap_gsl_vector_complex_calloc)5646 XS(_wrap_gsl_vector_complex_calloc) {
5647 {
5648 size_t arg1 ;
5649 size_t val1 ;
5650 int ecode1 = 0 ;
5651 int argvi = 0;
5652 gsl_vector_complex *result = 0 ;
5653 dXSARGS;
5654
5655 if ((items < 1) || (items > 1)) {
5656 SWIG_croak("Usage: gsl_vector_complex_calloc(n);");
5657 }
5658 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
5659 if (!SWIG_IsOK(ecode1)) {
5660 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_vector_complex_calloc" "', argument " "1"" of type '" "size_t""'");
5661 }
5662 arg1 = (size_t)(val1);
5663 result = (gsl_vector_complex *)gsl_vector_complex_calloc(arg1);
5664 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector_complex, 0 | SWIG_SHADOW); argvi++ ;
5665
5666 XSRETURN(argvi);
5667 fail:
5668
5669 SWIG_croak_null();
5670 }
5671 }
5672
5673
XS(_wrap_gsl_vector_complex_alloc_from_block)5674 XS(_wrap_gsl_vector_complex_alloc_from_block) {
5675 {
5676 gsl_block_complex *arg1 = (gsl_block_complex *) 0 ;
5677 size_t arg2 ;
5678 size_t arg3 ;
5679 size_t arg4 ;
5680 void *argp1 = 0 ;
5681 int res1 = 0 ;
5682 size_t val2 ;
5683 int ecode2 = 0 ;
5684 size_t val3 ;
5685 int ecode3 = 0 ;
5686 size_t val4 ;
5687 int ecode4 = 0 ;
5688 int argvi = 0;
5689 gsl_vector_complex *result = 0 ;
5690 dXSARGS;
5691
5692 if ((items < 4) || (items > 4)) {
5693 SWIG_croak("Usage: gsl_vector_complex_alloc_from_block(b,offset,n,stride);");
5694 }
5695 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_block_complex, 0 | 0 );
5696 if (!SWIG_IsOK(res1)) {
5697 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_alloc_from_block" "', argument " "1"" of type '" "gsl_block_complex *""'");
5698 }
5699 arg1 = (gsl_block_complex *)(argp1);
5700 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5701 if (!SWIG_IsOK(ecode2)) {
5702 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_complex_alloc_from_block" "', argument " "2"" of type '" "size_t""'");
5703 }
5704 arg2 = (size_t)(val2);
5705 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
5706 if (!SWIG_IsOK(ecode3)) {
5707 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_complex_alloc_from_block" "', argument " "3"" of type '" "size_t""'");
5708 }
5709 arg3 = (size_t)(val3);
5710 ecode4 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
5711 if (!SWIG_IsOK(ecode4)) {
5712 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_vector_complex_alloc_from_block" "', argument " "4"" of type '" "size_t""'");
5713 }
5714 arg4 = (size_t)(val4);
5715 result = (gsl_vector_complex *)gsl_vector_complex_alloc_from_block(arg1,arg2,arg3,arg4);
5716 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector_complex, 0 | SWIG_SHADOW); argvi++ ;
5717
5718
5719
5720
5721 XSRETURN(argvi);
5722 fail:
5723
5724
5725
5726
5727 SWIG_croak_null();
5728 }
5729 }
5730
5731
XS(_wrap_gsl_vector_complex_alloc_from_vector)5732 XS(_wrap_gsl_vector_complex_alloc_from_vector) {
5733 {
5734 gsl_vector_complex *arg1 = (gsl_vector_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_vector(v,offset,n,stride);");
5752 }
5753 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
5754 if (!SWIG_IsOK(res1)) {
5755 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_alloc_from_vector" "', argument " "1"" of type '" "gsl_vector_complex *""'");
5756 }
5757 arg1 = (gsl_vector_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_vector" "', 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_vector" "', 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_vector" "', argument " "4"" of type '" "size_t""'");
5771 }
5772 arg4 = (size_t)(val4);
5773 result = (gsl_vector_complex *)gsl_vector_complex_alloc_from_vector(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_free)5790 XS(_wrap_gsl_vector_complex_free) {
5791 {
5792 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
5793 void *argp1 = 0 ;
5794 int res1 = 0 ;
5795 int argvi = 0;
5796 dXSARGS;
5797
5798 if ((items < 1) || (items > 1)) {
5799 SWIG_croak("Usage: gsl_vector_complex_free(v);");
5800 }
5801 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
5802 if (!SWIG_IsOK(res1)) {
5803 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_free" "', argument " "1"" of type '" "gsl_vector_complex *""'");
5804 }
5805 arg1 = (gsl_vector_complex *)(argp1);
5806 gsl_vector_complex_free(arg1);
5807 ST(argvi) = &PL_sv_undef;
5808
5809 XSRETURN(argvi);
5810 fail:
5811
5812 SWIG_croak_null();
5813 }
5814 }
5815
5816
XS(_wrap_gsl_vector_complex_view_array)5817 XS(_wrap_gsl_vector_complex_view_array) {
5818 {
5819 double *arg1 = (double *) 0 ;
5820 size_t arg2 ;
5821 size_t val2 ;
5822 int ecode2 = 0 ;
5823 int argvi = 0;
5824 _gsl_vector_complex_view result;
5825 dXSARGS;
5826
5827 if ((items < 2) || (items > 2)) {
5828 SWIG_croak("Usage: gsl_vector_complex_view_array(base,n);");
5829 }
5830 {
5831 AV *tempav;
5832 I32 len;
5833 int i;
5834 SV **tv;
5835 if (!SvROK(ST(0)))
5836 croak("Math::GSL : $base is not a reference!");
5837 if (SvTYPE(SvRV(ST(0))) != SVt_PVAV)
5838 croak("Math::GSL : $base is not an array ref!");
5839
5840 tempav = (AV*)SvRV(ST(0));
5841 len = av_len(tempav);
5842 arg1 = (double *) malloc((len+2)*sizeof(double));
5843 for (i = 0; i <= len; i++) {
5844 tv = av_fetch(tempav, i, 0);
5845 arg1[i] = (double) SvNV(*tv);
5846 }
5847 }
5848 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5849 if (!SWIG_IsOK(ecode2)) {
5850 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_complex_view_array" "', argument " "2"" of type '" "size_t""'");
5851 }
5852 arg2 = (size_t)(val2);
5853 result = gsl_vector_complex_view_array(arg1,arg2);
5854 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++ ;
5855 {
5856 if (arg1) free(arg1);
5857 }
5858
5859 XSRETURN(argvi);
5860 fail:
5861 {
5862 if (arg1) free(arg1);
5863 }
5864
5865 SWIG_croak_null();
5866 }
5867 }
5868
5869
XS(_wrap_gsl_vector_complex_view_array_with_stride)5870 XS(_wrap_gsl_vector_complex_view_array_with_stride) {
5871 {
5872 double *arg1 = (double *) 0 ;
5873 size_t arg2 ;
5874 size_t arg3 ;
5875 size_t val2 ;
5876 int ecode2 = 0 ;
5877 size_t val3 ;
5878 int ecode3 = 0 ;
5879 int argvi = 0;
5880 _gsl_vector_complex_view result;
5881 dXSARGS;
5882
5883 if ((items < 3) || (items > 3)) {
5884 SWIG_croak("Usage: gsl_vector_complex_view_array_with_stride(base,stride,n);");
5885 }
5886 {
5887 AV *tempav;
5888 I32 len;
5889 int i;
5890 SV **tv;
5891 if (!SvROK(ST(0)))
5892 croak("Math::GSL : $base is not a reference!");
5893 if (SvTYPE(SvRV(ST(0))) != SVt_PVAV)
5894 croak("Math::GSL : $base is not an array ref!");
5895
5896 tempav = (AV*)SvRV(ST(0));
5897 len = av_len(tempav);
5898 arg1 = (double *) malloc((len+2)*sizeof(double));
5899 for (i = 0; i <= len; i++) {
5900 tv = av_fetch(tempav, i, 0);
5901 arg1[i] = (double) SvNV(*tv);
5902 }
5903 }
5904 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5905 if (!SWIG_IsOK(ecode2)) {
5906 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_complex_view_array_with_stride" "', argument " "2"" of type '" "size_t""'");
5907 }
5908 arg2 = (size_t)(val2);
5909 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
5910 if (!SWIG_IsOK(ecode3)) {
5911 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_complex_view_array_with_stride" "', argument " "3"" of type '" "size_t""'");
5912 }
5913 arg3 = (size_t)(val3);
5914 result = gsl_vector_complex_view_array_with_stride(arg1,arg2,arg3);
5915 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++ ;
5916 {
5917 if (arg1) free(arg1);
5918 }
5919
5920
5921 XSRETURN(argvi);
5922 fail:
5923 {
5924 if (arg1) free(arg1);
5925 }
5926
5927
5928 SWIG_croak_null();
5929 }
5930 }
5931
5932
XS(_wrap_gsl_vector_complex_const_view_array)5933 XS(_wrap_gsl_vector_complex_const_view_array) {
5934 {
5935 double *arg1 = (double *) 0 ;
5936 size_t arg2 ;
5937 size_t val2 ;
5938 int ecode2 = 0 ;
5939 int argvi = 0;
5940 _gsl_vector_complex_const_view result;
5941 dXSARGS;
5942
5943 if ((items < 2) || (items > 2)) {
5944 SWIG_croak("Usage: gsl_vector_complex_const_view_array(base,n);");
5945 }
5946 {
5947 AV *tempav;
5948 I32 len;
5949 int i;
5950 SV **tv;
5951 if (!SvROK(ST(0)))
5952 croak("Math::GSL : $base is not a reference!");
5953 if (SvTYPE(SvRV(ST(0))) != SVt_PVAV)
5954 croak("Math::GSL : $base is not an array ref!");
5955
5956 tempav = (AV*)SvRV(ST(0));
5957 len = av_len(tempav);
5958 arg1 = (double *) malloc((len+2)*sizeof(double));
5959 for (i = 0; i <= len; i++) {
5960 tv = av_fetch(tempav, i, 0);
5961 arg1[i] = (double) SvNV(*tv);
5962 }
5963 }
5964 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5965 if (!SWIG_IsOK(ecode2)) {
5966 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_complex_const_view_array" "', argument " "2"" of type '" "size_t""'");
5967 }
5968 arg2 = (size_t)(val2);
5969 result = gsl_vector_complex_const_view_array((double const *)arg1,arg2);
5970 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++ ;
5971 {
5972 if (arg1) free(arg1);
5973 }
5974
5975 XSRETURN(argvi);
5976 fail:
5977 {
5978 if (arg1) free(arg1);
5979 }
5980
5981 SWIG_croak_null();
5982 }
5983 }
5984
5985
XS(_wrap_gsl_vector_complex_const_view_array_with_stride)5986 XS(_wrap_gsl_vector_complex_const_view_array_with_stride) {
5987 {
5988 double *arg1 = (double *) 0 ;
5989 size_t arg2 ;
5990 size_t arg3 ;
5991 size_t val2 ;
5992 int ecode2 = 0 ;
5993 size_t val3 ;
5994 int ecode3 = 0 ;
5995 int argvi = 0;
5996 _gsl_vector_complex_const_view result;
5997 dXSARGS;
5998
5999 if ((items < 3) || (items > 3)) {
6000 SWIG_croak("Usage: gsl_vector_complex_const_view_array_with_stride(base,stride,n);");
6001 }
6002 {
6003 AV *tempav;
6004 I32 len;
6005 int i;
6006 SV **tv;
6007 if (!SvROK(ST(0)))
6008 croak("Math::GSL : $base is not a reference!");
6009 if (SvTYPE(SvRV(ST(0))) != SVt_PVAV)
6010 croak("Math::GSL : $base is not an array ref!");
6011
6012 tempav = (AV*)SvRV(ST(0));
6013 len = av_len(tempav);
6014 arg1 = (double *) malloc((len+2)*sizeof(double));
6015 for (i = 0; i <= len; i++) {
6016 tv = av_fetch(tempav, i, 0);
6017 arg1[i] = (double) SvNV(*tv);
6018 }
6019 }
6020 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6021 if (!SWIG_IsOK(ecode2)) {
6022 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_complex_const_view_array_with_stride" "', argument " "2"" of type '" "size_t""'");
6023 }
6024 arg2 = (size_t)(val2);
6025 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
6026 if (!SWIG_IsOK(ecode3)) {
6027 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_complex_const_view_array_with_stride" "', argument " "3"" of type '" "size_t""'");
6028 }
6029 arg3 = (size_t)(val3);
6030 result = gsl_vector_complex_const_view_array_with_stride((double const *)arg1,arg2,arg3);
6031 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++ ;
6032 {
6033 if (arg1) free(arg1);
6034 }
6035
6036
6037 XSRETURN(argvi);
6038 fail:
6039 {
6040 if (arg1) free(arg1);
6041 }
6042
6043
6044 SWIG_croak_null();
6045 }
6046 }
6047
6048
XS(_wrap_gsl_vector_complex_subvector)6049 XS(_wrap_gsl_vector_complex_subvector) {
6050 {
6051 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6052 size_t arg2 ;
6053 size_t arg3 ;
6054 void *argp1 = 0 ;
6055 int res1 = 0 ;
6056 size_t val2 ;
6057 int ecode2 = 0 ;
6058 size_t val3 ;
6059 int ecode3 = 0 ;
6060 int argvi = 0;
6061 _gsl_vector_complex_view result;
6062 dXSARGS;
6063
6064 if ((items < 3) || (items > 3)) {
6065 SWIG_croak("Usage: gsl_vector_complex_subvector(base,i,n);");
6066 }
6067 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6068 if (!SWIG_IsOK(res1)) {
6069 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_subvector" "', argument " "1"" of type '" "gsl_vector_complex *""'");
6070 }
6071 arg1 = (gsl_vector_complex *)(argp1);
6072 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6073 if (!SWIG_IsOK(ecode2)) {
6074 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_complex_subvector" "', argument " "2"" of type '" "size_t""'");
6075 }
6076 arg2 = (size_t)(val2);
6077 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
6078 if (!SWIG_IsOK(ecode3)) {
6079 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_complex_subvector" "', argument " "3"" of type '" "size_t""'");
6080 }
6081 arg3 = (size_t)(val3);
6082 result = gsl_vector_complex_subvector(arg1,arg2,arg3);
6083 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++ ;
6084
6085
6086
6087 XSRETURN(argvi);
6088 fail:
6089
6090
6091
6092 SWIG_croak_null();
6093 }
6094 }
6095
6096
XS(_wrap_gsl_vector_complex_subvector_with_stride)6097 XS(_wrap_gsl_vector_complex_subvector_with_stride) {
6098 {
6099 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6100 size_t arg2 ;
6101 size_t arg3 ;
6102 size_t arg4 ;
6103 void *argp1 = 0 ;
6104 int res1 = 0 ;
6105 size_t val2 ;
6106 int ecode2 = 0 ;
6107 size_t val3 ;
6108 int ecode3 = 0 ;
6109 size_t val4 ;
6110 int ecode4 = 0 ;
6111 int argvi = 0;
6112 _gsl_vector_complex_view result;
6113 dXSARGS;
6114
6115 if ((items < 4) || (items > 4)) {
6116 SWIG_croak("Usage: gsl_vector_complex_subvector_with_stride(v,i,stride,n);");
6117 }
6118 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6119 if (!SWIG_IsOK(res1)) {
6120 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_subvector_with_stride" "', argument " "1"" of type '" "gsl_vector_complex *""'");
6121 }
6122 arg1 = (gsl_vector_complex *)(argp1);
6123 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6124 if (!SWIG_IsOK(ecode2)) {
6125 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_complex_subvector_with_stride" "', argument " "2"" of type '" "size_t""'");
6126 }
6127 arg2 = (size_t)(val2);
6128 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
6129 if (!SWIG_IsOK(ecode3)) {
6130 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_complex_subvector_with_stride" "', argument " "3"" of type '" "size_t""'");
6131 }
6132 arg3 = (size_t)(val3);
6133 ecode4 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
6134 if (!SWIG_IsOK(ecode4)) {
6135 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_vector_complex_subvector_with_stride" "', argument " "4"" of type '" "size_t""'");
6136 }
6137 arg4 = (size_t)(val4);
6138 result = gsl_vector_complex_subvector_with_stride(arg1,arg2,arg3,arg4);
6139 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++ ;
6140
6141
6142
6143
6144 XSRETURN(argvi);
6145 fail:
6146
6147
6148
6149
6150 SWIG_croak_null();
6151 }
6152 }
6153
6154
XS(_wrap_gsl_vector_complex_const_subvector)6155 XS(_wrap_gsl_vector_complex_const_subvector) {
6156 {
6157 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6158 size_t arg2 ;
6159 size_t arg3 ;
6160 void *argp1 = 0 ;
6161 int res1 = 0 ;
6162 size_t val2 ;
6163 int ecode2 = 0 ;
6164 size_t val3 ;
6165 int ecode3 = 0 ;
6166 int argvi = 0;
6167 _gsl_vector_complex_const_view result;
6168 dXSARGS;
6169
6170 if ((items < 3) || (items > 3)) {
6171 SWIG_croak("Usage: gsl_vector_complex_const_subvector(base,i,n);");
6172 }
6173 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6174 if (!SWIG_IsOK(res1)) {
6175 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_const_subvector" "', argument " "1"" of type '" "gsl_vector_complex const *""'");
6176 }
6177 arg1 = (gsl_vector_complex *)(argp1);
6178 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6179 if (!SWIG_IsOK(ecode2)) {
6180 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_complex_const_subvector" "', argument " "2"" of type '" "size_t""'");
6181 }
6182 arg2 = (size_t)(val2);
6183 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
6184 if (!SWIG_IsOK(ecode3)) {
6185 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_complex_const_subvector" "', argument " "3"" of type '" "size_t""'");
6186 }
6187 arg3 = (size_t)(val3);
6188 result = gsl_vector_complex_const_subvector((gsl_vector_complex const *)arg1,arg2,arg3);
6189 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++ ;
6190
6191
6192
6193 XSRETURN(argvi);
6194 fail:
6195
6196
6197
6198 SWIG_croak_null();
6199 }
6200 }
6201
6202
XS(_wrap_gsl_vector_complex_const_subvector_with_stride)6203 XS(_wrap_gsl_vector_complex_const_subvector_with_stride) {
6204 {
6205 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6206 size_t arg2 ;
6207 size_t arg3 ;
6208 size_t arg4 ;
6209 void *argp1 = 0 ;
6210 int res1 = 0 ;
6211 size_t val2 ;
6212 int ecode2 = 0 ;
6213 size_t val3 ;
6214 int ecode3 = 0 ;
6215 size_t val4 ;
6216 int ecode4 = 0 ;
6217 int argvi = 0;
6218 _gsl_vector_complex_const_view result;
6219 dXSARGS;
6220
6221 if ((items < 4) || (items > 4)) {
6222 SWIG_croak("Usage: gsl_vector_complex_const_subvector_with_stride(v,i,stride,n);");
6223 }
6224 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6225 if (!SWIG_IsOK(res1)) {
6226 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_const_subvector_with_stride" "', argument " "1"" of type '" "gsl_vector_complex const *""'");
6227 }
6228 arg1 = (gsl_vector_complex *)(argp1);
6229 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6230 if (!SWIG_IsOK(ecode2)) {
6231 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_complex_const_subvector_with_stride" "', argument " "2"" of type '" "size_t""'");
6232 }
6233 arg2 = (size_t)(val2);
6234 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
6235 if (!SWIG_IsOK(ecode3)) {
6236 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_complex_const_subvector_with_stride" "', argument " "3"" of type '" "size_t""'");
6237 }
6238 arg3 = (size_t)(val3);
6239 ecode4 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
6240 if (!SWIG_IsOK(ecode4)) {
6241 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_vector_complex_const_subvector_with_stride" "', argument " "4"" of type '" "size_t""'");
6242 }
6243 arg4 = (size_t)(val4);
6244 result = gsl_vector_complex_const_subvector_with_stride((gsl_vector_complex const *)arg1,arg2,arg3,arg4);
6245 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++ ;
6246
6247
6248
6249
6250 XSRETURN(argvi);
6251 fail:
6252
6253
6254
6255
6256 SWIG_croak_null();
6257 }
6258 }
6259
6260
XS(_wrap_gsl_vector_complex_real)6261 XS(_wrap_gsl_vector_complex_real) {
6262 {
6263 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6264 void *argp1 = 0 ;
6265 int res1 = 0 ;
6266 int argvi = 0;
6267 _gsl_vector_view result;
6268 dXSARGS;
6269
6270 if ((items < 1) || (items > 1)) {
6271 SWIG_croak("Usage: gsl_vector_complex_real(v);");
6272 }
6273 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6274 if (!SWIG_IsOK(res1)) {
6275 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_real" "', argument " "1"" of type '" "gsl_vector_complex *""'");
6276 }
6277 arg1 = (gsl_vector_complex *)(argp1);
6278 result = gsl_vector_complex_real(arg1);
6279 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++ ;
6280
6281 XSRETURN(argvi);
6282 fail:
6283
6284 SWIG_croak_null();
6285 }
6286 }
6287
6288
XS(_wrap_gsl_vector_complex_imag)6289 XS(_wrap_gsl_vector_complex_imag) {
6290 {
6291 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6292 void *argp1 = 0 ;
6293 int res1 = 0 ;
6294 int argvi = 0;
6295 _gsl_vector_view result;
6296 dXSARGS;
6297
6298 if ((items < 1) || (items > 1)) {
6299 SWIG_croak("Usage: gsl_vector_complex_imag(v);");
6300 }
6301 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6302 if (!SWIG_IsOK(res1)) {
6303 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_imag" "', argument " "1"" of type '" "gsl_vector_complex *""'");
6304 }
6305 arg1 = (gsl_vector_complex *)(argp1);
6306 result = gsl_vector_complex_imag(arg1);
6307 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++ ;
6308
6309 XSRETURN(argvi);
6310 fail:
6311
6312 SWIG_croak_null();
6313 }
6314 }
6315
6316
XS(_wrap_gsl_vector_complex_const_real)6317 XS(_wrap_gsl_vector_complex_const_real) {
6318 {
6319 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6320 void *argp1 = 0 ;
6321 int res1 = 0 ;
6322 int argvi = 0;
6323 _gsl_vector_const_view result;
6324 dXSARGS;
6325
6326 if ((items < 1) || (items > 1)) {
6327 SWIG_croak("Usage: gsl_vector_complex_const_real(v);");
6328 }
6329 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6330 if (!SWIG_IsOK(res1)) {
6331 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_const_real" "', argument " "1"" of type '" "gsl_vector_complex const *""'");
6332 }
6333 arg1 = (gsl_vector_complex *)(argp1);
6334 result = gsl_vector_complex_const_real((gsl_vector_complex const *)arg1);
6335 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++ ;
6336
6337 XSRETURN(argvi);
6338 fail:
6339
6340 SWIG_croak_null();
6341 }
6342 }
6343
6344
XS(_wrap_gsl_vector_complex_const_imag)6345 XS(_wrap_gsl_vector_complex_const_imag) {
6346 {
6347 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6348 void *argp1 = 0 ;
6349 int res1 = 0 ;
6350 int argvi = 0;
6351 _gsl_vector_const_view result;
6352 dXSARGS;
6353
6354 if ((items < 1) || (items > 1)) {
6355 SWIG_croak("Usage: gsl_vector_complex_const_imag(v);");
6356 }
6357 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6358 if (!SWIG_IsOK(res1)) {
6359 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_const_imag" "', argument " "1"" of type '" "gsl_vector_complex const *""'");
6360 }
6361 arg1 = (gsl_vector_complex *)(argp1);
6362 result = gsl_vector_complex_const_imag((gsl_vector_complex const *)arg1);
6363 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++ ;
6364
6365 XSRETURN(argvi);
6366 fail:
6367
6368 SWIG_croak_null();
6369 }
6370 }
6371
6372
XS(_wrap_gsl_vector_complex_set_zero)6373 XS(_wrap_gsl_vector_complex_set_zero) {
6374 {
6375 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6376 void *argp1 = 0 ;
6377 int res1 = 0 ;
6378 int argvi = 0;
6379 dXSARGS;
6380
6381 if ((items < 1) || (items > 1)) {
6382 SWIG_croak("Usage: gsl_vector_complex_set_zero(v);");
6383 }
6384 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6385 if (!SWIG_IsOK(res1)) {
6386 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_set_zero" "', argument " "1"" of type '" "gsl_vector_complex *""'");
6387 }
6388 arg1 = (gsl_vector_complex *)(argp1);
6389 gsl_vector_complex_set_zero(arg1);
6390 ST(argvi) = &PL_sv_undef;
6391
6392 XSRETURN(argvi);
6393 fail:
6394
6395 SWIG_croak_null();
6396 }
6397 }
6398
6399
XS(_wrap_gsl_vector_complex_set_all)6400 XS(_wrap_gsl_vector_complex_set_all) {
6401 {
6402 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6403 gsl_complex arg2 ;
6404 void *argp1 = 0 ;
6405 int res1 = 0 ;
6406 void *argp2 ;
6407 int res2 = 0 ;
6408 int argvi = 0;
6409 dXSARGS;
6410
6411 if ((items < 2) || (items > 2)) {
6412 SWIG_croak("Usage: gsl_vector_complex_set_all(v,z);");
6413 }
6414 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6415 if (!SWIG_IsOK(res1)) {
6416 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_set_all" "', argument " "1"" of type '" "gsl_vector_complex *""'");
6417 }
6418 arg1 = (gsl_vector_complex *)(argp1);
6419 {
6420 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
6421 if (!SWIG_IsOK(res2)) {
6422 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_complex_set_all" "', argument " "2"" of type '" "gsl_complex""'");
6423 }
6424 if (!argp2) {
6425 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_vector_complex_set_all" "', argument " "2"" of type '" "gsl_complex""'");
6426 } else {
6427 arg2 = *((gsl_complex *)(argp2));
6428 }
6429 }
6430 gsl_vector_complex_set_all(arg1,arg2);
6431 ST(argvi) = &PL_sv_undef;
6432
6433 XSRETURN(argvi);
6434 fail:
6435
6436 SWIG_croak_null();
6437 }
6438 }
6439
6440
XS(_wrap_gsl_vector_complex_set_basis)6441 XS(_wrap_gsl_vector_complex_set_basis) {
6442 {
6443 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6444 size_t arg2 ;
6445 void *argp1 = 0 ;
6446 int res1 = 0 ;
6447 size_t val2 ;
6448 int ecode2 = 0 ;
6449 int argvi = 0;
6450 int result;
6451 dXSARGS;
6452
6453 if ((items < 2) || (items > 2)) {
6454 SWIG_croak("Usage: gsl_vector_complex_set_basis(v,i);");
6455 }
6456 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6457 if (!SWIG_IsOK(res1)) {
6458 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_set_basis" "', argument " "1"" of type '" "gsl_vector_complex *""'");
6459 }
6460 arg1 = (gsl_vector_complex *)(argp1);
6461 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6462 if (!SWIG_IsOK(ecode2)) {
6463 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_complex_set_basis" "', argument " "2"" of type '" "size_t""'");
6464 }
6465 arg2 = (size_t)(val2);
6466 result = (int)gsl_vector_complex_set_basis(arg1,arg2);
6467 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6468
6469
6470 XSRETURN(argvi);
6471 fail:
6472
6473
6474 SWIG_croak_null();
6475 }
6476 }
6477
6478
XS(_wrap_gsl_vector_complex_fread)6479 XS(_wrap_gsl_vector_complex_fread) {
6480 {
6481 FILE *arg1 = (FILE *) 0 ;
6482 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
6483 void *argp1 = 0 ;
6484 int res1 = 0 ;
6485 void *argp2 = 0 ;
6486 int res2 = 0 ;
6487 int argvi = 0;
6488 int result;
6489 dXSARGS;
6490
6491 if ((items < 2) || (items > 2)) {
6492 SWIG_croak("Usage: gsl_vector_complex_fread(stream,v);");
6493 }
6494 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
6495 if (!SWIG_IsOK(res1)) {
6496 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_fread" "', argument " "1"" of type '" "FILE *""'");
6497 }
6498 arg1 = (FILE *)(argp1);
6499 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6500 if (!SWIG_IsOK(res2)) {
6501 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_complex_fread" "', argument " "2"" of type '" "gsl_vector_complex *""'");
6502 }
6503 arg2 = (gsl_vector_complex *)(argp2);
6504 result = (int)gsl_vector_complex_fread(arg1,arg2);
6505 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6506
6507
6508 XSRETURN(argvi);
6509 fail:
6510
6511
6512 SWIG_croak_null();
6513 }
6514 }
6515
6516
XS(_wrap_gsl_vector_complex_fwrite)6517 XS(_wrap_gsl_vector_complex_fwrite) {
6518 {
6519 FILE *arg1 = (FILE *) 0 ;
6520 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
6521 void *argp1 = 0 ;
6522 int res1 = 0 ;
6523 void *argp2 = 0 ;
6524 int res2 = 0 ;
6525 int argvi = 0;
6526 int result;
6527 dXSARGS;
6528
6529 if ((items < 2) || (items > 2)) {
6530 SWIG_croak("Usage: gsl_vector_complex_fwrite(stream,v);");
6531 }
6532 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
6533 if (!SWIG_IsOK(res1)) {
6534 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_fwrite" "', argument " "1"" of type '" "FILE *""'");
6535 }
6536 arg1 = (FILE *)(argp1);
6537 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6538 if (!SWIG_IsOK(res2)) {
6539 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_complex_fwrite" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
6540 }
6541 arg2 = (gsl_vector_complex *)(argp2);
6542 result = (int)gsl_vector_complex_fwrite(arg1,(gsl_vector_complex const *)arg2);
6543 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6544
6545
6546 XSRETURN(argvi);
6547 fail:
6548
6549
6550 SWIG_croak_null();
6551 }
6552 }
6553
6554
XS(_wrap_gsl_vector_complex_fscanf)6555 XS(_wrap_gsl_vector_complex_fscanf) {
6556 {
6557 FILE *arg1 = (FILE *) 0 ;
6558 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
6559 void *argp1 = 0 ;
6560 int res1 = 0 ;
6561 void *argp2 = 0 ;
6562 int res2 = 0 ;
6563 int argvi = 0;
6564 int result;
6565 dXSARGS;
6566
6567 if ((items < 2) || (items > 2)) {
6568 SWIG_croak("Usage: gsl_vector_complex_fscanf(stream,v);");
6569 }
6570 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
6571 if (!SWIG_IsOK(res1)) {
6572 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_fscanf" "', argument " "1"" of type '" "FILE *""'");
6573 }
6574 arg1 = (FILE *)(argp1);
6575 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6576 if (!SWIG_IsOK(res2)) {
6577 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_complex_fscanf" "', argument " "2"" of type '" "gsl_vector_complex *""'");
6578 }
6579 arg2 = (gsl_vector_complex *)(argp2);
6580 result = (int)gsl_vector_complex_fscanf(arg1,arg2);
6581 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6582
6583
6584 XSRETURN(argvi);
6585 fail:
6586
6587
6588 SWIG_croak_null();
6589 }
6590 }
6591
6592
XS(_wrap_gsl_vector_complex_fprintf)6593 XS(_wrap_gsl_vector_complex_fprintf) {
6594 {
6595 FILE *arg1 = (FILE *) 0 ;
6596 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
6597 char *arg3 = (char *) 0 ;
6598 void *argp1 = 0 ;
6599 int res1 = 0 ;
6600 void *argp2 = 0 ;
6601 int res2 = 0 ;
6602 int res3 ;
6603 char *buf3 = 0 ;
6604 int alloc3 = 0 ;
6605 int argvi = 0;
6606 int result;
6607 dXSARGS;
6608
6609 if ((items < 3) || (items > 3)) {
6610 SWIG_croak("Usage: gsl_vector_complex_fprintf(stream,v,format);");
6611 }
6612 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
6613 if (!SWIG_IsOK(res1)) {
6614 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_fprintf" "', argument " "1"" of type '" "FILE *""'");
6615 }
6616 arg1 = (FILE *)(argp1);
6617 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6618 if (!SWIG_IsOK(res2)) {
6619 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_complex_fprintf" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
6620 }
6621 arg2 = (gsl_vector_complex *)(argp2);
6622 res3 = SWIG_AsCharPtrAndSize(ST(2), &buf3, NULL, &alloc3);
6623 if (!SWIG_IsOK(res3)) {
6624 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_vector_complex_fprintf" "', argument " "3"" of type '" "char const *""'");
6625 }
6626 arg3 = (char *)(buf3);
6627 result = (int)gsl_vector_complex_fprintf(arg1,(gsl_vector_complex const *)arg2,(char const *)arg3);
6628 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6629
6630
6631 if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
6632 XSRETURN(argvi);
6633 fail:
6634
6635
6636 if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
6637 SWIG_croak_null();
6638 }
6639 }
6640
6641
XS(_wrap_gsl_vector_complex_memcpy)6642 XS(_wrap_gsl_vector_complex_memcpy) {
6643 {
6644 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6645 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
6646 void *argp1 = 0 ;
6647 int res1 = 0 ;
6648 void *argp2 = 0 ;
6649 int res2 = 0 ;
6650 int argvi = 0;
6651 int result;
6652 dXSARGS;
6653
6654 if ((items < 2) || (items > 2)) {
6655 SWIG_croak("Usage: gsl_vector_complex_memcpy(dest,src);");
6656 }
6657 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6658 if (!SWIG_IsOK(res1)) {
6659 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_memcpy" "', argument " "1"" of type '" "gsl_vector_complex *""'");
6660 }
6661 arg1 = (gsl_vector_complex *)(argp1);
6662 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6663 if (!SWIG_IsOK(res2)) {
6664 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_complex_memcpy" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
6665 }
6666 arg2 = (gsl_vector_complex *)(argp2);
6667 result = (int)gsl_vector_complex_memcpy(arg1,(gsl_vector_complex const *)arg2);
6668 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6669
6670
6671 XSRETURN(argvi);
6672 fail:
6673
6674
6675 SWIG_croak_null();
6676 }
6677 }
6678
6679
XS(_wrap_gsl_vector_complex_reverse)6680 XS(_wrap_gsl_vector_complex_reverse) {
6681 {
6682 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6683 void *argp1 = 0 ;
6684 int res1 = 0 ;
6685 int argvi = 0;
6686 int result;
6687 dXSARGS;
6688
6689 if ((items < 1) || (items > 1)) {
6690 SWIG_croak("Usage: gsl_vector_complex_reverse(v);");
6691 }
6692 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6693 if (!SWIG_IsOK(res1)) {
6694 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_reverse" "', argument " "1"" of type '" "gsl_vector_complex *""'");
6695 }
6696 arg1 = (gsl_vector_complex *)(argp1);
6697 result = (int)gsl_vector_complex_reverse(arg1);
6698 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6699
6700 XSRETURN(argvi);
6701 fail:
6702
6703 SWIG_croak_null();
6704 }
6705 }
6706
6707
XS(_wrap_gsl_vector_complex_swap)6708 XS(_wrap_gsl_vector_complex_swap) {
6709 {
6710 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6711 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
6712 void *argp1 = 0 ;
6713 int res1 = 0 ;
6714 void *argp2 = 0 ;
6715 int res2 = 0 ;
6716 int argvi = 0;
6717 int result;
6718 dXSARGS;
6719
6720 if ((items < 2) || (items > 2)) {
6721 SWIG_croak("Usage: gsl_vector_complex_swap(v,w);");
6722 }
6723 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6724 if (!SWIG_IsOK(res1)) {
6725 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_swap" "', argument " "1"" of type '" "gsl_vector_complex *""'");
6726 }
6727 arg1 = (gsl_vector_complex *)(argp1);
6728 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6729 if (!SWIG_IsOK(res2)) {
6730 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_complex_swap" "', argument " "2"" of type '" "gsl_vector_complex *""'");
6731 }
6732 arg2 = (gsl_vector_complex *)(argp2);
6733 result = (int)gsl_vector_complex_swap(arg1,arg2);
6734 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6735
6736
6737 XSRETURN(argvi);
6738 fail:
6739
6740
6741 SWIG_croak_null();
6742 }
6743 }
6744
6745
XS(_wrap_gsl_vector_complex_swap_elements)6746 XS(_wrap_gsl_vector_complex_swap_elements) {
6747 {
6748 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6749 size_t arg2 ;
6750 size_t arg3 ;
6751 void *argp1 = 0 ;
6752 int res1 = 0 ;
6753 size_t val2 ;
6754 int ecode2 = 0 ;
6755 size_t val3 ;
6756 int ecode3 = 0 ;
6757 int argvi = 0;
6758 int result;
6759 dXSARGS;
6760
6761 if ((items < 3) || (items > 3)) {
6762 SWIG_croak("Usage: gsl_vector_complex_swap_elements(v,i,j);");
6763 }
6764 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6765 if (!SWIG_IsOK(res1)) {
6766 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_swap_elements" "', argument " "1"" of type '" "gsl_vector_complex *""'");
6767 }
6768 arg1 = (gsl_vector_complex *)(argp1);
6769 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6770 if (!SWIG_IsOK(ecode2)) {
6771 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_complex_swap_elements" "', argument " "2"" of type '" "size_t""'");
6772 }
6773 arg2 = (size_t)(val2);
6774 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
6775 if (!SWIG_IsOK(ecode3)) {
6776 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_complex_swap_elements" "', argument " "3"" of type '" "size_t""'");
6777 }
6778 arg3 = (size_t)(val3);
6779 result = (int)gsl_vector_complex_swap_elements(arg1,arg2,arg3);
6780 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6781
6782
6783
6784 XSRETURN(argvi);
6785 fail:
6786
6787
6788
6789 SWIG_croak_null();
6790 }
6791 }
6792
6793
XS(_wrap_gsl_vector_complex_equal)6794 XS(_wrap_gsl_vector_complex_equal) {
6795 {
6796 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6797 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
6798 void *argp1 = 0 ;
6799 int res1 = 0 ;
6800 void *argp2 = 0 ;
6801 int res2 = 0 ;
6802 int argvi = 0;
6803 int result;
6804 dXSARGS;
6805
6806 if ((items < 2) || (items > 2)) {
6807 SWIG_croak("Usage: gsl_vector_complex_equal(u,v);");
6808 }
6809 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6810 if (!SWIG_IsOK(res1)) {
6811 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_equal" "', argument " "1"" of type '" "gsl_vector_complex const *""'");
6812 }
6813 arg1 = (gsl_vector_complex *)(argp1);
6814 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6815 if (!SWIG_IsOK(res2)) {
6816 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_complex_equal" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
6817 }
6818 arg2 = (gsl_vector_complex *)(argp2);
6819 result = (int)gsl_vector_complex_equal((gsl_vector_complex const *)arg1,(gsl_vector_complex const *)arg2);
6820 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6821
6822
6823 XSRETURN(argvi);
6824 fail:
6825
6826
6827 SWIG_croak_null();
6828 }
6829 }
6830
6831
XS(_wrap_gsl_vector_complex_isnull)6832 XS(_wrap_gsl_vector_complex_isnull) {
6833 {
6834 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6835 void *argp1 = 0 ;
6836 int res1 = 0 ;
6837 int argvi = 0;
6838 int result;
6839 dXSARGS;
6840
6841 if ((items < 1) || (items > 1)) {
6842 SWIG_croak("Usage: gsl_vector_complex_isnull(v);");
6843 }
6844 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6845 if (!SWIG_IsOK(res1)) {
6846 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_isnull" "', argument " "1"" of type '" "gsl_vector_complex const *""'");
6847 }
6848 arg1 = (gsl_vector_complex *)(argp1);
6849 result = (int)gsl_vector_complex_isnull((gsl_vector_complex const *)arg1);
6850 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6851
6852 XSRETURN(argvi);
6853 fail:
6854
6855 SWIG_croak_null();
6856 }
6857 }
6858
6859
XS(_wrap_gsl_vector_complex_ispos)6860 XS(_wrap_gsl_vector_complex_ispos) {
6861 {
6862 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6863 void *argp1 = 0 ;
6864 int res1 = 0 ;
6865 int argvi = 0;
6866 int result;
6867 dXSARGS;
6868
6869 if ((items < 1) || (items > 1)) {
6870 SWIG_croak("Usage: gsl_vector_complex_ispos(v);");
6871 }
6872 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6873 if (!SWIG_IsOK(res1)) {
6874 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_ispos" "', argument " "1"" of type '" "gsl_vector_complex const *""'");
6875 }
6876 arg1 = (gsl_vector_complex *)(argp1);
6877 result = (int)gsl_vector_complex_ispos((gsl_vector_complex const *)arg1);
6878 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6879
6880 XSRETURN(argvi);
6881 fail:
6882
6883 SWIG_croak_null();
6884 }
6885 }
6886
6887
XS(_wrap_gsl_vector_complex_isneg)6888 XS(_wrap_gsl_vector_complex_isneg) {
6889 {
6890 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6891 void *argp1 = 0 ;
6892 int res1 = 0 ;
6893 int argvi = 0;
6894 int result;
6895 dXSARGS;
6896
6897 if ((items < 1) || (items > 1)) {
6898 SWIG_croak("Usage: gsl_vector_complex_isneg(v);");
6899 }
6900 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6901 if (!SWIG_IsOK(res1)) {
6902 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_isneg" "', argument " "1"" of type '" "gsl_vector_complex const *""'");
6903 }
6904 arg1 = (gsl_vector_complex *)(argp1);
6905 result = (int)gsl_vector_complex_isneg((gsl_vector_complex const *)arg1);
6906 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6907
6908 XSRETURN(argvi);
6909 fail:
6910
6911 SWIG_croak_null();
6912 }
6913 }
6914
6915
XS(_wrap_gsl_vector_complex_isnonneg)6916 XS(_wrap_gsl_vector_complex_isnonneg) {
6917 {
6918 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6919 void *argp1 = 0 ;
6920 int res1 = 0 ;
6921 int argvi = 0;
6922 int result;
6923 dXSARGS;
6924
6925 if ((items < 1) || (items > 1)) {
6926 SWIG_croak("Usage: gsl_vector_complex_isnonneg(v);");
6927 }
6928 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6929 if (!SWIG_IsOK(res1)) {
6930 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_isnonneg" "', argument " "1"" of type '" "gsl_vector_complex const *""'");
6931 }
6932 arg1 = (gsl_vector_complex *)(argp1);
6933 result = (int)gsl_vector_complex_isnonneg((gsl_vector_complex const *)arg1);
6934 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6935
6936 XSRETURN(argvi);
6937 fail:
6938
6939 SWIG_croak_null();
6940 }
6941 }
6942
6943
XS(_wrap_gsl_vector_complex_add)6944 XS(_wrap_gsl_vector_complex_add) {
6945 {
6946 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6947 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
6948 void *argp1 = 0 ;
6949 int res1 = 0 ;
6950 void *argp2 = 0 ;
6951 int res2 = 0 ;
6952 int argvi = 0;
6953 int result;
6954 dXSARGS;
6955
6956 if ((items < 2) || (items > 2)) {
6957 SWIG_croak("Usage: gsl_vector_complex_add(a,b);");
6958 }
6959 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6960 if (!SWIG_IsOK(res1)) {
6961 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_add" "', argument " "1"" of type '" "gsl_vector_complex *""'");
6962 }
6963 arg1 = (gsl_vector_complex *)(argp1);
6964 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6965 if (!SWIG_IsOK(res2)) {
6966 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_complex_add" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
6967 }
6968 arg2 = (gsl_vector_complex *)(argp2);
6969 result = (int)gsl_vector_complex_add(arg1,(gsl_vector_complex const *)arg2);
6970 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6971
6972
6973 XSRETURN(argvi);
6974 fail:
6975
6976
6977 SWIG_croak_null();
6978 }
6979 }
6980
6981
XS(_wrap_gsl_vector_complex_sub)6982 XS(_wrap_gsl_vector_complex_sub) {
6983 {
6984 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
6985 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
6986 void *argp1 = 0 ;
6987 int res1 = 0 ;
6988 void *argp2 = 0 ;
6989 int res2 = 0 ;
6990 int argvi = 0;
6991 int result;
6992 dXSARGS;
6993
6994 if ((items < 2) || (items > 2)) {
6995 SWIG_croak("Usage: gsl_vector_complex_sub(a,b);");
6996 }
6997 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6998 if (!SWIG_IsOK(res1)) {
6999 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_sub" "', argument " "1"" of type '" "gsl_vector_complex *""'");
7000 }
7001 arg1 = (gsl_vector_complex *)(argp1);
7002 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7003 if (!SWIG_IsOK(res2)) {
7004 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_complex_sub" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
7005 }
7006 arg2 = (gsl_vector_complex *)(argp2);
7007 result = (int)gsl_vector_complex_sub(arg1,(gsl_vector_complex const *)arg2);
7008 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7009
7010
7011 XSRETURN(argvi);
7012 fail:
7013
7014
7015 SWIG_croak_null();
7016 }
7017 }
7018
7019
XS(_wrap_gsl_vector_complex_mul)7020 XS(_wrap_gsl_vector_complex_mul) {
7021 {
7022 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
7023 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
7024 void *argp1 = 0 ;
7025 int res1 = 0 ;
7026 void *argp2 = 0 ;
7027 int res2 = 0 ;
7028 int argvi = 0;
7029 int result;
7030 dXSARGS;
7031
7032 if ((items < 2) || (items > 2)) {
7033 SWIG_croak("Usage: gsl_vector_complex_mul(a,b);");
7034 }
7035 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7036 if (!SWIG_IsOK(res1)) {
7037 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_mul" "', argument " "1"" of type '" "gsl_vector_complex *""'");
7038 }
7039 arg1 = (gsl_vector_complex *)(argp1);
7040 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7041 if (!SWIG_IsOK(res2)) {
7042 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_complex_mul" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
7043 }
7044 arg2 = (gsl_vector_complex *)(argp2);
7045 result = (int)gsl_vector_complex_mul(arg1,(gsl_vector_complex const *)arg2);
7046 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7047
7048
7049 XSRETURN(argvi);
7050 fail:
7051
7052
7053 SWIG_croak_null();
7054 }
7055 }
7056
7057
XS(_wrap_gsl_vector_complex_div)7058 XS(_wrap_gsl_vector_complex_div) {
7059 {
7060 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
7061 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
7062 void *argp1 = 0 ;
7063 int res1 = 0 ;
7064 void *argp2 = 0 ;
7065 int res2 = 0 ;
7066 int argvi = 0;
7067 int result;
7068 dXSARGS;
7069
7070 if ((items < 2) || (items > 2)) {
7071 SWIG_croak("Usage: gsl_vector_complex_div(a,b);");
7072 }
7073 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7074 if (!SWIG_IsOK(res1)) {
7075 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_div" "', argument " "1"" of type '" "gsl_vector_complex *""'");
7076 }
7077 arg1 = (gsl_vector_complex *)(argp1);
7078 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7079 if (!SWIG_IsOK(res2)) {
7080 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_complex_div" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
7081 }
7082 arg2 = (gsl_vector_complex *)(argp2);
7083 result = (int)gsl_vector_complex_div(arg1,(gsl_vector_complex const *)arg2);
7084 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7085
7086
7087 XSRETURN(argvi);
7088 fail:
7089
7090
7091 SWIG_croak_null();
7092 }
7093 }
7094
7095
XS(_wrap_gsl_vector_complex_scale)7096 XS(_wrap_gsl_vector_complex_scale) {
7097 {
7098 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
7099 gsl_complex arg2 ;
7100 void *argp1 = 0 ;
7101 int res1 = 0 ;
7102 void *argp2 ;
7103 int res2 = 0 ;
7104 int argvi = 0;
7105 int result;
7106 dXSARGS;
7107
7108 if ((items < 2) || (items > 2)) {
7109 SWIG_croak("Usage: gsl_vector_complex_scale(a,x);");
7110 }
7111 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7112 if (!SWIG_IsOK(res1)) {
7113 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_scale" "', argument " "1"" of type '" "gsl_vector_complex *""'");
7114 }
7115 arg1 = (gsl_vector_complex *)(argp1);
7116 {
7117 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
7118 if (!SWIG_IsOK(res2)) {
7119 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_complex_scale" "', argument " "2"" of type '" "gsl_complex const""'");
7120 }
7121 if (!argp2) {
7122 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_vector_complex_scale" "', argument " "2"" of type '" "gsl_complex const""'");
7123 } else {
7124 arg2 = *((gsl_complex *)(argp2));
7125 }
7126 }
7127 result = (int)gsl_vector_complex_scale(arg1,arg2);
7128 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7129
7130 XSRETURN(argvi);
7131 fail:
7132
7133 SWIG_croak_null();
7134 }
7135 }
7136
7137
XS(_wrap_gsl_vector_complex_add_constant)7138 XS(_wrap_gsl_vector_complex_add_constant) {
7139 {
7140 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
7141 gsl_complex arg2 ;
7142 void *argp1 = 0 ;
7143 int res1 = 0 ;
7144 void *argp2 ;
7145 int res2 = 0 ;
7146 int argvi = 0;
7147 int result;
7148 dXSARGS;
7149
7150 if ((items < 2) || (items > 2)) {
7151 SWIG_croak("Usage: gsl_vector_complex_add_constant(a,x);");
7152 }
7153 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7154 if (!SWIG_IsOK(res1)) {
7155 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_add_constant" "', argument " "1"" of type '" "gsl_vector_complex *""'");
7156 }
7157 arg1 = (gsl_vector_complex *)(argp1);
7158 {
7159 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
7160 if (!SWIG_IsOK(res2)) {
7161 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_complex_add_constant" "', argument " "2"" of type '" "gsl_complex const""'");
7162 }
7163 if (!argp2) {
7164 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_vector_complex_add_constant" "', argument " "2"" of type '" "gsl_complex const""'");
7165 } else {
7166 arg2 = *((gsl_complex *)(argp2));
7167 }
7168 }
7169 result = (int)gsl_vector_complex_add_constant(arg1,arg2);
7170 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7171
7172 XSRETURN(argvi);
7173 fail:
7174
7175 SWIG_croak_null();
7176 }
7177 }
7178
7179
XS(_wrap_gsl_vector_complex_get)7180 XS(_wrap_gsl_vector_complex_get) {
7181 {
7182 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
7183 size_t arg2 ;
7184 void *argp1 = 0 ;
7185 int res1 = 0 ;
7186 size_t val2 ;
7187 int ecode2 = 0 ;
7188 int argvi = 0;
7189 gsl_complex result;
7190 dXSARGS;
7191
7192 if ((items < 2) || (items > 2)) {
7193 SWIG_croak("Usage: gsl_vector_complex_get(v,i);");
7194 }
7195 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7196 if (!SWIG_IsOK(res1)) {
7197 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_get" "', argument " "1"" of type '" "gsl_vector_complex const *""'");
7198 }
7199 arg1 = (gsl_vector_complex *)(argp1);
7200 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7201 if (!SWIG_IsOK(ecode2)) {
7202 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_complex_get" "', argument " "2"" of type '" "size_t""'");
7203 }
7204 arg2 = (size_t)(val2);
7205 result = gsl_vector_complex_get((gsl_vector_complex const *)arg1,arg2);
7206 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++ ;
7207
7208
7209 XSRETURN(argvi);
7210 fail:
7211
7212
7213 SWIG_croak_null();
7214 }
7215 }
7216
7217
XS(_wrap_gsl_vector_complex_set)7218 XS(_wrap_gsl_vector_complex_set) {
7219 {
7220 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
7221 size_t arg2 ;
7222 gsl_complex arg3 ;
7223 void *argp1 = 0 ;
7224 int res1 = 0 ;
7225 size_t val2 ;
7226 int ecode2 = 0 ;
7227 void *argp3 ;
7228 int res3 = 0 ;
7229 int argvi = 0;
7230 dXSARGS;
7231
7232 if ((items < 3) || (items > 3)) {
7233 SWIG_croak("Usage: gsl_vector_complex_set(v,i,z);");
7234 }
7235 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7236 if (!SWIG_IsOK(res1)) {
7237 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_set" "', argument " "1"" of type '" "gsl_vector_complex *""'");
7238 }
7239 arg1 = (gsl_vector_complex *)(argp1);
7240 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7241 if (!SWIG_IsOK(ecode2)) {
7242 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_complex_set" "', argument " "2"" of type '" "size_t""'");
7243 }
7244 arg2 = (size_t)(val2);
7245 {
7246 res3 = SWIG_ConvertPtr(ST(2), &argp3, SWIGTYPE_p_gsl_complex, 0 );
7247 if (!SWIG_IsOK(res3)) {
7248 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_vector_complex_set" "', argument " "3"" of type '" "gsl_complex""'");
7249 }
7250 if (!argp3) {
7251 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_vector_complex_set" "', argument " "3"" of type '" "gsl_complex""'");
7252 } else {
7253 arg3 = *((gsl_complex *)(argp3));
7254 }
7255 }
7256 gsl_vector_complex_set(arg1,arg2,arg3);
7257 ST(argvi) = &PL_sv_undef;
7258
7259
7260 XSRETURN(argvi);
7261 fail:
7262
7263
7264 SWIG_croak_null();
7265 }
7266 }
7267
7268
XS(_wrap_gsl_vector_complex_ptr)7269 XS(_wrap_gsl_vector_complex_ptr) {
7270 {
7271 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
7272 size_t arg2 ;
7273 void *argp1 = 0 ;
7274 int res1 = 0 ;
7275 size_t val2 ;
7276 int ecode2 = 0 ;
7277 int argvi = 0;
7278 gsl_complex *result = 0 ;
7279 dXSARGS;
7280
7281 if ((items < 2) || (items > 2)) {
7282 SWIG_croak("Usage: gsl_vector_complex_ptr(v,i);");
7283 }
7284 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7285 if (!SWIG_IsOK(res1)) {
7286 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_ptr" "', argument " "1"" of type '" "gsl_vector_complex *""'");
7287 }
7288 arg1 = (gsl_vector_complex *)(argp1);
7289 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7290 if (!SWIG_IsOK(ecode2)) {
7291 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_complex_ptr" "', argument " "2"" of type '" "size_t""'");
7292 }
7293 arg2 = (size_t)(val2);
7294 result = (gsl_complex *)gsl_vector_complex_ptr(arg1,arg2);
7295 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_complex, 0 | 0); argvi++ ;
7296
7297
7298 XSRETURN(argvi);
7299 fail:
7300
7301
7302 SWIG_croak_null();
7303 }
7304 }
7305
7306
XS(_wrap_gsl_vector_complex_const_ptr)7307 XS(_wrap_gsl_vector_complex_const_ptr) {
7308 {
7309 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
7310 size_t arg2 ;
7311 void *argp1 = 0 ;
7312 int res1 = 0 ;
7313 size_t val2 ;
7314 int ecode2 = 0 ;
7315 int argvi = 0;
7316 gsl_complex *result = 0 ;
7317 dXSARGS;
7318
7319 if ((items < 2) || (items > 2)) {
7320 SWIG_croak("Usage: gsl_vector_complex_const_ptr(v,i);");
7321 }
7322 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7323 if (!SWIG_IsOK(res1)) {
7324 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_complex_const_ptr" "', argument " "1"" of type '" "gsl_vector_complex const *""'");
7325 }
7326 arg1 = (gsl_vector_complex *)(argp1);
7327 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7328 if (!SWIG_IsOK(ecode2)) {
7329 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_complex_const_ptr" "', argument " "2"" of type '" "size_t""'");
7330 }
7331 arg2 = (size_t)(val2);
7332 result = (gsl_complex *)gsl_vector_complex_const_ptr((gsl_vector_complex const *)arg1,arg2);
7333 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_complex, 0 | 0); argvi++ ;
7334
7335
7336 XSRETURN(argvi);
7337 fail:
7338
7339
7340 SWIG_croak_null();
7341 }
7342 }
7343
7344
XS(_wrap_gsl_vector_size_set)7345 XS(_wrap_gsl_vector_size_set) {
7346 {
7347 gsl_vector *arg1 = (gsl_vector *) 0 ;
7348 size_t arg2 ;
7349 void *argp1 = 0 ;
7350 int res1 = 0 ;
7351 size_t val2 ;
7352 int ecode2 = 0 ;
7353 int argvi = 0;
7354 dXSARGS;
7355
7356 if ((items < 2) || (items > 2)) {
7357 SWIG_croak("Usage: gsl_vector_size_set(self,size);");
7358 }
7359 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7360 if (!SWIG_IsOK(res1)) {
7361 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_size_set" "', argument " "1"" of type '" "gsl_vector *""'");
7362 }
7363 arg1 = (gsl_vector *)(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_size_set" "', argument " "2"" of type '" "size_t""'");
7367 }
7368 arg2 = (size_t)(val2);
7369 if (arg1) (arg1)->size = arg2;
7370 ST(argvi) = &PL_sv_undef;
7371
7372
7373 XSRETURN(argvi);
7374 fail:
7375
7376
7377 SWIG_croak_null();
7378 }
7379 }
7380
7381
XS(_wrap_gsl_vector_size_get)7382 XS(_wrap_gsl_vector_size_get) {
7383 {
7384 gsl_vector *arg1 = (gsl_vector *) 0 ;
7385 void *argp1 = 0 ;
7386 int res1 = 0 ;
7387 int argvi = 0;
7388 size_t result;
7389 dXSARGS;
7390
7391 if ((items < 1) || (items > 1)) {
7392 SWIG_croak("Usage: gsl_vector_size_get(self);");
7393 }
7394 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7395 if (!SWIG_IsOK(res1)) {
7396 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_size_get" "', argument " "1"" of type '" "gsl_vector *""'");
7397 }
7398 arg1 = (gsl_vector *)(argp1);
7399 result = ((arg1)->size);
7400 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
7401
7402 XSRETURN(argvi);
7403 fail:
7404
7405 SWIG_croak_null();
7406 }
7407 }
7408
7409
XS(_wrap_gsl_vector_stride_set)7410 XS(_wrap_gsl_vector_stride_set) {
7411 {
7412 gsl_vector *arg1 = (gsl_vector *) 0 ;
7413 size_t arg2 ;
7414 void *argp1 = 0 ;
7415 int res1 = 0 ;
7416 size_t val2 ;
7417 int ecode2 = 0 ;
7418 int argvi = 0;
7419 dXSARGS;
7420
7421 if ((items < 2) || (items > 2)) {
7422 SWIG_croak("Usage: gsl_vector_stride_set(self,stride);");
7423 }
7424 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7425 if (!SWIG_IsOK(res1)) {
7426 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_stride_set" "', argument " "1"" of type '" "gsl_vector *""'");
7427 }
7428 arg1 = (gsl_vector *)(argp1);
7429 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7430 if (!SWIG_IsOK(ecode2)) {
7431 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_stride_set" "', argument " "2"" of type '" "size_t""'");
7432 }
7433 arg2 = (size_t)(val2);
7434 if (arg1) (arg1)->stride = arg2;
7435 ST(argvi) = &PL_sv_undef;
7436
7437
7438 XSRETURN(argvi);
7439 fail:
7440
7441
7442 SWIG_croak_null();
7443 }
7444 }
7445
7446
XS(_wrap_gsl_vector_stride_get)7447 XS(_wrap_gsl_vector_stride_get) {
7448 {
7449 gsl_vector *arg1 = (gsl_vector *) 0 ;
7450 void *argp1 = 0 ;
7451 int res1 = 0 ;
7452 int argvi = 0;
7453 size_t result;
7454 dXSARGS;
7455
7456 if ((items < 1) || (items > 1)) {
7457 SWIG_croak("Usage: gsl_vector_stride_get(self);");
7458 }
7459 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7460 if (!SWIG_IsOK(res1)) {
7461 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_stride_get" "', argument " "1"" of type '" "gsl_vector *""'");
7462 }
7463 arg1 = (gsl_vector *)(argp1);
7464 result = ((arg1)->stride);
7465 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
7466
7467 XSRETURN(argvi);
7468 fail:
7469
7470 SWIG_croak_null();
7471 }
7472 }
7473
7474
XS(_wrap_gsl_vector_data_set)7475 XS(_wrap_gsl_vector_data_set) {
7476 {
7477 gsl_vector *arg1 = (gsl_vector *) 0 ;
7478 double *arg2 = (double *) 0 ;
7479 void *argp1 = 0 ;
7480 int res1 = 0 ;
7481 int argvi = 0;
7482 dXSARGS;
7483
7484 if ((items < 2) || (items > 2)) {
7485 SWIG_croak("Usage: gsl_vector_data_set(self,data);");
7486 }
7487 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7488 if (!SWIG_IsOK(res1)) {
7489 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_data_set" "', argument " "1"" of type '" "gsl_vector *""'");
7490 }
7491 arg1 = (gsl_vector *)(argp1);
7492 {
7493 AV *tempav;
7494 I32 len;
7495 int i;
7496 SV **tv;
7497 if (!SvROK(ST(1)))
7498 croak("Math::GSL : $data is not a reference!");
7499 if (SvTYPE(SvRV(ST(1))) != SVt_PVAV)
7500 croak("Math::GSL : $data is not an array ref!");
7501
7502 tempav = (AV*)SvRV(ST(1));
7503 len = av_len(tempav);
7504 arg2 = (double *) malloc((len+2)*sizeof(double));
7505 for (i = 0; i <= len; i++) {
7506 tv = av_fetch(tempav, i, 0);
7507 arg2[i] = (double) SvNV(*tv);
7508 }
7509 }
7510 if (arg1) (arg1)->data = arg2;
7511 ST(argvi) = &PL_sv_undef;
7512
7513 {
7514 if (arg2) free(arg2);
7515 }
7516 XSRETURN(argvi);
7517 fail:
7518
7519 {
7520 if (arg2) free(arg2);
7521 }
7522 SWIG_croak_null();
7523 }
7524 }
7525
7526
XS(_wrap_gsl_vector_data_get)7527 XS(_wrap_gsl_vector_data_get) {
7528 {
7529 gsl_vector *arg1 = (gsl_vector *) 0 ;
7530 void *argp1 = 0 ;
7531 int res1 = 0 ;
7532 int argvi = 0;
7533 double *result = 0 ;
7534 dXSARGS;
7535
7536 if ((items < 1) || (items > 1)) {
7537 SWIG_croak("Usage: gsl_vector_data_get(self);");
7538 }
7539 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7540 if (!SWIG_IsOK(res1)) {
7541 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_data_get" "', argument " "1"" of type '" "gsl_vector *""'");
7542 }
7543 arg1 = (gsl_vector *)(argp1);
7544 result = (double *) ((arg1)->data);
7545 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
7546
7547 XSRETURN(argvi);
7548 fail:
7549
7550 SWIG_croak_null();
7551 }
7552 }
7553
7554
XS(_wrap_gsl_vector_block_set)7555 XS(_wrap_gsl_vector_block_set) {
7556 {
7557 gsl_vector *arg1 = (gsl_vector *) 0 ;
7558 gsl_block *arg2 = (gsl_block *) 0 ;
7559 void *argp1 = 0 ;
7560 int res1 = 0 ;
7561 void *argp2 = 0 ;
7562 int res2 = 0 ;
7563 int argvi = 0;
7564 dXSARGS;
7565
7566 if ((items < 2) || (items > 2)) {
7567 SWIG_croak("Usage: gsl_vector_block_set(self,block);");
7568 }
7569 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7570 if (!SWIG_IsOK(res1)) {
7571 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_block_set" "', argument " "1"" of type '" "gsl_vector *""'");
7572 }
7573 arg1 = (gsl_vector *)(argp1);
7574 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_block, SWIG_POINTER_DISOWN | 0 );
7575 if (!SWIG_IsOK(res2)) {
7576 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_block_set" "', argument " "2"" of type '" "gsl_block *""'");
7577 }
7578 arg2 = (gsl_block *)(argp2);
7579 if (arg1) (arg1)->block = arg2;
7580 ST(argvi) = &PL_sv_undef;
7581
7582
7583 XSRETURN(argvi);
7584 fail:
7585
7586
7587 SWIG_croak_null();
7588 }
7589 }
7590
7591
XS(_wrap_gsl_vector_block_get)7592 XS(_wrap_gsl_vector_block_get) {
7593 {
7594 gsl_vector *arg1 = (gsl_vector *) 0 ;
7595 void *argp1 = 0 ;
7596 int res1 = 0 ;
7597 int argvi = 0;
7598 gsl_block *result = 0 ;
7599 dXSARGS;
7600
7601 if ((items < 1) || (items > 1)) {
7602 SWIG_croak("Usage: gsl_vector_block_get(self);");
7603 }
7604 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7605 if (!SWIG_IsOK(res1)) {
7606 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_block_get" "', argument " "1"" of type '" "gsl_vector *""'");
7607 }
7608 arg1 = (gsl_vector *)(argp1);
7609 result = (gsl_block *) ((arg1)->block);
7610 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_block, 0 | 0); argvi++ ;
7611
7612 XSRETURN(argvi);
7613 fail:
7614
7615 SWIG_croak_null();
7616 }
7617 }
7618
7619
XS(_wrap_gsl_vector_owner_set)7620 XS(_wrap_gsl_vector_owner_set) {
7621 {
7622 gsl_vector *arg1 = (gsl_vector *) 0 ;
7623 int arg2 ;
7624 void *argp1 = 0 ;
7625 int res1 = 0 ;
7626 int val2 ;
7627 int ecode2 = 0 ;
7628 int argvi = 0;
7629 dXSARGS;
7630
7631 if ((items < 2) || (items > 2)) {
7632 SWIG_croak("Usage: gsl_vector_owner_set(self,owner);");
7633 }
7634 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7635 if (!SWIG_IsOK(res1)) {
7636 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_owner_set" "', argument " "1"" of type '" "gsl_vector *""'");
7637 }
7638 arg1 = (gsl_vector *)(argp1);
7639 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7640 if (!SWIG_IsOK(ecode2)) {
7641 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_owner_set" "', argument " "2"" of type '" "int""'");
7642 }
7643 arg2 = (int)(val2);
7644 if (arg1) (arg1)->owner = arg2;
7645 ST(argvi) = &PL_sv_undef;
7646
7647
7648 XSRETURN(argvi);
7649 fail:
7650
7651
7652 SWIG_croak_null();
7653 }
7654 }
7655
7656
XS(_wrap_gsl_vector_owner_get)7657 XS(_wrap_gsl_vector_owner_get) {
7658 {
7659 gsl_vector *arg1 = (gsl_vector *) 0 ;
7660 void *argp1 = 0 ;
7661 int res1 = 0 ;
7662 int argvi = 0;
7663 int result;
7664 dXSARGS;
7665
7666 if ((items < 1) || (items > 1)) {
7667 SWIG_croak("Usage: gsl_vector_owner_get(self);");
7668 }
7669 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7670 if (!SWIG_IsOK(res1)) {
7671 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_owner_get" "', argument " "1"" of type '" "gsl_vector *""'");
7672 }
7673 arg1 = (gsl_vector *)(argp1);
7674 result = (int) ((arg1)->owner);
7675 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7676
7677 XSRETURN(argvi);
7678 fail:
7679
7680 SWIG_croak_null();
7681 }
7682 }
7683
7684
XS(_wrap_new_gsl_vector)7685 XS(_wrap_new_gsl_vector) {
7686 {
7687 int argvi = 0;
7688 gsl_vector *result = 0 ;
7689 dXSARGS;
7690
7691 if ((items < 0) || (items > 0)) {
7692 SWIG_croak("Usage: new_gsl_vector();");
7693 }
7694 result = (gsl_vector *)calloc(1, sizeof(gsl_vector));
7695 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
7696 XSRETURN(argvi);
7697 fail:
7698 SWIG_croak_null();
7699 }
7700 }
7701
7702
XS(_wrap_delete_gsl_vector)7703 XS(_wrap_delete_gsl_vector) {
7704 {
7705 gsl_vector *arg1 = (gsl_vector *) 0 ;
7706 void *argp1 = 0 ;
7707 int res1 = 0 ;
7708 int argvi = 0;
7709 dXSARGS;
7710
7711 if ((items < 1) || (items > 1)) {
7712 SWIG_croak("Usage: delete_gsl_vector(self);");
7713 }
7714 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
7715 if (!SWIG_IsOK(res1)) {
7716 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_vector" "', argument " "1"" of type '" "gsl_vector *""'");
7717 }
7718 arg1 = (gsl_vector *)(argp1);
7719 free((char *) arg1);
7720 ST(argvi) = &PL_sv_undef;
7721
7722 XSRETURN(argvi);
7723 fail:
7724
7725 SWIG_croak_null();
7726 }
7727 }
7728
7729
XS(_wrap__gsl_vector_view_vector_set)7730 XS(_wrap__gsl_vector_view_vector_set) {
7731 {
7732 _gsl_vector_view *arg1 = (_gsl_vector_view *) 0 ;
7733 gsl_vector *arg2 = (gsl_vector *) 0 ;
7734 void *argp1 = 0 ;
7735 int res1 = 0 ;
7736 void *argp2 = 0 ;
7737 int res2 = 0 ;
7738 int argvi = 0;
7739 dXSARGS;
7740
7741 if ((items < 2) || (items > 2)) {
7742 SWIG_croak("Usage: _gsl_vector_view_vector_set(self,vector);");
7743 }
7744 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_view, 0 | 0 );
7745 if (!SWIG_IsOK(res1)) {
7746 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "_gsl_vector_view_vector_set" "', argument " "1"" of type '" "_gsl_vector_view *""'");
7747 }
7748 arg1 = (_gsl_vector_view *)(argp1);
7749 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7750 if (!SWIG_IsOK(res2)) {
7751 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "_gsl_vector_view_vector_set" "', argument " "2"" of type '" "gsl_vector *""'");
7752 }
7753 arg2 = (gsl_vector *)(argp2);
7754 if (arg1) (arg1)->vector = *arg2;
7755 ST(argvi) = &PL_sv_undef;
7756
7757
7758 XSRETURN(argvi);
7759 fail:
7760
7761
7762 SWIG_croak_null();
7763 }
7764 }
7765
7766
XS(_wrap__gsl_vector_view_vector_get)7767 XS(_wrap__gsl_vector_view_vector_get) {
7768 {
7769 _gsl_vector_view *arg1 = (_gsl_vector_view *) 0 ;
7770 void *argp1 = 0 ;
7771 int res1 = 0 ;
7772 int argvi = 0;
7773 gsl_vector *result = 0 ;
7774 dXSARGS;
7775
7776 if ((items < 1) || (items > 1)) {
7777 SWIG_croak("Usage: _gsl_vector_view_vector_get(self);");
7778 }
7779 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_view, 0 | 0 );
7780 if (!SWIG_IsOK(res1)) {
7781 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "_gsl_vector_view_vector_get" "', argument " "1"" of type '" "_gsl_vector_view *""'");
7782 }
7783 arg1 = (_gsl_vector_view *)(argp1);
7784 result = (gsl_vector *)& ((arg1)->vector);
7785 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | SWIG_SHADOW); argvi++ ;
7786
7787 XSRETURN(argvi);
7788 fail:
7789
7790 SWIG_croak_null();
7791 }
7792 }
7793
7794
XS(_wrap_new__gsl_vector_view)7795 XS(_wrap_new__gsl_vector_view) {
7796 {
7797 int argvi = 0;
7798 _gsl_vector_view *result = 0 ;
7799 dXSARGS;
7800
7801 if ((items < 0) || (items > 0)) {
7802 SWIG_croak("Usage: new__gsl_vector_view();");
7803 }
7804 result = (_gsl_vector_view *)calloc(1, sizeof(_gsl_vector_view));
7805 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p__gsl_vector_view, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
7806 XSRETURN(argvi);
7807 fail:
7808 SWIG_croak_null();
7809 }
7810 }
7811
7812
XS(_wrap_delete__gsl_vector_view)7813 XS(_wrap_delete__gsl_vector_view) {
7814 {
7815 _gsl_vector_view *arg1 = (_gsl_vector_view *) 0 ;
7816 void *argp1 = 0 ;
7817 int res1 = 0 ;
7818 int argvi = 0;
7819 dXSARGS;
7820
7821 if ((items < 1) || (items > 1)) {
7822 SWIG_croak("Usage: delete__gsl_vector_view(self);");
7823 }
7824 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_view, SWIG_POINTER_DISOWN | 0 );
7825 if (!SWIG_IsOK(res1)) {
7826 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete__gsl_vector_view" "', argument " "1"" of type '" "_gsl_vector_view *""'");
7827 }
7828 arg1 = (_gsl_vector_view *)(argp1);
7829 free((char *) arg1);
7830 ST(argvi) = &PL_sv_undef;
7831
7832 XSRETURN(argvi);
7833 fail:
7834
7835 SWIG_croak_null();
7836 }
7837 }
7838
7839
XS(_wrap__gsl_vector_const_view_vector_set)7840 XS(_wrap__gsl_vector_const_view_vector_set) {
7841 {
7842 _gsl_vector_const_view *arg1 = (_gsl_vector_const_view *) 0 ;
7843 gsl_vector *arg2 = (gsl_vector *) 0 ;
7844 void *argp1 = 0 ;
7845 int res1 = 0 ;
7846 void *argp2 = 0 ;
7847 int res2 = 0 ;
7848 int argvi = 0;
7849 dXSARGS;
7850
7851 if ((items < 2) || (items > 2)) {
7852 SWIG_croak("Usage: _gsl_vector_const_view_vector_set(self,vector);");
7853 }
7854 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_const_view, 0 | 0 );
7855 if (!SWIG_IsOK(res1)) {
7856 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "_gsl_vector_const_view_vector_set" "', argument " "1"" of type '" "_gsl_vector_const_view *""'");
7857 }
7858 arg1 = (_gsl_vector_const_view *)(argp1);
7859 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7860 if (!SWIG_IsOK(res2)) {
7861 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "_gsl_vector_const_view_vector_set" "', argument " "2"" of type '" "gsl_vector *""'");
7862 }
7863 arg2 = (gsl_vector *)(argp2);
7864 if (arg1) (arg1)->vector = *arg2;
7865 ST(argvi) = &PL_sv_undef;
7866
7867
7868 XSRETURN(argvi);
7869 fail:
7870
7871
7872 SWIG_croak_null();
7873 }
7874 }
7875
7876
XS(_wrap__gsl_vector_const_view_vector_get)7877 XS(_wrap__gsl_vector_const_view_vector_get) {
7878 {
7879 _gsl_vector_const_view *arg1 = (_gsl_vector_const_view *) 0 ;
7880 void *argp1 = 0 ;
7881 int res1 = 0 ;
7882 int argvi = 0;
7883 gsl_vector *result = 0 ;
7884 dXSARGS;
7885
7886 if ((items < 1) || (items > 1)) {
7887 SWIG_croak("Usage: _gsl_vector_const_view_vector_get(self);");
7888 }
7889 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_const_view, 0 | 0 );
7890 if (!SWIG_IsOK(res1)) {
7891 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "_gsl_vector_const_view_vector_get" "', argument " "1"" of type '" "_gsl_vector_const_view *""'");
7892 }
7893 arg1 = (_gsl_vector_const_view *)(argp1);
7894 result = (gsl_vector *)& ((arg1)->vector);
7895 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | SWIG_SHADOW); argvi++ ;
7896
7897 XSRETURN(argvi);
7898 fail:
7899
7900 SWIG_croak_null();
7901 }
7902 }
7903
7904
XS(_wrap_new__gsl_vector_const_view)7905 XS(_wrap_new__gsl_vector_const_view) {
7906 {
7907 int argvi = 0;
7908 _gsl_vector_const_view *result = 0 ;
7909 dXSARGS;
7910
7911 if ((items < 0) || (items > 0)) {
7912 SWIG_croak("Usage: new__gsl_vector_const_view();");
7913 }
7914 result = (_gsl_vector_const_view *)calloc(1, sizeof(_gsl_vector_const_view));
7915 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p__gsl_vector_const_view, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
7916 XSRETURN(argvi);
7917 fail:
7918 SWIG_croak_null();
7919 }
7920 }
7921
7922
XS(_wrap_delete__gsl_vector_const_view)7923 XS(_wrap_delete__gsl_vector_const_view) {
7924 {
7925 _gsl_vector_const_view *arg1 = (_gsl_vector_const_view *) 0 ;
7926 void *argp1 = 0 ;
7927 int res1 = 0 ;
7928 int argvi = 0;
7929 dXSARGS;
7930
7931 if ((items < 1) || (items > 1)) {
7932 SWIG_croak("Usage: delete__gsl_vector_const_view(self);");
7933 }
7934 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_const_view, SWIG_POINTER_DISOWN | 0 );
7935 if (!SWIG_IsOK(res1)) {
7936 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete__gsl_vector_const_view" "', argument " "1"" of type '" "_gsl_vector_const_view *""'");
7937 }
7938 arg1 = (_gsl_vector_const_view *)(argp1);
7939 free((char *) arg1);
7940 ST(argvi) = &PL_sv_undef;
7941
7942 XSRETURN(argvi);
7943 fail:
7944
7945 SWIG_croak_null();
7946 }
7947 }
7948
7949
XS(_wrap_gsl_vector_alloc)7950 XS(_wrap_gsl_vector_alloc) {
7951 {
7952 size_t arg1 ;
7953 size_t val1 ;
7954 int ecode1 = 0 ;
7955 int argvi = 0;
7956 gsl_vector *result = 0 ;
7957 dXSARGS;
7958
7959 if ((items < 1) || (items > 1)) {
7960 SWIG_croak("Usage: gsl_vector_alloc(n);");
7961 }
7962 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
7963 if (!SWIG_IsOK(ecode1)) {
7964 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_vector_alloc" "', argument " "1"" of type '" "size_t""'");
7965 }
7966 arg1 = (size_t)(val1);
7967 result = (gsl_vector *)gsl_vector_alloc(arg1);
7968 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | SWIG_SHADOW); argvi++ ;
7969
7970 XSRETURN(argvi);
7971 fail:
7972
7973 SWIG_croak_null();
7974 }
7975 }
7976
7977
XS(_wrap_gsl_vector_calloc)7978 XS(_wrap_gsl_vector_calloc) {
7979 {
7980 size_t arg1 ;
7981 size_t val1 ;
7982 int ecode1 = 0 ;
7983 int argvi = 0;
7984 gsl_vector *result = 0 ;
7985 dXSARGS;
7986
7987 if ((items < 1) || (items > 1)) {
7988 SWIG_croak("Usage: gsl_vector_calloc(n);");
7989 }
7990 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
7991 if (!SWIG_IsOK(ecode1)) {
7992 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_vector_calloc" "', argument " "1"" of type '" "size_t""'");
7993 }
7994 arg1 = (size_t)(val1);
7995 result = (gsl_vector *)gsl_vector_calloc(arg1);
7996 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | SWIG_SHADOW); argvi++ ;
7997
7998 XSRETURN(argvi);
7999 fail:
8000
8001 SWIG_croak_null();
8002 }
8003 }
8004
8005
XS(_wrap_gsl_vector_alloc_from_block)8006 XS(_wrap_gsl_vector_alloc_from_block) {
8007 {
8008 gsl_block *arg1 = (gsl_block *) 0 ;
8009 size_t arg2 ;
8010 size_t arg3 ;
8011 size_t arg4 ;
8012 void *argp1 = 0 ;
8013 int res1 = 0 ;
8014 size_t val2 ;
8015 int ecode2 = 0 ;
8016 size_t val3 ;
8017 int ecode3 = 0 ;
8018 size_t val4 ;
8019 int ecode4 = 0 ;
8020 int argvi = 0;
8021 gsl_vector *result = 0 ;
8022 dXSARGS;
8023
8024 if ((items < 4) || (items > 4)) {
8025 SWIG_croak("Usage: gsl_vector_alloc_from_block(b,offset,n,stride);");
8026 }
8027 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_block, 0 | 0 );
8028 if (!SWIG_IsOK(res1)) {
8029 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_alloc_from_block" "', argument " "1"" of type '" "gsl_block *""'");
8030 }
8031 arg1 = (gsl_block *)(argp1);
8032 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8033 if (!SWIG_IsOK(ecode2)) {
8034 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_alloc_from_block" "', argument " "2"" of type '" "size_t""'");
8035 }
8036 arg2 = (size_t)(val2);
8037 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
8038 if (!SWIG_IsOK(ecode3)) {
8039 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_alloc_from_block" "', argument " "3"" of type '" "size_t""'");
8040 }
8041 arg3 = (size_t)(val3);
8042 ecode4 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
8043 if (!SWIG_IsOK(ecode4)) {
8044 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_vector_alloc_from_block" "', argument " "4"" of type '" "size_t""'");
8045 }
8046 arg4 = (size_t)(val4);
8047 result = (gsl_vector *)gsl_vector_alloc_from_block(arg1,arg2,arg3,arg4);
8048 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | SWIG_SHADOW); argvi++ ;
8049
8050
8051
8052
8053 XSRETURN(argvi);
8054 fail:
8055
8056
8057
8058
8059 SWIG_croak_null();
8060 }
8061 }
8062
8063
XS(_wrap_gsl_vector_alloc_from_vector)8064 XS(_wrap_gsl_vector_alloc_from_vector) {
8065 {
8066 gsl_vector *arg1 = (gsl_vector *) 0 ;
8067 size_t arg2 ;
8068 size_t arg3 ;
8069 size_t arg4 ;
8070 void *argp1 = 0 ;
8071 int res1 = 0 ;
8072 size_t val2 ;
8073 int ecode2 = 0 ;
8074 size_t val3 ;
8075 int ecode3 = 0 ;
8076 size_t val4 ;
8077 int ecode4 = 0 ;
8078 int argvi = 0;
8079 gsl_vector *result = 0 ;
8080 dXSARGS;
8081
8082 if ((items < 4) || (items > 4)) {
8083 SWIG_croak("Usage: gsl_vector_alloc_from_vector(v,offset,n,stride);");
8084 }
8085 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
8086 if (!SWIG_IsOK(res1)) {
8087 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_alloc_from_vector" "', argument " "1"" of type '" "gsl_vector *""'");
8088 }
8089 arg1 = (gsl_vector *)(argp1);
8090 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8091 if (!SWIG_IsOK(ecode2)) {
8092 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_alloc_from_vector" "', argument " "2"" of type '" "size_t""'");
8093 }
8094 arg2 = (size_t)(val2);
8095 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
8096 if (!SWIG_IsOK(ecode3)) {
8097 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_alloc_from_vector" "', argument " "3"" of type '" "size_t""'");
8098 }
8099 arg3 = (size_t)(val3);
8100 ecode4 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
8101 if (!SWIG_IsOK(ecode4)) {
8102 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_vector_alloc_from_vector" "', argument " "4"" of type '" "size_t""'");
8103 }
8104 arg4 = (size_t)(val4);
8105 result = (gsl_vector *)gsl_vector_alloc_from_vector(arg1,arg2,arg3,arg4);
8106 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | SWIG_SHADOW); argvi++ ;
8107
8108
8109
8110
8111 XSRETURN(argvi);
8112 fail:
8113
8114
8115
8116
8117 SWIG_croak_null();
8118 }
8119 }
8120
8121
XS(_wrap_gsl_vector_free)8122 XS(_wrap_gsl_vector_free) {
8123 {
8124 gsl_vector *arg1 = (gsl_vector *) 0 ;
8125 void *argp1 = 0 ;
8126 int res1 = 0 ;
8127 int argvi = 0;
8128 dXSARGS;
8129
8130 if ((items < 1) || (items > 1)) {
8131 SWIG_croak("Usage: gsl_vector_free(v);");
8132 }
8133 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
8134 if (!SWIG_IsOK(res1)) {
8135 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_free" "', argument " "1"" of type '" "gsl_vector *""'");
8136 }
8137 arg1 = (gsl_vector *)(argp1);
8138 gsl_vector_free(arg1);
8139 ST(argvi) = &PL_sv_undef;
8140
8141 XSRETURN(argvi);
8142 fail:
8143
8144 SWIG_croak_null();
8145 }
8146 }
8147
8148
XS(_wrap_gsl_vector_view_array)8149 XS(_wrap_gsl_vector_view_array) {
8150 {
8151 double *arg1 = (double *) 0 ;
8152 size_t arg2 ;
8153 size_t val2 ;
8154 int ecode2 = 0 ;
8155 int argvi = 0;
8156 _gsl_vector_view result;
8157 dXSARGS;
8158
8159 if ((items < 2) || (items > 2)) {
8160 SWIG_croak("Usage: gsl_vector_view_array(v,n);");
8161 }
8162 {
8163 AV *tempav;
8164 I32 len;
8165 int i;
8166 SV **tv;
8167 if (!SvROK(ST(0)))
8168 croak("Math::GSL : $v is not a reference!");
8169 if (SvTYPE(SvRV(ST(0))) != SVt_PVAV)
8170 croak("Math::GSL : $v is not an array ref!");
8171
8172 tempav = (AV*)SvRV(ST(0));
8173 len = av_len(tempav);
8174 arg1 = (double *) malloc((len+2)*sizeof(double));
8175 for (i = 0; i <= len; i++) {
8176 tv = av_fetch(tempav, i, 0);
8177 arg1[i] = (double) SvNV(*tv);
8178 }
8179 }
8180 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8181 if (!SWIG_IsOK(ecode2)) {
8182 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_view_array" "', argument " "2"" of type '" "size_t""'");
8183 }
8184 arg2 = (size_t)(val2);
8185 result = gsl_vector_view_array(arg1,arg2);
8186 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++ ;
8187 {
8188 if (arg1) free(arg1);
8189 }
8190
8191 XSRETURN(argvi);
8192 fail:
8193 {
8194 if (arg1) free(arg1);
8195 }
8196
8197 SWIG_croak_null();
8198 }
8199 }
8200
8201
XS(_wrap_gsl_vector_view_array_with_stride)8202 XS(_wrap_gsl_vector_view_array_with_stride) {
8203 {
8204 double *arg1 = (double *) 0 ;
8205 size_t arg2 ;
8206 size_t arg3 ;
8207 size_t val2 ;
8208 int ecode2 = 0 ;
8209 size_t val3 ;
8210 int ecode3 = 0 ;
8211 int argvi = 0;
8212 _gsl_vector_view result;
8213 dXSARGS;
8214
8215 if ((items < 3) || (items > 3)) {
8216 SWIG_croak("Usage: gsl_vector_view_array_with_stride(base,stride,n);");
8217 }
8218 {
8219 AV *tempav;
8220 I32 len;
8221 int i;
8222 SV **tv;
8223 if (!SvROK(ST(0)))
8224 croak("Math::GSL : $base is not a reference!");
8225 if (SvTYPE(SvRV(ST(0))) != SVt_PVAV)
8226 croak("Math::GSL : $base is not an array ref!");
8227
8228 tempav = (AV*)SvRV(ST(0));
8229 len = av_len(tempav);
8230 arg1 = (double *) malloc((len+2)*sizeof(double));
8231 for (i = 0; i <= len; i++) {
8232 tv = av_fetch(tempav, i, 0);
8233 arg1[i] = (double) SvNV(*tv);
8234 }
8235 }
8236 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8237 if (!SWIG_IsOK(ecode2)) {
8238 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_view_array_with_stride" "', argument " "2"" of type '" "size_t""'");
8239 }
8240 arg2 = (size_t)(val2);
8241 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
8242 if (!SWIG_IsOK(ecode3)) {
8243 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_view_array_with_stride" "', argument " "3"" of type '" "size_t""'");
8244 }
8245 arg3 = (size_t)(val3);
8246 result = gsl_vector_view_array_with_stride(arg1,arg2,arg3);
8247 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++ ;
8248 {
8249 if (arg1) free(arg1);
8250 }
8251
8252
8253 XSRETURN(argvi);
8254 fail:
8255 {
8256 if (arg1) free(arg1);
8257 }
8258
8259
8260 SWIG_croak_null();
8261 }
8262 }
8263
8264
XS(_wrap_gsl_vector_const_view_array)8265 XS(_wrap_gsl_vector_const_view_array) {
8266 {
8267 double *arg1 = (double *) 0 ;
8268 size_t arg2 ;
8269 size_t val2 ;
8270 int ecode2 = 0 ;
8271 int argvi = 0;
8272 _gsl_vector_const_view result;
8273 dXSARGS;
8274
8275 if ((items < 2) || (items > 2)) {
8276 SWIG_croak("Usage: gsl_vector_const_view_array(v,n);");
8277 }
8278 {
8279 AV *tempav;
8280 I32 len;
8281 int i;
8282 SV **tv;
8283 if (!SvROK(ST(0)))
8284 croak("Math::GSL : $v is not a reference!");
8285 if (SvTYPE(SvRV(ST(0))) != SVt_PVAV)
8286 croak("Math::GSL : $v is not an array ref!");
8287
8288 tempav = (AV*)SvRV(ST(0));
8289 len = av_len(tempav);
8290 arg1 = (double *) malloc((len+2)*sizeof(double));
8291 for (i = 0; i <= len; i++) {
8292 tv = av_fetch(tempav, i, 0);
8293 arg1[i] = (double) SvNV(*tv);
8294 }
8295 }
8296 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8297 if (!SWIG_IsOK(ecode2)) {
8298 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_const_view_array" "', argument " "2"" of type '" "size_t""'");
8299 }
8300 arg2 = (size_t)(val2);
8301 result = gsl_vector_const_view_array((double const *)arg1,arg2);
8302 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++ ;
8303 {
8304 if (arg1) free(arg1);
8305 }
8306
8307 XSRETURN(argvi);
8308 fail:
8309 {
8310 if (arg1) free(arg1);
8311 }
8312
8313 SWIG_croak_null();
8314 }
8315 }
8316
8317
XS(_wrap_gsl_vector_const_view_array_with_stride)8318 XS(_wrap_gsl_vector_const_view_array_with_stride) {
8319 {
8320 double *arg1 = (double *) 0 ;
8321 size_t arg2 ;
8322 size_t arg3 ;
8323 size_t val2 ;
8324 int ecode2 = 0 ;
8325 size_t val3 ;
8326 int ecode3 = 0 ;
8327 int argvi = 0;
8328 _gsl_vector_const_view result;
8329 dXSARGS;
8330
8331 if ((items < 3) || (items > 3)) {
8332 SWIG_croak("Usage: gsl_vector_const_view_array_with_stride(base,stride,n);");
8333 }
8334 {
8335 AV *tempav;
8336 I32 len;
8337 int i;
8338 SV **tv;
8339 if (!SvROK(ST(0)))
8340 croak("Math::GSL : $base is not a reference!");
8341 if (SvTYPE(SvRV(ST(0))) != SVt_PVAV)
8342 croak("Math::GSL : $base is not an array ref!");
8343
8344 tempav = (AV*)SvRV(ST(0));
8345 len = av_len(tempav);
8346 arg1 = (double *) malloc((len+2)*sizeof(double));
8347 for (i = 0; i <= len; i++) {
8348 tv = av_fetch(tempav, i, 0);
8349 arg1[i] = (double) SvNV(*tv);
8350 }
8351 }
8352 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8353 if (!SWIG_IsOK(ecode2)) {
8354 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_const_view_array_with_stride" "', argument " "2"" of type '" "size_t""'");
8355 }
8356 arg2 = (size_t)(val2);
8357 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
8358 if (!SWIG_IsOK(ecode3)) {
8359 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_const_view_array_with_stride" "', argument " "3"" of type '" "size_t""'");
8360 }
8361 arg3 = (size_t)(val3);
8362 result = gsl_vector_const_view_array_with_stride((double const *)arg1,arg2,arg3);
8363 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++ ;
8364 {
8365 if (arg1) free(arg1);
8366 }
8367
8368
8369 XSRETURN(argvi);
8370 fail:
8371 {
8372 if (arg1) free(arg1);
8373 }
8374
8375
8376 SWIG_croak_null();
8377 }
8378 }
8379
8380
XS(_wrap_gsl_vector_subvector)8381 XS(_wrap_gsl_vector_subvector) {
8382 {
8383 gsl_vector *arg1 = (gsl_vector *) 0 ;
8384 size_t arg2 ;
8385 size_t arg3 ;
8386 void *argp1 = 0 ;
8387 int res1 = 0 ;
8388 size_t val2 ;
8389 int ecode2 = 0 ;
8390 size_t val3 ;
8391 int ecode3 = 0 ;
8392 int argvi = 0;
8393 _gsl_vector_view result;
8394 dXSARGS;
8395
8396 if ((items < 3) || (items > 3)) {
8397 SWIG_croak("Usage: gsl_vector_subvector(v,i,n);");
8398 }
8399 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
8400 if (!SWIG_IsOK(res1)) {
8401 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_subvector" "', argument " "1"" of type '" "gsl_vector *""'");
8402 }
8403 arg1 = (gsl_vector *)(argp1);
8404 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8405 if (!SWIG_IsOK(ecode2)) {
8406 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_subvector" "', argument " "2"" of type '" "size_t""'");
8407 }
8408 arg2 = (size_t)(val2);
8409 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
8410 if (!SWIG_IsOK(ecode3)) {
8411 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_subvector" "', argument " "3"" of type '" "size_t""'");
8412 }
8413 arg3 = (size_t)(val3);
8414 result = gsl_vector_subvector(arg1,arg2,arg3);
8415 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++ ;
8416
8417
8418
8419 XSRETURN(argvi);
8420 fail:
8421
8422
8423
8424 SWIG_croak_null();
8425 }
8426 }
8427
8428
XS(_wrap_gsl_vector_subvector_with_stride)8429 XS(_wrap_gsl_vector_subvector_with_stride) {
8430 {
8431 gsl_vector *arg1 = (gsl_vector *) 0 ;
8432 size_t arg2 ;
8433 size_t arg3 ;
8434 size_t arg4 ;
8435 void *argp1 = 0 ;
8436 int res1 = 0 ;
8437 size_t val2 ;
8438 int ecode2 = 0 ;
8439 size_t val3 ;
8440 int ecode3 = 0 ;
8441 size_t val4 ;
8442 int ecode4 = 0 ;
8443 int argvi = 0;
8444 _gsl_vector_view result;
8445 dXSARGS;
8446
8447 if ((items < 4) || (items > 4)) {
8448 SWIG_croak("Usage: gsl_vector_subvector_with_stride(v,i,stride,n);");
8449 }
8450 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
8451 if (!SWIG_IsOK(res1)) {
8452 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_subvector_with_stride" "', argument " "1"" of type '" "gsl_vector *""'");
8453 }
8454 arg1 = (gsl_vector *)(argp1);
8455 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8456 if (!SWIG_IsOK(ecode2)) {
8457 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_subvector_with_stride" "', argument " "2"" of type '" "size_t""'");
8458 }
8459 arg2 = (size_t)(val2);
8460 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
8461 if (!SWIG_IsOK(ecode3)) {
8462 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_subvector_with_stride" "', argument " "3"" of type '" "size_t""'");
8463 }
8464 arg3 = (size_t)(val3);
8465 ecode4 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
8466 if (!SWIG_IsOK(ecode4)) {
8467 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_vector_subvector_with_stride" "', argument " "4"" of type '" "size_t""'");
8468 }
8469 arg4 = (size_t)(val4);
8470 result = gsl_vector_subvector_with_stride(arg1,arg2,arg3,arg4);
8471 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++ ;
8472
8473
8474
8475
8476 XSRETURN(argvi);
8477 fail:
8478
8479
8480
8481
8482 SWIG_croak_null();
8483 }
8484 }
8485
8486
XS(_wrap_gsl_vector_const_subvector)8487 XS(_wrap_gsl_vector_const_subvector) {
8488 {
8489 gsl_vector *arg1 = (gsl_vector *) 0 ;
8490 size_t arg2 ;
8491 size_t arg3 ;
8492 void *argp1 = 0 ;
8493 int res1 = 0 ;
8494 size_t val2 ;
8495 int ecode2 = 0 ;
8496 size_t val3 ;
8497 int ecode3 = 0 ;
8498 int argvi = 0;
8499 _gsl_vector_const_view result;
8500 dXSARGS;
8501
8502 if ((items < 3) || (items > 3)) {
8503 SWIG_croak("Usage: gsl_vector_const_subvector(v,i,n);");
8504 }
8505 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
8506 if (!SWIG_IsOK(res1)) {
8507 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_const_subvector" "', argument " "1"" of type '" "gsl_vector const *""'");
8508 }
8509 arg1 = (gsl_vector *)(argp1);
8510 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8511 if (!SWIG_IsOK(ecode2)) {
8512 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_const_subvector" "', argument " "2"" of type '" "size_t""'");
8513 }
8514 arg2 = (size_t)(val2);
8515 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
8516 if (!SWIG_IsOK(ecode3)) {
8517 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_const_subvector" "', argument " "3"" of type '" "size_t""'");
8518 }
8519 arg3 = (size_t)(val3);
8520 result = gsl_vector_const_subvector((gsl_vector const *)arg1,arg2,arg3);
8521 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++ ;
8522
8523
8524
8525 XSRETURN(argvi);
8526 fail:
8527
8528
8529
8530 SWIG_croak_null();
8531 }
8532 }
8533
8534
XS(_wrap_gsl_vector_const_subvector_with_stride)8535 XS(_wrap_gsl_vector_const_subvector_with_stride) {
8536 {
8537 gsl_vector *arg1 = (gsl_vector *) 0 ;
8538 size_t arg2 ;
8539 size_t arg3 ;
8540 size_t arg4 ;
8541 void *argp1 = 0 ;
8542 int res1 = 0 ;
8543 size_t val2 ;
8544 int ecode2 = 0 ;
8545 size_t val3 ;
8546 int ecode3 = 0 ;
8547 size_t val4 ;
8548 int ecode4 = 0 ;
8549 int argvi = 0;
8550 _gsl_vector_const_view result;
8551 dXSARGS;
8552
8553 if ((items < 4) || (items > 4)) {
8554 SWIG_croak("Usage: gsl_vector_const_subvector_with_stride(v,i,stride,n);");
8555 }
8556 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
8557 if (!SWIG_IsOK(res1)) {
8558 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_const_subvector_with_stride" "', argument " "1"" of type '" "gsl_vector const *""'");
8559 }
8560 arg1 = (gsl_vector *)(argp1);
8561 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8562 if (!SWIG_IsOK(ecode2)) {
8563 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_const_subvector_with_stride" "', argument " "2"" of type '" "size_t""'");
8564 }
8565 arg2 = (size_t)(val2);
8566 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
8567 if (!SWIG_IsOK(ecode3)) {
8568 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_const_subvector_with_stride" "', argument " "3"" of type '" "size_t""'");
8569 }
8570 arg3 = (size_t)(val3);
8571 ecode4 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
8572 if (!SWIG_IsOK(ecode4)) {
8573 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_vector_const_subvector_with_stride" "', argument " "4"" of type '" "size_t""'");
8574 }
8575 arg4 = (size_t)(val4);
8576 result = gsl_vector_const_subvector_with_stride((gsl_vector const *)arg1,arg2,arg3,arg4);
8577 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++ ;
8578
8579
8580
8581
8582 XSRETURN(argvi);
8583 fail:
8584
8585
8586
8587
8588 SWIG_croak_null();
8589 }
8590 }
8591
8592
XS(_wrap_gsl_vector_set_zero)8593 XS(_wrap_gsl_vector_set_zero) {
8594 {
8595 gsl_vector *arg1 = (gsl_vector *) 0 ;
8596 void *argp1 = 0 ;
8597 int res1 = 0 ;
8598 int argvi = 0;
8599 dXSARGS;
8600
8601 if ((items < 1) || (items > 1)) {
8602 SWIG_croak("Usage: gsl_vector_set_zero(v);");
8603 }
8604 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
8605 if (!SWIG_IsOK(res1)) {
8606 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_set_zero" "', argument " "1"" of type '" "gsl_vector *""'");
8607 }
8608 arg1 = (gsl_vector *)(argp1);
8609 gsl_vector_set_zero(arg1);
8610 ST(argvi) = &PL_sv_undef;
8611
8612 XSRETURN(argvi);
8613 fail:
8614
8615 SWIG_croak_null();
8616 }
8617 }
8618
8619
XS(_wrap_gsl_vector_set_all)8620 XS(_wrap_gsl_vector_set_all) {
8621 {
8622 gsl_vector *arg1 = (gsl_vector *) 0 ;
8623 double arg2 ;
8624 void *argp1 = 0 ;
8625 int res1 = 0 ;
8626 double val2 ;
8627 int ecode2 = 0 ;
8628 int argvi = 0;
8629 dXSARGS;
8630
8631 if ((items < 2) || (items > 2)) {
8632 SWIG_croak("Usage: gsl_vector_set_all(v,x);");
8633 }
8634 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
8635 if (!SWIG_IsOK(res1)) {
8636 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_set_all" "', argument " "1"" of type '" "gsl_vector *""'");
8637 }
8638 arg1 = (gsl_vector *)(argp1);
8639 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8640 if (!SWIG_IsOK(ecode2)) {
8641 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_set_all" "', argument " "2"" of type '" "double""'");
8642 }
8643 arg2 = (double)(val2);
8644 gsl_vector_set_all(arg1,arg2);
8645 ST(argvi) = &PL_sv_undef;
8646
8647
8648 XSRETURN(argvi);
8649 fail:
8650
8651
8652 SWIG_croak_null();
8653 }
8654 }
8655
8656
XS(_wrap_gsl_vector_set_basis)8657 XS(_wrap_gsl_vector_set_basis) {
8658 {
8659 gsl_vector *arg1 = (gsl_vector *) 0 ;
8660 size_t arg2 ;
8661 void *argp1 = 0 ;
8662 int res1 = 0 ;
8663 size_t val2 ;
8664 int ecode2 = 0 ;
8665 int argvi = 0;
8666 int result;
8667 dXSARGS;
8668
8669 if ((items < 2) || (items > 2)) {
8670 SWIG_croak("Usage: gsl_vector_set_basis(v,i);");
8671 }
8672 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
8673 if (!SWIG_IsOK(res1)) {
8674 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_set_basis" "', argument " "1"" of type '" "gsl_vector *""'");
8675 }
8676 arg1 = (gsl_vector *)(argp1);
8677 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8678 if (!SWIG_IsOK(ecode2)) {
8679 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_set_basis" "', argument " "2"" of type '" "size_t""'");
8680 }
8681 arg2 = (size_t)(val2);
8682 result = (int)gsl_vector_set_basis(arg1,arg2);
8683 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8684
8685
8686 XSRETURN(argvi);
8687 fail:
8688
8689
8690 SWIG_croak_null();
8691 }
8692 }
8693
8694
XS(_wrap_gsl_vector_fread)8695 XS(_wrap_gsl_vector_fread) {
8696 {
8697 FILE *arg1 = (FILE *) 0 ;
8698 gsl_vector *arg2 = (gsl_vector *) 0 ;
8699 void *argp1 = 0 ;
8700 int res1 = 0 ;
8701 void *argp2 = 0 ;
8702 int res2 = 0 ;
8703 int argvi = 0;
8704 int result;
8705 dXSARGS;
8706
8707 if ((items < 2) || (items > 2)) {
8708 SWIG_croak("Usage: gsl_vector_fread(stream,v);");
8709 }
8710 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
8711 if (!SWIG_IsOK(res1)) {
8712 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_fread" "', argument " "1"" of type '" "FILE *""'");
8713 }
8714 arg1 = (FILE *)(argp1);
8715 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8716 if (!SWIG_IsOK(res2)) {
8717 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_fread" "', argument " "2"" of type '" "gsl_vector *""'");
8718 }
8719 arg2 = (gsl_vector *)(argp2);
8720 result = (int)gsl_vector_fread(arg1,arg2);
8721 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8722
8723
8724 XSRETURN(argvi);
8725 fail:
8726
8727
8728 SWIG_croak_null();
8729 }
8730 }
8731
8732
XS(_wrap_gsl_vector_fwrite)8733 XS(_wrap_gsl_vector_fwrite) {
8734 {
8735 FILE *arg1 = (FILE *) 0 ;
8736 gsl_vector *arg2 = (gsl_vector *) 0 ;
8737 void *argp1 = 0 ;
8738 int res1 = 0 ;
8739 void *argp2 = 0 ;
8740 int res2 = 0 ;
8741 int argvi = 0;
8742 int result;
8743 dXSARGS;
8744
8745 if ((items < 2) || (items > 2)) {
8746 SWIG_croak("Usage: gsl_vector_fwrite(stream,v);");
8747 }
8748 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
8749 if (!SWIG_IsOK(res1)) {
8750 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_fwrite" "', argument " "1"" of type '" "FILE *""'");
8751 }
8752 arg1 = (FILE *)(argp1);
8753 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8754 if (!SWIG_IsOK(res2)) {
8755 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_fwrite" "', argument " "2"" of type '" "gsl_vector const *""'");
8756 }
8757 arg2 = (gsl_vector *)(argp2);
8758 result = (int)gsl_vector_fwrite(arg1,(gsl_vector const *)arg2);
8759 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8760
8761
8762 XSRETURN(argvi);
8763 fail:
8764
8765
8766 SWIG_croak_null();
8767 }
8768 }
8769
8770
XS(_wrap_gsl_vector_fscanf)8771 XS(_wrap_gsl_vector_fscanf) {
8772 {
8773 FILE *arg1 = (FILE *) 0 ;
8774 gsl_vector *arg2 = (gsl_vector *) 0 ;
8775 void *argp1 = 0 ;
8776 int res1 = 0 ;
8777 void *argp2 = 0 ;
8778 int res2 = 0 ;
8779 int argvi = 0;
8780 int result;
8781 dXSARGS;
8782
8783 if ((items < 2) || (items > 2)) {
8784 SWIG_croak("Usage: gsl_vector_fscanf(stream,v);");
8785 }
8786 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
8787 if (!SWIG_IsOK(res1)) {
8788 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_fscanf" "', argument " "1"" of type '" "FILE *""'");
8789 }
8790 arg1 = (FILE *)(argp1);
8791 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8792 if (!SWIG_IsOK(res2)) {
8793 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_fscanf" "', argument " "2"" of type '" "gsl_vector *""'");
8794 }
8795 arg2 = (gsl_vector *)(argp2);
8796 result = (int)gsl_vector_fscanf(arg1,arg2);
8797 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8798
8799
8800 XSRETURN(argvi);
8801 fail:
8802
8803
8804 SWIG_croak_null();
8805 }
8806 }
8807
8808
XS(_wrap_gsl_vector_fprintf)8809 XS(_wrap_gsl_vector_fprintf) {
8810 {
8811 FILE *arg1 = (FILE *) 0 ;
8812 gsl_vector *arg2 = (gsl_vector *) 0 ;
8813 char *arg3 = (char *) 0 ;
8814 void *argp1 = 0 ;
8815 int res1 = 0 ;
8816 void *argp2 = 0 ;
8817 int res2 = 0 ;
8818 int res3 ;
8819 char *buf3 = 0 ;
8820 int alloc3 = 0 ;
8821 int argvi = 0;
8822 int result;
8823 dXSARGS;
8824
8825 if ((items < 3) || (items > 3)) {
8826 SWIG_croak("Usage: gsl_vector_fprintf(stream,v,format);");
8827 }
8828 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
8829 if (!SWIG_IsOK(res1)) {
8830 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_fprintf" "', argument " "1"" of type '" "FILE *""'");
8831 }
8832 arg1 = (FILE *)(argp1);
8833 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8834 if (!SWIG_IsOK(res2)) {
8835 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_fprintf" "', argument " "2"" of type '" "gsl_vector const *""'");
8836 }
8837 arg2 = (gsl_vector *)(argp2);
8838 res3 = SWIG_AsCharPtrAndSize(ST(2), &buf3, NULL, &alloc3);
8839 if (!SWIG_IsOK(res3)) {
8840 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_vector_fprintf" "', argument " "3"" of type '" "char const *""'");
8841 }
8842 arg3 = (char *)(buf3);
8843 result = (int)gsl_vector_fprintf(arg1,(gsl_vector const *)arg2,(char const *)arg3);
8844 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8845
8846
8847 if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
8848 XSRETURN(argvi);
8849 fail:
8850
8851
8852 if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
8853 SWIG_croak_null();
8854 }
8855 }
8856
8857
XS(_wrap_gsl_vector_memcpy)8858 XS(_wrap_gsl_vector_memcpy) {
8859 {
8860 gsl_vector *arg1 = (gsl_vector *) 0 ;
8861 gsl_vector *arg2 = (gsl_vector *) 0 ;
8862 void *argp1 = 0 ;
8863 int res1 = 0 ;
8864 void *argp2 = 0 ;
8865 int res2 = 0 ;
8866 int argvi = 0;
8867 int result;
8868 dXSARGS;
8869
8870 if ((items < 2) || (items > 2)) {
8871 SWIG_croak("Usage: gsl_vector_memcpy(dest,src);");
8872 }
8873 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
8874 if (!SWIG_IsOK(res1)) {
8875 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_memcpy" "', argument " "1"" of type '" "gsl_vector *""'");
8876 }
8877 arg1 = (gsl_vector *)(argp1);
8878 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8879 if (!SWIG_IsOK(res2)) {
8880 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_memcpy" "', argument " "2"" of type '" "gsl_vector const *""'");
8881 }
8882 arg2 = (gsl_vector *)(argp2);
8883 result = (int)gsl_vector_memcpy(arg1,(gsl_vector const *)arg2);
8884 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8885
8886
8887 XSRETURN(argvi);
8888 fail:
8889
8890
8891 SWIG_croak_null();
8892 }
8893 }
8894
8895
XS(_wrap_gsl_vector_reverse)8896 XS(_wrap_gsl_vector_reverse) {
8897 {
8898 gsl_vector *arg1 = (gsl_vector *) 0 ;
8899 void *argp1 = 0 ;
8900 int res1 = 0 ;
8901 int argvi = 0;
8902 int result;
8903 dXSARGS;
8904
8905 if ((items < 1) || (items > 1)) {
8906 SWIG_croak("Usage: gsl_vector_reverse(v);");
8907 }
8908 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
8909 if (!SWIG_IsOK(res1)) {
8910 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_reverse" "', argument " "1"" of type '" "gsl_vector *""'");
8911 }
8912 arg1 = (gsl_vector *)(argp1);
8913 result = (int)gsl_vector_reverse(arg1);
8914 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8915
8916 XSRETURN(argvi);
8917 fail:
8918
8919 SWIG_croak_null();
8920 }
8921 }
8922
8923
XS(_wrap_gsl_vector_swap)8924 XS(_wrap_gsl_vector_swap) {
8925 {
8926 gsl_vector *arg1 = (gsl_vector *) 0 ;
8927 gsl_vector *arg2 = (gsl_vector *) 0 ;
8928 void *argp1 = 0 ;
8929 int res1 = 0 ;
8930 void *argp2 = 0 ;
8931 int res2 = 0 ;
8932 int argvi = 0;
8933 int result;
8934 dXSARGS;
8935
8936 if ((items < 2) || (items > 2)) {
8937 SWIG_croak("Usage: gsl_vector_swap(v,w);");
8938 }
8939 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
8940 if (!SWIG_IsOK(res1)) {
8941 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_swap" "', argument " "1"" of type '" "gsl_vector *""'");
8942 }
8943 arg1 = (gsl_vector *)(argp1);
8944 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8945 if (!SWIG_IsOK(res2)) {
8946 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_swap" "', argument " "2"" of type '" "gsl_vector *""'");
8947 }
8948 arg2 = (gsl_vector *)(argp2);
8949 result = (int)gsl_vector_swap(arg1,arg2);
8950 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8951
8952
8953 XSRETURN(argvi);
8954 fail:
8955
8956
8957 SWIG_croak_null();
8958 }
8959 }
8960
8961
XS(_wrap_gsl_vector_swap_elements)8962 XS(_wrap_gsl_vector_swap_elements) {
8963 {
8964 gsl_vector *arg1 = (gsl_vector *) 0 ;
8965 size_t arg2 ;
8966 size_t arg3 ;
8967 void *argp1 = 0 ;
8968 int res1 = 0 ;
8969 size_t val2 ;
8970 int ecode2 = 0 ;
8971 size_t val3 ;
8972 int ecode3 = 0 ;
8973 int argvi = 0;
8974 int result;
8975 dXSARGS;
8976
8977 if ((items < 3) || (items > 3)) {
8978 SWIG_croak("Usage: gsl_vector_swap_elements(v,i,j);");
8979 }
8980 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
8981 if (!SWIG_IsOK(res1)) {
8982 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_swap_elements" "', argument " "1"" of type '" "gsl_vector *""'");
8983 }
8984 arg1 = (gsl_vector *)(argp1);
8985 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8986 if (!SWIG_IsOK(ecode2)) {
8987 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_swap_elements" "', argument " "2"" of type '" "size_t""'");
8988 }
8989 arg2 = (size_t)(val2);
8990 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
8991 if (!SWIG_IsOK(ecode3)) {
8992 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_swap_elements" "', argument " "3"" of type '" "size_t""'");
8993 }
8994 arg3 = (size_t)(val3);
8995 result = (int)gsl_vector_swap_elements(arg1,arg2,arg3);
8996 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8997
8998
8999
9000 XSRETURN(argvi);
9001 fail:
9002
9003
9004
9005 SWIG_croak_null();
9006 }
9007 }
9008
9009
XS(_wrap_gsl_vector_max)9010 XS(_wrap_gsl_vector_max) {
9011 {
9012 gsl_vector *arg1 = (gsl_vector *) 0 ;
9013 void *argp1 = 0 ;
9014 int res1 = 0 ;
9015 int argvi = 0;
9016 double result;
9017 dXSARGS;
9018
9019 if ((items < 1) || (items > 1)) {
9020 SWIG_croak("Usage: gsl_vector_max(v);");
9021 }
9022 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9023 if (!SWIG_IsOK(res1)) {
9024 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_max" "', argument " "1"" of type '" "gsl_vector const *""'");
9025 }
9026 arg1 = (gsl_vector *)(argp1);
9027 result = (double)gsl_vector_max((gsl_vector const *)arg1);
9028 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
9029
9030 XSRETURN(argvi);
9031 fail:
9032
9033 SWIG_croak_null();
9034 }
9035 }
9036
9037
XS(_wrap_gsl_vector_min)9038 XS(_wrap_gsl_vector_min) {
9039 {
9040 gsl_vector *arg1 = (gsl_vector *) 0 ;
9041 void *argp1 = 0 ;
9042 int res1 = 0 ;
9043 int argvi = 0;
9044 double result;
9045 dXSARGS;
9046
9047 if ((items < 1) || (items > 1)) {
9048 SWIG_croak("Usage: gsl_vector_min(v);");
9049 }
9050 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9051 if (!SWIG_IsOK(res1)) {
9052 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_min" "', argument " "1"" of type '" "gsl_vector const *""'");
9053 }
9054 arg1 = (gsl_vector *)(argp1);
9055 result = (double)gsl_vector_min((gsl_vector const *)arg1);
9056 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
9057
9058 XSRETURN(argvi);
9059 fail:
9060
9061 SWIG_croak_null();
9062 }
9063 }
9064
9065
XS(_wrap_gsl_vector_minmax)9066 XS(_wrap_gsl_vector_minmax) {
9067 {
9068 gsl_vector *arg1 = (gsl_vector *) 0 ;
9069 double *arg2 = (double *) 0 ;
9070 double *arg3 = (double *) 0 ;
9071 void *argp1 = 0 ;
9072 int res1 = 0 ;
9073 double temp2 ;
9074 int res2 = SWIG_TMPOBJ ;
9075 double temp3 ;
9076 int res3 = SWIG_TMPOBJ ;
9077 int argvi = 0;
9078 dXSARGS;
9079
9080 arg2 = &temp2;
9081 arg3 = &temp3;
9082 if ((items < 1) || (items > 1)) {
9083 SWIG_croak("Usage: gsl_vector_minmax(v);");
9084 }
9085 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9086 if (!SWIG_IsOK(res1)) {
9087 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_minmax" "', argument " "1"" of type '" "gsl_vector const *""'");
9088 }
9089 arg1 = (gsl_vector *)(argp1);
9090 gsl_vector_minmax((gsl_vector const *)arg1,arg2,arg3);
9091 ST(argvi) = &PL_sv_undef;
9092 if (SWIG_IsTmpObj(res2)) {
9093 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg2)); argvi++ ;
9094 } else {
9095 int new_flags = SWIG_IsNewObj(res2) ? (SWIG_POINTER_OWN | 0) : 0;
9096 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg2), SWIGTYPE_p_double, new_flags); argvi++ ;
9097 }
9098 if (SWIG_IsTmpObj(res3)) {
9099 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg3)); argvi++ ;
9100 } else {
9101 int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN | 0) : 0;
9102 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_double, new_flags); argvi++ ;
9103 }
9104
9105
9106
9107 XSRETURN(argvi);
9108 fail:
9109
9110
9111
9112 SWIG_croak_null();
9113 }
9114 }
9115
9116
XS(_wrap_gsl_vector_max_index)9117 XS(_wrap_gsl_vector_max_index) {
9118 {
9119 gsl_vector *arg1 = (gsl_vector *) 0 ;
9120 void *argp1 = 0 ;
9121 int res1 = 0 ;
9122 int argvi = 0;
9123 size_t result;
9124 dXSARGS;
9125
9126 if ((items < 1) || (items > 1)) {
9127 SWIG_croak("Usage: gsl_vector_max_index(v);");
9128 }
9129 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9130 if (!SWIG_IsOK(res1)) {
9131 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_max_index" "', argument " "1"" of type '" "gsl_vector const *""'");
9132 }
9133 arg1 = (gsl_vector *)(argp1);
9134 result = gsl_vector_max_index((gsl_vector const *)arg1);
9135 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
9136
9137 XSRETURN(argvi);
9138 fail:
9139
9140 SWIG_croak_null();
9141 }
9142 }
9143
9144
XS(_wrap_gsl_vector_min_index)9145 XS(_wrap_gsl_vector_min_index) {
9146 {
9147 gsl_vector *arg1 = (gsl_vector *) 0 ;
9148 void *argp1 = 0 ;
9149 int res1 = 0 ;
9150 int argvi = 0;
9151 size_t result;
9152 dXSARGS;
9153
9154 if ((items < 1) || (items > 1)) {
9155 SWIG_croak("Usage: gsl_vector_min_index(v);");
9156 }
9157 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9158 if (!SWIG_IsOK(res1)) {
9159 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_min_index" "', argument " "1"" of type '" "gsl_vector const *""'");
9160 }
9161 arg1 = (gsl_vector *)(argp1);
9162 result = gsl_vector_min_index((gsl_vector const *)arg1);
9163 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
9164
9165 XSRETURN(argvi);
9166 fail:
9167
9168 SWIG_croak_null();
9169 }
9170 }
9171
9172
XS(_wrap_gsl_vector_minmax_index)9173 XS(_wrap_gsl_vector_minmax_index) {
9174 {
9175 gsl_vector *arg1 = (gsl_vector *) 0 ;
9176 size_t *arg2 = (size_t *) 0 ;
9177 size_t *arg3 = (size_t *) 0 ;
9178 void *argp1 = 0 ;
9179 int res1 = 0 ;
9180 size_t temp2 ;
9181 int res2 = SWIG_TMPOBJ ;
9182 size_t temp3 ;
9183 int res3 = SWIG_TMPOBJ ;
9184 int argvi = 0;
9185 dXSARGS;
9186
9187 arg2 = &temp2;
9188 arg3 = &temp3;
9189 if ((items < 1) || (items > 1)) {
9190 SWIG_croak("Usage: gsl_vector_minmax_index(v);");
9191 }
9192 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9193 if (!SWIG_IsOK(res1)) {
9194 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_minmax_index" "', argument " "1"" of type '" "gsl_vector const *""'");
9195 }
9196 arg1 = (gsl_vector *)(argp1);
9197 gsl_vector_minmax_index((gsl_vector const *)arg1,arg2,arg3);
9198 ST(argvi) = &PL_sv_undef;
9199 if (SWIG_IsTmpObj(res2)) {
9200 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg2)); argvi++ ;
9201 } else {
9202 int new_flags = SWIG_IsNewObj(res2) ? (SWIG_POINTER_OWN | 0) : 0;
9203 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg2), SWIGTYPE_p_size_t, new_flags); argvi++ ;
9204 }
9205 if (SWIG_IsTmpObj(res3)) {
9206 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg3)); argvi++ ;
9207 } else {
9208 int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN | 0) : 0;
9209 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_size_t, new_flags); argvi++ ;
9210 }
9211
9212
9213
9214 XSRETURN(argvi);
9215 fail:
9216
9217
9218
9219 SWIG_croak_null();
9220 }
9221 }
9222
9223
XS(_wrap_gsl_vector_add)9224 XS(_wrap_gsl_vector_add) {
9225 {
9226 gsl_vector *arg1 = (gsl_vector *) 0 ;
9227 gsl_vector *arg2 = (gsl_vector *) 0 ;
9228 void *argp1 = 0 ;
9229 int res1 = 0 ;
9230 void *argp2 = 0 ;
9231 int res2 = 0 ;
9232 int argvi = 0;
9233 int result;
9234 dXSARGS;
9235
9236 if ((items < 2) || (items > 2)) {
9237 SWIG_croak("Usage: gsl_vector_add(a,b);");
9238 }
9239 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9240 if (!SWIG_IsOK(res1)) {
9241 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_add" "', argument " "1"" of type '" "gsl_vector *""'");
9242 }
9243 arg1 = (gsl_vector *)(argp1);
9244 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9245 if (!SWIG_IsOK(res2)) {
9246 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_add" "', argument " "2"" of type '" "gsl_vector const *""'");
9247 }
9248 arg2 = (gsl_vector *)(argp2);
9249 result = (int)gsl_vector_add(arg1,(gsl_vector const *)arg2);
9250 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9251
9252
9253 XSRETURN(argvi);
9254 fail:
9255
9256
9257 SWIG_croak_null();
9258 }
9259 }
9260
9261
XS(_wrap_gsl_vector_sub)9262 XS(_wrap_gsl_vector_sub) {
9263 {
9264 gsl_vector *arg1 = (gsl_vector *) 0 ;
9265 gsl_vector *arg2 = (gsl_vector *) 0 ;
9266 void *argp1 = 0 ;
9267 int res1 = 0 ;
9268 void *argp2 = 0 ;
9269 int res2 = 0 ;
9270 int argvi = 0;
9271 int result;
9272 dXSARGS;
9273
9274 if ((items < 2) || (items > 2)) {
9275 SWIG_croak("Usage: gsl_vector_sub(a,b);");
9276 }
9277 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9278 if (!SWIG_IsOK(res1)) {
9279 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_sub" "', argument " "1"" of type '" "gsl_vector *""'");
9280 }
9281 arg1 = (gsl_vector *)(argp1);
9282 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9283 if (!SWIG_IsOK(res2)) {
9284 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_sub" "', argument " "2"" of type '" "gsl_vector const *""'");
9285 }
9286 arg2 = (gsl_vector *)(argp2);
9287 result = (int)gsl_vector_sub(arg1,(gsl_vector const *)arg2);
9288 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9289
9290
9291 XSRETURN(argvi);
9292 fail:
9293
9294
9295 SWIG_croak_null();
9296 }
9297 }
9298
9299
XS(_wrap_gsl_vector_mul)9300 XS(_wrap_gsl_vector_mul) {
9301 {
9302 gsl_vector *arg1 = (gsl_vector *) 0 ;
9303 gsl_vector *arg2 = (gsl_vector *) 0 ;
9304 void *argp1 = 0 ;
9305 int res1 = 0 ;
9306 void *argp2 = 0 ;
9307 int res2 = 0 ;
9308 int argvi = 0;
9309 int result;
9310 dXSARGS;
9311
9312 if ((items < 2) || (items > 2)) {
9313 SWIG_croak("Usage: gsl_vector_mul(a,b);");
9314 }
9315 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9316 if (!SWIG_IsOK(res1)) {
9317 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_mul" "', argument " "1"" of type '" "gsl_vector *""'");
9318 }
9319 arg1 = (gsl_vector *)(argp1);
9320 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9321 if (!SWIG_IsOK(res2)) {
9322 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_mul" "', argument " "2"" of type '" "gsl_vector const *""'");
9323 }
9324 arg2 = (gsl_vector *)(argp2);
9325 result = (int)gsl_vector_mul(arg1,(gsl_vector const *)arg2);
9326 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9327
9328
9329 XSRETURN(argvi);
9330 fail:
9331
9332
9333 SWIG_croak_null();
9334 }
9335 }
9336
9337
XS(_wrap_gsl_vector_div)9338 XS(_wrap_gsl_vector_div) {
9339 {
9340 gsl_vector *arg1 = (gsl_vector *) 0 ;
9341 gsl_vector *arg2 = (gsl_vector *) 0 ;
9342 void *argp1 = 0 ;
9343 int res1 = 0 ;
9344 void *argp2 = 0 ;
9345 int res2 = 0 ;
9346 int argvi = 0;
9347 int result;
9348 dXSARGS;
9349
9350 if ((items < 2) || (items > 2)) {
9351 SWIG_croak("Usage: gsl_vector_div(a,b);");
9352 }
9353 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9354 if (!SWIG_IsOK(res1)) {
9355 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_div" "', argument " "1"" of type '" "gsl_vector *""'");
9356 }
9357 arg1 = (gsl_vector *)(argp1);
9358 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9359 if (!SWIG_IsOK(res2)) {
9360 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_div" "', argument " "2"" of type '" "gsl_vector const *""'");
9361 }
9362 arg2 = (gsl_vector *)(argp2);
9363 result = (int)gsl_vector_div(arg1,(gsl_vector const *)arg2);
9364 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9365
9366
9367 XSRETURN(argvi);
9368 fail:
9369
9370
9371 SWIG_croak_null();
9372 }
9373 }
9374
9375
XS(_wrap_gsl_vector_scale)9376 XS(_wrap_gsl_vector_scale) {
9377 {
9378 gsl_vector *arg1 = (gsl_vector *) 0 ;
9379 double arg2 ;
9380 void *argp1 = 0 ;
9381 int res1 = 0 ;
9382 double val2 ;
9383 int ecode2 = 0 ;
9384 int argvi = 0;
9385 int result;
9386 dXSARGS;
9387
9388 if ((items < 2) || (items > 2)) {
9389 SWIG_croak("Usage: gsl_vector_scale(a,x);");
9390 }
9391 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9392 if (!SWIG_IsOK(res1)) {
9393 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_scale" "', argument " "1"" of type '" "gsl_vector *""'");
9394 }
9395 arg1 = (gsl_vector *)(argp1);
9396 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9397 if (!SWIG_IsOK(ecode2)) {
9398 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_scale" "', argument " "2"" of type '" "double""'");
9399 }
9400 arg2 = (double)(val2);
9401 result = (int)gsl_vector_scale(arg1,arg2);
9402 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9403
9404
9405 XSRETURN(argvi);
9406 fail:
9407
9408
9409 SWIG_croak_null();
9410 }
9411 }
9412
9413
XS(_wrap_gsl_vector_add_constant)9414 XS(_wrap_gsl_vector_add_constant) {
9415 {
9416 gsl_vector *arg1 = (gsl_vector *) 0 ;
9417 double arg2 ;
9418 void *argp1 = 0 ;
9419 int res1 = 0 ;
9420 double val2 ;
9421 int ecode2 = 0 ;
9422 int argvi = 0;
9423 int result;
9424 dXSARGS;
9425
9426 if ((items < 2) || (items > 2)) {
9427 SWIG_croak("Usage: gsl_vector_add_constant(a,x);");
9428 }
9429 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9430 if (!SWIG_IsOK(res1)) {
9431 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_add_constant" "', argument " "1"" of type '" "gsl_vector *""'");
9432 }
9433 arg1 = (gsl_vector *)(argp1);
9434 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9435 if (!SWIG_IsOK(ecode2)) {
9436 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_add_constant" "', argument " "2"" of type '" "double""'");
9437 }
9438 arg2 = (double)(val2);
9439 result = (int)gsl_vector_add_constant(arg1,arg2);
9440 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9441
9442
9443 XSRETURN(argvi);
9444 fail:
9445
9446
9447 SWIG_croak_null();
9448 }
9449 }
9450
9451
XS(_wrap_gsl_vector_equal)9452 XS(_wrap_gsl_vector_equal) {
9453 {
9454 gsl_vector *arg1 = (gsl_vector *) 0 ;
9455 gsl_vector *arg2 = (gsl_vector *) 0 ;
9456 void *argp1 = 0 ;
9457 int res1 = 0 ;
9458 void *argp2 = 0 ;
9459 int res2 = 0 ;
9460 int argvi = 0;
9461 int result;
9462 dXSARGS;
9463
9464 if ((items < 2) || (items > 2)) {
9465 SWIG_croak("Usage: gsl_vector_equal(u,v);");
9466 }
9467 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9468 if (!SWIG_IsOK(res1)) {
9469 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_equal" "', argument " "1"" of type '" "gsl_vector const *""'");
9470 }
9471 arg1 = (gsl_vector *)(argp1);
9472 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9473 if (!SWIG_IsOK(res2)) {
9474 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_equal" "', argument " "2"" of type '" "gsl_vector const *""'");
9475 }
9476 arg2 = (gsl_vector *)(argp2);
9477 result = (int)gsl_vector_equal((gsl_vector const *)arg1,(gsl_vector const *)arg2);
9478 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9479
9480
9481 XSRETURN(argvi);
9482 fail:
9483
9484
9485 SWIG_croak_null();
9486 }
9487 }
9488
9489
XS(_wrap_gsl_vector_isnull)9490 XS(_wrap_gsl_vector_isnull) {
9491 {
9492 gsl_vector *arg1 = (gsl_vector *) 0 ;
9493 void *argp1 = 0 ;
9494 int res1 = 0 ;
9495 int argvi = 0;
9496 int result;
9497 dXSARGS;
9498
9499 if ((items < 1) || (items > 1)) {
9500 SWIG_croak("Usage: gsl_vector_isnull(v);");
9501 }
9502 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9503 if (!SWIG_IsOK(res1)) {
9504 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_isnull" "', argument " "1"" of type '" "gsl_vector const *""'");
9505 }
9506 arg1 = (gsl_vector *)(argp1);
9507 result = (int)gsl_vector_isnull((gsl_vector const *)arg1);
9508 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9509
9510 XSRETURN(argvi);
9511 fail:
9512
9513 SWIG_croak_null();
9514 }
9515 }
9516
9517
XS(_wrap_gsl_vector_ispos)9518 XS(_wrap_gsl_vector_ispos) {
9519 {
9520 gsl_vector *arg1 = (gsl_vector *) 0 ;
9521 void *argp1 = 0 ;
9522 int res1 = 0 ;
9523 int argvi = 0;
9524 int result;
9525 dXSARGS;
9526
9527 if ((items < 1) || (items > 1)) {
9528 SWIG_croak("Usage: gsl_vector_ispos(v);");
9529 }
9530 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9531 if (!SWIG_IsOK(res1)) {
9532 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_ispos" "', argument " "1"" of type '" "gsl_vector const *""'");
9533 }
9534 arg1 = (gsl_vector *)(argp1);
9535 result = (int)gsl_vector_ispos((gsl_vector const *)arg1);
9536 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9537
9538 XSRETURN(argvi);
9539 fail:
9540
9541 SWIG_croak_null();
9542 }
9543 }
9544
9545
XS(_wrap_gsl_vector_isneg)9546 XS(_wrap_gsl_vector_isneg) {
9547 {
9548 gsl_vector *arg1 = (gsl_vector *) 0 ;
9549 void *argp1 = 0 ;
9550 int res1 = 0 ;
9551 int argvi = 0;
9552 int result;
9553 dXSARGS;
9554
9555 if ((items < 1) || (items > 1)) {
9556 SWIG_croak("Usage: gsl_vector_isneg(v);");
9557 }
9558 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9559 if (!SWIG_IsOK(res1)) {
9560 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_isneg" "', argument " "1"" of type '" "gsl_vector const *""'");
9561 }
9562 arg1 = (gsl_vector *)(argp1);
9563 result = (int)gsl_vector_isneg((gsl_vector const *)arg1);
9564 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9565
9566 XSRETURN(argvi);
9567 fail:
9568
9569 SWIG_croak_null();
9570 }
9571 }
9572
9573
XS(_wrap_gsl_vector_isnonneg)9574 XS(_wrap_gsl_vector_isnonneg) {
9575 {
9576 gsl_vector *arg1 = (gsl_vector *) 0 ;
9577 void *argp1 = 0 ;
9578 int res1 = 0 ;
9579 int argvi = 0;
9580 int result;
9581 dXSARGS;
9582
9583 if ((items < 1) || (items > 1)) {
9584 SWIG_croak("Usage: gsl_vector_isnonneg(v);");
9585 }
9586 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9587 if (!SWIG_IsOK(res1)) {
9588 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_isnonneg" "', argument " "1"" of type '" "gsl_vector const *""'");
9589 }
9590 arg1 = (gsl_vector *)(argp1);
9591 result = (int)gsl_vector_isnonneg((gsl_vector const *)arg1);
9592 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9593
9594 XSRETURN(argvi);
9595 fail:
9596
9597 SWIG_croak_null();
9598 }
9599 }
9600
9601
XS(_wrap_gsl_vector_get)9602 XS(_wrap_gsl_vector_get) {
9603 {
9604 gsl_vector *arg1 = (gsl_vector *) 0 ;
9605 size_t arg2 ;
9606 void *argp1 = 0 ;
9607 int res1 = 0 ;
9608 size_t val2 ;
9609 int ecode2 = 0 ;
9610 int argvi = 0;
9611 double result;
9612 dXSARGS;
9613
9614 if ((items < 2) || (items > 2)) {
9615 SWIG_croak("Usage: gsl_vector_get(v,i);");
9616 }
9617 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9618 if (!SWIG_IsOK(res1)) {
9619 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_get" "', argument " "1"" of type '" "gsl_vector const *""'");
9620 }
9621 arg1 = (gsl_vector *)(argp1);
9622 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9623 if (!SWIG_IsOK(ecode2)) {
9624 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_get" "', argument " "2"" of type '" "size_t""'");
9625 }
9626 arg2 = (size_t)(val2);
9627 result = (double)gsl_vector_get((gsl_vector const *)arg1,arg2);
9628 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
9629
9630
9631 XSRETURN(argvi);
9632 fail:
9633
9634
9635 SWIG_croak_null();
9636 }
9637 }
9638
9639
XS(_wrap_gsl_vector_set)9640 XS(_wrap_gsl_vector_set) {
9641 {
9642 gsl_vector *arg1 = (gsl_vector *) 0 ;
9643 size_t arg2 ;
9644 double arg3 ;
9645 void *argp1 = 0 ;
9646 int res1 = 0 ;
9647 size_t val2 ;
9648 int ecode2 = 0 ;
9649 double val3 ;
9650 int ecode3 = 0 ;
9651 int argvi = 0;
9652 dXSARGS;
9653
9654 if ((items < 3) || (items > 3)) {
9655 SWIG_croak("Usage: gsl_vector_set(v,i,x);");
9656 }
9657 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9658 if (!SWIG_IsOK(res1)) {
9659 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_set" "', argument " "1"" of type '" "gsl_vector *""'");
9660 }
9661 arg1 = (gsl_vector *)(argp1);
9662 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9663 if (!SWIG_IsOK(ecode2)) {
9664 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_set" "', argument " "2"" of type '" "size_t""'");
9665 }
9666 arg2 = (size_t)(val2);
9667 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
9668 if (!SWIG_IsOK(ecode3)) {
9669 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_set" "', argument " "3"" of type '" "double""'");
9670 }
9671 arg3 = (double)(val3);
9672 gsl_vector_set(arg1,arg2,arg3);
9673 ST(argvi) = &PL_sv_undef;
9674
9675
9676
9677 XSRETURN(argvi);
9678 fail:
9679
9680
9681
9682 SWIG_croak_null();
9683 }
9684 }
9685
9686
XS(_wrap_gsl_vector_ptr)9687 XS(_wrap_gsl_vector_ptr) {
9688 {
9689 gsl_vector *arg1 = (gsl_vector *) 0 ;
9690 size_t arg2 ;
9691 void *argp1 = 0 ;
9692 int res1 = 0 ;
9693 size_t val2 ;
9694 int ecode2 = 0 ;
9695 int argvi = 0;
9696 double *result = 0 ;
9697 dXSARGS;
9698
9699 if ((items < 2) || (items > 2)) {
9700 SWIG_croak("Usage: gsl_vector_ptr(v,i);");
9701 }
9702 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9703 if (!SWIG_IsOK(res1)) {
9704 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_ptr" "', argument " "1"" of type '" "gsl_vector *""'");
9705 }
9706 arg1 = (gsl_vector *)(argp1);
9707 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9708 if (!SWIG_IsOK(ecode2)) {
9709 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_ptr" "', argument " "2"" of type '" "size_t""'");
9710 }
9711 arg2 = (size_t)(val2);
9712 result = (double *)gsl_vector_ptr(arg1,arg2);
9713 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
9714
9715
9716 XSRETURN(argvi);
9717 fail:
9718
9719
9720 SWIG_croak_null();
9721 }
9722 }
9723
9724
XS(_wrap_gsl_vector_const_ptr)9725 XS(_wrap_gsl_vector_const_ptr) {
9726 {
9727 gsl_vector *arg1 = (gsl_vector *) 0 ;
9728 size_t arg2 ;
9729 void *argp1 = 0 ;
9730 int res1 = 0 ;
9731 size_t val2 ;
9732 int ecode2 = 0 ;
9733 int argvi = 0;
9734 double *result = 0 ;
9735 dXSARGS;
9736
9737 if ((items < 2) || (items > 2)) {
9738 SWIG_croak("Usage: gsl_vector_const_ptr(v,i);");
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_const_ptr" "', argument " "1"" of type '" "gsl_vector const *""'");
9743 }
9744 arg1 = (gsl_vector *)(argp1);
9745 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9746 if (!SWIG_IsOK(ecode2)) {
9747 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_const_ptr" "', argument " "2"" of type '" "size_t""'");
9748 }
9749 arg2 = (size_t)(val2);
9750 result = (double *)gsl_vector_const_ptr((gsl_vector const *)arg1,arg2);
9751 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
9752
9753
9754 XSRETURN(argvi);
9755 fail:
9756
9757
9758 SWIG_croak_null();
9759 }
9760 }
9761
9762
XS(_wrap_gsl_vector_int_size_set)9763 XS(_wrap_gsl_vector_int_size_set) {
9764 {
9765 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
9766 size_t arg2 ;
9767 void *argp1 = 0 ;
9768 int res1 = 0 ;
9769 size_t val2 ;
9770 int ecode2 = 0 ;
9771 int argvi = 0;
9772 dXSARGS;
9773
9774 if ((items < 2) || (items > 2)) {
9775 SWIG_croak("Usage: gsl_vector_int_size_set(self,size);");
9776 }
9777 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
9778 if (!SWIG_IsOK(res1)) {
9779 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_size_set" "', argument " "1"" of type '" "gsl_vector_int *""'");
9780 }
9781 arg1 = (gsl_vector_int *)(argp1);
9782 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9783 if (!SWIG_IsOK(ecode2)) {
9784 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_size_set" "', argument " "2"" of type '" "size_t""'");
9785 }
9786 arg2 = (size_t)(val2);
9787 if (arg1) (arg1)->size = arg2;
9788 ST(argvi) = &PL_sv_undef;
9789
9790
9791 XSRETURN(argvi);
9792 fail:
9793
9794
9795 SWIG_croak_null();
9796 }
9797 }
9798
9799
XS(_wrap_gsl_vector_int_size_get)9800 XS(_wrap_gsl_vector_int_size_get) {
9801 {
9802 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
9803 void *argp1 = 0 ;
9804 int res1 = 0 ;
9805 int argvi = 0;
9806 size_t result;
9807 dXSARGS;
9808
9809 if ((items < 1) || (items > 1)) {
9810 SWIG_croak("Usage: gsl_vector_int_size_get(self);");
9811 }
9812 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
9813 if (!SWIG_IsOK(res1)) {
9814 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_size_get" "', argument " "1"" of type '" "gsl_vector_int *""'");
9815 }
9816 arg1 = (gsl_vector_int *)(argp1);
9817 result = ((arg1)->size);
9818 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
9819
9820 XSRETURN(argvi);
9821 fail:
9822
9823 SWIG_croak_null();
9824 }
9825 }
9826
9827
XS(_wrap_gsl_vector_int_stride_set)9828 XS(_wrap_gsl_vector_int_stride_set) {
9829 {
9830 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
9831 size_t arg2 ;
9832 void *argp1 = 0 ;
9833 int res1 = 0 ;
9834 size_t val2 ;
9835 int ecode2 = 0 ;
9836 int argvi = 0;
9837 dXSARGS;
9838
9839 if ((items < 2) || (items > 2)) {
9840 SWIG_croak("Usage: gsl_vector_int_stride_set(self,stride);");
9841 }
9842 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
9843 if (!SWIG_IsOK(res1)) {
9844 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_stride_set" "', argument " "1"" of type '" "gsl_vector_int *""'");
9845 }
9846 arg1 = (gsl_vector_int *)(argp1);
9847 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9848 if (!SWIG_IsOK(ecode2)) {
9849 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_stride_set" "', argument " "2"" of type '" "size_t""'");
9850 }
9851 arg2 = (size_t)(val2);
9852 if (arg1) (arg1)->stride = arg2;
9853 ST(argvi) = &PL_sv_undef;
9854
9855
9856 XSRETURN(argvi);
9857 fail:
9858
9859
9860 SWIG_croak_null();
9861 }
9862 }
9863
9864
XS(_wrap_gsl_vector_int_stride_get)9865 XS(_wrap_gsl_vector_int_stride_get) {
9866 {
9867 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
9868 void *argp1 = 0 ;
9869 int res1 = 0 ;
9870 int argvi = 0;
9871 size_t result;
9872 dXSARGS;
9873
9874 if ((items < 1) || (items > 1)) {
9875 SWIG_croak("Usage: gsl_vector_int_stride_get(self);");
9876 }
9877 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
9878 if (!SWIG_IsOK(res1)) {
9879 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_stride_get" "', argument " "1"" of type '" "gsl_vector_int *""'");
9880 }
9881 arg1 = (gsl_vector_int *)(argp1);
9882 result = ((arg1)->stride);
9883 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
9884
9885 XSRETURN(argvi);
9886 fail:
9887
9888 SWIG_croak_null();
9889 }
9890 }
9891
9892
XS(_wrap_gsl_vector_int_data_set)9893 XS(_wrap_gsl_vector_int_data_set) {
9894 {
9895 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
9896 int *arg2 = (int *) 0 ;
9897 void *argp1 = 0 ;
9898 int res1 = 0 ;
9899 void *argp2 = 0 ;
9900 int res2 = 0 ;
9901 int argvi = 0;
9902 dXSARGS;
9903
9904 if ((items < 2) || (items > 2)) {
9905 SWIG_croak("Usage: gsl_vector_int_data_set(self,data);");
9906 }
9907 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
9908 if (!SWIG_IsOK(res1)) {
9909 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_data_set" "', argument " "1"" of type '" "gsl_vector_int *""'");
9910 }
9911 arg1 = (gsl_vector_int *)(argp1);
9912 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_int, SWIG_POINTER_DISOWN | 0 );
9913 if (!SWIG_IsOK(res2)) {
9914 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_int_data_set" "', argument " "2"" of type '" "int *""'");
9915 }
9916 arg2 = (int *)(argp2);
9917 if (arg1) (arg1)->data = arg2;
9918 ST(argvi) = &PL_sv_undef;
9919
9920
9921 XSRETURN(argvi);
9922 fail:
9923
9924
9925 SWIG_croak_null();
9926 }
9927 }
9928
9929
XS(_wrap_gsl_vector_int_data_get)9930 XS(_wrap_gsl_vector_int_data_get) {
9931 {
9932 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
9933 void *argp1 = 0 ;
9934 int res1 = 0 ;
9935 int argvi = 0;
9936 int *result = 0 ;
9937 dXSARGS;
9938
9939 if ((items < 1) || (items > 1)) {
9940 SWIG_croak("Usage: gsl_vector_int_data_get(self);");
9941 }
9942 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
9943 if (!SWIG_IsOK(res1)) {
9944 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_data_get" "', argument " "1"" of type '" "gsl_vector_int *""'");
9945 }
9946 arg1 = (gsl_vector_int *)(argp1);
9947 result = (int *) ((arg1)->data);
9948 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_int, 0 | 0); argvi++ ;
9949
9950 XSRETURN(argvi);
9951 fail:
9952
9953 SWIG_croak_null();
9954 }
9955 }
9956
9957
XS(_wrap_gsl_vector_int_block_set)9958 XS(_wrap_gsl_vector_int_block_set) {
9959 {
9960 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
9961 gsl_block_int *arg2 = (gsl_block_int *) 0 ;
9962 void *argp1 = 0 ;
9963 int res1 = 0 ;
9964 void *argp2 = 0 ;
9965 int res2 = 0 ;
9966 int argvi = 0;
9967 dXSARGS;
9968
9969 if ((items < 2) || (items > 2)) {
9970 SWIG_croak("Usage: gsl_vector_int_block_set(self,block);");
9971 }
9972 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
9973 if (!SWIG_IsOK(res1)) {
9974 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_block_set" "', argument " "1"" of type '" "gsl_vector_int *""'");
9975 }
9976 arg1 = (gsl_vector_int *)(argp1);
9977 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_block_int, SWIG_POINTER_DISOWN | 0 );
9978 if (!SWIG_IsOK(res2)) {
9979 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_int_block_set" "', argument " "2"" of type '" "gsl_block_int *""'");
9980 }
9981 arg2 = (gsl_block_int *)(argp2);
9982 if (arg1) (arg1)->block = arg2;
9983 ST(argvi) = &PL_sv_undef;
9984
9985
9986 XSRETURN(argvi);
9987 fail:
9988
9989
9990 SWIG_croak_null();
9991 }
9992 }
9993
9994
XS(_wrap_gsl_vector_int_block_get)9995 XS(_wrap_gsl_vector_int_block_get) {
9996 {
9997 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
9998 void *argp1 = 0 ;
9999 int res1 = 0 ;
10000 int argvi = 0;
10001 gsl_block_int *result = 0 ;
10002 dXSARGS;
10003
10004 if ((items < 1) || (items > 1)) {
10005 SWIG_croak("Usage: gsl_vector_int_block_get(self);");
10006 }
10007 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
10008 if (!SWIG_IsOK(res1)) {
10009 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_block_get" "', argument " "1"" of type '" "gsl_vector_int *""'");
10010 }
10011 arg1 = (gsl_vector_int *)(argp1);
10012 result = (gsl_block_int *) ((arg1)->block);
10013 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_block_int, 0 | 0); argvi++ ;
10014
10015 XSRETURN(argvi);
10016 fail:
10017
10018 SWIG_croak_null();
10019 }
10020 }
10021
10022
XS(_wrap_gsl_vector_int_owner_set)10023 XS(_wrap_gsl_vector_int_owner_set) {
10024 {
10025 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
10026 int arg2 ;
10027 void *argp1 = 0 ;
10028 int res1 = 0 ;
10029 int val2 ;
10030 int ecode2 = 0 ;
10031 int argvi = 0;
10032 dXSARGS;
10033
10034 if ((items < 2) || (items > 2)) {
10035 SWIG_croak("Usage: gsl_vector_int_owner_set(self,owner);");
10036 }
10037 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
10038 if (!SWIG_IsOK(res1)) {
10039 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_owner_set" "', argument " "1"" of type '" "gsl_vector_int *""'");
10040 }
10041 arg1 = (gsl_vector_int *)(argp1);
10042 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10043 if (!SWIG_IsOK(ecode2)) {
10044 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_owner_set" "', argument " "2"" of type '" "int""'");
10045 }
10046 arg2 = (int)(val2);
10047 if (arg1) (arg1)->owner = arg2;
10048 ST(argvi) = &PL_sv_undef;
10049
10050
10051 XSRETURN(argvi);
10052 fail:
10053
10054
10055 SWIG_croak_null();
10056 }
10057 }
10058
10059
XS(_wrap_gsl_vector_int_owner_get)10060 XS(_wrap_gsl_vector_int_owner_get) {
10061 {
10062 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
10063 void *argp1 = 0 ;
10064 int res1 = 0 ;
10065 int argvi = 0;
10066 int result;
10067 dXSARGS;
10068
10069 if ((items < 1) || (items > 1)) {
10070 SWIG_croak("Usage: gsl_vector_int_owner_get(self);");
10071 }
10072 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
10073 if (!SWIG_IsOK(res1)) {
10074 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_owner_get" "', argument " "1"" of type '" "gsl_vector_int *""'");
10075 }
10076 arg1 = (gsl_vector_int *)(argp1);
10077 result = (int) ((arg1)->owner);
10078 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10079
10080 XSRETURN(argvi);
10081 fail:
10082
10083 SWIG_croak_null();
10084 }
10085 }
10086
10087
XS(_wrap_new_gsl_vector_int)10088 XS(_wrap_new_gsl_vector_int) {
10089 {
10090 int argvi = 0;
10091 gsl_vector_int *result = 0 ;
10092 dXSARGS;
10093
10094 if ((items < 0) || (items > 0)) {
10095 SWIG_croak("Usage: new_gsl_vector_int();");
10096 }
10097 result = (gsl_vector_int *)calloc(1, sizeof(gsl_vector_int));
10098 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector_int, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
10099 XSRETURN(argvi);
10100 fail:
10101 SWIG_croak_null();
10102 }
10103 }
10104
10105
XS(_wrap_delete_gsl_vector_int)10106 XS(_wrap_delete_gsl_vector_int) {
10107 {
10108 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
10109 void *argp1 = 0 ;
10110 int res1 = 0 ;
10111 int argvi = 0;
10112 dXSARGS;
10113
10114 if ((items < 1) || (items > 1)) {
10115 SWIG_croak("Usage: delete_gsl_vector_int(self);");
10116 }
10117 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, SWIG_POINTER_DISOWN | 0 );
10118 if (!SWIG_IsOK(res1)) {
10119 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_vector_int" "', argument " "1"" of type '" "gsl_vector_int *""'");
10120 }
10121 arg1 = (gsl_vector_int *)(argp1);
10122 free((char *) arg1);
10123 ST(argvi) = &PL_sv_undef;
10124
10125 XSRETURN(argvi);
10126 fail:
10127
10128 SWIG_croak_null();
10129 }
10130 }
10131
10132
XS(_wrap__gsl_vector_int_view_vector_set)10133 XS(_wrap__gsl_vector_int_view_vector_set) {
10134 {
10135 _gsl_vector_int_view *arg1 = (_gsl_vector_int_view *) 0 ;
10136 gsl_vector_int *arg2 = (gsl_vector_int *) 0 ;
10137 void *argp1 = 0 ;
10138 int res1 = 0 ;
10139 void *argp2 = 0 ;
10140 int res2 = 0 ;
10141 int argvi = 0;
10142 dXSARGS;
10143
10144 if ((items < 2) || (items > 2)) {
10145 SWIG_croak("Usage: _gsl_vector_int_view_vector_set(self,vector);");
10146 }
10147 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_int_view, 0 | 0 );
10148 if (!SWIG_IsOK(res1)) {
10149 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "_gsl_vector_int_view_vector_set" "', argument " "1"" of type '" "_gsl_vector_int_view *""'");
10150 }
10151 arg1 = (_gsl_vector_int_view *)(argp1);
10152 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
10153 if (!SWIG_IsOK(res2)) {
10154 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "_gsl_vector_int_view_vector_set" "', argument " "2"" of type '" "gsl_vector_int *""'");
10155 }
10156 arg2 = (gsl_vector_int *)(argp2);
10157 if (arg1) (arg1)->vector = *arg2;
10158 ST(argvi) = &PL_sv_undef;
10159
10160
10161 XSRETURN(argvi);
10162 fail:
10163
10164
10165 SWIG_croak_null();
10166 }
10167 }
10168
10169
XS(_wrap__gsl_vector_int_view_vector_get)10170 XS(_wrap__gsl_vector_int_view_vector_get) {
10171 {
10172 _gsl_vector_int_view *arg1 = (_gsl_vector_int_view *) 0 ;
10173 void *argp1 = 0 ;
10174 int res1 = 0 ;
10175 int argvi = 0;
10176 gsl_vector_int *result = 0 ;
10177 dXSARGS;
10178
10179 if ((items < 1) || (items > 1)) {
10180 SWIG_croak("Usage: _gsl_vector_int_view_vector_get(self);");
10181 }
10182 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_int_view, 0 | 0 );
10183 if (!SWIG_IsOK(res1)) {
10184 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "_gsl_vector_int_view_vector_get" "', argument " "1"" of type '" "_gsl_vector_int_view *""'");
10185 }
10186 arg1 = (_gsl_vector_int_view *)(argp1);
10187 result = (gsl_vector_int *)& ((arg1)->vector);
10188 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector_int, 0 | SWIG_SHADOW); argvi++ ;
10189
10190 XSRETURN(argvi);
10191 fail:
10192
10193 SWIG_croak_null();
10194 }
10195 }
10196
10197
XS(_wrap_new__gsl_vector_int_view)10198 XS(_wrap_new__gsl_vector_int_view) {
10199 {
10200 int argvi = 0;
10201 _gsl_vector_int_view *result = 0 ;
10202 dXSARGS;
10203
10204 if ((items < 0) || (items > 0)) {
10205 SWIG_croak("Usage: new__gsl_vector_int_view();");
10206 }
10207 result = (_gsl_vector_int_view *)calloc(1, sizeof(_gsl_vector_int_view));
10208 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p__gsl_vector_int_view, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
10209 XSRETURN(argvi);
10210 fail:
10211 SWIG_croak_null();
10212 }
10213 }
10214
10215
XS(_wrap_delete__gsl_vector_int_view)10216 XS(_wrap_delete__gsl_vector_int_view) {
10217 {
10218 _gsl_vector_int_view *arg1 = (_gsl_vector_int_view *) 0 ;
10219 void *argp1 = 0 ;
10220 int res1 = 0 ;
10221 int argvi = 0;
10222 dXSARGS;
10223
10224 if ((items < 1) || (items > 1)) {
10225 SWIG_croak("Usage: delete__gsl_vector_int_view(self);");
10226 }
10227 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_int_view, SWIG_POINTER_DISOWN | 0 );
10228 if (!SWIG_IsOK(res1)) {
10229 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete__gsl_vector_int_view" "', argument " "1"" of type '" "_gsl_vector_int_view *""'");
10230 }
10231 arg1 = (_gsl_vector_int_view *)(argp1);
10232 free((char *) arg1);
10233 ST(argvi) = &PL_sv_undef;
10234
10235 XSRETURN(argvi);
10236 fail:
10237
10238 SWIG_croak_null();
10239 }
10240 }
10241
10242
XS(_wrap__gsl_vector_int_const_view_vector_set)10243 XS(_wrap__gsl_vector_int_const_view_vector_set) {
10244 {
10245 _gsl_vector_int_const_view *arg1 = (_gsl_vector_int_const_view *) 0 ;
10246 gsl_vector_int *arg2 = (gsl_vector_int *) 0 ;
10247 void *argp1 = 0 ;
10248 int res1 = 0 ;
10249 void *argp2 = 0 ;
10250 int res2 = 0 ;
10251 int argvi = 0;
10252 dXSARGS;
10253
10254 if ((items < 2) || (items > 2)) {
10255 SWIG_croak("Usage: _gsl_vector_int_const_view_vector_set(self,vector);");
10256 }
10257 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_int_const_view, 0 | 0 );
10258 if (!SWIG_IsOK(res1)) {
10259 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "_gsl_vector_int_const_view_vector_set" "', argument " "1"" of type '" "_gsl_vector_int_const_view *""'");
10260 }
10261 arg1 = (_gsl_vector_int_const_view *)(argp1);
10262 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
10263 if (!SWIG_IsOK(res2)) {
10264 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "_gsl_vector_int_const_view_vector_set" "', argument " "2"" of type '" "gsl_vector_int *""'");
10265 }
10266 arg2 = (gsl_vector_int *)(argp2);
10267 if (arg1) (arg1)->vector = *arg2;
10268 ST(argvi) = &PL_sv_undef;
10269
10270
10271 XSRETURN(argvi);
10272 fail:
10273
10274
10275 SWIG_croak_null();
10276 }
10277 }
10278
10279
XS(_wrap__gsl_vector_int_const_view_vector_get)10280 XS(_wrap__gsl_vector_int_const_view_vector_get) {
10281 {
10282 _gsl_vector_int_const_view *arg1 = (_gsl_vector_int_const_view *) 0 ;
10283 void *argp1 = 0 ;
10284 int res1 = 0 ;
10285 int argvi = 0;
10286 gsl_vector_int *result = 0 ;
10287 dXSARGS;
10288
10289 if ((items < 1) || (items > 1)) {
10290 SWIG_croak("Usage: _gsl_vector_int_const_view_vector_get(self);");
10291 }
10292 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_int_const_view, 0 | 0 );
10293 if (!SWIG_IsOK(res1)) {
10294 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "_gsl_vector_int_const_view_vector_get" "', argument " "1"" of type '" "_gsl_vector_int_const_view *""'");
10295 }
10296 arg1 = (_gsl_vector_int_const_view *)(argp1);
10297 result = (gsl_vector_int *)& ((arg1)->vector);
10298 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector_int, 0 | SWIG_SHADOW); argvi++ ;
10299
10300 XSRETURN(argvi);
10301 fail:
10302
10303 SWIG_croak_null();
10304 }
10305 }
10306
10307
XS(_wrap_new__gsl_vector_int_const_view)10308 XS(_wrap_new__gsl_vector_int_const_view) {
10309 {
10310 int argvi = 0;
10311 _gsl_vector_int_const_view *result = 0 ;
10312 dXSARGS;
10313
10314 if ((items < 0) || (items > 0)) {
10315 SWIG_croak("Usage: new__gsl_vector_int_const_view();");
10316 }
10317 result = (_gsl_vector_int_const_view *)calloc(1, sizeof(_gsl_vector_int_const_view));
10318 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p__gsl_vector_int_const_view, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
10319 XSRETURN(argvi);
10320 fail:
10321 SWIG_croak_null();
10322 }
10323 }
10324
10325
XS(_wrap_delete__gsl_vector_int_const_view)10326 XS(_wrap_delete__gsl_vector_int_const_view) {
10327 {
10328 _gsl_vector_int_const_view *arg1 = (_gsl_vector_int_const_view *) 0 ;
10329 void *argp1 = 0 ;
10330 int res1 = 0 ;
10331 int argvi = 0;
10332 dXSARGS;
10333
10334 if ((items < 1) || (items > 1)) {
10335 SWIG_croak("Usage: delete__gsl_vector_int_const_view(self);");
10336 }
10337 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p__gsl_vector_int_const_view, SWIG_POINTER_DISOWN | 0 );
10338 if (!SWIG_IsOK(res1)) {
10339 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete__gsl_vector_int_const_view" "', argument " "1"" of type '" "_gsl_vector_int_const_view *""'");
10340 }
10341 arg1 = (_gsl_vector_int_const_view *)(argp1);
10342 free((char *) arg1);
10343 ST(argvi) = &PL_sv_undef;
10344
10345 XSRETURN(argvi);
10346 fail:
10347
10348 SWIG_croak_null();
10349 }
10350 }
10351
10352
XS(_wrap_gsl_vector_int_alloc)10353 XS(_wrap_gsl_vector_int_alloc) {
10354 {
10355 size_t arg1 ;
10356 size_t val1 ;
10357 int ecode1 = 0 ;
10358 int argvi = 0;
10359 gsl_vector_int *result = 0 ;
10360 dXSARGS;
10361
10362 if ((items < 1) || (items > 1)) {
10363 SWIG_croak("Usage: gsl_vector_int_alloc(n);");
10364 }
10365 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10366 if (!SWIG_IsOK(ecode1)) {
10367 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_vector_int_alloc" "', argument " "1"" of type '" "size_t""'");
10368 }
10369 arg1 = (size_t)(val1);
10370 result = (gsl_vector_int *)gsl_vector_int_alloc(arg1);
10371 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector_int, 0 | SWIG_SHADOW); argvi++ ;
10372
10373 XSRETURN(argvi);
10374 fail:
10375
10376 SWIG_croak_null();
10377 }
10378 }
10379
10380
XS(_wrap_gsl_vector_int_calloc)10381 XS(_wrap_gsl_vector_int_calloc) {
10382 {
10383 size_t arg1 ;
10384 size_t val1 ;
10385 int ecode1 = 0 ;
10386 int argvi = 0;
10387 gsl_vector_int *result = 0 ;
10388 dXSARGS;
10389
10390 if ((items < 1) || (items > 1)) {
10391 SWIG_croak("Usage: gsl_vector_int_calloc(n);");
10392 }
10393 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10394 if (!SWIG_IsOK(ecode1)) {
10395 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_vector_int_calloc" "', argument " "1"" of type '" "size_t""'");
10396 }
10397 arg1 = (size_t)(val1);
10398 result = (gsl_vector_int *)gsl_vector_int_calloc(arg1);
10399 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector_int, 0 | SWIG_SHADOW); argvi++ ;
10400
10401 XSRETURN(argvi);
10402 fail:
10403
10404 SWIG_croak_null();
10405 }
10406 }
10407
10408
XS(_wrap_gsl_vector_int_alloc_from_block)10409 XS(_wrap_gsl_vector_int_alloc_from_block) {
10410 {
10411 gsl_block_int *arg1 = (gsl_block_int *) 0 ;
10412 size_t arg2 ;
10413 size_t arg3 ;
10414 size_t arg4 ;
10415 void *argp1 = 0 ;
10416 int res1 = 0 ;
10417 size_t val2 ;
10418 int ecode2 = 0 ;
10419 size_t val3 ;
10420 int ecode3 = 0 ;
10421 size_t val4 ;
10422 int ecode4 = 0 ;
10423 int argvi = 0;
10424 gsl_vector_int *result = 0 ;
10425 dXSARGS;
10426
10427 if ((items < 4) || (items > 4)) {
10428 SWIG_croak("Usage: gsl_vector_int_alloc_from_block(b,offset,n,stride);");
10429 }
10430 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_block_int, 0 | 0 );
10431 if (!SWIG_IsOK(res1)) {
10432 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_alloc_from_block" "', argument " "1"" of type '" "gsl_block_int *""'");
10433 }
10434 arg1 = (gsl_block_int *)(argp1);
10435 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10436 if (!SWIG_IsOK(ecode2)) {
10437 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_alloc_from_block" "', argument " "2"" of type '" "size_t""'");
10438 }
10439 arg2 = (size_t)(val2);
10440 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
10441 if (!SWIG_IsOK(ecode3)) {
10442 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_int_alloc_from_block" "', argument " "3"" of type '" "size_t""'");
10443 }
10444 arg3 = (size_t)(val3);
10445 ecode4 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
10446 if (!SWIG_IsOK(ecode4)) {
10447 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_vector_int_alloc_from_block" "', argument " "4"" of type '" "size_t""'");
10448 }
10449 arg4 = (size_t)(val4);
10450 result = (gsl_vector_int *)gsl_vector_int_alloc_from_block(arg1,arg2,arg3,arg4);
10451 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector_int, 0 | SWIG_SHADOW); argvi++ ;
10452
10453
10454
10455
10456 XSRETURN(argvi);
10457 fail:
10458
10459
10460
10461
10462 SWIG_croak_null();
10463 }
10464 }
10465
10466
XS(_wrap_gsl_vector_int_alloc_from_vector)10467 XS(_wrap_gsl_vector_int_alloc_from_vector) {
10468 {
10469 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
10470 size_t arg2 ;
10471 size_t arg3 ;
10472 size_t arg4 ;
10473 void *argp1 = 0 ;
10474 int res1 = 0 ;
10475 size_t val2 ;
10476 int ecode2 = 0 ;
10477 size_t val3 ;
10478 int ecode3 = 0 ;
10479 size_t val4 ;
10480 int ecode4 = 0 ;
10481 int argvi = 0;
10482 gsl_vector_int *result = 0 ;
10483 dXSARGS;
10484
10485 if ((items < 4) || (items > 4)) {
10486 SWIG_croak("Usage: gsl_vector_int_alloc_from_vector(v,offset,n,stride);");
10487 }
10488 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
10489 if (!SWIG_IsOK(res1)) {
10490 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_alloc_from_vector" "', argument " "1"" of type '" "gsl_vector_int *""'");
10491 }
10492 arg1 = (gsl_vector_int *)(argp1);
10493 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10494 if (!SWIG_IsOK(ecode2)) {
10495 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_alloc_from_vector" "', argument " "2"" of type '" "size_t""'");
10496 }
10497 arg2 = (size_t)(val2);
10498 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
10499 if (!SWIG_IsOK(ecode3)) {
10500 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_int_alloc_from_vector" "', argument " "3"" of type '" "size_t""'");
10501 }
10502 arg3 = (size_t)(val3);
10503 ecode4 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
10504 if (!SWIG_IsOK(ecode4)) {
10505 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_vector_int_alloc_from_vector" "', argument " "4"" of type '" "size_t""'");
10506 }
10507 arg4 = (size_t)(val4);
10508 result = (gsl_vector_int *)gsl_vector_int_alloc_from_vector(arg1,arg2,arg3,arg4);
10509 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector_int, 0 | SWIG_SHADOW); argvi++ ;
10510
10511
10512
10513
10514 XSRETURN(argvi);
10515 fail:
10516
10517
10518
10519
10520 SWIG_croak_null();
10521 }
10522 }
10523
10524
XS(_wrap_gsl_vector_int_free)10525 XS(_wrap_gsl_vector_int_free) {
10526 {
10527 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
10528 void *argp1 = 0 ;
10529 int res1 = 0 ;
10530 int argvi = 0;
10531 dXSARGS;
10532
10533 if ((items < 1) || (items > 1)) {
10534 SWIG_croak("Usage: gsl_vector_int_free(v);");
10535 }
10536 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
10537 if (!SWIG_IsOK(res1)) {
10538 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_free" "', argument " "1"" of type '" "gsl_vector_int *""'");
10539 }
10540 arg1 = (gsl_vector_int *)(argp1);
10541 gsl_vector_int_free(arg1);
10542 ST(argvi) = &PL_sv_undef;
10543
10544 XSRETURN(argvi);
10545 fail:
10546
10547 SWIG_croak_null();
10548 }
10549 }
10550
10551
XS(_wrap_gsl_vector_int_view_array)10552 XS(_wrap_gsl_vector_int_view_array) {
10553 {
10554 int *arg1 = (int *) 0 ;
10555 size_t arg2 ;
10556 size_t val2 ;
10557 int ecode2 = 0 ;
10558 int argvi = 0;
10559 _gsl_vector_int_view result;
10560 dXSARGS;
10561
10562 if ((items < 2) || (items > 2)) {
10563 SWIG_croak("Usage: gsl_vector_int_view_array(v,n);");
10564 }
10565 {
10566 AV *tempav;
10567 I32 len;
10568 int i;
10569 SV **tv;
10570 if (!SvROK(ST(0)))
10571 croak("Math::GSL : $v is not a reference!");
10572 if (SvTYPE(SvRV(ST(0))) != SVt_PVAV)
10573 croak("Math::GSL : $v is not an array ref!");
10574
10575 tempav = (AV*)SvRV(ST(0));
10576 len = av_len(tempav);
10577 arg1 = (int *) malloc((len+2)*sizeof(int));
10578 for (i = 0; i <= len; i++) {
10579 tv = av_fetch(tempav, i, 0);
10580 arg1[i] = (int) SvNV(*tv);
10581 }
10582 }
10583 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10584 if (!SWIG_IsOK(ecode2)) {
10585 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_view_array" "', argument " "2"" of type '" "size_t""'");
10586 }
10587 arg2 = (size_t)(val2);
10588 result = gsl_vector_int_view_array(arg1,arg2);
10589 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++ ;
10590 {
10591 if (arg1) free(arg1);
10592 }
10593
10594 XSRETURN(argvi);
10595 fail:
10596 {
10597 if (arg1) free(arg1);
10598 }
10599
10600 SWIG_croak_null();
10601 }
10602 }
10603
10604
XS(_wrap_gsl_vector_int_view_array_with_stride)10605 XS(_wrap_gsl_vector_int_view_array_with_stride) {
10606 {
10607 int *arg1 = (int *) 0 ;
10608 size_t arg2 ;
10609 size_t arg3 ;
10610 void *argp1 = 0 ;
10611 int res1 = 0 ;
10612 size_t val2 ;
10613 int ecode2 = 0 ;
10614 size_t val3 ;
10615 int ecode3 = 0 ;
10616 int argvi = 0;
10617 _gsl_vector_int_view result;
10618 dXSARGS;
10619
10620 if ((items < 3) || (items > 3)) {
10621 SWIG_croak("Usage: gsl_vector_int_view_array_with_stride(base,stride,n);");
10622 }
10623 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_int, 0 | 0 );
10624 if (!SWIG_IsOK(res1)) {
10625 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_view_array_with_stride" "', argument " "1"" of type '" "int *""'");
10626 }
10627 arg1 = (int *)(argp1);
10628 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10629 if (!SWIG_IsOK(ecode2)) {
10630 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_view_array_with_stride" "', argument " "2"" of type '" "size_t""'");
10631 }
10632 arg2 = (size_t)(val2);
10633 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
10634 if (!SWIG_IsOK(ecode3)) {
10635 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_int_view_array_with_stride" "', argument " "3"" of type '" "size_t""'");
10636 }
10637 arg3 = (size_t)(val3);
10638 result = gsl_vector_int_view_array_with_stride(arg1,arg2,arg3);
10639 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++ ;
10640
10641
10642
10643 XSRETURN(argvi);
10644 fail:
10645
10646
10647
10648 SWIG_croak_null();
10649 }
10650 }
10651
10652
XS(_wrap_gsl_vector_int_const_view_array)10653 XS(_wrap_gsl_vector_int_const_view_array) {
10654 {
10655 int *arg1 = (int *) 0 ;
10656 size_t arg2 ;
10657 size_t val2 ;
10658 int ecode2 = 0 ;
10659 int argvi = 0;
10660 _gsl_vector_int_const_view result;
10661 dXSARGS;
10662
10663 if ((items < 2) || (items > 2)) {
10664 SWIG_croak("Usage: gsl_vector_int_const_view_array(v,n);");
10665 }
10666 {
10667 AV *tempav;
10668 I32 len;
10669 int i;
10670 SV **tv;
10671 if (!SvROK(ST(0)))
10672 croak("Math::GSL : $v is not a reference!");
10673 if (SvTYPE(SvRV(ST(0))) != SVt_PVAV)
10674 croak("Math::GSL : $v is not an array ref!");
10675
10676 tempav = (AV*)SvRV(ST(0));
10677 len = av_len(tempav);
10678 arg1 = (int *) malloc((len+2)*sizeof(int));
10679 for (i = 0; i <= len; i++) {
10680 tv = av_fetch(tempav, i, 0);
10681 arg1[i] = (int) SvNV(*tv);
10682 }
10683 }
10684 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10685 if (!SWIG_IsOK(ecode2)) {
10686 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_const_view_array" "', argument " "2"" of type '" "size_t""'");
10687 }
10688 arg2 = (size_t)(val2);
10689 result = gsl_vector_int_const_view_array((int const *)arg1,arg2);
10690 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++ ;
10691 {
10692 if (arg1) free(arg1);
10693 }
10694
10695 XSRETURN(argvi);
10696 fail:
10697 {
10698 if (arg1) free(arg1);
10699 }
10700
10701 SWIG_croak_null();
10702 }
10703 }
10704
10705
XS(_wrap_gsl_vector_int_const_view_array_with_stride)10706 XS(_wrap_gsl_vector_int_const_view_array_with_stride) {
10707 {
10708 int *arg1 = (int *) 0 ;
10709 size_t arg2 ;
10710 size_t arg3 ;
10711 void *argp1 = 0 ;
10712 int res1 = 0 ;
10713 size_t val2 ;
10714 int ecode2 = 0 ;
10715 size_t val3 ;
10716 int ecode3 = 0 ;
10717 int argvi = 0;
10718 _gsl_vector_int_const_view result;
10719 dXSARGS;
10720
10721 if ((items < 3) || (items > 3)) {
10722 SWIG_croak("Usage: gsl_vector_int_const_view_array_with_stride(base,stride,n);");
10723 }
10724 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_int, 0 | 0 );
10725 if (!SWIG_IsOK(res1)) {
10726 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_const_view_array_with_stride" "', argument " "1"" of type '" "int const *""'");
10727 }
10728 arg1 = (int *)(argp1);
10729 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10730 if (!SWIG_IsOK(ecode2)) {
10731 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_const_view_array_with_stride" "', argument " "2"" of type '" "size_t""'");
10732 }
10733 arg2 = (size_t)(val2);
10734 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
10735 if (!SWIG_IsOK(ecode3)) {
10736 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_int_const_view_array_with_stride" "', argument " "3"" of type '" "size_t""'");
10737 }
10738 arg3 = (size_t)(val3);
10739 result = gsl_vector_int_const_view_array_with_stride((int const *)arg1,arg2,arg3);
10740 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++ ;
10741
10742
10743
10744 XSRETURN(argvi);
10745 fail:
10746
10747
10748
10749 SWIG_croak_null();
10750 }
10751 }
10752
10753
XS(_wrap_gsl_vector_int_subvector)10754 XS(_wrap_gsl_vector_int_subvector) {
10755 {
10756 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
10757 size_t arg2 ;
10758 size_t arg3 ;
10759 void *argp1 = 0 ;
10760 int res1 = 0 ;
10761 size_t val2 ;
10762 int ecode2 = 0 ;
10763 size_t val3 ;
10764 int ecode3 = 0 ;
10765 int argvi = 0;
10766 _gsl_vector_int_view result;
10767 dXSARGS;
10768
10769 if ((items < 3) || (items > 3)) {
10770 SWIG_croak("Usage: gsl_vector_int_subvector(v,i,n);");
10771 }
10772 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
10773 if (!SWIG_IsOK(res1)) {
10774 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_subvector" "', argument " "1"" of type '" "gsl_vector_int *""'");
10775 }
10776 arg1 = (gsl_vector_int *)(argp1);
10777 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10778 if (!SWIG_IsOK(ecode2)) {
10779 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_subvector" "', argument " "2"" of type '" "size_t""'");
10780 }
10781 arg2 = (size_t)(val2);
10782 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
10783 if (!SWIG_IsOK(ecode3)) {
10784 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_int_subvector" "', argument " "3"" of type '" "size_t""'");
10785 }
10786 arg3 = (size_t)(val3);
10787 result = gsl_vector_int_subvector(arg1,arg2,arg3);
10788 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++ ;
10789
10790
10791
10792 XSRETURN(argvi);
10793 fail:
10794
10795
10796
10797 SWIG_croak_null();
10798 }
10799 }
10800
10801
XS(_wrap_gsl_vector_int_subvector_with_stride)10802 XS(_wrap_gsl_vector_int_subvector_with_stride) {
10803 {
10804 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
10805 size_t arg2 ;
10806 size_t arg3 ;
10807 size_t arg4 ;
10808 void *argp1 = 0 ;
10809 int res1 = 0 ;
10810 size_t val2 ;
10811 int ecode2 = 0 ;
10812 size_t val3 ;
10813 int ecode3 = 0 ;
10814 size_t val4 ;
10815 int ecode4 = 0 ;
10816 int argvi = 0;
10817 _gsl_vector_int_view result;
10818 dXSARGS;
10819
10820 if ((items < 4) || (items > 4)) {
10821 SWIG_croak("Usage: gsl_vector_int_subvector_with_stride(v,i,stride,n);");
10822 }
10823 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
10824 if (!SWIG_IsOK(res1)) {
10825 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_subvector_with_stride" "', argument " "1"" of type '" "gsl_vector_int *""'");
10826 }
10827 arg1 = (gsl_vector_int *)(argp1);
10828 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10829 if (!SWIG_IsOK(ecode2)) {
10830 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_subvector_with_stride" "', argument " "2"" of type '" "size_t""'");
10831 }
10832 arg2 = (size_t)(val2);
10833 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
10834 if (!SWIG_IsOK(ecode3)) {
10835 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_int_subvector_with_stride" "', argument " "3"" of type '" "size_t""'");
10836 }
10837 arg3 = (size_t)(val3);
10838 ecode4 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
10839 if (!SWIG_IsOK(ecode4)) {
10840 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_vector_int_subvector_with_stride" "', argument " "4"" of type '" "size_t""'");
10841 }
10842 arg4 = (size_t)(val4);
10843 result = gsl_vector_int_subvector_with_stride(arg1,arg2,arg3,arg4);
10844 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++ ;
10845
10846
10847
10848
10849 XSRETURN(argvi);
10850 fail:
10851
10852
10853
10854
10855 SWIG_croak_null();
10856 }
10857 }
10858
10859
XS(_wrap_gsl_vector_int_const_subvector)10860 XS(_wrap_gsl_vector_int_const_subvector) {
10861 {
10862 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
10863 size_t arg2 ;
10864 size_t arg3 ;
10865 void *argp1 = 0 ;
10866 int res1 = 0 ;
10867 size_t val2 ;
10868 int ecode2 = 0 ;
10869 size_t val3 ;
10870 int ecode3 = 0 ;
10871 int argvi = 0;
10872 _gsl_vector_int_const_view result;
10873 dXSARGS;
10874
10875 if ((items < 3) || (items > 3)) {
10876 SWIG_croak("Usage: gsl_vector_int_const_subvector(v,i,n);");
10877 }
10878 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
10879 if (!SWIG_IsOK(res1)) {
10880 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_const_subvector" "', argument " "1"" of type '" "gsl_vector_int const *""'");
10881 }
10882 arg1 = (gsl_vector_int *)(argp1);
10883 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10884 if (!SWIG_IsOK(ecode2)) {
10885 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_const_subvector" "', argument " "2"" of type '" "size_t""'");
10886 }
10887 arg2 = (size_t)(val2);
10888 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
10889 if (!SWIG_IsOK(ecode3)) {
10890 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_int_const_subvector" "', argument " "3"" of type '" "size_t""'");
10891 }
10892 arg3 = (size_t)(val3);
10893 result = gsl_vector_int_const_subvector((gsl_vector_int const *)arg1,arg2,arg3);
10894 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++ ;
10895
10896
10897
10898 XSRETURN(argvi);
10899 fail:
10900
10901
10902
10903 SWIG_croak_null();
10904 }
10905 }
10906
10907
XS(_wrap_gsl_vector_int_const_subvector_with_stride)10908 XS(_wrap_gsl_vector_int_const_subvector_with_stride) {
10909 {
10910 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
10911 size_t arg2 ;
10912 size_t arg3 ;
10913 size_t arg4 ;
10914 void *argp1 = 0 ;
10915 int res1 = 0 ;
10916 size_t val2 ;
10917 int ecode2 = 0 ;
10918 size_t val3 ;
10919 int ecode3 = 0 ;
10920 size_t val4 ;
10921 int ecode4 = 0 ;
10922 int argvi = 0;
10923 _gsl_vector_int_const_view result;
10924 dXSARGS;
10925
10926 if ((items < 4) || (items > 4)) {
10927 SWIG_croak("Usage: gsl_vector_int_const_subvector_with_stride(v,i,stride,n);");
10928 }
10929 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
10930 if (!SWIG_IsOK(res1)) {
10931 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_const_subvector_with_stride" "', argument " "1"" of type '" "gsl_vector_int const *""'");
10932 }
10933 arg1 = (gsl_vector_int *)(argp1);
10934 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10935 if (!SWIG_IsOK(ecode2)) {
10936 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_const_subvector_with_stride" "', argument " "2"" of type '" "size_t""'");
10937 }
10938 arg2 = (size_t)(val2);
10939 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
10940 if (!SWIG_IsOK(ecode3)) {
10941 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_int_const_subvector_with_stride" "', argument " "3"" of type '" "size_t""'");
10942 }
10943 arg3 = (size_t)(val3);
10944 ecode4 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
10945 if (!SWIG_IsOK(ecode4)) {
10946 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_vector_int_const_subvector_with_stride" "', argument " "4"" of type '" "size_t""'");
10947 }
10948 arg4 = (size_t)(val4);
10949 result = gsl_vector_int_const_subvector_with_stride((gsl_vector_int const *)arg1,arg2,arg3,arg4);
10950 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++ ;
10951
10952
10953
10954
10955 XSRETURN(argvi);
10956 fail:
10957
10958
10959
10960
10961 SWIG_croak_null();
10962 }
10963 }
10964
10965
XS(_wrap_gsl_vector_int_set_zero)10966 XS(_wrap_gsl_vector_int_set_zero) {
10967 {
10968 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
10969 void *argp1 = 0 ;
10970 int res1 = 0 ;
10971 int argvi = 0;
10972 dXSARGS;
10973
10974 if ((items < 1) || (items > 1)) {
10975 SWIG_croak("Usage: gsl_vector_int_set_zero(v);");
10976 }
10977 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
10978 if (!SWIG_IsOK(res1)) {
10979 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_set_zero" "', argument " "1"" of type '" "gsl_vector_int *""'");
10980 }
10981 arg1 = (gsl_vector_int *)(argp1);
10982 gsl_vector_int_set_zero(arg1);
10983 ST(argvi) = &PL_sv_undef;
10984
10985 XSRETURN(argvi);
10986 fail:
10987
10988 SWIG_croak_null();
10989 }
10990 }
10991
10992
XS(_wrap_gsl_vector_int_set_all)10993 XS(_wrap_gsl_vector_int_set_all) {
10994 {
10995 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
10996 int arg2 ;
10997 void *argp1 = 0 ;
10998 int res1 = 0 ;
10999 int val2 ;
11000 int ecode2 = 0 ;
11001 int argvi = 0;
11002 dXSARGS;
11003
11004 if ((items < 2) || (items > 2)) {
11005 SWIG_croak("Usage: gsl_vector_int_set_all(v,x);");
11006 }
11007 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11008 if (!SWIG_IsOK(res1)) {
11009 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_set_all" "', argument " "1"" of type '" "gsl_vector_int *""'");
11010 }
11011 arg1 = (gsl_vector_int *)(argp1);
11012 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
11013 if (!SWIG_IsOK(ecode2)) {
11014 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_set_all" "', argument " "2"" of type '" "int""'");
11015 }
11016 arg2 = (int)(val2);
11017 gsl_vector_int_set_all(arg1,arg2);
11018 ST(argvi) = &PL_sv_undef;
11019
11020
11021 XSRETURN(argvi);
11022 fail:
11023
11024
11025 SWIG_croak_null();
11026 }
11027 }
11028
11029
XS(_wrap_gsl_vector_int_set_basis)11030 XS(_wrap_gsl_vector_int_set_basis) {
11031 {
11032 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11033 size_t arg2 ;
11034 void *argp1 = 0 ;
11035 int res1 = 0 ;
11036 size_t val2 ;
11037 int ecode2 = 0 ;
11038 int argvi = 0;
11039 int result;
11040 dXSARGS;
11041
11042 if ((items < 2) || (items > 2)) {
11043 SWIG_croak("Usage: gsl_vector_int_set_basis(v,i);");
11044 }
11045 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11046 if (!SWIG_IsOK(res1)) {
11047 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_set_basis" "', argument " "1"" of type '" "gsl_vector_int *""'");
11048 }
11049 arg1 = (gsl_vector_int *)(argp1);
11050 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
11051 if (!SWIG_IsOK(ecode2)) {
11052 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_set_basis" "', argument " "2"" of type '" "size_t""'");
11053 }
11054 arg2 = (size_t)(val2);
11055 result = (int)gsl_vector_int_set_basis(arg1,arg2);
11056 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11057
11058
11059 XSRETURN(argvi);
11060 fail:
11061
11062
11063 SWIG_croak_null();
11064 }
11065 }
11066
11067
XS(_wrap_gsl_vector_int_fread)11068 XS(_wrap_gsl_vector_int_fread) {
11069 {
11070 FILE *arg1 = (FILE *) 0 ;
11071 gsl_vector_int *arg2 = (gsl_vector_int *) 0 ;
11072 void *argp1 = 0 ;
11073 int res1 = 0 ;
11074 void *argp2 = 0 ;
11075 int res2 = 0 ;
11076 int argvi = 0;
11077 int result;
11078 dXSARGS;
11079
11080 if ((items < 2) || (items > 2)) {
11081 SWIG_croak("Usage: gsl_vector_int_fread(stream,v);");
11082 }
11083 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
11084 if (!SWIG_IsOK(res1)) {
11085 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_fread" "', argument " "1"" of type '" "FILE *""'");
11086 }
11087 arg1 = (FILE *)(argp1);
11088 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11089 if (!SWIG_IsOK(res2)) {
11090 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_int_fread" "', argument " "2"" of type '" "gsl_vector_int *""'");
11091 }
11092 arg2 = (gsl_vector_int *)(argp2);
11093 result = (int)gsl_vector_int_fread(arg1,arg2);
11094 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11095
11096
11097 XSRETURN(argvi);
11098 fail:
11099
11100
11101 SWIG_croak_null();
11102 }
11103 }
11104
11105
XS(_wrap_gsl_vector_int_fwrite)11106 XS(_wrap_gsl_vector_int_fwrite) {
11107 {
11108 FILE *arg1 = (FILE *) 0 ;
11109 gsl_vector_int *arg2 = (gsl_vector_int *) 0 ;
11110 void *argp1 = 0 ;
11111 int res1 = 0 ;
11112 void *argp2 = 0 ;
11113 int res2 = 0 ;
11114 int argvi = 0;
11115 int result;
11116 dXSARGS;
11117
11118 if ((items < 2) || (items > 2)) {
11119 SWIG_croak("Usage: gsl_vector_int_fwrite(stream,v);");
11120 }
11121 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
11122 if (!SWIG_IsOK(res1)) {
11123 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_fwrite" "', argument " "1"" of type '" "FILE *""'");
11124 }
11125 arg1 = (FILE *)(argp1);
11126 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11127 if (!SWIG_IsOK(res2)) {
11128 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_int_fwrite" "', argument " "2"" of type '" "gsl_vector_int const *""'");
11129 }
11130 arg2 = (gsl_vector_int *)(argp2);
11131 result = (int)gsl_vector_int_fwrite(arg1,(gsl_vector_int const *)arg2);
11132 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11133
11134
11135 XSRETURN(argvi);
11136 fail:
11137
11138
11139 SWIG_croak_null();
11140 }
11141 }
11142
11143
XS(_wrap_gsl_vector_int_fscanf)11144 XS(_wrap_gsl_vector_int_fscanf) {
11145 {
11146 FILE *arg1 = (FILE *) 0 ;
11147 gsl_vector_int *arg2 = (gsl_vector_int *) 0 ;
11148 void *argp1 = 0 ;
11149 int res1 = 0 ;
11150 void *argp2 = 0 ;
11151 int res2 = 0 ;
11152 int argvi = 0;
11153 int result;
11154 dXSARGS;
11155
11156 if ((items < 2) || (items > 2)) {
11157 SWIG_croak("Usage: gsl_vector_int_fscanf(stream,v);");
11158 }
11159 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
11160 if (!SWIG_IsOK(res1)) {
11161 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_fscanf" "', argument " "1"" of type '" "FILE *""'");
11162 }
11163 arg1 = (FILE *)(argp1);
11164 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11165 if (!SWIG_IsOK(res2)) {
11166 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_int_fscanf" "', argument " "2"" of type '" "gsl_vector_int *""'");
11167 }
11168 arg2 = (gsl_vector_int *)(argp2);
11169 result = (int)gsl_vector_int_fscanf(arg1,arg2);
11170 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11171
11172
11173 XSRETURN(argvi);
11174 fail:
11175
11176
11177 SWIG_croak_null();
11178 }
11179 }
11180
11181
XS(_wrap_gsl_vector_int_fprintf)11182 XS(_wrap_gsl_vector_int_fprintf) {
11183 {
11184 FILE *arg1 = (FILE *) 0 ;
11185 gsl_vector_int *arg2 = (gsl_vector_int *) 0 ;
11186 char *arg3 = (char *) 0 ;
11187 void *argp1 = 0 ;
11188 int res1 = 0 ;
11189 void *argp2 = 0 ;
11190 int res2 = 0 ;
11191 int res3 ;
11192 char *buf3 = 0 ;
11193 int alloc3 = 0 ;
11194 int argvi = 0;
11195 int result;
11196 dXSARGS;
11197
11198 if ((items < 3) || (items > 3)) {
11199 SWIG_croak("Usage: gsl_vector_int_fprintf(stream,v,format);");
11200 }
11201 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
11202 if (!SWIG_IsOK(res1)) {
11203 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_fprintf" "', argument " "1"" of type '" "FILE *""'");
11204 }
11205 arg1 = (FILE *)(argp1);
11206 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11207 if (!SWIG_IsOK(res2)) {
11208 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_int_fprintf" "', argument " "2"" of type '" "gsl_vector_int const *""'");
11209 }
11210 arg2 = (gsl_vector_int *)(argp2);
11211 res3 = SWIG_AsCharPtrAndSize(ST(2), &buf3, NULL, &alloc3);
11212 if (!SWIG_IsOK(res3)) {
11213 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_vector_int_fprintf" "', argument " "3"" of type '" "char const *""'");
11214 }
11215 arg3 = (char *)(buf3);
11216 result = (int)gsl_vector_int_fprintf(arg1,(gsl_vector_int const *)arg2,(char const *)arg3);
11217 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11218
11219
11220 if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
11221 XSRETURN(argvi);
11222 fail:
11223
11224
11225 if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
11226 SWIG_croak_null();
11227 }
11228 }
11229
11230
XS(_wrap_gsl_vector_int_memcpy)11231 XS(_wrap_gsl_vector_int_memcpy) {
11232 {
11233 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11234 gsl_vector_int *arg2 = (gsl_vector_int *) 0 ;
11235 void *argp1 = 0 ;
11236 int res1 = 0 ;
11237 void *argp2 = 0 ;
11238 int res2 = 0 ;
11239 int argvi = 0;
11240 int result;
11241 dXSARGS;
11242
11243 if ((items < 2) || (items > 2)) {
11244 SWIG_croak("Usage: gsl_vector_int_memcpy(dest,src);");
11245 }
11246 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11247 if (!SWIG_IsOK(res1)) {
11248 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_memcpy" "', argument " "1"" of type '" "gsl_vector_int *""'");
11249 }
11250 arg1 = (gsl_vector_int *)(argp1);
11251 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11252 if (!SWIG_IsOK(res2)) {
11253 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_int_memcpy" "', argument " "2"" of type '" "gsl_vector_int const *""'");
11254 }
11255 arg2 = (gsl_vector_int *)(argp2);
11256 result = (int)gsl_vector_int_memcpy(arg1,(gsl_vector_int const *)arg2);
11257 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11258
11259
11260 XSRETURN(argvi);
11261 fail:
11262
11263
11264 SWIG_croak_null();
11265 }
11266 }
11267
11268
XS(_wrap_gsl_vector_int_reverse)11269 XS(_wrap_gsl_vector_int_reverse) {
11270 {
11271 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11272 void *argp1 = 0 ;
11273 int res1 = 0 ;
11274 int argvi = 0;
11275 int result;
11276 dXSARGS;
11277
11278 if ((items < 1) || (items > 1)) {
11279 SWIG_croak("Usage: gsl_vector_int_reverse(v);");
11280 }
11281 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11282 if (!SWIG_IsOK(res1)) {
11283 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_reverse" "', argument " "1"" of type '" "gsl_vector_int *""'");
11284 }
11285 arg1 = (gsl_vector_int *)(argp1);
11286 result = (int)gsl_vector_int_reverse(arg1);
11287 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11288
11289 XSRETURN(argvi);
11290 fail:
11291
11292 SWIG_croak_null();
11293 }
11294 }
11295
11296
XS(_wrap_gsl_vector_int_swap)11297 XS(_wrap_gsl_vector_int_swap) {
11298 {
11299 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11300 gsl_vector_int *arg2 = (gsl_vector_int *) 0 ;
11301 void *argp1 = 0 ;
11302 int res1 = 0 ;
11303 void *argp2 = 0 ;
11304 int res2 = 0 ;
11305 int argvi = 0;
11306 int result;
11307 dXSARGS;
11308
11309 if ((items < 2) || (items > 2)) {
11310 SWIG_croak("Usage: gsl_vector_int_swap(v,w);");
11311 }
11312 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11313 if (!SWIG_IsOK(res1)) {
11314 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_swap" "', argument " "1"" of type '" "gsl_vector_int *""'");
11315 }
11316 arg1 = (gsl_vector_int *)(argp1);
11317 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11318 if (!SWIG_IsOK(res2)) {
11319 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_int_swap" "', argument " "2"" of type '" "gsl_vector_int *""'");
11320 }
11321 arg2 = (gsl_vector_int *)(argp2);
11322 result = (int)gsl_vector_int_swap(arg1,arg2);
11323 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11324
11325
11326 XSRETURN(argvi);
11327 fail:
11328
11329
11330 SWIG_croak_null();
11331 }
11332 }
11333
11334
XS(_wrap_gsl_vector_int_swap_elements)11335 XS(_wrap_gsl_vector_int_swap_elements) {
11336 {
11337 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11338 size_t arg2 ;
11339 size_t arg3 ;
11340 void *argp1 = 0 ;
11341 int res1 = 0 ;
11342 size_t val2 ;
11343 int ecode2 = 0 ;
11344 size_t val3 ;
11345 int ecode3 = 0 ;
11346 int argvi = 0;
11347 int result;
11348 dXSARGS;
11349
11350 if ((items < 3) || (items > 3)) {
11351 SWIG_croak("Usage: gsl_vector_int_swap_elements(v,i,j);");
11352 }
11353 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11354 if (!SWIG_IsOK(res1)) {
11355 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_swap_elements" "', argument " "1"" of type '" "gsl_vector_int *""'");
11356 }
11357 arg1 = (gsl_vector_int *)(argp1);
11358 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
11359 if (!SWIG_IsOK(ecode2)) {
11360 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_swap_elements" "', argument " "2"" of type '" "size_t""'");
11361 }
11362 arg2 = (size_t)(val2);
11363 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
11364 if (!SWIG_IsOK(ecode3)) {
11365 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_int_swap_elements" "', argument " "3"" of type '" "size_t""'");
11366 }
11367 arg3 = (size_t)(val3);
11368 result = (int)gsl_vector_int_swap_elements(arg1,arg2,arg3);
11369 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11370
11371
11372
11373 XSRETURN(argvi);
11374 fail:
11375
11376
11377
11378 SWIG_croak_null();
11379 }
11380 }
11381
11382
XS(_wrap_gsl_vector_int_max)11383 XS(_wrap_gsl_vector_int_max) {
11384 {
11385 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11386 void *argp1 = 0 ;
11387 int res1 = 0 ;
11388 int argvi = 0;
11389 int result;
11390 dXSARGS;
11391
11392 if ((items < 1) || (items > 1)) {
11393 SWIG_croak("Usage: gsl_vector_int_max(v);");
11394 }
11395 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11396 if (!SWIG_IsOK(res1)) {
11397 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_max" "', argument " "1"" of type '" "gsl_vector_int const *""'");
11398 }
11399 arg1 = (gsl_vector_int *)(argp1);
11400 result = (int)gsl_vector_int_max((gsl_vector_int const *)arg1);
11401 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11402
11403 XSRETURN(argvi);
11404 fail:
11405
11406 SWIG_croak_null();
11407 }
11408 }
11409
11410
XS(_wrap_gsl_vector_int_min)11411 XS(_wrap_gsl_vector_int_min) {
11412 {
11413 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11414 void *argp1 = 0 ;
11415 int res1 = 0 ;
11416 int argvi = 0;
11417 int result;
11418 dXSARGS;
11419
11420 if ((items < 1) || (items > 1)) {
11421 SWIG_croak("Usage: gsl_vector_int_min(v);");
11422 }
11423 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11424 if (!SWIG_IsOK(res1)) {
11425 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_min" "', argument " "1"" of type '" "gsl_vector_int const *""'");
11426 }
11427 arg1 = (gsl_vector_int *)(argp1);
11428 result = (int)gsl_vector_int_min((gsl_vector_int const *)arg1);
11429 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11430
11431 XSRETURN(argvi);
11432 fail:
11433
11434 SWIG_croak_null();
11435 }
11436 }
11437
11438
XS(_wrap_gsl_vector_int_minmax)11439 XS(_wrap_gsl_vector_int_minmax) {
11440 {
11441 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11442 int *arg2 = (int *) 0 ;
11443 int *arg3 = (int *) 0 ;
11444 void *argp1 = 0 ;
11445 int res1 = 0 ;
11446 void *argp2 = 0 ;
11447 int res2 = 0 ;
11448 void *argp3 = 0 ;
11449 int res3 = 0 ;
11450 int argvi = 0;
11451 dXSARGS;
11452
11453 if ((items < 3) || (items > 3)) {
11454 SWIG_croak("Usage: gsl_vector_int_minmax(v,min_out,max_out);");
11455 }
11456 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11457 if (!SWIG_IsOK(res1)) {
11458 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_minmax" "', argument " "1"" of type '" "gsl_vector_int const *""'");
11459 }
11460 arg1 = (gsl_vector_int *)(argp1);
11461 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_int, 0 | 0 );
11462 if (!SWIG_IsOK(res2)) {
11463 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_int_minmax" "', argument " "2"" of type '" "int *""'");
11464 }
11465 arg2 = (int *)(argp2);
11466 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_int, 0 | 0 );
11467 if (!SWIG_IsOK(res3)) {
11468 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_vector_int_minmax" "', argument " "3"" of type '" "int *""'");
11469 }
11470 arg3 = (int *)(argp3);
11471 gsl_vector_int_minmax((gsl_vector_int const *)arg1,arg2,arg3);
11472 ST(argvi) = &PL_sv_undef;
11473
11474
11475
11476 XSRETURN(argvi);
11477 fail:
11478
11479
11480
11481 SWIG_croak_null();
11482 }
11483 }
11484
11485
XS(_wrap_gsl_vector_int_max_index)11486 XS(_wrap_gsl_vector_int_max_index) {
11487 {
11488 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11489 void *argp1 = 0 ;
11490 int res1 = 0 ;
11491 int argvi = 0;
11492 size_t result;
11493 dXSARGS;
11494
11495 if ((items < 1) || (items > 1)) {
11496 SWIG_croak("Usage: gsl_vector_int_max_index(v);");
11497 }
11498 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11499 if (!SWIG_IsOK(res1)) {
11500 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_max_index" "', argument " "1"" of type '" "gsl_vector_int const *""'");
11501 }
11502 arg1 = (gsl_vector_int *)(argp1);
11503 result = gsl_vector_int_max_index((gsl_vector_int const *)arg1);
11504 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
11505
11506 XSRETURN(argvi);
11507 fail:
11508
11509 SWIG_croak_null();
11510 }
11511 }
11512
11513
XS(_wrap_gsl_vector_int_min_index)11514 XS(_wrap_gsl_vector_int_min_index) {
11515 {
11516 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11517 void *argp1 = 0 ;
11518 int res1 = 0 ;
11519 int argvi = 0;
11520 size_t result;
11521 dXSARGS;
11522
11523 if ((items < 1) || (items > 1)) {
11524 SWIG_croak("Usage: gsl_vector_int_min_index(v);");
11525 }
11526 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11527 if (!SWIG_IsOK(res1)) {
11528 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_min_index" "', argument " "1"" of type '" "gsl_vector_int const *""'");
11529 }
11530 arg1 = (gsl_vector_int *)(argp1);
11531 result = gsl_vector_int_min_index((gsl_vector_int const *)arg1);
11532 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
11533
11534 XSRETURN(argvi);
11535 fail:
11536
11537 SWIG_croak_null();
11538 }
11539 }
11540
11541
XS(_wrap_gsl_vector_int_minmax_index)11542 XS(_wrap_gsl_vector_int_minmax_index) {
11543 {
11544 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11545 size_t *arg2 = (size_t *) 0 ;
11546 size_t *arg3 = (size_t *) 0 ;
11547 void *argp1 = 0 ;
11548 int res1 = 0 ;
11549 size_t temp2 ;
11550 int res2 = SWIG_TMPOBJ ;
11551 size_t temp3 ;
11552 int res3 = SWIG_TMPOBJ ;
11553 int argvi = 0;
11554 dXSARGS;
11555
11556 arg2 = &temp2;
11557 arg3 = &temp3;
11558 if ((items < 1) || (items > 1)) {
11559 SWIG_croak("Usage: gsl_vector_int_minmax_index(v);");
11560 }
11561 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11562 if (!SWIG_IsOK(res1)) {
11563 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_minmax_index" "', argument " "1"" of type '" "gsl_vector_int const *""'");
11564 }
11565 arg1 = (gsl_vector_int *)(argp1);
11566 gsl_vector_int_minmax_index((gsl_vector_int const *)arg1,arg2,arg3);
11567 ST(argvi) = &PL_sv_undef;
11568 if (SWIG_IsTmpObj(res2)) {
11569 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg2)); argvi++ ;
11570 } else {
11571 int new_flags = SWIG_IsNewObj(res2) ? (SWIG_POINTER_OWN | 0) : 0;
11572 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg2), SWIGTYPE_p_size_t, new_flags); argvi++ ;
11573 }
11574 if (SWIG_IsTmpObj(res3)) {
11575 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg3)); argvi++ ;
11576 } else {
11577 int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN | 0) : 0;
11578 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_size_t, new_flags); argvi++ ;
11579 }
11580
11581
11582
11583 XSRETURN(argvi);
11584 fail:
11585
11586
11587
11588 SWIG_croak_null();
11589 }
11590 }
11591
11592
XS(_wrap_gsl_vector_int_add)11593 XS(_wrap_gsl_vector_int_add) {
11594 {
11595 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11596 gsl_vector_int *arg2 = (gsl_vector_int *) 0 ;
11597 void *argp1 = 0 ;
11598 int res1 = 0 ;
11599 void *argp2 = 0 ;
11600 int res2 = 0 ;
11601 int argvi = 0;
11602 int result;
11603 dXSARGS;
11604
11605 if ((items < 2) || (items > 2)) {
11606 SWIG_croak("Usage: gsl_vector_int_add(a,b);");
11607 }
11608 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11609 if (!SWIG_IsOK(res1)) {
11610 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_add" "', argument " "1"" of type '" "gsl_vector_int *""'");
11611 }
11612 arg1 = (gsl_vector_int *)(argp1);
11613 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11614 if (!SWIG_IsOK(res2)) {
11615 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_int_add" "', argument " "2"" of type '" "gsl_vector_int const *""'");
11616 }
11617 arg2 = (gsl_vector_int *)(argp2);
11618 result = (int)gsl_vector_int_add(arg1,(gsl_vector_int const *)arg2);
11619 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11620
11621
11622 XSRETURN(argvi);
11623 fail:
11624
11625
11626 SWIG_croak_null();
11627 }
11628 }
11629
11630
XS(_wrap_gsl_vector_int_sub)11631 XS(_wrap_gsl_vector_int_sub) {
11632 {
11633 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11634 gsl_vector_int *arg2 = (gsl_vector_int *) 0 ;
11635 void *argp1 = 0 ;
11636 int res1 = 0 ;
11637 void *argp2 = 0 ;
11638 int res2 = 0 ;
11639 int argvi = 0;
11640 int result;
11641 dXSARGS;
11642
11643 if ((items < 2) || (items > 2)) {
11644 SWIG_croak("Usage: gsl_vector_int_sub(a,b);");
11645 }
11646 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11647 if (!SWIG_IsOK(res1)) {
11648 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_sub" "', argument " "1"" of type '" "gsl_vector_int *""'");
11649 }
11650 arg1 = (gsl_vector_int *)(argp1);
11651 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11652 if (!SWIG_IsOK(res2)) {
11653 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_int_sub" "', argument " "2"" of type '" "gsl_vector_int const *""'");
11654 }
11655 arg2 = (gsl_vector_int *)(argp2);
11656 result = (int)gsl_vector_int_sub(arg1,(gsl_vector_int const *)arg2);
11657 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11658
11659
11660 XSRETURN(argvi);
11661 fail:
11662
11663
11664 SWIG_croak_null();
11665 }
11666 }
11667
11668
XS(_wrap_gsl_vector_int_mul)11669 XS(_wrap_gsl_vector_int_mul) {
11670 {
11671 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11672 gsl_vector_int *arg2 = (gsl_vector_int *) 0 ;
11673 void *argp1 = 0 ;
11674 int res1 = 0 ;
11675 void *argp2 = 0 ;
11676 int res2 = 0 ;
11677 int argvi = 0;
11678 int result;
11679 dXSARGS;
11680
11681 if ((items < 2) || (items > 2)) {
11682 SWIG_croak("Usage: gsl_vector_int_mul(a,b);");
11683 }
11684 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11685 if (!SWIG_IsOK(res1)) {
11686 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_mul" "', argument " "1"" of type '" "gsl_vector_int *""'");
11687 }
11688 arg1 = (gsl_vector_int *)(argp1);
11689 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11690 if (!SWIG_IsOK(res2)) {
11691 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_int_mul" "', argument " "2"" of type '" "gsl_vector_int const *""'");
11692 }
11693 arg2 = (gsl_vector_int *)(argp2);
11694 result = (int)gsl_vector_int_mul(arg1,(gsl_vector_int const *)arg2);
11695 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11696
11697
11698 XSRETURN(argvi);
11699 fail:
11700
11701
11702 SWIG_croak_null();
11703 }
11704 }
11705
11706
XS(_wrap_gsl_vector_int_div)11707 XS(_wrap_gsl_vector_int_div) {
11708 {
11709 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11710 gsl_vector_int *arg2 = (gsl_vector_int *) 0 ;
11711 void *argp1 = 0 ;
11712 int res1 = 0 ;
11713 void *argp2 = 0 ;
11714 int res2 = 0 ;
11715 int argvi = 0;
11716 int result;
11717 dXSARGS;
11718
11719 if ((items < 2) || (items > 2)) {
11720 SWIG_croak("Usage: gsl_vector_int_div(a,b);");
11721 }
11722 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11723 if (!SWIG_IsOK(res1)) {
11724 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_div" "', argument " "1"" of type '" "gsl_vector_int *""'");
11725 }
11726 arg1 = (gsl_vector_int *)(argp1);
11727 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11728 if (!SWIG_IsOK(res2)) {
11729 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_int_div" "', argument " "2"" of type '" "gsl_vector_int const *""'");
11730 }
11731 arg2 = (gsl_vector_int *)(argp2);
11732 result = (int)gsl_vector_int_div(arg1,(gsl_vector_int const *)arg2);
11733 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11734
11735
11736 XSRETURN(argvi);
11737 fail:
11738
11739
11740 SWIG_croak_null();
11741 }
11742 }
11743
11744
XS(_wrap_gsl_vector_int_scale)11745 XS(_wrap_gsl_vector_int_scale) {
11746 {
11747 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11748 int arg2 ;
11749 void *argp1 = 0 ;
11750 int res1 = 0 ;
11751 int val2 ;
11752 int ecode2 = 0 ;
11753 int argvi = 0;
11754 int result;
11755 dXSARGS;
11756
11757 if ((items < 2) || (items > 2)) {
11758 SWIG_croak("Usage: gsl_vector_int_scale(a,x);");
11759 }
11760 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11761 if (!SWIG_IsOK(res1)) {
11762 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_scale" "', argument " "1"" of type '" "gsl_vector_int *""'");
11763 }
11764 arg1 = (gsl_vector_int *)(argp1);
11765 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
11766 if (!SWIG_IsOK(ecode2)) {
11767 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_scale" "', argument " "2"" of type '" "int""'");
11768 }
11769 arg2 = (int)(val2);
11770 result = (int)gsl_vector_int_scale(arg1,arg2);
11771 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11772
11773
11774 XSRETURN(argvi);
11775 fail:
11776
11777
11778 SWIG_croak_null();
11779 }
11780 }
11781
11782
XS(_wrap_gsl_vector_int_add_constant)11783 XS(_wrap_gsl_vector_int_add_constant) {
11784 {
11785 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11786 int arg2 ;
11787 void *argp1 = 0 ;
11788 int res1 = 0 ;
11789 int val2 ;
11790 int ecode2 = 0 ;
11791 int argvi = 0;
11792 int result;
11793 dXSARGS;
11794
11795 if ((items < 2) || (items > 2)) {
11796 SWIG_croak("Usage: gsl_vector_int_add_constant(a,x);");
11797 }
11798 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11799 if (!SWIG_IsOK(res1)) {
11800 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_add_constant" "', argument " "1"" of type '" "gsl_vector_int *""'");
11801 }
11802 arg1 = (gsl_vector_int *)(argp1);
11803 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
11804 if (!SWIG_IsOK(ecode2)) {
11805 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_add_constant" "', argument " "2"" of type '" "int""'");
11806 }
11807 arg2 = (int)(val2);
11808 result = (int)gsl_vector_int_add_constant(arg1,arg2);
11809 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11810
11811
11812 XSRETURN(argvi);
11813 fail:
11814
11815
11816 SWIG_croak_null();
11817 }
11818 }
11819
11820
XS(_wrap_gsl_vector_int_equal)11821 XS(_wrap_gsl_vector_int_equal) {
11822 {
11823 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11824 gsl_vector_int *arg2 = (gsl_vector_int *) 0 ;
11825 void *argp1 = 0 ;
11826 int res1 = 0 ;
11827 void *argp2 = 0 ;
11828 int res2 = 0 ;
11829 int argvi = 0;
11830 int result;
11831 dXSARGS;
11832
11833 if ((items < 2) || (items > 2)) {
11834 SWIG_croak("Usage: gsl_vector_int_equal(u,v);");
11835 }
11836 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11837 if (!SWIG_IsOK(res1)) {
11838 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_equal" "', argument " "1"" of type '" "gsl_vector_int const *""'");
11839 }
11840 arg1 = (gsl_vector_int *)(argp1);
11841 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11842 if (!SWIG_IsOK(res2)) {
11843 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_vector_int_equal" "', argument " "2"" of type '" "gsl_vector_int const *""'");
11844 }
11845 arg2 = (gsl_vector_int *)(argp2);
11846 result = (int)gsl_vector_int_equal((gsl_vector_int const *)arg1,(gsl_vector_int const *)arg2);
11847 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11848
11849
11850 XSRETURN(argvi);
11851 fail:
11852
11853
11854 SWIG_croak_null();
11855 }
11856 }
11857
11858
XS(_wrap_gsl_vector_int_isnull)11859 XS(_wrap_gsl_vector_int_isnull) {
11860 {
11861 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11862 void *argp1 = 0 ;
11863 int res1 = 0 ;
11864 int argvi = 0;
11865 int result;
11866 dXSARGS;
11867
11868 if ((items < 1) || (items > 1)) {
11869 SWIG_croak("Usage: gsl_vector_int_isnull(v);");
11870 }
11871 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11872 if (!SWIG_IsOK(res1)) {
11873 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_isnull" "', argument " "1"" of type '" "gsl_vector_int const *""'");
11874 }
11875 arg1 = (gsl_vector_int *)(argp1);
11876 result = (int)gsl_vector_int_isnull((gsl_vector_int const *)arg1);
11877 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11878
11879 XSRETURN(argvi);
11880 fail:
11881
11882 SWIG_croak_null();
11883 }
11884 }
11885
11886
XS(_wrap_gsl_vector_int_ispos)11887 XS(_wrap_gsl_vector_int_ispos) {
11888 {
11889 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11890 void *argp1 = 0 ;
11891 int res1 = 0 ;
11892 int argvi = 0;
11893 int result;
11894 dXSARGS;
11895
11896 if ((items < 1) || (items > 1)) {
11897 SWIG_croak("Usage: gsl_vector_int_ispos(v);");
11898 }
11899 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11900 if (!SWIG_IsOK(res1)) {
11901 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_ispos" "', argument " "1"" of type '" "gsl_vector_int const *""'");
11902 }
11903 arg1 = (gsl_vector_int *)(argp1);
11904 result = (int)gsl_vector_int_ispos((gsl_vector_int const *)arg1);
11905 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11906
11907 XSRETURN(argvi);
11908 fail:
11909
11910 SWIG_croak_null();
11911 }
11912 }
11913
11914
XS(_wrap_gsl_vector_int_isneg)11915 XS(_wrap_gsl_vector_int_isneg) {
11916 {
11917 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11918 void *argp1 = 0 ;
11919 int res1 = 0 ;
11920 int argvi = 0;
11921 int result;
11922 dXSARGS;
11923
11924 if ((items < 1) || (items > 1)) {
11925 SWIG_croak("Usage: gsl_vector_int_isneg(v);");
11926 }
11927 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11928 if (!SWIG_IsOK(res1)) {
11929 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_isneg" "', argument " "1"" of type '" "gsl_vector_int const *""'");
11930 }
11931 arg1 = (gsl_vector_int *)(argp1);
11932 result = (int)gsl_vector_int_isneg((gsl_vector_int const *)arg1);
11933 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11934
11935 XSRETURN(argvi);
11936 fail:
11937
11938 SWIG_croak_null();
11939 }
11940 }
11941
11942
XS(_wrap_gsl_vector_int_isnonneg)11943 XS(_wrap_gsl_vector_int_isnonneg) {
11944 {
11945 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11946 void *argp1 = 0 ;
11947 int res1 = 0 ;
11948 int argvi = 0;
11949 int result;
11950 dXSARGS;
11951
11952 if ((items < 1) || (items > 1)) {
11953 SWIG_croak("Usage: gsl_vector_int_isnonneg(v);");
11954 }
11955 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11956 if (!SWIG_IsOK(res1)) {
11957 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_isnonneg" "', argument " "1"" of type '" "gsl_vector_int const *""'");
11958 }
11959 arg1 = (gsl_vector_int *)(argp1);
11960 result = (int)gsl_vector_int_isnonneg((gsl_vector_int const *)arg1);
11961 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11962
11963 XSRETURN(argvi);
11964 fail:
11965
11966 SWIG_croak_null();
11967 }
11968 }
11969
11970
XS(_wrap_gsl_vector_int_get)11971 XS(_wrap_gsl_vector_int_get) {
11972 {
11973 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
11974 size_t arg2 ;
11975 void *argp1 = 0 ;
11976 int res1 = 0 ;
11977 size_t val2 ;
11978 int ecode2 = 0 ;
11979 int argvi = 0;
11980 int result;
11981 dXSARGS;
11982
11983 if ((items < 2) || (items > 2)) {
11984 SWIG_croak("Usage: gsl_vector_int_get(v,i);");
11985 }
11986 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
11987 if (!SWIG_IsOK(res1)) {
11988 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_get" "', argument " "1"" of type '" "gsl_vector_int const *""'");
11989 }
11990 arg1 = (gsl_vector_int *)(argp1);
11991 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
11992 if (!SWIG_IsOK(ecode2)) {
11993 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_get" "', argument " "2"" of type '" "size_t""'");
11994 }
11995 arg2 = (size_t)(val2);
11996 result = (int)gsl_vector_int_get((gsl_vector_int const *)arg1,arg2);
11997 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11998
11999
12000 XSRETURN(argvi);
12001 fail:
12002
12003
12004 SWIG_croak_null();
12005 }
12006 }
12007
12008
XS(_wrap_gsl_vector_int_set)12009 XS(_wrap_gsl_vector_int_set) {
12010 {
12011 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
12012 size_t arg2 ;
12013 int arg3 ;
12014 void *argp1 = 0 ;
12015 int res1 = 0 ;
12016 size_t val2 ;
12017 int ecode2 = 0 ;
12018 int val3 ;
12019 int ecode3 = 0 ;
12020 int argvi = 0;
12021 dXSARGS;
12022
12023 if ((items < 3) || (items > 3)) {
12024 SWIG_croak("Usage: gsl_vector_int_set(v,i,x);");
12025 }
12026 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
12027 if (!SWIG_IsOK(res1)) {
12028 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_set" "', argument " "1"" of type '" "gsl_vector_int *""'");
12029 }
12030 arg1 = (gsl_vector_int *)(argp1);
12031 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12032 if (!SWIG_IsOK(ecode2)) {
12033 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_set" "', argument " "2"" of type '" "size_t""'");
12034 }
12035 arg2 = (size_t)(val2);
12036 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
12037 if (!SWIG_IsOK(ecode3)) {
12038 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_vector_int_set" "', argument " "3"" of type '" "int""'");
12039 }
12040 arg3 = (int)(val3);
12041 gsl_vector_int_set(arg1,arg2,arg3);
12042 ST(argvi) = &PL_sv_undef;
12043
12044
12045
12046 XSRETURN(argvi);
12047 fail:
12048
12049
12050
12051 SWIG_croak_null();
12052 }
12053 }
12054
12055
XS(_wrap_gsl_vector_int_ptr)12056 XS(_wrap_gsl_vector_int_ptr) {
12057 {
12058 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
12059 size_t arg2 ;
12060 void *argp1 = 0 ;
12061 int res1 = 0 ;
12062 size_t val2 ;
12063 int ecode2 = 0 ;
12064 int argvi = 0;
12065 int *result = 0 ;
12066 dXSARGS;
12067
12068 if ((items < 2) || (items > 2)) {
12069 SWIG_croak("Usage: gsl_vector_int_ptr(v,i);");
12070 }
12071 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
12072 if (!SWIG_IsOK(res1)) {
12073 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_ptr" "', argument " "1"" of type '" "gsl_vector_int *""'");
12074 }
12075 arg1 = (gsl_vector_int *)(argp1);
12076 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12077 if (!SWIG_IsOK(ecode2)) {
12078 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_ptr" "', argument " "2"" of type '" "size_t""'");
12079 }
12080 arg2 = (size_t)(val2);
12081 result = (int *)gsl_vector_int_ptr(arg1,arg2);
12082 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_int, 0 | 0); argvi++ ;
12083
12084
12085 XSRETURN(argvi);
12086 fail:
12087
12088
12089 SWIG_croak_null();
12090 }
12091 }
12092
12093
XS(_wrap_gsl_vector_int_const_ptr)12094 XS(_wrap_gsl_vector_int_const_ptr) {
12095 {
12096 gsl_vector_int *arg1 = (gsl_vector_int *) 0 ;
12097 size_t arg2 ;
12098 void *argp1 = 0 ;
12099 int res1 = 0 ;
12100 size_t val2 ;
12101 int ecode2 = 0 ;
12102 int argvi = 0;
12103 int *result = 0 ;
12104 dXSARGS;
12105
12106 if ((items < 2) || (items > 2)) {
12107 SWIG_croak("Usage: gsl_vector_int_const_ptr(v,i);");
12108 }
12109 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_int, 0 | 0 );
12110 if (!SWIG_IsOK(res1)) {
12111 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_vector_int_const_ptr" "', argument " "1"" of type '" "gsl_vector_int const *""'");
12112 }
12113 arg1 = (gsl_vector_int *)(argp1);
12114 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12115 if (!SWIG_IsOK(ecode2)) {
12116 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_vector_int_const_ptr" "', argument " "2"" of type '" "size_t""'");
12117 }
12118 arg2 = (size_t)(val2);
12119 result = (int *)gsl_vector_int_const_ptr((gsl_vector_int const *)arg1,arg2);
12120 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_int, 0 | 0); argvi++ ;
12121
12122
12123 XSRETURN(argvi);
12124 fail:
12125
12126
12127 SWIG_croak_null();
12128 }
12129 }
12130
12131
12132
12133 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (BEGIN) -------- */
12134
12135 static swig_type_info _swigt__p_FILE = {"_p_FILE", "FILE *", 0, 0, (void*)0, 0};
12136 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};
12137 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};
12138 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};
12139 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};
12140 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};
12141 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};
12142 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};
12143 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};
12144 static swig_type_info _swigt__p_char = {"_p_char", "char *", 0, 0, (void*)0, 0};
12145 static swig_type_info _swigt__p_double = {"_p_double", "double *", 0, 0, (void*)0, 0};
12146 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};
12147 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};
12148 static swig_type_info _swigt__p_gsl_block = {"_p_gsl_block", "gsl_block *", 0, 0, (void*)0, 0};
12149 static swig_type_info _swigt__p_gsl_block_char = {"_p_gsl_block_char", "gsl_block_char *", 0, 0, (void*)0, 0};
12150 static swig_type_info _swigt__p_gsl_block_complex = {"_p_gsl_block_complex", "gsl_block_complex *", 0, 0, (void*)0, 0};
12151 static swig_type_info _swigt__p_gsl_block_int = {"_p_gsl_block_int", "gsl_block_int *", 0, 0, (void*)0, 0};
12152 static swig_type_info _swigt__p_gsl_complex = {"_p_gsl_complex", "gsl_complex *", 0, 0, (void*)0, 0};
12153 static swig_type_info _swigt__p_gsl_vector = {"_p_gsl_vector", "gsl_vector *", 0, 0, (void*)"Math::GSL::Vector::gsl_vector", 0};
12154 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};
12155 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};
12156 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};
12157 static swig_type_info _swigt__p_int = {"_p_int", "int *", 0, 0, (void*)0, 0};
12158 static swig_type_info _swigt__p_size_t = {"_p_size_t", "size_t *", 0, 0, (void*)0, 0};
12159
12160 static swig_type_info *swig_type_initial[] = {
12161 &_swigt__p_FILE,
12162 &_swigt__p__gsl_vector_char_const_view,
12163 &_swigt__p__gsl_vector_char_view,
12164 &_swigt__p__gsl_vector_complex_const_view,
12165 &_swigt__p__gsl_vector_complex_view,
12166 &_swigt__p__gsl_vector_const_view,
12167 &_swigt__p__gsl_vector_int_const_view,
12168 &_swigt__p__gsl_vector_int_view,
12169 &_swigt__p__gsl_vector_view,
12170 &_swigt__p_char,
12171 &_swigt__p_double,
12172 &_swigt__p_f_p_q_const__char_p_q_const__char_int_int__void,
12173 &_swigt__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void,
12174 &_swigt__p_gsl_block,
12175 &_swigt__p_gsl_block_char,
12176 &_swigt__p_gsl_block_complex,
12177 &_swigt__p_gsl_block_int,
12178 &_swigt__p_gsl_complex,
12179 &_swigt__p_gsl_vector,
12180 &_swigt__p_gsl_vector_char,
12181 &_swigt__p_gsl_vector_complex,
12182 &_swigt__p_gsl_vector_int,
12183 &_swigt__p_int,
12184 &_swigt__p_size_t,
12185 };
12186
12187 static swig_cast_info _swigc__p_FILE[] = { {&_swigt__p_FILE, 0, 0, 0},{0, 0, 0, 0}};
12188 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}};
12189 static swig_cast_info _swigc__p__gsl_vector_char_view[] = { {&_swigt__p__gsl_vector_char_view, 0, 0, 0},{0, 0, 0, 0}};
12190 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}};
12191 static swig_cast_info _swigc__p__gsl_vector_complex_view[] = { {&_swigt__p__gsl_vector_complex_view, 0, 0, 0},{0, 0, 0, 0}};
12192 static swig_cast_info _swigc__p__gsl_vector_const_view[] = { {&_swigt__p__gsl_vector_const_view, 0, 0, 0},{0, 0, 0, 0}};
12193 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}};
12194 static swig_cast_info _swigc__p__gsl_vector_int_view[] = { {&_swigt__p__gsl_vector_int_view, 0, 0, 0},{0, 0, 0, 0}};
12195 static swig_cast_info _swigc__p__gsl_vector_view[] = { {&_swigt__p__gsl_vector_view, 0, 0, 0},{0, 0, 0, 0}};
12196 static swig_cast_info _swigc__p_char[] = { {&_swigt__p_char, 0, 0, 0},{0, 0, 0, 0}};
12197 static swig_cast_info _swigc__p_double[] = { {&_swigt__p_double, 0, 0, 0},{0, 0, 0, 0}};
12198 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}};
12199 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}};
12200 static swig_cast_info _swigc__p_gsl_block[] = { {&_swigt__p_gsl_block, 0, 0, 0},{0, 0, 0, 0}};
12201 static swig_cast_info _swigc__p_gsl_block_char[] = { {&_swigt__p_gsl_block_char, 0, 0, 0},{0, 0, 0, 0}};
12202 static swig_cast_info _swigc__p_gsl_block_complex[] = { {&_swigt__p_gsl_block_complex, 0, 0, 0},{0, 0, 0, 0}};
12203 static swig_cast_info _swigc__p_gsl_block_int[] = { {&_swigt__p_gsl_block_int, 0, 0, 0},{0, 0, 0, 0}};
12204 static swig_cast_info _swigc__p_gsl_complex[] = { {&_swigt__p_gsl_complex, 0, 0, 0},{0, 0, 0, 0}};
12205 static swig_cast_info _swigc__p_gsl_vector[] = { {&_swigt__p_gsl_vector, 0, 0, 0},{0, 0, 0, 0}};
12206 static swig_cast_info _swigc__p_gsl_vector_char[] = { {&_swigt__p_gsl_vector_char, 0, 0, 0},{0, 0, 0, 0}};
12207 static swig_cast_info _swigc__p_gsl_vector_complex[] = { {&_swigt__p_gsl_vector_complex, 0, 0, 0},{0, 0, 0, 0}};
12208 static swig_cast_info _swigc__p_gsl_vector_int[] = { {&_swigt__p_gsl_vector_int, 0, 0, 0},{0, 0, 0, 0}};
12209 static swig_cast_info _swigc__p_int[] = { {&_swigt__p_int, 0, 0, 0},{0, 0, 0, 0}};
12210 static swig_cast_info _swigc__p_size_t[] = { {&_swigt__p_size_t, 0, 0, 0},{0, 0, 0, 0}};
12211
12212 static swig_cast_info *swig_cast_initial[] = {
12213 _swigc__p_FILE,
12214 _swigc__p__gsl_vector_char_const_view,
12215 _swigc__p__gsl_vector_char_view,
12216 _swigc__p__gsl_vector_complex_const_view,
12217 _swigc__p__gsl_vector_complex_view,
12218 _swigc__p__gsl_vector_const_view,
12219 _swigc__p__gsl_vector_int_const_view,
12220 _swigc__p__gsl_vector_int_view,
12221 _swigc__p__gsl_vector_view,
12222 _swigc__p_char,
12223 _swigc__p_double,
12224 _swigc__p_f_p_q_const__char_p_q_const__char_int_int__void,
12225 _swigc__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void,
12226 _swigc__p_gsl_block,
12227 _swigc__p_gsl_block_char,
12228 _swigc__p_gsl_block_complex,
12229 _swigc__p_gsl_block_int,
12230 _swigc__p_gsl_complex,
12231 _swigc__p_gsl_vector,
12232 _swigc__p_gsl_vector_char,
12233 _swigc__p_gsl_vector_complex,
12234 _swigc__p_gsl_vector_int,
12235 _swigc__p_int,
12236 _swigc__p_size_t,
12237 };
12238
12239
12240 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (END) -------- */
12241
12242 static swig_constant_info swig_constants[] = {
12243 {0,0,0,0,0,0}
12244 };
12245 #ifdef __cplusplus
12246 }
12247 #endif
12248 static swig_variable_info swig_variables[] = {
12249 {0,0,0,0}
12250 };
12251 static swig_command_info swig_commands[] = {
12252 {"Math::GSL::Vectorc::gsl_error", _wrap_gsl_error},
12253 {"Math::GSL::Vectorc::gsl_stream_printf", _wrap_gsl_stream_printf},
12254 {"Math::GSL::Vectorc::gsl_strerror", _wrap_gsl_strerror},
12255 {"Math::GSL::Vectorc::gsl_set_error_handler", _wrap_gsl_set_error_handler},
12256 {"Math::GSL::Vectorc::gsl_set_error_handler_off", _wrap_gsl_set_error_handler_off},
12257 {"Math::GSL::Vectorc::gsl_set_stream_handler", _wrap_gsl_set_stream_handler},
12258 {"Math::GSL::Vectorc::gsl_set_stream", _wrap_gsl_set_stream},
12259 {"Math::GSL::Vectorc::fopen", _wrap_fopen},
12260 {"Math::GSL::Vectorc::fclose", _wrap_fclose},
12261 {"Math::GSL::Vectorc::gsl_vector_char_size_set", _wrap_gsl_vector_char_size_set},
12262 {"Math::GSL::Vectorc::gsl_vector_char_size_get", _wrap_gsl_vector_char_size_get},
12263 {"Math::GSL::Vectorc::gsl_vector_char_stride_set", _wrap_gsl_vector_char_stride_set},
12264 {"Math::GSL::Vectorc::gsl_vector_char_stride_get", _wrap_gsl_vector_char_stride_get},
12265 {"Math::GSL::Vectorc::gsl_vector_char_data_set", _wrap_gsl_vector_char_data_set},
12266 {"Math::GSL::Vectorc::gsl_vector_char_data_get", _wrap_gsl_vector_char_data_get},
12267 {"Math::GSL::Vectorc::gsl_vector_char_block_set", _wrap_gsl_vector_char_block_set},
12268 {"Math::GSL::Vectorc::gsl_vector_char_block_get", _wrap_gsl_vector_char_block_get},
12269 {"Math::GSL::Vectorc::gsl_vector_char_owner_set", _wrap_gsl_vector_char_owner_set},
12270 {"Math::GSL::Vectorc::gsl_vector_char_owner_get", _wrap_gsl_vector_char_owner_get},
12271 {"Math::GSL::Vectorc::new_gsl_vector_char", _wrap_new_gsl_vector_char},
12272 {"Math::GSL::Vectorc::delete_gsl_vector_char", _wrap_delete_gsl_vector_char},
12273 {"Math::GSL::Vectorc::_gsl_vector_char_view_vector_set", _wrap__gsl_vector_char_view_vector_set},
12274 {"Math::GSL::Vectorc::_gsl_vector_char_view_vector_get", _wrap__gsl_vector_char_view_vector_get},
12275 {"Math::GSL::Vectorc::new__gsl_vector_char_view", _wrap_new__gsl_vector_char_view},
12276 {"Math::GSL::Vectorc::delete__gsl_vector_char_view", _wrap_delete__gsl_vector_char_view},
12277 {"Math::GSL::Vectorc::_gsl_vector_char_const_view_vector_set", _wrap__gsl_vector_char_const_view_vector_set},
12278 {"Math::GSL::Vectorc::_gsl_vector_char_const_view_vector_get", _wrap__gsl_vector_char_const_view_vector_get},
12279 {"Math::GSL::Vectorc::new__gsl_vector_char_const_view", _wrap_new__gsl_vector_char_const_view},
12280 {"Math::GSL::Vectorc::delete__gsl_vector_char_const_view", _wrap_delete__gsl_vector_char_const_view},
12281 {"Math::GSL::Vectorc::gsl_vector_char_alloc", _wrap_gsl_vector_char_alloc},
12282 {"Math::GSL::Vectorc::gsl_vector_char_calloc", _wrap_gsl_vector_char_calloc},
12283 {"Math::GSL::Vectorc::gsl_vector_char_alloc_from_block", _wrap_gsl_vector_char_alloc_from_block},
12284 {"Math::GSL::Vectorc::gsl_vector_char_alloc_from_vector", _wrap_gsl_vector_char_alloc_from_vector},
12285 {"Math::GSL::Vectorc::gsl_vector_char_free", _wrap_gsl_vector_char_free},
12286 {"Math::GSL::Vectorc::gsl_vector_char_view_array", _wrap_gsl_vector_char_view_array},
12287 {"Math::GSL::Vectorc::gsl_vector_char_view_array_with_stride", _wrap_gsl_vector_char_view_array_with_stride},
12288 {"Math::GSL::Vectorc::gsl_vector_char_const_view_array", _wrap_gsl_vector_char_const_view_array},
12289 {"Math::GSL::Vectorc::gsl_vector_char_const_view_array_with_stride", _wrap_gsl_vector_char_const_view_array_with_stride},
12290 {"Math::GSL::Vectorc::gsl_vector_char_subvector", _wrap_gsl_vector_char_subvector},
12291 {"Math::GSL::Vectorc::gsl_vector_char_subvector_with_stride", _wrap_gsl_vector_char_subvector_with_stride},
12292 {"Math::GSL::Vectorc::gsl_vector_char_const_subvector", _wrap_gsl_vector_char_const_subvector},
12293 {"Math::GSL::Vectorc::gsl_vector_char_const_subvector_with_stride", _wrap_gsl_vector_char_const_subvector_with_stride},
12294 {"Math::GSL::Vectorc::gsl_vector_char_set_zero", _wrap_gsl_vector_char_set_zero},
12295 {"Math::GSL::Vectorc::gsl_vector_char_set_all", _wrap_gsl_vector_char_set_all},
12296 {"Math::GSL::Vectorc::gsl_vector_char_set_basis", _wrap_gsl_vector_char_set_basis},
12297 {"Math::GSL::Vectorc::gsl_vector_char_fread", _wrap_gsl_vector_char_fread},
12298 {"Math::GSL::Vectorc::gsl_vector_char_fwrite", _wrap_gsl_vector_char_fwrite},
12299 {"Math::GSL::Vectorc::gsl_vector_char_fscanf", _wrap_gsl_vector_char_fscanf},
12300 {"Math::GSL::Vectorc::gsl_vector_char_fprintf", _wrap_gsl_vector_char_fprintf},
12301 {"Math::GSL::Vectorc::gsl_vector_char_memcpy", _wrap_gsl_vector_char_memcpy},
12302 {"Math::GSL::Vectorc::gsl_vector_char_reverse", _wrap_gsl_vector_char_reverse},
12303 {"Math::GSL::Vectorc::gsl_vector_char_swap", _wrap_gsl_vector_char_swap},
12304 {"Math::GSL::Vectorc::gsl_vector_char_swap_elements", _wrap_gsl_vector_char_swap_elements},
12305 {"Math::GSL::Vectorc::gsl_vector_char_max", _wrap_gsl_vector_char_max},
12306 {"Math::GSL::Vectorc::gsl_vector_char_min", _wrap_gsl_vector_char_min},
12307 {"Math::GSL::Vectorc::gsl_vector_char_minmax", _wrap_gsl_vector_char_minmax},
12308 {"Math::GSL::Vectorc::gsl_vector_char_max_index", _wrap_gsl_vector_char_max_index},
12309 {"Math::GSL::Vectorc::gsl_vector_char_min_index", _wrap_gsl_vector_char_min_index},
12310 {"Math::GSL::Vectorc::gsl_vector_char_minmax_index", _wrap_gsl_vector_char_minmax_index},
12311 {"Math::GSL::Vectorc::gsl_vector_char_add", _wrap_gsl_vector_char_add},
12312 {"Math::GSL::Vectorc::gsl_vector_char_sub", _wrap_gsl_vector_char_sub},
12313 {"Math::GSL::Vectorc::gsl_vector_char_mul", _wrap_gsl_vector_char_mul},
12314 {"Math::GSL::Vectorc::gsl_vector_char_div", _wrap_gsl_vector_char_div},
12315 {"Math::GSL::Vectorc::gsl_vector_char_scale", _wrap_gsl_vector_char_scale},
12316 {"Math::GSL::Vectorc::gsl_vector_char_add_constant", _wrap_gsl_vector_char_add_constant},
12317 {"Math::GSL::Vectorc::gsl_vector_char_equal", _wrap_gsl_vector_char_equal},
12318 {"Math::GSL::Vectorc::gsl_vector_char_isnull", _wrap_gsl_vector_char_isnull},
12319 {"Math::GSL::Vectorc::gsl_vector_char_ispos", _wrap_gsl_vector_char_ispos},
12320 {"Math::GSL::Vectorc::gsl_vector_char_isneg", _wrap_gsl_vector_char_isneg},
12321 {"Math::GSL::Vectorc::gsl_vector_char_isnonneg", _wrap_gsl_vector_char_isnonneg},
12322 {"Math::GSL::Vectorc::gsl_vector_char_get", _wrap_gsl_vector_char_get},
12323 {"Math::GSL::Vectorc::gsl_vector_char_set", _wrap_gsl_vector_char_set},
12324 {"Math::GSL::Vectorc::gsl_vector_char_ptr", _wrap_gsl_vector_char_ptr},
12325 {"Math::GSL::Vectorc::gsl_vector_char_const_ptr", _wrap_gsl_vector_char_const_ptr},
12326 {"Math::GSL::Vectorc::gsl_vector_complex_size_set", _wrap_gsl_vector_complex_size_set},
12327 {"Math::GSL::Vectorc::gsl_vector_complex_size_get", _wrap_gsl_vector_complex_size_get},
12328 {"Math::GSL::Vectorc::gsl_vector_complex_stride_set", _wrap_gsl_vector_complex_stride_set},
12329 {"Math::GSL::Vectorc::gsl_vector_complex_stride_get", _wrap_gsl_vector_complex_stride_get},
12330 {"Math::GSL::Vectorc::gsl_vector_complex_data_set", _wrap_gsl_vector_complex_data_set},
12331 {"Math::GSL::Vectorc::gsl_vector_complex_data_get", _wrap_gsl_vector_complex_data_get},
12332 {"Math::GSL::Vectorc::gsl_vector_complex_block_set", _wrap_gsl_vector_complex_block_set},
12333 {"Math::GSL::Vectorc::gsl_vector_complex_block_get", _wrap_gsl_vector_complex_block_get},
12334 {"Math::GSL::Vectorc::gsl_vector_complex_owner_set", _wrap_gsl_vector_complex_owner_set},
12335 {"Math::GSL::Vectorc::gsl_vector_complex_owner_get", _wrap_gsl_vector_complex_owner_get},
12336 {"Math::GSL::Vectorc::new_gsl_vector_complex", _wrap_new_gsl_vector_complex},
12337 {"Math::GSL::Vectorc::delete_gsl_vector_complex", _wrap_delete_gsl_vector_complex},
12338 {"Math::GSL::Vectorc::_gsl_vector_complex_view_vector_set", _wrap__gsl_vector_complex_view_vector_set},
12339 {"Math::GSL::Vectorc::_gsl_vector_complex_view_vector_get", _wrap__gsl_vector_complex_view_vector_get},
12340 {"Math::GSL::Vectorc::new__gsl_vector_complex_view", _wrap_new__gsl_vector_complex_view},
12341 {"Math::GSL::Vectorc::delete__gsl_vector_complex_view", _wrap_delete__gsl_vector_complex_view},
12342 {"Math::GSL::Vectorc::_gsl_vector_complex_const_view_vector_set", _wrap__gsl_vector_complex_const_view_vector_set},
12343 {"Math::GSL::Vectorc::_gsl_vector_complex_const_view_vector_get", _wrap__gsl_vector_complex_const_view_vector_get},
12344 {"Math::GSL::Vectorc::new__gsl_vector_complex_const_view", _wrap_new__gsl_vector_complex_const_view},
12345 {"Math::GSL::Vectorc::delete__gsl_vector_complex_const_view", _wrap_delete__gsl_vector_complex_const_view},
12346 {"Math::GSL::Vectorc::gsl_vector_complex_alloc", _wrap_gsl_vector_complex_alloc},
12347 {"Math::GSL::Vectorc::gsl_vector_complex_calloc", _wrap_gsl_vector_complex_calloc},
12348 {"Math::GSL::Vectorc::gsl_vector_complex_alloc_from_block", _wrap_gsl_vector_complex_alloc_from_block},
12349 {"Math::GSL::Vectorc::gsl_vector_complex_alloc_from_vector", _wrap_gsl_vector_complex_alloc_from_vector},
12350 {"Math::GSL::Vectorc::gsl_vector_complex_free", _wrap_gsl_vector_complex_free},
12351 {"Math::GSL::Vectorc::gsl_vector_complex_view_array", _wrap_gsl_vector_complex_view_array},
12352 {"Math::GSL::Vectorc::gsl_vector_complex_view_array_with_stride", _wrap_gsl_vector_complex_view_array_with_stride},
12353 {"Math::GSL::Vectorc::gsl_vector_complex_const_view_array", _wrap_gsl_vector_complex_const_view_array},
12354 {"Math::GSL::Vectorc::gsl_vector_complex_const_view_array_with_stride", _wrap_gsl_vector_complex_const_view_array_with_stride},
12355 {"Math::GSL::Vectorc::gsl_vector_complex_subvector", _wrap_gsl_vector_complex_subvector},
12356 {"Math::GSL::Vectorc::gsl_vector_complex_subvector_with_stride", _wrap_gsl_vector_complex_subvector_with_stride},
12357 {"Math::GSL::Vectorc::gsl_vector_complex_const_subvector", _wrap_gsl_vector_complex_const_subvector},
12358 {"Math::GSL::Vectorc::gsl_vector_complex_const_subvector_with_stride", _wrap_gsl_vector_complex_const_subvector_with_stride},
12359 {"Math::GSL::Vectorc::gsl_vector_complex_real", _wrap_gsl_vector_complex_real},
12360 {"Math::GSL::Vectorc::gsl_vector_complex_imag", _wrap_gsl_vector_complex_imag},
12361 {"Math::GSL::Vectorc::gsl_vector_complex_const_real", _wrap_gsl_vector_complex_const_real},
12362 {"Math::GSL::Vectorc::gsl_vector_complex_const_imag", _wrap_gsl_vector_complex_const_imag},
12363 {"Math::GSL::Vectorc::gsl_vector_complex_set_zero", _wrap_gsl_vector_complex_set_zero},
12364 {"Math::GSL::Vectorc::gsl_vector_complex_set_all", _wrap_gsl_vector_complex_set_all},
12365 {"Math::GSL::Vectorc::gsl_vector_complex_set_basis", _wrap_gsl_vector_complex_set_basis},
12366 {"Math::GSL::Vectorc::gsl_vector_complex_fread", _wrap_gsl_vector_complex_fread},
12367 {"Math::GSL::Vectorc::gsl_vector_complex_fwrite", _wrap_gsl_vector_complex_fwrite},
12368 {"Math::GSL::Vectorc::gsl_vector_complex_fscanf", _wrap_gsl_vector_complex_fscanf},
12369 {"Math::GSL::Vectorc::gsl_vector_complex_fprintf", _wrap_gsl_vector_complex_fprintf},
12370 {"Math::GSL::Vectorc::gsl_vector_complex_memcpy", _wrap_gsl_vector_complex_memcpy},
12371 {"Math::GSL::Vectorc::gsl_vector_complex_reverse", _wrap_gsl_vector_complex_reverse},
12372 {"Math::GSL::Vectorc::gsl_vector_complex_swap", _wrap_gsl_vector_complex_swap},
12373 {"Math::GSL::Vectorc::gsl_vector_complex_swap_elements", _wrap_gsl_vector_complex_swap_elements},
12374 {"Math::GSL::Vectorc::gsl_vector_complex_equal", _wrap_gsl_vector_complex_equal},
12375 {"Math::GSL::Vectorc::gsl_vector_complex_isnull", _wrap_gsl_vector_complex_isnull},
12376 {"Math::GSL::Vectorc::gsl_vector_complex_ispos", _wrap_gsl_vector_complex_ispos},
12377 {"Math::GSL::Vectorc::gsl_vector_complex_isneg", _wrap_gsl_vector_complex_isneg},
12378 {"Math::GSL::Vectorc::gsl_vector_complex_isnonneg", _wrap_gsl_vector_complex_isnonneg},
12379 {"Math::GSL::Vectorc::gsl_vector_complex_add", _wrap_gsl_vector_complex_add},
12380 {"Math::GSL::Vectorc::gsl_vector_complex_sub", _wrap_gsl_vector_complex_sub},
12381 {"Math::GSL::Vectorc::gsl_vector_complex_mul", _wrap_gsl_vector_complex_mul},
12382 {"Math::GSL::Vectorc::gsl_vector_complex_div", _wrap_gsl_vector_complex_div},
12383 {"Math::GSL::Vectorc::gsl_vector_complex_scale", _wrap_gsl_vector_complex_scale},
12384 {"Math::GSL::Vectorc::gsl_vector_complex_add_constant", _wrap_gsl_vector_complex_add_constant},
12385 {"Math::GSL::Vectorc::gsl_vector_complex_get", _wrap_gsl_vector_complex_get},
12386 {"Math::GSL::Vectorc::gsl_vector_complex_set", _wrap_gsl_vector_complex_set},
12387 {"Math::GSL::Vectorc::gsl_vector_complex_ptr", _wrap_gsl_vector_complex_ptr},
12388 {"Math::GSL::Vectorc::gsl_vector_complex_const_ptr", _wrap_gsl_vector_complex_const_ptr},
12389 {"Math::GSL::Vectorc::gsl_vector_size_set", _wrap_gsl_vector_size_set},
12390 {"Math::GSL::Vectorc::gsl_vector_size_get", _wrap_gsl_vector_size_get},
12391 {"Math::GSL::Vectorc::gsl_vector_stride_set", _wrap_gsl_vector_stride_set},
12392 {"Math::GSL::Vectorc::gsl_vector_stride_get", _wrap_gsl_vector_stride_get},
12393 {"Math::GSL::Vectorc::gsl_vector_data_set", _wrap_gsl_vector_data_set},
12394 {"Math::GSL::Vectorc::gsl_vector_data_get", _wrap_gsl_vector_data_get},
12395 {"Math::GSL::Vectorc::gsl_vector_block_set", _wrap_gsl_vector_block_set},
12396 {"Math::GSL::Vectorc::gsl_vector_block_get", _wrap_gsl_vector_block_get},
12397 {"Math::GSL::Vectorc::gsl_vector_owner_set", _wrap_gsl_vector_owner_set},
12398 {"Math::GSL::Vectorc::gsl_vector_owner_get", _wrap_gsl_vector_owner_get},
12399 {"Math::GSL::Vectorc::new_gsl_vector", _wrap_new_gsl_vector},
12400 {"Math::GSL::Vectorc::delete_gsl_vector", _wrap_delete_gsl_vector},
12401 {"Math::GSL::Vectorc::_gsl_vector_view_vector_set", _wrap__gsl_vector_view_vector_set},
12402 {"Math::GSL::Vectorc::_gsl_vector_view_vector_get", _wrap__gsl_vector_view_vector_get},
12403 {"Math::GSL::Vectorc::new__gsl_vector_view", _wrap_new__gsl_vector_view},
12404 {"Math::GSL::Vectorc::delete__gsl_vector_view", _wrap_delete__gsl_vector_view},
12405 {"Math::GSL::Vectorc::_gsl_vector_const_view_vector_set", _wrap__gsl_vector_const_view_vector_set},
12406 {"Math::GSL::Vectorc::_gsl_vector_const_view_vector_get", _wrap__gsl_vector_const_view_vector_get},
12407 {"Math::GSL::Vectorc::new__gsl_vector_const_view", _wrap_new__gsl_vector_const_view},
12408 {"Math::GSL::Vectorc::delete__gsl_vector_const_view", _wrap_delete__gsl_vector_const_view},
12409 {"Math::GSL::Vectorc::gsl_vector_alloc", _wrap_gsl_vector_alloc},
12410 {"Math::GSL::Vectorc::gsl_vector_calloc", _wrap_gsl_vector_calloc},
12411 {"Math::GSL::Vectorc::gsl_vector_alloc_from_block", _wrap_gsl_vector_alloc_from_block},
12412 {"Math::GSL::Vectorc::gsl_vector_alloc_from_vector", _wrap_gsl_vector_alloc_from_vector},
12413 {"Math::GSL::Vectorc::gsl_vector_free", _wrap_gsl_vector_free},
12414 {"Math::GSL::Vectorc::gsl_vector_view_array", _wrap_gsl_vector_view_array},
12415 {"Math::GSL::Vectorc::gsl_vector_view_array_with_stride", _wrap_gsl_vector_view_array_with_stride},
12416 {"Math::GSL::Vectorc::gsl_vector_const_view_array", _wrap_gsl_vector_const_view_array},
12417 {"Math::GSL::Vectorc::gsl_vector_const_view_array_with_stride", _wrap_gsl_vector_const_view_array_with_stride},
12418 {"Math::GSL::Vectorc::gsl_vector_subvector", _wrap_gsl_vector_subvector},
12419 {"Math::GSL::Vectorc::gsl_vector_subvector_with_stride", _wrap_gsl_vector_subvector_with_stride},
12420 {"Math::GSL::Vectorc::gsl_vector_const_subvector", _wrap_gsl_vector_const_subvector},
12421 {"Math::GSL::Vectorc::gsl_vector_const_subvector_with_stride", _wrap_gsl_vector_const_subvector_with_stride},
12422 {"Math::GSL::Vectorc::gsl_vector_set_zero", _wrap_gsl_vector_set_zero},
12423 {"Math::GSL::Vectorc::gsl_vector_set_all", _wrap_gsl_vector_set_all},
12424 {"Math::GSL::Vectorc::gsl_vector_set_basis", _wrap_gsl_vector_set_basis},
12425 {"Math::GSL::Vectorc::gsl_vector_fread", _wrap_gsl_vector_fread},
12426 {"Math::GSL::Vectorc::gsl_vector_fwrite", _wrap_gsl_vector_fwrite},
12427 {"Math::GSL::Vectorc::gsl_vector_fscanf", _wrap_gsl_vector_fscanf},
12428 {"Math::GSL::Vectorc::gsl_vector_fprintf", _wrap_gsl_vector_fprintf},
12429 {"Math::GSL::Vectorc::gsl_vector_memcpy", _wrap_gsl_vector_memcpy},
12430 {"Math::GSL::Vectorc::gsl_vector_reverse", _wrap_gsl_vector_reverse},
12431 {"Math::GSL::Vectorc::gsl_vector_swap", _wrap_gsl_vector_swap},
12432 {"Math::GSL::Vectorc::gsl_vector_swap_elements", _wrap_gsl_vector_swap_elements},
12433 {"Math::GSL::Vectorc::gsl_vector_max", _wrap_gsl_vector_max},
12434 {"Math::GSL::Vectorc::gsl_vector_min", _wrap_gsl_vector_min},
12435 {"Math::GSL::Vectorc::gsl_vector_minmax", _wrap_gsl_vector_minmax},
12436 {"Math::GSL::Vectorc::gsl_vector_max_index", _wrap_gsl_vector_max_index},
12437 {"Math::GSL::Vectorc::gsl_vector_min_index", _wrap_gsl_vector_min_index},
12438 {"Math::GSL::Vectorc::gsl_vector_minmax_index", _wrap_gsl_vector_minmax_index},
12439 {"Math::GSL::Vectorc::gsl_vector_add", _wrap_gsl_vector_add},
12440 {"Math::GSL::Vectorc::gsl_vector_sub", _wrap_gsl_vector_sub},
12441 {"Math::GSL::Vectorc::gsl_vector_mul", _wrap_gsl_vector_mul},
12442 {"Math::GSL::Vectorc::gsl_vector_div", _wrap_gsl_vector_div},
12443 {"Math::GSL::Vectorc::gsl_vector_scale", _wrap_gsl_vector_scale},
12444 {"Math::GSL::Vectorc::gsl_vector_add_constant", _wrap_gsl_vector_add_constant},
12445 {"Math::GSL::Vectorc::gsl_vector_equal", _wrap_gsl_vector_equal},
12446 {"Math::GSL::Vectorc::gsl_vector_isnull", _wrap_gsl_vector_isnull},
12447 {"Math::GSL::Vectorc::gsl_vector_ispos", _wrap_gsl_vector_ispos},
12448 {"Math::GSL::Vectorc::gsl_vector_isneg", _wrap_gsl_vector_isneg},
12449 {"Math::GSL::Vectorc::gsl_vector_isnonneg", _wrap_gsl_vector_isnonneg},
12450 {"Math::GSL::Vectorc::gsl_vector_get", _wrap_gsl_vector_get},
12451 {"Math::GSL::Vectorc::gsl_vector_set", _wrap_gsl_vector_set},
12452 {"Math::GSL::Vectorc::gsl_vector_ptr", _wrap_gsl_vector_ptr},
12453 {"Math::GSL::Vectorc::gsl_vector_const_ptr", _wrap_gsl_vector_const_ptr},
12454 {"Math::GSL::Vectorc::gsl_vector_int_size_set", _wrap_gsl_vector_int_size_set},
12455 {"Math::GSL::Vectorc::gsl_vector_int_size_get", _wrap_gsl_vector_int_size_get},
12456 {"Math::GSL::Vectorc::gsl_vector_int_stride_set", _wrap_gsl_vector_int_stride_set},
12457 {"Math::GSL::Vectorc::gsl_vector_int_stride_get", _wrap_gsl_vector_int_stride_get},
12458 {"Math::GSL::Vectorc::gsl_vector_int_data_set", _wrap_gsl_vector_int_data_set},
12459 {"Math::GSL::Vectorc::gsl_vector_int_data_get", _wrap_gsl_vector_int_data_get},
12460 {"Math::GSL::Vectorc::gsl_vector_int_block_set", _wrap_gsl_vector_int_block_set},
12461 {"Math::GSL::Vectorc::gsl_vector_int_block_get", _wrap_gsl_vector_int_block_get},
12462 {"Math::GSL::Vectorc::gsl_vector_int_owner_set", _wrap_gsl_vector_int_owner_set},
12463 {"Math::GSL::Vectorc::gsl_vector_int_owner_get", _wrap_gsl_vector_int_owner_get},
12464 {"Math::GSL::Vectorc::new_gsl_vector_int", _wrap_new_gsl_vector_int},
12465 {"Math::GSL::Vectorc::delete_gsl_vector_int", _wrap_delete_gsl_vector_int},
12466 {"Math::GSL::Vectorc::_gsl_vector_int_view_vector_set", _wrap__gsl_vector_int_view_vector_set},
12467 {"Math::GSL::Vectorc::_gsl_vector_int_view_vector_get", _wrap__gsl_vector_int_view_vector_get},
12468 {"Math::GSL::Vectorc::new__gsl_vector_int_view", _wrap_new__gsl_vector_int_view},
12469 {"Math::GSL::Vectorc::delete__gsl_vector_int_view", _wrap_delete__gsl_vector_int_view},
12470 {"Math::GSL::Vectorc::_gsl_vector_int_const_view_vector_set", _wrap__gsl_vector_int_const_view_vector_set},
12471 {"Math::GSL::Vectorc::_gsl_vector_int_const_view_vector_get", _wrap__gsl_vector_int_const_view_vector_get},
12472 {"Math::GSL::Vectorc::new__gsl_vector_int_const_view", _wrap_new__gsl_vector_int_const_view},
12473 {"Math::GSL::Vectorc::delete__gsl_vector_int_const_view", _wrap_delete__gsl_vector_int_const_view},
12474 {"Math::GSL::Vectorc::gsl_vector_int_alloc", _wrap_gsl_vector_int_alloc},
12475 {"Math::GSL::Vectorc::gsl_vector_int_calloc", _wrap_gsl_vector_int_calloc},
12476 {"Math::GSL::Vectorc::gsl_vector_int_alloc_from_block", _wrap_gsl_vector_int_alloc_from_block},
12477 {"Math::GSL::Vectorc::gsl_vector_int_alloc_from_vector", _wrap_gsl_vector_int_alloc_from_vector},
12478 {"Math::GSL::Vectorc::gsl_vector_int_free", _wrap_gsl_vector_int_free},
12479 {"Math::GSL::Vectorc::gsl_vector_int_view_array", _wrap_gsl_vector_int_view_array},
12480 {"Math::GSL::Vectorc::gsl_vector_int_view_array_with_stride", _wrap_gsl_vector_int_view_array_with_stride},
12481 {"Math::GSL::Vectorc::gsl_vector_int_const_view_array", _wrap_gsl_vector_int_const_view_array},
12482 {"Math::GSL::Vectorc::gsl_vector_int_const_view_array_with_stride", _wrap_gsl_vector_int_const_view_array_with_stride},
12483 {"Math::GSL::Vectorc::gsl_vector_int_subvector", _wrap_gsl_vector_int_subvector},
12484 {"Math::GSL::Vectorc::gsl_vector_int_subvector_with_stride", _wrap_gsl_vector_int_subvector_with_stride},
12485 {"Math::GSL::Vectorc::gsl_vector_int_const_subvector", _wrap_gsl_vector_int_const_subvector},
12486 {"Math::GSL::Vectorc::gsl_vector_int_const_subvector_with_stride", _wrap_gsl_vector_int_const_subvector_with_stride},
12487 {"Math::GSL::Vectorc::gsl_vector_int_set_zero", _wrap_gsl_vector_int_set_zero},
12488 {"Math::GSL::Vectorc::gsl_vector_int_set_all", _wrap_gsl_vector_int_set_all},
12489 {"Math::GSL::Vectorc::gsl_vector_int_set_basis", _wrap_gsl_vector_int_set_basis},
12490 {"Math::GSL::Vectorc::gsl_vector_int_fread", _wrap_gsl_vector_int_fread},
12491 {"Math::GSL::Vectorc::gsl_vector_int_fwrite", _wrap_gsl_vector_int_fwrite},
12492 {"Math::GSL::Vectorc::gsl_vector_int_fscanf", _wrap_gsl_vector_int_fscanf},
12493 {"Math::GSL::Vectorc::gsl_vector_int_fprintf", _wrap_gsl_vector_int_fprintf},
12494 {"Math::GSL::Vectorc::gsl_vector_int_memcpy", _wrap_gsl_vector_int_memcpy},
12495 {"Math::GSL::Vectorc::gsl_vector_int_reverse", _wrap_gsl_vector_int_reverse},
12496 {"Math::GSL::Vectorc::gsl_vector_int_swap", _wrap_gsl_vector_int_swap},
12497 {"Math::GSL::Vectorc::gsl_vector_int_swap_elements", _wrap_gsl_vector_int_swap_elements},
12498 {"Math::GSL::Vectorc::gsl_vector_int_max", _wrap_gsl_vector_int_max},
12499 {"Math::GSL::Vectorc::gsl_vector_int_min", _wrap_gsl_vector_int_min},
12500 {"Math::GSL::Vectorc::gsl_vector_int_minmax", _wrap_gsl_vector_int_minmax},
12501 {"Math::GSL::Vectorc::gsl_vector_int_max_index", _wrap_gsl_vector_int_max_index},
12502 {"Math::GSL::Vectorc::gsl_vector_int_min_index", _wrap_gsl_vector_int_min_index},
12503 {"Math::GSL::Vectorc::gsl_vector_int_minmax_index", _wrap_gsl_vector_int_minmax_index},
12504 {"Math::GSL::Vectorc::gsl_vector_int_add", _wrap_gsl_vector_int_add},
12505 {"Math::GSL::Vectorc::gsl_vector_int_sub", _wrap_gsl_vector_int_sub},
12506 {"Math::GSL::Vectorc::gsl_vector_int_mul", _wrap_gsl_vector_int_mul},
12507 {"Math::GSL::Vectorc::gsl_vector_int_div", _wrap_gsl_vector_int_div},
12508 {"Math::GSL::Vectorc::gsl_vector_int_scale", _wrap_gsl_vector_int_scale},
12509 {"Math::GSL::Vectorc::gsl_vector_int_add_constant", _wrap_gsl_vector_int_add_constant},
12510 {"Math::GSL::Vectorc::gsl_vector_int_equal", _wrap_gsl_vector_int_equal},
12511 {"Math::GSL::Vectorc::gsl_vector_int_isnull", _wrap_gsl_vector_int_isnull},
12512 {"Math::GSL::Vectorc::gsl_vector_int_ispos", _wrap_gsl_vector_int_ispos},
12513 {"Math::GSL::Vectorc::gsl_vector_int_isneg", _wrap_gsl_vector_int_isneg},
12514 {"Math::GSL::Vectorc::gsl_vector_int_isnonneg", _wrap_gsl_vector_int_isnonneg},
12515 {"Math::GSL::Vectorc::gsl_vector_int_get", _wrap_gsl_vector_int_get},
12516 {"Math::GSL::Vectorc::gsl_vector_int_set", _wrap_gsl_vector_int_set},
12517 {"Math::GSL::Vectorc::gsl_vector_int_ptr", _wrap_gsl_vector_int_ptr},
12518 {"Math::GSL::Vectorc::gsl_vector_int_const_ptr", _wrap_gsl_vector_int_const_ptr},
12519 {0,0}
12520 };
12521 /* -----------------------------------------------------------------------------
12522 * Type initialization:
12523 * This problem is tough by the requirement that no dynamic
12524 * memory is used. Also, since swig_type_info structures store pointers to
12525 * swig_cast_info structures and swig_cast_info structures store pointers back
12526 * to swig_type_info structures, we need some lookup code at initialization.
12527 * The idea is that swig generates all the structures that are needed.
12528 * The runtime then collects these partially filled structures.
12529 * The SWIG_InitializeModule function takes these initial arrays out of
12530 * swig_module, and does all the lookup, filling in the swig_module.types
12531 * array with the correct data and linking the correct swig_cast_info
12532 * structures together.
12533 *
12534 * The generated swig_type_info structures are assigned statically to an initial
12535 * array. We just loop through that array, and handle each type individually.
12536 * First we lookup if this type has been already loaded, and if so, use the
12537 * loaded structure instead of the generated one. Then we have to fill in the
12538 * cast linked list. The cast data is initially stored in something like a
12539 * two-dimensional array. Each row corresponds to a type (there are the same
12540 * number of rows as there are in the swig_type_initial array). Each entry in
12541 * a column is one of the swig_cast_info structures for that type.
12542 * The cast_initial array is actually an array of arrays, because each row has
12543 * a variable number of columns. So to actually build the cast linked list,
12544 * we find the array of casts associated with the type, and loop through it
12545 * adding the casts to the list. The one last trick we need to do is making
12546 * sure the type pointer in the swig_cast_info struct is correct.
12547 *
12548 * First off, we lookup the cast->type name to see if it is already loaded.
12549 * There are three cases to handle:
12550 * 1) If the cast->type has already been loaded AND the type we are adding
12551 * casting info to has not been loaded (it is in this module), THEN we
12552 * replace the cast->type pointer with the type pointer that has already
12553 * been loaded.
12554 * 2) If BOTH types (the one we are adding casting info to, and the
12555 * cast->type) are loaded, THEN the cast info has already been loaded by
12556 * the previous module so we just ignore it.
12557 * 3) Finally, if cast->type has not already been loaded, then we add that
12558 * swig_cast_info to the linked list (because the cast->type) pointer will
12559 * be correct.
12560 * ----------------------------------------------------------------------------- */
12561
12562 #ifdef __cplusplus
12563 extern "C" {
12564 #if 0
12565 } /* c-mode */
12566 #endif
12567 #endif
12568
12569 #if 0
12570 #define SWIGRUNTIME_DEBUG
12571 #endif
12572
12573
12574 SWIGRUNTIME void
SWIG_InitializeModule(void * clientdata)12575 SWIG_InitializeModule(void *clientdata) {
12576 size_t i;
12577 swig_module_info *module_head, *iter;
12578 int init;
12579
12580 /* check to see if the circular list has been setup, if not, set it up */
12581 if (swig_module.next==0) {
12582 /* Initialize the swig_module */
12583 swig_module.type_initial = swig_type_initial;
12584 swig_module.cast_initial = swig_cast_initial;
12585 swig_module.next = &swig_module;
12586 init = 1;
12587 } else {
12588 init = 0;
12589 }
12590
12591 /* Try and load any already created modules */
12592 module_head = SWIG_GetModule(clientdata);
12593 if (!module_head) {
12594 /* This is the first module loaded for this interpreter */
12595 /* so set the swig module into the interpreter */
12596 SWIG_SetModule(clientdata, &swig_module);
12597 } else {
12598 /* the interpreter has loaded a SWIG module, but has it loaded this one? */
12599 iter=module_head;
12600 do {
12601 if (iter==&swig_module) {
12602 /* Our module is already in the list, so there's nothing more to do. */
12603 return;
12604 }
12605 iter=iter->next;
12606 } while (iter!= module_head);
12607
12608 /* otherwise we must add our module into the list */
12609 swig_module.next = module_head->next;
12610 module_head->next = &swig_module;
12611 }
12612
12613 /* When multiple interpreters are used, a module could have already been initialized in
12614 a different interpreter, but not yet have a pointer in this interpreter.
12615 In this case, we do not want to continue adding types... everything should be
12616 set up already */
12617 if (init == 0) return;
12618
12619 /* Now work on filling in swig_module.types */
12620 #ifdef SWIGRUNTIME_DEBUG
12621 printf("SWIG_InitializeModule: size %lu\n", (unsigned long)swig_module.size);
12622 #endif
12623 for (i = 0; i < swig_module.size; ++i) {
12624 swig_type_info *type = 0;
12625 swig_type_info *ret;
12626 swig_cast_info *cast;
12627
12628 #ifdef SWIGRUNTIME_DEBUG
12629 printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
12630 #endif
12631
12632 /* if there is another module already loaded */
12633 if (swig_module.next != &swig_module) {
12634 type = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, swig_module.type_initial[i]->name);
12635 }
12636 if (type) {
12637 /* Overwrite clientdata field */
12638 #ifdef SWIGRUNTIME_DEBUG
12639 printf("SWIG_InitializeModule: found type %s\n", type->name);
12640 #endif
12641 if (swig_module.type_initial[i]->clientdata) {
12642 type->clientdata = swig_module.type_initial[i]->clientdata;
12643 #ifdef SWIGRUNTIME_DEBUG
12644 printf("SWIG_InitializeModule: found and overwrite type %s \n", type->name);
12645 #endif
12646 }
12647 } else {
12648 type = swig_module.type_initial[i];
12649 }
12650
12651 /* Insert casting types */
12652 cast = swig_module.cast_initial[i];
12653 while (cast->type) {
12654 /* Don't need to add information already in the list */
12655 ret = 0;
12656 #ifdef SWIGRUNTIME_DEBUG
12657 printf("SWIG_InitializeModule: look cast %s\n", cast->type->name);
12658 #endif
12659 if (swig_module.next != &swig_module) {
12660 ret = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, cast->type->name);
12661 #ifdef SWIGRUNTIME_DEBUG
12662 if (ret) printf("SWIG_InitializeModule: found cast %s\n", ret->name);
12663 #endif
12664 }
12665 if (ret) {
12666 if (type == swig_module.type_initial[i]) {
12667 #ifdef SWIGRUNTIME_DEBUG
12668 printf("SWIG_InitializeModule: skip old type %s\n", ret->name);
12669 #endif
12670 cast->type = ret;
12671 ret = 0;
12672 } else {
12673 /* Check for casting already in the list */
12674 swig_cast_info *ocast = SWIG_TypeCheck(ret->name, type);
12675 #ifdef SWIGRUNTIME_DEBUG
12676 if (ocast) printf("SWIG_InitializeModule: skip old cast %s\n", ret->name);
12677 #endif
12678 if (!ocast) ret = 0;
12679 }
12680 }
12681
12682 if (!ret) {
12683 #ifdef SWIGRUNTIME_DEBUG
12684 printf("SWIG_InitializeModule: adding cast %s\n", cast->type->name);
12685 #endif
12686 if (type->cast) {
12687 type->cast->prev = cast;
12688 cast->next = type->cast;
12689 }
12690 type->cast = cast;
12691 }
12692 cast++;
12693 }
12694 /* Set entry in modules->types array equal to the type */
12695 swig_module.types[i] = type;
12696 }
12697 swig_module.types[i] = 0;
12698
12699 #ifdef SWIGRUNTIME_DEBUG
12700 printf("**** SWIG_InitializeModule: Cast List ******\n");
12701 for (i = 0; i < swig_module.size; ++i) {
12702 int j = 0;
12703 swig_cast_info *cast = swig_module.cast_initial[i];
12704 printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
12705 while (cast->type) {
12706 printf("SWIG_InitializeModule: cast type %s\n", cast->type->name);
12707 cast++;
12708 ++j;
12709 }
12710 printf("---- Total casts: %d\n",j);
12711 }
12712 printf("**** SWIG_InitializeModule: Cast List ******\n");
12713 #endif
12714 }
12715
12716 /* This function will propagate the clientdata field of type to
12717 * any new swig_type_info structures that have been added into the list
12718 * of equivalent types. It is like calling
12719 * SWIG_TypeClientData(type, clientdata) a second time.
12720 */
12721 SWIGRUNTIME void
SWIG_PropagateClientData(void)12722 SWIG_PropagateClientData(void) {
12723 size_t i;
12724 swig_cast_info *equiv;
12725 static int init_run = 0;
12726
12727 if (init_run) return;
12728 init_run = 1;
12729
12730 for (i = 0; i < swig_module.size; i++) {
12731 if (swig_module.types[i]->clientdata) {
12732 equiv = swig_module.types[i]->cast;
12733 while (equiv) {
12734 if (!equiv->converter) {
12735 if (equiv->type && !equiv->type->clientdata)
12736 SWIG_TypeClientData(equiv->type, swig_module.types[i]->clientdata);
12737 }
12738 equiv = equiv->next;
12739 }
12740 }
12741 }
12742 }
12743
12744 #ifdef __cplusplus
12745 #if 0
12746 {
12747 /* c-mode */
12748 #endif
12749 }
12750 #endif
12751
12752
12753
12754 #if defined(__cplusplus) && ! defined(XSPROTO)
12755 extern "C"
12756 #endif
12757
XS(SWIG_init)12758 XS(SWIG_init) {
12759 dXSARGS;
12760 int i;
12761 (void)items;
12762
12763 SWIG_InitializeModule(0);
12764
12765 /* Install commands */
12766 for (i = 0; swig_commands[i].name; i++) {
12767 /* Casts only needed for Perl < 5.10. */
12768 #ifdef __cplusplus
12769 newXS(const_cast<char*>(swig_commands[i].name), swig_commands[i].wrapper, const_cast<char*>(__FILE__));
12770 #else
12771 newXS((char*)swig_commands[i].name, swig_commands[i].wrapper, (char*)__FILE__);
12772 #endif
12773 }
12774
12775 /* Install variables */
12776 for (i = 0; swig_variables[i].name; i++) {
12777 SV *sv;
12778 sv = get_sv(swig_variables[i].name, TRUE | 0x2 | GV_ADDMULTI);
12779 if (swig_variables[i].type) {
12780 SWIG_MakePtr(sv,(void *)1, *swig_variables[i].type,0);
12781 } else {
12782 sv_setiv(sv,(IV) 0);
12783 }
12784 swig_create_magic(sv, swig_variables[i].name, swig_variables[i].set, swig_variables[i].get);
12785 }
12786
12787 /* Install constant */
12788 for (i = 0; swig_constants[i].type; i++) {
12789 SV *sv;
12790 sv = get_sv(swig_constants[i].name, TRUE | 0x2 | GV_ADDMULTI);
12791 switch(swig_constants[i].type) {
12792 case SWIG_INT:
12793 sv_setiv(sv, (IV) swig_constants[i].lvalue);
12794 break;
12795 case SWIG_FLOAT:
12796 sv_setnv(sv, (double) swig_constants[i].dvalue);
12797 break;
12798 case SWIG_STRING:
12799 sv_setpv(sv, (const char *) swig_constants[i].pvalue);
12800 break;
12801 case SWIG_POINTER:
12802 SWIG_MakePtr(sv, swig_constants[i].pvalue, *(swig_constants[i].ptype),0);
12803 break;
12804 case SWIG_BINARY:
12805 SWIG_MakePackedObj(sv, swig_constants[i].pvalue, swig_constants[i].lvalue, *(swig_constants[i].ptype));
12806 break;
12807 default:
12808 break;
12809 }
12810 SvREADONLY_on(sv);
12811 }
12812
12813 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12814 SV *sv = get_sv((char*) SWIG_prefix "GSL_VERSION", TRUE | 0x2 | GV_ADDMULTI);
12815 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(2.7)));
12816 SvREADONLY_on(sv);
12817 } while(0) /*@SWIG@*/;
12818 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12819 SV *sv = get_sv((char*) SWIG_prefix "GSL_MAJOR_VERSION", TRUE | 0x2 | GV_ADDMULTI);
12820 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(2)));
12821 SvREADONLY_on(sv);
12822 } while(0) /*@SWIG@*/;
12823 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12824 SV *sv = get_sv((char*) SWIG_prefix "GSL_MINOR_VERSION", TRUE | 0x2 | GV_ADDMULTI);
12825 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(7)));
12826 SvREADONLY_on(sv);
12827 } while(0) /*@SWIG@*/;
12828 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12829 SV *sv = get_sv((char*) SWIG_prefix "GSL_POSZERO", TRUE | 0x2 | GV_ADDMULTI);
12830 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)((+0.0))));
12831 SvREADONLY_on(sv);
12832 } while(0) /*@SWIG@*/;
12833 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12834 SV *sv = get_sv((char*) SWIG_prefix "GSL_NEGZERO", TRUE | 0x2 | GV_ADDMULTI);
12835 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)((-0.0))));
12836 SvREADONLY_on(sv);
12837 } while(0) /*@SWIG@*/;
12838 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12839 SV *sv = get_sv((char*) SWIG_prefix "GSL_SUCCESS", TRUE | 0x2 | GV_ADDMULTI);
12840 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_SUCCESS)));
12841 SvREADONLY_on(sv);
12842 } while(0) /*@SWIG@*/;
12843 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12844 SV *sv = get_sv((char*) SWIG_prefix "GSL_FAILURE", TRUE | 0x2 | GV_ADDMULTI);
12845 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_FAILURE)));
12846 SvREADONLY_on(sv);
12847 } while(0) /*@SWIG@*/;
12848 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12849 SV *sv = get_sv((char*) SWIG_prefix "GSL_CONTINUE", TRUE | 0x2 | GV_ADDMULTI);
12850 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_CONTINUE)));
12851 SvREADONLY_on(sv);
12852 } while(0) /*@SWIG@*/;
12853 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12854 SV *sv = get_sv((char*) SWIG_prefix "GSL_EDOM", TRUE | 0x2 | GV_ADDMULTI);
12855 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EDOM)));
12856 SvREADONLY_on(sv);
12857 } while(0) /*@SWIG@*/;
12858 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12859 SV *sv = get_sv((char*) SWIG_prefix "GSL_ERANGE", TRUE | 0x2 | GV_ADDMULTI);
12860 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ERANGE)));
12861 SvREADONLY_on(sv);
12862 } while(0) /*@SWIG@*/;
12863 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12864 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFAULT", TRUE | 0x2 | GV_ADDMULTI);
12865 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFAULT)));
12866 SvREADONLY_on(sv);
12867 } while(0) /*@SWIG@*/;
12868 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12869 SV *sv = get_sv((char*) SWIG_prefix "GSL_EINVAL", TRUE | 0x2 | GV_ADDMULTI);
12870 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EINVAL)));
12871 SvREADONLY_on(sv);
12872 } while(0) /*@SWIG@*/;
12873 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12874 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFAILED", TRUE | 0x2 | GV_ADDMULTI);
12875 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFAILED)));
12876 SvREADONLY_on(sv);
12877 } while(0) /*@SWIG@*/;
12878 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12879 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFACTOR", TRUE | 0x2 | GV_ADDMULTI);
12880 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFACTOR)));
12881 SvREADONLY_on(sv);
12882 } while(0) /*@SWIG@*/;
12883 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12884 SV *sv = get_sv((char*) SWIG_prefix "GSL_ESANITY", TRUE | 0x2 | GV_ADDMULTI);
12885 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ESANITY)));
12886 SvREADONLY_on(sv);
12887 } while(0) /*@SWIG@*/;
12888 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12889 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOMEM", TRUE | 0x2 | GV_ADDMULTI);
12890 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOMEM)));
12891 SvREADONLY_on(sv);
12892 } while(0) /*@SWIG@*/;
12893 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12894 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADFUNC", TRUE | 0x2 | GV_ADDMULTI);
12895 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADFUNC)));
12896 SvREADONLY_on(sv);
12897 } while(0) /*@SWIG@*/;
12898 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12899 SV *sv = get_sv((char*) SWIG_prefix "GSL_ERUNAWAY", TRUE | 0x2 | GV_ADDMULTI);
12900 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ERUNAWAY)));
12901 SvREADONLY_on(sv);
12902 } while(0) /*@SWIG@*/;
12903 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12904 SV *sv = get_sv((char*) SWIG_prefix "GSL_EMAXITER", TRUE | 0x2 | GV_ADDMULTI);
12905 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EMAXITER)));
12906 SvREADONLY_on(sv);
12907 } while(0) /*@SWIG@*/;
12908 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12909 SV *sv = get_sv((char*) SWIG_prefix "GSL_EZERODIV", TRUE | 0x2 | GV_ADDMULTI);
12910 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EZERODIV)));
12911 SvREADONLY_on(sv);
12912 } while(0) /*@SWIG@*/;
12913 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12914 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADTOL", TRUE | 0x2 | GV_ADDMULTI);
12915 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADTOL)));
12916 SvREADONLY_on(sv);
12917 } while(0) /*@SWIG@*/;
12918 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12919 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOL", TRUE | 0x2 | GV_ADDMULTI);
12920 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOL)));
12921 SvREADONLY_on(sv);
12922 } while(0) /*@SWIG@*/;
12923 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12924 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNDRFLW", TRUE | 0x2 | GV_ADDMULTI);
12925 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNDRFLW)));
12926 SvREADONLY_on(sv);
12927 } while(0) /*@SWIG@*/;
12928 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12929 SV *sv = get_sv((char*) SWIG_prefix "GSL_EOVRFLW", TRUE | 0x2 | GV_ADDMULTI);
12930 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EOVRFLW)));
12931 SvREADONLY_on(sv);
12932 } while(0) /*@SWIG@*/;
12933 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12934 SV *sv = get_sv((char*) SWIG_prefix "GSL_ELOSS", TRUE | 0x2 | GV_ADDMULTI);
12935 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ELOSS)));
12936 SvREADONLY_on(sv);
12937 } while(0) /*@SWIG@*/;
12938 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12939 SV *sv = get_sv((char*) SWIG_prefix "GSL_EROUND", TRUE | 0x2 | GV_ADDMULTI);
12940 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EROUND)));
12941 SvREADONLY_on(sv);
12942 } while(0) /*@SWIG@*/;
12943 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12944 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADLEN", TRUE | 0x2 | GV_ADDMULTI);
12945 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADLEN)));
12946 SvREADONLY_on(sv);
12947 } while(0) /*@SWIG@*/;
12948 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12949 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOTSQR", TRUE | 0x2 | GV_ADDMULTI);
12950 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOTSQR)));
12951 SvREADONLY_on(sv);
12952 } while(0) /*@SWIG@*/;
12953 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12954 SV *sv = get_sv((char*) SWIG_prefix "GSL_ESING", TRUE | 0x2 | GV_ADDMULTI);
12955 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ESING)));
12956 SvREADONLY_on(sv);
12957 } while(0) /*@SWIG@*/;
12958 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12959 SV *sv = get_sv((char*) SWIG_prefix "GSL_EDIVERGE", TRUE | 0x2 | GV_ADDMULTI);
12960 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EDIVERGE)));
12961 SvREADONLY_on(sv);
12962 } while(0) /*@SWIG@*/;
12963 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12964 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNSUP", TRUE | 0x2 | GV_ADDMULTI);
12965 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNSUP)));
12966 SvREADONLY_on(sv);
12967 } while(0) /*@SWIG@*/;
12968 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12969 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNIMPL", TRUE | 0x2 | GV_ADDMULTI);
12970 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNIMPL)));
12971 SvREADONLY_on(sv);
12972 } while(0) /*@SWIG@*/;
12973 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12974 SV *sv = get_sv((char*) SWIG_prefix "GSL_ECACHE", TRUE | 0x2 | GV_ADDMULTI);
12975 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ECACHE)));
12976 SvREADONLY_on(sv);
12977 } while(0) /*@SWIG@*/;
12978 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12979 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETABLE", TRUE | 0x2 | GV_ADDMULTI);
12980 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETABLE)));
12981 SvREADONLY_on(sv);
12982 } while(0) /*@SWIG@*/;
12983 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12984 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOPROG", TRUE | 0x2 | GV_ADDMULTI);
12985 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOPROG)));
12986 SvREADONLY_on(sv);
12987 } while(0) /*@SWIG@*/;
12988 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12989 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOPROGJ", TRUE | 0x2 | GV_ADDMULTI);
12990 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOPROGJ)));
12991 SvREADONLY_on(sv);
12992 } while(0) /*@SWIG@*/;
12993 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12994 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLF", TRUE | 0x2 | GV_ADDMULTI);
12995 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLF)));
12996 SvREADONLY_on(sv);
12997 } while(0) /*@SWIG@*/;
12998 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12999 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLX", TRUE | 0x2 | GV_ADDMULTI);
13000 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLX)));
13001 SvREADONLY_on(sv);
13002 } while(0) /*@SWIG@*/;
13003 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13004 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLG", TRUE | 0x2 | GV_ADDMULTI);
13005 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLG)));
13006 SvREADONLY_on(sv);
13007 } while(0) /*@SWIG@*/;
13008 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13009 SV *sv = get_sv((char*) SWIG_prefix "GSL_EOF", TRUE | 0x2 | GV_ADDMULTI);
13010 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EOF)));
13011 SvREADONLY_on(sv);
13012 } while(0) /*@SWIG@*/;
13013 SWIG_TypeClientData(SWIGTYPE_p_gsl_vector_char, (void*) "Math::GSL::Vector::gsl_vector_char");
13014 SWIG_TypeClientData(SWIGTYPE_p__gsl_vector_char_view, (void*) "Math::GSL::Vector::_gsl_vector_char_view");
13015 SWIG_TypeClientData(SWIGTYPE_p__gsl_vector_char_const_view, (void*) "Math::GSL::Vector::_gsl_vector_char_const_view");
13016 SWIG_TypeClientData(SWIGTYPE_p_gsl_vector_complex, (void*) "Math::GSL::Vector::gsl_vector_complex");
13017 SWIG_TypeClientData(SWIGTYPE_p__gsl_vector_complex_view, (void*) "Math::GSL::Vector::_gsl_vector_complex_view");
13018 SWIG_TypeClientData(SWIGTYPE_p__gsl_vector_complex_const_view, (void*) "Math::GSL::Vector::_gsl_vector_complex_const_view");
13019 SWIG_TypeClientData(SWIGTYPE_p_gsl_vector, (void*) "Math::GSL::Vector::gsl_vector");
13020 SWIG_TypeClientData(SWIGTYPE_p__gsl_vector_view, (void*) "Math::GSL::Vector::_gsl_vector_view");
13021 SWIG_TypeClientData(SWIGTYPE_p__gsl_vector_const_view, (void*) "Math::GSL::Vector::_gsl_vector_const_view");
13022 SWIG_TypeClientData(SWIGTYPE_p_gsl_vector_int, (void*) "Math::GSL::Vector::gsl_vector_int");
13023 SWIG_TypeClientData(SWIGTYPE_p__gsl_vector_int_view, (void*) "Math::GSL::Vector::_gsl_vector_int_view");
13024 SWIG_TypeClientData(SWIGTYPE_p__gsl_vector_int_const_view, (void*) "Math::GSL::Vector::_gsl_vector_int_const_view");
13025 ST(0) = &PL_sv_yes;
13026 XSRETURN(1);
13027 }
13028
13029